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) = (/ & + &