pax_global_header 0000666 0000000 0000000 00000000064 14650006642 0014515 g ustar 00root root 0000000 0000000 52 comment=26b28010e805f7d1aeeef39813feb473e69cc4be
xtb-6.7.1/ 0000775 0000000 0000000 00000000000 14650006642 0012325 5 ustar 00root root 0000000 0000000 xtb-6.7.1/.github/ 0000775 0000000 0000000 00000000000 14650006642 0013665 5 ustar 00root root 0000000 0000000 xtb-6.7.1/.github/ISSUE_TEMPLATE/ 0000775 0000000 0000000 00000000000 14650006642 0016050 5 ustar 00root root 0000000 0000000 xtb-6.7.1/.github/ISSUE_TEMPLATE/bug_report.md 0000664 0000000 0000000 00000001204 14650006642 0020537 0 ustar 00root root 0000000 0000000 ---
name: Bug report
about: Create a report to help us improve
title: ''
labels: unconfirmed
assignees: ''
---
**Describe the bug**
A clear and concise description of what the bug is.
**To Reproduce**
Steps to reproduce the behaviour:
1. happens with input (include input files)
2. start `xtb` with (all the options here)
3. run `xtb` with your options and the `--verbose` flag
4. output showing the error
Please provide all input and output file such that we confirm your report.
**Expected behaviour**
A clear and concise description of what you expected to happen.
**Additional context**
Add any other context about the problem here.
xtb-6.7.1/.github/ISSUE_TEMPLATE/feature_request.md 0000664 0000000 0000000 00000001311 14650006642 0021571 0 ustar 00root root 0000000 0000000 ---
name: Feature request
about: Suggest an idea for this project
title: ''
labels: ''
assignees: ''
---
**Is your feature request related to a problem? Please describe.**
A clear and concise description of what the problem is.
**Describe the solution you'd like**
A clear and concise description of what you want to happen.
**Describe alternatives you've considered**
A clear and concise description of any alternative solutions or features you've considered.
**If possible state how you can assist in providing data or code to to implement the feature**
A short description of what you can provide to make the feature possible.
**Additional context**
Add any other context about the feature request here.
xtb-6.7.1/.github/dco.yml 0000664 0000000 0000000 00000000032 14650006642 0015150 0 ustar 00root root 0000000 0000000 require:
members: false
xtb-6.7.1/.github/workflows/ 0000775 0000000 0000000 00000000000 14650006642 0015722 5 ustar 00root root 0000000 0000000 xtb-6.7.1/.github/workflows/fortran-build.yml 0000664 0000000 0000000 00000026370 14650006642 0021225 0 ustar 00root root 0000000 0000000 name: CI
on: [push, pull_request]
env:
BUILD_DIR: _build
jobs:
gcc-meson-build:
runs-on: ${{ matrix.os }}
strategy:
fail-fast: false
matrix:
os: [macos-13, ubuntu-latest]
fc: [gfortran-11]
cc: [gcc-11]
include:
- os: ubuntu-latest
fc: gfortran-9
cc: gcc-9
- os: ubuntu-latest
fc: gfortran-10
cc: gcc-10
steps:
- name: Checkout code
uses: actions/checkout@v4
- name: Setup Python
uses: actions/setup-python@v4
with:
python-version: 3.x
- name: Install OpenBLAS (OSX)
if: ${{ contains(matrix.os, 'macos') }}
run: |
brew install openblas
echo "PKG_CONFIG_PATH=/usr/local/opt/openblas/lib/pkgconfig" >> $GITHUB_ENV
- name: Install meson
run: pip3 install meson==0.62.0 ninja cmake
- name: Configure build
run: >-
meson setup ${{ env.BUILD_DIR }}
--buildtype=debug
--warnlevel=0
-Db_coverage=true
${{ env.MESON_ARGS }}
env:
FC: ${{ matrix.fc }}
CC: ${{ matrix.cc }}
MESON_ARGS: ${{ contains(matrix.os, 'macos') && '-Dlapack=openblas' || '-Dlapack=netlib' }}
- name: Build project
run: meson compile -C ${{ env.BUILD_DIR }}
- name: Run unit tests
run: meson test -C ${{ env.BUILD_DIR }} --print-errorlogs --no-rebuild -t 120 --suite xtb
env:
OMP_NUM_THREADS: 2,1
- name: Upload coverage report
run: bash <(curl -s https://codecov.io/bash)
gcc-cmake-build:
runs-on: ${{ matrix.os }}
strategy:
fail-fast: false
matrix:
os: [ubuntu-latest]
fc: [gfortran-10]
cc: [gcc-10]
steps:
- name: Checkout code
uses: actions/checkout@v4
- name: Setup Python
uses: actions/setup-python@v4
with:
python-version: 3.x
- name: Install CMake
run: pip3 install ninja cmake
- name: Configure build
run: cmake -B ${{ env.BUILD_DIR }} -G Ninja
env:
FC: ${{ matrix.fc }}
CC: ${{ matrix.cc }}
- name: Build project
run: cmake --build ${{ env.BUILD_DIR }}
- name: Run unit tests
run: ctest --parallel --output-on-failure -R 'xtb/*'
working-directory: ${{ env.BUILD_DIR }}
env:
OMP_NUM_THREADS: 2,1
xtb-lightweight-meson-build:
runs-on: ${{ matrix.os }}
strategy:
fail-fast: false
matrix:
os: [ubuntu-latest]
fc: [gfortran-11]
cc: [gcc-11]
steps:
- name: Checkout code
uses: actions/checkout@v4
- name: Setup Python
uses: actions/setup-python@v4
with:
python-version: 3.x
- name: Install meson
run: pip3 install meson==0.62.0 ninja cmake
- name: Configure build
run: >-
meson setup ${{ env.BUILD_DIR }}
--buildtype=debug
--warnlevel=0
${{ env.MESON_ARGS }}
env:
FC: ${{ matrix.fc }}
CC: ${{ matrix.cc }}
MESON_ARGS: ${{ '-Dlapack=netlib -Dtblite=disabled -Dcpcmx=disabled' }}
- name: Build project
run: meson compile -C ${{ env.BUILD_DIR }}
- name: Run unit tests
run: meson test -C ${{ env.BUILD_DIR }} --print-errorlogs --no-rebuild -t 120 --suite xtb
env:
OMP_NUM_THREADS: 2,1
xtb-lightweight-cmake-build:
runs-on: ${{ matrix.os }}
strategy:
fail-fast: false
matrix:
os: [ubuntu-latest]
fc: [gfortran-10]
cc: [gcc-10]
steps:
- name: Checkout code
uses: actions/checkout@v4
- name: Setup Python
uses: actions/setup-python@v4
with:
python-version: 3.x
- name: Install CMake
run: pip3 install ninja cmake
- name: Configure build
run: cmake -B ${{ env.BUILD_DIR }} -DWITH_CPCMX=false -DWITH_TBLITE=false -G Ninja
env:
FC: ${{ matrix.fc }}
CC: ${{ matrix.cc }}
- name: Build project
run: cmake --build ${{ env.BUILD_DIR }}
- name: Run unit tests
run: ctest --parallel --output-on-failure -R 'xtb/*'
working-directory: ${{ env.BUILD_DIR }}
env:
OMP_NUM_THREADS: 2,1
# Test native MinGW Windows build
mingw-meson-build:
runs-on: windows-latest
strategy:
fail-fast: false
matrix:
include: [
{ msystem: MINGW64, arch: x86_64 },
# { msystem: MINGW32, arch: i686 }
]
defaults:
run:
shell: msys2 {0}
steps:
- name: Checkout code
uses: actions/checkout@v3
- name: Setup MSYS2 toolchain
uses: msys2/setup-msys2@v2
with:
msystem: ${{ matrix.msystem }}
update: false
install: >-
git
mingw-w64-${{ matrix.arch }}-gcc-fortran
mingw-w64-${{ matrix.arch }}-openblas
mingw-w64-${{ matrix.arch }}-lapack
mingw-w64-${{ matrix.arch }}-python
mingw-w64-${{ matrix.arch }}-python-pip
mingw-w64-${{ matrix.arch }}-meson
mingw-w64-${{ matrix.arch }}-ninja
- name: Configure build
run: meson setup ${{ env.BUILD_DIR }} -Dlapack=netlib --warnlevel=0
env:
FC: gfortran
CC: gcc
- name: Build project
run: meson compile -C ${{ env.BUILD_DIR }}
- name: Run unit tests
run: meson test -C ${{ env.BUILD_DIR }} --print-errorlogs --no-rebuild -t 120 --suite xtb
env:
OMP_NUM_THREADS: 1
intel-meson-build:
runs-on: ${{ matrix.os }}
strategy:
fail-fast: false
matrix:
os: [ubuntu-20.04]
fc: [ifort]
cc: [icc]
env:
FC: ${{ matrix.fc }}
CC: ${{ matrix.cc }}
APT_PACKAGES: >-
intel-oneapi-compiler-fortran-2022.1.0
intel-oneapi-compiler-dpcpp-cpp-and-cpp-classic-2022.1.0
intel-oneapi-mkl-2022.1.0
intel-oneapi-mkl-devel-2022.1.0
asciidoctor
steps:
- name: Checkout code
uses: actions/checkout@v3
- name: Setup Python
uses: actions/setup-python@v1
with:
python-version: 3.x
- run: pip3 install meson ninja --user
- name: Add Intel repository
if: contains(matrix.os, 'ubuntu')
run: |
wget https://apt.repos.intel.com/intel-gpg-keys/GPG-PUB-KEY-INTEL-SW-PRODUCTS-2023.PUB
sudo apt-key add GPG-PUB-KEY-INTEL-SW-PRODUCTS-2023.PUB
rm GPG-PUB-KEY-INTEL-SW-PRODUCTS-2023.PUB
echo "deb https://apt.repos.intel.com/oneapi all main" | sudo tee /etc/apt/sources.list.d/oneAPI.list
sudo apt-get update
- name: Install Intel oneAPI compiler
if: contains(matrix.os, 'ubuntu')
run: |
sudo apt-get install ${APT_PACKAGES}
source /opt/intel/oneapi/setvars.sh
printenv >> $GITHUB_ENV
- name: Configure meson build
run: >-
meson setup ${{ env.BUILD_DIR }}
--prefix=/ --libdir=lib
-Dfortran_link_args="-lifcoremt -static"
-Ddefault_library=static
-Dlapack=mkl
- name: Build project
run: ninja -C ${{ env.BUILD_DIR }}
- name: Run unit tests
run: >-
meson test -C ${{ env.BUILD_DIR }}
--print-errorlogs
--num-processes 1
--no-rebuild
--suite xtb
-t 120
env:
OMP_NUM_THREADS: 2,1
- name: Install package
run: |
meson install -C ${{ env.BUILD_DIR }} --no-rebuild
tar cJvf xtb-bleed.tar.xz xtb-bleed
env:
DESTDIR: ${{ env.PWD }}/xtb-bleed
- name: Upload binary
if: github.event_name == 'push'
uses: actions/upload-artifact@v2
with:
name: xtb-bleed.tar.xz
path: xtb-bleed.tar.xz
# Inspired from https://github.com/endless-sky/endless-sky
continuous-delivery:
if: github.event_name == 'push'
runs-on: ubuntu-latest
needs:
- intel-meson-build
env:
GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
RELEASE_TAG: bleed
OUTPUT_INTEL: xtb-bleed.tar.xz
steps:
- uses: actions/checkout@v3
- name: Install github-release
run: |
go install github.com/github-release/github-release@latest
echo "GOPATH=$(go env GOPATH)" >> $GITHUB_ENV
echo "$(go env GOPATH)/bin" >> $GITHUB_PATH
- name: Set environment variables
run: |
echo "GITHUB_USER=$( echo ${{ github.repository }} | cut -d/ -f1 )" >> $GITHUB_ENV
echo "GITHUB_REPO=$( echo ${{ github.repository }} | cut -d/ -f2 )" >> $GITHUB_ENV
- name: Move/Create continuous tag
run: |
git tag --force ${{ env.RELEASE_TAG }} ${{ github.sha }}
git push --tags --force
- name: Get Time
run: echo "TIME=$(date -u '+%Y/%m/%d, %H:%M')" >> $GITHUB_ENV
- name: Check continuous release status
run: |
if ! github-release info -t ${{ env.RELEASE_TAG }} > /dev/null 2>&1; then
echo "RELEASE_COMMAND=release" >> $GITHUB_ENV
else
echo "RELEASE_COMMAND=edit" >> $GITHUB_ENV
fi
- name: Setup continuous release
run: >-
github-release ${{ env.RELEASE_COMMAND }}
--tag ${{ env.RELEASE_TAG }}
--name "Bleeding edge version"
--description "$DESCRIPTION"
--pre-release
env:
DESCRIPTION: |
Created on ${{ env.TIME }} UTC by @${{ github.actor }} with commit ${{ github.sha }}.
This is an automated distribution of the latest `xtb` version. This version is only minimally tested and may be unstable or even crash. Use with caution!
https://github.com/${{ github.repository }}/actions/runs/${{ github.run_id }}
- name: Download Artifacts
uses: actions/download-artifact@v2
with:
path: ${{ github.workspace }} # This will download all files
- name: Create SHA256 checksum
run: |
cd ${{ env.OUTPUT_INTEL }}
sha256sum ${{ env.OUTPUT_INTEL }} > sha256.txt
- name: Add ${{ env.OUTPUT_INTEL }} to release tag
run: >-
github-release upload
--tag ${{ env.RELEASE_TAG }}
--replace
--name ${{ env.OUTPUT_INTEL }}
--file ${{ env.OUTPUT_INTEL }}/${{ env.OUTPUT_INTEL }}
- name: Add SHA256 checksums to release tag
run: >-
github-release upload
--tag ${{ env.RELEASE_TAG }}
--replace
--name sha256.txt
--file ${{ env.OUTPUT_INTEL }}/sha256.txt
xtb-6.7.1/.github/workflows/stale_label.yml 0000664 0000000 0000000 00000003311 14650006642 0020712 0 ustar 00root root 0000000 0000000 name: "Close Stale"
# The workflow triggers
on:
schedule:
- cron: '0 0 * * *'
issues:
types: [labeled]
pull_request:
types: [labeled]
# The stale workflow
jobs:
stale:
runs-on: ubuntu-latest
if: github.event.label.name == 'stale'
steps:
- name: Post stale message
uses: actions/github-script@v5
with:
script: |
const eventName = context.eventName;
const issueOrPrNumber = eventName === 'issues' ? context.payload.issue.number : context.payload.pull_request.number;
const message = eventName === 'issues' ?
"This issue is set to auto-close in 7 days if no further updates would be detected." :
"This PR is set to auto-close in 7 days if no further updates would be detected.";
github.rest.issues.createComment({
owner: context.repo.owner,
repo: context.repo.repo,
issue_number: issueOrPrNumber,
body: message
});
github-token: ${{ secrets.GITHUB_TOKEN }}
- name : Close Stale Items
uses: actions/stale@v9
with:
repo-token: ${{ secrets.GITHUB_TOKEN }}
stale-issue-label: 'stale' # Label to detect
stale-pr-label: 'stale'
any-of-labels: 'stale'
days-before-stale: -1
days-before-close: 7
close-issue-message: 'This issue has been automatically closed due to inactivity.'
close-pr-message: 'This PR has been automatically closed due to inactivity.'
xtb-6.7.1/.gitignore 0000664 0000000 0000000 00000001320 14650006642 0014311 0 ustar 00root root 0000000 0000000 # Prerequisites
*.d
# Compiled Object files
*.slo
*.lo
*.o
*.obj
# Precompiled Headers
*.gch
*.pch
# Compiled Dynamic libraries
*.so
*.dylib
*.dll
# Fortran module files
*.mod
*.smod
# Compiled Static libraries
*.lai
*.la
*.a
*.lib
# Executables
*.exe
*.out
*.app
# Editor specific metadata
.vscode
*f90.swp
# directories
/build*/
/_*/
# files produces by the documentation
man/*.pdf
man/*.xml
man/*.html
# files produced by the program
xtbrestart
.EDISP
energy
wbo
charges
dftd4_gradient
.tmpxtbmodef
hessian
molden.input
tmpxx
xtb_localmodes
xtb_normalmodes
xtbopt.xyz
xtbopt.sdf
xtbopt.coord
xtbopt.log
# python build artefacts
__pycache__/
python/dist
python/build
*.egg-info
# external directory
ext/
xtb-6.7.1/.gitmodules 0000664 0000000 0000000 00000000151 14650006642 0014477 0 ustar 00root root 0000000 0000000 [submodule "assets/aur/xtb-git"]
path = assets/aur/xtb-git
url = https://aur.archlinux.org/xtb-git.git
xtb-6.7.1/.param_gfnff.xtb 0000664 0000000 0000000 00000024650 14650006642 0015377 0 ustar 00root root 0000000 0000000 1 1.227054 -0.448428 0.008904 0.585069 0.417997 2.639785 1.071395 1.661808 0.624197 0.100000 1.618678
2 1.451412 0.131022 0.004641 0.432382 0.258490 3.575012 1.072699 0.300000 0.600000 0.100000 1.000000
3 0.813363 0.571431 0.048324 0.628636 0.113608 0.732142 1.416847 0.018158 0.050000 0.100000 0.064677
4 1.062841 0.334622 0.080316 0.743646 0.195935 1.159621 1.156187 0.029224 0.101579 0.000000 0.000000
5 1.186499 -0.089208 -0.051990 1.167323 0.231217 1.561585 0.682382 0.572683 0.180347 0.121170 0.965814
6 1.311555 -0.025895 0.031779 0.903430 0.385248 1.762895 0.556380 0.771055 0.755851 0.260028 1.324709
7 1.528485 -0.027280 0.132184 1.278388 0.379257 2.173015 0.746785 1.053577 0.761551 0.222546 1.079334
8 1.691201 -0.031236 0.157353 0.905347 0.339249 2.262269 0.847242 2.159889 0.813653 0.250620 1.478599
9 1.456784 -0.159892 0.064120 1.067014 0.330706 2.511112 0.997252 1.525582 0.791274 0.256328 0.304844
10 1.231037 0.074198 0.036540 2.941513 0.120319 3.577220 0.873051 0.400000 0.400000 0.400000 0.500000
11 0.772989 0.316829 -0.000627 0.687680 0.127255 0.338845 0.322503 0.041070 0.000000 0.115000 0.029210
12 1.199092 0.326072 0.005412 0.792170 0.173647 0.693023 0.415554 0.028889 0.022706 0.000000 0.000000
13 1.221576 0.069748 0.018809 1.337040 0.183796 0.678792 0.423946 0.086910 0.100000 0.103731 0.417423
14 1.245964 -0.120184 0.016329 1.251409 0.273055 0.804784 0.415776 0.494456 0.338514 0.069103 0.334275
15 1.248942 -0.193159 0.012149 1.068295 0.249044 1.012178 0.486773 0.409204 0.453023 0.104280 0.817008
16 1.301708 -0.182428 0.021484 1.186476 0.290653 1.103469 0.494532 0.864972 0.603722 0.226131 0.922181
17 1.312474 -0.064093 0.014212 1.593532 0.218744 1.209798 0.705274 1.986025 1.051121 0.300000 0.356367
18 1.247701 0.061914 0.014939 2.056749 0.034706 1.167791 0.706778 0.491537 0.547904 0.400000 0.684881
19 0.781237 0.318112 0.003597 0.674196 0.136353 0.326946 0.311178 0.050168 0.000000 0.124098 0.029210
20 0.940834 0.189248 0.032921 0.868052 0.192467 0.595242 0.399439 0.072745 0.059059 0.000000 0.000000
21 0.950000 -0.104172 -0.021804 0.575052 0.335860 1.447860 0.440983 0.378334 0.117040 0.105007 0.035902
22 0.974455 -0.082038 -0.022797 0.613424 0.314452 1.414501 0.475582 0.346400 0.118438 0.107267 0.090952
23 0.998911 -0.059903 -0.023789 0.651796 0.293044 1.381142 0.510180 0.314466 0.119836 0.109526 0.146002
24 1.023366 -0.037769 -0.024782 0.690169 0.271636 1.347783 0.544779 0.282532 0.121234 0.111786 0.201052
25 1.047822 -0.015635 -0.025775 0.728541 0.250228 1.314424 0.579377 0.250598 0.122632 0.114046 0.256103
26 1.072277 0.006500 -0.026767 0.766913 0.228819 1.281065 0.613976 0.218663 0.124031 0.116305 0.311153
27 1.096733 0.028634 -0.027760 0.805285 0.207411 1.247706 0.648574 0.186729 0.125429 0.118565 0.366203
28 1.121188 0.050768 -0.028753 0.843658 0.186003 1.214347 0.683173 0.154795 0.126827 0.120825 0.421253
29 1.145644 0.072903 -0.029745 0.882030 0.164595 1.180988 0.717772 0.122861 0.128225 0.123084 0.476303
30 1.170099 0.095037 -0.030738 0.920402 0.143187 1.147629 0.752370 0.090927 0.129623 0.125344 0.531353
31 1.205357 0.131140 -0.004189 0.877178 0.212434 0.700620 0.429944 0.140458 0.206779 0.395722 0.482963
32 1.145447 0.097006 -0.011113 1.422350 0.210451 0.721266 0.420053 0.653971 0.466678 0.349100 1.415893
33 1.169499 -0.065744 -0.021305 1.405901 0.219870 0.741789 0.384743 0.528465 0.496442 0.147808 1.146581
34 1.253293 -0.058394 -0.012311 1.646860 0.224618 0.857434 0.443762 0.420379 0.617321 0.259811 1.338448
35 1.329909 0.063307 0.049781 2.001970 0.272206 0.875583 0.538680 2.243492 0.409933 0.400000 0.376801
36 1.116527 0.091652 -0.040533 2.301695 0.147864 0.835876 0.472196 0.400000 0.400000 0.400000 0.500000
37 0.950975 0.386337 0.012872 1.020617 0.150000 0.290625 0.423850 0.035341 0.000000 0.112206 0.027213
38 0.964592 0.530677 0.021056 0.634141 0.150000 0.554446 0.385815 0.022704 0.000000 -0.004549 -0.004549
39 0.897786 -0.030705 -0.003395 0.652752 0.329501 0.623980 0.249213 0.195060 0.119120 0.198713 0.003820
40 0.932824 -0.020787 0.000799 0.668845 0.309632 0.696005 0.285604 0.188476 0.118163 0.179472 0.093011
41 0.967863 -0.010869 0.004992 0.684938 0.289763 0.768030 0.321995 0.181892 0.117206 0.160232 0.182202
42 1.002901 -0.000951 0.009186 0.701032 0.269894 0.840055 0.358387 0.175308 0.116249 0.140991 0.271393
43 1.037940 0.008967 0.013379 0.717125 0.250025 0.912081 0.394778 0.168724 0.115292 0.121751 0.360584
44 1.072978 0.018884 0.017573 0.733218 0.230155 0.984106 0.431169 0.162139 0.114336 0.102510 0.449775
45 1.108017 0.028802 0.021766 0.749311 0.210286 1.056131 0.467560 0.155555 0.113379 0.083270 0.538965
46 1.143055 0.038720 0.025960 0.765405 0.190417 1.128156 0.503952 0.148971 0.112422 0.064029 0.628156
47 1.178094 0.048638 0.030153 0.781498 0.170548 1.200181 0.540343 0.142387 0.111465 0.044789 0.717347
48 1.213132 0.058556 0.034347 0.797591 0.150679 1.272206 0.576734 0.135803 0.110508 0.025548 0.806538
49 1.205076 0.036488 -0.000052 1.296844 0.192977 0.478807 0.333476 0.169779 0.149917 0.202245 0.077000
50 1.075529 0.077711 -0.039776 1.534068 0.173411 0.479759 0.348734 0.265730 0.308383 0.278223 0.185110
51 1.206919 0.077025 0.006661 1.727781 0.186907 0.579840 0.358194 0.505495 0.527398 0.280596 0.432427
52 1.303658 0.004547 0.050424 1.926871 0.192891 0.595241 0.351053 0.398254 0.577885 0.229057 0.887811
53 1.332656 0.039909 0.068985 2.175548 0.223202 0.644458 0.404536 2.640752 0.320371 0.300000 0.267721
54 1.179317 0.082630 0.023470 2.177702 0.172577 0.655289 0.389847 0.568026 0.568026 0.423199 0.571662
55 0.789115 0.485375 -0.024950 0.977079 0.150000 0.574626 0.302575 0.032198 0.000000 0.090741 0.000000
56 0.798704 0.416264 -0.033006 0.770260 0.150000 0.560506 0.163290 0.036663 0.000000 0.076783 0.000000
57 1.127797 -0.011212 0.058973 0.757372 0.370682 0.682723 0.187645 0.281449 0.078710 0.310896 0.122336
58 1.127863 -0.011046 0.058595 0.757352 0.368511 0.684824 0.190821 0.280526 0.079266 0.309131 0.131176
59 1.127928 -0.010879 0.058217 0.757332 0.366339 0.686925 0.193998 0.279603 0.079822 0.307367 0.140015
60 1.127994 -0.010713 0.057838 0.757313 0.364168 0.689026 0.197174 0.278680 0.080379 0.305602 0.148855
61 1.128059 -0.010546 0.057460 0.757293 0.361996 0.691127 0.200351 0.277757 0.080935 0.303838 0.157695
62 1.128125 -0.010380 0.057082 0.757273 0.359825 0.693228 0.203527 0.276834 0.081491 0.302073 0.166534
63 1.128190 -0.010214 0.056704 0.757253 0.357654 0.695329 0.206703 0.275911 0.082047 0.300309 0.175374
64 1.128256 -0.010047 0.056326 0.757233 0.355482 0.697430 0.209880 0.274988 0.082603 0.298544 0.184214
65 1.128322 -0.009881 0.055948 0.757213 0.353311 0.699531 0.213056 0.274065 0.083159 0.296779 0.193053
66 1.128387 -0.009714 0.055569 0.757194 0.351139 0.701631 0.216233 0.273142 0.083716 0.295015 0.201893
67 1.128453 -0.009548 0.055191 0.757174 0.348968 0.703732 0.219409 0.272219 0.084272 0.293250 0.210733
68 1.128518 -0.009382 0.054813 0.757154 0.346797 0.705833 0.222585 0.271296 0.084828 0.291486 0.219572
69 1.128584 -0.009215 0.054435 0.757134 0.344625 0.707934 0.225762 0.270373 0.085384 0.289721 0.228412
70 1.128649 -0.009049 0.054057 0.757114 0.342454 0.710035 0.228938 0.269450 0.085940 0.287957 0.237252
71 1.128715 -0.008883 0.053679 0.757095 0.340282 0.712136 0.232115 0.268528 0.086496 0.286192 0.246091
72 1.128780 -0.008716 0.053300 0.757075 0.338111 0.714237 0.235291 0.267605 0.087053 0.284427 0.254931
73 1.129764 -0.006220 0.047628 0.756778 0.305540 0.745751 0.282937 0.253760 0.095395 0.257959 0.387526
74 1.130747 -0.003724 0.041955 0.756480 0.272969 0.777265 0.330583 0.239916 0.103738 0.231490 0.520121
75 1.131731 -0.001228 0.036282 0.756183 0.240398 0.808779 0.378229 0.226071 0.112081 0.205022 0.652716
76 1.132714 0.001267 0.030610 0.755886 0.207828 0.840294 0.425876 0.212227 0.120423 0.178553 0.785311
77 1.133698 0.003763 0.024937 0.755589 0.175257 0.871808 0.473522 0.198382 0.128766 0.152085 0.917906
78 1.134681 0.006259 0.019264 0.755291 0.142686 0.903322 0.521168 0.184538 0.137109 0.125616 1.050500
79 1.135665 0.008755 0.013592 0.754994 0.110115 0.934836 0.568814 0.170693 0.145451 0.099147 1.183095
80 1.136648 0.011251 0.007919 0.754697 0.077544 0.966350 0.616460 0.156849 0.153794 0.072679 1.315690
81 1.061832 0.020477 0.006383 0.868029 0.108597 0.467729 0.242521 0.104547 0.323570 0.203077 0.219729
82 1.053084 -0.056566 -0.089155 1.684375 0.148422 0.486102 0.293680 0.313474 0.233450 0.169346 0.344830
83 1.207830 0.051943 -0.001293 2.001040 0.183731 0.559176 0.320931 0.220185 0.268137 0.090568 0.331862
84 1.236314 0.076708 0.019269 2.067331 0.192274 0.557520 0.322666 0.415042 0.307481 0.144762 0.767979
85 1.310129 0.000273 0.074803 2.228923 0.127706 0.563373 0.333641 1.259822 0.316447 0.231884 0.536799
86 1.157380 -0.068929 0.016657 1.874218 0.086756 0.484713 0.434163 0.400000 0.400000 0.400000 0.500000
xtb-6.7.1/.xtbrc 0000664 0000000 0000000 00000003475 14650006642 0013461 0 ustar 00root root 0000000 0000000 $cmd bin/xtb --define --copy --input .xtbrc test/coord
$date 2019/02/21 at 18:42:07.355
$gfn
method=2
scc=true
periodic=false
$scc
maxiterations=250
temp=300.0000000000000
broydamp=.4000000000000000
$opt
optlevel=normal
microcycle=20
maxcycle=0
maxdispl=2.000000000000000
hlow=.2000000000000000E-01
s6=70.00000000000000
kstretch=.4000000000000000
kbend =.1300000000000000
ktorsion=.7500000000000000E-02
ts=0
tsroot=0
exact rf=false
$thermo
temp=298.1500000000000
sthr=50.00000000000000
$md
temp=298.1500000000000
time=50.00000000000000
dump=100.00000000000000
velo=0
nvt=1
skip=500
step=5.000000000000000
hmass=2
shake=2
sccacc=1.000000000000000
$reactor
kpush=0.1
density=1
alp=0.5
max=200
$siman
dump=1000.000000000000
n=3
ewin=20.00000000000000
temp=1000.000000000000
enan=0
check=0
$hess
sccacc=.3000000000000000
step=.5000000000000000E-02
$modef
n=31
step=1.000000000000000
updat=.2000000000000000
local=0
vthr=.000000000000000
prj=0
mode=7
$cube
step=.5000000000000000
pthr=.1000000000000000E-01
$symmetry
desy=.1000000000000000
maxat=500
$embedding
at=7
es=true
$write
geosum=false
esp=false
mos=false
gbw=false
tm mos=false
tm basis=false
lmo=false
density=false
spin population=true
spin density=false
fod=false
wiberg=true
dipole=true
charges=true
mulliken=true
orbital energies=true
geosum=false
distances=true
angles=false
torsions=false
modef=true
$path
nrun=1
npoint=25
anopt=10
kpush=0.003
kpull=-0.015
ppull=0.05
alp=1.2
$wall
potential=logfermi
alpha=30
beta=6.000000000000000
temp=300.0000000000000
autoscale=1.000000000000000
axisshift=3.500000000000000
$end
xtb-6.7.1/.zenodo.json 0000664 0000000 0000000 00000003671 14650006642 0014603 0 ustar 00root root 0000000 0000000 {
"license": "LGPL-3.0-or-later",
"version": "v6.2.3",
"references": [
"S. Grimme, C. Bannwarth, P. Shushkov, J. Chem. Theory Comput., 2017, 13, 1989-2009. DOI: 10.1021/acs.jctc.7b00118",
"C. Bannwarth, S. Ehlert and S. Grimme., J. Chem. Theory Comput., 2019, 15, 1652-1671. DOI: 10.1021/acs.jctc.8b01176",
"P. Pracht, E. Caldeweyher, S. Ehlert, S. Grimme, ChemRxiv, 2019, preprint. DOI: 10.26434/chemrxiv.8326202.v1",
"E. Caldeweyher, C. Bannwarth and S. Grimme, J. Chem. Phys., 2017, 147, 034112. DOI: 10.1063/1.4993215",
"E. Caldeweyher, S. Ehlert, A. Hansen, H. Neugebauer, S. Spicher, C. Bannwarth and S. Grimme, J. Chem. Phys., 2019, 150, 154122. DOI: 10.1063/1.5090222",
"S. Grimme and C. Bannwarth, J. Chem. Phys., 2016, 145, 054103. DOI: 10.1063/1.4959605",
"V. Asgeirsson, C. Bauer and S. Grimme, Chem. Sci., 2017, 8, 4879. DOI: 10.1039/c7sc00601b",
"S. Grimme, J. Chem. Theory Comput., 2019, 155, 2847-2862. DOI: 10.1021/acs.jctc.9b00143"
],
"upload_type": "software",
"keywords": [
"quantum-chemistry",
"tight-binding",
"computational-chemistry",
"atomistic-simulations"
],
"creators": [
{
"orcid": "0000-0002-5844-4371",
"affiliation": "Mulliken Center for Theoretical Chemistry, Universit\u00e4t Bonn, Beringstr. 4, 53115 Bonn, Germany",
"name": "Stefan Grimme"
},
{
"orcid": "0000-0003-3242-496X",
"affiliation": "Department of Chemistry, Stanford University, Stanford, California 94305, United States",
"name": "Christoph Bannwarth"
},
{
"orcid": "0000-0001-7809-771X",
"affiliation": "Mulliken Center for Theoretical Chemistry, Universit\u00e4t Bonn, Beringstr. 4, 53115 Bonn, Germany",
"name": "Sebastian Ehlert"
}
],
"access_right": "open"
}
xtb-6.7.1/CMakeLists.txt 0000664 0000000 0000000 00000020733 14650006642 0015072 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
# SPDX-Identifier: LGPL-3.0-or-later
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
cmake_minimum_required(VERSION 3.17)
option(WITH_OBJECT "To build using object library" TRUE)
option(INSTALL_MODULES "Install Fortran module files to include directory." FALSE)
# Buggy CMake versions
if (CMAKE_VERSION VERSION_GREATER_EQUAL 3.27.0 AND CMAKE_VERSION VERSION_LESS 3.28.0)
set(WITH_OBJECT FALSE)
endif()
# Setup the xtb Project
project(
"xtb"
VERSION "6.7.1"
LANGUAGES "C" "Fortran"
)
enable_testing()
# Follow GNU conventions for installing directories
include(GNUInstallDirs)
# Include CMake specific configurations
add_subdirectory("cmake")
# Check a specific CMake targets for xtb build & execute corresponding Find scripts
if(NOT TARGET "mctc-lib::mctc-lib")
find_package("mctc-lib" REQUIRED)
endif()
if(NOT TARGET "tblite::tblite" AND WITH_TBLITE)
find_package("tblite" REQUIRED)
add_compile_definitions(WITH_TBLITE)
endif()
if(NOT TARGET "cpcmx::cpcmx" AND WITH_CPCMX)
find_package("cpcmx" REQUIRED)
add_compile_definitions(WITH_CPCMX)
endif()
if(NOT TARGET "test-drive::test-drive")
find_package("test-drive" REQUIRED)
endif()
# Sources: initialize program sources (prog) and library sources (srcs) empty
set(prog)
set(srcs)
# add filenames to the list variables
add_subdirectory("src")
add_subdirectory("symmetry")
# CMake modules for third-party software
if(NOT TARGET "OpenMP::OpenMP_Fortran" AND WITH_OpenMP)
find_package("OpenMP" REQUIRED)
endif()
find_package("LAPACK" REQUIRED)
find_package("BLAS" REQUIRED)
if(NOT EXISTS "${PROJECT_BINARY_DIR}/include")
file(MAKE_DIRECTORY "${PROJECT_BINARY_DIR}/include")
endif()
##################
# OBJECT LIBRARY #
##################
if(WITH_OBJECT)
add_library(
"${PROJECT_NAME}-object"
OBJECT
${srcs}
)
# customize object library
set_target_properties(
"${PROJECT_NAME}-object"
PROPERTIES
Fortran_MODULE_DIRECTORY "${PROJECT_BINARY_DIR}/include"
POSITION_INDEPENDENT_CODE ON
)
# link object library against mctc-lib &
# & conditionally against OpenMP, tblite, cpcmx
target_link_libraries(
"${PROJECT_NAME}-object"
PUBLIC
"mctc-lib::mctc-lib"
"$<$:cpcmx::cpcmx>"
"$<$:tblite::tblite>"
"$<$:OpenMP::OpenMP_Fortran>"
)
# include directories
target_include_directories(
"${PROJECT_NAME}-object"
PUBLIC
${xtb-config-dir}
${PROJECT_BINARY_DIR}
$
$
$/${CMAKE_INSTALL_INCLUDEDIR}>
)
endif()
##################
# Static Library #
##################
if(WITH_OBJECT)
add_library(
"lib-${PROJECT_NAME}-static"
STATIC
$
)
else()
add_library(
"lib-${PROJECT_NAME}-static"
STATIC
${srcs}
)
endif()
target_link_libraries(
"lib-${PROJECT_NAME}-static"
PUBLIC
${BLAS_LIBRARIES}
${LAPACK_LIBRARIES}
"$<$:OpenMP::OpenMP_Fortran>"
"mctc-lib::mctc-lib"
"$<$:cpcmx::cpcmx>"
$<$:tblite::tblite>
)
set_target_properties(
"lib-${PROJECT_NAME}-static"
PROPERTIES
Fortran_MODULE_DIRECTORY "${PROJECT_BINARY_DIR}/include"
ARCHIVE_OUTPUT_DIRECTORY "${PROJECT_BINARY_DIR}"
POSITION_INDEPENDENT_CODE ON
OUTPUT_NAME "${PROJECT_NAME}"
)
target_include_directories(
"lib-${PROJECT_NAME}-static"
PUBLIC
$
$
$/${CMAKE_INSTALL_INCLUDEDIR}>
)
##################
# Shared Library #
##################
if (WITH_OBJECT)
add_library(
"lib-${PROJECT_NAME}-shared"
SHARED
$
)
target_link_libraries(
"lib-${PROJECT_NAME}-shared"
PUBLIC
${BLAS_LIBRARIES}
${LAPACK_LIBRARIES}
"$<$:OpenMP::OpenMP_Fortran>"
"mctc-lib::mctc-lib"
"$<$:cpcmx::cpcmx>"
"$<$:tblite::tblite>"
)
set_target_properties(
"lib-${PROJECT_NAME}-shared"
PROPERTIES
Fortran_MODULE_DIRECTORY "${PROJECT_BINARY_DIR}/include"
LIBRARY_OUTPUT_DIRECTORY "${PROJECT_BINARY_DIR}"
OUTPUT_NAME "${PROJECT_NAME}"
VERSION "${PROJECT_VERSION}"
SOVERSION "${PROJECT_VERSION_MAJOR}"
)
target_include_directories(
"lib-${PROJECT_NAME}-shared"
PUBLIC
$
$
$/${CMAKE_INSTALL_INCLUDEDIR}>
)
endif()
###############
# Executables #
###############
add_executable(
${PROJECT_NAME}-exe
${prog}
)
target_link_libraries(
${PROJECT_NAME}-exe
PRIVATE
"lib-${PROJECT_NAME}-static"
)
set_target_properties(
${PROJECT_NAME}-exe
PROPERTIES
Fortran_MODULE_DIRECTORY ${PROJECT_BINARY_DIR}/include
RUNTIME_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}
OUTPUT_NAME "${PROJECT_NAME}"
)
target_include_directories(
${PROJECT_NAME}-exe
PRIVATE
${PROJECT_SOURCE_DIR}/include
$
)
######################
# Installation rules #
######################
# API for C/C++
install(
FILES
"${PROJECT_SOURCE_DIR}/include/xtb.h"
DESTINATION
"${CMAKE_INSTALL_INCLUDEDIR}"
)
if (INSTALL_MODULES)
install(
DIRECTORY
"${PROJECT_BINARY_DIR}/include/"
DESTINATION
"${CMAKE_INSTALL_INCLUDEDIR}"
)
endif()
# xtb-parameters
install(
FILES
"${PROJECT_SOURCE_DIR}/param_gfn0-xtb.txt"
"${PROJECT_SOURCE_DIR}/param_gfn1-xtb.txt"
"${PROJECT_SOURCE_DIR}/param_gfn1-si-xtb.txt"
"${PROJECT_SOURCE_DIR}/param_gfn2-xtb.txt"
"${PROJECT_SOURCE_DIR}/param_ipea-xtb.txt"
"${PROJECT_SOURCE_DIR}/.param_gfnff.xtb"
DESTINATION
"${CMAKE_INSTALL_DATADIR}/${PROJECT_NAME}"
)
# Build output artifacts
if (WITH_OBJECT)
install(
TARGETS
"lib-${PROJECT_NAME}-static"
"lib-${PROJECT_NAME}-shared"
"${PROJECT_NAME}-exe"
EXPORT "${PROJECT_NAME}-targets"
LIBRARY DESTINATION "${CMAKE_INSTALL_LIBDIR}"
ARCHIVE DESTINATION "${CMAKE_INSTALL_LIBDIR}"
RUNTIME DESTINATION "${CMAKE_INSTALL_BINDIR}"
INCLUDES DESTINATION "${CMAKE_INSTALL_INCLUDEDIR}"
)
else()
install(
TARGETS
"lib-${PROJECT_NAME}-static"
"${PROJECT_NAME}-exe"
EXPORT "${PROJECT_NAME}-targets"
ARCHIVE DESTINATION "${CMAKE_INSTALL_LIBDIR}"
RUNTIME DESTINATION "${CMAKE_INSTALL_BINDIR}"
INCLUDES DESTINATION "${CMAKE_INSTALL_INCLUDEDIR}"
)
endif()
# CMake package files
include(CMakePackageConfigHelpers)
# -- Config version file
write_basic_package_version_file(
"${PROJECT_BINARY_DIR}/${PROJECT_NAME}-config-version.cmake"
VERSION "${PROJECT_VERSION}"
COMPATIBILITY AnyNewerVersion
)
# -- Config file
configure_package_config_file(
"${PROJECT_SOURCE_DIR}/cmake/config.cmake.in"
"${PROJECT_BINARY_DIR}/${PROJECT_NAME}-config.cmake"
INSTALL_DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/${PROJECT_NAME}"
)
# -- Install config and configVersion
install(
FILES
"${PROJECT_BINARY_DIR}/${PROJECT_NAME}-config.cmake"
"${PROJECT_BINARY_DIR}/${PROJECT_NAME}-config-version.cmake"
DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/${PROJECT_NAME}"
)
# -- Targets file
# -- This makes the project importable from the build directory
export(
EXPORT "${PROJECT_NAME}-targets"
FILE "${PROJECT_BINARY_DIR}/${PROJECT_NAME}-targets.cmake"
)
# -- This makes the project importable from the install directory
install(
EXPORT "${PROJECT_NAME}-targets"
FILE "${PROJECT_NAME}-targets.cmake"
DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/${PROJECT_NAME}"
)
# Tests
add_subdirectory("test")
xtb-6.7.1/CONTRIBUTING.md 0000664 0000000 0000000 00000011560 14650006642 0014561 0 ustar 00root root 0000000 0000000 # Contributing to xTB
First off, thank you for considering contributing to `xtb`.
Please take a moment to review this guidelines to make the contribution process
simple and effective for all involved.
Respecting these guidelines helps communicate that you respect the time of
the developers who manage and develop this open source project.
In return, they should return this respect by addressing your problem,
evaluating changes, and helping you handle your pull requests.
## Reporting a Bug
A bug is a *demonstratable problem* caused by the code in this repository.
Good bug reports are extremely valuable for us - thank you!
Before opening a bug report:
1. Check if the issue has already been reported.
2. Check if it still is an issue or has already been fixed?
Try to reproduce it with the latest version from the `master` branch.
3. Isolate the problem and create a reduced test case.
A good bug report should not leave others needing to chase you up for more
information. So please try to be as detailed as possible in your report,
answer at least these questions:
1. Which version of `xtb` are you using? The current version is always
a subject to change, so be more specific.
2. What is your environment (your laptop, the cluster of the university)?
3. What steps will reproduce the issue?
We have to reproduce the issue, so we need all the input files.
4. What would be the expected outcome?
5. What did you see instead?
All these details will help people to fix any potential bugs.
## Suggesting a New Feature
Feature requests are welcome. But take a moment to find out if your idea fits
the scope and goals of the project. It is up to you to provide a strong
argument to convince the project's developers of the benefits of this feature.
Please provide as much detail and context as possible.
## Implementing a New Feature
Contributions are welcome via Github pull requests.
- Each pull request should implement *one* feature or fix *one* bug.
If you want to add or fix more than one thing, submit more than one
pull request.
- Do not commit changes to files that are irrelevant to your feature or
bugfix (*e.g.* `.gitignore`).
- Be willing to accept criticism and work on improving your code.
- Do not add third-party dependencies, the `xtb` binary should be usable as
standalone.
- Make sure the code compiles and the tests run successful on more than
your local machine (*e.g.* on cluster of your university).
Please sign-off your commits
### For New Contributors
If you never created a pull request before, welcome :tada:.
You can learn how from [this great tutorial](https://app.egghead.io/courses/how-to-contribute-to-an-open-source-project-on-github)
Don't know where to start?
You can start by looking through these [help-wanted issues](https://github.com/grimme-lab/xtb/issues?q=label%3A%22help+wanted%22+is%3Aissue+is%3Aopen).
## Sign Your Work
The sign-off is a simple line at the end of the explanation for a commit. All
commits needs to be signed. Your signature certifies that you wrote the patch or
otherwise have the right to contribute the material. The rules are pretty simple,
if you can certify the below (from [developercertificate.org](https://developercertificate.org/)):
```
Developer Certificate of Origin
Version 1.1
Copyright (C) 2004, 2006 The Linux Foundation and its contributors.
1 Letterman Drive
Suite D4700
San Francisco, CA, 94129
Everyone is permitted to copy and distribute verbatim copies of this
license document, but changing it is not allowed.
Developer's Certificate of Origin 1.1
By making a contribution to this project, I certify that:
(a) The contribution was created in whole or in part by me and I
have the right to submit it under the open source license
indicated in the file; or
(b) The contribution is based upon previous work that, to the best
of my knowledge, is covered under an appropriate open source
license and I have the right under that license to submit that
work with modifications, whether created in whole or in part
by me, under the same open source license (unless I am
permitted to submit under a different license), as indicated
in the file; or
(c) The contribution was provided directly to me by some other
person who certified (a), (b) or (c) and I have not modified
it.
(d) I understand and agree that this project and the contribution
are public and that a record of the contribution (including all
personal information I submit with it, including my sign-off) is
maintained indefinitely and may be redistributed consistent with
this project or the open source license(s) involved.
```
Then you just add a line to every git commit message:
Signed-off-by: Joe Smith
Use your real name (sorry, no pseudonyms or anonymous contributions.)
If you set your `user.name` and `user.email` git configs, you can sign your
commit automatically with `git commit -s`.
xtb-6.7.1/COPYING 0000664 0000000 0000000 00000104515 14650006642 0013366 0 ustar 00root root 0000000 0000000 GNU GENERAL PUBLIC LICENSE
Version 3, 29 June 2007
Copyright (C) 2007 Free Software Foundation, Inc.
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The GNU General Public License is a free, copyleft license for
software and other kinds of works.
The licenses for most software and other practical works are designed
to take away your freedom to share and change the works. By contrast,
the GNU General Public License is intended to guarantee your freedom to
share and change all versions of a program--to make sure it remains free
software for all its users. We, the Free Software Foundation, use the
GNU General Public License for most of our software; it applies also to
any other work released this way by its authors. You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
them if you wish), that you receive source code or can get it if you
want it, that you can change the software or use pieces of it in new
free programs, and that you know you can do these things.
To protect your rights, we need to prevent others from denying you
these rights or asking you to surrender the rights. Therefore, you have
certain responsibilities if you distribute copies of the software, or if
you modify it: responsibilities to respect the freedom of others.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must pass on to the recipients the same
freedoms that you received. You must make sure that they, too, receive
or can get the source code. And you must show them these terms so they
know their rights.
Developers that use the GNU GPL protect your rights with two steps:
(1) assert copyright on the software, and (2) offer you this License
giving you legal permission to copy, distribute and/or modify it.
For the developers' and authors' protection, the GPL clearly explains
that there is no warranty for this free software. For both users' and
authors' sake, the GPL requires that modified versions be marked as
changed, so that their problems will not be attributed erroneously to
authors of previous versions.
Some devices are designed to deny users access to install or run
modified versions of the software inside them, although the manufacturer
can do so. This is fundamentally incompatible with the aim of
protecting users' freedom to change the software. The systematic
pattern of such abuse occurs in the area of products for individuals to
use, which is precisely where it is most unacceptable. Therefore, we
have designed this version of the GPL to prohibit the practice for those
products. If such problems arise substantially in other domains, we
stand ready to extend this provision to those domains in future versions
of the GPL, as needed to protect the freedom of users.
Finally, every program is threatened constantly by software patents.
States should not allow patents to restrict development and use of
software on general-purpose computers, but in those that do, we wish to
avoid the special danger that patents applied to a free program could
make it effectively proprietary. To prevent this, the GPL assures that
patents cannot be used to render the program non-free.
The precise terms and conditions for copying, distribution and
modification follow.
TERMS AND CONDITIONS
0. Definitions.
"This License" refers to version 3 of the GNU General Public License.
"Copyright" also means copyright-like laws that apply to other kinds of
works, such as semiconductor masks.
"The Program" refers to any copyrightable work licensed under this
License. Each licensee is addressed as "you". "Licensees" and
"recipients" may be individuals or organizations.
To "modify" a work means to copy from or adapt all or part of the work
in a fashion requiring copyright permission, other than the making of an
exact copy. The resulting work is called a "modified version" of the
earlier work or a work "based on" the earlier work.
A "covered work" means either the unmodified Program or a work based
on the Program.
To "propagate" a work means to do anything with it that, without
permission, would make you directly or secondarily liable for
infringement under applicable copyright law, except executing it on a
computer or modifying a private copy. Propagation includes copying,
distribution (with or without modification), making available to the
public, and in some countries other activities as well.
To "convey" a work means any kind of propagation that enables other
parties to make or receive copies. Mere interaction with a user through
a computer network, with no transfer of a copy, is not conveying.
An interactive user interface displays "Appropriate Legal Notices"
to the extent that it includes a convenient and prominently visible
feature that (1) displays an appropriate copyright notice, and (2)
tells the user that there is no warranty for the work (except to the
extent that warranties are provided), that licensees may convey the
work under this License, and how to view a copy of this License. If
the interface presents a list of user commands or options, such as a
menu, a prominent item in the list meets this criterion.
1. Source Code.
The "source code" for a work means the preferred form of the work
for making modifications to it. "Object code" means any non-source
form of a work.
A "Standard Interface" means an interface that either is an official
standard defined by a recognized standards body, or, in the case of
interfaces specified for a particular programming language, one that
is widely used among developers working in that language.
The "System Libraries" of an executable work include anything, other
than the work as a whole, that (a) is included in the normal form of
packaging a Major Component, but which is not part of that Major
Component, and (b) serves only to enable use of the work with that
Major Component, or to implement a Standard Interface for which an
implementation is available to the public in source code form. A
"Major Component", in this context, means a major essential component
(kernel, window system, and so on) of the specific operating system
(if any) on which the executable work runs, or a compiler used to
produce the work, or an object code interpreter used to run it.
The "Corresponding Source" for a work in object code form means all
the source code needed to generate, install, and (for an executable
work) run the object code and to modify the work, including scripts to
control those activities. However, it does not include the work's
System Libraries, or general-purpose tools or generally available free
programs which are used unmodified in performing those activities but
which are not part of the work. For example, Corresponding Source
includes interface definition files associated with source files for
the work, and the source code for shared libraries and dynamically
linked subprograms that the work is specifically designed to require,
such as by intimate data communication or control flow between those
subprograms and other parts of the work.
The Corresponding Source need not include anything that users
can regenerate automatically from other parts of the Corresponding
Source.
The Corresponding Source for a work in source code form is that
same work.
2. Basic Permissions.
All rights granted under this License are granted for the term of
copyright on the Program, and are irrevocable provided the stated
conditions are met. This License explicitly affirms your unlimited
permission to run the unmodified Program. The output from running a
covered work is covered by this License only if the output, given its
content, constitutes a covered work. This License acknowledges your
rights of fair use or other equivalent, as provided by copyright law.
You may make, run and propagate covered works that you do not
convey, without conditions so long as your license otherwise remains
in force. You may convey covered works to others for the sole purpose
of having them make modifications exclusively for you, or provide you
with facilities for running those works, provided that you comply with
the terms of this License in conveying all material for which you do
not control copyright. Those thus making or running the covered works
for you must do so exclusively on your behalf, under your direction
and control, on terms that prohibit them from making any copies of
your copyrighted material outside their relationship with you.
Conveying under any other circumstances is permitted solely under
the conditions stated below. Sublicensing is not allowed; section 10
makes it unnecessary.
3. Protecting Users' Legal Rights From Anti-Circumvention Law.
No covered work shall be deemed part of an effective technological
measure under any applicable law fulfilling obligations under article
11 of the WIPO copyright treaty adopted on 20 December 1996, or
similar laws prohibiting or restricting circumvention of such
measures.
When you convey a covered work, you waive any legal power to forbid
circumvention of technological measures to the extent such circumvention
is effected by exercising rights under this License with respect to
the covered work, and you disclaim any intention to limit operation or
modification of the work as a means of enforcing, against the work's
users, your or third parties' legal rights to forbid circumvention of
technological measures.
4. Conveying Verbatim Copies.
You may convey verbatim copies of the Program's source code as you
receive it, in any medium, provided that you conspicuously and
appropriately publish on each copy an appropriate copyright notice;
keep intact all notices stating that this License and any
non-permissive terms added in accord with section 7 apply to the code;
keep intact all notices of the absence of any warranty; and give all
recipients a copy of this License along with the Program.
You may charge any price or no price for each copy that you convey,
and you may offer support or warranty protection for a fee.
5. Conveying Modified Source Versions.
You may convey a work based on the Program, or the modifications to
produce it from the Program, in the form of source code under the
terms of section 4, provided that you also meet all of these conditions:
a) The work must carry prominent notices stating that you modified
it, and giving a relevant date.
b) The work must carry prominent notices stating that it is
released under this License and any conditions added under section
7. This requirement modifies the requirement in section 4 to
"keep intact all notices".
c) You must license the entire work, as a whole, under this
License to anyone who comes into possession of a copy. This
License will therefore apply, along with any applicable section 7
additional terms, to the whole of the work, and all its parts,
regardless of how they are packaged. This License gives no
permission to license the work in any other way, but it does not
invalidate such permission if you have separately received it.
d) If the work has interactive user interfaces, each must display
Appropriate Legal Notices; however, if the Program has interactive
interfaces that do not display Appropriate Legal Notices, your
work need not make them do so.
A compilation of a covered work with other separate and independent
works, which are not by their nature extensions of the covered work,
and which are not combined with it such as to form a larger program,
in or on a volume of a storage or distribution medium, is called an
"aggregate" if the compilation and its resulting copyright are not
used to limit the access or legal rights of the compilation's users
beyond what the individual works permit. Inclusion of a covered work
in an aggregate does not cause this License to apply to the other
parts of the aggregate.
6. Conveying Non-Source Forms.
You may convey a covered work in object code form under the terms
of sections 4 and 5, provided that you also convey the
machine-readable Corresponding Source under the terms of this License,
in one of these ways:
a) Convey the object code in, or embodied in, a physical product
(including a physical distribution medium), accompanied by the
Corresponding Source fixed on a durable physical medium
customarily used for software interchange.
b) Convey the object code in, or embodied in, a physical product
(including a physical distribution medium), accompanied by a
written offer, valid for at least three years and valid for as
long as you offer spare parts or customer support for that product
model, to give anyone who possesses the object code either (1) a
copy of the Corresponding Source for all the software in the
product that is covered by this License, on a durable physical
medium customarily used for software interchange, for a price no
more than your reasonable cost of physically performing this
conveying of source, or (2) access to copy the
Corresponding Source from a network server at no charge.
c) Convey individual copies of the object code with a copy of the
written offer to provide the Corresponding Source. This
alternative is allowed only occasionally and noncommercially, and
only if you received the object code with such an offer, in accord
with subsection 6b.
d) Convey the object code by offering access from a designated
place (gratis or for a charge), and offer equivalent access to the
Corresponding Source in the same way through the same place at no
further charge. You need not require recipients to copy the
Corresponding Source along with the object code. If the place to
copy the object code is a network server, the Corresponding Source
may be on a different server (operated by you or a third party)
that supports equivalent copying facilities, provided you maintain
clear directions next to the object code saying where to find the
Corresponding Source. Regardless of what server hosts the
Corresponding Source, you remain obligated to ensure that it is
available for as long as needed to satisfy these requirements.
e) Convey the object code using peer-to-peer transmission, provided
you inform other peers where the object code and Corresponding
Source of the work are being offered to the general public at no
charge under subsection 6d.
A separable portion of the object code, whose source code is excluded
from the Corresponding Source as a System Library, need not be
included in conveying the object code work.
A "User Product" is either (1) a "consumer product", which means any
tangible personal property which is normally used for personal, family,
or household purposes, or (2) anything designed or sold for incorporation
into a dwelling. In determining whether a product is a consumer product,
doubtful cases shall be resolved in favor of coverage. For a particular
product received by a particular user, "normally used" refers to a
typical or common use of that class of product, regardless of the status
of the particular user or of the way in which the particular user
actually uses, or expects or is expected to use, the product. A product
is a consumer product regardless of whether the product has substantial
commercial, industrial or non-consumer uses, unless such uses represent
the only significant mode of use of the product.
"Installation Information" for a User Product means any methods,
procedures, authorization keys, or other information required to install
and execute modified versions of a covered work in that User Product from
a modified version of its Corresponding Source. The information must
suffice to ensure that the continued functioning of the modified object
code is in no case prevented or interfered with solely because
modification has been made.
If you convey an object code work under this section in, or with, or
specifically for use in, a User Product, and the conveying occurs as
part of a transaction in which the right of possession and use of the
User Product is transferred to the recipient in perpetuity or for a
fixed term (regardless of how the transaction is characterized), the
Corresponding Source conveyed under this section must be accompanied
by the Installation Information. But this requirement does not apply
if neither you nor any third party retains the ability to install
modified object code on the User Product (for example, the work has
been installed in ROM).
The requirement to provide Installation Information does not include a
requirement to continue to provide support service, warranty, or updates
for a work that has been modified or installed by the recipient, or for
the User Product in which it has been modified or installed. Access to a
network may be denied when the modification itself materially and
adversely affects the operation of the network or violates the rules and
protocols for communication across the network.
Corresponding Source conveyed, and Installation Information provided,
in accord with this section must be in a format that is publicly
documented (and with an implementation available to the public in
source code form), and must require no special password or key for
unpacking, reading or copying.
7. Additional Terms.
"Additional permissions" are terms that supplement the terms of this
License by making exceptions from one or more of its conditions.
Additional permissions that are applicable to the entire Program shall
be treated as though they were included in this License, to the extent
that they are valid under applicable law. If additional permissions
apply only to part of the Program, that part may be used separately
under those permissions, but the entire Program remains governed by
this License without regard to the additional permissions.
When you convey a copy of a covered work, you may at your option
remove any additional permissions from that copy, or from any part of
it. (Additional permissions may be written to require their own
removal in certain cases when you modify the work.) You may place
additional permissions on material, added by you to a covered work,
for which you have or can give appropriate copyright permission.
Notwithstanding any other provision of this License, for material you
add to a covered work, you may (if authorized by the copyright holders of
that material) supplement the terms of this License with terms:
a) Disclaiming warranty or limiting liability differently from the
terms of sections 15 and 16 of this License; or
b) Requiring preservation of specified reasonable legal notices or
author attributions in that material or in the Appropriate Legal
Notices displayed by works containing it; or
c) Prohibiting misrepresentation of the origin of that material, or
requiring that modified versions of such material be marked in
reasonable ways as different from the original version; or
d) Limiting the use for publicity purposes of names of licensors or
authors of the material; or
e) Declining to grant rights under trademark law for use of some
trade names, trademarks, or service marks; or
f) Requiring indemnification of licensors and authors of that
material by anyone who conveys the material (or modified versions of
it) with contractual assumptions of liability to the recipient, for
any liability that these contractual assumptions directly impose on
those licensors and authors.
All other non-permissive additional terms are considered "further
restrictions" within the meaning of section 10. If the Program as you
received it, or any part of it, contains a notice stating that it is
governed by this License along with a term that is a further
restriction, you may remove that term. If a license document contains
a further restriction but permits relicensing or conveying under this
License, you may add to a covered work material governed by the terms
of that license document, provided that the further restriction does
not survive such relicensing or conveying.
If you add terms to a covered work in accord with this section, you
must place, in the relevant source files, a statement of the
additional terms that apply to those files, or a notice indicating
where to find the applicable terms.
Additional terms, permissive or non-permissive, may be stated in the
form of a separately written license, or stated as exceptions;
the above requirements apply either way.
8. Termination.
You may not propagate or modify a covered work except as expressly
provided under this License. Any attempt otherwise to propagate or
modify it is void, and will automatically terminate your rights under
this License (including any patent licenses granted under the third
paragraph of section 11).
However, if you cease all violation of this License, then your
license from a particular copyright holder is reinstated (a)
provisionally, unless and until the copyright holder explicitly and
finally terminates your license, and (b) permanently, if the copyright
holder fails to notify you of the violation by some reasonable means
prior to 60 days after the cessation.
Moreover, your license from a particular copyright holder is
reinstated permanently if the copyright holder notifies you of the
violation by some reasonable means, this is the first time you have
received notice of violation of this License (for any work) from that
copyright holder, and you cure the violation prior to 30 days after
your receipt of the notice.
Termination of your rights under this section does not terminate the
licenses of parties who have received copies or rights from you under
this License. If your rights have been terminated and not permanently
reinstated, you do not qualify to receive new licenses for the same
material under section 10.
9. Acceptance Not Required for Having Copies.
You are not required to accept this License in order to receive or
run a copy of the Program. Ancillary propagation of a covered work
occurring solely as a consequence of using peer-to-peer transmission
to receive a copy likewise does not require acceptance. However,
nothing other than this License grants you permission to propagate or
modify any covered work. These actions infringe copyright if you do
not accept this License. Therefore, by modifying or propagating a
covered work, you indicate your acceptance of this License to do so.
10. Automatic Licensing of Downstream Recipients.
Each time you convey a covered work, the recipient automatically
receives a license from the original licensors, to run, modify and
propagate that work, subject to this License. You are not responsible
for enforcing compliance by third parties with this License.
An "entity transaction" is a transaction transferring control of an
organization, or substantially all assets of one, or subdividing an
organization, or merging organizations. If propagation of a covered
work results from an entity transaction, each party to that
transaction who receives a copy of the work also receives whatever
licenses to the work the party's predecessor in interest had or could
give under the previous paragraph, plus a right to possession of the
Corresponding Source of the work from the predecessor in interest, if
the predecessor has it or can get it with reasonable efforts.
You may not impose any further restrictions on the exercise of the
rights granted or affirmed under this License. For example, you may
not impose a license fee, royalty, or other charge for exercise of
rights granted under this License, and you may not initiate litigation
(including a cross-claim or counterclaim in a lawsuit) alleging that
any patent claim is infringed by making, using, selling, offering for
sale, or importing the Program or any portion of it.
11. Patents.
A "contributor" is a copyright holder who authorizes use under this
License of the Program or a work on which the Program is based. The
work thus licensed is called the contributor's "contributor version".
A contributor's "essential patent claims" are all patent claims
owned or controlled by the contributor, whether already acquired or
hereafter acquired, that would be infringed by some manner, permitted
by this License, of making, using, or selling its contributor version,
but do not include claims that would be infringed only as a
consequence of further modification of the contributor version. For
purposes of this definition, "control" includes the right to grant
patent sublicenses in a manner consistent with the requirements of
this License.
Each contributor grants you a non-exclusive, worldwide, royalty-free
patent license under the contributor's essential patent claims, to
make, use, sell, offer for sale, import and otherwise run, modify and
propagate the contents of its contributor version.
In the following three paragraphs, a "patent license" is any express
agreement or commitment, however denominated, not to enforce a patent
(such as an express permission to practice a patent or covenant not to
sue for patent infringement). To "grant" such a patent license to a
party means to make such an agreement or commitment not to enforce a
patent against the party.
If you convey a covered work, knowingly relying on a patent license,
and the Corresponding Source of the work is not available for anyone
to copy, free of charge and under the terms of this License, through a
publicly available network server or other readily accessible means,
then you must either (1) cause the Corresponding Source to be so
available, or (2) arrange to deprive yourself of the benefit of the
patent license for this particular work, or (3) arrange, in a manner
consistent with the requirements of this License, to extend the patent
license to downstream recipients. "Knowingly relying" means you have
actual knowledge that, but for the patent license, your conveying the
covered work in a country, or your recipient's use of the covered work
in a country, would infringe one or more identifiable patents in that
country that you have reason to believe are valid.
If, pursuant to or in connection with a single transaction or
arrangement, you convey, or propagate by procuring conveyance of, a
covered work, and grant a patent license to some of the parties
receiving the covered work authorizing them to use, propagate, modify
or convey a specific copy of the covered work, then the patent license
you grant is automatically extended to all recipients of the covered
work and works based on it.
A patent license is "discriminatory" if it does not include within
the scope of its coverage, prohibits the exercise of, or is
conditioned on the non-exercise of one or more of the rights that are
specifically granted under this License. You may not convey a covered
work if you are a party to an arrangement with a third party that is
in the business of distributing software, under which you make payment
to the third party based on the extent of your activity of conveying
the work, and under which the third party grants, to any of the
parties who would receive the covered work from you, a discriminatory
patent license (a) in connection with copies of the covered work
conveyed by you (or copies made from those copies), or (b) primarily
for and in connection with specific products or compilations that
contain the covered work, unless you entered into that arrangement,
or that patent license was granted, prior to 28 March 2007.
Nothing in this License shall be construed as excluding or limiting
any implied license or other defenses to infringement that may
otherwise be available to you under applicable patent law.
12. No Surrender of Others' Freedom.
If conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot convey a
covered work so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you may
not convey it at all. For example, if you agree to terms that obligate you
to collect a royalty for further conveying from those to whom you convey
the Program, the only way you could satisfy both those terms and this
License would be to refrain entirely from conveying the Program.
13. Use with the GNU Affero General Public License.
Notwithstanding any other provision of this License, you have
permission to link or combine any covered work with a work licensed
under version 3 of the GNU Affero General Public License into a single
combined work, and to convey the resulting work. The terms of this
License will continue to apply to the part which is the covered work,
but the special requirements of the GNU Affero General Public License,
section 13, concerning interaction through a network will apply to the
combination as such.
14. Revised Versions of this License.
The Free Software Foundation may publish revised and/or new versions of
the GNU General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the
Program specifies that a certain numbered version of the GNU General
Public License "or any later version" applies to it, you have the
option of following the terms and conditions either of that numbered
version or of any later version published by the Free Software
Foundation. If the Program does not specify a version number of the
GNU General Public License, you may choose any version ever published
by the Free Software Foundation.
If the Program specifies that a proxy can decide which future
versions of the GNU General Public License can be used, that proxy's
public statement of acceptance of a version permanently authorizes you
to choose that version for the Program.
Later license versions may give you additional or different
permissions. However, no additional obligations are imposed on any
author or copyright holder as a result of your choosing to follow a
later version.
15. Disclaimer of Warranty.
THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
16. Limitation of Liability.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
SUCH DAMAGES.
17. Interpretation of Sections 15 and 16.
If the disclaimer of warranty and limitation of liability provided
above cannot be given local legal effect according to their terms,
reviewing courts shall apply local law that most closely approximates
an absolute waiver of all civil liability in connection with the
Program, unless a warranty or assumption of liability accompanies a
copy of the Program in return for a fee.
END OF TERMS AND CONDITIONS
How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
state the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
Copyright (C)
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see .
Also add information on how to contact you by electronic and paper mail.
If the program does terminal interaction, make it output a short
notice like this when it starts in an interactive mode:
Copyright (C)
This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, your program's commands
might be different; for a GUI interface, you would use an "about box".
You should also get your employer (if you work as a programmer) or school,
if any, to sign a "copyright disclaimer" for the program, if necessary.
For more information on this, and how to apply and follow the GNU GPL, see
.
The GNU General Public License does not permit incorporating your program
into proprietary programs. If your program is a subroutine library, you
may consider it more useful to permit linking proprietary applications with
the library. If this is what you want to do, use the GNU Lesser General
Public License instead of this License. But first, please read
.
xtb-6.7.1/COPYING.LESSER 0000664 0000000 0000000 00000016744 14650006642 0014370 0 ustar 00root root 0000000 0000000 GNU LESSER GENERAL PUBLIC LICENSE
Version 3, 29 June 2007
Copyright (C) 2007 Free Software Foundation, Inc.
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
This version of the GNU Lesser General Public License incorporates
the terms and conditions of version 3 of the GNU General Public
License, supplemented by the additional permissions listed below.
0. Additional Definitions.
As used herein, "this License" refers to version 3 of the GNU Lesser
General Public License, and the "GNU GPL" refers to version 3 of the GNU
General Public License.
"The Library" refers to a covered work governed by this License,
other than an Application or a Combined Work as defined below.
An "Application" is any work that makes use of an interface provided
by the Library, but which is not otherwise based on the Library.
Defining a subclass of a class defined by the Library is deemed a mode
of using an interface provided by the Library.
A "Combined Work" is a work produced by combining or linking an
Application with the Library. The particular version of the Library
with which the Combined Work was made is also called the "Linked
Version".
The "Minimal Corresponding Source" for a Combined Work means the
Corresponding Source for the Combined Work, excluding any source code
for portions of the Combined Work that, considered in isolation, are
based on the Application, and not on the Linked Version.
The "Corresponding Application Code" for a Combined Work means the
object code and/or source code for the Application, including any data
and utility programs needed for reproducing the Combined Work from the
Application, but excluding the System Libraries of the Combined Work.
1. Exception to Section 3 of the GNU GPL.
You may convey a covered work under sections 3 and 4 of this License
without being bound by section 3 of the GNU GPL.
2. Conveying Modified Versions.
If you modify a copy of the Library, and, in your modifications, a
facility refers to a function or data to be supplied by an Application
that uses the facility (other than as an argument passed when the
facility is invoked), then you may convey a copy of the modified
version:
a) under this License, provided that you make a good faith effort to
ensure that, in the event an Application does not supply the
function or data, the facility still operates, and performs
whatever part of its purpose remains meaningful, or
b) under the GNU GPL, with none of the additional permissions of
this License applicable to that copy.
3. Object Code Incorporating Material from Library Header Files.
The object code form of an Application may incorporate material from
a header file that is part of the Library. You may convey such object
code under terms of your choice, provided that, if the incorporated
material is not limited to numerical parameters, data structure
layouts and accessors, or small macros, inline functions and templates
(ten or fewer lines in length), you do both of the following:
a) Give prominent notice with each copy of the object code that the
Library is used in it and that the Library and its use are
covered by this License.
b) Accompany the object code with a copy of the GNU GPL and this license
document.
4. Combined Works.
You may convey a Combined Work under terms of your choice that,
taken together, effectively do not restrict modification of the
portions of the Library contained in the Combined Work and reverse
engineering for debugging such modifications, if you also do each of
the following:
a) Give prominent notice with each copy of the Combined Work that
the Library is used in it and that the Library and its use are
covered by this License.
b) Accompany the Combined Work with a copy of the GNU GPL and this license
document.
c) For a Combined Work that displays copyright notices during
execution, include the copyright notice for the Library among
these notices, as well as a reference directing the user to the
copies of the GNU GPL and this license document.
d) Do one of the following:
0) Convey the Minimal Corresponding Source under the terms of this
License, and the Corresponding Application Code in a form
suitable for, and under terms that permit, the user to
recombine or relink the Application with a modified version of
the Linked Version to produce a modified Combined Work, in the
manner specified by section 6 of the GNU GPL for conveying
Corresponding Source.
1) Use a suitable shared library mechanism for linking with the
Library. A suitable mechanism is one that (a) uses at run time
a copy of the Library already present on the user's computer
system, and (b) will operate properly with a modified version
of the Library that is interface-compatible with the Linked
Version.
e) Provide Installation Information, but only if you would otherwise
be required to provide such information under section 6 of the
GNU GPL, and only to the extent that such information is
necessary to install and execute a modified version of the
Combined Work produced by recombining or relinking the
Application with a modified version of the Linked Version. (If
you use option 4d0, the Installation Information must accompany
the Minimal Corresponding Source and Corresponding Application
Code. If you use option 4d1, you must provide the Installation
Information in the manner specified by section 6 of the GNU GPL
for conveying Corresponding Source.)
5. Combined Libraries.
You may place library facilities that are a work based on the
Library side by side in a single library together with other library
facilities that are not Applications and are not covered by this
License, and convey such a combined library under terms of your
choice, if you do both of the following:
a) Accompany the combined library with a copy of the same work based
on the Library, uncombined with any other library facilities,
conveyed under the terms of this License.
b) Give prominent notice with the combined library that part of it
is a work based on the Library, and explaining where to find the
accompanying uncombined form of the same work.
6. Revised Versions of the GNU Lesser General Public License.
The Free Software Foundation may publish revised and/or new versions
of the GNU Lesser General Public License from time to time. Such new
versions will be similar in spirit to the present version, but may
differ in detail to address new problems or concerns.
Each version is given a distinguishing version number. If the
Library as you received it specifies that a certain numbered version
of the GNU Lesser General Public License "or any later version"
applies to it, you have the option of following the terms and
conditions either of that published version or of any later version
published by the Free Software Foundation. If the Library as you
received it does not specify a version number of the GNU Lesser
General Public License, you may choose any version of the GNU Lesser
General Public License ever published by the Free Software Foundation.
If the Library as you received it specifies that a proxy can decide
whether future versions of the GNU Lesser General Public License shall
apply, that proxy's public statement of acceptance of any version is
permanent authorization for you to choose that version for the
Library.
xtb-6.7.1/README.md 0000664 0000000 0000000 00000024305 14650006642 0013610 0 ustar 00root root 0000000 0000000 # Semiempirical Extended Tight-Binding Program Package
[](https://github.com/grimme-lab/xtb/blob/master/COPYING)
[](https://github.com/grimme-lab/xtb/releases/latest)
[](https://doi.org/10.1002/wcms.1493)
[](https://github.com/grimme-lab/xtb/releases)
This is the offical repository of the `xtb` program package developed by the Grimme group in Bonn.
## Installation
[](https://github.com/grimme-lab/xtb/actions)
Statically linked binaries (Intel Compiler) can be found at the [latest release page](https://github.com/grimme-lab/xtb/releases/latest), a version for Linux (Intel 18.0.2, GLIBC 2.19) and Windows (Intel 2022) is provided.
The `xtb` program and library are packaged on conda-forge for Linux (x86\_64, aarch64, ppc64le) and MacOS (x86\_64, arm64).
For homebrew users a custom tap is available at [grimme-lab/homebrew-qc](https://github.com/grimme-lab/homebrew-qc) providing prebuilt MacOS/x86\_64 binaries, for MacOS/arm64 binaries will be compiled on installation automatically.
Bleeding edge releases (Linux only) of the latest source from this repository are available on the [continuous release tag](https://github.com/grimme-lab/xtb/releases/tag/bleed).
This projects supports two build systems, meson and CMake.
A short guide on the usage of each is given here, follow the linked instructions for a more detailed information ([meson guide](./meson/README.adoc), [CMake guide](./cmake/README.adoc)).
**Compilers**:
1. ifort(<=2021.10.0), icc(<=2021.10.0)
2. gfortran(<=13.2.0), gcc(<=13.2.0)
### Meson
Using [meson](https://mesonbuild.com/) as build system requires you to install a fairly new version like 0.62 or newer.
To use the default backend of meson you have to install [ninja](https://ninja-build.org/) version 1.7 or newer.
```bash
export FC=ifort CC=icc
meson setup build --buildtype release --optimization 2 -Dfortran_link_args="-qopenmp"
ninja -C build test
```
Make sure the testsuite is running without errors.
To install the `xtb` binaries to `/usr/local` use (might require `sudo`)
```bash
ninja -C build install
```
For more information on the build with meson see the instructions [here](./meson/README.adoc).
### CMake
The CMake build system requires both make and CMake to be installed, the latter has to be version 3.9 or newer.
Building `xtb` with CMake works with the following chain of commands:
```bash
cmake -B build -DCMAKE_BUILD_TYPE=Release
make -C build
make -C build test
```
To install the `xtb` binaries to `/usr/local` use (might require `sudo`)
```bash
make -C build install
```
For more detailed information on the build with CMake see the instructions [here](./cmake/README.adoc).
### Conda
[](https://anaconda.org/conda-forge/xtb)
Installing `xtb` from the `conda-forge` channel can be achieved by adding `conda-forge` to your channels with:
```
conda config --add channels conda-forge
```
Once the `conda-forge` channel has been enabled, `xtb` can be installed with:
```
conda install xtb
```
It is possible to list all of the versions of `xtb` available on your platform with:
```
conda search xtb --channel conda-forge
```
## Documentation
[](https://xtb-docs.readthedocs.io/en/latest/?badge=latest)
The `xtb` documentation is hosted at [read-the-docs](https://xtb-docs.readthedocs.io/en/latest/).
## Contributing
Please read our [contributing guidelines](CONTRIBUTING.md)
before contributing to this project.
### Contributors
We are developing this program to make our research possible.
Many of the features that `xtb` has today have been added because there
was a dire need for them and we had many contributors who made these
features reality:
- P. Atkinson ([@patrickatkinson](https://github.com/patrickatkinson))
- [C. Bannwarth](https://www.ipc.rwth-aachen.de/cms/IPC/Das-Institut/IPC-Arbeitsgruppen/~onnkh) ([@cbannwarth](https://github.com/cbannwarth))
- F. Bohle ([@fabothch](https://github.com/fabothch))
- [G. Brandenburg](http://www.gerit-brandenburg.de/) ([@gbrandenburg](https://github.com/gbrandenburg))
- [E. Caldeweyher](https://eikecaldeweyher.de/) ([@f3rmion](https://github.com/f3rmion))
- M. Checinski
- S. Dohm ([@thch-dohm](https://github.com/thch-dohm))
- S. Ehlert ([@awvwgk](https://github.com/awvwgk))
- S. Ehrlich
- I. Gerasimov ([@foxtran](https://github.com/foxtran))
- [S. Grimme](https://www.chemie.uni-bonn.de/pctc/mulliken-center/grimme/) ([@stefangrimme](https://github.com/stefangrimme))
- C. Hölzer ([@hoelzerC](https://github.com/hoelzerc))
- A. Katbashev ([@Albkat](https://github.com/albkat))
- J. Koopman ([@JayTheDog](https://github.com/jaythedog))
- C. Lavinge ([@clavigne](https://github.com/clavigne))
- S. Lehtola ([@susilehtola](https://github.com/susilehtola))
- F. März
- M. Müller ([@marcelmbn](https://github.com/marcelmbn))
- F. Musil ([@felixmusil](https://github.com/felixmusil))
- H. Neugebauer ([@haneug](https://github.com/haneug))
- J. Pisarek
- C. Plett ([@cplett](https://github.com/cplett))
- P. Pracht ([@pprcht](https://github.com/pprcht))
- F. Pultar ([@pultar](https://github.com/pultar))
- J. Seibert ([@liljay42](https://github.com/liljay42))
- P. Shushkov
- S. Spicher ([@sespic](https://github.com/sespic))
- M. Stahn ([@MtoLStoN](https://github.com/mtolston))
- M. Steiner ([@steinmig](https://github.com/steinmig))
- T. Strunk ([@timostrunk](https://github.com/timostrunk))
- J. Stückrath ([@jbstueckrath](https://github.com/jbstueckrath))
- T. Rose ([@Thomas3R](https://github.com/thomas3r))
- J. Unsleber ([@nabbelbabbel](https://github.com/nabbelbabbel))
Contributors are listed in alphabetical order.
Some contributions predate the GitHub release of this project and are not visible in the repository commit history.
For the contributor data from the commit history since then look [here](https://github.com/grimme-lab/xtb/graphs/contributors).
## Citations
General Reference to `xtb` and the implemented GFN methods:
- C. Bannwarth, E. Caldeweyher, S. Ehlert, A. Hansen, P. Pracht, J. Seibert, S. Spicher, S. Grimme
*WIREs Comput. Mol. Sci.*, **2020**, 11, e01493.
DOI: [10.1002/wcms.1493](https://doi.org/10.1002/wcms.1493)
for GFN-xTB:
- S. Grimme, C. Bannwarth, P. Shushkov, *J. Chem. Theory Comput.*, **2017**, 13, 1989-2009.
DOI: [10.1021/acs.jctc.7b00118](https://dx.doi.org/10.1021/acs.jctc.7b00118)
- C. Bannwarth, S. Ehlert and S. Grimme., *J. Chem. Theory Comput.*, **2019**, 15, 1652-1671.
DOI: [10.1021/acs.jctc.8b01176](https://dx.doi.org/10.1021/acs.jctc.8b01176)
- P. Pracht, E. Caldeweyher, S. Ehlert, S. Grimme, *ChemRxiv*, **2019**, preprint.
DOI: [10.26434/chemrxiv.8326202.v1](https://dx.doi.org/10.26434/chemrxiv.8326202.v1)
for GFN-FF:
- S. Spicher and S. Grimme, *Angew. Chem. Int. Ed.*, **2020**, 59, 15665–15673
DOI: [10.1002/anie.202004239](https://doi.org/10.1002/anie.202004239)
for GBSA and ALPB implicit solvation:
- S. Ehlert, M. Stahn, S. Spicher, S. Grimme,
*J. Chem. Theory Comput.*, **2021**, 17, 4250-4261
DOI: [10.1021/acs.jctc.1c00471](https://doi.org/10.1021/acs.jctc.1c00471)
for ddCOSMO and CPCM-X implicit solvation:
- M.Stahn, S. Ehlert, S. Grimme,
*J. Phys. Chem. A*, **2023**, XX, XXX-XXX
DOI: [10.1021/acs.jpca.3c04382](https://doi.org/10.1021/acs.jpca.3c04382)
for DFT-D4:
- E. Caldeweyher, C. Bannwarth and S. Grimme, *J. Chem. Phys.*, **2017**, 147, 034112.
DOI: [10.1063/1.4993215](https://dx.doi.org/10.1063/1.4993215)
- E. Caldeweyher, S. Ehlert, A. Hansen, H. Neugebauer, S. Spicher, C. Bannwarth and S. Grimme, *J. Chem. Phys.*,
**2019**, 150, 154122. DOI: [10.1063/1.5090222](https://dx.doi.org/10.1063/1.5090222)
- E. Caldeweyher, J.-M. Mewes, S. Ehlert and S. Grimme, *Phys. Chem. Chem. Phys.*, **2020**, 22, 8499-8512.
DOI: [10.1039/D0CP00502A](https://dx.doi.org/10.1039/D0CP00502A)
for sTDA-xTB:
- S. Grimme and C. Bannwarth, *J. Chem. Phys.*, **2016**, 145, 054103.
DOI: [10.1063/1.4959605](https://dx.doi.org/10.1063/1.4959605)
in the mass-spec context:
- V. Asgeirsson, C. Bauer and S. Grimme, *Chem. Sci.*, **2017**, 8, 4879.
DOI: [10.1039/c7sc00601b](https://dx.doi.org/10.1039/c7sc00601b)
- J. Koopman and S. Grimme, *ACS Omega*, **2019**, 4, 12, 15120-15133.
DOI: [10.1021/acsomega.9b02011](https://dx.doi.org/10.1021/acsomega.9b02011)
- J. Koopman and S. Grimme, *J. Am. Soc. Mass Spectrom.*, **2021**, 32, 7, 1735-1751.
DOI: [10.1021/jasms.1c00098](https://dx.doi.org/10.1021/jasms.1c00098)
for metadynamics refer to:
- S. Grimme, *J. Chem. Theory Comput.*, **2019**, 155, 2847-2862.
DOI: [10.1021/acs.jctc.9b00143](https://dx.doi.org/10.1021/acs.jctc.9b00143)
for SPH calculations refer to:
- S. Spicher and S. Grimme, *J. Chem. Theory Comput.*, **2021**, 17, 1701–1714.
DOI: [10.1021/acs.jctc.0c01306](https://doi.org/10.1021/acs.jctc.0c01306)
for ONIOM refer to:
- C. Plett, A. Katbashev, S. Ehlert, S. Grimme, M. Bursch, *Phys. Chem. Chem. Phys.*, **2023**, 25, 17860-17868.
DOI: [10.1039/D3CP02178E](https://doi.org/10.1039/D3CP02178E)
All references are available in [bibtex format](./assets/references.bib).
## License
`xtb` is free software: you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
`xtb` is distributed in the hope that it will be useful,
but without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose. See the
GNU Lesser General Public License for more details.
Unless you explicitly state otherwise, any contribution intentionally
submitted for inclusion in `xtb` by you, as defined in the
GNU Lesser General Public license, shall be licensed as above, without any
additional terms or conditions.
xtb-6.7.1/assets/ 0000775 0000000 0000000 00000000000 14650006642 0013627 5 ustar 00root root 0000000 0000000 xtb-6.7.1/assets/aur/ 0000775 0000000 0000000 00000000000 14650006642 0014416 5 ustar 00root root 0000000 0000000 xtb-6.7.1/assets/aur/xtb-git/ 0000775 0000000 0000000 00000000000 14650006642 0015774 5 ustar 00root root 0000000 0000000 xtb-6.7.1/assets/inputs/ 0000775 0000000 0000000 00000000000 14650006642 0015151 5 ustar 00root root 0000000 0000000 xtb-6.7.1/assets/inputs/coord/ 0000775 0000000 0000000 00000000000 14650006642 0016257 5 ustar 00root root 0000000 0000000 xtb-6.7.1/assets/inputs/coord/caffeine.coord 0000664 0000000 0000000 00000003534 14650006642 0021054 0 ustar 00root root 0000000 0000000 $coord
2.02799738646442 0.09231312124713 -0.14310895950963 C
4.75011007621000 0.02373496014051 -0.14324124033844 N
6.33434307654413 2.07098865582721 -0.14235306905930 C
8.72860718071825 1.38002919517619 -0.14265542523943 N
8.65318821103610 -1.19324866489847 -0.14231527453678 C
6.23857175648671 -2.08353643730276 -0.14218299370797 C
5.63266886875962 -4.69950321056008 -0.13940509630299 C
3.44931709749015 -5.48092386085491 -0.14318454855466 O
7.77508917214346 -6.24427872938674 -0.13107140408805 N
10.30229550927022 -5.39739796609292 -0.13672168520430 C
12.07410272485492 -6.91573621641911 -0.13666499342053 O
10.70038521493902 -2.79078533715849 -0.14148379504141 N
13.24597858727017 -1.76969072232377 -0.14218299370797 C
7.40891694074004 -8.95905928176407 -0.11636933482904 C
1.38702118184179 2.05575746325296 -0.14178615122154 H
1.34622199478497 -0.86356704498496 1.55590600570783 H
1.34624089204623 -0.86133716815647 -1.84340893849267 H
5.65596919189118 4.00172183859480 -0.14131371969009 H
14.67430918222276 -3.26230980007732 -0.14344911021228 H
13.50897177220290 -0.60815166181684 1.54898960808727 H
13.50780014200488 -0.60614855212345 -1.83214617078268 H
5.41408424778406 -9.49239668625902 -0.11022772492007 H
8.31919801555568 -9.74947502841788 1.56539243085954 H
8.31511620712388 -9.76854236502758 -1.79108242206824 H
$end
xtb-6.7.1/assets/inputs/coord/quartz.3d.coord 0000664 0000000 0000000 00000001371 14650006642 0021144 0 ustar 00root root 0000000 0000000 $coord
2.82781861325240 2.96439280874170 3.12827803849279 o
7.19124230791576 0.98723342603994 4.89004701836746 o
4.95491880597601 4.82830910314898 8.74847811174740 o
0.19290883043307 2.30645007856310 8.72969832061507 o
-2.01592208020090 6.16478744235115 4.87273962147340 o
0.66183062221384 7.07392578563696 0.27767968372345 o
4.55701736204879 0.06291337111965 3.31745840478609 si
-2.10064209975148 3.63969476409878 6.81014625000326 si
2.31009832827224 4.12572862149043 0.08842485276656 si
$user-defined bonds
$cell
9.28422449595511046 9.28422449595511046 10.21434769907115 90.0000 90.0000 120.0000
$periodic 3
$end
xtb-6.7.1/assets/inputs/vasp/ 0000775 0000000 0000000 00000000000 14650006642 0016122 5 ustar 00root root 0000000 0000000 xtb-6.7.1/assets/inputs/vasp/ammonia.vasp 0000664 0000000 0000000 00000002312 14650006642 0020434 0 ustar 00root root 0000000 0000000 H N
1.0000000000000000
5.0133599999999996 0.0000000000000000 0.0000000000000000
0.0000000000000000 5.0133599999999996 0.0000000000000000
0.0000000000000000 0.0000000000000000 5.0133599999999996
12 4
Cartesian
2.1985588943999996 1.7639005823999998 0.8801454815999999
1.7639005823999998 0.8801454815999999 2.1985588943999996
0.8801454815999999 2.1985588943999996 1.7639005823999998
4.8411510839999998 1.6194155471999998 4.9398140088000000
4.3563090384000001 2.4998116967999997 3.6324801215999996
3.5195792543999995 1.1535741359999998 4.0840334567999994
4.0840334567999994 3.5195792543999995 1.1535741359999998
4.9398140088000000 4.8411510839999998 1.6194155471999998
3.6324801215999996 4.3563090384000001 2.4998116967999997
2.4998116967999997 3.6324801215999996 4.3563090384000001
1.1535741359999998 4.0840334567999994 3.5195792543999995
1.6194155471999998 4.9398140088000000 4.8411510839999998
1.3746131783999997 1.3746131783999997 1.3746131783999997
3.9981545999999994 1.9910559239999999 4.4636450759999997
4.4636450759999997 3.9981545999999994 1.9910559239999999
1.9910559239999999 4.4636450759999997 3.9981545999999994
xtb-6.7.1/assets/inputs/xyz/ 0000775 0000000 0000000 00000000000 14650006642 0016003 5 ustar 00root root 0000000 0000000 xtb-6.7.1/assets/inputs/xyz/taxol.xyz 0000664 0000000 0000000 00000017264 14650006642 0017720 0 ustar 00root root 0000000 0000000 113
SCF done -176.154558433845 0.000331717503
C -2.26190362167063 -2.23274871515243 -0.34190733362876
C -0.95456098689486 -2.37695454268952 -0.57691720259526
C -0.37073732103448 -2.46433327240285 -1.96135470513670
H -0.41194130784284 -1.47597800037112 -2.43138059888576
H -0.94656125167399 -3.16068995746486 -2.57045179275739
H 0.66842644119588 -2.78880057328767 -1.90936385963964
C -0.00016207531929 -2.26877165199453 0.57330072167658
C -0.34829449712608 -0.97827553540687 1.33009459882379
H 0.01109943313599 -0.13551629263028 0.73731772561181
H 0.16838552404973 -0.97253756746775 2.28912996370670
C -1.85893224394126 -0.81026345247231 1.59480485119117
O -2.09770605966482 -0.84061168802268 2.99558018472920
H -2.03950726056567 0.07099522638439 3.36452409511852
C -2.68014178809399 -2.02945799558582 1.09658529964912
C -4.14339828717231 -1.71909922541134 1.40976642056161
H -4.53902595149693 -0.90072211338406 0.82675240558458
H -4.77431961418713 -2.58813415687901 1.26043363052764
H -4.19019507646917 -1.43792090898570 2.46226258158012
C -2.34683567528364 -3.28067596105746 1.95168067406062
H -1.67572538285061 -3.02192454833861 2.76826385272635
H -1.89917575532925 -4.06245114628146 1.34367048942152
H -3.26146448189256 -3.67917417958271 2.38598767343407
C -2.34639164857028 0.54339223254471 1.03033796600632
H -3.27100952991996 0.80886637194193 1.55042804108020
O -1.33052949111167 1.50426572011390 1.31721122471823
C -1.21509455620725 1.96613110661377 2.51874969847408
O -1.83012681874458 1.60912524580610 3.51477294717956
C -0.18987688088814 3.03605230210500 2.59442435919408
C 0.00832899175311 3.68661255088857 3.80877412661576
C 0.95178772078573 4.69095438229710 3.92052638513519
C 1.70851869740174 5.05200729469005 2.81560436023413
C 1.52118817478704 4.40770847828074 1.60213404758872
C 0.57697411413239 3.40243291944411 1.49201296630779
H 0.41662609581964 2.88831438660841 0.54950063706763
H 2.11642233730867 4.69179621902942 0.74084766415095
H 2.44874414910769 5.83992148313697 2.90165670972236
H 1.10175674438479 5.19672707064917 4.86853767337483
H -0.59587295693050 3.38682557490628 4.66099948254686
C -2.55222499871792 0.69918633986789 -0.50995521967761
H -1.86309477217822 0.01093512761788 -0.99373502172831
C -2.08019374633758 2.10823011355873 -0.90117488634351
C -2.55661378655687 3.26627514291862 -0.02206071105077
H -3.19251371639452 3.01066256127990 0.82354990805305
H -1.74875954827032 3.92714542906296 0.29821804958285
O -3.32361972050627 3.84411901817690 -1.10322352777608
C -2.75910686767183 2.89339297511699 -2.03963336207423
C -3.83260478912206 2.25828551705607 -2.88881858111899
H -3.62835989651982 2.39632492680399 -3.95081655619850
H -4.78201150041827 2.74811280449107 -2.66267413636231
C -3.98725059124100 0.77149125041999 -2.61295786251850
O -5.22509981286263 0.42167923619522 -3.19636532504308
H -5.60338777092674 -0.33725080568793 -2.71029884853608
H -3.15848920485993 0.23110800719778 -3.08988880419871
C -3.94874381609669 0.40341749738402 -1.09781556022962
C -4.31403062698241 -1.06845821849688 -1.23559306268395
O -5.46730824921587 -1.37539731259632 -1.42291224832408
C -3.16940688196012 -2.00025422378842 -1.52128596073916
H -2.56008628127861 -1.42302325961245 -2.23078661873523
O -3.46688123391754 -3.12710150334685 -2.32419591594549
C -4.26703545212573 -4.09254410692390 -2.04267258972991
O -4.43065439408332 -4.97092059095515 -2.87958001566486
C -4.98071885619310 -4.18722479150635 -0.71113528278304
H -5.58114498737944 -5.09138828914589 -0.69988734973086
H -5.62533266122613 -3.32415413277582 -0.58051013330245
H -4.25691939668289 -4.22982538680672 0.09481008712761
C -5.07518604081354 1.16877387027910 -0.40455960793867
H -5.06235208120400 0.99821995654290 0.67005764986687
H -4.98900416807055 2.23898058193758 -0.58314514997154
H -6.02531255586048 0.81099135338798 -0.80297212686910
H -2.00590752974238 3.38307870871891 -2.66035432379169
O -0.67428930774075 2.17371266689630 -1.05009019448311
C -0.15210346921377 1.44852486559195 -1.98368047843702
O -0.72846762068478 0.66557311000637 -2.71893747900941
C 1.33754218473599 1.69785449183155 -2.08076702178496
H 1.75105754926356 1.08172484345258 -2.87504989398818
H 1.81746747191693 1.43711436732152 -1.14097557303593
H 1.52896786986216 2.74708554797121 -2.28759822779882
H -0.12217156539345 -3.10952089692694 1.25599950211545
O 1.33385430727247 -2.25262620282775 0.10259397091073
C 2.18583559863485 -2.69480834809498 0.96519647740345
O 1.97506781517084 -3.03852936023556 2.11881325370133
C 3.60531421670553 -2.77012815376632 0.44547071961222
O 4.40619994338439 -3.32196935889856 1.47019593752540
H 3.80441494412930 -3.45808597263640 2.22626881684654
H 3.66270434359231 -3.39955941294499 -0.44768416007918
C 4.12599705372900 -1.36164184366329 0.09280168923320
N 3.32960241513642 -0.86728091800343 -0.99832944071139
C 3.78057443409672 -0.54116647103130 -2.23059974248466
O 3.04215736615235 -0.49739181490405 -3.19842731717708
C 5.21422892212231 -0.18253147399184 -2.35444289723476
C 5.87582516895670 0.61411387446773 -1.42595677001613
C 7.19735276149193 0.97418571930306 -1.62854358196679
C 7.86924363190920 0.54369211104811 -2.76134630886935
C 7.21198661152069 -0.23268009942841 -3.70371179743003
C 5.88898892602259 -0.58240577531325 -3.50429602695658
H 5.35815759360643 -1.17972272118238 -4.23997551843760
H 7.73339483774093 -0.55828989847416 -4.59752172511528
H 8.90589087887168 0.82209042978918 -2.91596886003763
H 7.70659950948429 1.59609385235223 -0.90001452504522
H 5.34662073139270 0.96722785471406 -0.54804547099080
H 2.35372603597705 -1.13581656250778 -0.92805997792707
C 4.05164267592348 -0.49223807721407 1.31558083515360
C 3.00893439484731 0.39835201685449 1.52213310312531
C 2.93219960150823 1.13038964927044 2.69505538510186
C 3.89950617571995 0.97631191063620 3.67471628636534
C 4.94268142758468 0.08492562945832 3.47898204736814
C 5.01391626805056 -0.64590838002696 2.30553542679038
H 5.81600993424474 -1.35931646572247 2.14772196574119
H 5.70046843397824 -0.04140120095247 4.24465748987104
H 3.83916582620011 1.54999966309067 4.59276451640817
H 2.11144231507796 1.82037338403752 2.84748797399134
H 2.25083747473477 0.52037131490303 0.75600605502183
H 5.16226233179803 -1.44693032750892 -0.23098830761639
xtb-6.7.1/assets/logo/ 0000775 0000000 0000000 00000000000 14650006642 0014567 5 ustar 00root root 0000000 0000000 xtb-6.7.1/assets/logo/README.md 0000664 0000000 0000000 00000001045 14650006642 0016046 0 ustar 00root root 0000000 0000000 # The xTB Logo
Created by Sebastian Ehlert.
This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License .
xtb-6.7.1/assets/logo/xtb.svg 0000664 0000000 0000000 00000055572 14650006642 0016123 0 ustar 00root root 0000000 0000000
image/svg+xml
xtb-6.7.1/assets/logo/xtb_alt.svg 0000664 0000000 0000000 00000041500 14650006642 0016745 0 ustar 00root root 0000000 0000000
image/svg+xml
xtb-6.7.1/assets/meson.build 0000664 0000000 0000000 00000003452 14650006642 0015775 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
# misc. files for xtb installation
setup_files = [
'config_env.bash',
'config_env.csh',
]
foreach file: setup_files
install_data(configure_file(input: files('templates'/file),
output: file, configuration: config))
endforeach
# generate a pkg-config file for xtb
pkg_config = '@0@.pc'.format(meson.project_name())
install_data(configure_file(input: files('templates'/pkg_config),
output: pkg_config, configuration: config),
install_dir: get_option('libdir')/'pkgconfig')
# generate a tcl environment module
# The convention is to name the file after the version and put it in a directory
# with the program name, but we will name the intermediate tcl file differently.
# On installation the file will be copied to the data_dir (share/xtb) and renamed
# to the version number.
env_module = '@0@.tcl'.format(meson.project_name())
install_data(
configure_file(
input: files('templates/env-module.tcl'),
output: env_module,
configuration: config,
),
rename: meson.project_version(),
install_dir: get_option('datadir')/'modules'/'modulefiles'/meson.project_name()
)
xtb-6.7.1/assets/references.bib 0000664 0000000 0000000 00000014523 14650006642 0016433 0 ustar 00root root 0000000 0000000 @article{bannwarth2020,
title={Extended tight‐binding quantum chemistry methods},
author={Bannwarth, Christoph and Caldeweyher, Eike and Ehlert, Sebastian and Hansen, Andreas and Pracht, Philipp and Seibert, Jakob and Spicher, Spicher and Grimme, Stefan},
journal={{WIREs} Comput{.} Mol{.} Sci{.}},
volume = {11},
year={2020},
pages={e01493},
doi={10.1002/wcms.1493},
url={https://dx.doi.org/10.1002/wcms.1493}
}
@article{grimme2017,
title={A robust and accurate tight-binding quantum chemical method for structures, vibrational frequencies, and noncovalent interactions of large molecular systems parametrized for all spd-block elements (Z=1--86)},
author={Grimme, Stefan and Bannwarth, Christoph and Shushkov, Philip},
journal={J{.} Chem{.} Theory Comput{.}},
volume={13},
number={5},
pages={1989--2009},
year={2017},
doi={10.1021/acs.jctc.7b00118},
url={https://dx.doi.org/10.1021/acs.jctc.7b00118},
publisher={ACS Publications}
}
@article{grimme2019,
title={Exploration of chemical compound, conformer, and reaction space with meta-dynamics simulations based on tight-binding quantum chemical calculations},
author={Grimme, Stefan},
journal={J{.} Chem{.} Theory Comput{.}},
volume={15},
number={5},
pages={2847--2862},
year={2019},
doi={10.1021/acs.jctc.9b00143},
url={https://dx.doi.org/10.1021/acs.jctc.9b00143},
publisher={ACS Publications}
}
@article{koopman2019,
title={Calculation of Electron Ionization Mass Spectra with Semiempirical GFNn-xTB Methods},
author={Koopman, Jeroen and Grimme, Stefan},
journal={ACS Omega},
volume={4},
number={12},
pages={15120--15133},
year={2019},
doi={10.1021/acsomega.9b02011},
url={https://dx.doi.org/10.1021/acsomega.9b02011},
publisher={ACS Publications}
}
@article{koopman2021,
title = {From QCEIMS to QCxMS: A Tool to Routinely Calculate CID Mass Spectra Using Molecular Dynamics},
author = {Koopman, Jeroen and Grimme, Stefan},
journal = {J{.} Am{.} Soc{.} Mass Spectrom{.}},
volume = {32},
number = {7},
pages = {1735--1751},
year = {2021},
doi = {10.1021/jasms.1c00098},
url = {https://dx.doi.org/10.1021/jasms.1c00098}
publisher={ACS Publications}
}
@article{asgeirsson2017,
title={Quantum chemical calculation of electron ionization mass spectra for general organic and inorganic molecules},
author={{\'A}sgeirsson, Vilhj{\'a}lmur and Bauer, Christoph A and Grimme, Stefan},
journal={Chem{.} Sci{.}},
volume={8},
number={7},
pages={4879--4895},
year={2017},
doi={10.1039/c7sc00601b},
url={https://dx.doi.org/10.1039/c7sc00601b},
publisher={Royal Society of Chemistry}
}
@article{grimme2016,
title={Ultra-fast computation of electronic spectra for large systems by tight-binding based simplified Tamm-Dancoff approximation (sTDA-xTB)},
author={Grimme, Stefan and Bannwarth, Christoph},
journal={J{.} Chem{.} Phys{.}},
volume={145},
number={5},
pages={054103},
year={2016},
doi={10.1063/1.4959605},
url={https://dx.doi.org/10.1063/1.4959605},
publisher={AIP Publishing LLC}
}
@article{caldeweyher2020,
title={Extension and evaluation of the D4 London-dispersion model for periodic systems},
author={Caldeweyher, Eike and Mewes, Jan-Michael and Ehlert, Sebastian and Grimme, Stefan},
journal={Phys{.} Chem{.} Chem{.} Phys{.}},
volume={22},
number={16},
pages={8499--8512},
year={2020},
doi={10.1039/D0CP00502A},
url={https://dx.doi.org/10.1039/D0CP00502A},
publisher={Royal Society of Chemistry}
}
@article{caldeweyher2019,
title={A generally applicable atomic-charge dependent London dispersion correction},
author={Caldeweyher, Eike and Ehlert, Sebastian and Hansen, Andreas and Neugebauer, Hagen and Spicher, Sebastian and Bannwarth, Christoph and Grimme, Stefan},
journal={J{.} Chem{.} Phys{.}},
volume={150},
number={15},
pages={154122},
year={2019},
doi={10.1063/1.5090222},
url={https://dx.doi.org/10.1063/1.5090222},
publisher={AIP Publishing LLC}
}
@article{caldeweyher2017,
title={Extension of the D3 dispersion coefficient model},
author={Caldeweyher, Eike and Bannwarth, Christoph and Grimme, Stefan},
journal={J{.} Chem{.} Phys{.}},
volume={147},
number={3},
pages={034112},
year={2017},
doi={10.1063/1.4993215},
url={https://dx.doi.org/10.1063/1.4993215},
publisher={AIP Publishing LLC}
}
@article{spicher2020,
title={Robust Atomistic Modeling of Materials, Organometallic, and Biochemical Systems},
author={Spicher, Sebastian and Grimme, Stefan},
journal={Angew{.} Chem{.} Int{.} Ed{.}},
volume={59},
pages={15665--15673},
year={2020},
doi={10.1002/anie.202004239},
url={https://dx.doi.org/10.1002/anie.202004239},
publisher={Wiley Online Library}
}
@article{spicher2021,
author={Spicher, Sebastian and Grimme, Stefan},
title={Single-Point Hessian Calculations for Improved Vibrational Frequencies and Rigid-Rotor-Harmonic-Oscillator Thermodynamics},
journal={J{.} Chem{.} Theory Comput{.}},
volume={17},
number={3},
pages={1701--1714},
year={2021},
doi={10.1021/acs.jctc.0c01306},
url={https://doi.org/10.1021/acs.jctc.0c01306},
eprint={https://doi.org/10.1021/acs.jctc.0c01306},
publisher={ACS Publications}
}
@article{pracht2019,
title={A Robust Non-Self-Consistent Tight-Binding Quantum Chemistry Method for large Molecules},
author={Pracht, Philipp and Caldeweyher, Eike and Ehlert, Sebastian and Grimme, Stefan},
year={2019},
doi={10.26434/chemrxiv.8326202.v1},
url={https://dx.doi.org/10.26434/chemrxiv.8326202.v1},
publisher={ChemRxiv}
}
@article{bannwarth2019,
title={GFN2-xTB—An accurate and broadly parametrized self-consistent tight-binding quantum chemical method with multipole electrostatics and density-dependent dispersion contributions},
author={Bannwarth, Christoph and Ehlert, Sebastian and Grimme, Stefan},
journal={J{.} Chem{.} Theory Comput{.}},
volume={15},
number={3},
pages={1652--1671},
year={2019},
doi={10.1021/acs.jctc.8b01176},
url={https://dx.doi.org/10.1021/acs.jctc.8b01176},
publisher={ACS Publications}
}
@article{ehlert2021,
author = {Ehlert, Sebastian and Stahn, Marcel and Spicher, Sebastian and Grimme, Stefan},
title = {Robust and Efficient Implicit Solvation Model for Fast Semiempirical Methods},
journal={J{.} Chem{.} Theory Comput{.}},
volume = {17},
number = {7},
pages = {4250--4261},
year = {2021},
doi = {10.1021/acs.jctc.1c00471},
URL = {https://doi.org/10.1021/acs.jctc.1c00471},
}
xtb-6.7.1/assets/templates/ 0000775 0000000 0000000 00000000000 14650006642 0015625 5 ustar 00root root 0000000 0000000 xtb-6.7.1/assets/templates/config_env.bash 0000775 0000000 0000000 00000001207 14650006642 0020604 0 ustar 00root root 0000000 0000000 #!/bin/bash
# run this script to set up a xtb environment
# requirements: $XTBHOME is set to `pwd`
if [ -z "${XTBHOME}" ]; then
XTBHOME="$(cd -P "$(dirname "${BASH_SOURCE[0]}")" && pwd)/../../"
fi
# set up path for xtb, using the xtb directory and the users home directory
XTBPATH=${XTBHOME}/@datadir@:${HOME}
# to include the documentation we include our man pages in the users manpath
MANPATH=${MANPATH}:${XTBHOME}/@mandir@
# finally we have to make the binaries
PATH=${PATH}:${XTBHOME}/@bindir@
# enable package config for xtb
PKG_CONFIG_PATH=${PKG_CONFIG_PATH}:${XTBHOME}/@libdir@/pkgconfig
export PATH XTBPATH MANPATH PKG_CONFIG_PATH
xtb-6.7.1/assets/templates/config_env.csh 0000775 0000000 0000000 00000001157 14650006642 0020450 0 ustar 00root root 0000000 0000000 #!/bin/csh
# run this script to set up a xtb environment
# requirements: $XTBHOME is set to `pwd`
if ( ! ${?XTBHOME} ) then
setenv XTBHOME "`dirname $0`/../../"
endif
# set up path for xtb, using the xtb directory and the users home directory
setenv XTBPATH ${XTBHOME}/@datadir@:${HOME}
# to include the documentation we include our man pages in the users manpath
setenv MANPATH ${MANPATH}:${XTBHOME}/@mandir@
# finally we have to make the binaries and scripts accessable
setenv PATH ${PATH}:${XTBHOME}/@bindir@
# enable package config for xtb
setenv PKG_CONFIG_PATH ${PKG_CONFIG_PATH}:${XTBHOME}/@libdir@/pkgconfig
xtb-6.7.1/assets/templates/env-module.tcl 0000664 0000000 0000000 00000000442 14650006642 0020404 0 ustar 00root root 0000000 0000000 #%Module
set prefix @prefix@
module-whatis "@description@"
prepend-path XTBPATH $prefix/@datadir@
prepend-path PATH $prefix/@bindir@
prepend-path MANPATH $prefix/@mandir@
prepend-path PKG_CONFIG_PATH $prefix/@libdir@/pkgconfig
# Only allow to load one instance of @name@
conflict @name@
xtb-6.7.1/assets/templates/version.f90 0000664 0000000 0000000 00000000252 14650006642 0017631 0 ustar 00root root 0000000 0000000 character(len=*),parameter :: version = "@version@ (@commit@)"
character(len=*),parameter :: date = "@date@"
character(len=*),parameter :: author = "'@author@@@origin@'"
xtb-6.7.1/assets/templates/xtb.pc 0000664 0000000 0000000 00000000273 14650006642 0016750 0 ustar 00root root 0000000 0000000 prefix=@prefix@
libdir=${prefix}/@libdir@
includedir=${prefix}/@includedir@
Name: @name@
Description: @description@
Version: @version@
Libs: -L${libdir} -l@name@
Cflags: -I${includedir}
xtb-6.7.1/assets/xtb.wrap 0000664 0000000 0000000 00000000127 14650006642 0015317 0 ustar 00root root 0000000 0000000 [wrap-git]
directory = xtb
url = https://github.com/grimme-lab/xtb.git
revision = head
xtb-6.7.1/cmake/ 0000775 0000000 0000000 00000000000 14650006642 0013405 5 ustar 00root root 0000000 0000000 xtb-6.7.1/cmake/CMakeLists.txt 0000664 0000000 0000000 00000005327 14650006642 0016154 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
# SPDX-Identifier: LGPL-3.0-or-later
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the Lesser GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# Lesser GNU General Public License for more details.
#
# You should have received a copy of the Lesser GNU General Public License
# along with xtb. If not, see .
# Some user-configurable features
option(WITH_OpenMP "Enable support for shared memory parallelisation with OpenMP" TRUE)
option(WITH_TBLITE "Use tblite library as backend for xTB" TRUE)
option(WITH_CPCMX "Use CPCM-X solvation library for xTB" TRUE)
# Set build type as CMake does not provide defaults
if(NOT CMAKE_BUILD_TYPE AND NOT CMAKE_CONFIGURATION_TYPES)
set(
CMAKE_BUILD_TYPE "RelWithDebInfo"
CACHE STRING "Build type to be used."
FORCE
)
message(
STATUS
"Setting build type to '${CMAKE_BUILD_TYPE}' as none was specified."
)
endif()
# Add modules to the CMake build
list(APPEND CMAKE_MODULE_PATH "${CMAKE_CURRENT_SOURCE_DIR}/modules")
set(CMAKE_MODULE_PATH "${CMAKE_MODULE_PATH}" PARENT_SCOPE)
# specify module installation directory
install(
DIRECTORY
"${CMAKE_CURRENT_SOURCE_DIR}/modules/"
DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/${PROJECT_NAME}"
)
# Compiler-specific configurations
if(CMAKE_Fortran_COMPILER_ID MATCHES "GNU")
set(dialects "-fdefault-real-8 -fdefault-double-8 -ffree-line-length-none -fbacktrace")
set(bounds "-fbounds-check -ffpe-trap=invalid,zero,overflow")
elseif(CMAKE_Fortran_COMPILER_ID MATCHES "Intel")
set(dialects "-axAVX2 -r8 -traceback")
set(bounds "-check all -fpe0")
elseif(CMAKE_Fortran_COMPILER_ID MATCHES "PGI")
set(dialects "-Mbackslash -Mallocatable=03 -r8 -traceback")
endif()
# Customize compiler flags
set(CMAKE_Fortran_FLAGS_DEBUG "${CMAKE_Fortran_FLAGS_DEBUG} ${bounds}" PARENT_SCOPE)
set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} ${dialects}" PARENT_SCOPE)
# Populate xtb_version.fh with metadata
set(version ${PROJECT_VERSION})
execute_process(COMMAND git rev-parse HEAD
RESULT_VARIABLE git_return
OUTPUT_VARIABLE commit)
if(git_return)
set(commit "unknown-commit")
else()
string(REGEX REPLACE "\n$" "" commit ${commit})
endif()
string(TIMESTAMP date "%Y/%m/%d")
set(author $ENV{USERNAME})
set(origin ${CMAKE_HOST_SYSTEM_NAME})
configure_file(
"${PROJECT_SOURCE_DIR}/assets/templates/version.f90"
"${PROJECT_BINARY_DIR}/include/xtb_version.fh"
@ONLY
)
xtb-6.7.1/cmake/README.adoc 0000664 0000000 0000000 00000012002 14650006642 0015165 0 ustar 00root root 0000000 0000000 = Building xtb with CMake
To build `xtb` from the source in this repository the https://cmake.org/[CMake build system] can be employed.
The build files used require a CMake verson version of >= 3.9 or newer.
We highly recommend to use CMake together with the https://ninja-build.org/[ninja] (version 1.10 required), but the default make build will work as well.
== Getting CMake
CMake should be available in a sufficient up-to-date version from your operating systems package manager.
You can also use `conda` to install CMake and ninja from the conda-forge channel
[source,bash]
----
conda config --add channels conda-forge
conda install cmake ninja
----
Alternatively you can install the latest version of CMake and ninja with `pip` (or `pip3` depending on your system):
[source,bash]
----
pip install cmake ninja [--user]
----
== Configure Intel Fortran build with MKL
The recommended build for `xtb` is with Intel Parallel Studio using the Intel Fortran compiler and the Math Kernel Library as default backend.
Precompiled, statically linked `xtb` binaries for Linux are provided at https://github.com/grimme-lab/xtb/releases/latest[release page].
With CMake 3.13 and newer the configuration can be conveniently performed from the repository root by
[source,bash]
----
export FC=ifort CC=icc
cmake -B_build -S. -GNinja -DCMAKE_BUILD_TYPE=Release
----
For older versions of CMake use
[source,bash]
----
export FC=ifort CC=icc
mkdir _build
pushd _build
cmake -GNinja -DCMAKE_BUILD_TYPE=Release ..
popd
----
To build the project use
[source,bash]
----
ninja -C _build
----
Note, ninja will by default use all the threads available on your system.
If you share the build machine with others it might be helpful to reduce the number of concurrent jobs using the `-j` flag.
In case you prefer make leave out the `-GNinja` option and run
[source,bash]
----
make -C _build -j
----
to build the project.
== Configure GCC build
`xtb` can also be compiled with GCC version 8 or later.
The configuration with CMake 3.13 or newer can be performed conveniently with
[source,bash]
----
export FC=gfortran CC=gcc
cmake -B_build -S. -GNinja -DCMAKE_BUILD_TYPE=Release
----
For older versions of CMake you have to use
[source,bash]
----
export FC=gfortran CC=gcc
mkdir _build
pushd _build
cmake -GNinja -DCMAKE_BUILD_TYPE=Release ..
popd
----
To compile and run `xtb` with GCC 7 (especially 7.3.0) the source code has to be patched at several placed, for appropriate patches visit the https://github.com/grimme-lab/xtb-feedstock[conda-forge feedstock repository].
If you are compiling `xtb` on Darwin platforms, ensure that GCC is the actual GCC and not clang.
The build can be performed just like before:
[source,bash]
----
ninja -C _build
----
== Testing the build with CTest
After successfully building the `xtb` program ensure that it is working as expected.
Run the testsuite with
[source,bash]
----
ninja -C build test
----
If you have chosen make as generator use the same command with make.
All tests should pass, otherwise https://github.com/grimme-lab/xtb/issues/new/choose[open an issue].
== Installing xtb with CMake
To use `xtb` in production or to pack a release with precompiled binaries the project should be installed with ninja.
The installation prefix defaults to `/usr/local` on Linux systems, you might want to adjust this first by configuring your build with
[source,bash]
----
cmake _build -DCMAKE_INSTALL_PREFIX=$HOME/.local
----
To perform the actual installation run
[source,bash]
----
ninja -C _build install
----
If you have chosen make as generator use the same command with make.
Depending on the installation prefix and your user rights ninja/make might ask for the `root` access to perform the installation.
=== Advanced configuration of install destinations
The CMake installation uses the install directories as defined by the https://www.gnu.org/prep/standards/html_node/Directory-Variables.html[GNU Coding Standards] and implemented in the https://cmake.org/cmake/help/latest/module/GNUInstallDirs.html[`GNUInstallDirs`] module.
To modify the behaviour configure CMake with
[source,bash]
----
cmake _build \
-DCMAKE_INSTALL_PREFIX=/usr \
-DCMAKE_INSTALL_BINDIR=bin \
-DCMAKE_INSTALL_LIBDIR=lib \
-DCMAKE_INSTALL_INCLUDEDIR=include \
-DCMAKE_INSTALL_DATADIR=share \
-DCMAKE_INSTALL_MANDIR=man
----
This will result in a directory structure like
[source]
----
usr
├── bin
│ └── xtb
├── include
│ └── xtb.h
├── lib
│ ├── cmake
│ │ └── xtb
│ │ ├── xtbConfig.cmake
│ │ ├── xtbConfigVersion.cmake
│ │ ├── xtbTargets.cmake
│ │ └── xtbTargets-noconfig.cmake
│ ├── libxtb.a
│ ├── libxtb.so -> libxtb.so.6
│ ├── libxtb.so.6 -> libxtb.so.6.3.2
│ └── libxtb.so.6.3.2
└── share
└── xtb
├── param_gfn0-xtb.txt
├── param_gfn1-xtb.txt
├── param_gfn2-xtb.txt
└── param_ipea-xtb.txt
----
xtb-6.7.1/cmake/config.cmake.in 0000664 0000000 0000000 00000001210 14650006642 0016253 0 ustar 00root root 0000000 0000000 @PACKAGE_INIT@
set("@PROJECT_NAME@_WITH_OpenMP" @WITH_OpenMP@)
list(APPEND CMAKE_MODULE_PATH "${CMAKE_CURRENT_LIST_DIR}")
if(NOT TARGET "@PROJECT_NAME@::@PROJECT_NAME@")
include("${CMAKE_CURRENT_LIST_DIR}/@PROJECT_NAME@-targets.cmake")
include(CMakeFindDependencyMacro)
if(NOT TARGET "OpenMP::OpenMP_Fortran" AND "@PROJECT_NAME@_WITH_OpenMP")
find_dependency("OpenMP" REQUIRED)
endif()
if(NOT TARGET "mctc-lib::mctc-lib")
find_dependency("mctc-lib" REQUIRED)
endif()
if(NOT ${LAPACK_FOUND})
find_dependency("LAPACK" REQUIRED)
endif()
if(NOT ${BLAS_FOUND})
find_dependency("BLAS" REQUIRED)
endif()
endif()
xtb-6.7.1/cmake/modules/ 0000775 0000000 0000000 00000000000 14650006642 0015055 5 ustar 00root root 0000000 0000000 xtb-6.7.1/cmake/modules/Findcpcmx.cmake 0000664 0000000 0000000 00000004304 14650006642 0017773 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
# SPDX-Identifier: LGPL-3.0-or-later
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
#[[.rst:
Find test-cpcmx
---------------
Makes the cpcmx project available.
Imported Targets
^^^^^^^^^^^^^^^^
This module provides the following imported target, if found:
``cpcmx::cpcmx``
The cpcmx library
Result Variables
^^^^^^^^^^^^^^^^
This module will define the following variables:
``cpcmx_FOUND``
True if the test-drive library is available
``cpcmx_SOURCE_DIR``
Path to the source directory of the test-drive project,
only set if the project is included as source.
``cpcmx_BINARY_DIR``
Path to the binary directory of the test-drive project,
only set if the project is included as source.
Cache variables
^^^^^^^^^^^^^^^
The following cache variables may be set to influence the library detection:
``cpcmx_FIND_METHOD``
Methods to find or make the project available. Available methods are
- ``cmake``: Try to find via CMake config file
- ``pkgconf``: Try to find via pkg-config file
- ``subproject``: Use source in subprojects directory
- ``fetch``: Fetch the source from upstream
``cpcmx_DIR``
Used for searching the CMake config file
``cpcmx_SUBPROJECT``
Directory to find the test-drive subproject, relative to the project root
#]]
set(_lib "cpcmx")
set(_pkg "cpcmx")
set(_url "https://github.com/grimme-lab/CPCM-X")
if(NOT DEFINED "${_pkg}_FIND_METHOD")
set("${_pkg}_FIND_METHOD" "cmake" "pkgconf" "subproject" "fetch")
endif()
include("${CMAKE_CURRENT_LIST_DIR}/xtb-utils.cmake")
xtb_find_package("${_lib}" "${${_pkg}_FIND_METHOD}" "${_url}")
unset(_lib)
unset(_pkg)
unset(_url)
xtb-6.7.1/cmake/modules/Findmctc-lib.cmake 0000664 0000000 0000000 00000002044 14650006642 0020352 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
# SPDX-Identifier: LGPL-3.0-or-later
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
set(_lib "mctc-lib")
set(_pkg "MCTCLIB")
set(_url "https://github.com/grimme-lab/mctc-lib")
if(NOT DEFINED "${_pkg}_FIND_METHOD")
set("${_pkg}_FIND_METHOD" "cmake" "pkgconf" "subproject" "fetch")
endif()
include("${CMAKE_CURRENT_LIST_DIR}/xtb-utils.cmake")
xtb_find_package("${_lib}" "${${_pkg}_FIND_METHOD}" "${_url}")
unset(_lib)
unset(_pkg)
unset(_url)
xtb-6.7.1/cmake/modules/Findtblite.cmake 0000664 0000000 0000000 00000002072 14650006642 0020144 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
# SPDX-Identifier: LGPL-3.0-or-later
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
set(_lib "tblite")
set(_pkg "TBLITE")
set(_url "https://github.com/tblite/tblite")
if(NOT DEFINED "${_pkg}_FIND_METHOD")
set("${_pkg}_FIND_METHOD" "cmake" "pkgconf" "subproject" "fetch")
set("_${_pkg}_FIND_METHOD")
endif()
include("${CMAKE_CURRENT_LIST_DIR}/xtb-utils.cmake")
xtb_find_package("${_lib}" "${${_pkg}_FIND_METHOD}" "${_url}")
unset(_lib)
unset(_pkg)
unset(_url)
xtb-6.7.1/cmake/modules/Findtest-drive.cmake 0000664 0000000 0000000 00000004441 14650006642 0020751 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
# SPDX-Identifier: LGPL-3.0-or-later
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
#[[.rst:
Find test-drive
---------------
Makes the test-drive project available.
Imported Targets
^^^^^^^^^^^^^^^^
This module provides the following imported target, if found:
``test-drive::test-drive``
The test-drive library
Result Variables
^^^^^^^^^^^^^^^^
This module will define the following variables:
``TEST_DRIVE_FOUND``
True if the test-drive library is available
``TEST_DRIVE_SOURCE_DIR``
Path to the source directory of the test-drive project,
only set if the project is included as source.
``TEST_DRIVE_BINARY_DIR``
Path to the binary directory of the test-drive project,
only set if the project is included as source.
Cache variables
^^^^^^^^^^^^^^^
The following cache variables may be set to influence the library detection:
``TEST_DRIVE_FIND_METHOD``
Methods to find or make the project available. Available methods are
- ``cmake``: Try to find via CMake config file
- ``pkgconf``: Try to find via pkg-config file
- ``subproject``: Use source in subprojects directory
- ``fetch``: Fetch the source from upstream
``TEST_DRIVE_DIR``
Used for searching the CMake config file
``TEST_DRIVE_SUBPROJECT``
Directory to find the test-drive subproject, relative to the project root
#]]
set(_lib "test-drive")
set(_pkg "TEST_DRIVE")
set(_url "https://github.com/fortran-lang/test-drive")
if(NOT DEFINED "${_pkg}_FIND_METHOD")
set("${_pkg}_FIND_METHOD" "cmake" "pkgconf" "subproject" "fetch")
set("_${_pkg}_FIND_METHOD")
endif()
include("${CMAKE_CURRENT_LIST_DIR}/xtb-utils.cmake")
xtb_find_package("${_lib}" "${${_pkg}_FIND_METHOD}" "${_url}")
unset(_lib)
unset(_pkg)
unset(_url)
xtb-6.7.1/cmake/modules/xtb-utils.cmake 0000664 0000000 0000000 00000010074 14650006642 0020014 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
# SPDX-Identifier: LGPL-3.0-or-later
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
# Handling of subproject dependencies
macro(
"xtb_find_package"
package
methods
url
)
string(TOLOWER "${package}" _pkg_lc)
string(TOUPPER "${package}" _pkg_uc)
# iterate through all methods
foreach(method ${methods})
if(TARGET "${package}::${package}")
break()
endif()
# cmake case
if("${method}" STREQUAL "cmake")
if(DEFINED "${_pkg_uc}_DIR")
set("_${_pkg_uc}_DIR")
set("${package}_DIR" "${_pkg_uc}_DIR")
endif()
find_package("${package}" CONFIG QUIET)
if("${package}_FOUND")
message(STATUS "Found ${package} via CMake config")
break()
endif()
# pkgconf case
elseif("${method}" STREQUAL "pkgconf")
find_package("PkgConfig" QUIET) # built-in Find script
pkg_check_modules("${_pkg_uc}" QUIET "${package}") # check if it is a pkg-config module
if("${_pkg_uc}_FOUND")
message(STATUS "Found ${package} via pkg-config")
add_library("${package}::${package}" INTERFACE IMPORTED) # interface library
target_link_libraries(
"${package}::${package}"
INTERFACE
"${${_pkg_uc}_LINK_LIBRARIES}"
)
target_include_directories(
"${package}::${package}"
INTERFACE
"${${_pkg_uc}_INCLUDE_DIRS}"
)
break()
endif()
# subproject case
elseif("${method}" STREQUAL "subproject")
if(NOT DEFINED "${_pkg_uc}_SUBPROJECT")
set("${_pkg_uc}_SUBPROJECT" "subprojects/${package}")
endif()
set("${_pkg_uc}_SOURCE_DIR" "${PROJECT_SOURCE_DIR}/${${_pkg_uc}_SUBPROJECT}")
set("${_pkg_uc}_BINARY_DIR" "${PROJECT_BINARY_DIR}/${${_pkg_uc}_SUBPROJECT}")
# if can be configured from the subprojects dir
if(EXISTS "${${_pkg_uc}_SOURCE_DIR}/CMakeLists.txt")
message(STATUS "Include ${package} from ${${_pkg_uc}_SUBPROJECT}")
add_subdirectory(
"${${_pkg_uc}_SOURCE_DIR}"
"${${_pkg_uc}_BINARY_DIR}"
)
# create interface directory and manage it's dependencies
add_library("${package}::${package}" INTERFACE IMPORTED)
target_link_libraries("${package}::${package}" INTERFACE "${package}")
# We need the module directory in the subproject before we finish the configure stage
if(NOT EXISTS "${${_pkg_uc}_BINARY_DIR}/include")
file(MAKE_DIRECTORY "${${_pkg_uc}_BINARY_DIR}/include")
endif()
break()
endif()
# fetch from url case
elseif("${method}" STREQUAL "fetch")
message(STATUS "Retrieving ${package} from ${url}")
include(FetchContent) # module for fetching from repo
if(CMAKE_BUILD_TYPE STREQUAL "Debug")
set(FETCHCONTENT_QUIET FALSE)
endif()
FetchContent_Declare(
"${_pkg_lc}"
GIT_REPOSITORY "${url}"
GIT_TAG "HEAD"
)
FetchContent_MakeAvailable("${_pkg_lc}")
add_library("${package}::${package}" INTERFACE IMPORTED)
target_link_libraries("${package}::${package}" INTERFACE "${package}")
if(NOT EXISTS "${${_pkg_lc}_BINARY_DIR}/include")
file(MAKE_DIRECTORY "${${_pkg_lc}_BINARY_DIR}/include")
endif()
break()
endif()
endforeach()
unset(_pkg_lc)
unset(_pkg_uc)
# sanity check
if(NOT TARGET "${package}::${package}")
message(FATAL_ERROR "Could not find dependency ${package}")
endif()
endmacro()
xtb-6.7.1/include/ 0000775 0000000 0000000 00000000000 14650006642 0013750 5 ustar 00root root 0000000 0000000 xtb-6.7.1/include/grida38.fh 0000664 0000000 0000000 00000010360 14650006642 0015530 0 ustar 00root root 0000000 0000000 data grida(1,1:38) /
. 0.1000000000000000D+01,-.1000000000000000D+01,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.5773502691896257D+00,-.5773502691896257D+00,
. 0.5773502691896257D+00,-.5773502691896257D+00,
. 0.5773502691896257D+00,-.5773502691896257D+00,
. 0.5773502691896257D+00,-.5773502691896257D+00,
. 0.4597008433809831D+00,-.4597008433809831D+00,
. 0.4597008433809831D+00,-.4597008433809831D+00,
. 0.8880738339771153D+00,-.8880738339771153D+00,
. 0.8880738339771153D+00,-.8880738339771153D+00,
. 0.4597008433809831D+00,-.4597008433809831D+00,
. 0.4597008433809831D+00,-.4597008433809831D+00,
. 0.8880738339771153D+00,-.8880738339771153D+00,
. 0.8880738339771153D+00,-.8880738339771153D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00
. /
data grida(2,1:38) /
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.1000000000000000D+01,-.1000000000000000D+01,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.5773502691896257D+00,0.5773502691896257D+00,
. -.5773502691896257D+00,-.5773502691896257D+00,
. 0.5773502691896257D+00,0.5773502691896257D+00,
. -.5773502691896257D+00,-.5773502691896257D+00,
. 0.8880738339771153D+00,0.8880738339771153D+00,
. -.8880738339771153D+00,-.8880738339771153D+00,
. 0.4597008433809831D+00,0.4597008433809831D+00,
. -.4597008433809831D+00,-.4597008433809831D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.4597008433809831D+00,-.4597008433809831D+00,
. 0.4597008433809831D+00,-.4597008433809831D+00,
. 0.8880738339771153D+00,-.8880738339771153D+00,
. 0.8880738339771153D+00,-.8880738339771153D+00
. /
data grida(3,1:38) /
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.1000000000000000D+01,-.1000000000000000D+01,
. 0.5773502691896257D+00,0.5773502691896257D+00,
. 0.5773502691896257D+00,0.5773502691896257D+00,
. -.5773502691896257D+00,-.5773502691896257D+00,
. -.5773502691896257D+00,-.5773502691896257D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.8880738339771153D+00,0.8880738339771153D+00,
. -.8880738339771153D+00,-.8880738339771153D+00,
. 0.4597008433809831D+00,0.4597008433809831D+00,
. -.4597008433809831D+00,-.4597008433809831D+00,
. 0.8880738339771153D+00,0.8880738339771153D+00,
. -.8880738339771153D+00,-.8880738339771153D+00,
. 0.4597008433809831D+00,0.4597008433809831D+00,
. -.4597008433809831D+00,-.4597008433809831D+00
. /
data grida(4,1:38) /
. 0.9523809523809525D-02,0.9523809523809525D-02,
. 0.9523809523809525D-02,0.9523809523809525D-02,
. 0.9523809523809525D-02,0.9523809523809525D-02,
. 0.3214285714285714D-01,0.3214285714285714D-01,
. 0.3214285714285714D-01,0.3214285714285714D-01,
. 0.3214285714285714D-01,0.3214285714285714D-01,
. 0.3214285714285714D-01,0.3214285714285714D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01,
. 0.2857142857142857D-01,0.2857142857142857D-01
. /
xtb-6.7.1/include/grida86.fh 0000664 0000000 0000000 00000022620 14650006642 0015535 0 ustar 00root root 0000000 0000000 data grida(1,1:86) /
. 0.1000000000000000D+01,-.1000000000000000D+01,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.5773502691896257D+00,-.5773502691896257D+00,
. 0.5773502691896257D+00,-.5773502691896257D+00,
. 0.5773502691896257D+00,-.5773502691896257D+00,
. 0.5773502691896257D+00,-.5773502691896257D+00,
. 0.3696028464541502D+00,-.3696028464541502D+00,
. 0.3696028464541502D+00,-.3696028464541502D+00,
. 0.3696028464541502D+00,-.3696028464541502D+00,
. 0.3696028464541502D+00,-.3696028464541502D+00,
. 0.3696028464541502D+00,-.3696028464541502D+00,
. 0.3696028464541502D+00,-.3696028464541502D+00,
. 0.3696028464541502D+00,-.3696028464541502D+00,
. 0.3696028464541502D+00,-.3696028464541502D+00,
. 0.8525183117012676D+00,-.8525183117012676D+00,
. 0.8525183117012676D+00,-.8525183117012676D+00,
. 0.8525183117012676D+00,-.8525183117012676D+00,
. 0.8525183117012676D+00,-.8525183117012676D+00,
. 0.6943540066026664D+00,-.6943540066026664D+00,
. 0.6943540066026664D+00,-.6943540066026664D+00,
. 0.6943540066026664D+00,-.6943540066026664D+00,
. 0.6943540066026664D+00,-.6943540066026664D+00,
. 0.6943540066026664D+00,-.6943540066026664D+00,
. 0.6943540066026664D+00,-.6943540066026664D+00,
. 0.6943540066026664D+00,-.6943540066026664D+00,
. 0.6943540066026664D+00,-.6943540066026664D+00,
. 0.1890635528853950D+00,-.1890635528853950D+00,
. 0.1890635528853950D+00,-.1890635528853950D+00,
. 0.1890635528853950D+00,-.1890635528853950D+00,
. 0.1890635528853950D+00,-.1890635528853950D+00,
. 0.3742430390903412D+00,-.3742430390903412D+00,
. 0.3742430390903412D+00,-.3742430390903412D+00,
. 0.9273306571511725D+00,-.9273306571511725D+00,
. 0.9273306571511725D+00,-.9273306571511725D+00,
. 0.3742430390903412D+00,-.3742430390903412D+00,
. 0.3742430390903412D+00,-.3742430390903412D+00,
. 0.9273306571511725D+00,-.9273306571511725D+00,
. 0.9273306571511725D+00,-.9273306571511725D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00
. /
data grida(2,1:86) /
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.1000000000000000D+01,-.1000000000000000D+01,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.5773502691896257D+00,0.5773502691896257D+00,
. -.5773502691896257D+00,-.5773502691896257D+00,
. 0.5773502691896257D+00,0.5773502691896257D+00,
. -.5773502691896257D+00,-.5773502691896257D+00,
. 0.3696028464541502D+00,0.3696028464541502D+00,
. -.3696028464541502D+00,-.3696028464541502D+00,
. 0.3696028464541502D+00,0.3696028464541502D+00,
. -.3696028464541502D+00,-.3696028464541502D+00,
. 0.8525183117012676D+00,0.8525183117012676D+00,
. -.8525183117012676D+00,-.8525183117012676D+00,
. 0.8525183117012676D+00,0.8525183117012676D+00,
. -.8525183117012676D+00,-.8525183117012676D+00,
. 0.3696028464541502D+00,0.3696028464541502D+00,
. -.3696028464541502D+00,-.3696028464541502D+00,
. 0.3696028464541502D+00,0.3696028464541502D+00,
. -.3696028464541502D+00,-.3696028464541502D+00,
. 0.6943540066026664D+00,0.6943540066026664D+00,
. -.6943540066026664D+00,-.6943540066026664D+00,
. 0.6943540066026664D+00,0.6943540066026664D+00,
. -.6943540066026664D+00,-.6943540066026664D+00,
. 0.1890635528853950D+00,0.1890635528853950D+00,
. -.1890635528853950D+00,-.1890635528853950D+00,
. 0.1890635528853950D+00,0.1890635528853950D+00,
. -.1890635528853950D+00,-.1890635528853950D+00,
. 0.6943540066026664D+00,0.6943540066026664D+00,
. -.6943540066026664D+00,-.6943540066026664D+00,
. 0.6943540066026664D+00,0.6943540066026664D+00,
. -.6943540066026664D+00,-.6943540066026664D+00,
. 0.9273306571511725D+00,0.9273306571511725D+00,
. -.9273306571511725D+00,-.9273306571511725D+00,
. 0.3742430390903412D+00,0.3742430390903412D+00,
. -.3742430390903412D+00,-.3742430390903412D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.3742430390903412D+00,-.3742430390903412D+00,
. 0.3742430390903412D+00,-.3742430390903412D+00,
. 0.9273306571511725D+00,-.9273306571511725D+00,
. 0.9273306571511725D+00,-.9273306571511725D+00
. /
data grida(3,1:86) /
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.1000000000000000D+01,-.1000000000000000D+01,
. 0.5773502691896257D+00,0.5773502691896257D+00,
. 0.5773502691896257D+00,0.5773502691896257D+00,
. -.5773502691896257D+00,-.5773502691896257D+00,
. -.5773502691896257D+00,-.5773502691896257D+00,
. 0.8525183117012676D+00,0.8525183117012676D+00,
. 0.8525183117012676D+00,0.8525183117012676D+00,
. -.8525183117012676D+00,-.8525183117012676D+00,
. -.8525183117012676D+00,-.8525183117012676D+00,
. 0.3696028464541502D+00,0.3696028464541502D+00,
. 0.3696028464541502D+00,0.3696028464541502D+00,
. -.3696028464541502D+00,-.3696028464541502D+00,
. -.3696028464541502D+00,-.3696028464541502D+00,
. 0.3696028464541502D+00,0.3696028464541502D+00,
. 0.3696028464541502D+00,0.3696028464541502D+00,
. -.3696028464541502D+00,-.3696028464541502D+00,
. -.3696028464541502D+00,-.3696028464541502D+00,
. 0.1890635528853950D+00,0.1890635528853950D+00,
. 0.1890635528853950D+00,0.1890635528853950D+00,
. -.1890635528853950D+00,-.1890635528853950D+00,
. -.1890635528853950D+00,-.1890635528853950D+00,
. 0.6943540066026664D+00,0.6943540066026664D+00,
. 0.6943540066026664D+00,0.6943540066026664D+00,
. -.6943540066026664D+00,-.6943540066026664D+00,
. -.6943540066026664D+00,-.6943540066026664D+00,
. 0.6943540066026664D+00,0.6943540066026664D+00,
. 0.6943540066026664D+00,0.6943540066026664D+00,
. -.6943540066026664D+00,-.6943540066026664D+00,
. -.6943540066026664D+00,-.6943540066026664D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.0000000000000000D+00,0.0000000000000000D+00,
. 0.9273306571511725D+00,0.9273306571511725D+00,
. -.9273306571511725D+00,-.9273306571511725D+00,
. 0.3742430390903412D+00,0.3742430390903412D+00,
. -.3742430390903412D+00,-.3742430390903412D+00,
. 0.9273306571511725D+00,0.9273306571511725D+00,
. -.9273306571511725D+00,-.9273306571511725D+00,
. 0.3742430390903412D+00,0.3742430390903412D+00,
. -.3742430390903412D+00,-.3742430390903412D+00
. /
data grida(4,1:86) /
. 0.1154401154401154D-01,0.1154401154401154D-01,
. 0.1154401154401154D-01,0.1154401154401154D-01,
. 0.1154401154401154D-01,0.1154401154401154D-01,
. 0.1194390908585628D-01,0.1194390908585628D-01,
. 0.1194390908585628D-01,0.1194390908585628D-01,
. 0.1194390908585628D-01,0.1194390908585628D-01,
. 0.1194390908585628D-01,0.1194390908585628D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1111055571060340D-01,0.1111055571060340D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1187650129453714D-01,0.1187650129453714D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01,
. 0.1181230374690448D-01,0.1181230374690448D-01
. /
xtb-6.7.1/include/param_alpb_acetone.fh 0000664 0000000 0000000 00000037737 14650006642 0020104 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_acetone = gbsa_parameter ( &
20.70000000_wp, &
58.08000000_wp, &
0.79000000_wp, &
2.01845323_wp, &
3.27680026_wp, &
8.34270751_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.93807308_wp, -0.47569452_wp, -3.60142562_wp, -5.92071848_wp, -1.46886194_wp, &
-1.72192912_wp, -1.11969341_wp, -0.40595804_wp, -0.83705615_wp, -0.45819704_wp, &
-2.18626549_wp, -1.50564685_wp, -1.43110001_wp, -0.06872289_wp, -1.58632511_wp, &
-1.56796364_wp, -1.24869376_wp, -1.10092315_wp, -2.19702785_wp, -3.25733243_wp, &
5.20449155_wp, 0.00000000_wp, -2.68435815_wp, -2.12805789_wp, -3.20128857_wp, &
-2.58269396_wp, -8.14641982_wp, -2.01313264_wp, -1.65499020_wp, -1.78598438_wp, &
-1.84389892_wp, -1.42829016_wp, -1.44112971_wp, -1.33909468_wp, -1.38598744_wp, &
-1.10266826_wp, -2.07948233_wp, -3.43537386_wp, -1.04152524_wp, -1.14157392_wp, &
-1.94159332_wp, -2.39124703_wp, -5.00653956_wp, -2.19961718_wp, -1.26434634_wp, &
-1.60828009_wp, -1.42366089_wp, -1.44249812_wp, -2.12098454_wp, -1.43933178_wp, &
-1.23601430_wp, -1.48803587_wp, -1.56187394_wp, -1.10336144_wp, -2.13089270_wp, &
-2.96799021_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.27226295_wp, -1.80877548_wp, -1.03720167_wp, -5.88439557_wp, &
-1.43257790_wp, -1.36092907_wp, -1.03137578_wp, -1.11522711_wp, -1.42780084_wp, &
-1.46936060_wp, -1.07886637_wp, -1.13959783_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.54609038_wp, 0.30000000_wp, 0.97771926_wp, 1.18992994_wp, 1.17400981_wp, &
0.66033010_wp, 0.32532398_wp, 0.30000000_wp, 0.66970221_wp, 0.30000000_wp, &
1.90965911_wp, 0.90234194_wp, 0.83396782_wp, 0.67370415_wp, 0.90719285_wp, &
0.30000000_wp, 0.93311314_wp, 0.30000000_wp, 0.56503080_wp, 0.30000000_wp, &
1.02985990_wp, 0.00000000_wp, 1.22107306_wp, 0.93537160_wp, 1.09336314_wp, &
1.01117926_wp, 0.56745970_wp, 0.96894929_wp, 1.03468675_wp, 0.30000000_wp, &
0.76505381_wp, 0.77269304_wp, 1.15934625_wp, 0.86905928_wp, 0.30000000_wp, &
0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.71335374_wp, 1.22619976_wp, &
0.98493485_wp, 0.67493258_wp, 1.09486809_wp, 0.96065828_wp, 0.91504956_wp, &
0.52483855_wp, 0.70804815_wp, 0.01963447_wp, 0.83621773_wp, 1.17134911_wp, &
1.08466435_wp, 0.96137979_wp, 0.30000000_wp, 0.64307648_wp, 0.95743684_wp, &
0.45017603_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.28072201_wp, 0.95892421_wp, 0.79563661_wp, 0.87368677_wp, &
0.97555957_wp, 0.83002799_wp, 0.80000000_wp, 1.00134539_wp, 0.80000000_wp, &
0.91182395_wp, 0.86857160_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 7.19793177_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_acetone = gbsa_parameter ( &
20.70000000_wp, &
58.08000000_wp, &
0.79000000_wp, &
1.82744517_wp, &
1.16056371_wp, &
3.71745477_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.58616844_wp, -0.30709560_wp, -5.94928113_wp, -13.65649967_wp, -2.50699930_wp, &
-2.56310412_wp, -3.15675044_wp, -2.44808825_wp, -0.89945455_wp, -0.33634476_wp, &
-3.87007975_wp, -2.72929146_wp, -2.04849151_wp, 0.17586358_wp, -2.20812285_wp, &
-2.31423806_wp, -1.73119355_wp, -1.28889221_wp, -3.21905703_wp, -6.03598657_wp, &
-5.57005246_wp, -4.25136024_wp, -4.31991206_wp, -2.99519395_wp, -2.02492855_wp, &
1.71668551_wp, 11.68225676_wp, -1.82459822_wp, -2.05246870_wp, -3.66452610_wp, &
-2.77606678_wp, -1.88897991_wp, -2.29491449_wp, -1.82087329_wp, -2.34857165_wp, &
-1.31367125_wp, -3.22967523_wp, -6.92349673_wp, -8.03352261_wp, -0.95352196_wp, &
-4.07110792_wp, -4.02516701_wp, 2.24676734_wp, -2.78928205_wp, -1.53836954_wp, &
-2.15615111_wp, -2.34319672_wp, -2.51689036_wp, -3.12829238_wp, -1.59731993_wp, &
-1.86791451_wp, -2.16601206_wp, -2.94891199_wp, -1.12781227_wp, -3.18229731_wp, &
-5.79886288_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.02379488_wp, -3.21255866_wp, 2.57275593_wp, 0.69395644_wp, &
-0.79978668_wp, -2.02076917_wp, -0.95964178_wp, -1.31659237_wp, -2.71478938_wp, &
-2.12346632_wp, -0.90197761_wp, -1.40814465_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.48130656_wp, 1.32818914_wp, 0.30000000_wp, 0.82280446_wp, 0.79342871_wp, &
0.84069542_wp, 0.30000000_wp, 0.30000000_wp, 0.76391376_wp, 0.30000000_wp, &
0.15633089_wp, 1.09358429_wp, 0.69841172_wp, 0.87924324_wp, 0.76121319_wp, &
0.94722356_wp, 0.74062885_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
1.02523016_wp, 1.06672104_wp, 1.19745079_wp, 1.37842025_wp, 1.13846943_wp, &
1.42662550_wp, 0.84079786_wp, 0.89696274_wp, 0.49020444_wp, 0.30000000_wp, &
1.11091916_wp, 0.85944054_wp, 1.00706733_wp, 1.21342516_wp, 0.59847219_wp, &
1.20576503_wp, 0.30000000_wp, 0.30000000_wp, 1.20873605_wp, 0.71782314_wp, &
1.23226470_wp, 1.32705365_wp, 1.30515572_wp, 1.35680638_wp, 1.26591080_wp, &
0.67728437_wp, 0.98164468_wp, 1.14661537_wp, 0.86519215_wp, 0.64492595_wp, &
1.08495415_wp, 0.30000000_wp, 0.65422829_wp, 1.14641416_wp, 0.61548674_wp, &
0.97521406_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.27818607_wp, 1.08627283_wp, 1.12592398_wp, 1.04507244_wp, &
1.29039929_wp, 1.23173428_wp, 0.73926867_wp, 1.02083793_wp, 0.30000000_wp, &
0.84958526_wp, 0.98861174_wp, 0.53599756_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.76435360_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_acetone = gbsa_parameter ( &
20.70000000_wp, &
58.08000000_wp, &
0.79000000_wp, &
2.06226451_wp, &
1.09021790_wp, &
3.81991539_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.62617656_wp, -0.30441806_wp, -6.75763444_wp, -15.39698581_wp, -2.71997511_wp, &
-2.64299617_wp, -3.56094884_wp, -3.30810095_wp, -0.61325439_wp, -0.35165510_wp, &
-5.08617244_wp, -3.01575147_wp, -2.39600043_wp, -0.39462201_wp, -2.13619560_wp, &
-2.54585426_wp, -1.84430845_wp, -1.75124800_wp, -4.21538998_wp, -5.90097514_wp, &
-6.41487683_wp, -5.63454499_wp, -5.03042014_wp, -2.52622455_wp, -1.69725145_wp, &
-2.44486540_wp, 17.21294867_wp, -2.25039413_wp, -2.86685060_wp, -4.01860664_wp, &
-2.79464198_wp, -1.93350060_wp, -2.38825630_wp, -2.15975333_wp, -2.48810547_wp, &
-1.48180475_wp, -2.08614545_wp, -8.28755648_wp, -8.40716907_wp, -2.92857654_wp, &
-3.76067254_wp, -4.29238705_wp, 6.30639583_wp, -1.04707170_wp, -0.21616036_wp, &
-3.08461490_wp, -2.50252560_wp, -3.47011366_wp, -3.50870578_wp, -1.75701768_wp, &
-2.05926764_wp, -2.39195652_wp, -2.75406320_wp, -1.10038375_wp, -3.73644987_wp, &
-6.35486723_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -5.09319260_wp, -3.63256878_wp, 1.12350854_wp, 3.30228880_wp, &
0.73086535_wp, -1.59980284_wp, -1.42498036_wp, -1.52086902_wp, -2.37559254_wp, &
-2.39689781_wp, -1.47381253_wp, -2.20513504_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 0.58579299_wp, 0.30000000_wp, 0.30000000_wp, 1.01697551_wp, &
0.91010636_wp, 0.36649920_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.30000000_wp, 1.15578171_wp, 1.02500154_wp, 0.30000000_wp, 0.51459232_wp, &
0.91984995_wp, 0.74371288_wp, 0.30000000_wp, 0.30000000_wp, 1.71014798_wp, &
1.02121066_wp, 1.17904255_wp, 1.20229185_wp, 1.34394175_wp, 1.27187249_wp, &
1.37666940_wp, 1.36114938_wp, 1.58371687_wp, 0.30000000_wp, 0.30000000_wp, &
0.41579231_wp, 0.69816687_wp, 0.94754789_wp, 1.14428927_wp, 1.71501467_wp, &
0.49327456_wp, 0.30000000_wp, 0.30000000_wp, 0.95325934_wp, 0.85652129_wp, &
1.33964964_wp, 1.20616717_wp, 1.38601992_wp, 1.49663118_wp, 1.12651328_wp, &
1.09446813_wp, 0.30000000_wp, 0.30000000_wp, 0.89931216_wp, 0.67685866_wp, &
1.00241117_wp, 0.81351804_wp, 1.56028102_wp, 1.29161910_wp, 0.30000000_wp, &
0.02804521_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.24690121_wp, 1.26710992_wp, 1.14317998_wp, 1.18022671_wp, &
1.33512010_wp, 1.07187102_wp, 0.84296701_wp, 0.80000000_wp, 0.90426661_wp, &
0.80000000_wp, 0.83883116_wp, 0.64757609_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.27867095_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_acetonitrile.fh 0000664 0000000 0000000 00000037756 14650006642 0021151 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_acetonitrile = gbsa_parameter ( &
37.50000000_wp, &
41.05000000_wp, &
0.78600000_wp, &
1.72395330_wp, &
1.17433625_wp, &
3.94174658_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.11566896_wp, 0.02906170_wp, -6.86573594_wp, -14.02198952_wp, -2.38778754_wp, &
-2.50154739_wp, -1.75808831_wp, -0.72846886_wp, -0.39589146_wp, 0.00346599_wp, &
-3.87624765_wp, -2.73169703_wp, -2.06017945_wp, -4.29427245_wp, -2.38074341_wp, &
-2.44456561_wp, -1.71367368_wp, -0.91353838_wp, -3.44563029_wp, -11.51304700_wp, &
-8.48214683_wp, -0.96377586_wp, -4.44018232_wp, -4.10336294_wp, -3.57601023_wp, &
-4.83045554_wp, 10.42172621_wp, -3.08813678_wp, -2.37110350_wp, -3.34394352_wp, &
-2.84557745_wp, -1.80292292_wp, -2.20376681_wp, -1.89287737_wp, -2.29950110_wp, &
-0.92112938_wp, -2.98880143_wp, -5.65659118_wp, -14.21180242_wp, -0.21081831_wp, &
-4.51420853_wp, 0.35010335_wp, -1.24281694_wp, -2.91513217_wp, -1.61930799_wp, &
-2.44403789_wp, -1.88981174_wp, -2.21456809_wp, -3.50987871_wp, -1.48967435_wp, &
-1.76151862_wp, -1.94448920_wp, -2.68164394_wp, -0.83899513_wp, -5.39764710_wp, &
-5.48589393_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.66477072_wp, -4.05970484_wp, 2.25370404_wp, 0.86584640_wp, &
-1.47822482_wp, -1.78935109_wp, -0.86701377_wp, -1.26504807_wp, -1.70541885_wp, &
-1.98571622_wp, -0.97795151_wp, -0.87005892_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.56138361_wp, 1.64483441_wp, 0.87499938_wp, 0.99250778_wp, 0.84586206_wp, &
0.80535580_wp, 0.51125602_wp, 0.30000000_wp, 0.65102139_wp, 0.30000000_wp, &
0.30000000_wp, 0.76516039_wp, 0.98674712_wp, 1.04262981_wp, 0.85387234_wp, &
0.72492087_wp, 0.83457070_wp, 0.67999935_wp, 0.63142305_wp, 1.22772112_wp, &
0.92834987_wp, 0.95381415_wp, 1.15260056_wp, 1.34416846_wp, 1.25486308_wp, &
1.14796403_wp, 0.96633374_wp, 0.94406472_wp, 0.86576682_wp, 0.30000000_wp, &
0.49296618_wp, 0.85398421_wp, 1.12851617_wp, 1.00393142_wp, 0.96737093_wp, &
0.18819238_wp, 0.30000000_wp, 1.02625667_wp, 1.21642482_wp, 1.03845474_wp, &
1.06596145_wp, 0.46070773_wp, 1.22616879_wp, 1.19509930_wp, 1.08094943_wp, &
0.85317834_wp, 0.84464316_wp, 0.30000000_wp, 0.86139851_wp, 0.83185471_wp, &
1.04502433_wp, 0.71948928_wp, 1.51911807_wp, 0.99416747_wp, 1.02150257_wp, &
0.40540095_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.99735870_wp, 1.07807707_wp, 0.58705117_wp, 0.79347935_wp, &
1.16273086_wp, 1.06695970_wp, 0.60983883_wp, 0.99554915_wp, 1.22513532_wp, &
0.79831814_wp, 0.88363265_wp, 0.48580694_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 3.35647988_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_acetonitrile = gbsa_parameter ( &
37.50000000_wp, &
41.05000000_wp, &
0.78600000_wp, &
1.72136166_wp, &
1.02173881_wp, &
3.26220511_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.30829234_wp, 0.07869756_wp, -6.34782905_wp, -15.52350747_wp, -2.39455571_wp, &
-2.52921042_wp, -3.51706691_wp, -2.39172770_wp, -0.60311200_wp, 0.04022038_wp, &
-4.14669337_wp, -3.26116104_wp, -1.95553354_wp, 0.42302196_wp, -2.07953398_wp, &
-2.20329733_wp, -1.52271664_wp, -0.87279161_wp, -3.33652372_wp, -7.13358295_wp, &
-7.53566194_wp, -4.56573371_wp, -5.13232712_wp, -2.99559920_wp, -2.17079646_wp, &
1.03547747_wp, 15.00866716_wp, -1.96685553_wp, -1.84653361_wp, -3.90820543_wp, &
-2.96022711_wp, -1.45693350_wp, -2.19372337_wp, -1.60615814_wp, -1.86875461_wp, &
-0.90835488_wp, -3.37828045_wp, -8.14805044_wp, -9.32105410_wp, -1.06999861_wp, &
-4.97269666_wp, -4.28496846_wp, 0.65739714_wp, -3.31577377_wp, -1.26229117_wp, &
-2.37622966_wp, -2.16541127_wp, -2.89715920_wp, -3.27231922_wp, -1.28366406_wp, &
-1.77091204_wp, -2.01166126_wp, -2.50433473_wp, -0.76859785_wp, -3.15818239_wp, &
-6.65964080_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.42834747_wp, -3.84978423_wp, 0.90801348_wp, 0.58973148_wp, &
-1.08176895_wp, -1.80527023_wp, -0.90475874_wp, -1.06282789_wp, -2.86573574_wp, &
-2.06342409_wp, -0.58497698_wp, -1.14790964_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.57074107_wp, 1.68244035_wp, 0.05496586_wp, 0.80546054_wp, 0.79513406_wp, &
0.83570107_wp, 0.70688560_wp, 0.30000000_wp, 0.73686633_wp, 0.30000000_wp, &
0.30000000_wp, 0.80058936_wp, 0.71089231_wp, 0.83507313_wp, 0.75643432_wp, &
0.93261460_wp, 0.70992920_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
1.00871604_wp, 1.05156360_wp, 1.15737083_wp, 1.38505998_wp, 1.11092644_wp, &
1.45293995_wp, 0.71760627_wp, 0.85265458_wp, 0.53117479_wp, 0.30000000_wp, &
0.96713214_wp, 0.82433940_wp, 1.02048126_wp, 1.05813104_wp, 0.76000744_wp, &
1.12053043_wp, 0.30000000_wp, 0.30000000_wp, 1.20076271_wp, 0.42555962_wp, &
1.18726757_wp, 1.34130360_wp, 1.24256188_wp, 1.32903149_wp, 1.15531771_wp, &
0.88346638_wp, 0.86584805_wp, 0.30000000_wp, 0.84764033_wp, 0.51389128_wp, &
0.73022974_wp, 0.55572302_wp, 0.65793507_wp, 1.05764484_wp, 0.30000000_wp, &
0.95722319_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.22867793_wp, 1.03450363_wp, 1.14226044_wp, 0.94780050_wp, &
1.30072500_wp, 1.22069757_wp, 1.00206526_wp, 0.97064876_wp, 0.80000000_wp, &
0.76551161_wp, 0.99298353_wp, 0.41893473_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.01652192_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_acetonitrile = gbsa_parameter ( &
37.50000000_wp, &
41.05000000_wp, &
0.78600000_wp, &
1.93562878_wp, &
0.93508721_wp, &
3.32777566_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.36922347_wp, 0.07132335_wp, -7.37540236_wp, -17.50609469_wp, -2.61423197_wp, &
-2.66469060_wp, -4.21201571_wp, -3.77573590_wp, -0.24037507_wp, 0.01802184_wp, &
-5.58731789_wp, -3.10243391_wp, -2.24793194_wp, 0.03018490_wp, -2.04566859_wp, &
-2.56653160_wp, -1.71703713_wp, -1.41216590_wp, -4.54539810_wp, -7.47240185_wp, &
-6.96149600_wp, -5.79025416_wp, -5.32478300_wp, -1.09844590_wp, -1.15457113_wp, &
-2.16136469_wp, 23.49161799_wp, -1.89362937_wp, -2.78212504_wp, -4.30128381_wp, &
-2.83810104_wp, -1.47551328_wp, -2.25394702_wp, -1.99261803_wp, -2.51465008_wp, &
-1.10325999_wp, -4.00485031_wp, -9.80150172_wp, -9.07286571_wp, -2.36055743_wp, &
-4.36277483_wp, -4.07638906_wp, 7.24821323_wp, -0.18049945_wp, 0.91446087_wp, &
-2.69976570_wp, -2.34933460_wp, -3.53008399_wp, -3.67004529_wp, -1.39825707_wp, &
-1.88374165_wp, -2.16384029_wp, -2.82903005_wp, -0.76834724_wp, -4.12523758_wp, &
-7.33255164_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -5.12521641_wp, -4.06564617_wp, 1.52744024_wp, 4.80787167_wp, &
1.81621103_wp, -0.69628203_wp, -1.15781978_wp, -0.50900467_wp, -2.26342660_wp, &
-2.43818099_wp, -0.79011790_wp, -2.17404890_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.27463768_wp, 0.30000000_wp, 0.30000000_wp, 0.98896306_wp, &
0.91993538_wp, 0.66167633_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.30000000_wp, 1.14506176_wp, 1.02782944_wp, 0.30000000_wp, 0.48125077_wp, &
0.93160321_wp, 0.91692223_wp, 0.30000000_wp, 0.30000000_wp, 1.02409767_wp, &
1.00478465_wp, 1.17524361_wp, 1.19819719_wp, 1.34775134_wp, 1.31038997_wp, &
1.38799404_wp, 1.33819568_wp, 1.59086221_wp, 0.30000000_wp, 0.30000000_wp, &
0.39336464_wp, 0.73498502_wp, 0.93104735_wp, 1.09157007_wp, 1.71684797_wp, &
0.33928148_wp, 0.30000000_wp, 0.30000000_wp, 0.83839729_wp, 0.30000000_wp, &
1.34592358_wp, 1.20663735_wp, 1.37280499_wp, 1.50554705_wp, 1.12523612_wp, &
1.76257504_wp, 0.30000000_wp, 0.30000000_wp, 0.89678420_wp, 0.61150722_wp, &
0.98840382_wp, 0.84371080_wp, 1.52202290_wp, 1.21069720_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.20889373_wp, 1.27362540_wp, 1.13685506_wp, 1.19749356_wp, &
1.35469451_wp, 1.07340389_wp, 0.92444899_wp, 0.24118159_wp, 0.89529107_wp, &
0.80000000_wp, 1.18959160_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 5.50576688_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_aniline.fh 0000664 0000000 0000000 00000037737 14650006642 0020105 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_aniline = gbsa_parameter ( &
6.88820000_wp, &
93.13000000_wp, &
1.02000000_wp, &
1.48870754_wp, &
0.69813807_wp, &
1.92760071_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.02389038_wp, -0.01134835_wp, -7.21334424_wp, -15.56347997_wp, -2.64168466_wp, &
-2.48528837_wp, 0.15175685_wp, 1.66122204_wp, 0.87093010_wp, -0.04460883_wp, &
-3.69549012_wp, -2.73360111_wp, -2.30429043_wp, 0.52667190_wp, -2.18520693_wp, &
-1.96663191_wp, -1.53249121_wp, -0.88783393_wp, -3.27518585_wp, -6.84000195_wp, &
-6.27688128_wp, -3.13882726_wp, -3.01784301_wp, 1.10287169_wp, -3.76869883_wp, &
-5.12243443_wp, 0.68295556_wp, -2.97606774_wp, -2.41615249_wp, -2.57685196_wp, &
-2.29927226_wp, -2.08806120_wp, -2.45251343_wp, -1.85069907_wp, -2.23148208_wp, &
-0.93720826_wp, -2.97145827_wp, -7.91243730_wp, -7.95108977_wp, 2.66771960_wp, &
-0.62402502_wp, 7.17104287_wp, -1.76628056_wp, -1.77180726_wp, -1.72081282_wp, &
-2.78259071_wp, -1.91958147_wp, 0.67496939_wp, -3.77105279_wp, -1.68849732_wp, &
-2.05097514_wp, -2.07893521_wp, -2.70680609_wp, -0.72535480_wp, -0.15097788_wp, &
-6.27935381_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.52503843_wp, -1.71876626_wp, 4.49056253_wp, 3.24414005_wp, &
-1.72659803_wp, -1.73432792_wp, -0.79654992_wp, -1.20911925_wp, -0.87045451_wp, &
-1.66113798_wp, -0.53390068_wp, 0.27467647_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.79849837_wp, 1.87680893_wp, 1.04585884_wp, 0.81917168_wp, 0.87750241_wp, &
0.69524762_wp, 0.32098194_wp, 0.36513575_wp, 0.68255027_wp, 0.30000000_wp, &
0.30000000_wp, 0.69841992_wp, 1.00207332_wp, 0.88613511_wp, 0.77886034_wp, &
0.67646687_wp, 0.77819694_wp, 0.90592552_wp, 0.58496499_wp, 0.30000000_wp, &
1.07299680_wp, 1.06506047_wp, 1.17828261_wp, 1.12009363_wp, 1.21983280_wp, &
1.14382983_wp, 0.98723265_wp, 1.02860727_wp, 1.16276075_wp, 0.46346294_wp, &
0.28710788_wp, 0.99999999_wp, 1.16618166_wp, 0.97989128_wp, 1.02255579_wp, &
0.44944867_wp, 0.30000000_wp, 0.48326820_wp, 1.05595120_wp, 1.12309126_wp, &
1.04783859_wp, 0.86809304_wp, 1.23610799_wp, 1.11453034_wp, 1.05375039_wp, &
1.21589351_wp, 0.97393369_wp, 0.82036827_wp, 0.92980212_wp, 0.78830633_wp, &
1.04135134_wp, 0.88221235_wp, 1.10404612_wp, 0.92628991_wp, 1.00005935_wp, &
0.70079383_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.03006581_wp, 1.03072582_wp, 0.87936821_wp, 0.83091299_wp, &
1.10342061_wp, 1.04000803_wp, 0.87732072_wp, 1.11535089_wp, 1.06603344_wp, &
0.73626437_wp, 0.89514820_wp, 0.75097819_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 2.40082075_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.94690769_wp, -1.13776054_wp, -0.66297853_wp, -0.35812798_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 3.92086841_wp, &
4.11473397_wp, 1.17004430_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.45236657_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.01252622_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_aniline = gbsa_parameter ( &
6.88820000_wp, &
93.13000000_wp, &
1.02000000_wp, &
1.48549561_wp, &
1.07420745_wp, &
1.86522103_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.11127792_wp, -0.00755122_wp, -4.78401252_wp, -14.18157696_wp, -2.14093643_wp, &
-2.26934003_wp, -2.37133105_wp, -0.25020795_wp, 0.29186478_wp, -0.06627081_wp, &
-3.37712198_wp, -2.29418433_wp, -1.55411577_wp, 0.52667190_wp, -1.89402854_wp, &
-1.48875065_wp, -1.28068651_wp, -0.86024457_wp, -2.83699421_wp, -6.84000195_wp, &
-6.27688128_wp, -3.13882726_wp, -5.38467709_wp, -2.18311181_wp, -2.80545653_wp, &
-0.19204474_wp, 1.00000000_wp, -1.02971367_wp, -1.76075659_wp, -2.99671708_wp, &
-2.76891595_wp, -1.46369860_wp, -1.98160058_wp, -1.16424874_wp, -1.50974562_wp, &
-0.92107172_wp, -3.17418901_wp, -7.91243730_wp, -7.95108977_wp, 0.29924239_wp, &
-5.65543732_wp, -2.41710525_wp, -2.86025348_wp, -3.44412426_wp, -1.90499988_wp, &
-1.96078529_wp, -1.95466975_wp, -2.04487534_wp, -3.06482026_wp, -1.40793726_wp, &
-1.68527092_wp, -1.84822443_wp, -2.05159327_wp, -0.87797886_wp, -3.15507821_wp, &
-6.36518430_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.10301188_wp, -4.14190735_wp, 3.56821358_wp, -3.95574473_wp, &
-1.76679550_wp, -1.89776298_wp, -0.74504857_wp, -0.84934565_wp, -2.65870028_wp, &
-1.60578659_wp, -0.71401912_wp, -0.44774034_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.63606235_wp, 1.90461008_wp, 0.30000000_wp, 0.66432605_wp, 0.86557022_wp, &
0.33655338_wp, 0.81296684_wp, 0.04519102_wp, 0.80446803_wp, 0.30000000_wp, &
0.09880557_wp, 1.03423058_wp, 1.03328171_wp, 0.88613511_wp, 0.36689316_wp, &
0.83271482_wp, 1.12754750_wp, 0.70866652_wp, 0.30000000_wp, 0.30000000_wp, &
1.07299680_wp, 1.06506047_wp, 1.18796933_wp, 1.10493342_wp, 1.23555482_wp, &
1.34459642_wp, 0.30000000_wp, 0.86958534_wp, 0.95178949_wp, 0.69345353_wp, &
1.14302096_wp, 0.74926530_wp, 1.12796278_wp, 0.87516562_wp, 0.66418114_wp, &
1.19372266_wp, 0.30000000_wp, 0.48326820_wp, 1.05595120_wp, 0.65625684_wp, &
1.22915663_wp, 0.81502057_wp, 1.17973220_wp, 1.49439343_wp, 1.26260832_wp, &
1.13168322_wp, 0.98389441_wp, 1.09193368_wp, 0.82405083_wp, 0.30000000_wp, &
1.12708752_wp, 0.66720759_wp, 0.74844322_wp, 1.00653653_wp, 0.26744866_wp, &
0.91697745_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.26533804_wp, 1.09633120_wp, 0.78905670_wp, 1.29186761_wp, &
1.22830941_wp, 1.13900129_wp, 1.17881856_wp, 1.02488217_wp, 0.30000000_wp, &
0.57825236_wp, 0.99096833_wp, 0.54120328_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 5.07468979_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.16700779_wp, 0.19747334_wp, 0.73961102_wp, 0.92008779_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 1.16300541_wp, &
2.66688398_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.45236657_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.01252622_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_aniline = gbsa_parameter ( &
6.88820000_wp, &
93.13000000_wp, &
1.02000000_wp, &
1.56393411_wp, &
0.72408966_wp, &
1.19049594_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.08253385_wp, 0.02195280_wp, -6.54771654_wp, -18.15518294_wp, -2.50255435_wp, &
-2.30154751_wp, -1.74747833_wp, -0.57609235_wp, 0.66040722_wp, -0.03527126_wp, &
-5.32132405_wp, -2.82858464_wp, -2.19846825_wp, 0.34269392_wp, -1.65858541_wp, &
-2.25041898_wp, -1.36388048_wp, -1.26668560_wp, -4.55848018_wp, -8.13169608_wp, &
-4.43256051_wp, -7.07216477_wp, -7.18126578_wp, -2.32584811_wp, 0.08361281_wp, &
-3.69161654_wp, 7.58231160_wp, -2.48032064_wp, -2.36269992_wp, -3.82395853_wp, &
-2.90113040_wp, -1.75873594_wp, -2.18661934_wp, -1.63500051_wp, -2.08409604_wp, &
-0.99061993_wp, -4.06051905_wp, -10.63662865_wp, -4.45950697_wp, -2.66981934_wp, &
-5.86188937_wp, 2.64260042_wp, -1.71299619_wp, -0.30727594_wp, 1.73221282_wp, &
-3.02948718_wp, -1.96112926_wp, -3.49893738_wp, -3.61548404_wp, -1.44457196_wp, &
-2.02067691_wp, -1.91879583_wp, -2.37883359_wp, -0.73795405_wp, -4.35999052_wp, &
-7.71384016_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.18156621_wp, -4.88147680_wp, 10.12032087_wp, 0.94904139_wp, &
0.95569684_wp, -0.77021037_wp, -1.08130491_wp, -0.91193518_wp, -2.42490039_wp, &
-2.40465385_wp, -1.11434540_wp, -2.16622683_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.64920157_wp, 1.85729618_wp, 0.30000000_wp, 0.30000000_wp, 0.97459399_wp, &
0.69332473_wp, 0.46485237_wp, 0.30000000_wp, 0.42949775_wp, 1.63226679_wp, &
0.30000000_wp, 1.07575966_wp, 1.05808056_wp, 0.30000000_wp, 0.43100729_wp, &
1.00155635_wp, 1.38063858_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.74600161_wp, 1.09197799_wp, 1.29537497_wp, 1.60352646_wp, 1.69299456_wp, &
1.73600991_wp, 1.75813098_wp, 1.33228786_wp, 0.30000000_wp, 0.30000000_wp, &
0.66391167_wp, 0.73073540_wp, 0.96099312_wp, 0.94481318_wp, 1.73134924_wp, &
0.68437509_wp, 0.30000000_wp, 0.30000000_wp, 0.25065906_wp, 0.85696352_wp, &
1.41254333_wp, 1.71946423_wp, 1.51688751_wp, 1.84980801_wp, 1.13281063_wp, &
1.22761215_wp, 1.36913561_wp, 0.30000000_wp, 0.79593079_wp, 0.30000000_wp, &
1.03946529_wp, 0.82400336_wp, 1.04066875_wp, 1.10275938_wp, 0.30000000_wp, &
0.30000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.47821269_wp, 1.36925165_wp, 1.63549493_wp, 1.26249308_wp, &
1.56018003_wp, 1.28577440_wp, 1.12655242_wp, 0.92571840_wp, 0.80000000_wp, &
0.80000000_wp, 1.18890978_wp, 0.80000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 3.83204162_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
-2.86809507_wp, 3.25499461_wp, 2.25498661_wp, -0.52998821_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 1.98162597_wp, &
0.57912510_wp, 0.03273934_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.45236657_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.01252622_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_benzaldehyde.fh 0000664 0000000 0000000 00000037756 14650006642 0021125 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_benzaldehyde = gbsa_parameter ( &
18.22000000_wp, &
106.12400000_wp, &
1.04000000_wp, &
1.83468557_wp, &
1.04565456_wp, &
4.17164891_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.43335577_wp, -0.24725276_wp, -6.58478081_wp, -14.12997028_wp, -2.69257301_wp, &
-2.69923848_wp, -2.02655813_wp, -1.10256682_wp, -0.73809716_wp, -0.25904373_wp, &
-3.64507152_wp, -2.85293000_wp, -2.22177040_wp, 0.25660828_wp, -2.56281658_wp, &
-2.67657716_wp, -1.96605645_wp, -1.30132345_wp, -3.39570768_wp, -7.23574094_wp, &
-3.65302081_wp, -2.92425016_wp, -4.03017195_wp, -3.51295627_wp, -3.38073627_wp, &
-4.88088164_wp, 3.76349310_wp, -3.27651183_wp, -2.59943651_wp, -3.42585384_wp, &
-3.45892351_wp, -1.88517199_wp, -2.41705768_wp, -2.12331787_wp, -2.52731486_wp, &
-1.31435611_wp, -2.96623420_wp, 23.92366385_wp, -10.42734295_wp, -0.99467005_wp, &
-4.41664063_wp, -1.29060550_wp, -0.61773799_wp, -2.69997891_wp, -1.66952629_wp, &
-2.69361539_wp, -2.15553851_wp, -2.65975467_wp, -3.49263419_wp, -1.75026644_wp, &
-2.04611357_wp, -2.42834435_wp, -2.88024739_wp, -0.99964639_wp, -2.98000016_wp, &
-5.56578803_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.12712124_wp, -4.33374537_wp, 0.05800907_wp, 0.89759374_wp, &
-1.38018479_wp, -1.93567432_wp, -1.17342467_wp, -1.51333424_wp, -1.72646232_wp, &
-2.13438109_wp, -0.13219329_wp, -1.28252718_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.47081458_wp, 0.89736937_wp, 0.91813751_wp, 0.86055766_wp, &
0.84540417_wp, 0.30000000_wp, 0.30000000_wp, 0.58064673_wp, 0.30000000_wp, &
0.14546844_wp, 0.01093602_wp, 0.97941975_wp, 0.87840431_wp, 0.88106874_wp, &
0.79952393_wp, 0.91393123_wp, 0.53819854_wp, 0.60525082_wp, 0.30000000_wp, &
1.01819363_wp, 1.08326840_wp, 1.13998378_wp, 1.29164816_wp, 1.21423329_wp, &
1.38462157_wp, 1.11843602_wp, 0.94770616_wp, 0.79070517_wp, 0.03393643_wp, &
1.04118715_wp, 0.99729039_wp, 1.12052393_wp, 1.02208829_wp, 0.94224433_wp, &
0.15388677_wp, 0.30000000_wp, 1.54693311_wp, 1.08094157_wp, 1.11106767_wp, &
1.07741028_wp, 1.04678265_wp, 1.24567144_wp, 1.30482843_wp, 1.09153098_wp, &
0.89894382_wp, 0.74406637_wp, 0.82693234_wp, 0.91991919_wp, 0.83774327_wp, &
1.04826260_wp, 1.07063549_wp, 1.50632433_wp, 0.97713870_wp, 1.09446560_wp, &
0.97735980_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 0.99805364_wp, 1.06001429_wp, 0.99118230_wp, 0.74884366_wp, &
1.18686547_wp, 1.09407456_wp, 0.62084907_wp, 0.92956993_wp, 1.21429535_wp, &
0.85900598_wp, 1.00067766_wp, 0.55618046_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 2.97073711_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_benzaldehyde = gbsa_parameter ( &
18.22000000_wp, &
106.12400000_wp, &
1.04000000_wp, &
1.81873738_wp, &
0.27702266_wp, &
1.41868733_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.46702255_wp, -0.06148252_wp, -7.66687950_wp, -21.04489640_wp, -3.19790444_wp, &
-2.87023244_wp, -4.68567000_wp, -3.54578103_wp, -0.36961486_wp, -0.09580315_wp, &
-5.15518940_wp, -3.73204762_wp, -1.88800489_wp, 0.25660828_wp, -2.54580556_wp, &
-2.78674456_wp, -1.79878573_wp, -1.10277999_wp, -3.40792693_wp, -7.23574094_wp, &
-3.65302081_wp, -2.92425016_wp, -5.00985749_wp, 1.31782112_wp, 4.57672665_wp, &
3.74920531_wp, 14.83823511_wp, -0.91784711_wp, -2.00332067_wp, -4.88556958_wp, &
-3.45892351_wp, -1.55737795_wp, -2.74248296_wp, -2.00878407_wp, -2.04723148_wp, &
-1.14305823_wp, -3.20791240_wp, -9.22235201_wp, -10.42734295_wp, -3.07438550_wp, &
-5.74242280_wp, -2.71645716_wp, 5.08899389_wp, -1.02644353_wp, 1.19774424_wp, &
-2.32241807_wp, -2.58800777_wp, -3.22784738_wp, -3.67099805_wp, -1.38846468_wp, &
-2.44562704_wp, -2.47775416_wp, -2.52758619_wp, -0.71329061_wp, -1.17609485_wp, &
-7.05060535_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -4.37875898_wp, -5.32093886_wp, 3.97697453_wp, 5.04415442_wp, &
-0.60943167_wp, 0.57381406_wp, -1.26494355_wp, -1.05946557_wp, -2.59415591_wp, &
-2.60250239_wp, -0.89855659_wp, -1.97691485_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.61346257_wp, 0.30000000_wp, 0.72329908_wp, 0.90415406_wp, &
0.88650074_wp, 0.30000000_wp, 0.30000000_wp, 0.62508407_wp, 0.30000000_wp, &
1.39661904_wp, 0.40000272_wp, 1.01280579_wp, 0.87840431_wp, 0.72565292_wp, &
0.99589149_wp, 0.69936160_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
1.01819363_wp, 1.08326840_wp, 1.12282316_wp, 1.31387356_wp, 1.03269268_wp, &
1.39788491_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.51166801_wp, &
1.04118715_wp, 0.66053269_wp, 0.68451764_wp, 1.18173725_wp, 0.86780744_wp, &
0.91189787_wp, 0.30000000_wp, 0.30000000_wp, 1.08094157_wp, 0.65297835_wp, &
1.14126726_wp, 1.12987591_wp, 1.29974033_wp, 1.30361238_wp, 1.35870404_wp, &
0.30000000_wp, 0.83581563_wp, 0.72159784_wp, 0.86859167_wp, 0.30000000_wp, &
0.79322763_wp, 0.95456497_wp, 1.01152475_wp, 1.01695596_wp, 1.00001606_wp, &
0.94824319_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.20600000_wp, 1.03370566_wp, 0.09474026_wp, 1.03678522_wp, &
1.28943937_wp, 1.19776428_wp, 0.96819305_wp, 0.79640895_wp, 1.03355029_wp, &
0.87396085_wp, 0.98726110_wp, 0.87780299_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 3.07480768_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_benzaldehyde = gbsa_parameter ( &
18.22000000_wp, &
106.12400000_wp, &
1.04000000_wp, &
1.94631359_wp, &
-0.03439328_wp, &
0.19582361_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.11404906_wp, 0.00480745_wp, -8.40672939_wp, -25.01547735_wp, -3.57961382_wp, &
-2.80515741_wp, -6.96436423_wp, -5.55950963_wp, 0.72998942_wp, -0.09792988_wp, &
-5.06245811_wp, -3.27771262_wp, -2.64987323_wp, 0.44726968_wp, -2.38203141_wp, &
-3.13670508_wp, -1.44179659_wp, -1.83151566_wp, -4.46059900_wp, -6.47881424_wp, &
1.48163469_wp, -4.21607443_wp, -3.84042152_wp, 10.12195462_wp, 29.24905545_wp, &
11.26089126_wp, 17.71143636_wp, -0.91132238_wp, -2.53101496_wp, -6.37024140_wp, &
-3.62313624_wp, -1.33705482_wp, -2.84061582_wp, -2.23417272_wp, -2.99597643_wp, &
-1.46564833_wp, -3.64170577_wp, -10.59012436_wp, -7.65149187_wp, -3.01914789_wp, &
-4.34189437_wp, 3.40643076_wp, 12.88622990_wp, 5.78270828_wp, 5.28831398_wp, &
-3.65845488_wp, -2.50923082_wp, -2.27953761_wp, -3.90265529_wp, -1.41977735_wp, &
-2.56674544_wp, -2.31877777_wp, -3.50349666_wp, -0.96332674_wp, -3.79306079_wp, &
-8.17723272_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -5.82001285_wp, -4.72866953_wp, 5.37056134_wp, 5.71667525_wp, &
7.13687677_wp, 7.30800311_wp, -1.96801563_wp, -0.61394475_wp, -2.61010716_wp, &
-2.52610981_wp, -0.76122802_wp, -2.76302571_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.40400303_wp, 0.30000000_wp, 0.30000000_wp, 1.00362172_wp, &
0.95978195_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.30000000_wp, 1.13550766_wp, 1.02859982_wp, 0.30000000_wp, 0.48006548_wp, &
0.99229132_wp, 1.33855505_wp, 0.30000000_wp, 0.30000000_wp, 0.99369727_wp, &
0.30000000_wp, 1.19464842_wp, 1.09667439_wp, 1.27937926_wp, 1.35132712_wp, &
1.32906415_wp, 1.30247224_wp, 1.52483266_wp, 0.30000000_wp, 0.30000000_wp, &
0.88845563_wp, 1.07199140_wp, 0.91328623_wp, 1.07485342_wp, 1.71216312_wp, &
0.66296203_wp, 0.30000000_wp, 1.89264928_wp, 0.30000000_wp, 0.30000000_wp, &
1.29204311_wp, 0.92963378_wp, 1.34349589_wp, 1.42121958_wp, 1.12723205_wp, &
1.66090247_wp, 0.30000000_wp, 0.30000000_wp, 0.90413556_wp, 0.30000000_wp, &
0.94150664_wp, 1.06492952_wp, 1.41987018_wp, 1.21861204_wp, 0.30000000_wp, &
0.05090408_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.04834683_wp, 1.21279584_wp, 0.92414914_wp, 1.14156511_wp, &
1.33415637_wp, 1.03984405_wp, 1.13051300_wp, 0.80000000_wp, 0.80000000_wp, &
1.15851444_wp, 1.18851152_wp, 0.80000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 2.16897928_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_benzene.fh 0000664 0000000 0000000 00000037737 14650006642 0020114 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_benzene = gbsa_parameter ( &
7.00000000_wp, &
78.11000000_wp, &
0.86700000_wp, &
1.75932533_wp, &
0.48719786_wp, &
3.17278716_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.76995616_wp, -0.23552497_wp, -6.34649360_wp, -14.01758067_wp, -3.42313190_wp, &
-3.08693008_wp, -2.55298703_wp, -1.30307365_wp, -0.79223763_wp, -0.24481032_wp, &
-3.76410055_wp, -2.92228093_wp, -2.54163096_wp, -0.45505795_wp, -3.32720925_wp, &
-3.29635767_wp, -2.35166497_wp, -1.39524880_wp, -3.49079542_wp, -0.77645000_wp, &
-5.85238752_wp, -2.42931989_wp, -2.51177068_wp, -1.39814547_wp, -2.79291829_wp, &
-4.22163083_wp, 4.44220441_wp, -4.77929822_wp, -2.82876941_wp, -3.76145206_wp, &
-2.65124749_wp, -1.89546256_wp, -2.95898881_wp, -2.40471381_wp, -3.11312726_wp, &
-1.44113906_wp, -2.94090001_wp, -9.53201953_wp, -8.05597510_wp, -1.02900448_wp, &
-3.09948671_wp, -0.84445933_wp, 1.59529242_wp, -0.53084696_wp, -0.36201835_wp, &
-3.44897062_wp, -2.51105077_wp, -2.90838639_wp, -3.81628682_wp, -1.83271512_wp, &
-2.52558386_wp, -2.59773102_wp, -3.54167107_wp, -0.81367172_wp, -0.60482284_wp, &
-4.43361187_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.03023934_wp, -3.97333343_wp, -2.91757088_wp, 3.40773463_wp, &
-0.88698941_wp, -1.32421599_wp, -1.50762203_wp, -1.70339857_wp, -1.17444542_wp, &
-2.31907534_wp, -1.23532925_wp, -1.56207806_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.59119547_wp, 1.71260606_wp, 0.71668858_wp, 1.10628119_wp, 0.84175595_wp, &
0.87518184_wp, 0.42124846_wp, 0.81752077_wp, 0.59839368_wp, 1.54196558_wp, &
0.01227715_wp, 1.24811346_wp, 0.95368225_wp, 0.91665550_wp, 0.85420274_wp, &
0.83872066_wp, 0.91039190_wp, 1.14325637_wp, 0.62938761_wp, 0.97517575_wp, &
0.99178698_wp, 0.98978835_wp, 1.08042114_wp, 1.15234649_wp, 1.14397078_wp, &
1.22390573_wp, 1.09257445_wp, 1.31155220_wp, 0.72044656_wp, 0.53315531_wp, &
1.01601655_wp, 0.75199146_wp, 1.11482926_wp, 1.00297809_wp, 1.59981130_wp, &
1.02050614_wp, 0.30000000_wp, 1.28906739_wp, 1.29996342_wp, 1.12385726_wp, &
1.10652896_wp, 0.90987983_wp, 1.16644964_wp, 1.18030122_wp, 1.08227089_wp, &
1.09123989_wp, 0.69216702_wp, 0.86175308_wp, 0.91502435_wp, 0.79746267_wp, &
1.04142717_wp, 0.74215136_wp, 1.41678975_wp, 1.18739055_wp, 0.99171898_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.75629895_wp, 1.02458957_wp, 0.87392371_wp, 0.75950570_wp, &
1.14407959_wp, 1.08221559_wp, 0.77197633_wp, 1.00755446_wp, 1.23901400_wp, &
0.85644745_wp, 0.90660346_wp, 0.77651483_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_benzene = gbsa_parameter ( &
7.00000000_wp, &
78.11000000_wp, &
0.86700000_wp, &
1.69138605_wp, &
0.51651114_wp, &
2.93326080_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.82491712_wp, -0.22190385_wp, -5.64774682_wp, -15.56185215_wp, -3.31382345_wp, &
-3.02635919_wp, -3.80560008_wp, -2.95045534_wp, -0.88599329_wp, -0.23739093_wp, &
-4.07769540_wp, -3.29476667_wp, -2.47947364_wp, -0.03922808_wp, -3.07265214_wp, &
-2.97425165_wp, -2.13703079_wp, -1.29380105_wp, -3.16966887_wp, -5.29716763_wp, &
-5.01022748_wp, -3.01979201_wp, -4.04930089_wp, -0.64154702_wp, -1.06418916_wp, &
-0.57559699_wp, 7.32318069_wp, -2.47299450_wp, -2.35486094_wp, -4.03524732_wp, &
-3.38965614_wp, -2.18350982_wp, -2.85131617_wp, -2.23764222_wp, -2.29085994_wp, &
-1.36448221_wp, -3.19544832_wp, -6.32582126_wp, -8.29616111_wp, -2.23752420_wp, &
-4.59687421_wp, -2.78786191_wp, 1.88755867_wp, -2.26504777_wp, -1.08358365_wp, &
-3.00792883_wp, -2.86224027_wp, -3.28733192_wp, -3.45415205_wp, -1.73360669_wp, &
-2.45173756_wp, -2.60607353_wp, -2.87046623_wp, -0.82010829_wp, -2.70187431_wp, &
-5.18419436_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.92108430_wp, -4.05877218_wp, 2.82019057_wp, 1.44160582_wp, &
-0.53266645_wp, -2.05711862_wp, -1.54216144_wp, -1.59857149_wp, -2.35979380_wp, &
-2.31965110_wp, -1.10448115_wp, -1.67224873_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.83908723_wp, 0.08101223_wp, 0.85405447_wp, 0.79885844_wp, &
0.89956631_wp, 0.69373209_wp, 0.97484683_wp, 0.67756560_wp, 1.60107651_wp, &
0.30000000_wp, 1.02908641_wp, 0.76635684_wp, 0.91624669_wp, 0.83857854_wp, &
0.92415015_wp, 0.83876766_wp, 0.81381344_wp, 0.30000000_wp, 0.30000000_wp, &
0.97871615_wp, 1.04968870_wp, 1.11852537_wp, 1.17326074_wp, 1.08808540_wp, &
1.24646400_wp, 0.94870717_wp, 0.82222625_wp, 0.30000000_wp, 1.13515462_wp, &
1.11046532_wp, 0.78852512_wp, 1.03237961_wp, 1.21390807_wp, 0.30000000_wp, &
1.05153339_wp, 0.30000000_wp, 0.30000000_wp, 0.95554419_wp, 0.77380944_wp, &
1.15543062_wp, 1.12734500_wp, 1.35413983_wp, 1.25561286_wp, 1.26194500_wp, &
1.16174826_wp, 1.01518058_wp, 0.84597912_wp, 0.88104467_wp, 0.30000000_wp, &
1.06112470_wp, 0.76212761_wp, 0.59834033_wp, 0.96053668_wp, 0.00158803_wp, &
1.01900329_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.11068729_wp, 1.01340753_wp, 0.05417569_wp, 1.03834101_wp, &
1.21151920_wp, 1.14185967_wp, 1.07046574_wp, 0.97928478_wp, 1.26108955_wp, &
0.85241365_wp, 0.98379651_wp, 0.69795610_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_benzene = gbsa_parameter ( &
7.00000000_wp, &
78.11000000_wp, &
0.86700000_wp, &
1.80339615_wp, &
0.47105406_wp, &
2.36524447_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.70129041_wp, -0.20719270_wp, -6.21609488_wp, -16.60094038_wp, -3.32705140_wp, &
-3.06477314_wp, -4.19451278_wp, -3.58469979_wp, -0.48763906_wp, -0.22505373_wp, &
-4.84571742_wp, -3.16551532_wp, -2.56809300_wp, 0.09428410_wp, -2.75022512_wp, &
-3.02955271_wp, -1.93480306_wp, -1.51543842_wp, -4.08373775_wp, -4.82203994_wp, &
-1.95009047_wp, -4.52937975_wp, -3.71745529_wp, 0.39311866_wp, 2.12770167_wp, &
0.88363592_wp, 18.05853854_wp, -1.70413778_wp, -3.02963447_wp, -4.34457513_wp, &
-3.20550182_wp, -2.18398178_wp, -2.79226574_wp, -2.23548740_wp, -2.85623956_wp, &
-1.39590442_wp, -2.21343671_wp, -7.23297974_wp, -6.59243592_wp, -2.18505742_wp, &
-3.64856554_wp, -2.03701284_wp, 7.37622224_wp, 1.52979448_wp, 3.23858024_wp, &
-2.97977865_wp, -2.82929677_wp, -3.59503368_wp, -3.56558188_wp, -1.83711349_wp, &
-2.46072245_wp, -2.52393714_wp, -3.25360506_wp, -0.79903595_wp, -3.37718491_wp, &
-5.59888694_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -4.62057730_wp, -3.66271347_wp, 0.63898279_wp, 4.24710235_wp, &
2.39630358_wp, 0.91156898_wp, -1.44985699_wp, -1.46135496_wp, -1.77824294_wp, &
-2.41995090_wp, -1.43845323_wp, -2.40915658_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.69633157_wp, 0.30000000_wp, 0.62620323_wp, 0.98628166_wp, &
0.97775926_wp, 0.67750090_wp, 0.96459968_wp, 0.30000000_wp, 0.30000000_wp, &
0.30000000_wp, 1.16539734_wp, 0.98703514_wp, 0.24547086_wp, 0.64509522_wp, &
0.92488739_wp, 1.34236199_wp, 0.30000000_wp, 0.30000000_wp, 1.85199857_wp, &
0.30000000_wp, 1.14952549_wp, 1.10706879_wp, 1.11072477_wp, 1.09232636_wp, &
1.11847659_wp, 1.14175792_wp, 1.45939642_wp, 0.30000000_wp, 0.30000000_wp, &
0.75039207_wp, 0.74361872_wp, 0.94403055_wp, 1.07622404_wp, 1.71216056_wp, &
0.75447790_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.33100748_wp, &
1.25183833_wp, 1.02016332_wp, 1.32733721_wp, 1.28231041_wp, 1.02920181_wp, &
1.60704387_wp, 0.89246539_wp, 0.13936288_wp, 0.89276540_wp, 0.74761663_wp, &
1.00443556_wp, 0.89231278_wp, 1.37729531_wp, 1.20562493_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.06507111_wp, 1.14663001_wp, 0.96971308_wp, 1.08416276_wp, &
1.18787959_wp, 0.92231817_wp, 1.74002323_wp, 0.80000000_wp, 0.70216433_wp, &
0.80000000_wp, 0.85303193_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_ch2cl2.fh 0000664 0000000 0000000 00000037734 14650006642 0017540 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_ch2cl2 = gbsa_parameter ( &
8.93000000_wp, &
84.93000000_wp, &
1.33000000_wp, &
1.65676931_wp, &
0.56570701_wp, &
2.09596347_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.36340258_wp, -0.21780912_wp, -6.74460855_wp, -15.57734030_wp, -3.14002089_wp, &
-2.80350070_wp, -1.18980557_wp, 0.97568410_wp, 0.76792281_wp, -0.24815039_wp, &
-3.94862257_wp, -3.01515733_wp, -2.60991877_wp, -0.19506144_wp, -3.39508310_wp, &
-3.19545104_wp, -1.96131782_wp, -1.29181270_wp, -3.75635585_wp, -6.83643181_wp, &
-6.16964256_wp, 0.87316316_wp, -4.42695074_wp, -0.25003885_wp, -4.67774334_wp, &
-4.94382667_wp, 6.55056171_wp, -3.40398109_wp, -3.08469336_wp, -3.21698063_wp, &
-3.59714753_wp, -2.61482805_wp, -2.82528748_wp, -2.25126797_wp, -2.61342919_wp, &
-1.35832680_wp, -3.30402455_wp, -7.22176048_wp, -7.75563077_wp, -0.11630001_wp, &
-4.18808809_wp, 1.66240712_wp, -3.30966694_wp, -2.12744048_wp, -2.96871556_wp, &
-2.93107804_wp, -2.53130453_wp, -2.65048462_wp, -4.12346071_wp, -2.03730006_wp, &
-2.55708048_wp, -2.51808301_wp, -3.41985047_wp, -0.87320615_wp, -3.67551098_wp, &
-4.39328526_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.34540066_wp, -4.25399346_wp, 0.72357788_wp, 1.02575078_wp, &
-1.64799548_wp, -2.31319563_wp, -1.21322955_wp, -1.67690941_wp, -1.06031285_wp, &
-2.22467947_wp, -1.40520797_wp, -1.15481700_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.50129183_wp, 1.75851921_wp, 0.80471835_wp, 0.76815180_wp, 0.83858366_wp, &
0.73020232_wp, 0.40184516_wp, 0.52359716_wp, 0.44600708_wp, 1.43197261_wp, &
0.09827074_wp, 0.30000000_wp, 0.98370400_wp, 0.87000994_wp, 0.91752622_wp, &
0.79862757_wp, 0.79998519_wp, 1.04951869_wp, 0.49434089_wp, 0.30000000_wp, &
0.99276006_wp, 1.04477023_wp, 1.17040445_wp, 1.09502876_wp, 1.14649230_wp, &
1.11197845_wp, 0.93143563_wp, 0.97083030_wp, 0.95361597_wp, 0.00715309_wp, &
0.87854287_wp, 0.84206295_wp, 0.85961895_wp, 0.92757276_wp, 1.00159019_wp, &
0.09101191_wp, 0.30000000_wp, 0.30731806_wp, 0.30000000_wp, 1.16841875_wp, &
1.07721599_wp, 0.79819610_wp, 1.20720571_wp, 1.06407819_wp, 1.04875327_wp, &
0.86883493_wp, 0.86942411_wp, 0.80562523_wp, 0.85887464_wp, 0.76511877_wp, &
1.05196367_wp, 0.88277865_wp, 1.41759126_wp, 0.73872966_wp, 1.10527449_wp, &
0.20913324_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.19540110_wp, 1.08132227_wp, 0.79875799_wp, 0.84750904_wp, &
1.08620742_wp, 1.03336337_wp, 0.51829714_wp, 1.05979035_wp, 0.96521688_wp, &
0.68211979_wp, 0.89422165_wp, 0.56184758_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_ch2cl2 = gbsa_parameter ( &
8.93000000_wp, &
84.93000000_wp, &
1.33000000_wp, &
1.56911675_wp, &
0.45821664_wp, &
2.60334690_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.87729929_wp, -0.25023386_wp, -6.20317370_wp, -17.83076437_wp, -3.49513745_wp, &
-2.69888049_wp, -4.62381563_wp, -2.59784469_wp, -0.44703707_wp, -0.26155304_wp, &
-4.65721100_wp, -3.31383144_wp, -2.57206719_wp, -0.04078322_wp, -3.17353079_wp, &
-3.04933155_wp, -2.08989058_wp, -1.35119955_wp, -3.57321863_wp, -7.44660287_wp, &
-5.39298648_wp, -3.39519575_wp, -4.72991591_wp, -0.63470925_wp, -1.92305209_wp, &
-0.70471468_wp, 10.17280212_wp, -2.15635298_wp, -2.47307994_wp, -4.04988034_wp, &
-3.83986237_wp, -2.21072317_wp, -2.80776694_wp, -2.40219736_wp, -2.22755851_wp, &
-1.42068154_wp, -3.70147701_wp, -8.42548707_wp, -9.17205775_wp, -0.99611531_wp, &
-6.12266771_wp, -3.03434318_wp, -2.58724432_wp, -2.94152428_wp, -2.08406140_wp, &
-3.30886859_wp, -2.97219928_wp, -3.06469315_wp, -3.96435075_wp, -1.75982006_wp, &
-2.73007709_wp, -2.77639176_wp, -3.12670692_wp, -0.83353793_wp, -3.47549649_wp, &
-5.88276127_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.03729539_wp, -4.97135726_wp, 4.16790013_wp, 0.30630646_wp, &
-1.33068824_wp, -2.62686662_wp, -1.54642144_wp, -1.57554917_wp, -2.44018189_wp, &
-2.40510708_wp, -1.14149533_wp, -1.54226592_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.28926333_wp, 1.99261093_wp, 0.30000000_wp, 0.79793587_wp, 0.81135795_wp, &
0.83616685_wp, 0.79057315_wp, 0.86271642_wp, 0.70573060_wp, 1.38322206_wp, &
0.30000000_wp, 0.30000000_wp, 0.70041023_wp, 0.90673216_wp, 0.76272228_wp, &
0.91021623_wp, 0.81532007_wp, 0.53937688_wp, 0.30000000_wp, 0.30000000_wp, &
1.01472709_wp, 1.04010262_wp, 1.10949252_wp, 1.33303258_wp, 1.12658111_wp, &
1.42195776_wp, 0.80273663_wp, 0.81746015_wp, 0.65703514_wp, 1.18208681_wp, &
1.01508856_wp, 0.80119384_wp, 1.05604075_wp, 1.20897255_wp, 0.39287452_wp, &
0.96296618_wp, 0.30000000_wp, 0.30000000_wp, 1.00370492_wp, 0.09377212_wp, &
1.16652332_wp, 1.29719519_wp, 1.27712571_wp, 1.28018285_wp, 1.28811425_wp, &
1.10052024_wp, 0.95578477_wp, 1.09164864_wp, 0.84497183_wp, 0.30000000_wp, &
0.83981245_wp, 0.88552660_wp, 0.39084153_wp, 0.81863824_wp, 0.30000000_wp, &
1.04090665_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.20679413_wp, 1.01528947_wp, 0.27374694_wp, 1.13101163_wp, &
1.24496642_wp, 1.22853764_wp, 1.17172086_wp, 0.96700342_wp, 0.82371044_wp, &
0.64251626_wp, 0.99215602_wp, 0.64849560_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_ch2cl2 = gbsa_parameter ( &
8.93000000_wp, &
84.93000000_wp, &
1.33000000_wp, &
1.69498578_wp, &
0.64722860_wp, &
2.22053836_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.78683499_wp, -0.23597474_wp, -6.62244558_wp, -16.97012388_wp, -3.08679063_wp, &
-2.67781769_wp, -4.56775937_wp, -3.12899250_wp, -0.21103151_wp, -0.28099249_wp, &
-5.37882562_wp, -3.29689548_wp, -2.55999892_wp, 0.04471285_wp, -2.68702817_wp, &
-3.05061848_wp, -1.88690120_wp, -1.70386142_wp, -4.73893031_wp, -7.59711327_wp, &
-6.48577943_wp, -4.87448438_wp, -4.49365156_wp, -0.40576308_wp, -1.37070332_wp, &
-0.86691727_wp, 24.07715531_wp, -1.43376705_wp, -3.10990508_wp, -3.94008117_wp, &
-3.21757011_wp, -2.17061500_wp, -2.50090754_wp, -2.16465470_wp, -2.40125053_wp, &
-1.50713622_wp, -4.18825440_wp, -9.30262069_wp, -8.20842791_wp, -1.89641767_wp, &
-4.84325201_wp, -3.74158948_wp, 9.60609928_wp, 0.03841037_wp, 1.44370005_wp, &
-2.84899598_wp, -2.81990221_wp, -3.70607143_wp, -3.83557292_wp, -1.85391568_wp, &
-2.41750101_wp, -2.44357076_wp, -3.14943989_wp, -0.93826879_wp, -4.32639144_wp, &
-6.86353005_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.97866147_wp, -4.62065982_wp, -1.18745002_wp, 3.36993629_wp, &
1.25879467_wp, 0.03269629_wp, -1.52826602_wp, -1.50887230_wp, -2.31561060_wp, &
-2.28802116_wp, -1.63132201_wp, -2.47256809_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.86922772_wp, 0.30000000_wp, 0.08277052_wp, 1.02192055_wp, &
0.90904246_wp, 0.86728687_wp, 0.87898204_wp, 0.30000000_wp, 0.30000000_wp, &
0.30000000_wp, 0.30000000_wp, 0.87003585_wp, 0.93410747_wp, 0.79799443_wp, &
1.06959294_wp, 0.99585448_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.98035627_wp, 1.15271025_wp, 1.08596115_wp, 1.13911632_wp, 1.17327801_wp, &
1.20206368_wp, 1.13321382_wp, 1.49193252_wp, 0.30000000_wp, 0.30000000_wp, &
0.74228815_wp, 0.77955568_wp, 0.80571508_wp, 1.05141501_wp, 1.55341009_wp, &
0.44409128_wp, 0.30000000_wp, 0.30000000_wp, 0.17039465_wp, 0.30000000_wp, &
1.28404004_wp, 1.10783657_wp, 1.40768875_wp, 1.35092833_wp, 0.96105394_wp, &
1.48368024_wp, 0.30000000_wp, 0.91456020_wp, 0.88063334_wp, 0.53041536_wp, &
1.02399360_wp, 0.89339744_wp, 1.35353074_wp, 1.25445071_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.13804978_wp, 1.18046862_wp, 1.02413333_wp, 1.18339837_wp, &
1.24754605_wp, 0.96676043_wp, 1.32830769_wp, 0.80000000_wp, 0.94850780_wp, &
0.80000000_wp, 0.86176751_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_chcl3.fh 0000664 0000000 0000000 00000037731 14650006642 0017454 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_chcl3 = gbsa_parameter ( &
4.81000000_wp, &
119.38000000_wp, &
1.49000000_wp, &
1.49841363_wp, &
0.57029588_wp, &
1.81340998_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.27463659_wp, -0.39918916_wp, -4.35761612_wp, -11.02930731_wp, -2.82022156_wp, &
-2.71193714_wp, -0.55630691_wp, 1.82626850_wp, 1.24843817_wp, -0.42649928_wp, &
-5.62463786_wp, -1.31726393_wp, -2.35594923_wp, -0.69284388_wp, -3.31392302_wp, &
-3.02092139_wp, -1.98335311_wp, -1.33884944_wp, -2.44786705_wp, -0.59935221_wp, &
-5.31492587_wp, -2.20263983_wp, -5.45421204_wp, -3.17341084_wp, -2.45156102_wp, &
-1.13842229_wp, -6.17390060_wp, -1.42694564_wp, -2.15135792_wp, -2.20738066_wp, &
-2.44694263_wp, -2.34870979_wp, -2.37890823_wp, -1.39727148_wp, -2.13180988_wp, &
-1.50187701_wp, -1.93026335_wp, -2.24421001_wp, -6.42889593_wp, -0.24381935_wp, &
-4.66662688_wp, -2.28543446_wp, -3.92096351_wp, -2.21066898_wp, -3.63327137_wp, &
-1.72273738_wp, -2.38332510_wp, -1.72443846_wp, -2.41028874_wp, -1.94271671_wp, &
-1.45599155_wp, -2.29878306_wp, -2.98470401_wp, -1.16737231_wp, -0.71104904_wp, &
-0.16472062_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.26072944_wp, -5.01913342_wp, -1.41006655_wp, -4.46088393_wp, &
-1.21496874_wp, -3.15096373_wp, -1.31495436_wp, -1.67104118_wp, -1.49106045_wp, &
-1.35087941_wp, -1.04580405_wp, -1.01233149_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.69678596_wp, 2.00750187_wp, 1.00481867_wp, 0.30000000_wp, 0.84879465_wp, &
0.69073812_wp, 0.30000000_wp, 0.58808956_wp, 0.55002343_wp, 1.83594082_wp, &
0.60112303_wp, 0.56654483_wp, 0.44937919_wp, 0.90402485_wp, 0.82733481_wp, &
0.72733880_wp, 1.05807768_wp, 1.35379827_wp, 1.20608278_wp, 0.30000000_wp, &
1.02311075_wp, 1.06996218_wp, 1.22396497_wp, 1.34196639_wp, 1.00390068_wp, &
1.12223190_wp, 0.30000000_wp, 1.11226136_wp, 0.78325275_wp, 0.30000000_wp, &
0.74129737_wp, 0.81647359_wp, 0.66168300_wp, 0.55712906_wp, 0.30000000_wp, &
1.24637409_wp, 1.06104837_wp, 1.25921888_wp, 1.07753846_wp, 1.33233387_wp, &
1.27052051_wp, 0.90302642_wp, 1.19085747_wp, 1.03127834_wp, 0.88247477_wp, &
1.21415833_wp, 0.92499980_wp, 1.74218982_wp, 0.72691432_wp, 0.63751113_wp, &
0.30000000_wp, 0.31378000_wp, 0.30000000_wp, 0.55045705_wp, 1.11366273_wp, &
0.55722029_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.09297339_wp, 1.13145314_wp, 1.02126490_wp, 1.24961053_wp, &
1.12226099_wp, 1.11953985_wp, 1.17484587_wp, 1.28553469_wp, 0.73334121_wp, &
0.99091699_wp, 0.92022599_wp, 1.13107676_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_chcl3 = gbsa_parameter ( &
4.81000000_wp, &
119.38000000_wp, &
1.49000000_wp, &
1.32742806_wp, &
0.75620958_wp, &
2.44165144_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.45124803_wp, -0.34288175_wp, -4.90550620_wp, -12.24883340_wp, -2.97051057_wp, &
-2.46046595_wp, -3.20499136_wp, -0.79186459_wp, 0.18544629_wp, -0.38955820_wp, &
-3.76356128_wp, -2.68971807_wp, -2.31501600_wp, 0.13149009_wp, -2.76183333_wp, &
-2.49678227_wp, -1.77429756_wp, -1.43838426_wp, -2.82408642_wp, -6.95175503_wp, &
-5.70468363_wp, -2.84574964_wp, -5.28512286_wp, -1.26239123_wp, -2.26516813_wp, &
-1.48532205_wp, 4.85394490_wp, -1.19463251_wp, -2.42708314_wp, -3.41088828_wp, &
-3.26901849_wp, -2.44120314_wp, -2.63812244_wp, -1.74626228_wp, -2.13180988_wp, &
-1.49256064_wp, -3.38516728_wp, -8.81329234_wp, -7.93257249_wp, 1.70913687_wp, &
-7.18032181_wp, -1.31323641_wp, -2.28930032_wp, -3.58478095_wp, -2.49391434_wp, &
-1.99369134_wp, -2.58226479_wp, 1.00000000_wp, -3.46355219_wp, -1.99680141_wp, &
-2.30696505_wp, -2.44521966_wp, -2.98470401_wp, -1.09297370_wp, -4.50182510_wp, &
-6.75767347_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.76894995_wp, -4.84348395_wp, 4.48381165_wp, -2.31673205_wp, &
-2.11643302_wp, -3.30136147_wp, -1.21261417_wp, -1.37980608_wp, -2.39587135_wp, &
-1.82204248_wp, -1.19017725_wp, -1.08346722_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.54425653_wp, 0.30000000_wp, 0.68352647_wp, 0.30024907_wp, 0.87131168_wp, &
0.44274116_wp, 0.91118733_wp, 1.02990206_wp, 0.87224972_wp, 1.36064412_wp, &
0.04523267_wp, 1.01826727_wp, 0.80291179_wp, 0.91994934_wp, 0.27703877_wp, &
0.79671366_wp, 1.12191178_wp, 1.06327945_wp, 0.30000000_wp, 0.30000000_wp, &
1.05134616_wp, 1.02524534_wp, 1.15488259_wp, 1.15659192_wp, 1.15582331_wp, &
1.35956403_wp, 1.02994976_wp, 0.89578087_wp, 1.07980658_wp, 1.18018780_wp, &
1.15034660_wp, 0.80126086_wp, 1.06719436_wp, 0.97305695_wp, 0.30000000_wp, &
1.17576974_wp, 0.30000000_wp, 1.26859525_wp, 0.91060526_wp, 0.30000000_wp, &
1.26737715_wp, 0.88598699_wp, 1.28128367_wp, 1.41019625_wp, 1.24068510_wp, &
1.22207835_wp, 1.05317124_wp, 0.30000000_wp, 0.78929937_wp, 0.30000000_wp, &
0.54876707_wp, 0.85496180_wp, 0.30000000_wp, 0.90436962_wp, 1.11376639_wp, &
1.08812332_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.22592678_wp, 1.08931843_wp, 0.62355860_wp, 1.25551232_wp, &
1.28912417_wp, 1.37088359_wp, 1.21255461_wp, 1.05341027_wp, 0.74644294_wp, &
0.54998313_wp, 0.76413109_wp, 1.12560117_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_chcl3 = gbsa_parameter ( &
4.81000000_wp, &
119.38000000_wp, &
1.49000000_wp, &
1.60257303_wp, &
0.60227552_wp, &
2.11015667_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.72530479_wp, -0.39918916_wp, -4.35761612_wp, -11.02930731_wp, -2.82022156_wp, &
-2.58431486_wp, -3.91690401_wp, -1.65871667_wp, 0.20927452_wp, -0.42649928_wp, &
-5.62463786_wp, -1.31726393_wp, -2.35594923_wp, -0.69284388_wp, -2.75556277_wp, &
-3.07811170_wp, -1.90481450_wp, -1.33884944_wp, -2.44786705_wp, -0.59935221_wp, &
-5.31492587_wp, -2.20263983_wp, -5.45421204_wp, -3.17341084_wp, -2.45156102_wp, &
-1.13842229_wp, -6.17390060_wp, -1.42694564_wp, -2.15135792_wp, -2.20738066_wp, &
-2.44694263_wp, -2.34870979_wp, -2.37890823_wp, -1.39727148_wp, -2.13180988_wp, &
-1.50187701_wp, -1.93026335_wp, -2.24421001_wp, -6.42889593_wp, -0.24381935_wp, &
-4.66662688_wp, -2.28543446_wp, -3.92096351_wp, -2.21066898_wp, -3.63327137_wp, &
-1.72273738_wp, -2.38332510_wp, -1.72443846_wp, -2.41028874_wp, -1.94271671_wp, &
-1.45599155_wp, -2.29878306_wp, -2.98470401_wp, -1.16737231_wp, -0.71104904_wp, &
-0.16472062_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.26072944_wp, -5.01913342_wp, -1.41006655_wp, -4.46088393_wp, &
-1.21496874_wp, -3.15096373_wp, -1.31495436_wp, -1.67104118_wp, -1.49106045_wp, &
-1.35087941_wp, -1.04580405_wp, -1.01233149_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 2.00750187_wp, 1.00481867_wp, 0.30000000_wp, 0.84879465_wp, &
0.80580100_wp, 0.23441800_wp, 0.30000000_wp, 0.30000000_wp, 1.83594082_wp, &
0.60112303_wp, 0.56654483_wp, 0.44937919_wp, 0.90402485_wp, 0.60927617_wp, &
1.07061779_wp, 1.07062491_wp, 1.35379827_wp, 1.20608278_wp, 0.30000000_wp, &
1.02311075_wp, 1.06996218_wp, 1.22396497_wp, 1.34196639_wp, 1.00390068_wp, &
1.12223190_wp, 0.30000000_wp, 1.11226136_wp, 0.78325275_wp, 0.30000000_wp, &
0.74129737_wp, 0.81647359_wp, 0.66168300_wp, 0.55712906_wp, 0.30000000_wp, &
1.24637409_wp, 1.06104837_wp, 1.25921888_wp, 1.07753846_wp, 1.33233387_wp, &
1.27052051_wp, 0.90302642_wp, 1.19085747_wp, 1.03127834_wp, 0.88247477_wp, &
1.21415833_wp, 0.92499980_wp, 1.74218982_wp, 0.72691432_wp, 0.63751113_wp, &
0.30000000_wp, 0.31378000_wp, 0.30000000_wp, 0.55045705_wp, 1.11366273_wp, &
0.55722029_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.09297339_wp, 1.13145314_wp, 1.02126490_wp, 1.24961053_wp, &
1.12226099_wp, 1.11953985_wp, 1.17484587_wp, 1.28553469_wp, 0.73334121_wp, &
0.99091699_wp, 0.92022599_wp, 1.13107676_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_cs2.fh 0000664 0000000 0000000 00000037723 14650006642 0017150 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_cs2 = gbsa_parameter ( &
2.64000000_wp, &
76.14000000_wp, &
1.26000000_wp, &
1.34030285_wp, &
0.49258940_wp, &
3.45337870_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.67525444_wp, -0.20115953_wp, -4.94422465_wp, -11.02884460_wp, -3.23913820_wp, &
-3.46119496_wp, -1.52680667_wp, -0.73973120_wp, -1.35383309_wp, -0.24699289_wp, &
-2.33948778_wp, -2.61190081_wp, -2.23404302_wp, 0.65718705_wp, -3.05759722_wp, &
-3.12907164_wp, -2.82316028_wp, -1.28473477_wp, -2.73168761_wp, -2.63632255_wp, &
-3.16877355_wp, -1.39796916_wp, 2.00294908_wp, 2.87721922_wp, 0.99358152_wp, &
-1.91617655_wp, 1.18402722_wp, -3.54669191_wp, -2.06401992_wp, -2.48837478_wp, &
-2.61848361_wp, -2.54498279_wp, -2.64678764_wp, -2.11587301_wp, -3.34547654_wp, &
-1.31441869_wp, -2.00275376_wp, -3.04588406_wp, -5.57003905_wp, 2.79630436_wp, &
0.63493117_wp, 7.54992795_wp, 8.62383132_wp, 0.43604111_wp, 0.47036059_wp, &
-2.54745402_wp, -2.05995914_wp, -1.22623013_wp, -2.71314683_wp, -1.65635533_wp, &
-2.28895386_wp, -2.32249237_wp, -3.48033808_wp, -0.78296411_wp, -0.51596544_wp, &
-2.30113446_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 1.49996359_wp, -0.60285989_wp, 7.16035905_wp, 5.82116995_wp, &
0.05021499_wp, -1.00923443_wp, -1.24380514_wp, -1.34818931_wp, -0.03454169_wp, &
-1.54073159_wp, -0.66580368_wp, -0.80101428_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.97729286_wp, 1.81281001_wp, 1.01159683_wp, 0.66945082_wp, 0.90435622_wp, &
0.90383424_wp, 0.72599223_wp, 1.08794545_wp, 0.76493923_wp, 0.30000000_wp, &
0.47699734_wp, 0.30000000_wp, 0.90109864_wp, 0.95238120_wp, 0.64169759_wp, &
0.75153700_wp, 0.92855124_wp, 1.70105141_wp, 0.91079891_wp, 0.30000000_wp, &
0.93866362_wp, 1.04942980_wp, 0.91927774_wp, 0.94214505_wp, 1.01996629_wp, &
0.98689513_wp, 1.14802202_wp, 1.25281511_wp, 0.70780512_wp, 0.41728426_wp, &
0.72558643_wp, 0.88937300_wp, 1.09712706_wp, 1.10642519_wp, 1.04953233_wp, &
1.52379453_wp, 0.27298941_wp, 0.30000000_wp, 0.90701663_wp, 1.06097102_wp, &
0.90122500_wp, 0.25406887_wp, 1.04102283_wp, 1.09929689_wp, 1.04144645_wp, &
0.94924970_wp, 0.92278679_wp, 0.89767403_wp, 0.81785467_wp, 0.86943580_wp, &
0.99427815_wp, 0.93341318_wp, 1.04004997_wp, 1.14472560_wp, 0.95203399_wp, &
0.72491045_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.42665839_wp, 0.84884090_wp, 0.39623296_wp, 0.71180828_wp, &
1.30877329_wp, 1.06979714_wp, 0.99009052_wp, 0.93489104_wp, 1.12371554_wp, &
0.87713787_wp, 0.98794556_wp, 1.09506665_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_cs2 = gbsa_parameter ( &
2.64000000_wp, &
76.14000000_wp, &
1.26000000_wp, &
1.35477845_wp, &
0.57997496_wp, &
3.12529087_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.67630824_wp, -0.18644409_wp, -4.08142241_wp, -11.58201744_wp, -2.90130414_wp, &
-3.36892881_wp, -2.78632521_wp, -1.63610693_wp, -1.49297157_wp, -0.24699289_wp, &
-2.71615343_wp, -2.42746739_wp, -2.04324889_wp, 0.65718705_wp, -2.75409442_wp, &
-2.71058465_wp, -2.61131358_wp, -1.16644278_wp, -2.13314591_wp, -2.63632255_wp, &
-3.16877355_wp, -1.39796916_wp, -2.75518562_wp, -0.44225905_wp, -0.69011451_wp, &
-0.10776830_wp, -4.16810114_wp, -1.91968646_wp, -1.96185727_wp, -2.88161963_wp, &
-2.71223036_wp, -2.11892755_wp, -2.42274714_wp, -1.82161043_wp, -3.22845209_wp, &
-1.22681052_wp, -2.34829452_wp, -3.04588406_wp, -5.57003905_wp, 1.40101560_wp, &
-2.40146173_wp, -1.00476201_wp, 1.88708763_wp, -1.51182430_wp, -1.75652430_wp, &
-1.54489737_wp, -2.34681469_wp, -2.26824929_wp, -2.62671852_wp, -1.58167271_wp, &
-2.08854809_wp, -2.25711606_wp, -3.27762061_wp, -0.81986677_wp, -2.34291712_wp, &
-2.98284235_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.80591619_wp, -1.84572202_wp, 2.39890896_wp, -0.17262619_wp, &
-0.91545732_wp, -2.33520652_wp, -1.13222036_wp, -1.29972175_wp, -1.31761075_wp, &
-1.53817638_wp, -0.89984085_wp, -0.85591904_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.67101392_wp, 1.83162475_wp, 0.74845704_wp, 0.81714736_wp, 0.91247423_wp, &
0.89039802_wp, 0.34641431_wp, 1.00584787_wp, 0.81852179_wp, 0.30000000_wp, &
0.30000000_wp, 0.98259438_wp, 0.76203165_wp, 0.95238120_wp, 0.64489838_wp, &
0.67618683_wp, 0.91744526_wp, 1.31005168_wp, 0.59274765_wp, 0.30000000_wp, &
0.93866362_wp, 1.04942980_wp, 1.15552558_wp, 1.19633812_wp, 1.09018770_wp, &
1.33937956_wp, 1.29141196_wp, 0.97055753_wp, 0.88131074_wp, 1.16378129_wp, &
0.95344329_wp, 0.86373088_wp, 1.07656363_wp, 1.25642469_wp, 0.30000000_wp, &
1.22913065_wp, 0.30000000_wp, 0.30000000_wp, 0.90701663_wp, 0.04955879_wp, &
1.08947296_wp, 0.98903611_wp, 1.52634108_wp, 1.33495934_wp, 1.26075308_wp, &
1.25921485_wp, 1.28794815_wp, 1.08985190_wp, 0.90115381_wp, 0.67061995_wp, &
1.08462735_wp, 0.74799904_wp, 0.30000000_wp, 0.84506316_wp, 0.68945810_wp, &
1.08066679_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.10139934_wp, 0.91376504_wp, 0.82801025_wp, 1.22830578_wp, &
1.24664000_wp, 1.23171074_wp, 1.19796332_wp, 1.20890185_wp, 1.29655080_wp, &
0.83370444_wp, 1.00609132_wp, 1.11767725_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_cs2 = gbsa_parameter ( &
2.64000000_wp, &
76.14000000_wp, &
1.26000000_wp, &
1.28529036_wp, &
0.66233666_wp, &
2.83261818_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.57133787_wp, -0.18818132_wp, -4.27399140_wp, -11.89110175_wp, -2.78444967_wp, &
-3.31527360_wp, -2.34361961_wp, -1.40948343_wp, -0.83472412_wp, -0.22030819_wp, &
-3.34186043_wp, -2.65476083_wp, -2.19088577_wp, 0.27200854_wp, -2.23183416_wp, &
-2.73225997_wp, -2.36423835_wp, -1.37335003_wp, -3.07651114_wp, -2.50307453_wp, &
-1.85412723_wp, -4.13534210_wp, -0.78970747_wp, -0.94353243_wp, -0.01270394_wp, &
0.01489415_wp, 6.94667087_wp, -1.09139551_wp, -2.39628503_wp, -2.92394813_wp, &
-2.57579582_wp, -1.99529701_wp, -2.30278081_wp, -1.64492692_wp, -2.90694747_wp, &
-1.26304742_wp, -1.73800411_wp, -3.81701474_wp, -2.88611811_wp, -0.79243807_wp, &
-0.95546253_wp, -1.90118943_wp, 7.95792737_wp, 1.00717028_wp, 1.75058108_wp, &
-2.06051073_wp, -2.19385776_wp, -2.76880088_wp, -2.67678579_wp, -1.56422065_wp, &
-2.13100505_wp, -2.04149633_wp, -2.92473091_wp, -0.87562888_wp, -2.41168499_wp, &
-3.06798650_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.09184744_wp, -1.57869337_wp, -1.29760603_wp, 1.59013689_wp, &
1.37837939_wp, -0.44952853_wp, -1.08362049_wp, -1.07339334_wp, -1.25515222_wp, &
-1.67642483_wp, -1.03854438_wp, -1.76294740_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 1.10450929_wp, 1.91900254_wp, 0.97424640_wp, 0.30000000_wp, 1.01839937_wp, &
0.92677912_wp, 0.30000000_wp, 1.00627236_wp, 0.47497565_wp, 0.30000000_wp, &
0.30000000_wp, 0.30000000_wp, 0.92262729_wp, 0.80962545_wp, 0.30000000_wp, &
0.91796613_wp, 1.36132185_wp, 0.30000000_wp, 0.30000000_wp, 1.68907428_wp, &
0.34408436_wp, 1.08280011_wp, 0.87327343_wp, 1.22471770_wp, 1.30898314_wp, &
1.33097318_wp, 1.35697900_wp, 1.55050615_wp, 0.17850409_wp, 0.30000000_wp, &
0.81813788_wp, 0.76005980_wp, 0.93603137_wp, 0.87805457_wp, 1.70519734_wp, &
1.13149940_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.76603421_wp, &
0.89981018_wp, 1.19740048_wp, 1.32377704_wp, 1.43539016_wp, 0.93626567_wp, &
1.56637407_wp, 0.82724515_wp, 0.12185225_wp, 0.84169392_wp, 0.75890916_wp, &
0.98430745_wp, 0.81962168_wp, 0.83656170_wp, 1.13739154_wp, 0.30000000_wp, &
0.29835577_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.12141150_wp, 0.87332184_wp, 1.15782950_wp, 1.18501620_wp, &
1.34968845_wp, 1.11416163_wp, 1.66121827_wp, 0.38001570_wp, 0.89093897_wp, &
0.80000000_wp, 1.18106367_wp, 1.13869794_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_dioxane.fh 0000664 0000000 0000000 00000037737 14650006642 0020115 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_dioxane = gbsa_parameter ( &
2.20990000_wp, &
88.11000000_wp, &
1.03000000_wp, &
1.09345708_wp, &
0.50020089_wp, &
1.65053783_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.25692525_wp, -0.07988404_wp, -6.84231893_wp, -13.99854463_wp, -2.91393027_wp, &
-2.46054907_wp, 0.85860913_wp, 2.83509847_wp, 1.18479198_wp, -0.10576048_wp, &
-3.46118133_wp, -2.86558094_wp, -2.59574959_wp, 1.00019486_wp, -2.49948124_wp, &
-2.36350124_wp, -1.99650894_wp, -0.88393692_wp, -3.37935418_wp, -5.14009725_wp, &
-3.82643718_wp, -1.84498043_wp, -0.71552574_wp, 2.41960445_wp, -2.04284485_wp, &
-6.48261067_wp, -10.07963841_wp, -3.64065034_wp, -2.51266782_wp, -2.86149613_wp, &
0.16395669_wp, -2.55443197_wp, -2.65238979_wp, -2.08910747_wp, -2.44250371_wp, &
-1.00736956_wp, -2.53809723_wp, -5.98063844_wp, -7.79249444_wp, 8.69014683_wp, &
8.29356787_wp, 0.00000000_wp, 1.39423350_wp, -0.68627094_wp, -3.14912649_wp, &
-2.82521531_wp, -2.20336415_wp, -1.08498698_wp, -3.69343000_wp, -1.65864648_wp, &
-1.99049613_wp, -2.27901261_wp, -2.92707560_wp, -0.69897712_wp, -2.73016449_wp, &
-4.67732158_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 4.36756063_wp, 7.51082774_wp, 14.59832232_wp, 11.85856020_wp, &
-1.48402765_wp, -3.12253863_wp, -0.80530444_wp, -1.32710332_wp, -0.71657742_wp, &
-1.48527680_wp, -0.70402418_wp, -0.11875435_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 1.00574070_wp, 1.55306025_wp, 1.04621550_wp, 0.64379699_wp, 0.85469064_wp, &
0.64996343_wp, 0.30000000_wp, 0.30000000_wp, 0.89070229_wp, 0.86796436_wp, &
0.30000000_wp, 0.29228712_wp, 1.01456146_wp, 0.90780637_wp, 0.56835652_wp, &
0.30000000_wp, 0.96616640_wp, 1.25483263_wp, 0.89428591_wp, 0.30000000_wp, &
1.05628751_wp, 1.08591184_wp, 1.15734098_wp, 1.16377059_wp, 1.39361442_wp, &
1.23694826_wp, 0.95877392_wp, 1.11313626_wp, 1.22157014_wp, 0.30000000_wp, &
0.32316559_wp, 1.01360105_wp, 0.47398202_wp, 1.00661266_wp, 0.93454056_wp, &
1.60025003_wp, 0.44665119_wp, 0.30000000_wp, 1.24646806_wp, 0.90215136_wp, &
1.17500460_wp, 1.00000000_wp, 1.37304827_wp, 1.22183846_wp, 1.08348633_wp, &
1.15382853_wp, 1.10114136_wp, 1.03891431_wp, 0.94348615_wp, 0.82550379_wp, &
0.94655564_wp, 0.94847411_wp, 0.83414398_wp, 1.35352141_wp, 1.11637767_wp, &
0.58639105_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 0.82654991_wp, 1.03383494_wp, 0.89512593_wp, 0.88673930_wp, &
1.16360462_wp, 1.08590154_wp, 0.76430980_wp, 1.15404730_wp, 1.04217856_wp, &
0.84859081_wp, 1.02880140_wp, 0.97748687_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 1.71618195_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_dioxane = gbsa_parameter ( &
2.20990000_wp, &
88.11000000_wp, &
1.03000000_wp, &
1.08594401_wp, &
1.00107567_wp, &
1.73889651_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.30290774_wp, -0.11747889_wp, -5.21763288_wp, -12.06254155_wp, -2.26649580_wp, &
-2.32061003_wp, -2.10913167_wp, 0.41984122_wp, 0.11160374_wp, -0.16720505_wp, &
-3.15925017_wp, -2.35890206_wp, -1.78234075_wp, 1.00019486_wp, -1.50992486_wp, &
-1.55783018_wp, -1.41889343_wp, -0.90873964_wp, -2.45741294_wp, -5.14009725_wp, &
-3.82643718_wp, -1.84498043_wp, -5.65375333_wp, -1.93935987_wp, -1.34357575_wp, &
1.26875485_wp, -10.07963841_wp, -1.37816150_wp, -1.64650261_wp, -3.08213950_wp, &
-2.70966327_wp, -1.47471128_wp, -1.95292540_wp, -1.11231973_wp, -1.78670355_wp, &
-0.91293395_wp, -2.65076547_wp, -5.98063844_wp, -7.79249444_wp, 3.08009398_wp, &
-4.64823076_wp, -0.37879616_wp, 0.04905680_wp, -3.37456181_wp, -2.38573910_wp, &
-1.97354440_wp, -2.08001446_wp, -1.63445987_wp, -2.78036246_wp, -1.37470577_wp, &
-1.44947390_wp, -1.90241170_wp, -2.14102405_wp, -0.95822732_wp, -3.09207921_wp, &
-5.17995903_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.40509807_wp, -2.74316309_wp, 5.47707232_wp, -3.93096056_wp, &
-0.96010077_wp, -1.99348798_wp, -0.65434419_wp, -0.92143731_wp, -2.71423264_wp, &
-1.27668848_wp, -0.82650501_wp, -0.31800653_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.99501947_wp, 0.54939611_wp, 0.84749233_wp, 0.08192417_wp, 0.92829185_wp, &
0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 1.02157731_wp, 0.30000000_wp, &
0.50727977_wp, 0.66635680_wp, 1.06317195_wp, 0.90780637_wp, 0.30000000_wp, &
0.86175540_wp, 0.93435708_wp, 1.39628743_wp, 0.75104383_wp, 0.30000000_wp, &
1.05628751_wp, 1.08591184_wp, 1.13615426_wp, 0.94969656_wp, 1.19054921_wp, &
1.38854191_wp, 0.95877392_wp, 1.16632036_wp, 1.04862692_wp, 0.30000000_wp, &
0.98417023_wp, 0.78173613_wp, 0.59487457_wp, 0.80927909_wp, 0.84402819_wp, &
1.43968875_wp, 0.30000000_wp, 0.30000000_wp, 1.24646806_wp, 0.91395622_wp, &
1.10166853_wp, 0.53876725_wp, 0.63549151_wp, 1.50683885_wp, 1.22017940_wp, &
1.10791748_wp, 1.13222922_wp, 0.61488695_wp, 0.83615148_wp, 0.48577020_wp, &
0.53599960_wp, 0.61714433_wp, 0.62668099_wp, 1.15581020_wp, 0.99978295_wp, &
0.89248506_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 0.30000000_wp, 1.09239868_wp, 0.85801984_wp, 1.22312847_wp, &
0.85940608_wp, 0.93453487_wp, 0.58858953_wp, 1.12905516_wp, 0.81905399_wp, &
0.62548456_wp, 1.03207940_wp, 0.86738337_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 5.79628587_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_dioxane = gbsa_parameter ( &
2.20990000_wp, &
88.11000000_wp, &
1.03000000_wp, &
1.12169132_wp, &
1.30529673_wp, &
2.37741526_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.09832301_wp, -0.17573885_wp, -5.43385372_wp, -12.34481143_wp, -2.13608325_wp, &
-2.12322960_wp, -1.43470338_wp, 0.31315212_wp, 0.13974997_wp, -0.26141448_wp, &
-4.16303049_wp, -2.40563630_wp, -2.03849681_wp, -0.52376286_wp, -1.40034416_wp, &
-1.79374651_wp, -1.45500134_wp, -1.33003000_wp, -3.48810198_wp, -5.25459105_wp, &
-5.57799712_wp, -6.85453726_wp, -6.14449358_wp, -6.08112482_wp, 1.12286665_wp, &
-3.77230101_wp, 0.00000000_wp, -2.58132278_wp, -2.17970624_wp, -3.10269233_wp, &
-2.63899778_wp, -1.75072800_wp, -1.83879609_wp, -1.51537526_wp, -1.90065220_wp, &
-1.12277794_wp, -3.21389317_wp, -6.88015873_wp, -1.41738038_wp, -2.83935169_wp, &
-4.07199379_wp, -1.83392992_wp, -1.03674513_wp, -0.33622177_wp, -1.42892693_wp, &
-1.88770900_wp, -1.89963862_wp, -2.84015813_wp, -2.92298435_wp, -1.29072318_wp, &
-1.56788497_wp, -1.94127588_wp, -2.06423483_wp, -1.15495429_wp, -3.15689906_wp, &
-5.28875372_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -4.19654967_wp, -3.92886985_wp, 7.84784326_wp, -1.53772818_wp, &
-0.89406013_wp, -1.85431925_wp, -0.93125962_wp, -1.15362893_wp, -2.34162239_wp, &
-1.53217451_wp, -1.26074923_wp, -1.81255051_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 1.01042959_wp, 0.99143509_wp, 0.91004705_wp, 1.32314755_wp, 0.89688010_wp, &
0.28854537_wp, 0.30000000_wp, 0.30000000_wp, 0.98423211_wp, 0.30000000_wp, &
0.30000000_wp, 1.20391343_wp, 1.06449921_wp, 0.89905207_wp, 0.30000000_wp, &
0.67040787_wp, 1.41451645_wp, 1.03972945_wp, 0.30000000_wp, 1.55510388_wp, &
1.03827959_wp, 1.12544963_wp, 1.32248999_wp, 1.63521161_wp, 1.90053582_wp, &
1.94257575_wp, 1.00000000_wp, 1.48860163_wp, 1.26303630_wp, 0.30000000_wp, &
0.93356896_wp, 0.71958749_wp, 0.67265189_wp, 0.83250136_wp, 1.74345999_wp, &
1.33628214_wp, 0.30000000_wp, 0.30000000_wp, 1.06301677_wp, 1.13387587_wp, &
1.49649675_wp, 1.75228841_wp, 1.72476168_wp, 0.30000000_wp, 1.24487741_wp, &
0.30000000_wp, 1.38526583_wp, 0.30000000_wp, 0.72869925_wp, 0.03883692_wp, &
0.30000000_wp, 0.96981244_wp, 1.01619215_wp, 1.24659007_wp, 0.30000000_wp, &
0.30000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 0.80000000_wp, 1.40890544_wp, 1.65425268_wp, 1.36808355_wp, &
1.69371743_wp, 1.44978347_wp, 0.80000000_wp, 1.23936937_wp, 0.80000000_wp, &
0.80000000_wp, 0.02836955_wp, 0.80000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 6.27081582_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_dmf.fh 0000664 0000000 0000000 00000037723 14650006642 0017227 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_dmf = gbsa_parameter ( &
37.00000000_wp, &
73.10000000_wp, &
0.95000000_wp, &
1.88469616_wp, &
1.51038586_wp, &
4.97937067_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.31395442_wp, -0.36761885_wp, 0.00000000_wp, -12.98855536_wp, -2.37754003_wp, &
-2.44005059_wp, -1.86086392_wp, -1.37292653_wp, -0.90525560_wp, -0.39745607_wp, &
-3.68530373_wp, -2.87776044_wp, -2.15058795_wp, 0.20458102_wp, -2.22484822_wp, &
-2.36623766_wp, -1.83873457_wp, -1.46229545_wp, -3.68543746_wp, -6.29423117_wp, &
-5.81709631_wp, -4.47956803_wp, -4.62605504_wp, -4.61765600_wp, -3.13110729_wp, &
-4.46435824_wp, 6.73414244_wp, -3.03871707_wp, -2.42103095_wp, -3.30650998_wp, &
-2.72610721_wp, -2.06519150_wp, -2.29327547_wp, -2.17607699_wp, -2.25427308_wp, &
-1.36058687_wp, -3.29391920_wp, 13.81224358_wp, -8.15841847_wp, -1.29768115_wp, &
-4.49216661_wp, -1.96814865_wp, -0.15487296_wp, -3.07439938_wp, -1.78045280_wp, &
-2.42774207_wp, -2.03220384_wp, -2.45420192_wp, -3.37214249_wp, -1.75792704_wp, &
-1.90465793_wp, -2.14680413_wp, -2.54639142_wp, -1.28246992_wp, -4.32768786_wp, &
-5.04107845_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.39513547_wp, -3.99792449_wp, 1.26445088_wp, -0.02495375_wp, &
-1.43146552_wp, -2.00470428_wp, -1.17299511_wp, -1.48481069_wp, -1.83462935_wp, &
-2.11190558_wp, -1.21439824_wp, -1.26344660_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 0.89502490_wp, 0.30000000_wp, 1.04738589_wp, 0.85485592_wp, &
0.81694003_wp, 0.30000000_wp, 0.30000000_wp, 0.61833925_wp, 0.30000000_wp, &
0.15554155_wp, 0.30000000_wp, 0.98646269_wp, 0.87613172_wp, 0.82917922_wp, &
0.65692360_wp, 0.84742623_wp, 0.30000000_wp, 0.67358983_wp, 0.30000000_wp, &
1.02960081_wp, 1.06755215_wp, 1.16391541_wp, 1.35728102_wp, 1.18369763_wp, &
1.49455138_wp, 1.01690208_wp, 0.95009537_wp, 0.79279160_wp, 0.30000000_wp, &
1.10948488_wp, 0.83905032_wp, 1.10741378_wp, 1.04147588_wp, 0.88279703_wp, &
0.30000000_wp, 0.30000000_wp, 1.50907927_wp, 1.24805370_wp, 1.07439813_wp, &
1.12737236_wp, 0.32911191_wp, 1.26664516_wp, 1.44030494_wp, 1.08682869_wp, &
0.76369514_wp, 0.75755055_wp, 0.30000000_wp, 0.87787044_wp, 0.85097356_wp, &
1.04814919_wp, 0.61154062_wp, 1.57154356_wp, 0.97472580_wp, 0.97335825_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.06431135_wp, 1.11616083_wp, 0.48218167_wp, 0.74368840_wp, &
1.42594876_wp, 1.08886103_wp, 0.43283952_wp, 0.94682639_wp, 0.94841474_wp, &
0.85404542_wp, 0.88085180_wp, 0.36208457_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 4.65878062_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_dmf = gbsa_parameter ( &
37.00000000_wp, &
73.10000000_wp, &
0.95000000_wp, &
1.85402904_wp, &
1.28494293_wp, &
3.77045120_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.48208914_wp, -0.28924933_wp, -6.08890005_wp, -13.56322009_wp, -2.36024155_wp, &
-2.51386998_wp, -3.06520025_wp, -2.46380756_wp, -0.91151625_wp, -0.32645958_wp, &
-3.89741810_wp, -2.69211933_wp, -1.97835397_wp, 0.20458102_wp, -2.03561547_wp, &
-2.18873123_wp, -1.62204391_wp, -1.25679804_wp, -3.49876406_wp, -6.29423117_wp, &
-5.81709631_wp, -4.47956803_wp, -4.64094542_wp, -3.65813236_wp, -1.89789079_wp, &
2.41669184_wp, 13.35689270_wp, -1.79029475_wp, -1.92742742_wp, -3.66031801_wp, &
-2.72610721_wp, -1.79015528_wp, -2.21054855_wp, -1.73401472_wp, -2.27602615_wp, &
-1.26418738_wp, -3.21304702_wp, -7.22048375_wp, -8.15841847_wp, -0.87578501_wp, &
-4.16517801_wp, -4.36451780_wp, 2.69328761_wp, -2.85560707_wp, -1.26368814_wp, &
-2.04573691_wp, -2.23767811_wp, -3.06188154_wp, -3.10002805_wp, -1.54588935_wp, &
-1.85028119_wp, -2.08450522_wp, -2.87721546_wp, -1.18600787_wp, -3.30211598_wp, &
-6.03310028_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.90152918_wp, -3.32546395_wp, 2.93771818_wp, 0.85423436_wp, &
-0.69768791_wp, -1.77911712_wp, -0.92456925_wp, -1.24218444_wp, -2.73624618_wp, &
-2.11592322_wp, -1.30882885_wp, -1.40473043_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.11740044_wp, 0.30000000_wp, 0.79377214_wp, 0.79128875_wp, &
0.84746424_wp, 0.30000000_wp, 0.30000000_wp, 0.73272246_wp, 0.30000000_wp, &
0.30000000_wp, 1.09781017_wp, 0.68104256_wp, 0.87613172_wp, 0.71094960_wp, &
0.97250194_wp, 0.69149551_wp, 0.30000000_wp, 0.81267529_wp, 0.30000000_wp, &
1.02960081_wp, 1.06755215_wp, 1.19817888_wp, 1.37244147_wp, 1.13028964_wp, &
1.42931164_wp, 0.74089201_wp, 0.87324519_wp, 0.48264953_wp, 0.30000000_wp, &
1.10948488_wp, 0.84166902_wp, 0.94321119_wp, 1.20887165_wp, 0.62809355_wp, &
1.20375255_wp, 0.30000000_wp, 0.30000000_wp, 1.24805370_wp, 0.78521635_wp, &
1.21838310_wp, 1.31736493_wp, 1.29076324_wp, 1.34483110_wp, 1.17454078_wp, &
0.44931579_wp, 0.95950423_wp, 0.00103496_wp, 0.86421402_wp, 0.62028336_wp, &
0.96766772_wp, 0.30000000_wp, 0.65792997_wp, 1.15170978_wp, 0.75961623_wp, &
0.96980166_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.30020823_wp, 1.06635336_wp, 1.12536532_wp, 1.04133374_wp, &
1.28582930_wp, 1.22444454_wp, 0.59366301_wp, 1.01406884_wp, 0.80000000_wp, &
0.85197539_wp, 0.86646859_wp, 0.55870388_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 7.61302606_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_dmf = gbsa_parameter ( &
37.00000000_wp, &
73.10000000_wp, &
0.95000000_wp, &
2.09073761_wp, &
1.18160938_wp, &
3.28590212_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.44921069_wp, -0.24750837_wp, -6.86650303_wp, -15.39128873_wp, -2.49011552_wp, &
-2.51328802_wp, -3.18521566_wp, -3.09418687_wp, -0.35189233_wp, -0.31839721_wp, &
-5.09407029_wp, -2.91945310_wp, -2.32780920_wp, -0.31140948_wp, -1.86823788_wp, &
-2.31002023_wp, -1.70059108_wp, -1.63020806_wp, -4.15609989_wp, -6.21081915_wp, &
-6.50385020_wp, -5.92088891_wp, -5.48393418_wp, -3.30572007_wp, -1.46122223_wp, &
-2.58880444_wp, 17.30184293_wp, -2.16496327_wp, -2.67779116_wp, -3.94927509_wp, &
-2.65938209_wp, -1.89171897_wp, -2.24887778_wp, -2.01373322_wp, -2.31418101_wp, &
-1.35700110_wp, -3.68828485_wp, -8.67738156_wp, -8.57717716_wp, -3.21844938_wp, &
-3.66552682_wp, -4.53162905_wp, 5.23642789_wp, -1.16295123_wp, -0.37563581_wp, &
-2.88186216_wp, -2.33090141_wp, -3.45443563_wp, -3.49072250_wp, -1.63856308_wp, &
-1.91186286_wp, -2.25686795_wp, -2.42023332_wp, -1.11178742_wp, -3.72319429_wp, &
-6.58525476_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -5.17250755_wp, -3.51161372_wp, 2.18490635_wp, 2.98467740_wp, &
0.74052181_wp, -1.27516222_wp, -1.25249234_wp, -1.38488825_wp, -2.18245523_wp, &
-2.35746605_wp, -1.45276933_wp, -2.14448153_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 0.11108539_wp, 0.30000000_wp, 0.01106344_wp, 0.99526403_wp, &
0.89026304_wp, 0.28588557_wp, 0.30000000_wp, 0.06539697_wp, 0.30000000_wp, &
0.30000000_wp, 1.17985921_wp, 1.03234597_wp, 0.17642175_wp, 0.39866412_wp, &
0.91637911_wp, 0.80314127_wp, 0.30000000_wp, 0.30000000_wp, 1.63927854_wp, &
0.99065087_wp, 1.17979417_wp, 1.21920422_wp, 1.37000897_wp, 1.28100537_wp, &
1.41401137_wp, 1.40474975_wp, 1.62299574_wp, 0.30000000_wp, 0.30000000_wp, &
0.33187417_wp, 0.73131961_wp, 0.95581858_wp, 1.14637805_wp, 1.71238321_wp, &
0.49755661_wp, 0.30000000_wp, 0.30000000_wp, 0.95072266_wp, 0.99439945_wp, &
1.36828649_wp, 1.26588771_wp, 1.39097413_wp, 1.53938166_wp, 1.13559138_wp, &
1.07942956_wp, 0.30000000_wp, 0.30000000_wp, 0.88312302_wp, 0.57930506_wp, &
1.01299552_wp, 0.79816668_wp, 1.57906138_wp, 1.32073843_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.28801860_wp, 1.29836271_wp, 1.19640076_wp, 1.17803093_wp, &
1.35751117_wp, 1.08879057_wp, 0.36860676_wp, 0.80000000_wp, 0.01848130_wp, &
0.80000000_wp, 0.83509859_wp, 0.71462899_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 7.19179233_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_dmso.fh 0000664 0000000 0000000 00000037726 14650006642 0017426 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_dmso = gbsa_parameter ( &
46.68000000_wp, &
78.13000000_wp, &
1.10000000_wp, &
1.76719787_wp, &
1.59922172_wp, &
4.78430731_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.11300434_wp, -0.25685286_wp, -6.48673408_wp, -12.43594389_wp, -2.21210801_wp, &
-2.29680871_wp, -1.37692577_wp, -0.82569192_wp, -0.70011595_wp, -0.27136045_wp, &
-3.85322772_wp, -2.58723732_wp, -2.04681299_wp, -0.33536836_wp, -2.12138732_wp, &
-2.18046767_wp, -1.75456852_wp, -1.12339189_wp, -3.15823181_wp, -11.51304700_wp, &
-8.48214683_wp, -0.96377586_wp, -4.71758740_wp, -3.96195564_wp, -3.25235539_wp, &
-4.25090608_wp, 11.72813237_wp, -2.93692419_wp, -2.27594560_wp, -3.20377442_wp, &
-2.84557745_wp, -1.91982651_wp, -2.12565731_wp, -1.90575550_wp, -2.14756475_wp, &
-1.12661545_wp, -2.89872165_wp, -14.21180242_wp, -12.50073307_wp, -0.67283455_wp, &
-4.46109248_wp, -1.31690517_wp, -0.48648552_wp, -2.87326423_wp, -1.54670989_wp, &
-2.25707368_wp, -1.87962944_wp, -1.82759150_wp, -3.27425251_wp, -1.68567086_wp, &
-1.76388308_wp, -1.88994693_wp, -2.42902223_wp, -1.15015663_wp, -3.97829738_wp, &
-5.23650612_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.98359575_wp, -3.84563209_wp, 2.18936608_wp, -0.27925163_wp, &
-1.53465006_wp, -1.81003938_wp, -1.02777507_wp, -1.35205765_wp, -1.74570863_wp, &
-1.99396656_wp, -1.09327845_wp, -0.99245256_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.63912101_wp, 1.16630087_wp, 1.04007128_wp, 1.03613975_wp, 0.86729762_wp, &
0.76782622_wp, 0.30000000_wp, 0.30000000_wp, 0.65970868_wp, 0.30000000_wp, &
0.30000000_wp, 0.81676755_wp, 0.99197622_wp, 0.88432057_wp, 0.79161164_wp, &
0.61226098_wp, 0.82423955_wp, 0.04554288_wp, 0.62942826_wp, 1.22772112_wp, &
0.92834987_wp, 0.95381415_wp, 1.17213468_wp, 1.15120162_wp, 1.25679242_wp, &
1.14671566_wp, 0.93640039_wp, 0.98378169_wp, 0.91000100_wp, 0.30000000_wp, &
0.49296618_wp, 0.82587897_wp, 1.12009091_wp, 1.00898587_wp, 0.87881229_wp, &
0.30000000_wp, 0.30000000_wp, 1.21642482_wp, 1.34596356_wp, 1.06932507_wp, &
1.08548808_wp, 0.51877682_wp, 1.23756203_wp, 1.14488074_wp, 1.07427574_wp, &
0.80864066_wp, 0.90315042_wp, 0.30000000_wp, 0.85786546_wp, 0.85005906_wp, &
1.02879419_wp, 0.62517667_wp, 1.56578887_wp, 1.09063077_wp, 1.02382805_wp, &
0.42880814_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.03576100_wp, 1.10910004_wp, 0.65662351_wp, 0.78827274_wp, &
1.46701668_wp, 1.06794750_wp, 0.51805340_wp, 1.02523660_wp, 1.21701648_wp, &
0.82604215_wp, 0.87534413_wp, 0.42017151_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 5.22816338_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_dmso = gbsa_parameter ( &
46.68000000_wp, &
78.13000000_wp, &
1.10000000_wp, &
1.79272757_wp, &
1.49215217_wp, &
4.51473868_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.38664253_wp, -0.23793625_wp, -6.03843971_wp, -13.22919070_wp, -2.22701589_wp, &
-2.38738228_wp, -2.90820463_wp, -2.31874520_wp, -0.99639634_wp, -0.26161245_wp, &
-3.82454484_wp, -2.64362668_wp, -1.86876630_wp, 0.19339626_wp, -1.87968108_wp, &
-2.02769642_wp, -1.62247140_wp, -1.24077419_wp, -3.03583284_wp, -6.49296876_wp, &
-6.09881747_wp, -4.58817578_wp, -4.82700240_wp, -4.20180767_wp, -1.98834227_wp, &
2.87126034_wp, 16.64033536_wp, -1.97960055_wp, -1.81744327_wp, -3.58357716_wp, &
-2.65452713_wp, -1.73348397_wp, -2.12848796_wp, -1.67987360_wp, -2.33227071_wp, &
-1.19822635_wp, -3.15766157_wp, -7.38729953_wp, -8.04591955_wp, -0.68974293_wp, &
-4.34602557_wp, -4.57828188_wp, 2.79315217_wp, -3.00760331_wp, -1.44232566_wp, &
-1.91915984_wp, -2.11409085_wp, -2.80634213_wp, -3.03358640_wp, -1.49292716_wp, &
-1.73235161_wp, -1.97756737_wp, -2.73254858_wp, -1.15534479_wp, -2.97559221_wp, &
-6.39036337_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.96470778_wp, -3.31841657_wp, 3.53259054_wp, 0.43466852_wp, &
-0.63758586_wp, -1.93676931_wp, -0.88498933_wp, -1.17566028_wp, -2.52788484_wp, &
-2.02962235_wp, -0.74677606_wp, -1.23774498_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.15182062_wp, 0.36346925_wp, 0.80891240_wp, 0.79863748_wp, &
0.84683070_wp, 0.30000000_wp, 0.30000000_wp, 0.79523149_wp, 0.30000000_wp, &
0.30000000_wp, 1.11733780_wp, 0.68855764_wp, 0.85275203_wp, 0.64999526_wp, &
0.94531218_wp, 0.71461583_wp, 0.06447625_wp, 0.30000000_wp, 0.30000000_wp, &
1.04052720_wp, 1.06355128_wp, 1.19997332_wp, 1.37553047_wp, 1.12749336_wp, &
1.44031207_wp, 0.73244215_wp, 0.91336675_wp, 0.55665998_wp, 0.30000000_wp, &
1.00566608_wp, 0.86585707_wp, 0.92570177_wp, 1.19682566_wp, 0.70301713_wp, &
1.22450147_wp, 0.30000000_wp, 0.30000000_wp, 1.27558039_wp, 0.86739237_wp, &
1.21827824_wp, 1.31824236_wp, 1.28151078_wp, 1.34103395_wp, 1.15206036_wp, &
0.53212940_wp, 0.95490440_wp, 0.30000000_wp, 0.86177123_wp, 0.64518231_wp, &
0.87758629_wp, 0.30000000_wp, 0.58562896_wp, 1.15408952_wp, 0.30000000_wp, &
0.97793465_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.29747497_wp, 1.05674546_wp, 1.13719614_wp, 1.07832899_wp, &
1.28825126_wp, 1.22762234_wp, 0.57649023_wp, 1.01284711_wp, 0.80000000_wp, &
0.81705969_wp, 0.98935435_wp, 0.47102566_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 8.48193404_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_dmso = gbsa_parameter ( &
46.68000000_wp, &
78.13000000_wp, &
1.10000000_wp, &
2.04039893_wp, &
1.39110820_wp, &
4.28480111_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.42468553_wp, -0.22616991_wp, -6.91261462_wp, -15.07213151_wp, -2.37541199_wp, &
-2.47012323_wp, -3.24055007_wp, -3.21130564_wp, -0.60512669_wp, -0.28466120_wp, &
-5.19600639_wp, -2.90840282_wp, -2.23617735_wp, -0.46191998_wp, -1.86305492_wp, &
-2.30396728_wp, -1.76664909_wp, -1.64673055_wp, -4.06929751_wp, -6.55217869_wp, &
-6.66626083_wp, -5.98285176_wp, -5.44012500_wp, -3.53782706_wp, -1.32092437_wp, &
-2.79533935_wp, 22.72548724_wp, -2.22906722_wp, -2.59896225_wp, -3.90272664_wp, &
-2.56985379_wp, -1.76403108_wp, -2.17510016_wp, -1.96653132_wp, -2.28707513_wp, &
-1.32591813_wp, -3.67704127_wp, -9.02698319_wp, -8.50517008_wp, -3.24613480_wp, &
-3.89703055_wp, -4.72028170_wp, 7.57722618_wp, -1.59270519_wp, -0.85827362_wp, &
-2.69978490_wp, -2.24803010_wp, -3.21280262_wp, -3.43618299_wp, -1.56986417_wp, &
-1.81696786_wp, -2.14860861_wp, -2.41334598_wp, -1.15882122_wp, -3.79052946_wp, &
-6.80155332_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -5.20139876_wp, -3.66290639_wp, 1.88467424_wp, 3.90444396_wp, &
0.41729834_wp, -1.57273587_wp, -1.24333342_wp, -1.36939738_wp, -2.30485676_wp, &
-2.32099969_wp, -0.98847150_wp, -2.07238788_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 0.37190565_wp, 0.30000000_wp, 0.30000000_wp, 1.02440615_wp, &
0.90251882_wp, 0.33788500_wp, 0.30000000_wp, 0.45502098_wp, 0.30000000_wp, &
0.30000000_wp, 1.17259459_wp, 1.03335419_wp, 0.30000000_wp, 0.23506254_wp, &
0.88332787_wp, 0.74104980_wp, 0.30000000_wp, 0.30000000_wp, 1.63193085_wp, &
0.98330602_wp, 1.17314734_wp, 1.21997287_wp, 1.36408120_wp, 1.28646428_wp, &
1.40100327_wp, 1.36206728_wp, 1.60624699_wp, 0.30000000_wp, 0.30000000_wp, &
0.37862014_wp, 0.73843899_wp, 0.92679103_wp, 1.13280254_wp, 1.71505594_wp, &
0.44508125_wp, 0.30000000_wp, 0.30000000_wp, 0.98716016_wp, 1.03639490_wp, &
1.35634190_wp, 1.23925769_wp, 1.38557672_wp, 1.52557151_wp, 1.12099852_wp, &
1.07045840_wp, 0.30000000_wp, 0.30000000_wp, 0.89114964_wp, 0.64075763_wp, &
0.96470411_wp, 0.76783543_wp, 1.57755150_wp, 1.27851211_wp, 0.30000000_wp, &
0.05191524_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.25816716_wp, 1.28581908_wp, 1.17423555_wp, 1.18613979_wp, &
1.35159745_wp, 1.07892658_wp, 0.36343168_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.15030652_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 8.00056494_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_ethanol.fh 0000664 0000000 0000000 00000037740 14650006642 0020112 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_ethanol = gbsa_parameter ( &
25.30000000_wp, &
46.07000000_wp, &
0.78930000_wp, &
1.66355192_wp, &
0.84162430_wp, &
2.49092568_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.07918111_wp, -0.13992803_wp, -2.41763221_wp, -15.91525077_wp, -2.00800006_wp, &
-2.26928155_wp, -1.93486916_wp, 0.66501338_wp, 0.03098644_wp, -0.17543137_wp, &
-7.72113272_wp, -2.80391046_wp, -1.82238093_wp, 0.54005819_wp, -2.17952910_wp, &
-1.85328528_wp, -1.32292565_wp, -1.09866017_wp, -1.58921466_wp, -8.54462745_wp, &
-4.84076119_wp, 0.00000000_wp, 4.75449922_wp, 0.57071456_wp, -2.80998730_wp, &
-3.69583785_wp, 14.78202371_wp, -2.38383366_wp, -1.52220970_wp, -2.73403426_wp, &
-2.68246039_wp, -2.46968204_wp, -2.06096714_wp, -1.69837658_wp, -1.95327569_wp, &
-1.04209843_wp, -4.62202053_wp, -10.64365366_wp, -6.14635353_wp, 5.14183330_wp, &
3.68351044_wp, 4.36462388_wp, 2.03038746_wp, -1.77979116_wp, 3.81609220_wp, &
-1.75787982_wp, -1.44825383_wp, -1.09034390_wp, -3.21629033_wp, -1.94185995_wp, &
-1.72402911_wp, -2.04847777_wp, -2.43417155_wp, -0.94414988_wp, -1.92159843_wp, &
-5.55035442_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 1.13053565_wp, 1.32260745_wp, 12.15167798_wp, 8.65247787_wp, &
-0.85608019_wp, 0.37783661_wp, -0.79776655_wp, -0.94457344_wp, -0.80722436_wp, &
-1.73579083_wp, -0.71428677_wp, -0.28132148_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.80000000_wp, 1.61725784_wp, 0.29966333_wp, 0.76044793_wp, 1.15348605_wp, &
0.72502855_wp, 0.80000000_wp, 0.30000000_wp, 0.53221910_wp, 1.41738739_wp, &
0.30000000_wp, 1.19942254_wp, 0.94273711_wp, 0.93521379_wp, 0.80000000_wp, &
0.80000000_wp, 0.63886637_wp, 1.30521205_wp, 0.30000000_wp, 1.17708126_wp, &
0.30000000_wp, 0.00000000_wp, 1.13777305_wp, 1.28259307_wp, 1.30002514_wp, &
1.23337598_wp, 1.15763361_wp, 1.16873433_wp, 0.93923715_wp, 1.20164548_wp, &
0.85105673_wp, 0.98191509_wp, 0.74069425_wp, 1.24092089_wp, 0.32387901_wp, &
0.64998873_wp, 0.30000000_wp, 1.09799461_wp, 1.15337987_wp, 1.08496501_wp, &
1.03007782_wp, 0.90838265_wp, 1.28251816_wp, 1.25673441_wp, 1.13009239_wp, &
1.07894009_wp, 1.00100419_wp, 0.87725396_wp, 0.85920448_wp, 1.18080575_wp, &
1.04702878_wp, 0.92246890_wp, 0.56310810_wp, 0.76744494_wp, 0.98279555_wp, &
0.72516058_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.91963976_wp, 0.98780522_wp, 1.24057349_wp, 0.23806246_wp, &
1.16676393_wp, 1.17308179_wp, 1.12367653_wp, 1.11208648_wp, 1.26422019_wp, &
0.73651973_wp, 0.90677227_wp, 0.75644560_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 5.90220718_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
-2.47176078_wp, 1.71400051_wp, 0.41818064_wp, -5.15344826_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.60807148_wp, &
3.19075065_wp, 1.90092818_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_ethanol = gbsa_parameter ( &
25.30000000_wp, &
46.07000000_wp, &
0.78930000_wp, &
1.62446646_wp, &
0.91279578_wp, &
2.14060025_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.25218220_wp, -0.13897627_wp, -0.86743826_wp, -1.81320472_wp, -2.27731021_wp, &
-2.39031618_wp, -2.47198050_wp, -0.08505090_wp, 0.08097631_wp, -0.17916016_wp, &
-7.72113272_wp, -1.03737823_wp, -1.88138258_wp, 0.51149221_wp, -1.84167649_wp, &
-1.69336780_wp, -1.26036493_wp, -0.65422551_wp, -1.58921466_wp, -9.11059797_wp, &
-7.22982390_wp, -4.61868820_wp, -4.57645783_wp, -2.67385778_wp, -2.93711233_wp, &
2.01257589_wp, 9.74833738_wp, -1.24821122_wp, -1.74669202_wp, -0.33760131_wp, &
-2.78116024_wp, -1.74297664_wp, -2.01121412_wp, -1.39066829_wp, -1.61519239_wp, &
-1.26500230_wp, -4.62202053_wp, -11.17395333_wp, -8.32584947_wp, 0.87582141_wp, &
-5.16854115_wp, -2.71195928_wp, -2.90742248_wp, -3.41807262_wp, -1.34857246_wp, &
-1.00979441_wp, -2.06679863_wp, -1.97683363_wp, -3.18881568_wp, -1.54608577_wp, &
-1.87562748_wp, -2.09978128_wp, -2.25403543_wp, -0.98014403_wp, -1.99502357_wp, &
-5.98891556_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.77351612_wp, -4.04830880_wp, 4.11271145_wp, -3.49989324_wp, &
-1.43077966_wp, -2.13182301_wp, -0.72044902_wp, -0.93399195_wp, -2.51417568_wp, &
-1.84648806_wp, -0.95977914_wp, -0.55418129_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.67300950_wp, 1.48082514_wp, 0.30000000_wp, 0.30000000_wp, 0.93890156_wp, &
0.66599452_wp, 0.64141786_wp, 0.30000000_wp, 0.58410696_wp, 0.10806216_wp, &
0.30000000_wp, 0.30000000_wp, 0.69868374_wp, 0.88202513_wp, 0.56538613_wp, &
0.30000000_wp, 0.67076347_wp, 0.30000000_wp, 0.30000000_wp, 1.06221632_wp, &
1.03845566_wp, 1.03686698_wp, 1.18601149_wp, 1.14819850_wp, 1.19382065_wp, &
1.27807253_wp, 1.10136260_wp, 1.10327617_wp, 1.00338308_wp, 0.30000000_wp, &
1.13425281_wp, 0.75272852_wp, 1.12004575_wp, 1.00444769_wp, 0.61819443_wp, &
1.02837404_wp, 0.30000000_wp, 1.01897022_wp, 1.40172230_wp, 0.50606322_wp, &
1.23472719_wp, 0.01428596_wp, 1.30913755_wp, 1.40802475_wp, 1.24326656_wp, &
1.22477940_wp, 1.27877712_wp, 0.67969962_wp, 0.81985787_wp, 0.30000000_wp, &
0.52373132_wp, 0.02799162_wp, 1.47551118_wp, 0.91807593_wp, 0.30000000_wp, &
0.03606160_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.25539355_wp, 1.09526296_wp, 0.79240070_wp, 1.27346989_wp, &
1.22445252_wp, 1.41515774_wp, 1.17588727_wp, 1.08983202_wp, 0.82623981_wp, &
0.56362162_wp, 0.77451211_wp, 0.56368506_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.42795353_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
2.17349835_wp, 2.61707358_wp, 0.46312477_wp, 0.01355631_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.78593962_wp, &
0.10540762_wp, 0.06513631_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_ethanol = gbsa_parameter ( &
25.30000000_wp, &
46.07000000_wp, &
0.78930000_wp, &
1.75204849_wp, &
0.88040441_wp, &
2.15596447_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.23783222_wp, -0.13967914_wp, -0.86743826_wp, -1.81320472_wp, -2.45737167_wp, &
-2.33887244_wp, -2.32081222_wp, -0.31225583_wp, 0.04564715_wp, -0.20801798_wp, &
-7.72113272_wp, -3.15144540_wp, -2.21101692_wp, 0.00554847_wp, -1.80181475_wp, &
-1.93454752_wp, -1.48165136_wp, -0.65422551_wp, -1.60055380_wp, -9.47961752_wp, &
-8.14702021_wp, -8.02267523_wp, -5.17667268_wp, -4.77885078_wp, -1.73690443_wp, &
-2.92454645_wp, 15.87218642_wp, -2.52282269_wp, -1.74937028_wp, -0.33760131_wp, &
-2.83209240_wp, -2.03669007_wp, -2.13394813_wp, -1.85021254_wp, -2.03070020_wp, &
-1.51080052_wp, -4.61948507_wp, -2.47115779_wp, -8.03360947_wp, -2.50924940_wp, &
-4.80958569_wp, -3.69139419_wp, 9.55881448_wp, -0.23125346_wp, -0.04705460_wp, &
-2.39068830_wp, -2.03046057_wp, -1.70945547_wp, -3.67034908_wp, -1.54608577_wp, &
-2.08860431_wp, -2.27708515_wp, -2.35757143_wp, -0.98153767_wp, -1.99502357_wp, &
0.08405287_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -5.22685175_wp, -4.34718365_wp, 4.75353782_wp, -1.45859823_wp, &
0.74405567_wp, -0.95577100_wp, -0.97490110_wp, -0.90819556_wp, -1.67842058_wp, &
-0.74947739_wp, -0.54235865_wp, -0.20723425_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.66447265_wp, 1.55103075_wp, 0.30000000_wp, 0.30000000_wp, 1.12953938_wp, &
0.77808878_wp, 0.59364168_wp, 0.30000000_wp, 0.30000000_wp, 0.99010784_wp, &
0.30000000_wp, 1.10571842_wp, 1.04441657_wp, 0.60105591_wp, 0.66899042_wp, &
0.30000000_wp, 0.80000000_wp, 0.30000000_wp, 0.14150775_wp, 0.62102085_wp, &
1.03216981_wp, 1.00355000_wp, 1.22056147_wp, 1.43201614_wp, 1.61416857_wp, &
1.64405897_wp, 1.68301378_wp, 1.24010640_wp, 0.30000000_wp, 0.30000000_wp, &
0.75023664_wp, 0.72026742_wp, 0.71875916_wp, 1.02400174_wp, 1.69923729_wp, &
0.37534181_wp, 0.10796870_wp, 0.30000000_wp, 1.00060680_wp, 0.94999816_wp, &
1.38245538_wp, 1.51406657_wp, 1.67616805_wp, 1.74124705_wp, 1.35418245_wp, &
0.52842769_wp, 1.33135094_wp, 0.30000000_wp, 0.83022616_wp, 0.30000000_wp, &
1.06732509_wp, 0.53761011_wp, 1.34877834_wp, 1.09746532_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.34658093_wp, 1.34342966_wp, 1.41068682_wp, 1.26085012_wp, &
1.51913878_wp, 1.22174901_wp, 0.57318938_wp, 0.37524163_wp, 0.98555286_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.44974704_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
3.52832396_wp, 2.82581671_wp, 1.10779084_wp, 0.14915389_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.95647321_wp, &
0.49439619_wp, 0.07261108_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_ether.fh 0000664 0000000 0000000 00000037731 14650006642 0017567 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_ether = gbsa_parameter ( &
4.33000000_wp, &
74.12000000_wp, &
0.71300000_wp, &
1.82443855_wp, &
3.36369436_wp, &
8.54631169_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.91431436_wp, -0.58070892_wp, -1.52894511_wp, -5.13964949_wp, -1.51155081_wp, &
-1.65094083_wp, -0.86770855_wp, -0.47875612_wp, -0.81842199_wp, -0.56077855_wp, &
-2.01087639_wp, -1.46417271_wp, -1.44160960_wp, -0.22133339_wp, -1.51165563_wp, &
-1.41356390_wp, -1.24966798_wp, -1.15937991_wp, -2.04449408_wp, -8.52481276_wp, &
-6.09973213_wp, -0.83300372_wp, -2.13677627_wp, -2.00032395_wp, -2.49485301_wp, &
-2.18923921_wp, -7.92805966_wp, -1.81936454_wp, -1.54709136_wp, -1.58027459_wp, &
-2.15529089_wp, -1.50310029_wp, -1.44273512_wp, -1.35854625_wp, -1.38240864_wp, &
-1.13733806_wp, -1.87748269_wp, 3.66744035_wp, -9.37277903_wp, -0.71244547_wp, &
-1.39083996_wp, -1.69200401_wp, -3.49284099_wp, -1.87725575_wp, -1.25316197_wp, &
-1.51879841_wp, -1.30827817_wp, 0.41548750_wp, -1.85302923_wp, -1.45405236_wp, &
-1.29314404_wp, -1.46017089_wp, -1.50994513_wp, -1.19304603_wp, 0.05225103_wp, &
-2.27952934_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.75396736_wp, -1.43055920_wp, -3.61412253_wp, -4.27709186_wp, &
-1.27873191_wp, -1.28848208_wp, -1.02544571_wp, -1.11258504_wp, -1.27374000_wp, &
-1.24119862_wp, -0.81613669_wp, -1.02111057_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.74870707_wp, 0.30000000_wp, 1.50346221_wp, 1.25842073_wp, 0.94123538_wp, &
0.62240483_wp, 0.30000000_wp, 0.41567855_wp, 0.77214959_wp, 0.30000000_wp, &
0.30000000_wp, 1.00765310_wp, 0.98776004_wp, 0.87666489_wp, 0.82067754_wp, &
0.30000000_wp, 0.86669162_wp, 0.30000000_wp, 0.78690695_wp, 1.35949726_wp, &
1.09613845_wp, 1.00454344_wp, 1.23082729_wp, 0.95069679_wp, 1.25209211_wp, &
1.03142715_wp, 1.10919724_wp, 0.97265468_wp, 0.93300148_wp, 0.30000000_wp, &
0.58773754_wp, 0.67581250_wp, 1.16594391_wp, 0.94868958_wp, 1.70884591_wp, &
0.30000000_wp, 1.20561190_wp, 1.61905293_wp, 1.39362627_wp, 1.26746822_wp, &
1.09635715_wp, 0.62972096_wp, 1.13592599_wp, 1.02172561_wp, 0.91315972_wp, &
0.66125476_wp, 0.04852753_wp, 1.58650015_wp, 0.81911561_wp, 1.18140120_wp, &
1.08148873_wp, 0.30000000_wp, 1.57746664_wp, 1.11333102_wp, 1.72761229_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.24727515_wp, 1.02210176_wp, 0.84106557_wp, 0.79525400_wp, &
1.02758654_wp, 0.83535575_wp, 0.06193258_wp, 1.23733152_wp, 0.79815890_wp, &
1.10116399_wp, 0.96000967_wp, 1.11335302_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.85606255_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_ether = gbsa_parameter ( &
4.33000000_wp, &
74.12000000_wp, &
0.71300000_wp, &
1.58465468_wp, &
1.14930964_wp, &
3.10832901_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.37103872_wp, -0.41977745_wp, -3.69586174_wp, -11.61278609_wp, -2.40421376_wp, &
-2.42446747_wp, -2.00586580_wp, -0.87351482_wp, -0.42023641_wp, -0.46118972_wp, &
-2.98655641_wp, -2.44766523_wp, -1.72431597_wp, 0.22255920_wp, -2.24449155_wp, &
-2.06128996_wp, -1.61171641_wp, -1.41599498_wp, -3.24984604_wp, -4.21734547_wp, &
-4.59486463_wp, -3.61337416_wp, -4.20015559_wp, -3.44971035_wp, -2.53825202_wp, &
2.54721106_wp, -1.74362570_wp, -1.53793503_wp, -2.00296184_wp, -3.02669579_wp, &
-2.56020451_wp, -2.12420203_wp, -2.20339162_wp, -1.67875918_wp, -2.12984787_wp, &
-1.40156757_wp, -2.89780651_wp, -5.31327909_wp, -6.57325469_wp, 0.33434000_wp, &
-3.84490382_wp, -2.74384260_wp, -2.79468289_wp, -2.81191075_wp, -1.66841518_wp, &
-1.90612170_wp, -2.19547580_wp, -2.05732619_wp, -2.72176429_wp, -1.80202693_wp, &
-1.92324306_wp, -2.09793839_wp, -2.63669739_wp, -1.23868974_wp, -2.31036608_wp, &
-4.36607834_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.03725494_wp, -2.67608710_wp, 3.20814838_wp, -2.65692482_wp, &
-1.22214666_wp, -2.15626456_wp, -1.05683034_wp, -1.23143100_wp, -2.32551963_wp, &
-1.66013720_wp, -1.04271426_wp, -1.14802293_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.85545181_wp, 1.26078863_wp, 1.44092061_wp, 0.46761613_wp, 0.91673162_wp, &
0.02464722_wp, 0.34310332_wp, 0.30000000_wp, 0.85470383_wp, 0.30000000_wp, &
0.30000000_wp, 1.00408544_wp, 1.02412550_wp, 0.89056740_wp, 0.44358004_wp, &
0.85825998_wp, 0.84280882_wp, 1.03427028_wp, 1.27691271_wp, 1.34442198_wp, &
1.03159986_wp, 1.07670987_wp, 1.35114132_wp, 1.21955226_wp, 1.27263052_wp, &
1.54570751_wp, 1.07348117_wp, 1.04116392_wp, 0.97593637_wp, 0.07266388_wp, &
1.13433161_wp, 0.75819466_wp, 1.12659303_wp, 1.08552585_wp, 0.39180649_wp, &
1.33367354_wp, 1.23210461_wp, 1.25112664_wp, 1.36363262_wp, 0.87729504_wp, &
1.37232120_wp, 0.56546146_wp, 1.43209178_wp, 1.56196204_wp, 1.29955995_wp, &
1.14954036_wp, 1.27260356_wp, 1.51423549_wp, 0.83495527_wp, 0.61288562_wp, &
0.64530264_wp, 0.24151854_wp, 0.30000000_wp, 1.14775060_wp, 1.14084866_wp, &
0.93117727_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.33413719_wp, 1.17474693_wp, 0.89109996_wp, 1.14121649_wp, &
1.45473344_wp, 1.42630812_wp, 1.10052032_wp, 1.08765113_wp, 0.80000000_wp, &
1.16676059_wp, 0.99157401_wp, 1.13438161_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 7.09710513_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_ether = gbsa_parameter ( &
4.33000000_wp, &
74.12000000_wp, &
0.71300000_wp, &
1.80918580_wp, &
1.34053405_wp, &
4.25652946_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.49603949_wp, -0.51209391_wp, -4.66736052_wp, -11.75399249_wp, -2.48266387_wp, &
-2.42697306_wp, -2.42129575_wp, -2.22069774_wp, -0.53575916_wp, -0.56389754_wp, &
-4.02934668_wp, -2.56480314_wp, -2.22184100_wp, -0.64231832_wp, -2.12534131_wp, &
-2.26756052_wp, -1.76389447_wp, -1.44572588_wp, -3.28819307_wp, -4.21455871_wp, &
-4.97319406_wp, -4.90120494_wp, -4.41887373_wp, -3.39750911_wp, -1.53029538_wp, &
-2.64305444_wp, 4.03326546_wp, -2.27427320_wp, -2.52250198_wp, -3.15336523_wp, &
-2.46313031_wp, -2.22385723_wp, -2.23967537_wp, -1.97830430_wp, -2.18140160_wp, &
-1.56911974_wp, -3.02623838_wp, -5.53976033_wp, -6.34979987_wp, -2.30903705_wp, &
-2.45872294_wp, -3.17600515_wp, 4.63106873_wp, -1.49010832_wp, -1.26828110_wp, &
-2.52375509_wp, -2.26199240_wp, 0.00000000_wp, -2.95245312_wp, -1.80902553_wp, &
-1.97734735_wp, -2.23314162_wp, -2.37456362_wp, -1.42724812_wp, -2.88205138_wp, &
-4.61064264_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.57410577_wp, -2.56966784_wp, 4.30412419_wp, 1.36003575_wp, &
-0.18420385_wp, -1.76547045_wp, -1.33799124_wp, -1.46052820_wp, -1.93012270_wp, &
-1.85038978_wp, -1.14611694_wp, -1.90295776_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 0.42124235_wp, 1.76432983_wp, 1.11130592_wp, 0.97604187_wp, &
0.81654008_wp, 0.30000000_wp, 0.30000000_wp, 0.30262562_wp, 0.30000000_wp, &
0.30000000_wp, 1.19597263_wp, 1.04873161_wp, 0.30000000_wp, 0.30000000_wp, &
0.88254458_wp, 0.76248071_wp, 0.09216622_wp, 1.83755727_wp, 1.69660428_wp, &
1.03705740_wp, 1.17579494_wp, 1.29627652_wp, 1.51866843_wp, 1.42211505_wp, &
1.56690041_wp, 1.64523787_wp, 1.76922496_wp, 0.30000000_wp, 0.30000000_wp, &
0.57596903_wp, 0.70381176_wp, 0.96541623_wp, 1.12923106_wp, 1.71866961_wp, &
0.44888305_wp, 1.71808010_wp, 1.89398122_wp, 0.98841985_wp, 1.01090530_wp, &
1.43521875_wp, 1.50098743_wp, 1.55641351_wp, 1.69280145_wp, 1.14527154_wp, &
1.11704728_wp, 0.30000000_wp, 0.00000000_wp, 0.86361106_wp, 0.63316675_wp, &
1.00323337_wp, 0.65309042_wp, 1.56940207_wp, 1.26372749_wp, 1.72620917_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.43989571_wp, 1.36744427_wp, 1.40792111_wp, 1.23604419_wp, &
1.45826862_wp, 1.19358937_wp, 0.59820792_wp, 0.80000000_wp, 0.96242721_wp, &
1.17480144_wp, 1.25118925_wp, 1.13912602_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.48078286_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_ethylacetate.fh 0000664 0000000 0000000 00000037756 14650006642 0021143 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_ethylacetate = gbsa_parameter ( &
6.02000000_wp, &
72.10610000_wp, &
0.88300000_wp, &
1.63408166_wp, &
0.84175508_wp, &
3.03377369_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.39976989_wp, -0.22066839_wp, -6.97530897_wp, -14.75801739_wp, -2.79051444_wp, &
-2.59108832_wp, -1.17499634_wp, 0.13798936_wp, -0.23862039_wp, -0.24882857_wp, &
-3.66297601_wp, -2.99743375_wp, -2.38156691_wp, 0.23949435_wp, -2.63514166_wp, &
-2.56331633_wp, -2.00215448_wp, -1.25377143_wp, -3.39735586_wp, -6.45262589_wp, &
-5.52115691_wp, -3.59313979_wp, -3.81438937_wp, -2.36971439_wp, -4.00019561_wp, &
-4.57309751_wp, 9.88340512_wp, -3.32748943_wp, -2.75225207_wp, -3.49136715_wp, &
-3.24252108_wp, -2.33299892_wp, -2.53147793_wp, -2.16059101_wp, -2.47948407_wp, &
-1.29898746_wp, -2.91233863_wp, -8.16078288_wp, -9.67527276_wp, -0.29163894_wp, &
-3.36973673_wp, 0.85384618_wp, -2.69292477_wp, -2.12157401_wp, -1.90729090_wp, &
-2.83582923_wp, -2.23909408_wp, -1.25690112_wp, -3.64346092_wp, -1.85222390_wp, &
-2.18945974_wp, -2.28776141_wp, -2.90768200_wp, -0.99316729_wp, -3.23203220_wp, &
-4.80976585_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.90244594_wp, -3.66597154_wp, 2.83853990_wp, 0.79435987_wp, &
-1.52745373_wp, -2.22566319_wp, -1.11438384_wp, -1.52591745_wp, -1.45070276_wp, &
-2.06563400_wp, -1.13309581_wp, -0.89063564_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.72925306_wp, 1.49154613_wp, 1.03793566_wp, 0.80488005_wp, 0.87114617_wp, &
0.74343966_wp, 0.30000000_wp, 0.30000000_wp, 0.65358663_wp, 0.01948415_wp, &
0.14205084_wp, 0.30000000_wp, 0.99471978_wp, 0.87150586_wp, 0.79322951_wp, &
0.51756224_wp, 0.87643218_wp, 0.82937968_wp, 0.68107762_wp, 1.38117372_wp, &
1.03118497_wp, 1.08835081_wp, 1.17002256_wp, 1.11645367_wp, 1.31541203_wp, &
1.16137230_wp, 0.66816646_wp, 1.00983096_wp, 1.04223439_wp, 0.30000000_wp, &
1.11103491_wp, 0.99323666_wp, 1.15178544_wp, 0.99218570_wp, 0.94055306_wp, &
0.96212255_wp, 0.30000000_wp, 0.30000000_wp, 0.95097273_wp, 1.12895286_wp, &
1.07138735_wp, 0.68615840_wp, 1.26320580_wp, 1.14255472_wp, 1.08678514_wp, &
1.04682478_wp, 0.93392573_wp, 0.54013267_wp, 0.91908441_wp, 0.83341904_wp, &
1.03767091_wp, 0.81403804_wp, 1.52613320_wp, 1.11707123_wp, 0.99076014_wp, &
0.39076155_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.02412753_wp, 1.06153725_wp, 0.75676094_wp, 0.80467575_wp, &
1.15010199_wp, 1.08242025_wp, 0.64533988_wp, 1.06317896_wp, 1.03823933_wp, &
0.81696863_wp, 0.88356875_wp, 0.55984458_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 3.15252300_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_ethylacetate = gbsa_parameter ( &
6.02000000_wp, &
72.10610000_wp, &
0.88300000_wp, &
1.64733795_wp, &
0.50241618_wp, &
1.51781785_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.47464227_wp, -0.10752409_wp, -6.76065469_wp, -18.22167040_wp, -2.92965152_wp, &
-2.56430588_wp, -3.40983221_wp, -1.91105293_wp, -0.01270725_wp, -0.13755626_wp, &
-4.92259034_wp, -3.60583392_wp, -2.01072681_wp, 0.23949435_wp, -2.35667752_wp, &
-2.40564101_wp, -1.92060622_wp, -1.01258184_wp, -3.26559937_wp, -6.45262589_wp, &
-5.52115691_wp, -3.59313979_wp, -6.59576807_wp, -3.13763691_wp, -0.88670591_wp, &
1.74780192_wp, 9.88340512_wp, -0.88297167_wp, -2.44026373_wp, -4.57961109_wp, &
-3.24252108_wp, -1.88416436_wp, -2.67771231_wp, -1.81379923_wp, -1.96620377_wp, &
-1.07379349_wp, -3.22324039_wp, -8.16078288_wp, -9.67527276_wp, -1.97565069_wp, &
-7.30870212_wp, -2.99011992_wp, -0.98908968_wp, -1.86634080_wp, -1.51427958_wp, &
-2.72024442_wp, -2.63735961_wp, -3.20722817_wp, -3.50287298_wp, -1.61913490_wp, &
-2.39438994_wp, -2.35173908_wp, -2.43955645_wp, -0.73066180_wp, -3.41083482_wp, &
-6.53195023_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.29112956_wp, -5.25328160_wp, 2.71032461_wp, 2.41078006_wp, &
-0.69666985_wp, -2.53087586_wp, -1.11903365_wp, -1.30417534_wp, -2.65071281_wp, &
-2.26744852_wp, -1.01854238_wp, -1.52083385_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.75327067_wp, 1.48107773_wp, 0.30000000_wp, 0.72056458_wp, 0.84852207_wp, &
0.48790277_wp, 0.30000000_wp, 0.30000000_wp, 0.68876350_wp, 0.30000000_wp, &
1.33884934_wp, 1.06391564_wp, 1.03031025_wp, 0.87150586_wp, 0.52556850_wp, &
0.91708861_wp, 1.08370970_wp, 0.30000000_wp, 0.30000000_wp, 1.38117372_wp, &
1.03118497_wp, 1.08835081_wp, 1.29293858_wp, 1.45814614_wp, 1.20013819_wp, &
1.57654044_wp, 0.66816646_wp, 0.49846436_wp, 0.89653473_wp, 0.30000000_wp, &
1.11103491_wp, 0.68994820_wp, 1.03098261_wp, 1.00425454_wp, 0.84978396_wp, &
1.10682104_wp, 0.30000000_wp, 0.30000000_wp, 0.95097273_wp, 0.30000000_wp, &
1.39571242_wp, 0.63676822_wp, 1.43256971_wp, 1.46774994_wp, 1.30373035_wp, &
1.08475178_wp, 1.27165741_wp, 1.09117135_wp, 0.84805784_wp, 0.30000000_wp, &
0.93668467_wp, 0.70968282_wp, 0.96861202_wp, 1.02972030_wp, 1.00011722_wp, &
0.95132992_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.44373140_wp, 1.20752219_wp, 0.23928831_wp, 0.99697589_wp, &
1.37637072_wp, 1.32145117_wp, 0.95526657_wp, 1.03585397_wp, 0.97599615_wp, &
0.76100333_wp, 0.98966698_wp, 0.62279966_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 4.31040661_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_ethylacetate = gbsa_parameter ( &
6.02000000_wp, &
72.10610000_wp, &
0.88300000_wp, &
1.84722408_wp, &
0.84498343_wp, &
2.97401794_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.66318094_wp, -0.21837235_wp, -6.77401412_wp, -16.53384416_wp, -2.83325586_wp, &
-2.65916047_wp, -3.71386107_wp, -3.44196249_wp, -0.49845453_wp, -0.26372133_wp, &
-5.15519735_wp, -3.18128222_wp, -2.38266452_wp, -0.18021508_wp, -2.12004105_wp, &
-2.58549043_wp, -1.81794937_wp, -1.67800088_wp, -4.15705736_wp, -5.80491410_wp, &
-4.78402647_wp, -5.15149822_wp, -5.14453795_wp, -0.92327939_wp, -0.56884839_wp, &
-1.26914407_wp, 0.00000000_wp, -1.78153441_wp, -2.84642681_wp, -4.21917280_wp, &
-2.81265317_wp, -1.81615393_wp, -2.44688750_wp, -2.12642464_wp, -2.53604463_wp, &
-1.42675091_wp, -3.68580925_wp, -8.19189393_wp, -8.12160508_wp, -2.46463451_wp, &
-3.68056050_wp, -3.56352182_wp, 0.00000000_wp, -0.23026153_wp, 0.55101473_wp, &
-3.22272212_wp, -2.51205157_wp, -3.55364651_wp, -3.49401999_wp, -1.68710931_wp, &
-2.15264915_wp, -2.36593570_wp, -2.81498049_wp, -1.00056331_wp, -3.65805226_wp, &
-6.24065633_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -4.86319204_wp, -3.66344466_wp, 2.33964990_wp, 4.61599611_wp, &
1.63112930_wp, -0.66811563_wp, -1.46272480_wp, -1.45482657_wp, -2.57086565_wp, &
-2.37823559_wp, -1.17213116_wp, -2.23842631_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 0.83961291_wp, 0.30000000_wp, 0.30000000_wp, 0.97933528_wp, &
0.89235128_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.30000000_wp, 1.19842697_wp, 1.03820018_wp, 0.30000000_wp, 0.41581329_wp, &
0.93787758_wp, 1.34028932_wp, 0.30000000_wp, 0.30000000_wp, 1.67427512_wp, &
0.70301917_wp, 1.19313219_wp, 1.23059290_wp, 1.42212054_wp, 1.36919394_wp, &
1.43837853_wp, 1.00000000_wp, 1.65788793_wp, 0.30000000_wp, 0.30000000_wp, &
0.44105922_wp, 1.06834147_wp, 0.91326773_wp, 1.09557942_wp, 1.71568353_wp, &
0.61089941_wp, 0.30000000_wp, 0.30000000_wp, 0.10095421_wp, 0.30000000_wp, &
1.39742320_wp, 1.29722147_wp, 1.00000000_wp, 1.56247400_wp, 1.19099356_wp, &
1.14849139_wp, 0.30000000_wp, 0.30000000_wp, 0.89882941_wp, 0.60935014_wp, &
0.95870409_wp, 0.84347576_wp, 1.50669682_wp, 1.23876272_wp, 0.30000000_wp, &
1.16204639_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.29705636_wp, 1.31927396_wp, 1.23155817_wp, 1.20564229_wp, &
1.38593594_wp, 1.12633433_wp, 1.06676464_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.18835370_wp, 0.80000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 4.68093445_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_furane.fh 0000664 0000000 0000000 00000037734 14650006642 0017743 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_furane = gbsa_parameter ( &
2.94000000_wp, &
68.07000000_wp, &
0.93600000_wp, &
1.34358884_wp, &
0.62641489_wp, &
1.81646541_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.21673171_wp, -0.12772038_wp, -6.26049718_wp, -13.17758891_wp, -2.82447487_wp, &
-2.73374451_wp, -0.38515211_wp, 1.25855411_wp, 0.56169347_wp, -0.16450823_wp, &
-3.30285605_wp, -2.64178832_wp, -2.41075021_wp, 0.53703682_wp, -2.70652912_wp, &
-2.53361460_wp, -1.71849857_wp, -1.04531616_wp, -3.25052582_wp, -5.96743843_wp, &
-4.53958647_wp, -2.37519332_wp, -2.38337681_wp, 0.12379897_wp, -2.69779433_wp, &
-4.92996221_wp, -2.47431927_wp, -3.00097634_wp, -2.57096459_wp, -2.59337509_wp, &
-2.31764490_wp, -2.57395139_wp, -2.58378740_wp, -1.91219467_wp, -2.45870492_wp, &
-1.10813253_wp, -2.70007846_wp, -7.25156713_wp, -8.65094836_wp, 2.55526922_wp, &
1.00186796_wp, 6.25662804_wp, -1.95705030_wp, -1.70605585_wp, -2.60576061_wp, &
-2.75948980_wp, -2.15939752_wp, -1.08318022_wp, -3.50041748_wp, -1.82326491_wp, &
-2.18890948_wp, -2.22894539_wp, -2.93900015_wp, -0.81694535_wp, -3.30826309_wp, &
-4.37851918_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.50417690_wp, -0.05363621_wp, 3.16518237_wp, 3.23666109_wp, &
-1.61715327_wp, -2.46477762_wp, -0.93687501_wp, -1.37002909_wp, -0.96685982_wp, &
-1.61594901_wp, -0.72603933_wp, -0.43128967_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.83912220_wp, 1.78812603_wp, 1.06178050_wp, 0.64676283_wp, 0.87616339_wp, &
0.67051441_wp, 0.30000000_wp, 0.73614811_wp, 0.77969607_wp, 1.56539817_wp, &
0.30000000_wp, 0.30000000_wp, 0.98841079_wp, 0.95474113_wp, 0.72354412_wp, &
0.30000000_wp, 0.83314536_wp, 1.30171809_wp, 0.71339713_wp, 0.30000000_wp, &
1.07129882_wp, 1.07814047_wp, 1.19333247_wp, 1.14261167_wp, 1.21614897_wp, &
1.17070921_wp, 1.06281194_wp, 1.04352581_wp, 1.18389606_wp, 0.01181660_wp, &
1.13831559_wp, 1.00150746_wp, 1.16635189_wp, 0.96129143_wp, 1.09615358_wp, &
1.20740935_wp, 0.10699399_wp, 0.30000000_wp, 0.84196403_wp, 1.10537158_wp, &
1.07646357_wp, 0.93411678_wp, 1.27261642_wp, 1.15997444_wp, 1.05183004_wp, &
1.16070823_wp, 0.99217042_wp, 0.97390431_wp, 0.94329675_wp, 0.83553489_wp, &
1.04228732_wp, 0.90913027_wp, 1.25169803_wp, 1.04258291_wp, 1.01497207_wp, &
0.52650081_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.05033867_wp, 1.01464730_wp, 0.89499196_wp, 0.88873376_wp, &
1.12005901_wp, 1.04773453_wp, 0.74172261_wp, 1.11001251_wp, 0.98037858_wp, &
0.76392768_wp, 1.00384002_wp, 0.79800402_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.04115102_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_furane = gbsa_parameter ( &
2.94000000_wp, &
68.07000000_wp, &
0.93600000_wp, &
1.28872589_wp, &
0.48900006_wp, &
1.24661341_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.34331419_wp, -0.10528890_wp, -5.44529786_wp, -15.64566091_wp, -2.89065815_wp, &
-2.76752119_wp, -2.95774936_wp, -0.18194139_wp, 0.38260590_wp, -0.13731173_wp, &
-4.40895349_wp, -2.96664573_wp, -1.81939300_wp, 0.53703682_wp, -2.46510797_wp, &
-2.34661217_wp, -1.68263052_wp, -0.94180070_wp, -2.67597579_wp, -5.96743843_wp, &
-4.53958647_wp, -2.37519332_wp, -6.48695622_wp, -0.95637608_wp, -2.33324934_wp, &
-2.11005655_wp, -2.47431927_wp, -0.70122124_wp, -2.32818118_wp, -3.63711001_wp, &
-3.18443664_wp, -1.82164033_wp, -2.55821661_wp, -1.49033789_wp, -2.04893421_wp, &
-1.01036070_wp, -3.03695448_wp, -7.25156713_wp, -8.65094836_wp, 0.90539857_wp, &
-6.82658746_wp, -1.04614201_wp, -2.12328069_wp, -3.12626442_wp, -3.89828505_wp, &
-1.83026210_wp, -2.52136489_wp, -2.35134609_wp, -3.50011757_wp, -1.57550664_wp, &
-2.38268715_wp, -2.34460162_wp, -2.47225415_wp, -0.73527495_wp, -3.02936007_wp, &
-5.70415926_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.41590025_wp, -4.60920960_wp, 1.37287726_wp, -3.03161593_wp, &
-2.77466931_wp, -3.98630896_wp, -1.12315108_wp, -1.14369672_wp, -2.43237503_wp, &
-1.70071275_wp, -1.00202900_wp, -0.58455271_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.58301411_wp, 1.81350872_wp, 0.75206698_wp, 0.61619223_wp, 0.86799156_wp, &
0.23981977_wp, 0.30000000_wp, 0.86919153_wp, 0.87791119_wp, 1.26285484_wp, &
1.42990107_wp, 1.00546613_wp, 0.92998604_wp, 0.95474113_wp, 0.30000000_wp, &
0.66201697_wp, 1.13833490_wp, 1.05845403_wp, 0.30000000_wp, 0.30000000_wp, &
1.07129882_wp, 1.07814047_wp, 1.24208512_wp, 1.01436759_wp, 1.20260572_wp, &
1.56541659_wp, 1.06281194_wp, 0.76863040_wp, 1.06281844_wp, 0.63675905_wp, &
1.15958898_wp, 0.75122278_wp, 1.11516041_wp, 0.81956508_wp, 0.84910390_wp, &
1.19791276_wp, 0.30000000_wp, 0.30000000_wp, 0.84196403_wp, 0.30000000_wp, &
1.23531583_wp, 0.46887795_wp, 1.14991646_wp, 1.47823465_wp, 1.30663546_wp, &
1.24692545_wp, 1.03605678_wp, 0.81294699_wp, 0.89306108_wp, 0.30000000_wp, &
1.03252233_wp, 0.86195584_wp, 0.73022054_wp, 0.91170779_wp, 0.99759987_wp, &
0.87098751_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.49296628_wp, 1.07474522_wp, 0.51977584_wp, 1.27241266_wp, &
1.41683942_wp, 1.19581174_wp, 1.14400185_wp, 1.02974405_wp, 0.81932870_wp, &
0.61068641_wp, 1.01652783_wp, 0.73329767_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.33594644_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_furane = gbsa_parameter ( &
2.94000000_wp, &
68.07000000_wp, &
0.93600000_wp, &
1.34735419_wp, &
0.51354050_wp, &
1.21982591_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.26063739_wp, -0.10320590_wp, -6.38342156_wp, -16.73395773_wp, -2.91566274_wp, &
-2.68150853_wp, -2.89777580_wp, -0.29783243_wp, 0.59642444_wp, -0.14011410_wp, &
-4.92020183_wp, -3.29465855_wp, -2.53109006_wp, -0.11151128_wp, -2.13956351_wp, &
-2.59540679_wp, -1.65835402_wp, -1.23227409_wp, -4.19617978_wp, -6.43377711_wp, &
-3.15405656_wp, -6.41736239_wp, -6.73124903_wp, -2.67229247_wp, 0.63376165_wp, &
-5.55481847_wp, 0.00000000_wp, -3.16307765_wp, -2.69850817_wp, -4.10803898_wp, &
-3.21494774_wp, -2.08049393_wp, -2.52729300_wp, -1.79391657_wp, -2.55789952_wp, &
-1.11350172_wp, -3.69988813_wp, -8.56201561_wp, -0.22509709_wp, -2.29317126_wp, &
-5.92948652_wp, 4.09346887_wp, -0.41513403_wp, -1.17288980_wp, 0.54737277_wp, &
-3.24175045_wp, -2.34923971_wp, -3.55716111_wp, -3.64773220_wp, -1.52038574_wp, &
-2.36106554_wp, -2.13285150_wp, -2.85925287_wp, -0.74869318_wp, -3.64499373_wp, &
-6.39042595_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -4.92901440_wp, -5.33301777_wp, 6.04499197_wp, -0.42966448_wp, &
0.27907887_wp, -1.94560000_wp, -1.15092201_wp, -1.16264711_wp, -1.89970584_wp, &
-2.23137838_wp, -1.20443090_wp, -2.19321781_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.56216082_wp, 1.76243032_wp, 0.88097757_wp, 0.30000000_wp, 0.93828429_wp, &
0.58725888_wp, 0.30000000_wp, 0.41926480_wp, 0.60121827_wp, 1.08489750_wp, &
0.30000000_wp, 0.30000000_wp, 0.95898822_wp, 0.98840942_wp, 0.30000000_wp, &
0.85168197_wp, 1.40319358_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.86252142_wp, 1.18407012_wp, 1.30676869_wp, 1.66099763_wp, 1.79210427_wp, &
1.83373538_wp, 1.00000000_wp, 1.40737878_wp, 1.26003470_wp, 0.30000000_wp, &
0.82373651_wp, 0.76189868_wp, 0.96508052_wp, 0.78182130_wp, 1.73664211_wp, &
0.98391376_wp, 0.30000000_wp, 0.30000000_wp, 0.83715964_wp, 0.61793018_wp, &
1.43577602_wp, 1.81084476_wp, 1.74820405_wp, 1.96258411_wp, 1.19155652_wp, &
0.55985473_wp, 1.38062656_wp, 0.30000000_wp, 0.85497241_wp, 0.06841002_wp, &
1.03405140_wp, 0.71189895_wp, 1.09429280_wp, 1.08712485_wp, 0.30000000_wp, &
0.30000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 0.80000000_wp, 1.36499942_wp, 1.78289478_wp, 1.37731095_wp, &
1.60958026_wp, 1.36195535_wp, 0.51720566_wp, 1.06401092_wp, 0.69449941_wp, &
0.12827764_wp, 1.18902187_wp, 0.09446756_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.21596273_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_hexadecane.fh 0000664 0000000 0000000 00000037750 14650006642 0020546 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_hexadecane = gbsa_parameter ( &
1.88000000_wp, &
86.18000000_wp, &
0.66000000_wp, &
1.43783499_wp, &
0.71816979_wp, &
2.65081288_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.20171747_wp, 0.07222973_wp, -5.41586842_wp, 2.28152747_wp, -1.91724237_wp, &
-3.09425354_wp, -0.32608704_wp, 0.57840897_wp, 0.33070364_wp, -0.10762288_wp, &
-3.97004256_wp, -2.52787132_wp, -2.26808398_wp, -1.17689515_wp, 1.07547161_wp, &
-2.89659476_wp, -1.87380848_wp, -0.97526788_wp, -1.25134080_wp, -1.35432140_wp, &
-2.07782586_wp, -0.54299058_wp, -2.27148791_wp, -3.63165149_wp, -3.20930299_wp, &
-3.13242409_wp, -9.47429597_wp, -1.97498290_wp, -2.09361632_wp, -3.47869851_wp, &
-1.86651683_wp, -1.87058380_wp, -2.72484958_wp, -1.81663346_wp, -2.17487172_wp, &
-1.03713128_wp, -1.36024110_wp, -1.87513338_wp, -7.04205120_wp, 1.15307064_wp, &
-1.21979317_wp, 0.89444316_wp, -5.80573982_wp, -0.85678943_wp, -3.14464540_wp, &
-2.90801142_wp, -2.40687505_wp, -2.16006099_wp, -2.34440852_wp, -1.48995077_wp, &
-2.56005012_wp, -2.40536841_wp, -2.29235357_wp, -1.00476658_wp, -1.28535723_wp, &
-1.04302285_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.37962795_wp, -1.87642945_wp, -0.31954606_wp, -4.09123341_wp, &
-2.02267854_wp, -2.73453274_wp, -2.19478082_wp, -2.28206873_wp, -1.06879331_wp, &
-2.10293703_wp, -2.30560071_wp, -1.76886638_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.68655962_wp, 1.70089765_wp, 1.07404654_wp, 0.30000000_wp, 0.67589079_wp, &
0.88135495_wp, 0.30000000_wp, 0.58681065_wp, 0.69585771_wp, 2.08395354_wp, &
0.84139998_wp, 0.47547402_wp, 0.96968233_wp, 0.92241460_wp, 0.77055432_wp, &
1.35099308_wp, 0.76083542_wp, 1.63074747_wp, 0.31332033_wp, 0.30000000_wp, &
0.98488457_wp, 1.04846793_wp, 1.08952997_wp, 1.01497312_wp, 1.09286854_wp, &
0.93956888_wp, 1.01523578_wp, 0.55583114_wp, 0.85098314_wp, 0.30000000_wp, &
0.78581903_wp, 0.74064254_wp, 1.19433854_wp, 0.90328243_wp, 1.00946342_wp, &
1.15165482_wp, 0.30000000_wp, 0.30000000_wp, 0.74131939_wp, 1.28002385_wp, &
0.90403832_wp, 0.42128188_wp, 1.09602808_wp, 1.02006292_wp, 1.01301436_wp, &
1.02145538_wp, 1.04892495_wp, 1.28984478_wp, 0.79312500_wp, 0.97218001_wp, &
1.06108368_wp, 0.94780057_wp, 1.56380058_wp, 0.59788318_wp, 1.12862865_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.79559188_wp, 0.89507986_wp, 0.91655171_wp, 1.00874631_wp, &
0.96259067_wp, 0.99025380_wp, 0.30000000_wp, 0.87306915_wp, 1.27952358_wp, &
0.96748907_wp, 0.96989107_wp, 0.75155994_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_hexadecane = gbsa_parameter ( &
1.88000000_wp, &
86.18000000_wp, &
0.66000000_wp, &
1.25929425_wp, &
0.55336799_wp, &
2.75911340_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.41302846_wp, -0.21817594_wp, -3.96046413_wp, -6.37565919_wp, -4.99798651_wp, &
-2.95180128_wp, -2.19535198_wp, -0.40316839_wp, -0.34216736_wp, -0.22904045_wp, &
-4.26653719_wp, 1.00000000_wp, -1.53810072_wp, 0.53791645_wp, 0.31766295_wp, &
-2.65615380_wp, -1.99636321_wp, -1.32626136_wp, -1.59213275_wp, -1.78922916_wp, &
-2.07782586_wp, -0.54299058_wp, -4.09491593_wp, -4.41626389_wp, 1.91772631_wp, &
-1.79675624_wp, 1.61743962_wp, 5.22134905_wp, -2.00488443_wp, -3.03173384_wp, &
-2.82289972_wp, -2.31282947_wp, -2.02622711_wp, -1.87815147_wp, -1.92922352_wp, &
-1.36093524_wp, -2.27884213_wp, -0.92152770_wp, -7.04205120_wp, -1.19076792_wp, &
-7.85868436_wp, -3.15491305_wp, 9.53387271_wp, -21.52049825_wp, -6.08919614_wp, &
1.90117938_wp, -2.65656836_wp, -2.47211880_wp, -2.92293593_wp, -1.82469302_wp, &
-2.20543823_wp, -2.44141473_wp, -2.39889034_wp, -0.80676041_wp, -1.86448685_wp, &
-1.20279093_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.22589358_wp, -2.87188948_wp, -6.51431543_wp, -2.24985596_wp, &
3.27655073_wp, -2.47752678_wp, -0.12881989_wp, -1.95683437_wp, -1.64658014_wp, &
-1.74249857_wp, -1.04977272_wp, -0.85285748_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.76479783_wp, 0.30000000_wp, 1.02085775_wp, 1.03333496_wp, 0.79334429_wp, &
0.86233306_wp, 0.45709544_wp, 1.07579741_wp, 0.93167572_wp, 0.30000000_wp, &
0.71084540_wp, 0.30000000_wp, 0.24092595_wp, 0.94156054_wp, 0.91957660_wp, &
0.01642782_wp, 0.80716343_wp, 1.53628596_wp, 0.31332033_wp, 0.30000000_wp, &
0.98257164_wp, 1.04846793_wp, 1.21052162_wp, 0.99524912_wp, 0.29999966_wp, &
1.64151921_wp, 0.84683933_wp, 0.81594847_wp, 1.07781728_wp, 0.87088973_wp, &
0.78581903_wp, 0.80872723_wp, 1.06348294_wp, 0.99342894_wp, 0.40057871_wp, &
1.18569987_wp, 0.30000000_wp, 0.22796659_wp, 0.74131939_wp, 0.70936521_wp, &
1.06800972_wp, 0.29999915_wp, 1.36418361_wp, 0.99019169_wp, 1.18248069_wp, &
1.20939488_wp, 1.10302503_wp, 0.90747278_wp, 0.82296070_wp, 0.67425979_wp, &
1.06945825_wp, 0.30000000_wp, 0.30000000_wp, 0.45726383_wp, 0.72521971_wp, &
0.68105377_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.01859677_wp, 0.83518238_wp, 0.80000000_wp, 0.78019293_wp, &
1.15244777_wp, 1.09219744_wp, 1.08008536_wp, 1.21039755_wp, 1.26722417_wp, &
0.80209242_wp, 0.99702187_wp, 0.89177874_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_hexadecane = gbsa_parameter ( &
1.88000000_wp, &
86.18000000_wp, &
0.66000000_wp, &
1.04447788_wp, &
0.55401747_wp, &
2.75414809_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.67526761_wp, -0.21817594_wp, -3.87953960_wp, -9.40268898_wp, -5.38224278_wp, &
-2.35673798_wp, -0.85140216_wp, -0.88522853_wp, 0.29172099_wp, -0.22904045_wp, &
-8.61465833_wp, -2.85786587_wp, -2.31273435_wp, 0.40128044_wp, -2.48167663_wp, &
-2.21542208_wp, -1.85005333_wp, -1.48164982_wp, -2.66289585_wp, -2.03492575_wp, &
-0.13138323_wp, -0.54299058_wp, -0.85126179_wp, -2.67480165_wp, -0.52064061_wp, &
-0.68971544_wp, -22.10751935_wp, -1.96753911_wp, -2.39770659_wp, -2.96245218_wp, &
-2.75950057_wp, -2.05817367_wp, -1.97343102_wp, -1.84848954_wp, -1.92922352_wp, &
-1.36093524_wp, -2.77391927_wp, -0.98365593_wp, -3.09099804_wp, -2.04029807_wp, &
-4.61335823_wp, -3.41837941_wp, 0.50830037_wp, 0.57567593_wp, -9.78027823_wp, &
0.26939894_wp, -2.48670623_wp, -2.90049264_wp, -2.83228775_wp, -1.65287928_wp, &
-2.17996693_wp, -2.15602291_wp, -2.39889034_wp, -0.80676041_wp, -2.36814135_wp, &
-1.51272184_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.73546724_wp, -1.22419173_wp, -7.17195850_wp, -1.35604857_wp, &
0.12478823_wp, -2.15371078_wp, -5.02406773_wp, -1.78063874_wp, 0.38189592_wp, &
-1.64263685_wp, -1.15238316_wp, -1.78335852_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 1.36576477_wp, 0.30000000_wp, 1.02085775_wp, 1.03333496_wp, 0.79334429_wp, &
0.74017356_wp, 0.30000000_wp, 1.13953482_wp, 0.55675120_wp, 0.30000000_wp, &
0.71084540_wp, 0.30000000_wp, 0.60324042_wp, 0.70648136_wp, 0.30000000_wp, &
0.83287637_wp, 1.44675757_wp, 1.53628596_wp, 0.31332033_wp, 0.30000000_wp, &
0.30000000_wp, 1.04846793_wp, 0.77744384_wp, 0.99524912_wp, 1.53872356_wp, &
1.58310428_wp, 1.32542588_wp, 1.79914775_wp, 1.07781728_wp, 0.87088973_wp, &
0.78581903_wp, 0.66003299_wp, 0.90766985_wp, 0.70417526_wp, 0.40057871_wp, &
1.18569987_wp, 0.30000000_wp, 1.11272614_wp, 0.30000000_wp, 1.40292630_wp, &
0.30000000_wp, 1.30569720_wp, 1.34596630_wp, 1.64907143_wp, 1.03784621_wp, &
1.73874994_wp, 1.10302503_wp, 0.88452046_wp, 0.75582824_wp, 0.67425979_wp, &
0.55179485_wp, 0.30000000_wp, 0.30000000_wp, 0.45726383_wp, 0.72521971_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.02755342_wp, 1.31495591_wp, 0.80000000_wp, 1.32240519_wp, &
1.30490311_wp, 0.90112282_wp, 1.75422436_wp, 1.21039755_wp, 0.30000000_wp, &
0.80209242_wp, 1.18929555_wp, 0.66367109_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_hexane.fh 0000664 0000000 0000000 00000037734 14650006642 0017733 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_hexane = gbsa_parameter ( &
1.88000000_wp, &
86.18000000_wp, &
0.66000000_wp, &
1.47754073_wp, &
0.50480119_wp, &
2.61011857_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.38427142_wp, -0.26063956_wp, -4.60832539_wp, -11.08674532_wp, -3.06289298_wp, &
-2.80454461_wp, -0.50210956_wp, 0.04617546_wp, -0.02485811_wp, -0.27294453_wp, &
-2.59527832_wp, -2.51460742_wp, -2.44916425_wp, -0.22141943_wp, -3.14523737_wp, &
-2.69087373_wp, -2.07556901_wp, -1.38913592_wp, -2.68007762_wp, -2.13625487_wp, &
-2.73428054_wp, -0.54299058_wp, -2.40224908_wp, -2.08328467_wp, -2.94730922_wp, &
-3.41509866_wp, -4.94976578_wp, -3.06035068_wp, -2.79544616_wp, -2.05823991_wp, &
-2.85844419_wp, -2.84733296_wp, -2.60969630_wp, -2.04508370_wp, -2.52504043_wp, &
-1.42651836_wp, -1.95489820_wp, -1.38158995_wp, -6.07777575_wp, 0.65013001_wp, &
-0.72150329_wp, 1.68082457_wp, -2.87235646_wp, -1.80769758_wp, -2.94721167_wp, &
-2.82495027_wp, -2.52109330_wp, -1.76805588_wp, -2.96741495_wp, -2.10142601_wp, &
-2.36876809_wp, -2.36492275_wp, -2.85213861_wp, -0.85582648_wp, -1.95096808_wp, &
-1.51647289_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.31611577_wp, -1.59916125_wp, -0.21115875_wp, -0.09448122_wp, &
-1.24271278_wp, -2.12633097_wp, -1.28405615_wp, -1.63454643_wp, -0.97074454_wp, &
-1.64126442_wp, -1.12530416_wp, -1.14759135_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.67218560_wp, 0.30000000_wp, 1.08651563_wp, 1.00007660_wp, 0.76098862_wp, &
0.66191739_wp, 0.30000000_wp, 0.53181745_wp, 0.67103249_wp, 0.30000000_wp, &
0.30000000_wp, 0.30000000_wp, 0.99158935_wp, 0.91371580_wp, 0.81609674_wp, &
0.69429549_wp, 0.96456166_wp, 1.46527954_wp, 0.63694704_wp, 0.30000000_wp, &
0.97622525_wp, 1.04846793_wp, 1.21623580_wp, 1.18288190_wp, 1.37911326_wp, &
1.24217206_wp, 0.98461382_wp, 0.99862074_wp, 0.97837389_wp, 0.87088973_wp, &
0.86896213_wp, 0.87290580_wp, 0.90859396_wp, 0.84837047_wp, 1.01643867_wp, &
0.68041385_wp, 0.30000000_wp, 0.30000000_wp, 1.26743547_wp, 1.45103987_wp, &
1.08427955_wp, 0.88340663_wp, 1.32374800_wp, 1.22074906_wp, 1.12673313_wp, &
1.13809701_wp, 1.06721145_wp, 0.71062419_wp, 0.85118898_wp, 0.87311692_wp, &
1.07544977_wp, 0.67162027_wp, 1.54076610_wp, 0.55631027_wp, 1.13162891_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.35626685_wp, 1.04556769_wp, 0.82928116_wp, 0.94197135_wp, &
1.19400013_wp, 1.13318136_wp, 0.00777765_wp, 1.16818580_wp, 1.26003366_wp, &
0.75910414_wp, 0.97355145_wp, 0.65623563_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_hexane = gbsa_parameter ( &
1.88000000_wp, &
86.18000000_wp, &
0.66000000_wp, &
1.10400200_wp, &
0.66693748_wp, &
3.02042638_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.52102878_wp, -0.29572459_wp, -3.22402901_wp, -9.28422093_wp, -2.92454598_wp, &
-2.61044437_wp, -1.70103214_wp, -0.07571818_wp, -0.47601293_wp, -0.32203048_wp, &
-2.30502588_wp, -2.23312483_wp, -1.90407247_wp, 0.33954238_wp, -2.84448645_wp, &
-2.16182302_wp, -2.01000174_wp, -1.31362932_wp, -2.14681519_wp, -1.80787190_wp, &
-2.19811180_wp, -1.03665074_wp, -4.22573924_wp, -0.66982776_wp, -1.66668578_wp, &
-0.33282416_wp, -17.21674320_wp, -2.08441258_wp, -2.14713230_wp, -2.71400958_wp, &
-2.74969834_wp, -2.44700645_wp, -2.49105589_wp, -1.67123353_wp, -1.92922352_wp, &
-1.36228565_wp, -2.11661217_wp, -1.85566928_wp, -5.47115227_wp, 3.31129723_wp, &
-3.22204731_wp, 0.37929174_wp, -0.12147642_wp, -2.95656362_wp, -3.76018325_wp, &
-2.22228769_wp, -2.51103975_wp, -2.20345787_wp, -2.53170602_wp, -1.97666701_wp, &
-2.12863417_wp, -2.33015886_wp, -2.39889034_wp, -0.96420681_wp, -1.77296385_wp, &
-1.96187875_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 1.40973485_wp, -1.99055268_wp, 1.95951904_wp, -3.91096637_wp, &
-1.69948253_wp, -3.33070532_wp, -1.22150714_wp, -1.41239427_wp, -1.83343380_wp, &
-1.40576541_wp, -1.12763505_wp, -0.75529202_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.69492201_wp, 1.46480233_wp, 0.88266262_wp, 0.00144423_wp, 0.90227475_wp, &
0.33834686_wp, 0.38580647_wp, 1.07977497_wp, 1.01946398_wp, 0.30000000_wp, &
0.57684540_wp, 0.90781813_wp, 0.67929421_wp, 0.97897332_wp, 0.30000000_wp, &
0.50372430_wp, 1.03507144_wp, 1.57196365_wp, 0.90206611_wp, 0.30000000_wp, &
1.05593017_wp, 1.06821630_wp, 1.30187340_wp, 0.83631747_wp, 1.17331634_wp, &
1.69903371_wp, 1.49816563_wp, 1.24499888_wp, 1.12692444_wp, 1.16527439_wp, &
0.96261700_wp, 0.82563991_wp, 1.10554100_wp, 0.95042189_wp, 0.40057871_wp, &
1.40007868_wp, 0.44393709_wp, 0.30000000_wp, 1.23057528_wp, 0.30000000_wp, &
1.10084797_wp, 0.30000000_wp, 0.73933959_wp, 1.57771337_wp, 1.40159338_wp, &
1.66948169_wp, 1.29849830_wp, 0.96226919_wp, 0.82060847_wp, 0.71404762_wp, &
0.62364944_wp, 0.77643816_wp, 0.30000000_wp, 1.06922363_wp, 0.78943942_wp, &
0.77872529_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.52041452_wp, 1.03401131_wp, 0.60970029_wp, 1.29146134_wp, &
1.10022245_wp, 1.07142522_wp, 1.24845561_wp, 1.16615750_wp, 1.31600834_wp, &
0.81779417_wp, 1.03567786_wp, 1.13705067_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_hexane = gbsa_parameter ( &
1.88000000_wp, &
86.18000000_wp, &
0.66000000_wp, &
1.47754073_wp, &
0.50480119_wp, &
2.61011857_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.38427142_wp, -0.26063956_wp, -4.60832539_wp, -11.08674532_wp, -3.06289298_wp, &
-2.80454461_wp, -0.50210956_wp, 0.04617546_wp, -0.02485811_wp, -0.27294453_wp, &
-2.59527832_wp, -2.51460742_wp, -2.44916425_wp, -0.22141943_wp, -3.14523737_wp, &
-2.69087373_wp, -2.07556901_wp, -1.38913592_wp, -2.68007762_wp, -2.13625487_wp, &
-2.73428054_wp, -0.54299058_wp, -2.40224908_wp, -2.08328467_wp, -2.94730922_wp, &
-3.41509866_wp, -4.94976578_wp, -3.06035068_wp, -2.79544616_wp, -2.05823991_wp, &
-2.85844419_wp, -2.84733296_wp, -2.60969630_wp, -2.04508370_wp, -2.52504043_wp, &
-1.42651836_wp, -1.95489820_wp, -1.38158995_wp, -6.07777575_wp, 0.65013001_wp, &
-0.72150329_wp, 1.68082457_wp, -2.87235646_wp, -1.80769758_wp, -2.94721167_wp, &
-2.82495027_wp, -2.52109330_wp, -1.76805588_wp, -2.96741495_wp, -2.10142601_wp, &
-2.36876809_wp, -2.36492275_wp, -2.85213861_wp, -0.85582648_wp, -1.95096808_wp, &
-1.51647289_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.31611577_wp, -1.59916125_wp, -0.21115875_wp, -0.09448122_wp, &
-1.24271278_wp, -2.12633097_wp, -1.28405615_wp, -1.63454643_wp, -0.97074454_wp, &
-1.64126442_wp, -1.12530416_wp, -1.14759135_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.67218560_wp, 0.30000000_wp, 1.08651563_wp, 1.00007660_wp, 0.76098862_wp, &
0.66191739_wp, 0.30000000_wp, 0.53181745_wp, 0.67103249_wp, 0.30000000_wp, &
0.30000000_wp, 0.30000000_wp, 0.99158935_wp, 0.91371580_wp, 0.81609674_wp, &
0.69429549_wp, 0.96456166_wp, 1.46527954_wp, 0.63694704_wp, 0.30000000_wp, &
0.97622525_wp, 1.04846793_wp, 1.21623580_wp, 1.18288190_wp, 1.37911326_wp, &
1.24217206_wp, 0.98461382_wp, 0.99862074_wp, 0.97837389_wp, 0.87088973_wp, &
0.86896213_wp, 0.87290580_wp, 0.90859396_wp, 0.84837047_wp, 1.01643867_wp, &
0.68041385_wp, 0.30000000_wp, 0.30000000_wp, 1.26743547_wp, 1.45103987_wp, &
1.08427955_wp, 0.88340663_wp, 1.32374800_wp, 1.22074906_wp, 1.12673313_wp, &
1.13809701_wp, 1.06721145_wp, 0.71062419_wp, 0.85118898_wp, 0.87311692_wp, &
1.07544977_wp, 0.67162027_wp, 1.54076610_wp, 0.55631027_wp, 1.13162891_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.35626685_wp, 1.04556769_wp, 0.82928116_wp, 0.94197135_wp, &
1.19400013_wp, 1.13318136_wp, 0.00777765_wp, 1.16818580_wp, 1.26003366_wp, &
0.75910414_wp, 0.97355145_wp, 0.65623563_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_methanol.fh 0000664 0000000 0000000 00000037742 14650006642 0020271 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_methanol = gbsa_parameter ( &
32.70000000_wp, &
32.04000000_wp, &
0.79200000_wp, &
1.72657268_wp, &
0.92836169_wp, &
2.74559954_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.95008061_wp, -0.09267148_wp, -7.94358074_wp, -18.09927003_wp, -2.46678214_wp, &
-2.54023909_wp, 0.57997190_wp, 1.71429755_wp, 0.34111432_wp, -0.10961343_wp, &
-7.72113272_wp, -1.03737823_wp, -2.13515438_wp, -0.08154529_wp, -2.25243175_wp, &
-2.12834931_wp, -1.55216311_wp, -1.03868407_wp, -1.58921466_wp, -9.30016637_wp, &
-4.84076119_wp, -2.36553124_wp, -3.08221936_wp, -1.20947719_wp, -4.82564748_wp, &
-4.66604405_wp, 9.20917778_wp, -3.08744153_wp, -2.44249062_wp, -0.33760131_wp, &
-3.03678115_wp, -2.17139391_wp, -2.24233499_wp, -1.81850864_wp, -2.14790320_wp, &
-0.79626674_wp, -4.62202053_wp, -11.11190862_wp, -5.41500463_wp, 0.07202413_wp, &
-2.86179219_wp, 0.92768096_wp, -3.38712370_wp, -2.15862476_wp, -0.83543039_wp, &
-2.23622799_wp, -1.90048977_wp, -0.61172903_wp, -3.97663055_wp, -1.90645570_wp, &
-1.94634953_wp, -2.03008235_wp, -2.55701735_wp, -0.95590770_wp, -2.08423635_wp, &
-5.92742530_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.64590086_wp, -3.60563245_wp, 2.74206886_wp, -0.63145557_wp, &
-1.34520518_wp, -1.28437205_wp, -0.81254030_wp, -1.22148705_wp, -1.13363276_wp, &
-1.96380402_wp, -0.98115579_wp, -0.38697505_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.71716236_wp, 1.37757562_wp, 0.93006925_wp, 0.67518475_wp, 0.86104781_wp, &
0.69843430_wp, 0.27892079_wp, 0.12429428_wp, 0.51401622_wp, 0.30000000_wp, &
0.30000000_wp, 0.30000000_wp, 1.00408417_wp, 0.79349318_wp, 0.73055280_wp, &
0.59792310_wp, 0.79841429_wp, 0.49511747_wp, 0.30000000_wp, 1.11649910_wp, &
0.30000000_wp, 0.90503047_wp, 1.18110731_wp, 1.04293618_wp, 1.14011599_wp, &
1.09410384_wp, 0.86148983_wp, 1.03718141_wp, 1.02114160_wp, 0.30000000_wp, &
0.90396163_wp, 0.80805946_wp, 0.85630653_wp, 1.02533569_wp, 0.94004032_wp, &
0.30000000_wp, 0.30000000_wp, 1.03513838_wp, 0.30000000_wp, 1.17621776_wp, &
1.04246088_wp, 0.81705653_wp, 1.17962578_wp, 1.04665449_wp, 1.01071054_wp, &
0.91547116_wp, 0.90792530_wp, 0.50430140_wp, 0.89346164_wp, 0.77168097_wp, &
1.05612408_wp, 0.88711023_wp, 1.23618267_wp, 1.01309528_wp, 0.97627245_wp, &
0.52460108_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.11541788_wp, 1.04215747_wp, 0.84670300_wp, 0.74414330_wp, &
1.02173465_wp, 0.98649037_wp, 0.66559832_wp, 1.08350437_wp, 1.26105054_wp, &
0.61374298_wp, 0.85663736_wp, 0.36802245_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 4.21536747_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.25092503_wp, 2.74505650_wp, 1.46355149_wp, -0.30801015_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 3.21382828_wp, &
2.85215478_wp, 2.08586405_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.10235367_wp, 2.03381074_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.40567409_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_methanol = gbsa_parameter ( &
32.70000000_wp, &
32.04000000_wp, &
0.79200000_wp, &
1.66003361_wp, &
1.08058328_wp, &
2.47547456_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.15883854_wp, -0.08489676_wp, -6.19150578_wp, -17.34818113_wp, -2.16450184_wp, &
-2.41928336_wp, -2.09250314_wp, 0.08009064_wp, 0.09231303_wp, -0.10961343_wp, &
-3.71341215_wp, -1.03737823_wp, -1.84333839_wp, 0.32165527_wp, -1.39958467_wp, &
-1.59264452_wp, -1.16811046_wp, -0.99317649_wp, -3.31190335_wp, -9.07931008_wp, &
-7.46009442_wp, -4.68809582_wp, -5.33324810_wp, -3.46147417_wp, -3.32816812_wp, &
1.08658130_wp, 10.00917344_wp, -1.63541603_wp, -1.74976633_wp, -3.33574171_wp, &
-2.76257240_wp, -1.59630173_wp, -1.89641826_wp, -1.19638371_wp, -1.55115682_wp, &
-1.07629721_wp, -3.36260929_wp, -10.88581368_wp, -8.37014419_wp, -0.08461763_wp, &
-5.86923780_wp, -3.61454676_wp, -3.53195625_wp, -3.66518218_wp, -1.71753606_wp, &
-1.44785600_wp, -1.98342667_wp, -1.95568677_wp, -3.29192109_wp, -1.57241888_wp, &
-1.77179655_wp, -1.86523585_wp, -2.15610833_wp, -0.98122873_wp, -3.57188311_wp, &
-6.16452009_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.04478959_wp, -4.54489752_wp, 4.29067433_wp, -4.17192593_wp, &
-1.64076232_wp, -2.32526625_wp, -0.75662991_wp, -0.90385530_wp, -2.51763493_wp, &
-1.85485514_wp, -0.96014493_wp, -0.59400861_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.66734117_wp, 0.30000000_wp, 0.30000000_wp, 0.92476227_wp, &
0.57913331_wp, 0.70841493_wp, 0.30000000_wp, 0.62979186_wp, 0.30000000_wp, &
0.30000000_wp, 0.30000000_wp, 0.68727478_wp, 0.89791803_wp, 0.30000000_wp, &
0.30000000_wp, 0.72026418_wp, 0.11959209_wp, 0.30000000_wp, 1.05739468_wp, &
1.08100951_wp, 1.05255421_wp, 1.19979404_wp, 1.10394208_wp, 1.22055934_wp, &
1.33316412_wp, 1.06388051_wp, 1.13562868_wp, 1.00404400_wp, 0.42063679_wp, &
1.13731433_wp, 0.71952599_wp, 1.12219028_wp, 1.02909322_wp, 0.56687555_wp, &
1.12191212_wp, 0.30000000_wp, 1.00073021_wp, 1.40232008_wp, 0.62162675_wp, &
1.25434250_wp, 0.30000000_wp, 1.32082304_wp, 1.44966217_wp, 1.27758140_wp, &
1.21596161_wp, 1.28170823_wp, 0.60166517_wp, 0.83425879_wp, 0.30000000_wp, &
0.49853397_wp, 0.70709437_wp, 1.45485315_wp, 1.01437992_wp, 0.30000000_wp, &
0.82700576_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.29507907_wp, 1.13915241_wp, 0.74105172_wp, 1.31265698_wp, &
1.29112147_wp, 1.43939838_wp, 1.16855363_wp, 1.07319850_wp, 0.37117984_wp, &
0.50699717_wp, 0.74663209_wp, 0.38505688_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.45931259_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00797465_wp, 2.98775273_wp, 1.51391089_wp, 0.51134039_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.79185940_wp, &
0.09199181_wp, 1.93913555_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.10235367_wp, 2.03381074_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.40567409_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_methanol = gbsa_parameter ( &
32.70000000_wp, &
32.04000000_wp, &
0.79200000_wp, &
1.73392084_wp, &
0.87271356_wp, &
2.14415416_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.22731725_wp, -0.05840543_wp, -7.57808005_wp, -20.49635710_wp, -2.43635602_wp, &
-2.31465954_wp, -2.41373084_wp, -0.23687497_wp, 0.18028336_wp, -0.13111834_wp, &
-5.43098318_wp, -2.95494511_wp, -2.19670548_wp, 0.09772361_wp, -1.78650051_wp, &
-1.94820042_wp, -1.43799213_wp, -1.59421888_wp, -1.59957634_wp, -9.98284350_wp, &
-8.63181710_wp, -8.41442400_wp, -5.61938193_wp, -4.84614336_wp, -1.54887725_wp, &
-3.11117655_wp, 16.33304443_wp, -2.62977385_wp, -2.33654934_wp, -3.93508000_wp, &
-2.91886591_wp, -1.84305697_wp, -2.07505554_wp, -1.62140702_wp, -2.03633810_wp, &
-1.25557005_wp, -4.13589213_wp, -12.98871681_wp, -8.34445653_wp, -2.72518965_wp, &
-5.29323223_wp, -3.88773494_wp, 10.29807513_wp, -0.18415248_wp, 0.02202089_wp, &
-2.44646103_wp, -1.97876669_wp, -3.22901909_wp, -3.81630951_wp, -1.59081214_wp, &
-1.99674798_wp, -1.93416946_wp, -2.33169530_wp, -0.93216626_wp, -4.73045545_wp, &
-9.01351891_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -5.47414131_wp, -4.71227817_wp, 5.31514701_wp, -1.44668437_wp, &
0.78799283_wp, -0.92183349_wp, -0.89248862_wp, -0.86254506_wp, -1.79683542_wp, &
-2.60344037_wp, -1.39843902_wp, -2.18293845_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.67405487_wp, 1.63951416_wp, 0.30000000_wp, 0.30000000_wp, 1.12641169_wp, &
0.77394235_wp, 0.30000000_wp, 0.30000000_wp, 0.50623044_wp, 1.37846363_wp, &
0.30000000_wp, 1.10256536_wp, 1.04564950_wp, 0.57029573_wp, 0.67003236_wp, &
0.30000000_wp, 0.80000000_wp, 0.30000000_wp, 0.15130042_wp, 0.53017972_wp, &
1.12327610_wp, 1.02991228_wp, 1.22431981_wp, 1.43945290_wp, 1.63822260_wp, &
1.65177181_wp, 1.67152823_wp, 1.24411539_wp, 0.30000000_wp, 0.30000000_wp, &
0.77956292_wp, 0.70148954_wp, 0.72480617_wp, 1.00956254_wp, 1.69126028_wp, &
0.55891299_wp, 0.30000000_wp, 0.30000000_wp, 1.00653144_wp, 0.96100944_wp, &
1.37980820_wp, 1.53570924_wp, 1.68599042_wp, 1.75002342_wp, 1.35770722_wp, &
0.50214036_wp, 1.34206552_wp, 0.30000000_wp, 0.84645239_wp, 0.07451237_wp, &
1.07338707_wp, 0.82397710_wp, 1.10240701_wp, 1.20780830_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.36104945_wp, 1.34236764_wp, 1.43226124_wp, 1.25763922_wp, &
1.52355750_wp, 1.22721070_wp, 0.55013087_wp, 0.40106340_wp, 0.98653094_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.53270256_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
3.36555835_wp, 2.99089414_wp, 1.12505368_wp, 0.06233159_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.87837522_wp, &
0.64906135_wp, 0.11908382_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.10235367_wp, 2.03381074_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.40567409_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_nitromethane.fh 0000664 0000000 0000000 00000037756 14650006642 0021164 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_nitromethane = gbsa_parameter ( &
36.56200000_wp, &
61.04000000_wp, &
1.14000000_wp, &
1.68063993_wp, &
0.96551446_wp, &
3.48634027_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.28581082_wp, 0.27108435_wp, -6.61551802_wp, -14.84822065_wp, -2.38692511_wp, &
-2.19639762_wp, -1.84351387_wp, 0.19927001_wp, -0.02527662_wp, 0.24064970_wp, &
-3.65688690_wp, -2.60210924_wp, -1.90621058_wp, 0.88472679_wp, -1.97914574_wp, &
-2.29535044_wp, -1.55054664_wp, -0.68037090_wp, -3.56950766_wp, -8.84845671_wp, &
-3.21242227_wp, -3.08630839_wp, -3.79760794_wp, -3.18617980_wp, -4.35823038_wp, &
-5.02422817_wp, 5.14633494_wp, -3.05353973_wp, -2.37496444_wp, -3.17250562_wp, &
-3.59054893_wp, -0.64794863_wp, -2.14501249_wp, -1.79848609_wp, -2.09774097_wp, &
-0.68631636_wp, -3.08590419_wp, -11.16347212_wp, -10.98193865_wp, 0.23496116_wp, &
-3.82322676_wp, 0.96010163_wp, -2.13930728_wp, -2.68830054_wp, -1.71485621_wp, &
-2.44904696_wp, -1.80830088_wp, -2.29250487_wp, -3.67115032_wp, -1.11736877_wp, &
-1.72476061_wp, -1.88093739_wp, -2.57822821_wp, -0.56405451_wp, -2.78363745_wp, &
-5.70898819_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.26736237_wp, -3.56687418_wp, 0.27228641_wp, 1.30358931_wp, &
-1.59456691_wp, -1.85840856_wp, -0.61354549_wp, -1.11249055_wp, -1.36455002_wp, &
-1.85504241_wp, 0.00000000_wp, -0.64688386_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.56314183_wp, 1.77947592_wp, 0.70369726_wp, 0.86609748_wp, 0.86131597_wp, &
0.80642051_wp, 0.30093513_wp, 0.30000000_wp, 0.61359154_wp, 0.98572302_wp, &
0.14942839_wp, 0.30000000_wp, 0.97919858_wp, 0.87362989_wp, 0.91131170_wp, &
0.77181330_wp, 0.82337587_wp, 0.93620986_wp, 0.58580079_wp, 0.30000000_wp, &
1.00975751_wp, 1.07599883_wp, 1.14627948_wp, 1.33667414_wp, 1.25769739_wp, &
1.13309047_wp, 1.02862971_wp, 0.92066477_wp, 0.91717073_wp, 0.30000000_wp, &
0.98374894_wp, 0.70465720_wp, 1.13585625_wp, 0.97397057_wp, 1.02348061_wp, &
0.04789155_wp, 0.30000000_wp, 0.30000000_wp, 1.05596541_wp, 1.09701837_wp, &
1.05950506_wp, 1.17672462_wp, 1.23292016_wp, 1.15583088_wp, 1.09655217_wp, &
0.85887114_wp, 0.83406987_wp, 0.64062112_wp, 0.92915123_wp, 0.79897869_wp, &
1.04850908_wp, 0.81666190_wp, 1.48442378_wp, 0.87375456_wp, 0.99980196_wp, &
0.44285750_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.01310412_wp, 1.06641216_wp, 1.10106032_wp, 0.82315984_wp, &
1.15280574_wp, 1.08341730_wp, 0.60121945_wp, 1.01361080_wp, 0.98952943_wp, &
0.75214247_wp, 1.00000000_wp, 0.50198596_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 1.96943822_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_nitromethane = gbsa_parameter ( &
36.56200000_wp, &
61.04000000_wp, &
1.14000000_wp, &
1.70029849_wp, &
0.25325726_wp, &
1.51623302_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.47954453_wp, 0.38952459_wp, -7.99375919_wp, -22.35078225_wp, -2.91089286_wp, &
-2.31214284_wp, -5.72766908_wp, -2.56534156_wp, 0.12654011_wp, 0.29685423_wp, &
-5.15086929_wp, -3.73148185_wp, -1.47444504_wp, 0.88472679_wp, -1.70086816_wp, &
-2.23408026_wp, -1.39779591_wp, -0.41947036_wp, -3.67595497_wp, -8.84845671_wp, &
-3.21242227_wp, -3.08630839_wp, -4.49485623_wp, 2.50659683_wp, -4.35823038_wp, &
3.72961758_wp, 16.30898893_wp, -0.61183584_wp, -1.48392732_wp, -4.82145932_wp, &
-3.59054893_wp, -0.64794863_wp, -2.48330309_wp, -1.48852864_wp, -1.54446697_wp, &
-0.49591744_wp, -3.48949272_wp, -11.16347212_wp, -10.98193865_wp, -2.30355673_wp, &
-5.52666306_wp, -2.94829269_wp, 2.64731036_wp, -1.63047574_wp, 0.40465711_wp, &
-2.80106522_wp, -2.23096480_wp, -3.04992350_wp, -3.84516620_wp, -0.78652326_wp, &
-2.15576776_wp, -2.16532595_wp, -2.12183124_wp, -0.41186652_wp, -5.46492125_wp, &
-8.41525424_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.89300514_wp, -4.77046824_wp, 5.60494472_wp, 5.59934195_wp, &
-0.06192965_wp, -0.19372051_wp, -0.76424414_wp, -0.62242422_wp, -2.71154153_wp, &
-2.37541089_wp, -0.40184269_wp, -1.44436799_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.54545897_wp, 1.81867594_wp, 0.30000000_wp, 0.80637882_wp, 0.90063169_wp, &
0.84417780_wp, 0.55326728_wp, 0.30000000_wp, 0.62755862_wp, 0.30090875_wp, &
0.30000000_wp, 1.08266495_wp, 1.01141441_wp, 0.87362989_wp, 0.78614730_wp, &
0.94616088_wp, 0.76931269_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
1.00975751_wp, 1.07599883_wp, 1.09618488_wp, 1.39578535_wp, 1.25769739_wp, &
1.47835942_wp, 0.14034901_wp, 0.05435367_wp, 0.30000000_wp, 0.61039860_wp, &
0.98374894_wp, 0.70465720_wp, 0.91158866_wp, 0.90365475_wp, 0.86995096_wp, &
0.85040817_wp, 0.30000000_wp, 0.30000000_wp, 1.05596541_wp, 0.30000000_wp, &
1.14094110_wp, 1.30074682_wp, 1.30773420_wp, 1.28373226_wp, 1.32597636_wp, &
0.88357203_wp, 0.77252305_wp, 1.08651889_wp, 0.85311149_wp, 0.30000000_wp, &
0.93716128_wp, 0.95357198_wp, 1.01760593_wp, 0.91464786_wp, 0.99892740_wp, &
0.95075944_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.23243197_wp, 1.00100748_wp, 0.30014100_wp, 0.97529690_wp, &
1.30486029_wp, 1.22948266_wp, 0.97712571_wp, 0.85423836_wp, 0.30000000_wp, &
0.70334223_wp, 0.99403972_wp, 0.59349783_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 2.65877401_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_nitromethane = gbsa_parameter ( &
36.56200000_wp, &
61.04000000_wp, &
1.14000000_wp, &
1.82279964_wp, &
-0.42807929_wp, &
-0.07234167_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.63718231_wp, 2.85181314_wp, -9.12060887_wp, -28.12097075_wp, -3.47696016_wp, &
-2.10876305_wp, -13.12589743_wp, -7.52553613_wp, 2.69767202_wp, 1.58982082_wp, &
-8.37396785_wp, -5.49417594_wp, -1.72489194_wp, 1.52353059_wp, -1.20815279_wp, &
-3.23552337_wp, -1.26047593_wp, -1.82522712_wp, -7.43017442_wp, -11.21711890_wp, &
4.64552202_wp, -3.43943145_wp, -1.43770697_wp, 12.05630461_wp, 21.84284748_wp, &
9.74847932_wp, 11.76459600_wp, -1.08156587_wp, -1.82124655_wp, -7.84728019_wp, &
-3.92718926_wp, -0.76146570_wp, -2.72000425_wp, -2.38739485_wp, -3.31616057_wp, &
-0.88373821_wp, -5.94765279_wp, -17.56443903_wp, -5.54410150_wp, -2.94759916_wp, &
-1.34232207_wp, 9.01995797_wp, 7.61688633_wp, 5.47239300_wp, 2.42254649_wp, &
-5.59761474_wp, -2.46541688_wp, -1.94213339_wp, -3.42236733_wp, -0.77041606_wp, &
-2.49985596_wp, -1.76837899_wp, -4.15848233_wp, -0.87258039_wp, -6.11276352_wp, &
-10.36171225_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -5.44892264_wp, -2.31044768_wp, 7.22961496_wp, 1.23034981_wp, &
7.19252836_wp, 6.59175974_wp, -1.75548599_wp, 0.33870048_wp, -4.32549176_wp, &
-2.25930373_wp, -0.26088792_wp, -3.17355966_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.68927726_wp, 0.30000000_wp, 0.30000000_wp, 1.02371922_wp, &
0.94287892_wp, 0.70727003_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.30000000_wp, 0.30000000_wp, 1.02717204_wp, 0.30000000_wp, 0.60720564_wp, &
0.98356507_wp, 1.31749012_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.27624583_wp, 1.20685722_wp, 1.07394090_wp, 1.26397134_wp, 1.48419898_wp, &
1.42298549_wp, 1.33943591_wp, 1.55130470_wp, 0.06290991_wp, 0.30000000_wp, &
0.83906370_wp, 0.74911661_wp, 0.89160038_wp, 1.01918506_wp, 1.69744578_wp, &
0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
1.37125429_wp, 1.00758499_wp, 1.32047549_wp, 1.47463318_wp, 1.18474857_wp, &
1.18822637_wp, 0.30000000_wp, 0.30000000_wp, 0.89241273_wp, 0.30000000_wp, &
0.93355921_wp, 1.07604937_wp, 1.33449120_wp, 1.12631959_wp, 0.30000000_wp, &
0.09496175_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.01129663_wp, 1.28372831_wp, 0.94575836_wp, 1.15361627_wp, &
1.40675124_wp, 1.12140589_wp, 1.15513974_wp, 0.80000000_wp, 0.80000000_wp, &
1.18868981_wp, 1.11360128_wp, 0.80000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.79221818_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_octanol.fh 0000664 0000000 0000000 00000037740 14650006642 0020117 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_octanol = gbsa_parameter ( &
9.86290000_wp, &
130.23000000_wp, &
0.83000000_wp, &
1.89008181_wp, &
1.04087323_wp, &
1.99736739_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.76853673_wp, 0.17843023_wp, -6.79441620_wp, -6.36099145_wp, -1.63081263_wp, &
-2.09319645_wp, 0.11222878_wp, 1.30353518_wp, 0.64944562_wp, -0.06744570_wp, &
-6.16107940_wp, -2.47166764_wp, -2.48699350_wp, -0.93234775_wp, 0.36731388_wp, &
-1.42444050_wp, -1.43883538_wp, -0.90941814_wp, -1.70120207_wp, 0.00000000_wp, &
0.00000000_wp, -1.54577684_wp, -3.50408387_wp, -4.72018561_wp, -4.90742118_wp, &
-4.42099347_wp, 3.33354735_wp, -2.30249689_wp, -1.90106774_wp, -3.34574069_wp, &
0.00000000_wp, -1.43383338_wp, -2.36444066_wp, -1.78416856_wp, -1.77808816_wp, &
-0.99564089_wp, -1.86159529_wp, 0.00000000_wp, 0.00000000_wp, 0.85244845_wp, &
-3.73024913_wp, 0.47370492_wp, -8.40452302_wp, -0.55231458_wp, -0.73982207_wp, &
-2.56584518_wp, -1.93830122_wp, -1.98507803_wp, -2.93897358_wp, -1.51899863_wp, &
-2.25663985_wp, -2.20850448_wp, -1.92000223_wp, -1.11707828_wp, -1.16891329_wp, &
-2.35049175_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.57767604_wp, -4.31330078_wp, 0.62615256_wp, -8.40927076_wp, &
-2.20615369_wp, -3.66522222_wp, -2.35062195_wp, -1.91739734_wp, -1.43745587_wp, &
-2.11010728_wp, -2.33666432_wp, -1.49450431_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.77678001_wp, 0.30000000_wp, 0.94954093_wp, 0.97236992_wp, 0.93124768_wp, &
0.69445593_wp, 0.41637344_wp, 0.88868347_wp, 0.30000000_wp, 0.82238863_wp, &
0.30000000_wp, 0.96899584_wp, 0.96594152_wp, 0.73861715_wp, 0.96435493_wp, &
1.01922948_wp, 0.30000000_wp, 1.23035547_wp, 0.30000000_wp, 0.00000000_wp, &
0.00000000_wp, 1.05324997_wp, 1.16205614_wp, 0.82502715_wp, 1.17511531_wp, &
0.95048585_wp, 0.76061106_wp, 1.26873947_wp, 0.97517448_wp, 0.63369715_wp, &
1.12420265_wp, 0.59746805_wp, 1.13830302_wp, 1.19537265_wp, 1.10831740_wp, &
0.07254205_wp, 0.30000000_wp, 0.00000000_wp, 0.00000000_wp, 1.28995233_wp, &
0.93699601_wp, 1.41639763_wp, 0.96712506_wp, 1.00632838_wp, 0.91343337_wp, &
1.07757185_wp, 1.19217686_wp, 0.98416838_wp, 0.91034327_wp, 0.87203717_wp, &
1.05671115_wp, 0.84906565_wp, 1.51523606_wp, 1.03635561_wp, 0.83857057_wp, &
0.30000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 0.99887710_wp, 0.93845409_wp, 1.31335414_wp, 0.95227760_wp, &
0.85955997_wp, 1.32138445_wp, 0.84490295_wp, 0.94359702_wp, 1.25128233_wp, &
0.69793733_wp, 0.86483994_wp, 1.09113408_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 4.85005457_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
5.06202445_wp, 0.73683626_wp, 0.55129888_wp, 1.93374434_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 8.12027630_wp, &
3.88523989_wp, 2.17569656_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 1.97758816_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 1.55106831_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_octanol = gbsa_parameter ( &
9.86290000_wp, &
130.23000000_wp, &
0.83000000_wp, &
1.58983390_wp, &
0.49307217_wp, &
1.46816470_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.99751210_wp, 0.14126340_wp, -5.94420799_wp, -6.21933351_wp, -1.91336597_wp, &
-2.58084256_wp, -1.39167721_wp, 1.18610532_wp, 0.66287534_wp, -0.02352835_wp, &
-11.28613227_wp, -3.04087824_wp, -2.34203056_wp, -0.13651019_wp, 3.00190223_wp, &
-1.14716215_wp, -1.38358737_wp, -0.75196120_wp, -0.82964249_wp, -2.61116785_wp, &
-4.35500206_wp, -1.54577684_wp, -4.58452949_wp, -8.81484099_wp, -4.73458013_wp, &
-6.00637700_wp, -4.65653689_wp, -1.74048544_wp, -1.42017360_wp, -3.92383157_wp, &
-3.04313605_wp, -1.72539307_wp, -2.93434489_wp, -1.39984928_wp, -1.71850451_wp, &
-0.87425568_wp, -1.93902191_wp, -3.86160814_wp, -4.52377738_wp, 3.65228470_wp, &
-3.56700546_wp, -3.33888912_wp, -7.82820091_wp, -6.18641633_wp, -1.51355814_wp, &
-1.89776883_wp, -2.53294592_wp, -2.52832288_wp, -3.22643150_wp, -1.41870327_wp, &
-2.75152789_wp, -2.57548249_wp, -2.25886984_wp, -0.78149273_wp, -1.84324509_wp, &
-4.72184513_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 1.24832154_wp, -2.29708010_wp, -0.59154657_wp, -7.19400147_wp, &
-5.92283414_wp, -2.62344386_wp, -2.44415941_wp, -2.04678953_wp, -2.25621066_wp, &
-2.59752403_wp, -2.26874279_wp, -1.73826293_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.60595605_wp, 1.50092262_wp, 0.30000000_wp, 0.88335269_wp, 0.95929612_wp, &
0.71841955_wp, 0.30000000_wp, 0.97405294_wp, 0.68654417_wp, 1.67610880_wp, &
1.26953387_wp, 1.02342209_wp, 0.92816603_wp, 0.85331623_wp, 1.08775462_wp, &
1.17022711_wp, 0.03352880_wp, 1.11273480_wp, 0.30000000_wp, 1.26136129_wp, &
0.99810251_wp, 1.05324997_wp, 1.19891417_wp, 1.15274461_wp, 1.14151588_wp, &
1.12131571_wp, 1.45576586_wp, 1.26892081_wp, 0.99905738_wp, 1.19671061_wp, &
1.12420265_wp, 0.68616739_wp, 1.09094258_wp, 1.25179022_wp, 0.89916614_wp, &
1.08812054_wp, 0.30000000_wp, 0.68020607_wp, 1.54032209_wp, 0.98448430_wp, &
1.18532041_wp, 1.56616088_wp, 1.03875963_wp, 1.29493511_wp, 1.19846948_wp, &
1.16870153_wp, 1.26440981_wp, 1.18601017_wp, 0.91262881_wp, 0.84986655_wp, &
1.07665288_wp, 0.30000000_wp, 0.74665903_wp, 0.92072223_wp, 0.30000000_wp, &
1.02176174_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.25958770_wp, 1.00757395_wp, 1.36792732_wp, 1.19710104_wp, &
1.09977357_wp, 1.37108016_wp, 1.18284767_wp, 1.09762567_wp, 1.32310198_wp, &
0.81664106_wp, 0.87125841_wp, 1.10653215_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 6.95344958_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
4.25383208_wp, 3.30143242_wp, 1.63706074_wp, 1.30661877_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 3.99388076_wp, &
1.99734857_wp, 0.39402401_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 1.97758816_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 1.55106831_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_octanol = gbsa_parameter ( &
9.86290000_wp, &
130.23000000_wp, &
0.83000000_wp, &
1.58983390_wp, &
0.49307217_wp, &
1.46816470_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.99751210_wp, 0.14126340_wp, -5.94420799_wp, -6.21933351_wp, -1.91336597_wp, &
-2.58084256_wp, -1.39167721_wp, 1.18610532_wp, 0.66287534_wp, -0.02352835_wp, &
-11.28613227_wp, -3.04087824_wp, -2.34203056_wp, -0.13651019_wp, 3.00190223_wp, &
-1.14716215_wp, -1.38358737_wp, -0.75196120_wp, -0.82964249_wp, -2.61116785_wp, &
-4.35500206_wp, -1.54577684_wp, -4.58452949_wp, -8.81484099_wp, -4.73458013_wp, &
-6.00637700_wp, -4.65653689_wp, -1.74048544_wp, -1.42017360_wp, -3.92383157_wp, &
-3.04313605_wp, -1.72539307_wp, -2.93434489_wp, -1.39984928_wp, -1.71850451_wp, &
-0.87425568_wp, -1.93902191_wp, -3.86160814_wp, -4.52377738_wp, 3.65228470_wp, &
-3.56700546_wp, -3.33888912_wp, -7.82820091_wp, -6.18641633_wp, -1.51355814_wp, &
-1.89776883_wp, -2.53294592_wp, -2.52832288_wp, -3.22643150_wp, -1.41870327_wp, &
-2.75152789_wp, -2.57548249_wp, -2.25886984_wp, -0.78149273_wp, -1.84324509_wp, &
-4.72184513_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 1.24832154_wp, -2.29708010_wp, -0.59154657_wp, -7.19400147_wp, &
-5.92283414_wp, -2.62344386_wp, -2.44415941_wp, -2.04678953_wp, -2.25621066_wp, &
-2.59752403_wp, -2.26874279_wp, -1.73826293_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.60595605_wp, 1.50092262_wp, 0.30000000_wp, 0.88335269_wp, 0.95929612_wp, &
0.71841955_wp, 0.30000000_wp, 0.97405294_wp, 0.68654417_wp, 1.67610880_wp, &
1.26953387_wp, 1.02342209_wp, 0.92816603_wp, 0.85331623_wp, 1.08775462_wp, &
1.17022711_wp, 0.03352880_wp, 1.11273480_wp, 0.30000000_wp, 1.26136129_wp, &
0.99810251_wp, 1.05324997_wp, 1.19891417_wp, 1.15274461_wp, 1.14151588_wp, &
1.12131571_wp, 1.45576586_wp, 1.26892081_wp, 0.99905738_wp, 1.19671061_wp, &
1.12420265_wp, 0.68616739_wp, 1.09094258_wp, 1.25179022_wp, 0.89916614_wp, &
1.08812054_wp, 0.30000000_wp, 0.68020607_wp, 1.54032209_wp, 0.98448430_wp, &
1.18532041_wp, 1.56616088_wp, 1.03875963_wp, 1.29493511_wp, 1.19846948_wp, &
1.16870153_wp, 1.26440981_wp, 1.18601017_wp, 0.91262881_wp, 0.84986655_wp, &
1.07665288_wp, 0.30000000_wp, 0.74665903_wp, 0.92072223_wp, 0.30000000_wp, &
1.02176174_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.25958770_wp, 1.00757395_wp, 1.36792732_wp, 1.19710104_wp, &
1.09977357_wp, 1.37108016_wp, 1.18284767_wp, 1.09762567_wp, 1.32310198_wp, &
0.81664106_wp, 0.87125841_wp, 1.10653215_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 6.95344958_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
4.25383208_wp, 3.30143242_wp, 1.63706074_wp, 1.30661877_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 3.99388076_wp, &
1.99734857_wp, 0.39402401_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 1.97758816_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 1.55106831_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_phenol.fh 0000664 0000000 0000000 00000037734 14650006642 0017750 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_phenol = gbsa_parameter ( &
12.40000000_wp, &
94.11000000_wp, &
1.07000000_wp, &
1.39805723_wp, &
1.05515782_wp, &
2.30630191_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.95096959_wp, -0.08097553_wp, -7.20122684_wp, -16.19753975_wp, -2.30652608_wp, &
-2.20323289_wp, 2.30972413_wp, 2.80848051_wp, 1.90503341_wp, -0.12802412_wp, &
-3.58175411_wp, -2.27359996_wp, -2.05943278_wp, 1.17369466_wp, -2.12719781_wp, &
-1.59963140_wp, -1.27352419_wp, -1.08456532_wp, -3.57363782_wp, -10.49749479_wp, &
-7.16133016_wp, -1.81547354_wp, 0.08318485_wp, 2.44506024_wp, -2.94976724_wp, &
-4.72157520_wp, 0.00000000_wp, -2.28943468_wp, -1.93314810_wp, -2.26065276_wp, &
-3.09862387_wp, -2.65605700_wp, -2.14118435_wp, -1.65756951_wp, -1.88786322_wp, &
-1.10931017_wp, -3.40703862_wp, -11.01027657_wp, -7.53075769_wp, 4.81445131_wp, &
2.21742110_wp, -1.80598377_wp, 2.09404174_wp, -2.06413174_wp, -0.25790251_wp, &
-2.16728510_wp, -1.69356518_wp, 0.36311167_wp, -4.17034365_wp, -1.72085430_wp, &
-1.91581993_wp, -1.82997371_wp, -2.31480862_wp, -0.92147199_wp, -2.64305628_wp, &
-8.82998972_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 1.66230600_wp, 0.72729993_wp, 5.70144459_wp, 6.41329547_wp, &
-1.50357566_wp, -0.73860953_wp, -0.87677442_wp, -1.12454939_wp, -0.68821050_wp, &
-1.85370387_wp, 0.00000000_wp, 0.25152858_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.88607697_wp, 1.91213007_wp, 1.06793871_wp, 0.80394117_wp, 0.84778556_wp, &
0.64481729_wp, 0.30000000_wp, 0.75808554_wp, 0.75260812_wp, 0.63199006_wp, &
0.30000000_wp, 0.64549392_wp, 0.98655858_wp, 0.70542229_wp, 0.62587988_wp, &
0.78957381_wp, 0.81216659_wp, 0.96032981_wp, 0.30000000_wp, 1.08425669_wp, &
0.73486167_wp, 1.04153584_wp, 1.16369012_wp, 1.13577972_wp, 1.15322715_wp, &
1.12078929_wp, 1.00000000_wp, 1.06248302_wp, 1.17524045_wp, 0.80226939_wp, &
1.03918370_wp, 0.98118038_wp, 1.15596451_wp, 1.05103397_wp, 1.16382568_wp, &
0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 1.06874772_wp, &
1.04191520_wp, 0.99868109_wp, 1.19817189_wp, 1.11601368_wp, 1.00224104_wp, &
1.22717877_wp, 1.06536408_wp, 0.85978496_wp, 0.92473871_wp, 0.72304989_wp, &
1.01883584_wp, 0.91948721_wp, 1.20203076_wp, 0.73017616_wp, 1.01451706_wp, &
0.84069173_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 0.92201529_wp, 0.97341554_wp, 0.94103867_wp, 0.76975223_wp, &
1.04260805_wp, 1.01795266_wp, 1.05824645_wp, 1.20417784_wp, 1.06980309_wp, &
0.73654769_wp, 1.00000000_wp, 0.78706578_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.28671618_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.28516799_wp, 4.43481852_wp, 2.41866090_wp, 3.85482451_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 3.86208720_wp, &
4.48562017_wp, 0.50308311_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.89274707_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.29819357_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_phenol = gbsa_parameter ( &
12.40000000_wp, &
94.11000000_wp, &
1.07000000_wp, &
1.29875185_wp, &
1.18848348_wp, &
1.52339711_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.96839923_wp, -0.00900322_wp, -5.58352520_wp, -17.67562525_wp, -1.91227300_wp, &
-2.05126808_wp, -2.03602629_wp, 0.14465721_wp, 0.82724006_wp, -0.10703607_wp, &
-3.55307037_wp, -2.06307394_wp, -1.09876276_wp, 1.17369466_wp, -1.70191289_wp, &
-1.33447061_wp, -0.57641270_wp, -1.01075068_wp, -2.88120550_wp, -10.49749479_wp, &
-7.16133016_wp, -1.81547354_wp, -4.97224150_wp, -2.63002803_wp, -1.29258922_wp, &
0.57687093_wp, 0.00000000_wp, -0.39543776_wp, -0.95163672_wp, -2.74863366_wp, &
-3.09862387_wp, -1.38820677_wp, -1.83557031_wp, -0.85345969_wp, -1.43511796_wp, &
-1.04909364_wp, -3.62341517_wp, -11.01027657_wp, -7.53075769_wp, 1.83364257_wp, &
-6.66701430_wp, -1.80598377_wp, -0.02824780_wp, -4.04091704_wp, -0.84747254_wp, &
-1.16957244_wp, -1.78343067_wp, -2.71656682_wp, -3.82893776_wp, -1.47390709_wp, &
-1.65873077_wp, -1.72434474_wp, -2.02651720_wp, -0.95822200_wp, -3.97555323_wp, &
-9.27732995_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.13556388_wp, -5.02103977_wp, 10.45055312_wp, 0.90327146_wp, &
-1.96126586_wp, -1.97086444_wp, -0.42030415_wp, -0.66030833_wp, -2.41319691_wp, &
-1.53856791_wp, -0.65689063_wp, -0.67200346_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.59187702_wp, 0.30000000_wp, 0.76775826_wp, 0.79943133_wp, 0.76401539_wp, &
0.29587189_wp, 0.72550165_wp, 1.05554190_wp, 0.89719313_wp, 0.30000000_wp, &
0.30000000_wp, 1.09268922_wp, 0.98648472_wp, 0.70542229_wp, 0.37763231_wp, &
1.06429459_wp, 1.51943692_wp, 1.15277819_wp, 0.30000000_wp, 1.08425669_wp, &
0.73486167_wp, 1.04153584_wp, 1.12843007_wp, 1.49573736_wp, 1.14841065_wp, &
1.28556943_wp, 1.00000000_wp, 0.85503425_wp, 0.81217971_wp, 1.20751137_wp, &
1.03918370_wp, 0.76807984_wp, 1.05362080_wp, 0.95541971_wp, 0.07651436_wp, &
1.38094206_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.76974940_wp, &
1.20584949_wp, 0.99868109_wp, 1.22358411_wp, 1.38842844_wp, 1.15301205_wp, &
1.21724323_wp, 1.04033395_wp, 1.36333247_wp, 0.87900885_wp, 0.30000000_wp, &
1.08369143_wp, 0.85168772_wp, 0.20788426_wp, 1.26408986_wp, 0.30000000_wp, &
1.01146385_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.24585931_wp, 1.05975023_wp, 0.61491811_wp, 0.76996490_wp, &
1.16306253_wp, 1.38575810_wp, 1.22563783_wp, 1.08568538_wp, 0.12982227_wp, &
0.40091242_wp, 1.00917281_wp, 0.79104123_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 3.25508042_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
-0.00337953_wp, 2.93395996_wp, 1.50994779_wp, 0.51818401_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 1.98710351_wp, &
2.04284860_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.89274707_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.29819357_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_phenol = gbsa_parameter ( &
12.40000000_wp, &
94.11000000_wp, &
1.07000000_wp, &
1.40265520_wp, &
0.32525092_wp, &
1.03904585_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.36248480_wp, 0.00007519_wp, -9.75541762_wp, -29.14420566_wp, -3.18530326_wp, &
-2.42102781_wp, -4.52549545_wp, -2.21888574_wp, 1.35908188_wp, -0.05545110_wp, &
-7.18639187_wp, -3.72845502_wp, -2.53050230_wp, 0.89822483_wp, -1.90780498_wp, &
-2.30298657_wp, -1.26266396_wp, -1.66799849_wp, -5.92252991_wp, -14.42318116_wp, &
-1.49446842_wp, -7.61441698_wp, -6.88390455_wp, 2.29595011_wp, 8.75897052_wp, &
2.58191133_wp, 28.69335773_wp, -1.41512592_wp, -2.66452251_wp, -5.17380662_wp, &
-3.61980273_wp, -1.53020003_wp, -2.51881366_wp, -1.63193088_wp, -2.40614967_wp, &
-1.26507364_wp, -5.04418102_wp, -19.25037739_wp, -3.98027076_wp, -0.57913460_wp, &
-2.71074744_wp, 0.77784745_wp, 7.62868312_wp, 3.47763946_wp, 9.57779975_wp, &
-4.62865097_wp, -1.94165926_wp, -4.00965368_wp, -4.99282058_wp, -1.22100761_wp, &
-2.56835528_wp, -1.81109847_wp, -2.69995075_wp, -0.65567406_wp, -6.02675810_wp, &
-13.45985285_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.38137331_wp, -3.93463797_wp, 3.89107740_wp, 5.22413149_wp, &
5.15000660_wp, 4.96844618_wp, -1.48162065_wp, -0.23218464_wp, -1.80582390_wp, &
-3.46978774_wp, -1.19620315_wp, -2.88525407_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 1.06986589_wp, &
0.84719166_wp, 0.30000000_wp, 1.01358903_wp, 0.56245924_wp, 0.30000000_wp, &
0.30000000_wp, 1.10092035_wp, 1.00349223_wp, 0.30000000_wp, 0.30000000_wp, &
1.11251682_wp, 1.34973241_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.30000000_wp, 0.96240517_wp, 1.19757096_wp, 1.36478258_wp, 1.45305672_wp, &
1.44930280_wp, 1.47331139_wp, 1.73996448_wp, 1.07870522_wp, 0.30000000_wp, &
0.61678898_wp, 0.78219836_wp, 0.88381714_wp, 0.95023831_wp, 1.65836932_wp, &
0.62754275_wp, 0.30000000_wp, 0.30000000_wp, 0.23697554_wp, 0.00974195_wp, &
1.47722504_wp, 1.41805442_wp, 1.40866802_wp, 1.61424890_wp, 0.98391926_wp, &
1.22164932_wp, 1.40590835_wp, 0.30000000_wp, 0.93969463_wp, 0.30000000_wp, &
0.30000000_wp, 0.95914688_wp, 0.44777529_wp, 1.06547900_wp, 0.30000000_wp, &
0.30000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.22537500_wp, 1.37799183_wp, 1.31474134_wp, 1.21218027_wp, &
1.39947648_wp, 1.12875687_wp, 1.29046737_wp, 0.44437409_wp, 0.85232365_wp, &
0.80000000_wp, 1.18781542_wp, 0.80000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ -0.75877703_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
1.00337953_wp, 2.93395996_wp, 1.50994779_wp, 0.51818401_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 1.98710351_wp, &
2.04284860_wp, 1.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.89274707_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.29819357_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_thf.fh 0000664 0000000 0000000 00000037723 14650006642 0017242 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_thf = gbsa_parameter ( &
7.60000000_wp, &
72.10610000_wp, &
0.88300000_wp, &
1.79184086_wp, &
1.32442970_wp, &
3.91207442_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.17258597_wp, -0.45736783_wp, -5.74541082_wp, -11.85251337_wp, -2.46247235_wp, &
-2.27847099_wp, -0.63753448_wp, 0.04721459_wp, -0.39229205_wp, -0.49245144_wp, &
-3.56497132_wp, -2.52428589_wp, -2.20333235_wp, 0.29997199_wp, -2.28696123_wp, &
-2.09386868_wp, -1.75774507_wp, -1.37172726_wp, -3.10403084_wp, -4.83760959_wp, &
53.37825246_wp, 0.00000000_wp, -3.85335733_wp, -3.75030832_wp, -4.61599760_wp, &
-4.36924179_wp, -2.44232391_wp, -3.23273103_wp, -2.52072747_wp, -3.04207198_wp, &
-2.87067106_wp, -2.37703525_wp, -2.26552998_wp, -2.02519033_wp, -2.18836500_wp, &
-1.39778518_wp, -2.75338769_wp, 9.00662268_wp, 15.03567562_wp, -1.32760194_wp, &
-3.45074417_wp, -3.01589359_wp, -4.62746877_wp, -2.96583745_wp, -1.48779717_wp, &
-2.54351498_wp, -2.10975451_wp, -1.53190911_wp, -3.27568335_wp, -2.06324121_wp, &
-1.90401777_wp, -2.15433966_wp, -2.49595309_wp, -1.37645869_wp, -2.83409103_wp, &
-4.36583911_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.58784634_wp, -3.44827070_wp, 0.01780079_wp, -4.25679706_wp, &
-1.73210351_wp, -1.94299080_wp, -1.26898503_wp, -1.52604309_wp, -1.68515392_wp, &
-2.02221140_wp, -1.32495450_wp, -1.15196295_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.93153648_wp, 0.71992244_wp, 0.94502953_wp, 0.99058490_wp, 0.83607905_wp, &
0.52001179_wp, 0.53600098_wp, 0.66982882_wp, 0.65990714_wp, 0.30000000_wp, &
0.30000000_wp, 0.71773666_wp, 0.98902747_wp, 0.46948059_wp, 0.66084812_wp, &
0.00722892_wp, 0.87198300_wp, 0.30000000_wp, 0.63961749_wp, 0.30000000_wp, &
0.81113833_wp, 0.00000000_wp, 1.17712667_wp, 1.05331388_wp, 1.29270168_wp, &
1.17470175_wp, 0.84429130_wp, 1.15053080_wp, 1.11349115_wp, 0.30000000_wp, &
0.96112231_wp, 0.75799643_wp, 1.15140152_wp, 0.90619588_wp, 0.88908343_wp, &
0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 1.22958093_wp, &
1.11618043_wp, 0.95035360_wp, 1.17716192_wp, 1.12925983_wp, 0.98153387_wp, &
0.95832391_wp, 0.87170924_wp, 0.30000000_wp, 0.86333035_wp, 0.83970523_wp, &
1.07112949_wp, 0.63603863_wp, 1.60816613_wp, 1.29346093_wp, 1.08714135_wp, &
0.57197919_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.05173898_wp, 1.08749559_wp, 0.94909578_wp, 0.86431788_wp, &
1.05745192_wp, 0.97237769_wp, 0.64035583_wp, 1.08698238_wp, 0.86193227_wp, &
0.83154198_wp, 0.85874409_wp, 0.02863080_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 5.43063361_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_thf = gbsa_parameter ( &
7.60000000_wp, &
72.10610000_wp, &
0.88300000_wp, &
1.73108801_wp, &
1.22908546_wp, &
3.34137214_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.39382608_wp, -0.41673512_wp, -5.24166548_wp, -12.28002293_wp, -2.39879944_wp, &
-2.37361122_wp, -2.28412966_wp, -1.29340598_wp, -0.59946682_wp, -0.45617923_wp, &
-3.28531560_wp, -2.60390263_wp, -2.01369319_wp, 0.16334916_wp, -2.19322298_wp, &
-2.07853613_wp, -1.65297751_wp, -1.34212056_wp, -2.83157992_wp, -5.21371290_wp, &
-5.30650410_wp, -4.42395931_wp, -4.20357161_wp, -4.46225699_wp, -2.76811704_wp, &
3.22683787_wp, 4.92263961_wp, -2.07981512_wp, -2.08023751_wp, -3.35541496_wp, &
-2.66621144_wp, -2.00734620_wp, -2.22988638_wp, -1.67860150_wp, -1.66179813_wp, &
-1.36804717_wp, -2.90001002_wp, -5.88833988_wp, -7.16970264_wp, -0.21731622_wp, &
-3.60458626_wp, -3.77610601_wp, -1.40220558_wp, -3.05574179_wp, -1.34006342_wp, &
-2.23355539_wp, -2.28942451_wp, -2.90334663_wp, -2.87078852_wp, -1.79385735_wp, &
-1.86935973_wp, -2.13111698_wp, -2.21044812_wp, -1.28526914_wp, -3.06455933_wp, &
-5.03972111_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.58111347_wp, -2.63438997_wp, 1.92177355_wp, -1.48283989_wp, &
-1.33964787_wp, -2.00840956_wp, -1.11872636_wp, -1.29675924_wp, -2.74774148_wp, &
-2.00042498_wp, -1.04613567_wp, -1.29528026_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.87250470_wp, 1.10416477_wp, 0.31945941_wp, 0.65872837_wp, 0.79162434_wp, &
0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.79792828_wp, 0.30000000_wp, &
0.30000000_wp, 1.02374372_wp, 0.70685905_wp, 0.86421406_wp, 0.58100025_wp, &
0.95186765_wp, 0.76927451_wp, 0.84904260_wp, 0.30000000_wp, 0.30000000_wp, &
1.01186506_wp, 1.07013676_wp, 1.31744070_wp, 1.35550797_wp, 1.25692141_wp, &
1.53278820_wp, 0.86935765_wp, 1.17794267_wp, 0.92855498_wp, 0.30000000_wp, &
1.11570278_wp, 0.72884747_wp, 1.11051328_wp, 1.05780570_wp, 0.61925510_wp, &
1.31374189_wp, 0.30000000_wp, 0.30000000_wp, 1.37177771_wp, 0.98992867_wp, &
1.35774541_wp, 0.77673697_wp, 1.32720260_wp, 1.52379000_wp, 1.26437762_wp, &
1.01132798_wp, 1.25960274_wp, 0.30000000_wp, 0.82622509_wp, 0.67512388_wp, &
1.10710921_wp, 0.30000000_wp, 0.57462767_wp, 1.18921728_wp, 0.66080140_wp, &
0.95565365_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.38799438_wp, 1.17053682_wp, 0.92249293_wp, 0.98656359_wp, &
1.40300471_wp, 1.35177042_wp, 1.02852347_wp, 1.07324743_wp, 0.30000000_wp, &
0.83275069_wp, 0.99004346_wp, 0.51381674_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 8.03952870_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_thf = gbsa_parameter ( &
7.60000000_wp, &
72.10610000_wp, &
0.88300000_wp, &
1.99165677_wp, &
1.25888923_wp, &
3.07058655_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.32453847_wp, -0.39663455_wp, -5.80378053_wp, -13.01295669_wp, -2.39839565_wp, &
-2.26945225_wp, -2.38513133_wp, -2.04766691_wp, -0.19749197_wp, -0.47182870_wp, &
-4.38213203_wp, -2.59953971_wp, -2.23565225_wp, -0.57798128_wp, -1.94818508_wp, &
-2.25357577_wp, -1.77254453_wp, -1.65553643_wp, -3.64169478_wp, -4.99475115_wp, &
-5.48085606_wp, -5.82356611_wp, -4.87219844_wp, -3.87119740_wp, -1.90044639_wp, &
-3.04811929_wp, 2.55435167_wp, -2.62076955_wp, -2.49153026_wp, -3.37121631_wp, &
-2.55884460_wp, -2.22314777_wp, -2.20085544_wp, -1.92838906_wp, -2.11361924_wp, &
-1.44409414_wp, -3.27525156_wp, -6.88115808_wp, -6.98039951_wp, -2.89952744_wp, &
-3.16608543_wp, 0.35898378_wp, 0.47105184_wp, -1.28354208_wp, -0.81247734_wp, &
-2.48446335_wp, -2.21656571_wp, -3.05873559_wp, -3.18572433_wp, -1.78168615_wp, &
-1.88734205_wp, -2.21026436_wp, -2.35274327_wp, -1.31562531_wp, -3.21788483_wp, &
-5.37153799_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.20066185_wp, -3.19439229_wp, 11.53482558_wp, 0.75028876_wp, &
-0.02608601_wp, -1.65018956_wp, -1.21546006_wp, -1.32024831_wp, -2.27954066_wp, &
-2.12350623_wp, -1.18709490_wp, -2.00950713_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.65530183_wp, 0.30000000_wp, 0.30000000_wp, 1.09280921_wp, 0.94888386_wp, &
0.59655237_wp, 0.26564326_wp, 0.09145601_wp, 0.64636936_wp, 0.30000000_wp, &
0.30000000_wp, 1.18156968_wp, 1.05319806_wp, 0.21630750_wp, 0.12957167_wp, &
0.80917776_wp, 1.04381409_wp, 0.30000000_wp, 0.30000000_wp, 1.76749831_wp, &
0.92727753_wp, 1.17115363_wp, 1.34077740_wp, 1.58318563_wp, 1.47021916_wp, &
1.66332166_wp, 1.73554083_wp, 1.37118939_wp, 0.30000000_wp, 0.30000000_wp, &
0.71341493_wp, 0.66637530_wp, 1.00207684_wp, 1.20421706_wp, 1.72541717_wp, &
0.89277197_wp, 0.30000000_wp, 0.30000000_wp, 0.77086843_wp, 1.12764800_wp, &
1.37427720_wp, 1.76363439_wp, 1.55974119_wp, 1.84702618_wp, 1.15001361_wp, &
0.89596437_wp, 0.30000000_wp, 0.30000000_wp, 0.85410076_wp, 0.40189677_wp, &
1.06445318_wp, 0.64895127_wp, 1.58226977_wp, 1.38853205_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.52435244_wp, 1.31671532_wp, 1.68619164_wp, 1.23188782_wp, &
1.51506566_wp, 1.25628205_wp, 0.39697709_wp, 0.28774514_wp, 0.90037372_wp, &
0.80000000_wp, 1.14616045_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 7.36846215_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_toluene.fh 0000664 0000000 0000000 00000037737 14650006642 0020141 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_toluene = gbsa_parameter ( &
2.37410000_wp, &
92.14000000_wp, &
0.86700000_wp, &
1.49963187_wp, &
0.58238129_wp, &
2.23078369_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.29839779_wp, -0.20750816_wp, -5.81628106_wp, -13.87771988_wp, -2.96559401_wp, &
-2.98065969_wp, -1.40443543_wp, -0.13630240_wp, 0.02801080_wp, -0.23620761_wp, &
-3.59986435_wp, -2.93684885_wp, -2.51519490_wp, -0.11038174_wp, -3.01421512_wp, &
-2.89187840_wp, -1.99751665_wp, -1.26622674_wp, -3.25810702_wp, -4.50401690_wp, &
-5.75459479_wp, 0.38719618_wp, -3.37969822_wp, -1.95402010_wp, -3.93895951_wp, &
-4.06566393_wp, 3.39329084_wp, -3.14895626_wp, -2.81125373_wp, -3.27524110_wp, &
-3.12407109_wp, -2.65008060_wp, -2.64342580_wp, -2.09742646_wp, -2.66762138_wp, &
-1.31588527_wp, -2.86531503_wp, -4.70627372_wp, -6.06439745_wp, -1.15089115_wp, &
-2.82507829_wp, -0.20430866_wp, -3.79766077_wp, -2.00908470_wp, -3.20699828_wp, &
-2.77785098_wp, -2.48142403_wp, -1.94320115_wp, -3.51164962_wp, -2.05041188_wp, &
-2.35207739_wp, -2.41120634_wp, -3.09146661_wp, -0.85571368_wp, -0.10486657_wp, &
-3.90765956_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.73172934_wp, -3.01908337_wp, -1.00920829_wp, -0.78467517_wp, &
-1.37414392_wp, -2.29835901_wp, -1.42494943_wp, -1.60053835_wp, -1.19190629_wp, &
-1.95488506_wp, -1.05001514_wp, -1.52779977_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.93485713_wp, 0.78973642_wp, 0.43372003_wp, 0.75647294_wp, &
0.70770029_wp, 0.30000000_wp, 0.30000000_wp, 0.53907845_wp, 1.40074032_wp, &
0.30000000_wp, 0.30000000_wp, 1.00358796_wp, 0.89872575_wp, 0.84209866_wp, &
0.63105926_wp, 0.87814568_wp, 0.94965579_wp, 0.48716376_wp, 0.30000000_wp, &
1.07573145_wp, 0.95213894_wp, 1.13784316_wp, 1.15464687_wp, 1.32566804_wp, &
1.18950124_wp, 0.99082791_wp, 0.95085822_wp, 0.86248121_wp, 0.30000000_wp, &
0.86186396_wp, 0.86020935_wp, 0.91108776_wp, 0.86346577_wp, 1.00063554_wp, &
0.53397119_wp, 0.30000000_wp, 0.30000000_wp, 1.01826696_wp, 1.20706901_wp, &
1.11097009_wp, 0.77116725_wp, 1.28152616_wp, 1.13068043_wp, 1.10569248_wp, &
0.79219594_wp, 0.89811716_wp, 0.30000000_wp, 0.87042514_wp, 0.83028999_wp, &
1.06491407_wp, 0.85463531_wp, 1.54158584_wp, 0.88203029_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.38214496_wp, 1.09984910_wp, 0.77191197_wp, 0.94132359_wp, &
1.17561190_wp, 1.09448130_wp, 0.07257717_wp, 1.06582898_wp, 0.87130183_wp, &
0.69552645_wp, 0.97971119_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_toluene = gbsa_parameter ( &
7.00000000_wp, &
78.11000000_wp, &
0.86700000_wp, &
1.71719241_wp, &
0.09081163_wp, &
1.38563074_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.57713161_wp, -0.34551336_wp, -6.30332548_wp, -18.98649997_wp, -3.66060739_wp, &
-3.00030249_wp, -4.17462021_wp, -3.12456571_wp, -0.34762131_wp, -0.34387770_wp, &
-3.79758210_wp, -3.48313415_wp, -2.64930731_wp, 0.06877995_wp, -3.21112656_wp, &
-3.06348464_wp, -2.09906469_wp, -1.54101094_wp, -2.83099083_wp, -4.98641655_wp, &
-4.80452663_wp, -2.01073769_wp, -3.03998118_wp, 2.18902787_wp, 8.35600917_wp, &
2.90721631_wp, 8.20948262_wp, -1.66062338_wp, -1.98564808_wp, -3.87337313_wp, &
-3.62089746_wp, -1.89074832_wp, -3.02387557_wp, -2.31730325_wp, -2.83207161_wp, &
-1.66381358_wp, -2.90724772_wp, -6.48619927_wp, -9.04057593_wp, -2.91113008_wp, &
-3.29996433_wp, -1.51966800_wp, 4.05033533_wp, -0.57755575_wp, 2.41836271_wp, &
-2.89821150_wp, -2.83024392_wp, -1.82881890_wp, -3.59606977_wp, -1.61888881_wp, &
-2.67083583_wp, -2.76398086_wp, -3.30677278_wp, -1.02925461_wp, -2.53155988_wp, &
-5.26980224_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -4.47869281_wp, -3.86512339_wp, 1.18683963_wp, 3.22740259_wp, &
0.18806102_wp, 1.55354823_wp, -1.75816344_wp, -1.29611030_wp, -2.16555007_wp, &
-2.53244490_wp, -1.13144107_wp, -1.80817292_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.52616268_wp, 1.86915069_wp, 0.30000000_wp, 0.78775869_wp, 0.89614831_wp, &
0.91253854_wp, 0.45660103_wp, 0.96435408_wp, 0.59657922_wp, 1.76204982_wp, &
0.08541653_wp, 1.03228913_wp, 0.73804453_wp, 0.91311889_wp, 0.80348462_wp, &
0.89182317_wp, 0.84925544_wp, 0.67075474_wp, 0.03719049_wp, 0.30000000_wp, &
0.93960870_wp, 1.06511743_wp, 1.05875564_wp, 1.09639660_wp, 0.92755875_wp, &
1.26905678_wp, 0.57409504_wp, 0.29086316_wp, 0.00684059_wp, 1.19792739_wp, &
0.95251007_wp, 0.74733021_wp, 1.03881529_wp, 1.20383771_wp, 0.97501677_wp, &
0.95791995_wp, 0.30000000_wp, 0.30000000_wp, 0.94902740_wp, 1.02136500_wp, &
1.02262099_wp, 0.94022824_wp, 1.32204147_wp, 1.21056822_wp, 1.23200391_wp, &
1.17583968_wp, 0.97207478_wp, 1.53729651_wp, 0.87757472_wp, 0.30000000_wp, &
1.05664166_wp, 0.99310287_wp, 0.87799759_wp, 0.94698088_wp, 0.30000000_wp, &
0.89414162_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.04546757_wp, 0.90634017_wp, 0.30000000_wp, 1.18211304_wp, &
1.19646933_wp, 1.11828221_wp, 0.80000000_wp, 0.86706889_wp, 1.26606799_wp, &
0.89753087_wp, 0.95602208_wp, 0.80335480_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_toluene = gbsa_parameter ( &
2.37410000_wp, &
92.14000000_wp, &
0.86700000_wp, &
1.26973394_wp, &
0.51530222_wp, &
1.96472257_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.45057779_wp, -0.19821449_wp, -5.83818641_wp, -15.30976984_wp, -3.09465998_wp, &
-2.74303583_wp, -2.54150304_wp, -0.07088761_wp, 0.33028788_wp, -0.22384125_wp, &
-4.44706099_wp, -3.09582407_wp, -2.55033672_wp, -0.27630912_wp, -2.41456574_wp, &
-2.72647345_wp, -1.91638541_wp, -1.39239081_wp, -3.77306109_wp, -4.93948047_wp, &
-2.76939133_wp, -5.84555337_wp, -5.87612965_wp, -3.90940179_wp, -0.17526514_wp, &
-5.39874428_wp, -7.20588653_wp, -3.50881702_wp, -2.78632680_wp, -3.97645319_wp, &
-3.22614548_wp, -2.28251028_wp, -2.57643007_wp, -1.91599378_wp, -2.72842441_wp, &
-1.30759802_wp, -2.21343671_wp, -6.53348045_wp, -5.71347231_wp, -2.23891680_wp, &
-5.20285156_wp, 1.86575143_wp, -0.00070874_wp, -1.13075681_wp, 0.07356535_wp, &
-3.42630965_wp, -2.53554493_wp, -3.33100728_wp, -3.47942558_wp, -1.67791656_wp, &
-2.34624287_wp, -2.28837763_wp, -2.95390376_wp, -0.81534683_wp, -3.10937247_wp, &
-5.08083790_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -4.61281747_wp, -4.80154522_wp, 4.06749277_wp, -1.37070976_wp, &
-0.20956541_wp, -2.43889760_wp, -1.39385639_wp, -1.34062073_wp, -1.71533308_wp, &
-2.20654261_wp, -1.43453506_wp, -2.28735062_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.69884733_wp, 1.55872064_wp, 0.92079758_wp, 0.19450401_wp, 0.92510051_wp, &
0.61977008_wp, 0.30000000_wp, 0.45592271_wp, 0.59509624_wp, 0.85554218_wp, &
0.30000000_wp, 1.17793967_wp, 0.91453509_wp, 1.01869307_wp, 0.30000000_wp, &
0.84522090_wp, 1.43000602_wp, 0.35403860_wp, 0.30000000_wp, 0.30000000_wp, &
0.88517686_wp, 1.20657627_wp, 1.29891261_wp, 1.60595488_wp, 1.79480186_wp, &
1.84487890_wp, 1.88248427_wp, 1.44084261_wp, 1.27381643_wp, 0.30000000_wp, &
0.86139841_wp, 0.77741507_wp, 0.56762506_wp, 0.75084970_wp, 1.73354881_wp, &
1.15875429_wp, 0.30000000_wp, 0.30000000_wp, 0.82980223_wp, 0.71858263_wp, &
1.43587178_wp, 1.78338487_wp, 1.74074517_wp, 1.93806453_wp, 1.18312110_wp, &
1.27895915_wp, 1.37270304_wp, 0.30000000_wp, 0.86943361_wp, 0.37948768_wp, &
0.30000000_wp, 0.72031502_wp, 0.92914457_wp, 1.15385543_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 1.35803016_wp, 1.75085588_wp, 1.36529406_wp, &
1.62192486_wp, 1.37166803_wp, 0.80890624_wp, 1.01378141_wp, 0.76898014_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_water.fh 0000664 0000000 0000000 00000037731 14650006642 0017602 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_water = gbsa_parameter ( &
80.20000000_wp, &
18.00000000_wp, &
1.00000000_wp, &
1.94517356_wp, &
4.33089548_wp, &
2.66415841_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.08499967_wp, 0.46780225_wp, -2.87013596_wp, -3.95935069_wp, -0.29783987_wp, &
-0.48323273_wp, 0.00133622_wp, 0.20448945_wp, 0.20150600_wp, 0.36379863_wp, &
-3.47082133_wp, -0.93451053_wp, -1.46342018_wp, -0.32774697_wp, -0.38015204_wp, &
-0.35311116_wp, -0.19972593_wp, -0.12891363_wp, -1.19450558_wp, -1.61289300_wp, &
-4.68022533_wp, 3.22705056_wp, -1.76349679_wp, -1.78246886_wp, -1.41389733_wp, &
-2.03424961_wp, -13.15585203_wp, -0.60232543_wp, -0.51255518_wp, -1.05389890_wp, &
-0.80992362_wp, -0.04534252_wp, -0.48402589_wp, -0.34738945_wp, -0.31467674_wp, &
-0.13545936_wp, -1.19984632_wp, -1.57439157_wp, -7.77905850_wp, -0.25386776_wp, &
-1.36181862_wp, -1.89986750_wp, -1.66264106_wp, 0.63693473_wp, -0.42449931_wp, &
-0.73041159_wp, -0.48383194_wp, -0.60860050_wp, -1.34579404_wp, -0.28314431_wp, &
-0.58997478_wp, -0.50506060_wp, -0.36680822_wp, -0.28828614_wp, -1.50384745_wp, &
-1.72772005_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.95945946_wp, -0.97138135_wp, -2.83432331_wp, -2.01934203_wp, &
-1.19296724_wp, -0.73245256_wp, -0.58420150_wp, -0.43386368_wp, -0.70607621_wp, &
-0.73268812_wp, -1.00876694_wp, -0.52518304_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.44317350_wp, 0.30000000_wp, 1.02834815_wp, 1.20351860_wp, 0.98531701_wp, &
0.55163954_wp, 0.30000000_wp, 0.60406377_wp, 0.59661927_wp, 0.30000000_wp, &
1.84319530_wp, 0.64410026_wp, 0.77660320_wp, 0.88764735_wp, 0.57701739_wp, &
0.29877485_wp, 0.34701593_wp, 0.30000000_wp, 0.11542731_wp, 0.30000000_wp, &
1.33484306_wp, 1.03424274_wp, 1.12549497_wp, 1.18217218_wp, 1.28379040_wp, &
1.18534139_wp, 0.95351557_wp, 0.96272527_wp, 0.74889744_wp, 0.12431812_wp, &
0.75375458_wp, 0.69597575_wp, 1.14041175_wp, 0.95225495_wp, 1.16745061_wp, &
0.30000000_wp, 0.05083192_wp, 0.30000000_wp, 1.29865417_wp, 1.25043963_wp, &
1.03475649_wp, 0.95576142_wp, 1.19077649_wp, 1.11477875_wp, 1.08131165_wp, &
0.51773918_wp, 0.43422679_wp, 0.30000000_wp, 0.77720386_wp, 0.79179688_wp, &
1.07006454_wp, 0.77921971_wp, 1.52831479_wp, 0.30000000_wp, 0.97510287_wp, &
0.04191524_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.36789573_wp, 1.07947043_wp, 0.93570099_wp, 1.22164876_wp, &
1.12202831_wp, 1.01952207_wp, 0.80000000_wp, 1.08561165_wp, 0.80000000_wp, &
0.06127615_wp, 0.85740254_wp, 1.11516312_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.70894947_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
1.26459036_wp, 3.52206160_wp, 2.30440543_wp, 1.98829409_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.68116653_wp, &
0.38262428_wp, 1.02948365_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.37162766_wp, 2.02275702_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.61716906_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_water = gbsa_parameter ( &
80.20000000_wp, &
18.00000000_wp, &
1.00000000_wp, &
1.47438678_wp, &
1.13409020_wp, &
0.67818695_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.08533368_wp, 1.13711777_wp, -5.83236188_wp, -17.01350889_wp, -0.82891231_wp, &
-0.51385188_wp, -3.24932941_wp, 2.03601297_wp, 1.26697909_wp, 1.00726547_wp, &
-3.05732760_wp, -1.61595951_wp, -0.10749537_wp, 1.73814581_wp, 1.01416364_wp, &
1.20810520_wp, -0.06835879_wp, 0.43292409_wp, -2.69545448_wp, -9.68055177_wp, &
-6.86171080_wp, -2.32183024_wp, -2.10041202_wp, -4.15076452_wp, -2.32406972_wp, &
9.24779587_wp, 4.48206277_wp, -1.15972411_wp, -0.21281688_wp, -2.64500225_wp, &
-2.36086956_wp, -0.46303904_wp, -0.88149455_wp, 0.23523157_wp, -0.18620262_wp, &
0.35105321_wp, -2.88851792_wp, -11.04377179_wp, -7.95128133_wp, 3.90876499_wp, &
-2.48432528_wp, -3.66936332_wp, -4.43332314_wp, -2.94937418_wp, 0.00028790_wp, &
-0.93137790_wp, -0.79778296_wp, -0.92747581_wp, -2.70394304_wp, -0.43878679_wp, &
-0.70393148_wp, -0.77480977_wp, -0.76873446_wp, -0.06431749_wp, -3.15995511_wp, &
-5.92642054_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.91732017_wp, -0.76038638_wp, 4.55364802_wp, -5.19397805_wp, &
-0.97455175_wp, -0.19095469_wp, 0.37263783_wp, 0.41221465_wp, -1.77134941_wp, &
-0.89456867_wp, 0.24690462_wp, 0.62621722_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.18678116_wp, 1.99854836_wp, 0.50934487_wp, 0.30000000_wp, 0.93372749_wp, &
0.73948749_wp, 0.77003311_wp, 0.30000000_wp, 0.62227524_wp, 1.22892076_wp, &
0.65065466_wp, 1.15301804_wp, 1.00517744_wp, 0.93204996_wp, 0.80000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.90930774_wp, 0.30000000_wp, 1.13114016_wp, &
1.06981655_wp, 1.42134411_wp, 1.09146204_wp, 1.14487481_wp, 0.93238901_wp, &
1.66030803_wp, 1.03734066_wp, 1.21328994_wp, 0.96459170_wp, 0.70218231_wp, &
0.94458397_wp, 0.87849331_wp, 1.04104293_wp, 1.01890919_wp, 1.42471942_wp, &
1.31471665_wp, 0.30000000_wp, 0.99506730_wp, 1.31750068_wp, 0.91790577_wp, &
1.13352069_wp, 0.90365194_wp, 0.97192416_wp, 1.13693166_wp, 1.13908614_wp, &
1.03723586_wp, 0.99373444_wp, 0.57959099_wp, 0.80138068_wp, 0.45705909_wp, &
1.12709787_wp, 0.80213876_wp, 1.37998347_wp, 1.10387200_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.11415978_wp, 0.95102453_wp, 1.31024463_wp, 1.21914682_wp, &
0.91559959_wp, 0.99579666_wp, 0.90140483_wp, 1.09420509_wp, 0.02609846_wp, &
0.49510247_wp, 0.69445869_wp, 0.54304437_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 8.09964704_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
2.23420044_wp, 1.80633279_wp, 2.22319193_wp, 3.56359195_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 3.62926820_wp, &
0.26212102_wp, 0.15334756_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.37162766_wp, 2.02275702_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.61716906_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_water = gbsa_parameter ( &
80.20000000_wp, &
18.00000000_wp, &
1.00000000_wp, &
1.50557042_wp, &
1.06150499_wp, &
0.22900284_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.15861883_wp, 1.11594265_wp, -7.17262733_wp, -17.28107859_wp, -0.96421647_wp, &
-0.16966314_wp, -2.70277311_wp, 2.89514689_wp, 1.98447303_wp, 0.95766585_wp, &
-4.94057825_wp, -1.85045313_wp, -1.10297774_wp, 0.97147181_wp, 0.89398382_wp, &
-0.32728918_wp, -0.27256222_wp, -0.29313565_wp, -4.45151590_wp, -10.00272040_wp, &
-9.27577265_wp, -8.39532691_wp, -3.18714094_wp, -5.89756827_wp, -5.26519533_wp, &
-4.21402518_wp, 7.93823603_wp, -0.52337914_wp, -1.18971907_wp, -2.75196775_wp, &
-1.81053577_wp, -0.06534136_wp, -0.68264403_wp, -0.32885513_wp, -0.52360079_wp, &
0.10756154_wp, -3.76447879_wp, -12.84754008_wp, -8.60985765_wp, -1.46041163_wp, &
-1.40356029_wp, -6.47985172_wp, -9.81735491_wp, -0.07563608_wp, 1.91606420_wp, &
-1.38143122_wp, -0.99090616_wp, -2.32313747_wp, -2.72603058_wp, -0.32241906_wp, &
-0.66066552_wp, -0.64330823_wp, -0.80037265_wp, -0.08095751_wp, -4.58038752_wp, &
-9.12394983_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -4.44071529_wp, -4.15890530_wp, -1.74312606_wp, -4.88122538_wp, &
0.90285768_wp, -0.25777571_wp, 0.28688631_wp, 0.34330686_wp, -0.67763269_wp, &
-1.94362971_wp, -0.57751205_wp, -1.31417032_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.80000000_wp, 1.98704003_wp, 0.30000000_wp, 0.06202811_wp, 1.00916124_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.30000000_wp, &
0.30000000_wp, 0.30000000_wp, 1.01227524_wp, 0.70612764_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.30000000_wp, 0.30000000_wp, 1.36850025_wp, &
1.02356918_wp, 1.11617092_wp, 1.00438013_wp, 1.10854209_wp, 1.53109997_wp, &
1.54540589_wp, 1.54627200_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.07873819_wp, 0.60269164_wp, 0.85091800_wp, 0.95658547_wp, 1.46537342_wp, &
0.77976218_wp, 2.53932466_wp, 0.30000000_wp, 1.11149064_wp, 1.12015423_wp, &
0.86802421_wp, 1.33757902_wp, 0.96535450_wp, 1.65520660_wp, 0.78718030_wp, &
1.79999072_wp, 0.82592786_wp, 0.09544964_wp, 0.44276722_wp, 0.30000000_wp, &
1.11093523_wp, 0.65427835_wp, 1.21196701_wp, 1.31594916_wp, 0.30000000_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.19510330_wp, 1.30392443_wp, 1.25146200_wp, 0.93400003_wp, &
0.97358897_wp, 1.18537490_wp, 0.80000000_wp, 0.80000000_wp, 0.86671486_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 8.39419538_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
4.06977302_wp, 1.25166226_wp, 1.21560073_wp, 0.37001989_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 5.88337049_wp, &
0.45453610_wp, 2.03667543_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.37162766_wp, 2.02275702_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.61716906_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_alpb_woctanol.fh 0000664 0000000 0000000 00000037742 14650006642 0020310 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_alpb_woctanol = gbsa_parameter ( &
9.86290000_wp, &
130.23000000_wp, &
0.83000000_wp, &
1.89046483_wp, &
0.85484238_wp, &
2.12513670_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.92219873_wp, 0.17797378_wp, -8.17050925_wp, -7.65380739_wp, -1.72130514_wp, &
-2.31099379_wp, -0.59404323_wp, 0.56273267_wp, 0.12904692_wp, -0.05878552_wp, &
-8.17638304_wp, -2.84673030_wp, -2.70229684_wp, -0.91280598_wp, -1.76029273_wp, &
-1.82582857_wp, -1.57389400_wp, -0.93627572_wp, -1.92353093_wp, -2.56251678_wp, &
-4.35500206_wp, -1.54577684_wp, -2.67031704_wp, -3.94079102_wp, -4.12614130_wp, &
-3.16596342_wp, 2.11832903_wp, -2.52765304_wp, -2.13987282_wp, -3.73811352_wp, &
0.00000000_wp, -1.49534547_wp, -2.54959649_wp, -1.90553653_wp, -1.96928812_wp, &
-0.96604482_wp, -2.06586737_wp, -3.57528162_wp, 0.00000000_wp, 0.94692619_wp, &
-3.22974019_wp, 3.22382287_wp, -6.80157139_wp, 0.13840700_wp, -0.76788810_wp, &
-2.95573016_wp, -2.18702153_wp, -1.25585210_wp, -3.19801106_wp, -1.47696903_wp, &
-2.43114417_wp, -2.33408011_wp, -2.13156263_wp, -1.03206842_wp, -2.83861790_wp, &
-2.62662931_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.19864270_wp, -3.75145103_wp, -0.07626679_wp, -5.49937931_wp, &
-2.13717756_wp, -3.33748263_wp, -2.67936035_wp, -2.14306878_wp, -1.35437504_wp, &
-2.15308814_wp, -2.30499781_wp, -1.39325323_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.62694400_wp, 0.30000000_wp, 0.97109809_wp, 1.00488371_wp, 0.99095765_wp, &
0.69146095_wp, 0.30000000_wp, 0.30000000_wp, 0.28029123_wp, 0.06991508_wp, &
0.04834051_wp, 1.05096871_wp, 0.99432264_wp, 0.79507419_wp, 0.70744991_wp, &
0.64739185_wp, 0.30000000_wp, 0.92786032_wp, 0.30000000_wp, 1.42532384_wp, &
0.99810251_wp, 1.05324997_wp, 1.19486881_wp, 1.04847907_wp, 1.12157675_wp, &
1.10214433_wp, 0.94643022_wp, 0.97281771_wp, 0.99797504_wp, 0.45145007_wp, &
1.12420265_wp, 0.68520829_wp, 1.15629435_wp, 1.19436684_wp, 1.06240165_wp, &
0.30000000_wp, 0.30000000_wp, 0.68020607_wp, 1.54032209_wp, 1.24088082_wp, &
1.00144739_wp, 1.41123482_wp, 1.14724231_wp, 1.05661029_wp, 1.02203835_wp, &
0.96289076_wp, 1.17147561_wp, 0.41872251_wp, 0.92479741_wp, 0.87713967_wp, &
1.05669761_wp, 0.88314877_wp, 1.43409825_wp, 0.69501212_wp, 1.03271362_wp, &
0.30000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.19760350_wp, 1.05509528_wp, 1.32055295_wp, 1.06560908_wp, &
1.03810957_wp, 1.34935966_wp, 1.18284767_wp, 1.05702039_wp, 1.24907739_wp, &
0.60123427_wp, 0.79965069_wp, 1.10915658_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 4.31223409_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
1.40405882_wp, 0.42231686_wp, 0.25536336_wp, 0.94857820_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 3.69766219_wp, &
3.75587768_wp, 1.87883478_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 1.97758816_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 1.55106831_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_alpb_woctanol = gbsa_parameter ( &
9.86290000_wp, &
130.23000000_wp, &
0.83000000_wp, &
1.61503543_wp, &
0.48474691_wp, &
1.57636999_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.16531035_wp, 0.15400251_wp, -7.29505708_wp, -6.92108479_wp, -1.90066124_wp, &
-2.39668191_wp, -1.93160159_wp, 1.09209376_wp, 0.32771424_wp, -0.00692900_wp, &
-10.04402154_wp, -3.29244006_wp, -2.11370570_wp, -0.17668798_wp, -2.22054477_wp, &
-2.08917815_wp, -1.67594007_wp, -0.72693210_wp, -1.41680106_wp, -3.25078235_wp, &
-4.31771202_wp, -3.56728566_wp, -2.79213857_wp, -7.17461986_wp, -5.03691775_wp, &
-4.12095913_wp, -3.11311579_wp, -1.67264344_wp, -1.53159485_wp, -4.10993799_wp, &
-2.92842594_wp, -2.13168832_wp, -2.85015528_wp, -1.49735630_wp, -2.02695519_wp, &
-0.82672883_wp, -2.16257109_wp, -4.30867113_wp, -5.48068119_wp, 2.96187570_wp, &
-3.38544740_wp, -1.72989709_wp, -7.03494832_wp, -4.81575078_wp, -1.12140213_wp, &
-2.37375979_wp, -2.55847796_wp, -1.88753081_wp, -3.05082878_wp, -1.29182261_wp, &
-2.66606103_wp, -2.49069454_wp, -2.19407569_wp, -0.76000453_wp, -2.14509302_wp, &
-4.94583201_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.57355318_wp, -2.14357748_wp, -3.46058590_wp, -7.44068284_wp, &
-5.63337544_wp, -2.44278043_wp, -2.20054033_wp, -2.03319381_wp, -2.11730852_wp, &
-2.40760023_wp, -2.12279947_wp, -1.71809404_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.79740323_wp, 1.42704421_wp, 0.30000000_wp, 0.84930829_wp, 0.94053705_wp, &
0.71294102_wp, 0.41315557_wp, 0.10903752_wp, 0.54083051_wp, 1.49011806_wp, &
0.30000000_wp, 1.13700779_wp, 0.79561367_wp, 0.81464854_wp, 0.78522026_wp, &
0.94325024_wp, 0.59762370_wp, 0.87618008_wp, 0.30000000_wp, 1.25627726_wp, &
0.99040000_wp, 1.05129906_wp, 1.16850823_wp, 1.21731707_wp, 1.17468219_wp, &
1.11410026_wp, 1.46827948_wp, 1.12202311_wp, 1.00062525_wp, 1.18824199_wp, &
1.13090107_wp, 0.88700962_wp, 1.13804632_wp, 1.23577058_wp, 1.16618260_wp, &
0.95747171_wp, 0.30000000_wp, 0.59614255_wp, 1.49375672_wp, 0.95206613_wp, &
1.21021349_wp, 1.56301734_wp, 1.06430351_wp, 1.38889074_wp, 1.27424891_wp, &
1.13131865_wp, 1.26716290_wp, 1.18569309_wp, 0.78154893_wp, 0.83488723_wp, &
1.11082387_wp, 0.07128553_wp, 1.33670711_wp, 0.86747398_wp, 0.30000000_wp, &
0.99793477_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.28484313_wp, 1.04263261_wp, 1.31898601_wp, 1.22064579_wp, &
1.07815523_wp, 1.44458556_wp, 1.16104008_wp, 1.10531249_wp, 1.32222214_wp, &
0.70207407_wp, 0.98315389_wp, 1.13356860_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 6.78861979_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
2.92814324_wp, 3.68750347_wp, 1.48885028_wp, 0.01079927_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.02936796_wp, &
0.08907567_wp, 0.08617914_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.01057765_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 3.18651808_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfnff_alpb_woctanol = gbsa_parameter ( &
9.86290000_wp, &
130.23000000_wp, &
0.83000000_wp, &
1.70928005_wp, &
0.46659668_wp, &
1.58925570_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.21641888_wp, 0.15808463_wp, -7.36300479_wp, -7.22866726_wp, -1.89346056_wp, &
-2.29522034_wp, -2.05405497_wp, 0.94076726_wp, 0.18711821_wp, -0.00720355_wp, &
-9.19396808_wp, -3.29665413_wp, -1.74753687_wp, -0.37759843_wp, -2.12305350_wp, &
-2.35568317_wp, -1.87898086_wp, -0.69280396_wp, -1.44724493_wp, -3.25586585_wp, &
-3.67422763_wp, 1.40975273_wp, -2.92105250_wp, -6.30425581_wp, -2.91719185_wp, &
-1.56460814_wp, 19.43529496_wp, 5.01624593_wp, -0.94478845_wp, -3.66403500_wp, &
-2.95950740_wp, -2.22354062_wp, -2.87946811_wp, -1.43221794_wp, -1.95098311_wp, &
-0.81908933_wp, -2.13009882_wp, -2.21431394_wp, -9.50300762_wp, -0.13238407_wp, &
-9.16204377_wp, -4.21919442_wp, 9.93151537_wp, -22.85799520_wp, 4.05080801_wp, &
3.79288692_wp, -2.14258794_wp, -3.07795145_wp, -3.09541908_wp, -1.31263843_wp, &
-2.70400623_wp, -2.55703467_wp, -2.25059082_wp, -0.75559959_wp, -2.01200663_wp, &
-4.99455126_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.02939341_wp, -2.32179232_wp, 10.08930797_wp, 1.84034639_wp, &
5.88795037_wp, 2.08544403_wp, -1.10022004_wp, -1.02018075_wp, -1.96795169_wp, &
-2.58541813_wp, -1.71845882_wp, -1.71899103_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.98908547_wp, 1.51747332_wp, 0.30000000_wp, 0.86940788_wp, 0.94762360_wp, &
0.81529389_wp, 0.64937455_wp, 0.30000000_wp, 0.30000000_wp, 1.93141383_wp, &
0.30000000_wp, 1.09097624_wp, 0.76555022_wp, 0.80902402_wp, 0.66316547_wp, &
1.02763420_wp, 0.62233747_wp, 1.24017219_wp, 0.30000000_wp, 1.25670792_wp, &
0.99094313_wp, 1.09746596_wp, 1.24046306_wp, 1.21618372_wp, 0.72000151_wp, &
1.21183029_wp, 0.82167731_wp, 1.30265307_wp, 1.05094257_wp, 1.13194092_wp, &
1.12763372_wp, 0.91487003_wp, 1.13089483_wp, 1.23600701_wp, 1.09575062_wp, &
1.07212893_wp, 0.30000000_wp, 2.83022124_wp, 1.43216794_wp, 1.06921885_wp, &
1.27940521_wp, 0.90872433_wp, 0.80000000_wp, 1.33302088_wp, 0.85424985_wp, &
1.11049284_wp, 1.27142651_wp, 1.09090467_wp, 0.79401541_wp, 0.89217043_wp, &
1.10476291_wp, 0.66121836_wp, 1.35873651_wp, 1.01715577_wp, 0.30000000_wp, &
0.97915952_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.15286879_wp, 1.04594370_wp, 0.67987256_wp, 0.80000000_wp, &
0.80000000_wp, 0.91139713_wp, 0.99842861_wp, 1.09020761_wp, 1.30874856_wp, &
0.79395413_wp, 0.98597854_wp, 1.13055647_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 6.72807729_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
3.61297394_wp, 3.02014723_wp, 1.79329814_wp, 0.27228162_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.01147421_wp, &
1.50532036_wp, 1.62200766_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.01568869_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.53740347_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_cosmo.fh 0000664 0000000 0000000 00000012502 14650006642 0016567 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn_cosmo = gbsa_parameter ( &
76.36000000_wp, &
18.00000000_wp, &
1.00000000_wp, &
1.00000000_wp, &
1.30000000_wp, &
0.00000000_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.08499967_wp, 0.46780225_wp, -2.87013596_wp, -3.95935069_wp, -0.29783987_wp, &
-0.48323273_wp, 0.00133622_wp, 0.20448945_wp, 0.20150600_wp, 0.36379863_wp, &
-3.47082133_wp, -0.93451053_wp, -1.46342018_wp, -0.32774697_wp, -0.38015204_wp, &
-0.35311116_wp, -0.19972593_wp, -0.12891363_wp, -1.19450558_wp, -1.61289300_wp, &
-4.68022533_wp, 3.22705056_wp, -1.76349679_wp, -1.78246886_wp, -1.41389733_wp, &
-2.03424961_wp, -13.15585203_wp, -0.60232543_wp, -0.51255518_wp, -1.05389890_wp, &
-0.80992362_wp, -0.04534252_wp, -0.48402589_wp, -0.34738945_wp, -0.31467674_wp, &
-0.13545936_wp, -1.19984632_wp, -1.57439157_wp, -7.77905850_wp, -0.25386776_wp, &
-1.36181862_wp, -1.89986750_wp, -1.66264106_wp, 0.63693473_wp, -0.42449931_wp, &
-0.73041159_wp, -0.48383194_wp, -0.60860050_wp, -1.34579404_wp, -0.28314431_wp, &
-0.58997478_wp, -0.50506060_wp, -0.36680822_wp, -0.28828614_wp, -1.50384745_wp, &
-1.72772005_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.95945946_wp, -0.97138135_wp, -2.83432331_wp, -2.01934203_wp, &
-1.19296724_wp, -0.73245256_wp, -0.58420150_wp, -0.43386368_wp, -0.70607621_wp, &
-0.73268812_wp, -1.00876694_wp, -0.52518304_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_cosmo_inf.fh 0000664 0000000 0000000 00000012506 14650006642 0017427 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn_cosmo_inf = gbsa_parameter ( &
76.36000000_wp, &
18.00000000_wp, &
1.00000000_wp, &
1.00000000_wp, &
2.94903643_wp, &
0.00000000_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.35147423_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
-0.26053405_wp, -0.85100961_wp, -0.38455056_wp, 0.02328270_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, -0.03236934_wp, &
-0.25944025_wp, 0.01711509_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.93069759_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.11953986_wp, 1.21082767_wp, 1.06487129_wp, 0.95536183_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00338080_wp, &
1.17965821_wp, 1.16340197_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_acetone.fh 0000664 0000000 0000000 00000025212 14650006642 0020063 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_acetone = gbsa_parameter ( &
20.70000000_wp, &
58.08000000_wp, &
0.79000000_wp, &
1.54870752_wp, &
0.71032070_wp, &
1.36853684_wp, &
0.08071897_wp, &
0.00000000_wp, &
(/ -0.98731552_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
-2.62406378_wp, 0.30557909_wp, 3.53236786_wp, 0.69497577_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, -2.66183381_wp, &
-2.25139035_wp, -1.24115367_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.59799831_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.76509182_wp, 1.03142132_wp, 0.30000000_wp, 0.50324343_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.88345825_wp, &
0.71006329_wp, 0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 3.43050617_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_acetone = gbsa_parameter ( &
20.70000000_wp, &
58.08000000_wp, &
0.79000000_wp, &
1.65675010_wp, &
0.64361954_wp, &
2.51979630_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.35052056_wp, -0.22296822_wp, -5.04262750_wp, -14.86182554_wp, -2.77732906_wp, &
-3.05982100_wp, -3.56385325_wp, -0.47453149_wp, -0.42644870_wp, -0.17141894_wp, &
-8.65851292_wp, -1.20826112_wp, -1.92238451_wp, -0.30619355_wp, -2.92876387_wp, &
-2.50114233_wp, -1.80493039_wp, -1.24179658_wp, -2.21649285_wp, -0.75268326_wp, &
-3.16207694_wp, 1.59509410_wp, -1.57257145_wp, -5.68467230_wp, -5.36613402_wp, &
-0.90149540_wp, -2.71219536_wp, -3.04972278_wp, -2.20572762_wp, -2.09749626_wp, &
-2.45152845_wp, -2.20749935_wp, -2.42976697_wp, -1.83335522_wp, -2.34857165_wp, &
-1.27206329_wp, -2.08614545_wp, -1.69269681_wp, -6.19230939_wp, -1.48192469_wp, &
0.38466280_wp, 0.16474694_wp, -5.84551742_wp, -4.52400741_wp, -3.55224345_wp, &
-2.64172170_wp, -2.54937854_wp, -2.09323155_wp, -2.05296176_wp, -1.84057130_wp, &
-1.31300153_wp, -2.42176483_wp, -2.94891199_wp, -0.81937847_wp, -0.92131409_wp, &
0.03019804_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.55172610_wp, 0.77547471_wp, 2.65157697_wp, -2.96355251_wp, &
-1.41394964_wp, -2.51024013_wp, -1.09176895_wp, -1.55086367_wp, -1.29392925_wp, &
-1.17475777_wp, -0.81790548_wp, -0.51629805_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.68263846_wp, 0.30000000_wp, 0.47711412_wp, 0.77764618_wp, &
0.81869146_wp, 1.16315604_wp, 0.30000000_wp, 0.46741656_wp, 1.36279310_wp, &
0.58743391_wp, 0.85928910_wp, 0.74075884_wp, 0.89163639_wp, 1.02191782_wp, &
0.98823912_wp, 0.69742753_wp, 0.72391786_wp, 0.86209653_wp, 0.30000000_wp, &
1.05533700_wp, 0.97114178_wp, 1.09321216_wp, 1.28918510_wp, 0.84911412_wp, &
0.90457266_wp, 0.87378999_wp, 1.13913963_wp, 0.69407097_wp, 0.97502881_wp, &
0.74311478_wp, 0.88912064_wp, 1.02181042_wp, 1.01842942_wp, 0.59847219_wp, &
0.77197542_wp, 0.30000000_wp, 0.36494523_wp, 1.29509188_wp, 1.12574788_wp, &
1.15038074_wp, 0.73458769_wp, 1.12413515_wp, 1.17933034_wp, 1.16585309_wp, &
1.12183143_wp, 0.86663082_wp, 0.97478728_wp, 0.72623178_wp, 0.87309444_wp, &
0.83184244_wp, 0.77606826_wp, 0.65422829_wp, 1.02989339_wp, 0.61555311_wp, &
0.81124127_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.17454721_wp, 1.00508147_wp, 0.72972913_wp, 0.92536799_wp, &
0.85964956_wp, 1.09012568_wp, 1.15844634_wp, 0.99209834_wp, 0.67098071_wp, &
0.70672300_wp, 0.90036977_wp, 0.59639286_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 7.19793177_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_acetonitrile.fh 0000664 0000000 0000000 00000025224 14650006642 0021132 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_acetonitrile = gbsa_parameter ( &
37.50000000_wp, &
41.05000000_wp, &
0.78600000_wp, &
1.47748206_wp, &
0.68742935_wp, &
2.64820749_wp, &
0.08775281_wp, &
0.00000000_wp, &
(/ -0.87712422_wp, 0.05854086_wp, -10.96034929_wp, -9.05632727_wp, -2.68691944_wp, &
-2.80630928_wp, -0.55783053_wp, 3.21467852_wp, 0.44043396_wp, -0.21263168_wp, &
-6.19880808_wp, -17.96274370_wp, -4.29427245_wp, -0.33536836_wp, -3.05011828_wp, &
-2.54644283_wp, -1.47759772_wp, -0.58036166_wp, -6.36214363_wp, -11.51304700_wp, &
-8.48214683_wp, -0.96377586_wp, -9.09160488_wp, -9.30415276_wp, -7.67714793_wp, &
-3.23870810_wp, -4.54522486_wp, -3.75345418_wp, -2.67747060_wp, -11.63964312_wp, &
-2.84557745_wp, -1.81022129_wp, -2.23036924_wp, -1.87520424_wp, -2.61823231_wp, &
-0.74884886_wp, -5.65659118_wp, -14.21180242_wp, -12.50073307_wp, 0.28439278_wp, &
-4.46553278_wp, -8.22344111_wp, 1.00000000_wp, -3.86401927_wp, -0.46353771_wp, &
-2.11061586_wp, -2.36522407_wp, -2.34938047_wp, -2.91312353_wp, -1.36067206_wp, &
-1.19642367_wp, -1.89574272_wp, -3.01899181_wp, -0.67042026_wp, -4.48041171_wp, &
-11.42298821_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, -2.82120676_wp, -3.58303568_wp, -2.88564787_wp, -7.67575403_wp, &
-2.07705636_wp, -1.93914190_wp, -2.84112970_wp, -2.37551268_wp, -1.05373370_wp, &
-3.01337371_wp, -0.66386840_wp, -0.50281089_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.60515909_wp, 1.91196227_wp, 1.25655379_wp, 1.18575295_wp, 0.84370639_wp, &
0.80838262_wp, 1.06660397_wp, 0.30000000_wp, 0.64855180_wp, 1.63595010_wp, &
1.04490918_wp, 1.27088204_wp, 1.04262981_wp, 0.88432057_wp, 0.90112086_wp, &
0.74658950_wp, 0.65699448_wp, 1.30915859_wp, 1.17193619_wp, 1.22772112_wp, &
0.92834987_wp, 0.95381415_wp, 1.08974484_wp, 1.09832095_wp, 0.93926096_wp, &
0.84342704_wp, 0.82932941_wp, 0.98431663_wp, 0.83273417_wp, 0.92841938_wp, &
0.49296618_wp, 0.81718039_wp, 0.90669904_wp, 0.85462954_wp, 0.97132706_wp, &
1.29800773_wp, 1.02625667_wp, 1.21642482_wp, 1.34596356_wp, 1.07828588_wp, &
1.08403943_wp, 0.72629720_wp, 0.80000000_wp, 0.91014466_wp, 0.95888983_wp, &
1.03724923_wp, 1.21081189_wp, 1.34333032_wp, 0.73358908_wp, 0.72962380_wp, &
0.84041472_wp, 0.93791884_wp, 0.75947406_wp, 1.08689045_wp, 1.00889930_wp, &
0.87968799_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.99347231_wp, 0.99499187_wp, 1.11573218_wp, 1.10241914_wp, &
0.80988747_wp, 0.94943528_wp, 0.85477814_wp, 1.39477093_wp, 1.31876099_wp, &
1.22263329_wp, 1.05252130_wp, 1.05662068_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 2.92281633_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_acetonitrile = gbsa_parameter ( &
37.50000000_wp, &
41.05000000_wp, &
0.78600000_wp, &
1.58004143_wp, &
0.71601842_wp, &
1.28468468_wp, &
0.07296421_wp, &
0.00000000_wp, &
(/ -0.91538847_wp, 0.15234619_wp, -7.77378577_wp, -17.93775240_wp, -2.10694211_wp, &
-2.78961759_wp, -3.32818512_wp, -0.94755319_wp, 0.06710156_wp, 0.10584741_wp, &
-9.10281342_wp, -3.55578700_wp, -1.90531205_wp, 1.95226545_wp, -2.76227950_wp, &
-1.78498735_wp, -1.30097036_wp, -0.18242070_wp, -4.08583476_wp, -6.43687313_wp, &
-9.35837397_wp, -4.01862104_wp, -7.95029899_wp, -5.64763612_wp, -1.14154207_wp, &
5.85308733_wp, -1.48766221_wp, -1.65918476_wp, -1.47081683_wp, -3.94441452_wp, &
-3.39577984_wp, -1.40001480_wp, -2.13471267_wp, -1.16599951_wp, -1.86875461_wp, &
-0.27263929_wp, -4.15449115_wp, -6.49642216_wp, -11.08875150_wp, -9.46824193_wp, &
-7.58212146_wp, -4.24174944_wp, -5.43919729_wp, -3.07954066_wp, -0.36964868_wp, &
-1.92106303_wp, -1.82882366_wp, -0.62939289_wp, -3.94123861_wp, -1.28889054_wp, &
-1.15583378_wp, -2.21088690_wp, -2.50433473_wp, -0.60989805_wp, -5.59772238_wp, &
-6.07271917_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -10.23295074_wp, -4.78617129_wp, 2.30200939_wp, -2.47626969_wp, &
-1.55610789_wp, -0.43062370_wp, -0.58459165_wp, -0.50729560_wp, -2.25016445_wp, &
-2.30570264_wp, -0.71895676_wp, -0.69913215_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.84000577_wp, 1.93662293_wp, 0.75713741_wp, 0.70280267_wp, 0.66801866_wp, &
0.80702432_wp, 1.05090013_wp, 0.30000000_wp, 0.63060017_wp, 1.51948779_wp, &
0.86566219_wp, 0.58291039_wp, 0.71824983_wp, 0.86677510_wp, 0.82593733_wp, &
0.89899941_wp, 0.63868352_wp, 0.96358133_wp, 0.66545251_wp, 0.80480817_wp, &
0.95014908_wp, 1.02157323_wp, 1.09777786_wp, 1.02819731_wp, 0.85941838_wp, &
0.76594459_wp, 0.43395433_wp, 0.73254098_wp, 0.53395683_wp, 0.95050256_wp, &
0.74795875_wp, 0.80760598_wp, 0.82987365_wp, 0.76466789_wp, 0.76000744_wp, &
1.05463409_wp, 0.61531078_wp, 0.58475465_wp, 1.33976895_wp, 1.03559080_wp, &
1.14844125_wp, 0.72979791_wp, 1.00608294_wp, 0.97907242_wp, 0.93346416_wp, &
0.95757943_wp, 0.88025086_wp, 0.30000000_wp, 0.86304168_wp, 0.78311535_wp, &
0.70994875_wp, 0.81604514_wp, 0.65793507_wp, 0.96082869_wp, 0.81013575_wp, &
0.89928709_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.04125551_wp, 0.75085024_wp, 0.74226336_wp, 0.91221781_wp, &
0.71806441_wp, 0.81940683_wp, 1.12043056_wp, 0.30000000_wp, 0.80898668_wp, &
0.74848486_wp, 0.64544462_wp, 0.66087041_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 5.69994162_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_benzene.fh 0000664 0000000 0000000 00000025212 14650006642 0020073 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_benzene = gbsa_parameter ( &
7.00000000_wp, &
78.11000000_wp, &
0.86700000_wp, &
1.59772343_wp, &
0.64164499_wp, &
2.65359512_wp, &
0.28199945_wp, &
0.00000000_wp, &
(/ -1.52312760_wp, -0.47678463_wp, -7.62380554_wp, -6.90812975_wp, -2.83158018_wp, &
-2.92375089_wp, -0.80591624_wp, 0.79482640_wp, -0.63332208_wp, -0.27278544_wp, &
-7.63345991_wp, -10.62235584_wp, -3.00565892_wp, -0.45505795_wp, -3.13584269_wp, &
-2.57652857_wp, -2.09566380_wp, -1.33010780_wp, -6.25286814_wp, -7.64027873_wp, &
-5.85238752_wp, -2.42931989_wp, -5.86570370_wp, -11.73973648_wp, -5.98736548_wp, &
-3.30804991_wp, -3.53465626_wp, -3.02206125_wp, -2.58097950_wp, -6.79254306_wp, &
-2.65124749_wp, -2.33551214_wp, -2.41220535_wp, -1.81406443_wp, -2.50620689_wp, &
-1.42840445_wp, -6.52812645_wp, -9.53201953_wp, -8.05597510_wp, 2.39232808_wp, &
-3.18814624_wp, 0.36154727_wp, 0.00000000_wp, -3.92310422_wp, -1.06032777_wp, &
-2.07890670_wp, -3.09915062_wp, -2.19810693_wp, -2.67057919_wp, -1.71200090_wp, &
-1.93164354_wp, -2.12255908_wp, -3.05822619_wp, -1.51437103_wp, -2.69459743_wp, &
-7.02947565_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.43977123_wp, -2.91379030_wp, -1.83568969_wp, -9.36954475_wp, &
-1.59529996_wp, -1.87150137_wp, -1.77935600_wp, -2.23002166_wp, -1.17716732_wp, &
-2.83594104_wp, -0.89073737_wp, -0.72715773_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.59677857_wp, 1.76929017_wp, 1.23211723_wp, 0.96953016_wp, 0.85327734_wp, &
0.87412731_wp, 1.04113131_wp, 0.94134128_wp, 0.60103713_wp, 1.43204334_wp, &
1.25452792_wp, 1.22631016_wp, 0.93369080_wp, 0.91665550_wp, 0.88636585_wp, &
0.80104483_wp, 0.85591347_wp, 1.12386362_wp, 1.16665338_wp, 1.36878004_wp, &
0.99178698_wp, 0.98978835_wp, 1.06853285_wp, 0.94022134_wp, 0.75038502_wp, &
0.92518355_wp, 0.89334771_wp, 1.04110771_wp, 0.57953935_wp, 0.57989441_wp, &
1.01601655_wp, 0.80917147_wp, 0.99263049_wp, 0.92749899_wp, 0.41146042_wp, &
1.08464627_wp, 1.07152274_wp, 1.28906739_wp, 1.29996342_wp, 1.31999377_wp, &
1.10573275_wp, 0.87109897_wp, 0.80000000_wp, 1.11439105_wp, 1.01989383_wp, &
1.12955327_wp, 1.31221601_wp, 1.65514191_wp, 0.74871587_wp, 0.76769207_wp, &
1.20800631_wp, 1.07316024_wp, 0.79441455_wp, 0.91117165_wp, 1.01986808_wp, &
0.67396733_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.17472851_wp, 1.02353501_wp, 0.92359467_wp, 0.99264541_wp, &
0.84587036_wp, 1.02358725_wp, 1.03471038_wp, 1.50286433_wp, 1.51200187_wp, &
1.16407973_wp, 1.20948300_wp, 1.07081432_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_benzene = gbsa_parameter ( &
7.00000000_wp, &
78.11000000_wp, &
0.86700000_wp, &
1.56864732_wp, &
0.74685442_wp, &
2.83877748_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.50694301_wp, -0.52051145_wp, -5.30073377_wp, -11.52852601_wp, -2.92421984_wp, &
-2.65057861_wp, -2.87903272_wp, -1.37047180_wp, -0.48751187_wp, -0.30335830_wp, &
-5.94144474_wp, -1.48761509_wp, -2.06008258_wp, -0.86298441_wp, -2.84657014_wp, &
-2.43262928_wp, -1.85698137_wp, -1.25700282_wp, -2.16031353_wp, -0.65822232_wp, &
-5.77869522_wp, 0.19701829_wp, -4.70251132_wp, -2.05253608_wp, -2.51893952_wp, &
-0.49254574_wp, 10.20719293_wp, -1.50073871_wp, -2.39361059_wp, -2.35183965_wp, &
-2.44012978_wp, -2.20936107_wp, -2.35747455_wp, -1.74209746_wp, -2.29085994_wp, &
-1.41351533_wp, -2.21343671_wp, -1.56167296_wp, -5.99538644_wp, -0.56598164_wp, &
-4.47132656_wp, -2.43646746_wp, -3.71304534_wp, -2.72229012_wp, -1.77275188_wp, &
-2.22658489_wp, -2.55569323_wp, -2.52509589_wp, -2.52561356_wp, -1.90592090_wp, &
-2.01762201_wp, -2.39747582_wp, -2.87046623_wp, -1.00461466_wp, -0.24711217_wp, &
-0.30616722_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.74328559_wp, -3.65652173_wp, 2.99783090_wp, -0.43508472_wp, &
-0.36780192_wp, -2.26238181_wp, -1.30799380_wp, -1.49987551_wp, -1.63838071_wp, &
-1.30994279_wp, -0.95435762_wp, -0.99905842_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.53998804_wp, 0.67578863_wp, 0.97377845_wp, 0.81140818_wp, &
0.70398030_wp, 1.32614006_wp, 0.85560034_wp, 0.62220267_wp, 1.32703368_wp, &
0.74891818_wp, 0.30000000_wp, 0.68528486_wp, 0.90746438_wp, 0.90580718_wp, &
0.94868883_wp, 0.77839591_wp, 0.72209903_wp, 0.69511400_wp, 0.30000000_wp, &
1.05559918_wp, 1.05826730_wp, 1.04042554_wp, 0.80035125_wp, 0.89695582_wp, &
0.98962185_wp, 0.63768205_wp, 1.02347946_wp, 0.72529321_wp, 0.46166339_wp, &
0.70264395_wp, 0.79017965_wp, 0.69270983_wp, 0.94010259_wp, 0.30000000_wp, &
0.65877050_wp, 0.30000000_wp, 0.65424275_wp, 1.07262150_wp, 0.73384526_wp, &
1.04760606_wp, 0.76043320_wp, 1.19945969_wp, 0.88344350_wp, 0.80070141_wp, &
1.17400917_wp, 0.94331092_wp, 0.72523165_wp, 0.76250523_wp, 0.73447181_wp, &
0.55871535_wp, 0.66384378_wp, 0.59834033_wp, 0.79993610_wp, 0.59824016_wp, &
0.49615254_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.77923135_wp, 0.92170732_wp, 0.70388295_wp, 0.89972537_wp, &
0.97299413_wp, 0.85244821_wp, 1.09001850_wp, 0.95252827_wp, 0.60967486_wp, &
0.78738062_wp, 0.90805503_wp, 0.30000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_ch2cl2.fh 0000664 0000000 0000000 00000025210 14650006642 0017520 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_ch2cl2 = gbsa_parameter ( &
7.00000000_wp, &
84.93000000_wp, &
1.33000000_wp, &
1.49289571_wp, &
0.52215757_wp, &
2.22507118_wp, &
0.33897497_wp, &
0.00000000_wp, &
(/ -1.32703321_wp, -0.52472152_wp, -9.25425592_wp, -5.81831879_wp, -3.13024400_wp, &
-2.79555517_wp, -0.35247454_wp, 1.19202618_wp, -0.03585866_wp, -0.29949390_wp, &
-7.92357453_wp, -11.00290038_wp, -3.38013987_wp, -0.78352680_wp, -3.78476835_wp, &
-2.90899437_wp, -2.27746883_wp, -1.29940615_wp, -10.85488061_wp, -8.96175700_wp, &
-7.25550968_wp, -3.24485081_wp, -7.90349523_wp, -8.52451461_wp, -6.39316195_wp, &
-5.24592357_wp, 2.18080480_wp, -2.90586679_wp, -3.15688118_wp, -4.88062521_wp, &
-2.39355003_wp, -2.75774665_wp, -2.72538107_wp, -1.88469642_wp, -2.62331269_wp, &
-1.39939248_wp, -8.69502633_wp, -11.82948020_wp, -8.03159818_wp, 4.72129925_wp, &
-4.31154873_wp, 0.54995200_wp, 0.00000000_wp, -3.61184221_wp, -0.40590200_wp, &
-2.07839584_wp, -2.00520077_wp, -1.99324045_wp, -2.76795188_wp, -1.99464023_wp, &
-1.99697106_wp, -2.32600325_wp, -3.53478011_wp, -1.48329464_wp, -6.87881931_wp, &
-10.54299824_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.86376376_wp, -3.40060712_wp, -0.90694603_wp, -6.35403767_wp, &
-2.32194914_wp, -1.60393721_wp, -1.65185582_wp, -1.82762893_wp, -0.90397597_wp, &
-3.61999897_wp, -1.04204880_wp, -1.19039351_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.49838916_wp, 2.00984976_wp, 1.06201144_wp, 0.62158574_wp, 0.82561872_wp, &
0.82782356_wp, 0.99407173_wp, 0.91522366_wp, 0.66931993_wp, 1.92443743_wp, &
0.91116983_wp, 0.70288557_wp, 0.96732652_wp, 0.90542449_wp, 0.85547741_wp, &
0.69562335_wp, 0.92545456_wp, 1.40510832_wp, 1.27943277_wp, 1.02064161_wp, &
1.16813955_wp, 1.02426632_wp, 1.12897184_wp, 1.22500754_wp, 1.11474485_wp, &
1.09542472_wp, 1.05958267_wp, 1.07798345_wp, 0.80867616_wp, 0.69314726_wp, &
0.61129323_wp, 0.87608151_wp, 0.92464053_wp, 0.52656828_wp, 0.76471565_wp, &
1.34557402_wp, 1.06992827_wp, 1.16401722_wp, 1.29257405_wp, 1.29874357_wp, &
1.15498478_wp, 1.28654971_wp, 0.80000000_wp, 0.92506787_wp, 1.08841600_wp, &
1.23219707_wp, 0.90724530_wp, 1.77813654_wp, 0.73368755_wp, 0.72896231_wp, &
0.99196507_wp, 0.94684247_wp, 0.30000000_wp, 0.30000000_wp, 1.09111407_wp, &
0.80881589_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.07605546_wp, 1.07156566_wp, 1.09579855_wp, 1.15114384_wp, &
1.10164874_wp, 1.05961508_wp, 1.01308681_wp, 1.26300191_wp, 1.03078132_wp, &
1.05939620_wp, 0.92887439_wp, 1.12866218_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_ch2cl2 = gbsa_parameter ( &
8.93000000_wp, &
84.93000000_wp, &
1.33000000_wp, &
1.49173776_wp, &
0.71987590_wp, &
2.78666238_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.67483197_wp, -0.28713779_wp, -7.28249734_wp, -11.10448635_wp, -2.97926593_wp, &
-2.30638085_wp, -3.91770623_wp, -1.96047477_wp, -0.38570179_wp, -0.32043258_wp, &
-7.43382511_wp, -1.48312893_wp, -2.11112995_wp, -0.93434902_wp, -3.26752265_wp, &
-2.64055173_wp, -1.85302233_wp, -1.24950227_wp, -2.45911060_wp, -0.61295300_wp, &
-6.16964256_wp, 0.87316316_wp, -5.29681429_wp, -4.37951961_wp, -3.36703719_wp, &
-0.95611020_wp, -0.26245490_wp, -2.58768316_wp, -2.40997046_wp, -2.23826109_wp, &
-2.77874024_wp, -2.12445881_wp, -2.49574917_wp, -2.03984242_wp, -2.22755851_wp, &
-1.30924871_wp, -2.42521782_wp, -2.49375000_wp, -6.68783790_wp, -3.24094807_wp, &
-5.65031864_wp, -2.64322557_wp, -4.42697921_wp, -3.59693016_wp, -4.13311484_wp, &
-2.53125329_wp, -2.55410088_wp, -2.52713527_wp, -2.44600428_wp, -1.82534493_wp, &
-2.00370739_wp, -2.51133071_wp, -3.12670692_wp, -1.00985350_wp, -0.02860836_wp, &
-0.31368515_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.92510899_wp, -4.81701127_wp, 6.54778123_wp, -0.92035497_wp, &
-0.98873883_wp, -3.28664078_wp, -1.37270521_wp, -1.55367240_wp, -1.64062167_wp, &
-1.28474651_wp, -0.83375665_wp, -1.17186182_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.90514339_wp, 0.74545405_wp, 0.98955654_wp, 0.79197067_wp, &
0.72425028_wp, 1.26599804_wp, 0.93481893_wp, 0.72717132_wp, 1.38500738_wp, &
0.74348092_wp, 0.55226520_wp, 0.66038486_wp, 0.88836526_wp, 0.78414576_wp, &
0.90029067_wp, 0.76019359_wp, 1.24626674_wp, 0.56461834_wp, 0.30000000_wp, &
0.99276006_wp, 1.04477023_wp, 0.93237272_wp, 0.97376199_wp, 0.86352354_wp, &
1.19605509_wp, 0.96864127_wp, 0.91897364_wp, 0.68379013_wp, 0.30000000_wp, &
0.78310817_wp, 0.81062086_wp, 0.66330843_wp, 1.17962734_wp, 0.39287452_wp, &
1.02712906_wp, 0.30000000_wp, 0.30000000_wp, 0.74799755_wp, 1.11587944_wp, &
1.11001354_wp, 0.61616658_wp, 1.18388622_wp, 1.12788745_wp, 0.90378457_wp, &
1.16509468_wp, 0.80141713_wp, 0.77972741_wp, 0.71794731_wp, 0.65212826_wp, &
0.45343220_wp, 0.74827754_wp, 0.39084153_wp, 0.79960488_wp, 0.43795154_wp, &
0.51631425_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.06215801_wp, 0.81937375_wp, 0.57889123_wp, 0.83744571_wp, &
0.93174276_wp, 0.93184186_wp, 1.14567151_wp, 0.93895246_wp, 0.79990900_wp, &
0.68051400_wp, 0.91962889_wp, 0.30000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_chcl3.fh 0000664 0000000 0000000 00000025206 14650006642 0017444 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_chcl3 = gbsa_parameter ( &
7.00000000_wp, &
119.38000000_wp, &
1.49000000_wp, &
1.49289571_wp, &
0.52215757_wp, &
2.22507118_wp, &
0.33897497_wp, &
0.00000000_wp, &
(/ -1.32703321_wp, -0.52472152_wp, -9.25425592_wp, -5.81831879_wp, -3.13024400_wp, &
-2.79555517_wp, -0.35247454_wp, 1.19202618_wp, -0.03585866_wp, -0.29949390_wp, &
-7.92357453_wp, -11.00290038_wp, -3.38013987_wp, -0.78352680_wp, -3.78476835_wp, &
-2.90899437_wp, -2.27746883_wp, -1.29940615_wp, -10.85488061_wp, -8.96175700_wp, &
-7.25550968_wp, -3.24485081_wp, -7.90349523_wp, -8.52451461_wp, -6.39316195_wp, &
-5.24592357_wp, 2.18080480_wp, -2.90586679_wp, -3.15688118_wp, -4.88062521_wp, &
-2.39355003_wp, -2.75774665_wp, -2.72538107_wp, -1.88469642_wp, -2.62331269_wp, &
-1.39939248_wp, -8.69502633_wp, -11.82948020_wp, -8.03159818_wp, 4.72129925_wp, &
-4.31154873_wp, 0.54995200_wp, 0.00000000_wp, -3.61184221_wp, -0.40590200_wp, &
-2.07839584_wp, -2.00520077_wp, -1.99324045_wp, -2.76795188_wp, -1.99464023_wp, &
-1.99697106_wp, -2.32600325_wp, -3.53478011_wp, -1.48329464_wp, -6.87881931_wp, &
-10.54299824_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.86376376_wp, -3.40060712_wp, -0.90694603_wp, -6.35403767_wp, &
-2.32194914_wp, -1.60393721_wp, -1.65185582_wp, -1.82762893_wp, -0.90397597_wp, &
-3.61999897_wp, -1.04204880_wp, -1.19039351_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.49838916_wp, 2.00984976_wp, 1.06201144_wp, 0.62158574_wp, 0.82561872_wp, &
0.82782356_wp, 0.99407173_wp, 0.91522366_wp, 0.66931993_wp, 1.92443743_wp, &
0.91116983_wp, 0.70288557_wp, 0.96732652_wp, 0.90542449_wp, 0.85547741_wp, &
0.69562335_wp, 0.92545456_wp, 1.40510832_wp, 1.27943277_wp, 1.02064161_wp, &
1.16813955_wp, 1.02426632_wp, 1.12897184_wp, 1.22500754_wp, 1.11474485_wp, &
1.09542472_wp, 1.05958267_wp, 1.07798345_wp, 0.80867616_wp, 0.69314726_wp, &
0.61129323_wp, 0.87608151_wp, 0.92464053_wp, 0.52656828_wp, 0.76471565_wp, &
1.34557402_wp, 1.06992827_wp, 1.16401722_wp, 1.29257405_wp, 1.29874357_wp, &
1.15498478_wp, 1.28654971_wp, 0.80000000_wp, 0.92506787_wp, 1.08841600_wp, &
1.23219707_wp, 0.90724530_wp, 1.77813654_wp, 0.73368755_wp, 0.72896231_wp, &
0.99196507_wp, 0.94684247_wp, 0.30000000_wp, 0.30000000_wp, 1.09111407_wp, &
0.80881589_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.07605546_wp, 1.07156566_wp, 1.09579855_wp, 1.15114384_wp, &
1.10164874_wp, 1.05961508_wp, 1.01308681_wp, 1.26300191_wp, 1.03078132_wp, &
1.05939620_wp, 0.92887439_wp, 1.12866218_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_chcl3 = gbsa_parameter ( &
4.81000000_wp, &
119.38000000_wp, &
1.49000000_wp, &
1.35385322_wp, &
0.84269108_wp, &
2.57705263_wp, &
0.07739664_wp, &
0.00000000_wp, &
(/ -1.40224249_wp, -0.39918916_wp, -4.35761612_wp, -11.02930731_wp, -2.82022156_wp, &
-2.38013309_wp, -3.07139896_wp, -0.87148912_wp, -0.15390241_wp, -0.42649928_wp, &
-5.62463786_wp, -1.31726393_wp, -2.35594923_wp, -0.69284388_wp, -3.03987986_wp, &
-2.25595026_wp, -1.89157729_wp, -1.33884944_wp, -2.44786705_wp, -0.59935221_wp, &
-5.31492587_wp, -2.20263983_wp, -5.45421204_wp, -3.17341084_wp, -2.45156102_wp, &
-1.13842229_wp, -6.17390060_wp, -1.42694564_wp, -2.15135792_wp, -2.20738066_wp, &
-2.44694263_wp, -2.34870979_wp, -2.37890823_wp, -1.39727148_wp, -2.13180988_wp, &
-1.50187701_wp, -1.93026335_wp, -2.24421001_wp, -6.42889593_wp, -0.24381935_wp, &
-4.66662688_wp, -2.28543446_wp, -3.92096351_wp, -2.21066898_wp, -3.63327137_wp, &
-1.72273738_wp, -2.38332510_wp, -1.72443846_wp, -2.41028874_wp, -1.94271671_wp, &
-1.45599155_wp, -2.29878306_wp, -2.98470401_wp, -1.16737231_wp, -0.71104904_wp, &
-0.16472062_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.26072944_wp, -5.01913342_wp, -1.41006655_wp, -4.46088393_wp, &
-1.21496874_wp, -3.15096373_wp, -1.31495436_wp, -1.67104118_wp, -1.49106045_wp, &
-1.35087941_wp, -1.04580405_wp, -1.01233149_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 2.00750187_wp, 1.00481867_wp, 0.30000000_wp, 0.84879465_wp, &
0.65269211_wp, 1.28114052_wp, 0.94361242_wp, 0.80123358_wp, 1.83594082_wp, &
0.60112303_wp, 0.56654483_wp, 0.44937919_wp, 0.90402485_wp, 0.47643737_wp, &
0.77686305_wp, 1.08365036_wp, 1.35379827_wp, 1.20608278_wp, 0.30000000_wp, &
1.02311075_wp, 1.06996218_wp, 1.22396497_wp, 1.34196639_wp, 1.00390068_wp, &
1.12223190_wp, 0.30000000_wp, 1.11226136_wp, 0.78325275_wp, 0.30000000_wp, &
0.74129737_wp, 0.81647359_wp, 0.66168300_wp, 0.55712906_wp, 0.30000000_wp, &
1.24637409_wp, 1.06104837_wp, 1.25921888_wp, 1.07753846_wp, 1.33233387_wp, &
1.27052051_wp, 0.90302642_wp, 1.19085747_wp, 1.03127834_wp, 0.88247477_wp, &
1.21415833_wp, 0.92499980_wp, 1.74218982_wp, 0.72691432_wp, 0.63751113_wp, &
0.30000000_wp, 0.31378000_wp, 0.30000000_wp, 0.55045705_wp, 1.11366273_wp, &
0.55722029_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.09297339_wp, 1.13145314_wp, 1.02126490_wp, 1.24961053_wp, &
1.12226099_wp, 1.11953985_wp, 1.17484587_wp, 1.28553469_wp, 0.73334121_wp, &
0.99091699_wp, 0.92022599_wp, 1.13107676_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_cs2.fh 0000664 0000000 0000000 00000025202 14650006642 0017133 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_cs2 = gbsa_parameter ( &
2.60000000_wp, &
76.13000000_wp, &
1.26600000_wp, &
1.18273365_wp, &
0.71354327_wp, &
3.37941625_wp, &
0.08027956_wp, &
0.00000000_wp, &
(/ -1.59193848_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
-3.27628791_wp, 1.66032479_wp, 1.97046715_wp, -1.34661167_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, -3.08190918_wp, &
-2.31551512_wp, -2.66430226_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.97012484_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.88983137_wp, 1.00509586_wp, 1.05601217_wp, 0.80228636_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.75808454_wp, &
0.60852409_wp, 0.92019709_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_cs2 = gbsa_parameter ( &
2.64000000_wp, &
76.14000000_wp, &
1.26000000_wp, &
1.40636177_wp, &
0.74329373_wp, &
2.81072250_wp, &
0.00875111_wp, &
0.00000000_wp, &
(/ -1.44799804_wp, -0.21766562_wp, -4.87939161_wp, -7.58542202_wp, -2.62473530_wp, &
-3.22859995_wp, -2.36362362_wp, -1.08346241_wp, -0.91204188_wp, -0.24699289_wp, &
-6.22674760_wp, -1.49892103_wp, -1.71955875_wp, -0.41453333_wp, -2.45198214_wp, &
-2.49097868_wp, -2.25994690_wp, -1.14425445_wp, -1.27575631_wp, -5.32159355_wp, &
-3.79064287_wp, 0.31469847_wp, -2.14096821_wp, -1.87864558_wp, -1.21850253_wp, &
-0.89855694_wp, 0.83486857_wp, -1.26921775_wp, -2.06139867_wp, -2.35211852_wp, &
-2.54771219_wp, -2.00997722_wp, -2.10628460_wp, -1.60855536_wp, -3.22845209_wp, &
-1.25788796_wp, -1.73800411_wp, -0.82817737_wp, -6.80306720_wp, 0.28878658_wp, &
-2.24178809_wp, -0.35385730_wp, -2.27613506_wp, -2.87458317_wp, -2.06906558_wp, &
-1.64445804_wp, -2.15207055_wp, -2.17928002_wp, -2.00685271_wp, -1.61939605_wp, &
-1.37636403_wp, -2.04001572_wp, -3.27762061_wp, -1.01222929_wp, -0.02314733_wp, &
-0.40769168_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.32297707_wp, -2.27781319_wp, 0.86073858_wp, -1.77952156_wp, &
-1.32570994_wp, -1.06456002_wp, -0.84007379_wp, -1.23720944_wp, -0.91224267_wp, &
-1.00281909_wp, -0.79729718_wp, -0.92942177_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.93699367_wp, 0.38364047_wp, 0.96056410_wp, 1.00789644_wp, 0.80213645_wp, &
0.83307834_wp, 1.02661619_wp, 0.96508008_wp, 0.49013084_wp, 0.30000000_wp, &
1.20470949_wp, 0.30000000_wp, 0.61701017_wp, 0.80259048_wp, 0.57774746_wp, &
0.95748589_wp, 0.78136558_wp, 0.30000000_wp, 0.75516989_wp, 0.78712705_wp, &
0.91492983_wp, 1.02323139_wp, 1.03056314_wp, 1.31268233_wp, 0.74452937_wp, &
1.32357113_wp, 0.81929032_wp, 0.74873442_wp, 1.06645349_wp, 1.00639390_wp, &
0.92065852_wp, 0.77829892_wp, 1.08306687_wp, 1.07338400_wp, 0.30000000_wp, &
1.27090652_wp, 0.30000000_wp, 0.30000000_wp, 1.17343866_wp, 0.81721997_wp, &
1.06406349_wp, 0.44731611_wp, 1.28258212_wp, 1.34855350_wp, 0.96095193_wp, &
1.17503498_wp, 1.07905886_wp, 1.01436978_wp, 0.76340079_wp, 0.64749372_wp, &
0.30000000_wp, 0.37737014_wp, 0.30000000_wp, 0.58202362_wp, 0.68939189_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.86961760_wp, 0.94910939_wp, 0.30000000_wp, 0.93536933_wp, &
1.30109906_wp, 1.03971894_wp, 1.17570267_wp, 1.09549856_wp, 0.30000000_wp, &
0.79885417_wp, 0.99522474_wp, 1.10694939_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_dmf.fh 0000664 0000000 0000000 00000012501 14650006642 0017210 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn2_dmf = gbsa_parameter ( &
37.00000000_wp, &
73.10000000_wp, &
0.95000000_wp, &
1.71813723_wp, &
0.71573191_wp, &
2.10659266_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.25099906_wp, -0.12398069_wp, -4.83052397_wp, -14.28358672_wp, -2.53931516_wp, &
-2.95148764_wp, -3.08952060_wp, -0.65902085_wp, -0.38367538_wp, -0.15606032_wp, &
-6.09319494_wp, -1.05471663_wp, -1.78706583_wp, -0.06307133_wp, -2.32673370_wp, &
-2.31428078_wp, -1.66299394_wp, -1.24764542_wp, -2.44511416_wp, -0.45254161_wp, &
-0.90358244_wp, 0.17121838_wp, -1.88402479_wp, -5.10034519_wp, -0.58060016_wp, &
2.09445061_wp, 2.16590146_wp, -2.70143053_wp, -2.20718608_wp, -1.79355737_wp, &
-2.32637352_wp, -2.11160510_wp, -2.33863809_wp, -1.65128837_wp, -2.27602615_wp, &
-1.23224500_wp, -2.19850677_wp, -1.54776183_wp, -2.60917701_wp, 1.20412143_wp, &
0.38642485_wp, 0.97188897_wp, -4.36081596_wp, -4.22980810_wp, -2.59528301_wp, &
-2.43285477_wp, -2.36501467_wp, -1.81715371_wp, -1.87232266_wp, -1.74919399_wp, &
-1.14096957_wp, -2.28229902_wp, -2.87721546_wp, -0.84519040_wp, 0.00522748_wp, &
0.00265869_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.57681940_wp, 0.10205359_wp, 2.32289196_wp, -4.86649441_wp, &
-1.04399528_wp, -1.57960635_wp, -0.94570328_wp, -1.31784843_wp, -1.06672701_wp, &
-1.09283979_wp, -0.87327387_wp, -0.51299837_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.85356938_wp, 1.57206021_wp, 0.30000000_wp, 0.76256918_wp, 0.73399365_wp, &
0.78587549_wp, 0.87675075_wp, 0.30000000_wp, 0.39750894_wp, 1.08036039_wp, &
1.32177658_wp, 0.39036605_wp, 0.73865420_wp, 0.80272830_wp, 0.30000000_wp, &
0.89580453_wp, 0.63613191_wp, 0.30000000_wp, 0.81287687_wp, 0.80963188_wp, &
0.93365339_wp, 1.00604168_wp, 1.07968596_wp, 1.17965269_wp, 0.75043208_wp, &
0.79574473_wp, 0.82919632_wp, 1.12176455_wp, 0.56826902_wp, 0.51000759_wp, &
0.75758869_wp, 0.86743385_wp, 0.91425856_wp, 0.94887891_wp, 0.62809355_wp, &
0.55163766_wp, 0.30000000_wp, 0.30000000_wp, 1.04803336_wp, 1.04685260_wp, &
1.14333466_wp, 0.67965539_wp, 1.00600156_wp, 1.17637622_wp, 1.18367057_wp, &
1.04952347_wp, 0.80763679_wp, 0.75331653_wp, 0.75412477_wp, 0.82618457_wp, &
0.76336693_wp, 0.77019045_wp, 0.65792997_wp, 1.03849051_wp, 0.75966209_wp, &
0.80912892_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.97891583_wp, 0.98083740_wp, 0.82821423_wp, 1.02647907_wp, &
0.87735180_wp, 1.07805068_wp, 0.85101549_wp, 0.69012150_wp, 0.56444228_wp, &
0.67016743_wp, 0.88212334_wp, 0.83446807_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 7.71201733_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_dmso.fh 0000664 0000000 0000000 00000025204 14650006642 0017410 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_dmso = gbsa_parameter ( &
47.20000000_wp, &
78.13000000_wp, &
1.10000000_wp, &
1.47748206_wp, &
0.68742935_wp, &
2.64820749_wp, &
0.08775281_wp, &
0.00000000_wp, &
(/ -0.87712422_wp, 0.05854086_wp, -10.96034929_wp, -9.05632727_wp, -2.68691944_wp, &
-2.80630928_wp, -0.55783053_wp, 3.21467852_wp, 0.44043396_wp, -0.21263168_wp, &
-6.19880808_wp, -17.96274370_wp, -4.29427245_wp, -0.33536836_wp, -3.05011828_wp, &
-2.54644283_wp, -1.47759772_wp, -0.58036166_wp, -6.36214363_wp, -11.51304700_wp, &
-8.48214683_wp, -0.96377586_wp, -9.09160488_wp, -9.30415276_wp, -7.67714793_wp, &
-3.23870810_wp, -4.54522486_wp, -3.75345418_wp, -2.67747060_wp, -11.63964312_wp, &
-2.84557745_wp, -1.81022129_wp, -2.23036924_wp, -1.87520424_wp, -2.61823231_wp, &
-0.74884886_wp, -5.65659118_wp, -14.21180242_wp, -12.50073307_wp, 0.28439278_wp, &
-4.46553278_wp, -8.22344111_wp, 1.00000000_wp, -3.86401927_wp, -0.46353771_wp, &
-2.11061586_wp, -2.36522407_wp, -2.34938047_wp, -2.91312353_wp, -1.36067206_wp, &
-1.19642367_wp, -1.89574272_wp, -3.01899181_wp, -0.67042026_wp, -4.48041171_wp, &
-11.42298821_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, -2.82120676_wp, -3.58303568_wp, -2.88564787_wp, -7.67575403_wp, &
-2.07705636_wp, -1.93914190_wp, -2.84112970_wp, -2.37551268_wp, -1.05373370_wp, &
-3.01337371_wp, -0.66386840_wp, -0.50281089_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.60515909_wp, 1.91196227_wp, 1.25655379_wp, 1.18575295_wp, 0.84370639_wp, &
0.80838262_wp, 1.06660397_wp, 0.30000000_wp, 0.64855180_wp, 1.63595010_wp, &
1.04490918_wp, 1.27088204_wp, 1.04262981_wp, 0.88432057_wp, 0.90112086_wp, &
0.74658950_wp, 0.65699448_wp, 1.30915859_wp, 1.17193619_wp, 1.22772112_wp, &
0.92834987_wp, 0.95381415_wp, 1.08974484_wp, 1.09832095_wp, 0.93926096_wp, &
0.84342704_wp, 0.82932941_wp, 0.98431663_wp, 0.83273417_wp, 0.92841938_wp, &
0.49296618_wp, 0.81718039_wp, 0.90669904_wp, 0.85462954_wp, 0.97132706_wp, &
1.29800773_wp, 1.02625667_wp, 1.21642482_wp, 1.34596356_wp, 1.07828588_wp, &
1.08403943_wp, 0.72629720_wp, 0.80000000_wp, 0.91014466_wp, 0.95888983_wp, &
1.03724923_wp, 1.21081189_wp, 1.34333032_wp, 0.73358908_wp, 0.72962380_wp, &
0.84041472_wp, 0.93791884_wp, 0.75947406_wp, 1.08689045_wp, 1.00889930_wp, &
0.87968799_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.99347231_wp, 0.99499187_wp, 1.11573218_wp, 1.10241914_wp, &
0.80988747_wp, 0.94943528_wp, 0.85477814_wp, 1.39477093_wp, 1.31876099_wp, &
1.22263329_wp, 1.05252130_wp, 1.05662068_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 2.92281633_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_dmso = gbsa_parameter ( &
46.68000000_wp, &
78.13000000_wp, &
1.10000000_wp, &
1.63948621_wp, &
0.94908764_wp, &
3.23903959_wp, &
0.01179665_wp, &
0.00000000_wp, &
(/ -1.26828485_wp, -0.14001525_wp, -4.77030520_wp, -13.28637576_wp, -2.44000615_wp, &
-2.91152754_wp, -3.02878286_wp, -0.96654033_wp, -0.74901761_wp, -0.15013931_wp, &
-7.57301064_wp, -1.07620056_wp, -1.57531340_wp, 0.01651507_wp, -2.45927654_wp, &
-2.20697164_wp, -1.73096052_wp, -1.13429816_wp, -2.26148394_wp, -0.47926808_wp, &
-1.28950081_wp, 3.14234362_wp, -1.53870511_wp, -0.76166609_wp, -4.30543053_wp, &
2.49021738_wp, 2.26022088_wp, -2.84279828_wp, -1.96514879_wp, -1.73697896_wp, &
-2.10194033_wp, -2.04260654_wp, -2.23267873_wp, -1.65027332_wp, -2.33227071_wp, &
-1.14099230_wp, -1.95826838_wp, -1.57028255_wp, -6.30069426_wp, 0.56700686_wp, &
-6.78956789_wp, 0.85873688_wp, -4.04990854_wp, -0.63990307_wp, -3.71915347_wp, &
-2.49749848_wp, -2.03192284_wp, -1.77890060_wp, -1.56403106_wp, -1.68912583_wp, &
-1.21756125_wp, -2.21746848_wp, -2.73254858_wp, -0.92096031_wp, -0.64593857_wp, &
-0.05012274_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.54581522_wp, 3.58837215_wp, 3.48337598_wp, -1.69232998_wp, &
-0.53159857_wp, -2.03705708_wp, -0.97508537_wp, -1.25369939_wp, -1.20279148_wp, &
-0.97062448_wp, -0.55101511_wp, -0.29612581_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.80920878_wp, 1.64040060_wp, 0.64544737_wp, 0.81217932_wp, 0.77010631_wp, &
0.87139187_wp, 0.91659593_wp, 0.30000000_wp, 0.56663173_wp, 1.16944745_wp, &
0.30000000_wp, 0.92848796_wp, 0.76859847_wp, 0.79454710_wp, 0.92526782_wp, &
0.96383997_wp, 0.70567783_wp, 0.83450259_wp, 0.88106757_wp, 0.56972266_wp, &
0.92918753_wp, 1.00233027_wp, 1.03572572_wp, 1.19341923_wp, 0.84279768_wp, &
0.90583644_wp, 0.85423904_wp, 0.99001335_wp, 0.63575175_wp, 0.55693304_wp, &
0.73421902_wp, 0.93730257_wp, 1.09097490_wp, 1.02912766_wp, 0.70301713_wp, &
0.86705749_wp, 0.80000000_wp, 0.75459337_wp, 1.31919256_wp, 1.05395991_wp, &
1.11383492_wp, 0.99560750_wp, 1.04901089_wp, 1.13912971_wp, 1.14490313_wp, &
1.02304920_wp, 0.75090892_wp, 0.75022918_wp, 0.75962047_wp, 0.91420223_wp, &
0.85464184_wp, 0.81225971_wp, 0.58562896_wp, 0.88758248_wp, 0.59352960_wp, &
0.81612491_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.98893587_wp, 0.98988200_wp, 0.97995314_wp, 0.98228631_wp, &
0.85187139_wp, 1.11075292_wp, 0.84975953_wp, 0.75821576_wp, 0.67349378_wp, &
0.71903264_wp, 0.90944060_wp, 0.53427734_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 8.71371556_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_ether.fh 0000664 0000000 0000000 00000025206 14650006642 0017557 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_ether = gbsa_parameter ( &
7.30000000_wp, &
74.12000000_wp, &
0.71300000_wp, &
1.59644701_wp, &
0.71500286_wp, &
2.17215279_wp, &
0.12169871_wp, &
0.00000000_wp, &
(/ -1.26731135_wp, -0.36185792_wp, -9.18222326_wp, -7.71374086_wp, -1.78074581_wp, &
-2.84632485_wp, 0.39172989_wp, 2.32366890_wp, -0.22856543_wp, -0.29348907_wp, &
-9.15621078_wp, -12.61612820_wp, -3.07155844_wp, -0.22133339_wp, -2.87368475_wp, &
-2.31546698_wp, -2.04007841_wp, -1.23592116_wp, -7.49327989_wp, -8.52481276_wp, &
-6.09973213_wp, -0.83300372_wp, -6.87486577_wp, -15.10887387_wp, -8.72176218_wp, &
-2.74028360_wp, -7.92805966_wp, -3.48394708_wp, -2.70058734_wp, -9.09103963_wp, &
-2.15529089_wp, -2.18496757_wp, -2.12521918_wp, -1.79339959_wp, -2.26791209_wp, &
-1.36128554_wp, -6.86821142_wp, -11.12271511_wp, -9.37277903_wp, 2.89949284_wp, &
-3.74038326_wp, -1.35709049_wp, 0.00000000_wp, -3.23230664_wp, -1.26865652_wp, &
-2.62344604_wp, -2.48514618_wp, -1.80935855_wp, -2.39814769_wp, -1.75052099_wp, &
-1.75395497_wp, -2.04167734_wp, -2.78299614_wp, -1.48860766_wp, -5.45656842_wp, &
-8.61238635_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.51520265_wp, -3.29467099_wp, -2.66322013_wp, -10.62813191_wp, &
-1.62437243_wp, -1.68911027_wp, -1.93480823_wp, -2.03511628_wp, -0.72450212_wp, &
-3.10958931_wp, -0.84469497_wp, -0.85906927_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.46183163_wp, 1.50191603_wp, 1.41643210_wp, 1.19091982_wp, 0.88492763_wp, &
0.81365777_wp, 0.94900853_wp, 0.30000000_wp, 0.51902571_wp, 0.66061545_wp, &
1.16197641_wp, 0.68324773_wp, 1.05595946_wp, 0.87666489_wp, 0.92672378_wp, &
0.66416213_wp, 0.85878921_wp, 0.35720511_wp, 1.32613697_wp, 1.35949726_wp, &
1.09613845_wp, 1.00454344_wp, 1.07808187_wp, 0.82329503_wp, 0.81638753_wp, &
0.85975561_wp, 1.10919724_wp, 1.07233493_wp, 0.84576406_wp, 0.82824003_wp, &
0.58773754_wp, 0.75320418_wp, 0.89705410_wp, 0.92285972_wp, 0.30000000_wp, &
0.50283132_wp, 1.20545008_wp, 1.27064109_wp, 1.39362627_wp, 1.28077744_wp, &
1.12098412_wp, 1.26453490_wp, 0.80000000_wp, 0.86705844_wp, 0.97773852_wp, &
1.26479914_wp, 1.15017864_wp, 1.69531775_wp, 0.73897064_wp, 0.69523086_wp, &
1.22395515_wp, 1.06094393_wp, 0.76862695_wp, 0.95649899_wp, 1.12732749_wp, &
0.85916880_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.13291027_wp, 1.02628351_wp, 1.06177235_wp, 1.00061527_wp, &
0.80678924_wp, 0.85216297_wp, 0.90358551_wp, 1.27049148_wp, 1.02402414_wp, &
1.16999402_wp, 1.21048156_wp, 1.09783094_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 3.54352327_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_ether = gbsa_parameter ( &
4.33000000_wp, &
74.12000000_wp, &
0.71300000_wp, &
1.44617725_wp, &
0.81002649_wp, &
2.34354819_wp, &
0.00725317_wp, &
0.00000000_wp, &
(/ -1.23034649_wp, -0.29798915_wp, -1.65463315_wp, -5.37433769_wp, -2.71503336_wp, &
-2.84617853_wp, -2.26895486_wp, 0.73125943_wp, -0.14090205_wp, -0.32660678_wp, &
-9.58580652_wp, -1.26210927_wp, -2.49156432_wp, -0.16271654_wp, -2.88903923_wp, &
-1.92909489_wp, -1.71451653_wp, -1.44012567_wp, -0.80652573_wp, -0.48465843_wp, &
-2.67126345_wp, 1.40975273_wp, -4.48773191_wp, -4.04926725_wp, -3.87997599_wp, &
-3.54203497_wp, 1.94115980_wp, -2.70202792_wp, -1.98928965_wp, -1.80118031_wp, &
-2.48556495_wp, -2.28630434_wp, -2.30867291_wp, -1.56742491_wp, -2.12984787_wp, &
-1.44106077_wp, -1.33387167_wp, -1.08285382_wp, -4.72499045_wp, 2.06178963_wp, &
-4.35981460_wp, -4.57429557_wp, -6.80760269_wp, -3.45962353_wp, -3.42930676_wp, &
-2.12590953_wp, -2.31513667_wp, -2.00585881_wp, -1.99649494_wp, -1.94756315_wp, &
-1.32880456_wp, -2.21555493_wp, -2.63669739_wp, -1.18163332_wp, -0.79036591_wp, &
-2.01799699_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.10904302_wp, -2.61018529_wp, 3.05423994_wp, -6.32859311_wp, &
-1.30819768_wp, -2.36180417_wp, -1.17971685_wp, -1.41085464_wp, -1.39524610_wp, &
-2.75072120_wp, -1.14569773_wp, -0.72424570_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.50330138_wp, 1.40955696_wp, 0.99612102_wp, 0.87906697_wp, &
0.70698387_wp, 1.23774333_wp, 0.30000000_wp, 0.53993257_wp, 0.59753720_wp, &
1.54272897_wp, 0.85299242_wp, 1.03017936_wp, 0.86971362_wp, 0.89051247_wp, &
0.87323045_wp, 0.73562362_wp, 0.30000000_wp, 1.33563884_wp, 1.35939824_wp, &
1.07047668_wp, 1.09746596_wp, 1.17485422_wp, 0.81424302_wp, 0.87366856_wp, &
0.98514962_wp, 0.95447760_wp, 1.08221174_wp, 0.90923673_wp, 0.56393653_wp, &
0.84344596_wp, 0.83563498_wp, 0.88809627_wp, 0.96636563_wp, 0.39180649_wp, &
0.40970397_wp, 1.25380364_wp, 1.23543471_wp, 1.36392257_wp, 1.28177431_wp, &
1.26336392_wp, 1.21440850_wp, 1.12385641_wp, 1.04958841_wp, 1.08079675_wp, &
1.25000376_wp, 0.96259791_wp, 1.67450642_wp, 0.76886870_wp, 0.84326410_wp, &
0.63369735_wp, 0.58231467_wp, 0.30000000_wp, 0.52705252_wp, 1.14011198_wp, &
0.74265502_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.11823788_wp, 1.05652792_wp, 0.93868037_wp, 1.06103372_wp, &
0.89132474_wp, 0.77643819_wp, 1.08466768_wp, 1.26603805_wp, 0.34702444_wp, &
1.17076050_wp, 1.19523847_wp, 1.14108225_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.85606255_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_h2o.fh 0000664 0000000 0000000 00000025202 14650006642 0017134 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_h2o = gbsa_parameter ( &
78.50000000_wp, &
18.00000000_wp, &
0.99800000_wp, &
1.58079374_wp, &
0.97604129_wp, &
1.30237749_wp, &
0.07194512_wp, &
0.00000000_wp, &
(/ 0.06629666_wp, 1.38494205_wp, -8.47658201_wp, -12.64746819_wp, -0.03791420_wp, &
-1.07723180_wp, 1.16603570_wp, 3.68076258_wp, 1.96594358_wp, 0.86495749_wp, &
-5.02728136_wp, -12.51137798_wp, -2.37322123_wp, 1.10592564_wp, -0.78733572_wp, &
-0.51028830_wp, -0.25606370_wp, 0.25473779_wp, -5.29112079_wp, -8.86191288_wp, &
-4.68022533_wp, 3.22705056_wp, -6.96392637_wp, -7.71221092_wp, -5.90776279_wp, &
-1.61423824_wp, -4.12751059_wp, -1.38964868_wp, -1.34903023_wp, -8.21594906_wp, &
-0.80992362_wp, 0.29999299_wp, -0.46598066_wp, 0.06179828_wp, -0.53490697_wp, &
-0.09650942_wp, -4.60193496_wp, -11.94238796_wp, -7.77905850_wp, 5.96142692_wp, &
-3.28897312_wp, -14.97661155_wp, 0.00000000_wp, -1.81386132_wp, 0.48179580_wp, &
-0.72357001_wp, -0.95233912_wp, -0.55540274_wp, -0.78380934_wp, 0.01419560_wp, &
0.43324810_wp, -0.25068053_wp, -1.01025717_wp, -0.39794210_wp, -3.16374419_wp, &
-8.74995304_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 3.88752380_wp, -2.15595436_wp, 2.78465804_wp, -6.23200524_wp, &
-0.29223391_wp, -0.06497178_wp, -0.32545325_wp, -0.62327437_wp, 0.10903325_wp, &
-0.67805984_wp, 0.27104619_wp, 0.93373940_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.56096524_wp, 1.84317577_wp, 1.00708588_wp, 0.83890908_wp, 0.87090890_wp, &
0.72864610_wp, 0.68108723_wp, 0.30000000_wp, 0.53832361_wp, 1.55166635_wp, &
1.00697897_wp, 1.11611044_wp, 1.11917862_wp, 0.89467360_wp, 0.83587791_wp, &
0.30000000_wp, 0.62349753_wp, 1.25272983_wp, 1.05129591_wp, 0.75610187_wp, &
1.33484306_wp, 1.03424274_wp, 1.15482635_wp, 1.09006558_wp, 1.06181576_wp, &
0.98358334_wp, 0.94187463_wp, 1.18521479_wp, 1.16316920_wp, 1.22143681_wp, &
0.75375458_wp, 0.85326388_wp, 0.61759443_wp, 0.54226862_wp, 0.90076995_wp, &
1.20819691_wp, 0.82428655_wp, 1.10579710_wp, 1.29865417_wp, 1.15529491_wp, &
1.06691912_wp, 0.88599674_wp, 0.60000000_wp, 0.96681930_wp, 1.02893571_wp, &
1.22251791_wp, 1.22808376_wp, 1.22017048_wp, 0.83228023_wp, 0.69213984_wp, &
0.66161644_wp, 0.75729361_wp, 0.67694504_wp, 1.06569965_wp, 0.94256074_wp, &
0.72733170_wp, 0.60000000_wp, 0.60000000_wp, 0.60000000_wp, 0.60000000_wp, &
0.60000000_wp, 0.60000000_wp, 0.60000000_wp, 0.60000000_wp, 0.60000000_wp, &
0.60000000_wp, 0.60000000_wp, 0.60000000_wp, 0.60000000_wp, 0.60000000_wp, &
0.60000000_wp, 1.11168533_wp, 1.06485038_wp, 1.13488709_wp, 1.03567422_wp, &
0.95538891_wp, 0.95737553_wp, 0.96828988_wp, 1.37493896_wp, 1.18804550_wp, &
1.16371238_wp, 1.25645400_wp, 1.11614538_wp, 0.60000000_wp, 0.60000000_wp, &
0.60000000_wp, 0.60000000_wp, 0.60000000_wp, 0.60000000_wp, 0.60000000_wp, &
0.60000000_wp, 0.60000000_wp, 0.60000000_wp, 0.60000000_wp /), &
(/ 4.04907183_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
2.45551733_wp, 0.84625368_wp, 1.74582215_wp, 2.86254455_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 4.76451345_wp, &
3.89607247_wp, 2.48848430_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 3.47225286_wp, 4.12983437_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 3.40344080_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_h2o = gbsa_parameter ( &
80.20000000_wp, &
18.00000000_wp, &
1.00000000_wp, &
1.55243817_wp, &
0.97531379_wp, &
1.16556316_wp, &
0.13032636_wp, &
0.00000000_wp, &
(/ -0.33498306_wp, 1.26871861_wp, -4.02682203_wp, -6.61323872_wp, -0.68114203_wp, &
-0.74769065_wp, -2.31291292_wp, 0.91797911_wp, 1.25543348_wp, 0.85760021_wp, &
-6.74101323_wp, -1.19096758_wp, -0.09427821_wp, 1.53981552_wp, -0.28566074_wp, &
-0.48555420_wp, -0.10208045_wp, 0.27015708_wp, -1.34530799_wp, -1.82638776_wp, &
-2.33181969_wp, 1.94895791_wp, -4.03488678_wp, -3.69916894_wp, -1.76072219_wp, &
6.56392322_wp, 2.00051154_wp, -0.51490455_wp, 0.01915301_wp, -0.47581759_wp, &
-0.68235927_wp, 0.47915022_wp, -0.53992351_wp, 0.68840219_wp, -0.28044414_wp, &
0.17421825_wp, -1.20561618_wp, -0.83130281_wp, -4.57650868_wp, 0.56423064_wp, &
-4.64819627_wp, -4.63737691_wp, -0.84355651_wp, -2.92994729_wp, -1.08086259_wp, &
-0.58039850_wp, -0.33243759_wp, -0.03930933_wp, -0.40836368_wp, 0.19337851_wp, &
0.09829368_wp, -0.32995482_wp, -0.83107400_wp, -0.29130139_wp, -1.25860685_wp, &
-0.45587905_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.58524764_wp, -0.54932016_wp, 4.54316358_wp, -2.41569825_wp, &
0.37534414_wp, -0.20293106_wp, 0.79627337_wp, 0.49884735_wp, 0.27154747_wp, &
0.59002423_wp, 0.60254474_wp, 1.17063879_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.71893869_wp, 2.06028647_wp, 0.40608033_wp, 0.92184652_wp, 0.77279023_wp, &
0.74298311_wp, 0.90261230_wp, 0.75369019_wp, 0.61625017_wp, 1.84783975_wp, &
1.20080317_wp, 0.65802384_wp, 0.72103171_wp, 0.83603641_wp, 0.66440982_wp, &
0.89558269_wp, 0.62985587_wp, 1.27858461_wp, 0.65299061_wp, 0.62472181_wp, &
0.98563134_wp, 0.98178333_wp, 1.09523331_wp, 0.91537500_wp, 0.84181077_wp, &
0.78712610_wp, 0.82166926_wp, 0.77862239_wp, 0.75925377_wp, 1.06720895_wp, &
0.78280891_wp, 0.76954265_wp, 0.64491049_wp, 0.79964594_wp, 0.63761709_wp, &
0.54781361_wp, 0.30000000_wp, 0.53156870_wp, 1.26880121_wp, 1.12551818_wp, &
1.25661787_wp, 0.58174619_wp, 1.21090637_wp, 1.13642998_wp, 1.17199113_wp, &
1.09945430_wp, 0.76967747_wp, 0.48847954_wp, 0.73965346_wp, 0.71276027_wp, &
0.67600887_wp, 0.71055175_wp, 0.41233944_wp, 0.92879335_wp, 0.62896377_wp, &
0.68883366_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.13198750_wp, 0.80446560_wp, 0.59316114_wp, 0.88315904_wp, &
0.98359339_wp, 0.88309289_wp, 1.08473432_wp, 1.09367781_wp, 0.64535600_wp, &
0.76250916_wp, 0.41983434_wp, 1.02977992_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.70894947_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
1.26459036_wp, 3.52206160_wp, 2.30440543_wp, 1.98829409_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.68116653_wp, &
0.38262428_wp, 1.02948365_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.37162766_wp, 2.02275702_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.61716906_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_methanol.fh 0000664 0000000 0000000 00000025214 14650006642 0020256 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_methanol = gbsa_parameter ( &
33.60000000_wp, &
32.04000000_wp, &
0.79200000_wp, &
1.65093397_wp, &
0.82529809_wp, &
1.49235984_wp, &
0.41277592_wp, &
0.00000000_wp, &
(/ -0.70072201_wp, 0.18917579_wp, -9.63826287_wp, -6.27815618_wp, -1.56978470_wp, &
-2.51460740_wp, 0.70006551_wp, 2.80270399_wp, 0.71105995_wp, -0.06209569_wp, &
-6.71161198_wp, -13.30401816_wp, -3.27379587_wp, 0.11023515_wp, -1.89776664_wp, &
-1.51548628_wp, -0.98998841_wp, -0.64385021_wp, -7.19758742_wp, -9.67170479_wp, &
-6.30574753_wp, 0.34855994_wp, -7.56147920_wp, -9.98333530_wp, -7.81454205_wp, &
-2.49535886_wp, -7.17627284_wp, -2.86973017_wp, -2.37394520_wp, -9.57292772_wp, &
-2.10180050_wp, -1.76316542_wp, -1.69461901_wp, -1.36915557_wp, -1.83669687_wp, &
-0.83513095_wp, -6.57132326_wp, -13.43489078_wp, -10.13436669_wp, 4.50069565_wp, &
-2.00155928_wp, -14.49327969_wp, 0.00000000_wp, -2.73726395_wp, -0.53694699_wp, &
-1.76798964_wp, -2.01481011_wp, -1.81041019_wp, -2.34805793_wp, -1.58460812_wp, &
-0.75097925_wp, -1.67655208_wp, -2.37510843_wp, -0.83097821_wp, -4.77565793_wp, &
-10.40861115_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.82788650_wp, -1.96778757_wp, 1.14216510_wp, -9.20894395_wp, &
-1.83824213_wp, -1.24229916_wp, -1.90899349_wp, -1.76688618_wp, -1.66376528_wp, &
-2.33435571_wp, -0.42570890_wp, -0.35291693_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.53917392_wp, 1.87016856_wp, 0.92501515_wp, 0.90305133_wp, 0.91378331_wp, &
0.76268026_wp, 0.88977017_wp, 0.30000000_wp, 0.46913375_wp, 1.38940400_wp, &
0.99931942_wp, 1.07080716_wp, 1.11235721_wp, 0.89647803_wp, 0.86906072_wp, &
0.69343090_wp, 0.26304312_wp, 1.13899999_wp, 0.92549220_wp, 1.54103616_wp, &
1.06351336_wp, 0.99647439_wp, 1.13445692_wp, 1.10880230_wp, 0.94140155_wp, &
1.02960605_wp, 1.05579302_wp, 1.09293887_wp, 1.05013346_wp, 1.06763892_wp, &
0.72638607_wp, 0.82320493_wp, 0.72119562_wp, 0.63076234_wp, 0.69419905_wp, &
1.15929304_wp, 0.66120196_wp, 1.09416608_wp, 1.45453039_wp, 1.21149890_wp, &
1.06335698_wp, 0.87736455_wp, 0.80000000_wp, 1.03354124_wp, 1.06900558_wp, &
1.17016129_wp, 1.24055560_wp, 1.30400156_wp, 0.81936783_wp, 0.66910788_wp, &
0.54907185_wp, 0.84555550_wp, 0.56693010_wp, 0.99595914_wp, 0.75192219_wp, &
0.78499882_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.05863377_wp, 0.98766734_wp, 1.09154534_wp, 1.03527263_wp, &
1.01459368_wp, 0.99428287_wp, 0.97911590_wp, 1.40519837_wp, 1.28241072_wp, &
1.26394541_wp, 1.29894716_wp, 1.14879392_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 3.98164403_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 1.39486803_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 4.98738901_wp, &
4.10562549_wp, 2.58275339_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.75274938_wp, 3.19971186_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.84756868_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_methanol = gbsa_parameter ( &
32.70000000_wp, &
32.04000000_wp, &
0.79200000_wp, &
1.60873753_wp, &
0.73431364_wp, &
2.10650508_wp, &
0.00299248_wp, &
0.00000000_wp, &
(/ -1.18099075_wp, -0.09318329_wp, -0.86743826_wp, -1.81320472_wp, -2.30038987_wp, &
-2.07359192_wp, -3.08684867_wp, -0.40747595_wp, 0.07800625_wp, -0.10961343_wp, &
-7.72113272_wp, -1.03737823_wp, -1.55285719_wp, -0.23742700_wp, -2.24277461_wp, &
-1.75890935_wp, -1.22811673_wp, -0.65422551_wp, -1.58921466_wp, -2.66211091_wp, &
-4.84076119_wp, 2.19588151_wp, -3.67821549_wp, -6.75207817_wp, -3.07982195_wp, &
6.56694216_wp, 1.38012715_wp, -2.44546703_wp, -1.74937028_wp, -0.33760131_wp, &
-2.08358026_wp, -1.69548704_wp, -2.09216741_wp, -1.06927637_wp, -1.95327569_wp, &
-0.79626674_wp, -4.62202053_wp, -2.47115779_wp, -5.41500463_wp, -1.74419799_wp, &
-5.69415922_wp, 2.15657814_wp, -2.46993166_wp, -4.00231642_wp, -3.05989072_wp, &
-2.09238183_wp, -1.97467146_wp, -1.70945547_wp, -1.60872700_wp, -1.54608577_wp, &
-1.16267422_wp, -1.99061798_wp, -2.43417155_wp, -0.82723165_wp, -1.99502357_wp, &
0.08405287_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.17846008_wp, -0.01289506_wp, 6.12823942_wp, 1.26355592_wp, &
-0.86335740_wp, -1.49814370_wp, -0.85643294_wp, -0.97907648_wp, -1.02092967_wp, &
-0.74947739_wp, -0.54235865_wp, -0.20723425_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.83363889_wp, 0.30000000_wp, 0.90928175_wp, 0.74292569_wp, &
0.72370227_wp, 1.11892348_wp, 0.30000000_wp, 0.55424466_wp, 1.23056112_wp, &
0.55936574_wp, 0.30000000_wp, 0.66383758_wp, 0.84933807_wp, 0.78218516_wp, &
0.95197553_wp, 0.63951651_wp, 0.85363375_wp, 0.30000000_wp, 0.59111942_wp, &
1.01827186_wp, 1.03957208_wp, 1.03767552_wp, 1.26285372_wp, 0.72328990_wp, &
0.74184671_wp, 0.81758849_wp, 0.76291254_wp, 0.61980616_wp, 0.99722952_wp, &
0.79104944_wp, 0.81414233_wp, 0.76047834_wp, 1.07324865_wp, 0.32387901_wp, &
0.89223387_wp, 0.30000000_wp, 0.35903568_wp, 1.09079116_wp, 1.01174589_wp, &
1.24763532_wp, 0.62964433_wp, 1.10637368_wp, 1.25155160_wp, 1.26048657_wp, &
1.11751488_wp, 0.84005151_wp, 0.30000000_wp, 0.70876436_wp, 0.76589544_wp, &
0.30000000_wp, 0.74644297_wp, 0.56310810_wp, 0.92409578_wp, 0.30000000_wp, &
0.63751033_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.12731090_wp, 0.76779127_wp, 0.72174080_wp, 0.76979737_wp, &
1.08313762_wp, 1.08520454_wp, 1.01886752_wp, 0.95751067_wp, 0.66101842_wp, &
0.73617560_wp, 0.62078604_wp, 0.30000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 6.35096975_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00797465_wp, 2.98775273_wp, 1.51391089_wp, 0.51134039_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.79185940_wp, &
0.09199181_wp, 1.93913555_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 2.10235367_wp, 2.03381074_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 2.40567409_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_nhexan.fh 0000664 0000000 0000000 00000012504 14650006642 0017726 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn2_nhexan = gbsa_parameter ( &
1.88000000_wp, &
86.18000000_wp, &
0.66000000_wp, &
1.35049002_wp, &
0.83741834_wp, &
2.94382796_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.54572947_wp, -0.36466555_wp, -4.55823699_wp, -7.18726150_wp, -2.64345890_wp, &
-2.45473850_wp, -1.70190779_wp, -0.83356216_wp, -0.38305976_wp, -0.38865404_wp, &
-4.52037210_wp, -1.49964732_wp, -1.92721636_wp, -0.46200657_wp, -2.46205054_wp, &
-2.15466994_wp, -1.71446320_wp, -1.31547335_wp, -1.75785222_wp, -0.79119000_wp, &
-2.73428054_wp, -0.54299058_wp, -2.75509693_wp, -2.43624282_wp, -1.32917520_wp, &
-0.53838021_wp, -4.94976578_wp, -1.52020125_wp, -2.14083822_wp, -2.05823991_wp, &
-2.34284248_wp, -2.21060973_wp, -2.22282115_wp, -1.68647730_wp, -1.92922352_wp, &
-1.36071422_wp, -1.95489820_wp, -0.51297138_wp, -6.07777575_wp, 0.38416530_wp, &
-2.15057115_wp, -1.00207122_wp, -3.64748992_wp, -2.52057216_wp, -2.19295977_wp, &
-2.00604310_wp, -2.25442056_wp, -2.16903628_wp, -2.18722630_wp, -1.88309849_wp, &
-1.50048877_wp, -2.17632705_wp, -2.39889034_wp, -1.11699021_wp, -0.71736027_wp, &
-0.10566830_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -1.09835846_wp, -2.29969471_wp, 1.86890919_wp, -2.25863760_wp, &
-1.18098909_wp, -1.72707555_wp, -1.19826820_wp, -1.35629310_wp, -1.46022116_wp, &
-1.28331966_wp, -1.07520436_wp, -1.04285283_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.86492307_wp, 0.30000000_wp, 1.02085775_wp, 1.03333496_wp, 0.79334429_wp, &
0.77927814_wp, 0.88179187_wp, 0.87202843_wp, 0.56548626_wp, 0.30000000_wp, &
0.71084540_wp, 0.30000000_wp, 0.63323016_wp, 0.96597273_wp, 0.62525515_wp, &
1.03955764_wp, 0.79435346_wp, 1.53628596_wp, 0.31332033_wp, 0.30000000_wp, &
0.97622525_wp, 1.04846793_wp, 1.10354269_wp, 0.99524912_wp, 0.71566893_wp, &
1.53223004_wp, 0.98461382_wp, 0.88177001_wp, 1.07781728_wp, 0.87088973_wp, &
0.78581903_wp, 0.76065502_wp, 0.84146934_wp, 0.99623138_wp, 0.40057871_wp, &
0.95258800_wp, 0.30000000_wp, 0.30000000_wp, 1.26743547_wp, 0.71548653_wp, &
1.04290219_wp, 0.30000000_wp, 1.36166124_wp, 1.29925049_wp, 1.02071830_wp, &
1.16543672_wp, 1.10302503_wp, 0.90747278_wp, 0.75658327_wp, 0.67425979_wp, &
0.30000000_wp, 0.30000000_wp, 0.30000000_wp, 0.36231638_wp, 0.72521971_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.98651877_wp, 0.94966762_wp, 0.30000000_wp, 0.77934854_wp, &
1.21246185_wp, 1.09855968_wp, 1.14128644_wp, 1.21039755_wp, 0.30000000_wp, &
0.80209242_wp, 1.00476716_wp, 0.66409135_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_thf.fh 0000664 0000000 0000000 00000025202 14650006642 0017225 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_thf = gbsa_parameter ( &
10.00000000_wp, &
72.10610000_wp, &
0.88300000_wp, &
1.61578225_wp, &
0.72623504_wp, &
1.78759183_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.15899593_wp, -0.22897633_wp, -10.20018355_wp, -8.90533476_wp, -1.63506047_wp, &
-2.86286191_wp, 0.46171007_wp, 2.14937805_wp, -0.06082099_wp, -0.25932993_wp, &
-9.47878937_wp, -14.95032527_wp, -3.23573966_wp, -0.06907023_wp, -2.75754518_wp, &
-2.28831923_wp, -1.99165110_wp, -1.13977716_wp, -8.24707731_wp, -9.99220720_wp, &
-6.80119760_wp, -0.41568419_wp, -8.01690709_wp, -15.69009736_wp, -7.69334576_wp, &
-3.00240654_wp, -6.65754379_wp, -3.45080929_wp, -3.08931028_wp, -11.21536623_wp, &
-2.20843794_wp, -2.05547961_wp, -2.02460293_wp, -1.78542898_wp, -2.19697331_wp, &
-1.26171088_wp, -7.18263995_wp, -12.80324662_wp, -11.06903907_wp, 2.19513946_wp, &
-4.29419005_wp, -2.25530425_wp, 0.00000000_wp, -3.26755573_wp, -1.19206068_wp, &
-2.88399585_wp, -2.68877453_wp, -1.92720768_wp, -2.51353652_wp, -1.70895093_wp, &
-1.65043248_wp, -2.01187446_wp, -2.75175259_wp, -1.40323670_wp, -5.71061802_wp, &
-10.10115350_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -2.60583123_wp, -3.71445800_wp, -3.20676512_wp, -8.03865834_wp, &
-1.46476622_wp, -1.51676204_wp, -2.13704277_wp, -2.25021190_wp, -0.79561163_wp, &
-3.33417199_wp, -0.91111726_wp, -1.62874165_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.49231003_wp, 1.45971843_wp, 1.39189497_wp, 1.24359376_wp, 0.88541638_wp, &
0.79070745_wp, 0.87883402_wp, 0.30000000_wp, 0.45535587_wp, 0.41982134_wp, &
0.97221394_wp, 0.73990650_wp, 1.06256570_wp, 0.85877728_wp, 0.91344342_wp, &
0.65236132_wp, 0.83638757_wp, 0.30000000_wp, 1.30378640_wp, 1.34530916_wp, &
1.12872253_wp, 0.99362765_wp, 1.07899272_wp, 0.88126627_wp, 0.85690149_wp, &
0.92867521_wp, 1.11979197_wp, 1.09382957_wp, 0.91256623_wp, 0.93952546_wp, &
0.61192694_wp, 0.74048290_wp, 0.87521992_wp, 0.93347101_wp, 0.30000000_wp, &
0.44599922_wp, 1.17309705_wp, 1.25107490_wp, 1.38513109_wp, 1.24264350_wp, &
1.08432863_wp, 1.29527245_wp, 0.80000000_wp, 0.94151897_wp, 0.96993714_wp, &
1.26214978_wp, 1.13253269_wp, 1.10477395_wp, 0.74390268_wp, 0.66798942_wp, &
1.19827959_wp, 1.04868519_wp, 0.80948753_wp, 1.01531599_wp, 1.10909862_wp, &
0.90658404_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.11423304_wp, 1.01607058_wp, 1.10392492_wp, 1.06738182_wp, &
0.83847457_wp, 0.84929248_wp, 0.89202977_wp, 1.28191768_wp, 1.04816778_wp, &
1.18783903_wp, 1.12577613_wp, 1.07089096_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 4.07059173_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_thf = gbsa_parameter ( &
7.60000000_wp, &
72.10610000_wp, &
0.88300000_wp, &
1.51283258_wp, &
0.97384049_wp, &
2.13313378_wp, &
0.00321234_wp, &
0.00000000_wp, &
(/ -1.26534834_wp, -0.38257490_wp, -4.09584715_wp, -11.49248428_wp, -2.28495531_wp, &
-2.77665627_wp, -1.85054315_wp, 0.44495052_wp, -0.14888673_wp, -0.33432044_wp, &
-7.30686717_wp, -1.02690661_wp, -1.27926240_wp, 0.08021440_wp, -2.84402288_wp, &
-1.73169407_wp, -1.33772159_wp, -1.26619795_wp, -1.91411354_wp, -0.71222136_wp, &
1.26567154_wp, 2.16892724_wp, -3.22730322_wp, -4.12740424_wp, -3.89760966_wp, &
4.09223758_wp, -5.03304885_wp, -2.45180651_wp, -1.85476216_wp, -1.56195343_wp, &
-1.94488419_wp, -1.88602258_wp, -2.18577613_wp, -1.00941323_wp, -1.66179813_wp, &
-1.33891719_wp, -2.07798380_wp, -0.36797833_wp, -4.47420253_wp, -0.59236245_wp, &
-4.67142635_wp, -4.53271293_wp, -5.99871657_wp, -3.89947405_wp, -2.35405953_wp, &
-1.94772715_wp, -2.10333242_wp, -1.79190144_wp, -1.49670517_wp, -1.73509399_wp, &
-1.10254844_wp, -2.18102162_wp, -2.21044812_wp, -1.11592973_wp, -0.64292920_wp, &
-0.37311158_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.50501321_wp, 0.26520566_wp, 6.20310562_wp, -7.15307863_wp, &
-1.09923169_wp, -1.84428726_wp, -1.01114965_wp, -1.22676037_wp, -1.30980168_wp, &
-0.98239986_wp, -0.82338883_wp, -0.32795559_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 1.12338649_wp, 1.61463977_wp, 0.30000000_wp, 0.30000000_wp, 0.64419364_wp, &
0.75304099_wp, 0.83443070_wp, 0.30000000_wp, 0.47102353_wp, 1.12975291_wp, &
0.76485787_wp, 0.41950731_wp, 0.68225131_wp, 0.62654769_wp, 0.83341801_wp, &
0.86414444_wp, 0.30000000_wp, 0.30000000_wp, 0.74846552_wp, 0.30000000_wp, &
0.81565115_wp, 0.80738342_wp, 0.84487289_wp, 0.91183172_wp, 0.30000000_wp, &
0.62345522_wp, 0.84526694_wp, 0.30000000_wp, 0.99850340_wp, 0.44962672_wp, &
0.75909759_wp, 0.76843242_wp, 0.88123707_wp, 1.00504191_wp, 0.61925510_wp, &
0.32183898_wp, 0.65107523_wp, 0.49730207_wp, 1.34379531_wp, 0.70219083_wp, &
0.81888637_wp, 0.82055754_wp, 1.03215502_wp, 1.00057014_wp, 1.08714453_wp, &
1.08373653_wp, 0.87931941_wp, 0.30000000_wp, 0.71661151_wp, 0.78178578_wp, &
0.78020090_wp, 0.76162353_wp, 0.57462767_wp, 0.90805482_wp, 0.66185709_wp, &
0.36731111_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.82223818_wp, 0.57529519_wp, 0.30000000_wp, 0.99075671_wp, &
0.63423577_wp, 0.87690771_wp, 1.06494277_wp, 0.92014192_wp, 0.80463279_wp, &
0.75064275_wp, 0.91286519_wp, 0.50938147_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 7.91609899_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_gbsa_toluene.fh 0000664 0000000 0000000 00000025212 14650006642 0020120 0 ustar 00root root 0000000 0000000 type(gbsa_parameter),parameter :: gfn1_toluene = gbsa_parameter ( &
7.00000000_wp, &
92.14000000_wp, &
0.86700000_wp, &
1.59772343_wp, &
0.64164499_wp, &
2.65359512_wp, &
0.28199945_wp, &
0.00000000_wp, &
(/ -1.52312760_wp, -0.47678463_wp, -7.62380554_wp, -6.90812975_wp, -2.83158018_wp, &
-2.92375089_wp, -0.80591624_wp, 0.79482640_wp, -0.63332208_wp, -0.27278544_wp, &
-7.63345991_wp, -10.62235584_wp, -3.00565892_wp, -0.45505795_wp, -3.13584269_wp, &
-2.57652857_wp, -2.09566380_wp, -1.33010780_wp, -6.25286814_wp, -7.64027873_wp, &
-5.85238752_wp, -2.42931989_wp, -5.86570370_wp, -11.73973648_wp, -5.98736548_wp, &
-3.30804991_wp, -3.53465626_wp, -3.02206125_wp, -2.58097950_wp, -6.79254306_wp, &
-2.65124749_wp, -2.33551214_wp, -2.41220535_wp, -1.81406443_wp, -2.50620689_wp, &
-1.42840445_wp, -6.52812645_wp, -9.53201953_wp, -8.05597510_wp, 2.39232808_wp, &
-3.18814624_wp, 0.36154727_wp, 0.00000000_wp, -3.92310422_wp, -1.06032777_wp, &
-2.07890670_wp, -3.09915062_wp, -2.19810693_wp, -2.67057919_wp, -1.71200090_wp, &
-1.93164354_wp, -2.12255908_wp, -3.05822619_wp, -1.51437103_wp, -2.69459743_wp, &
-7.02947565_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -3.43977123_wp, -2.91379030_wp, -1.83568969_wp, -9.36954475_wp, &
-1.59529996_wp, -1.87150137_wp, -1.77935600_wp, -2.23002166_wp, -1.17716732_wp, &
-2.83594104_wp, -0.89073737_wp, -0.72715773_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.59677857_wp, 1.76929017_wp, 1.23211723_wp, 0.96953016_wp, 0.85327734_wp, &
0.87412731_wp, 1.04113131_wp, 0.94134128_wp, 0.60103713_wp, 1.43204334_wp, &
1.25452792_wp, 1.22631016_wp, 0.93369080_wp, 0.91665550_wp, 0.88636585_wp, &
0.80104483_wp, 0.85591347_wp, 1.12386362_wp, 1.16665338_wp, 1.36878004_wp, &
0.99178698_wp, 0.98978835_wp, 1.06853285_wp, 0.94022134_wp, 0.75038502_wp, &
0.92518355_wp, 0.89334771_wp, 1.04110771_wp, 0.57953935_wp, 0.57989441_wp, &
1.01601655_wp, 0.80917147_wp, 0.99263049_wp, 0.92749899_wp, 0.41146042_wp, &
1.08464627_wp, 1.07152274_wp, 1.28906739_wp, 1.29996342_wp, 1.31999377_wp, &
1.10573275_wp, 0.87109897_wp, 0.80000000_wp, 1.11439105_wp, 1.01989383_wp, &
1.12955327_wp, 1.31221601_wp, 1.65514191_wp, 0.74871587_wp, 0.76769207_wp, &
1.20800631_wp, 1.07316024_wp, 0.79441455_wp, 0.91117165_wp, 1.01986808_wp, &
0.67396733_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 1.17472851_wp, 1.02353501_wp, 0.92359467_wp, 0.99264541_wp, &
0.84587036_wp, 1.02358725_wp, 1.03471038_wp, 1.50286433_wp, 1.51200187_wp, &
1.16407973_wp, 1.20948300_wp, 1.07081432_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_toluene = gbsa_parameter ( &
7.00000000_wp, &
92.14000000_wp, &
0.86700000_wp, &
1.56864732_wp, &
0.74685442_wp, &
2.83877748_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.50694301_wp, -0.52051145_wp, -5.30073377_wp, -11.52852601_wp, -2.92421984_wp, &
-2.65057861_wp, -2.87903272_wp, -1.37047180_wp, -0.48751187_wp, -0.30335830_wp, &
-5.94144474_wp, -1.48761509_wp, -2.06008258_wp, -0.86298441_wp, -2.84657014_wp, &
-2.43262928_wp, -1.85698137_wp, -1.25700282_wp, -2.16031353_wp, -0.65822232_wp, &
-5.77869522_wp, 0.19701829_wp, -4.70251132_wp, -2.05253608_wp, -2.51893952_wp, &
-0.49254574_wp, 10.20719293_wp, -1.50073871_wp, -2.39361059_wp, -2.35183965_wp, &
-2.44012978_wp, -2.20936107_wp, -2.35747455_wp, -1.74209746_wp, -2.29085994_wp, &
-1.41351533_wp, -2.21343671_wp, -1.56167296_wp, -5.99538644_wp, -0.56598164_wp, &
-4.47132656_wp, -2.43646746_wp, -3.71304534_wp, -2.72229012_wp, -1.77275188_wp, &
-2.22658489_wp, -2.55569323_wp, -2.52509589_wp, -2.52561356_wp, -1.90592090_wp, &
-2.01762201_wp, -2.39747582_wp, -2.87046623_wp, -1.00461466_wp, -0.24711217_wp, &
-0.30616722_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.74328559_wp, -3.65652173_wp, 2.99783090_wp, -0.43508472_wp, &
-0.36780192_wp, -2.26238181_wp, -1.30799380_wp, -1.49987551_wp, -1.63838071_wp, &
-1.30994279_wp, -0.95435762_wp, -0.99905842_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.30000000_wp, 1.53998804_wp, 0.67578863_wp, 0.97377845_wp, 0.81140818_wp, &
0.70398030_wp, 1.32614006_wp, 0.85560034_wp, 0.62220267_wp, 1.32703368_wp, &
0.74891818_wp, 0.30000000_wp, 0.68528486_wp, 0.90746438_wp, 0.90580718_wp, &
0.94868883_wp, 0.77839591_wp, 0.72209903_wp, 0.69511400_wp, 0.30000000_wp, &
1.05559918_wp, 1.05826730_wp, 1.04042554_wp, 0.80035125_wp, 0.89695582_wp, &
0.98962185_wp, 0.63768205_wp, 1.02347946_wp, 0.72529321_wp, 0.46166339_wp, &
0.70264395_wp, 0.79017965_wp, 0.69270983_wp, 0.94010259_wp, 0.30000000_wp, &
0.65877050_wp, 0.30000000_wp, 0.65424275_wp, 1.07262150_wp, 0.73384526_wp, &
1.04760606_wp, 0.76043320_wp, 1.19945969_wp, 0.88344350_wp, 0.80070141_wp, &
1.17400917_wp, 0.94331092_wp, 0.72523165_wp, 0.76250523_wp, 0.73447181_wp, &
0.55871535_wp, 0.66384378_wp, 0.59834033_wp, 0.79993610_wp, 0.59824016_wp, &
0.49615254_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.77923135_wp, 0.92170732_wp, 0.70388295_wp, 0.89972537_wp, &
0.97299413_wp, 0.85244821_wp, 1.09001850_wp, 0.95252827_wp, 0.60967486_wp, &
0.78738062_wp, 0.90805503_wp, 0.30000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
xtb-6.7.1/include/param_ref.fh 0000664 0000000 0000000 00001431605 14650006642 0016235 0 ustar 00root root 0000000 0000000 ! This file is computer generated, please do not modify it here, but
! generate it anew with the appropiate tool! (1906)
! SEC null - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1710
data secq (2) / 1.0000000_wp /; data sscale(2)/ 0.0000000_wp/
data seccnD3(2) / 0.9117922_wp /; data seccn (2)/ 0.8943405_wp/
data secaiw (:,2) / &
& 5.4415160_wp, 5.3912720_wp, 5.2466780_wp, 4.7462570_wp, &
& 4.1122050_wp, 3.4827990_wp, 2.9256260_wp, 2.4586020_wp, &
& 2.0763900_wp, 1.7660350_wp, 1.5138980_wp, 1.3080740_wp, &
& 0.9987770_wp, 0.7833600_wp, 0.6286810_wp, 0.5145050_wp, &
& 0.4281480_wp, 0.2867670_wp, 0.2047270_wp, 0.1187560_wp, &
& 0.0772270_wp, 0.0349350_wp, 0.0197880_wp /
! SEC H2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1802
data secq (1) / 0.0000000_wp /; data sscale(1)/ 0.5000000_wp/
data seccnD3(1) / 0.9117922_wp /; data seccn (1)/ 0.8943405_wp/
data secaiw (:,1) / &
& 5.4415160_wp, 5.3912720_wp, 5.2466780_wp, 4.7462570_wp, &
& 4.1122050_wp, 3.4827990_wp, 2.9256260_wp, 2.4586020_wp, &
& 2.0763900_wp, 1.7660350_wp, 1.5138980_wp, 1.3080740_wp, &
& 0.9987770_wp, 0.7833600_wp, 0.6286810_wp, 0.5145050_wp, &
& 0.4281480_wp, 0.2867670_wp, 0.2047270_wp, 0.1187560_wp, &
& 0.0772270_wp, 0.0349350_wp, 0.0197880_wp /
! SEC C6H6 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1802
data secq (6) / -0.0187784_wp /; data sscale(6)/ 0.1666667_wp/
data seccnD3(6) / 3.1417714_wp /; data seccn (6)/ 3.0308560_wp/
data secaiw (:,6) / &
& 68.5832590_wp, 67.5115260_wp, 64.6123080_wp, 56.1286650_wp, &
& 47.4318310_wp, 39.9459190_wp, 33.7814890_wp, 28.7553020_wp, &
& 24.6561470_wp, 21.2992860_wp, 18.5340330_wp, 16.2406480_wp, &
& 12.7133690_wp, 10.1832050_wp, 8.3194640_wp, 6.9133790_wp, &
& 5.8298100_wp, 4.0106600_wp, 2.9230920_wp, 1.7494800_wp, &
& 1.1654830_wp, 0.5523060_wp, 0.3242020_wp /
! SEC NH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1802
data secq (7) / -0.1877074_wp /; data sscale(7)/ 1.0000000_wp/
data seccnD3(7) / 2.9902643_wp /; data seccn (7)/ 2.5786984_wp/
data secaiw (:,7) / &
& 13.8928580_wp, 13.7335660_wp, 13.2948950_wp, 11.9342710_wp, &
& 10.4022050_wp, 8.9706190_wp, 7.7218140_wp, 6.6635680_wp, &
& 5.7772340_wp, 5.0371340_wp, 4.4181730_wp, 3.8984410_wp, &
& 3.0872240_wp, 2.4956330_wp, 2.0539790_wp, 1.7170460_wp, &
& 1.4549570_wp, 1.0095450_wp, 0.7395630_wp, 0.4445600_wp, &
& 0.2961500_wp, 0.1392520_wp, 0.0809340_wp /
! SEC CO - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1802
data secq (8) / -0.0669918_wp /; data sscale(8)/ 1.0000000_wp/
data seccnD3(8) / 0.9999501_wp /; data seccn (8)/ 0.8555886_wp/
data secaiw (:,8) / &
& 12.9390420_wp, 12.8215110_wp, 12.4887870_wp, 11.3861750_wp, &
& 10.0547130_wp, 8.7593060_wp, 7.6055220_wp, 6.6166590_wp, &
& 5.7823860_wp, 5.0816990_wp, 4.4924840_wp, 3.9949630_wp, &
& 3.2117190_wp, 2.6333830_wp, 2.1960400_wp, 1.8580780_wp, &
& 1.5918740_wp, 1.1306230_wp, 0.8437390_wp, 0.5212300_wp, &
& 0.3539970_wp, 0.1716310_wp, 0.1015580_wp /
! SEC O2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data secq (9) / 0.0000000_wp /; data sscale(9)/ 0.5000000_wp/
data seccnD3(9) / 0.9990000_wp /; data seccn (9)/ 0.9800000_wp/
data secaiw (:,9) / &
& 10.3975870_wp, 10.3144230_wp, 10.0802310_wp, 9.3150480_wp, &
& 8.4027020_wp, 7.5095120_wp, 6.6939110_wp, 5.9700690_wp, &
& 5.3361820_wp, 4.7845300_wp, 4.3054570_wp, 3.8891980_wp, &
& 3.2100590_wp, 2.6878840_wp, 2.2798670_wp, 1.9559530_wp, &
& 1.6950280_wp, 1.2295900_wp, 0.9306730_wp, 0.5848620_wp, &
& 0.4008950_wp, 0.1959850_wp, 0.1160240_wp /
! REF N2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data secq (10) / 0.0000000_wp /; data sscale(10)/ 0.5000000_wp/
data seccnD3(10) / 1.0000000_wp /; data seccn (10)/ 0.9810000_wp/
data secaiw (:,10) / &
& 11.6125430_wp, 11.5410500_wp, 11.3332410_wp, 10.5895270_wp, &
& 9.5886300_wp, 8.5228410_wp, 7.5106350_wp, 6.6043140_wp, &
& 5.8164280_wp, 5.1406550_wp, 4.5636850_wp, 4.0709240_wp, &
& 3.2858130_wp, 2.6994530_wp, 2.2527560_wp, 1.9059510_wp, &
& 1.6320270_wp, 1.1565830_wp, 0.8609730_wp, 0.5294970_wp, &
& 0.3582750_wp, 0.1725840_wp, 0.1018070_wp /
! REF F2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data secq (11) / 0.0000000_wp /; data sscale(11)/ 0.5000000_wp/
data seccnD3(11) / 0.9790000_wp /; data seccn (11)/ 0.9610000_wp/
data secaiw (:,11) / &
& 8.1455493_wp, 8.1058081_wp, 7.9903083_wp, 7.5756433_wp, &
& 7.0109396_wp, 6.3972855_wp, 5.7985381_wp, 5.2452249_wp, &
& 4.7476246_wp, 4.3059510_wp, 3.9161167_wp, 3.5725710_wp, &
& 3.0018411_wp, 2.5535671_wp, 2.1967930_wp, 1.9088609_wp, &
& 1.6733812_wp, 1.2435728_wp, 0.9590400_wp, 0.6186562_wp, &
& 0.4313276_wp, 0.2159017_wp, 0.1291912_wp /
! SEC Cl2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data secq (17) / 0.0000000_wp /; data sscale(17)/ 0.5000000_wp/
data seccnD3(17) / 0.9950000_wp /; data seccn (17)/ 0.9770000_wp/
data secaiw (:,17) / &
& 30.5968154_wp, 30.2907908_wp, 29.4281025_wp, 26.5588368_wp, &
& 23.0571447_wp, 19.6470649_wp, 16.6420247_wp, 14.1130996_wp, &
& 12.0267253_wp, 10.3165485_wp, 8.9140109_wp, 7.7590140_wp, &
& 6.0042243_wp, 4.7671234_wp, 3.8705622_wp, 3.2039005_wp, &
& 2.6965878_wp, 1.8588040_wp, 1.3665825_wp, 0.8411737_wp, &
& 0.5795824_wp, 0.2981883_wp, 0.1870572_wp /
! REF H - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 1) / 0.00000000000000_wp /
data refh (1, 1) / 0.00000000000000_wp /
data gffq (1, 1) / 0.00000000000000_wp /
data gffh (1, 1) / 0.00000000000000_wp /
data dftq (1, 1) / 0.00000000000000_wp /
data dfth (1, 1) / 0.00000000000000_wp /
data pbcq (1, 1) / 0.00000000000000_wp /
data pbch (1, 1) / 0.00000000000000_wp /
data clsq (1, 1) / 0.00000000000000_wp /
data clsh (1, 1) / 0.00000000000000_wp /
data hcount (1, 1) / 0.00000000000000_wp /
data ascale (1, 1) / 1.00000000000000_wp /
data refcovcn(1, 1) / 0.00000000000000_wp /
data refcn (1, 1) / 0.00000000000000_wp /
data refsys (1, 1) / 1 /
data alphaiw(:,1, 1) / &
& 5.0540160_wp, 4.9668210_wp, 4.7244390_wp, 3.9707860_wp, &
& 3.1655030_wp, 2.4886460_wp, 1.9670460_wp, 1.5750840_wp, &
& 1.2804290_wp, 1.0565330_wp, 0.8839250_wp, 0.7488080_wp, &
& 0.5550060_wp, 0.4262920_wp, 0.3369390_wp, 0.2726050_wp, &
& 0.2248580_wp, 0.1483870_wp, 0.1049920_wp, 0.0603100_wp, &
& 0.0390250_wp, 0.0175590_wp, 0.0099250_wp /
! REF H2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 1) / 0.00000000000000_wp /
data refh (2, 1) / 0.00000000000000_wp /
data gffq (2, 1) / 0.00000000000000_wp /
data gffh (2, 1) / 0.00000000000000_wp /
data dftq (2, 1) / 0.00000000000000_wp /
data dfth (2, 1) / 0.00000000000000_wp /
data pbcq (2, 1) / 0.00000000000000_wp /
data pbch (2, 1) / 0.00000000000000_wp /
data clsq (2, 1) / 0.00000000000000_wp /
data clsh (2, 1) / 0.00000000000000_wp /
data hcount (2, 1) / 0.00000000000000_wp /
data ascale (2, 1) / 0.50000000000000_wp /
data refcovcn(2, 1) / 0.89422436546040_wp /
data refcn (2, 1) / 0.91179218222140_wp /
data refsys (2, 1) / 1 /
data alphaiw(:,2, 1) / &
& 5.4415160_wp, 5.3912720_wp, 5.2466780_wp, 4.7462570_wp, &
& 4.1122050_wp, 3.4827990_wp, 2.9256260_wp, 2.4586020_wp, &
& 2.0763900_wp, 1.7660350_wp, 1.5138980_wp, 1.3080740_wp, &
& 0.9987770_wp, 0.7833600_wp, 0.6286810_wp, 0.5145050_wp, &
& 0.4281480_wp, 0.2867670_wp, 0.2047270_wp, 0.1187560_wp, &
& 0.0772270_wp, 0.0349350_wp, 0.0197880_wp /
data refn(1) / 2 /
! REF He - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 2) / 0.0_wp /
data refh (1, 2) / 0.00000000000000_wp /
data gffq (1, 2) / 0.00000000000000_wp /
data gffh (1, 2) / 0.00000000000000_wp /
data dftq (1, 2) / 0.0_wp /
data dfth (1, 2) / 0.00000000000000_wp /
data pbcq (1, 2) / 0.0_wp /
data pbch (1, 2) / 0.00000000000000_wp /
data clsq (1, 2) / 0.00000000000000_wp /
data clsh (1, 2) / 0.00000000000000_wp /
data hcount (1, 2) / 0.00000000000000_wp /
data ascale (1, 2) / 1.00000000000000_wp /
data refcovcn(1, 2) / 0.00000000000000_wp /
data refcn (1, 2) / 0.00000000000000_wp /
data refsys (1, 2) / 1 /
data alphaiw(:,1, 2) / &
& 1.4546360_wp, 1.4502130_wp, 1.4371400_wp, 1.3875900_wp, &
& 1.3135450_wp, 1.2243600_wp, 1.1286130_wp, 1.0327800_wp, &
& 0.9410580_wp, 0.8557720_wp, 0.7779290_wp, 0.7077040_wp, &
& 0.5886400_wp, 0.4940120_wp, 0.4187090_wp, 0.3583530_wp, &
& 0.3095160_wp, 0.2223000_wp, 0.1665090_wp, 0.1026240_wp, &
& 0.0691900_wp, 0.0327930_wp, 0.0189800_wp /
data refn(2) / 1 /
! REF Li - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 3) / -0.00000000000000_wp /
data refh (1, 3) / 0.00000000000000_wp /
data gffq (1, 3) / 0.00000000000000_wp /
data gffh (1, 3) / 0.00000000000000_wp /
data dftq (1, 3) / -0.00000000000000_wp /
data dfth (1, 3) / 0.00000000000000_wp /
data pbcq (1, 3) / -0.00000000000000_wp /
data pbch (1, 3) / 0.00000000000000_wp /
data clsq (1, 3) / 0.00000000000000_wp /
data clsh (1, 3) / 0.00000000000000_wp /
data hcount (1, 3) / 0.00000000000000_wp /
data ascale (1, 3) / 1.00000000000000_wp /
data refcovcn(1, 3) / 0.00000000000000_wp /
data refcn (1, 3) / 0.00000000000000_wp /
data refsys (1, 3) / 1 /
data alphaiw(:,1, 3) / &
& 149.6846930_wp, 101.0937750_wp, 51.6672830_wp, 18.0181080_wp, &
& 8.9093460_wp, 5.3309030_wp, 3.5697190_wp, 2.5730730_wp, &
& 1.9537540_wp, 1.5421740_wp, 1.2543870_wp, 1.0449370_wp, &
& 0.7658330_wp, 0.5922860_wp, 0.4760820_wp, 0.3938140_wp, &
& 0.3330090_wp, 0.2345470_wp, 0.1766850_wp, 0.1133040_wp, &
& 0.0802740_wp, 0.0424220_wp, 0.0264160_wp /
! REF LiH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 3) / 0.35924680736483_wp /
data refh (2, 3) / -0.35924680736483_wp /
data gffq (2, 3) / 0.37061732228445_wp /
data gffh (2, 3) / -0.37061732228445_wp /
data dftq (2, 3) / 0.39342500000000_wp /
data dfth (2, 3) / -0.39345400000000_wp /
data pbcq (2, 3) / 0.35924680736483_wp /
data pbch (2, 3) / -0.35924680736483_wp /
data clsq (2, 3) / 0.37061732228445_wp /
data clsh (2, 3) / -0.37061732228445_wp /
data hcount (2, 3) / 1.00000000000000_wp /
data ascale (2, 3) / 1.00000000000000_wp /
data refcovcn(2, 3) / 0.80196797025252_wp /
data refcn (2, 3) / 0.98647651737145_wp /
data refsys (2, 3) / 1 /
data alphaiw(:,2, 3) / &
& 27.7934790_wp, 25.9220070_wp, 21.8214140_wp, 14.1717810_wp, &
& 9.4824880_wp, 6.7129090_wp, 4.9857250_wp, 3.8465020_wp, &
& 3.0589760_wp, 2.4932250_wp, 2.0736610_wp, 1.7541010_wp, &
& 1.3073430_wp, 1.0165020_wp, 0.8161580_wp, 0.6719100_wp, &
& 0.5643080_wp, 0.3893270_wp, 0.2870170_wp, 0.1768550_wp, &
& 0.1211260_wp, 0.0602840_wp, 0.0362580_wp /
! REF Cl4Li4 - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 3) / 0.60553105026862_wp /
data refh (3, 3) / -0.60553105026862_wp /
data gffq (3, 3) / 0.44400000000000_wp /
data gffh (3, 3) / -0.44400000000000_wp /
data dftq (3, 3) / 0.60553105026862_wp /
data dfth (3, 3) / -0.60553105026862_wp /
data pbcq (3, 3) / 0.25700000000000_wp /
data pbch (3, 3) / -0.25700000000000_wp /
data clsq (3, 3) / 0.50233549783851_wp /
data clsh (3, 3) / -0.50233549783851_wp /
data hcount (3, 3) / 4.00000000000000_wp /
data ascale (3, 3) / 0.25000000000000_wp /
data refcovcn(3, 3) / 4.55700000000000_wp /
data refcn (3, 3) / 6.93900000000000_wp /
data refsys (3, 3) / 17 /
data alphaiw(:,3, 3) / &
& 84.6459010_wp, 83.6841238_wp, 80.9655079_wp, 72.0284169_wp, &
& 61.4818132_wp, 51.5922762_wp, 43.1612588_wp, 36.2527416_wp, &
& 30.6710866_wp, 26.1700904_wp, 22.5260442_wp, 19.5557200_wp, &
& 15.0928030_wp, 11.9795535_wp, 9.7376006_wp, 8.0762262_wp, &
& 6.8136584_wp, 4.7267579_wp, 3.4948520_wp, 2.1681444_wp, &
& 1.4997611_wp, 0.7718181_wp, 0.4815951_wp /
data refn(3) / 3 /
! REF Be - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 4) / -0.00000000000000_wp /
data refh (1, 4) / 0.00000000000000_wp /
data gffq (1, 4) / 0.00000000000000_wp /
data gffh (1, 4) / 0.00000000000000_wp /
data dftq (1, 4) / -0.00000000000000_wp /
data dfth (1, 4) / 0.00000000000000_wp /
data pbcq (1, 4) / -0.00000000000000_wp /
data pbch (1, 4) / 0.00000000000000_wp /
data clsq (1, 4) / 0.00000000000000_wp /
data clsh (1, 4) / 0.00000000000000_wp /
data hcount (1, 4) / 0.00000000000000_wp /
data ascale (1, 4) / 1.00000000000000_wp /
data refcovcn(1, 4) / 0.00000000000000_wp /
data refcn (1, 4) / 0.00000000000000_wp /
data refsys (1, 4) / 1 /
data alphaiw(:,1, 4) / &
& 42.8790460_wp, 39.9295910_wp, 33.1319060_wp, 19.8584460_wp, &
& 12.0562070_wp, 7.8731240_wp, 5.5003700_wp, 4.0522140_wp, &
& 3.1097180_wp, 2.4633930_wp, 2.0011630_wp, 1.6591860_wp, &
& 1.1965720_wp, 0.9061710_wp, 0.7119670_wp, 0.5756820_wp, &
& 0.4763260_wp, 0.3199380_wp, 0.2321350_wp, 0.1411470_wp, &
& 0.0965570_wp, 0.0488560_wp, 0.0302000_wp /
! REF BeH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 4) / 0.35318171705506_wp /
data refh (2, 4) / -0.35318171705506_wp /
data gffq (2, 4) / 0.17355187691088_wp /
data gffh (2, 4) / -0.17355187691088_wp /
data dftq (2, 4) / 0.16760600000000_wp /
data dfth (2, 4) / -0.16760000000000_wp /
data pbcq (2, 4) / 0.35318171705506_wp /
data pbch (2, 4) / -0.35318171705506_wp /
data clsq (2, 4) / 0.17355187691088_wp /
data clsh (2, 4) / -0.17355187691088_wp /
data hcount (2, 4) / 1.00000000000000_wp /
data ascale (2, 4) / 1.00000000000000_wp /
data refcovcn(2, 4) / 0.87483634146801_wp /
data refcn (2, 4) / 0.98079323297698_wp /
data refsys (2, 4) / 1 /
data alphaiw(:,2, 4) / &
& 33.9191750_wp, 30.6229690_wp, 25.1809150_wp, 17.1197860_wp, &
& 12.0494810_wp, 8.7823960_wp, 6.6233290_wp, 5.1483500_wp, &
& 4.1059930_wp, 3.3462160_wp, 2.7771820_wp, 2.3408840_wp, &
& 1.7276510_wp, 1.3276250_wp, 1.0528460_wp, 0.8562260_wp, &
& 0.7107890_wp, 0.4781520_wp, 0.3456310_wp, 0.2073370_wp, &
& 0.1396630_wp, 0.0681800_wp, 0.0409330_wp /
! REF BeH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 4) / 0.47868871444650_wp /
data refh (3, 4) / -0.23934435722325_wp /
data gffq (3, 4) / 0.31121011558254_wp /
data gffh (3, 4) / -0.15560505779127_wp /
data dftq (3, 4) / 0.33482500000000_wp /
data dfth (3, 4) / -0.16740900000000_wp /
data pbcq (3, 4) / 0.47868871444650_wp /
data pbch (3, 4) / -0.23934435722325_wp /
data clsq (3, 4) / 0.31121011558254_wp /
data clsh (3, 4) / -0.15560505779127_wp /
data hcount (3, 4) / 2.00000000000000_wp /
data ascale (3, 4) / 1.00000000000000_wp /
data refcovcn(3, 4) / 1.75692293756846_wp /
data refcn (3, 4) / 1.96965813264154_wp /
data refsys (3, 4) / 1 /
data alphaiw(:,3, 4) / &
& 20.3763510_wp, 19.9881660_wp, 18.9207290_wp, 15.6997430_wp, &
& 12.3941440_wp, 9.6994520_wp, 7.6613340_wp, 6.1448630_wp, &
& 5.0098820_wp, 4.1485350_wp, 3.4841730_wp, 2.9633890_wp, &
& 2.2143260_wp, 1.7146750_wp, 1.3662970_wp, 1.1143890_wp, &
& 0.9266450_wp, 0.6239030_wp, 0.4502460_wp, 0.2684610_wp, &
& 0.1795900_wp, 0.0862930_wp, 0.0511440_wp /
! REF Be4O4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 4) / -0.65605016262773_wp /
data refh (4, 4) / 0.00000000000000_wp /
data gffq (4, 4) / 0.68500000000000_wp /
data gffh (4, 4) / -0.68500000000000_wp /
data dftq (4, 4) / -0.65605016262773_wp /
data dfth (4, 4) / 0.00000000000000_wp /
data pbcq (4, 4) / 0.34700000000000_wp /
data pbch (4, 4) / -0.34700000000000_wp /
data clsq (4, 4) / 0.34700000000000_wp /
data clsh (4, 4) / -0.34700000000000_wp /
data hcount (4, 4) / 4.00000000000000_wp /
data ascale (4, 4) / 0.25000000000000_wp /
data refcovcn(4, 4) / 8.44900000000000_wp /
data refcn (4, 4) / 10.26200000000000_wp /
data refsys (4, 4) / 9 /
data alphaiw(:,4, 4) / &
& 50.8062040_wp, 50.0592716_wp, 48.0905154_wp, 42.5028663_wp, &
& 36.7056665_wp, 31.5232793_wp, 27.1066190_wp, 23.4118521_wp, &
& 20.3403941_wp, 17.7870106_wp, 15.6568911_wp, 13.8703586_wp, &
& 11.0817107_wp, 9.0435022_wp, 7.5156407_wp, 6.3438199_wp, &
& 5.4266858_wp, 3.8505033_wp, 2.8781608_wp, 1.9058183_wp, &
& 1.2248615_wp, 0.6029055_wp, 0.3602096_wp /
data refn(4) / 4 /
! REF B - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 5) / -0.00000000000001_wp /
data refh (1, 5) / 0.00000000000000_wp /
data gffq (1, 5) / 0.00000000000000_wp /
data gffh (1, 5) / 0.00000000000000_wp /
data dftq (1, 5) / -0.00000000000001_wp /
data dfth (1, 5) / 0.00000000000000_wp /
data pbcq (1, 5) / -0.00000000000001_wp /
data pbch (1, 5) / 0.00000000000000_wp /
data clsq (1, 5) / 0.00000000000000_wp /
data clsh (1, 5) / 0.00000000000000_wp /
data hcount (1, 5) / 0.00000000000000_wp /
data ascale (1, 5) / 1.00000000000000_wp /
data refcovcn(1, 5) / 0.00000000000000_wp /
data refcn (1, 5) / 0.00000000000000_wp /
data refsys (1, 5) / 1 /
data alphaiw(:,1, 5) / &
& 22.1068880_wp, 21.3442260_wp, 19.4317910_wp, 14.6694210_wp, &
& 10.6975470_wp, 7.9023200_wp, 5.9922100_wp, 4.6684490_wp, &
& 3.7269880_wp, 3.0389440_wp, 2.5231990_wp, 2.1277390_wp, &
& 1.5720620_wp, 1.2095680_wp, 0.9603270_wp, 0.7816570_wp, &
& 0.6491900_wp, 0.4364560_wp, 0.3146920_wp, 0.1873730_wp, &
& 0.1252700_wp, 0.0602010_wp, 0.0356010_wp /
! REF BH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 5) / 0.15557155274674_wp /
data refh (2, 5) / -0.15557155274761_wp /
data gffq (2, 5) / -0.10464538187607_wp /
data gffh (2, 5) / 0.10464538187607_wp /
data dftq (2, 5) / 0.06722800000000_wp /
data dfth (2, 5) / -0.06723200000000_wp /
data pbcq (2, 5) / 0.15557155274674_wp /
data pbch (2, 5) / -0.15557155274761_wp /
data clsq (2, 5) / -0.10464538187607_wp /
data clsh (2, 5) / 0.10464538187607_wp /
data hcount (2, 5) / 1.00000000000000_wp /
data ascale (2, 5) / 1.00000000000000_wp /
data refcovcn(2, 5) / 0.93017535174568_wp /
data refcn (2, 5) / 0.97061615724771_wp /
data refsys (2, 5) / 1 /
data alphaiw(:,2, 5) / &
& 20.5521070_wp, 19.9101690_wp, 18.3552210_wp, 14.5802680_wp, &
& 11.3056180_wp, 8.8165140_wp, 6.9794390_wp, 5.6206180_wp, &
& 4.6022690_wp, 3.8263850_wp, 3.2251530_wp, 2.7516720_wp, &
& 2.0664510_wp, 1.6059710_wp, 1.2828710_wp, 1.0479810_wp, &
& 0.8721210_wp, 0.5869300_wp, 0.4224710_wp, 0.2500750_wp, &
& 0.1661340_wp, 0.0788140_wp, 0.0462310_wp /
! REF BH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 5) / 0.19433603553394_wp /
data refh (3, 5) / -0.09716801776697_wp /
data gffq (3, 5) / -0.20153708141000_wp /
data gffh (3, 5) / 0.10076854070500_wp /
data dftq (3, 5) / 0.10046100000000_wp /
data dfth (3, 5) / -0.05023400000000_wp /
data pbcq (3, 5) / 0.19433603553394_wp /
data pbch (3, 5) / -0.09716801776697_wp /
data clsq (3, 5) / -0.20153708141000_wp /
data clsh (3, 5) / 0.10076854070500_wp /
data hcount (3, 5) / 2.00000000000000_wp /
data ascale (3, 5) / 1.00000000000000_wp /
data refcovcn(3, 5) / 1.86318070483743_wp /
data refcn (3, 5) / 1.94412533738189_wp /
data refsys (3, 5) / 1 /
data alphaiw(:,3, 5) / &
& 20.2806350_wp, 19.1635070_wp, 17.8009360_wp, 14.8840980_wp, &
& 12.0983160_wp, 9.7836060_wp, 7.9569310_wp, 6.5370310_wp, &
& 5.4328530_wp, 4.5678260_wp, 3.8830910_wp, 3.3348630_wp, &
& 2.5273350_wp, 1.9752950_wp, 1.5835380_wp, 1.2965230_wp, &
& 1.0804740_wp, 0.7281530_wp, 0.5240250_wp, 0.3095240_wp, &
& 0.2050450_wp, 0.0966460_wp, 0.0564440_wp /
! REF BH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 5) / 0.24475443834742_wp /
data refh (4, 5) / -0.08158481278247_wp /
data gffq (4, 5) / -0.28222637549158_wp /
data gffh (4, 5) / 0.09407545849719_wp /
data dftq (4, 5) / 0.16753000000000_wp /
data dfth (4, 5) / -0.05584833333333_wp /
data pbcq (4, 5) / 0.24475443834742_wp /
data pbch (4, 5) / -0.08158481278247_wp /
data clsq (4, 5) / -0.28222637549158_wp /
data clsh (4, 5) / 0.09407545849719_wp /
data hcount (4, 5) / 3.00000000000000_wp /
data ascale (4, 5) / 1.00000000000000_wp /
data refcovcn(4, 5) / 2.79150308430417_wp /
data refcn (4, 5) / 2.91284702438220_wp /
data refsys (4, 5) / 1 /
data alphaiw(:,4, 5) / &
& 17.3839000_wp, 17.1992340_wp, 16.6725580_wp, 14.8986510_wp, &
& 12.7407520_wp, 10.6754850_wp, 8.8969080_wp, 7.4349140_wp, &
& 6.2546920_wp, 5.3056760_wp, 4.5401840_wp, 3.9186610_wp, &
& 2.9899200_wp, 2.3464510_wp, 1.8858730_wp, 1.5464990_wp, &
& 1.2900300_wp, 0.8701190_wp, 0.6260260_wp, 0.3691130_wp, &
& 0.2439620_wp, 0.1143850_wp, 0.0665550_wp /
! REF B2H6 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (5, 5) / 0.14920702115395_wp /
data refh (5, 5) / -0.04973567371798_wp /
data gffq (5, 5) / -0.34038820700608_wp /
data gffh (5, 5) / 0.11346273566869_wp /
data dftq (5, 5) / 0.04833100000000_wp /
data dfth (5, 5) / -0.01613466666667_wp /
data pbcq (5, 5) / 0.14920702115395_wp /
data pbch (5, 5) / -0.04973567371798_wp /
data clsq (5, 5) / -0.34038820700608_wp /
data clsh (5, 5) / 0.11346273566869_wp /
data hcount (5, 5) / 6.00000000000000_wp /
data ascale (5, 5) / 0.50000000000000_wp /
data refcovcn(5, 5) / 4.41327468359181_wp /
data refcn (5, 5) / 4.58564454717390_wp /
data refsys (5, 5) / 1 /
data alphaiw(:,5, 5) / &
& 33.3389310_wp, 33.0011270_wp, 32.0357710_wp, 28.7639060_wp, &
& 24.7422160_wp, 20.8503600_wp, 17.4641170_wp, 14.6555110_wp, &
& 12.3709610_wp, 10.5223950_wp, 9.0236300_wp, 7.8016400_wp, &
& 5.9670990_wp, 4.6901690_wp, 3.7733460_wp, 3.0963780_wp, &
& 2.5840490_wp, 1.7440470_wp, 1.2552220_wp, 0.7404570_wp, &
& 0.4896440_wp, 0.2299100_wp, 0.1339700_wp /
data refn(5) / 5 /
! REF C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 6) / -0.00000000000001_wp /
data refh (1, 6) / 0.00000000000000_wp /
data gffq (1, 6) / 0.00000000000000_wp /
data gffh (1, 6) / 0.00000000000000_wp /
data dftq (1, 6) / -0.00000000000001_wp /
data dfth (1, 6) / 0.00000000000000_wp /
data pbcq (1, 6) / -0.00000000000001_wp /
data pbch (1, 6) / 0.00000000000000_wp /
data clsq (1, 6) / 0.00000000000000_wp /
data clsh (1, 6) / 0.00000000000000_wp /
data hcount (1, 6) / 0.00000000000000_wp /
data ascale (1, 6) / 1.00000000000000_wp /
data refcovcn(1, 6) / 0.00000000000000_wp /
data refcn (1, 6) / 0.00000000000000_wp /
data refsys (1, 6) / 1 /
data alphaiw(:,1, 6) / &
& 12.3555340_wp, 12.1386640_wp, 11.5492610_wp, 9.7999490_wp, &
& 7.9916820_wp, 6.4691120_wp, 5.2715550_wp, 4.3463700_wp, &
& 3.6298580_wp, 3.0691570_wp, 2.6246820_wp, 2.2676780_wp, &
& 1.7384300_wp, 1.3729830_wp, 1.1110210_wp, 0.9172590_wp, &
& 0.7701000_wp, 0.5269110_wp, 0.3835030_wp, 0.2298730_wp, &
& 0.1535810_wp, 0.0732580_wp, 0.0431920_wp /
! REF CH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 6) / -0.12994792301999_wp /
data refh (2, 6) / 0.12994792301999_wp /
data gffq (2, 6) / -0.17123705791311_wp /
data gffh (2, 6) / 0.17123705791311_wp /
data dftq (2, 6) / -0.01475500000000_wp /
data dfth (2, 6) / 0.01475400000000_wp /
data pbcq (2, 6) / -0.12994792301999_wp /
data pbch (2, 6) / 0.12994792301999_wp /
data clsq (2, 6) / -0.17123705791311_wp /
data clsh (2, 6) / 0.17123705791311_wp /
data hcount (2, 6) / 1.00000000000000_wp /
data ascale (2, 6) / 1.00000000000000_wp /
data refcovcn(2, 6) / 0.91894761153698_wp /
data refcn (2, 6) / 0.98678926403687_wp /
data refsys (2, 6) / 1 /
data alphaiw(:,2, 6) / &
& 14.5482810_wp, 14.2754640_wp, 13.3786710_wp, 11.3492310_wp, &
& 9.4185310_wp, 7.7719120_wp, 6.4361850_wp, 5.3728750_wp, &
& 4.5287720_wp, 3.8553340_wp, 3.3134960_wp, 2.8732790_wp, &
& 2.2127670_wp, 1.7514880_wp, 1.4184590_wp, 1.1710210_wp, &
& 0.9825780_wp, 0.6705550_wp, 0.4865370_wp, 0.2899040_wp, &
& 0.1927160_wp, 0.0910580_wp, 0.0533330_wp /
! REF C2H2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 6) / -0.07885200894330_wp /
data refh (3, 6) / 0.07885200894330_wp /
data gffq (3, 6) / -0.14210003554128_wp /
data gffh (3, 6) / 0.14210003554128_wp /
data dftq (3, 6) / -0.09381500000000_wp /
data dfth (3, 6) / 0.09381750000000_wp /
data pbcq (3, 6) / -0.07885200894330_wp /
data pbch (3, 6) / 0.07885200894330_wp /
data clsq (3, 6) / -0.14210003554128_wp /
data clsh (3, 6) / 0.14210003554128_wp /
data hcount (3, 6) / 2.00000000000000_wp /
data ascale (3, 6) / 0.50000000000000_wp /
data refcovcn(3, 6) / 1.90786062124811_wp /
data refcn (3, 6) / 1.99847658843687_wp /
data refsys (3, 6) / 1 /
data alphaiw(:,3, 6) / &
& 23.0116230_wp, 22.7312670_wp, 21.9447640_wp, 19.4160980_wp, &
& 16.5257670_wp, 13.8835800_wp, 11.6644030_wp, 9.8566400_wp, &
& 8.3954220_wp, 7.2118160_wp, 6.2469570_wp, 5.4540580_wp, &
& 4.2475560_wp, 3.3914730_wp, 2.7655050_wp, 2.2955930_wp, &
& 1.9346700_wp, 1.3305920_wp, 0.9701360_wp, 0.5811850_wp, &
& 0.3874320_wp, 0.1836940_wp, 0.1078100_wp /
! REF C2H4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 6) / -0.07676292658733_wp /
data refh (4, 6) / 0.03838146329367_wp /
data gffq (4, 6) / -0.22250854670718_wp /
data gffh (4, 6) / 0.11125427335359_wp /
data dftq (4, 6) / -0.07569600000000_wp /
data dfth (4, 6) / 0.03783500000000_wp /
data pbcq (4, 6) / -0.07676292658733_wp /
data pbch (4, 6) / 0.03838146329367_wp /
data clsq (4, 6) / -0.22250854670718_wp /
data clsh (4, 6) / 0.11125427335359_wp /
data hcount (4, 6) / 4.00000000000000_wp /
data ascale (4, 6) / 0.50000000000000_wp /
data refcovcn(4, 6) / 2.83122393221341_wp /
data refcn (4, 6) / 2.99872598643336_wp /
data refsys (4, 6) / 1 /
data alphaiw(:,4, 6) / &
& 27.4537640_wp, 27.0921900_wp, 26.0934140_wp, 23.0050050_wp, &
& 19.6170750_wp, 16.5717410_wp, 14.0107840_wp, 11.9057630_wp, &
& 10.1859920_wp, 8.7791490_wp, 7.6227700_wp, 6.6661200_wp, &
& 5.2000230_wp, 4.1529630_wp, 3.3845150_wp, 2.8065480_wp, &
& 2.3623130_wp, 1.6190990_wp, 1.1765830_wp, 0.7009620_wp, &
& 0.4652560_wp, 0.2188710_wp, 0.1277540_wp /
! REF C2H6 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (5, 6) / -0.09463126916388_wp /
data refh (5, 6) / 0.03154375638796_wp /
data gffq (5, 6) / -0.25653918216622_wp /
data gffh (5, 6) / 0.08551306072207_wp /
data dftq (5, 6) / -0.07884500000000_wp /
data dfth (5, 6) / 0.02627566666667_wp /
data pbcq (5, 6) / -0.09463126916388_wp /
data pbch (5, 6) / 0.03154375638796_wp /
data clsq (5, 6) / -0.25653918216622_wp /
data clsh (5, 6) / 0.08551306072207_wp /
data hcount (5, 6) / 6.00000000000000_wp /
data ascale (5, 6) / 0.50000000000000_wp /
data refcovcn(5, 6) / 3.74870030209262_wp /
data refcn (5, 6) / 3.98439894415100_wp /
data refsys (5, 6) / 1 /
data alphaiw(:,5, 6) / &
& 28.3352760_wp, 28.0932470_wp, 27.3990360_wp, 25.0151020_wp, &
& 22.0076950_wp, 18.9989890_wp, 16.2867160_wp, 13.9588710_wp, &
& 12.0051730_wp, 10.3795410_wp, 9.0286370_wp, 7.9030880_wp, &
& 6.1676970_wp, 4.9231280_wp, 4.0083160_wp, 3.3200870_wp, &
& 2.7913060_wp, 1.9077980_wp, 1.3830030_wp, 0.8207370_wp, &
& 0.5431290_wp, 0.2541200_wp, 0.1477570_wp /
! REF C6H6 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (6, 6) / -0.02858894127595_wp /
data refh (6, 6) / 0.02858894127595_wp /
data gffq (6, 6) / -0.10441353918078_wp /
data gffh (6, 6) / 0.10441353918078_wp /
data dftq (6, 6) / -0.03982383333333_wp /
data dfth (6, 6) / 0.03982566666667_wp /
data pbcq (6, 6) / -0.02858894127595_wp /
data pbch (6, 6) / 0.02858894127595_wp /
data clsq (6, 6) / -0.10441353918078_wp /
data clsh (6, 6) / 0.10441353918078_wp /
data hcount (6, 6) / 6.00000000000000_wp /
data ascale (6, 6) / 0.16666666666667_wp /
data refcovcn(6, 6) / 2.91832701804388_wp /
data refcn (6, 6) / 3.14177128194115_wp /
data refsys (6, 6) / 1 /
data alphaiw(:,6, 6) / &
& 68.5832590_wp, 67.5115260_wp, 64.6123080_wp, 56.1286650_wp, &
& 47.4318310_wp, 39.9459190_wp, 33.7814890_wp, 28.7553020_wp, &
& 24.6561470_wp, 21.2992860_wp, 18.5340330_wp, 16.2406480_wp, &
& 12.7133690_wp, 10.1832050_wp, 8.3194640_wp, 6.9133790_wp, &
& 5.8298100_wp, 4.0106600_wp, 2.9230920_wp, 1.7494800_wp, &
& 1.1654830_wp, 0.5523060_wp, 0.3242020_wp /
! REF OC - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (7, 6) / 0.05061953301341_wp /
data refh (7, 6) / -0.05061953301341_wp /
data gffq (7, 6) / 0.21030312699251_wp /
data gffh (7, 6) / -0.21030312699251_wp /
data dftq (7, 6) / 0.09609600000000_wp /
data dfth (7, 6) / -0.09609000000000_wp /
data pbcq (7, 6) / 0.05061953301341_wp /
data pbch (7, 6) / -0.05061953301341_wp /
data clsq (7, 6) / 0.21030312699251_wp /
data clsh (7, 6) / -0.21030312699251_wp /
data hcount (7, 6) / 1.00000000000000_wp /
data ascale (7, 6) / 1.00000000000000_wp /
data refcovcn(7, 6) / 0.85560990866661_wp /
data refcn (7, 6) / 0.99995005170393_wp /
data refsys (7, 6) / 2 /
data alphaiw(:,7, 6) / &
& 7.7402500_wp, 7.6643000_wp, 7.4486700_wp, 6.7286500_wp, &
& 5.8533600_wp, 5.0045500_wp, 4.2585700_wp, 3.6316200_wp, &
& 3.1142900_wp, 2.6894300_wp, 2.3397600_wp, 2.0503600_wp, &
& 1.6066900_wp, 1.2894400_wp, 1.0561100_wp, 0.8801010_wp, &
& 0.7443600_wp, 0.5158280_wp, 0.3784030_wp, 0.2287990_wp, &
& 0.1535500_wp, 0.0736385_wp, 0.0435460_wp /
data refn(6) / 7 /
! REF N - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 7) / -0.00000000000000_wp /
data refh (1, 7) / 0.00000000000000_wp /
data gffq (1, 7) / 0.00000000000000_wp /
data gffh (1, 7) / 0.00000000000000_wp /
data dftq (1, 7) / -0.00000000000000_wp /
data dfth (1, 7) / 0.00000000000000_wp /
data pbcq (1, 7) / -0.00000000000000_wp /
data pbch (1, 7) / 0.00000000000000_wp /
data clsq (1, 7) / 0.00000000000000_wp /
data clsh (1, 7) / 0.00000000000000_wp /
data hcount (1, 7) / 0.00000000000000_wp /
data ascale (1, 7) / 1.00000000000000_wp /
data refcovcn(1, 7) / 0.00000000000000_wp /
data refcn (1, 7) / 0.00000000000000_wp /
data refsys (1, 7) / 1 /
data alphaiw(:,1, 7) / &
& 7.5385090_wp, 7.4657840_wp, 7.2592230_wp, 6.5708420_wp, &
& 5.7412090_wp, 4.9445040_wp, 4.2474110_wp, 3.6605820_wp, &
& 3.1734720_wp, 2.7700380_wp, 2.4347170_wp, 2.1542670_wp, &
& 1.7174610_wp, 1.3984350_wp, 1.1591760_wp, 0.9755810_wp, &
& 0.8318860_wp, 0.5852590_wp, 0.4337270_wp, 0.2654650_wp, &
& 0.1792040_wp, 0.0860960_wp, 0.0507150_wp /
! REF NH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 7) / -0.17975369721743_wp /
data refh (2, 7) / 0.17975369722031_wp /
data gffq (2, 7) / -0.35298592555229_wp /
data gffh (2, 7) / 0.35298592555229_wp /
data dftq (2, 7) / -0.09635100000000_wp /
data dfth (2, 7) / 0.09635100000000_wp /
data pbcq (2, 7) / -0.17975369721743_wp /
data pbch (2, 7) / 0.17975369722031_wp /
data clsq (2, 7) / -0.35298592555229_wp /
data clsh (2, 7) / 0.35298592555229_wp /
data hcount (2, 7) / 1.00000000000000_wp /
data ascale (2, 7) / 1.00000000000000_wp /
data refcovcn(2, 7) / 0.85827791612782_wp /
data refcn (2, 7) / 0.99440725902444_wp /
data refsys (2, 7) / 1 /
data alphaiw(:,2, 7) / &
& 9.8340890_wp, 9.6980440_wp, 9.3521500_wp, 8.3811310_wp, &
& 7.3184230_wp, 6.3183850_wp, 5.4407240_wp, 4.6956550_wp, &
& 4.0720980_wp, 3.5523310_wp, 3.1184230_wp, 2.7545880_wp, &
& 2.1872670_wp, 1.7734490_wp, 1.4640490_wp, 1.2275070_wp, &
& 1.0430710_wp, 0.7283800_wp, 0.5365400_wp, 0.3254160_wp, &
& 0.2182610_wp, 0.1038080_wp, 0.0607780_wp /
! REF N2H2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 7) / -0.15258555866677_wp /
data refh (3, 7) / 0.15258555866677_wp /
data gffq (3, 7) / -0.30125788296606_wp /
data gffh (3, 7) / 0.30125788296606_wp /
data dftq (3, 7) / -0.11128400000000_wp /
data dfth (3, 7) / 0.11128900000000_wp /
data pbcq (3, 7) / -0.15258555866677_wp /
data pbch (3, 7) / 0.15258555866677_wp /
data clsq (3, 7) / -0.30125788296606_wp /
data clsh (3, 7) / 0.30125788296606_wp /
data hcount (3, 7) / 2.00000000000000_wp /
data ascale (3, 7) / 0.50000000000000_wp /
data refcovcn(3, 7) / 1.83985112339643_wp /
data refcn (3, 7) / 2.01427212990570_wp /
data refsys (3, 7) / 1 /
data alphaiw(:,3, 7) / &
& 18.5281530_wp, 18.3270930_wp, 17.7675350_wp, 15.9940890_wp, &
& 13.9674690_wp, 12.0720960_wp, 10.4237930_wp, 9.0298300_wp, &
& 7.8623050_wp, 6.8857300_wp, 6.0666250_wp, 5.3763210_wp, &
& 4.2923510_wp, 3.4950320_wp, 2.8948440_wp, 2.4334700_wp, &
& 2.0721210_wp, 1.4520950_wp, 1.0718490_wp, 0.6513790_wp, &
& 0.4372510_wp, 0.2081480_wp, 0.1219450_wp /
! REF NH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 7) / -0.42898107659879_wp /
data refh (4, 7) / 0.14299369219960_wp /
data gffq (4, 7) / -0.82429723124422_wp /
data gffh (4, 7) / 0.27476574374807_wp /
data dftq (4, 7) / -0.29233400000000_wp /
data dfth (4, 7) / 0.09745100000000_wp /
data pbcq (4, 7) / -0.42898107659879_wp /
data pbch (4, 7) / 0.14299369219960_wp /
data clsq (4, 7) / -0.82429723124422_wp /
data clsh (4, 7) / 0.27476574374807_wp /
data hcount (4, 7) / 3.00000000000000_wp /
data ascale (4, 7) / 1.00000000000000_wp /
data refcovcn(4, 7) / 2.58039902538908_wp /
data refcn (4, 7) / 2.99026427338514_wp /
data refsys (4, 7) / 1 /
data alphaiw(:,4, 7) / &
& 13.8928580_wp, 13.7335660_wp, 13.2948950_wp, 11.9342710_wp, &
& 10.4022050_wp, 8.9706190_wp, 7.7218140_wp, 6.6635680_wp, &
& 5.7772340_wp, 5.0371340_wp, 4.4181730_wp, 3.8984410_wp, &
& 3.0872240_wp, 2.4956330_wp, 2.0539790_wp, 1.7170460_wp, &
& 1.4549570_wp, 1.0095450_wp, 0.7395630_wp, 0.4445600_wp, &
& 0.2961500_wp, 0.1392520_wp, 0.0809340_wp /
! REF N2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (5, 7) / -0.00000000000000_wp /
data refh (5, 7) / 0.00000000000000_wp /
data gffq (5, 7) / 0.00000000000000_wp /
data gffh (5, 7) / 0.00000000000000_wp /
data dftq (5, 7) / 0.00000100000000_wp /
data dfth (5, 7) / 0.00000000000000_wp /
data pbcq (5, 7) / -0.00000000000000_wp /
data pbch (5, 7) / 0.00000000000000_wp /
data clsq (5, 7) / 0.00000000000000_wp /
data clsh (5, 7) / 0.00000000000000_wp /
data hcount (5, 7) / 0.00000000000000_wp /
data ascale (5, 7) / 0.50000000000000_wp /
data refcovcn(5, 7) / 0.98085535554904_wp /
data refcn (5, 7) / 0.99998952959314_wp /
data refsys (5, 7) / 1 /
data alphaiw(:,5, 7) / &
& 11.6125430_wp, 11.5410500_wp, 11.3332410_wp, 10.5895270_wp, &
& 9.5886300_wp, 8.5228410_wp, 7.5106350_wp, 6.6043140_wp, &
& 5.8164280_wp, 5.1406550_wp, 4.5636850_wp, 4.0709240_wp, &
& 3.2858130_wp, 2.6994530_wp, 2.2527560_wp, 1.9059510_wp, &
& 1.6320270_wp, 1.1565830_wp, 0.8609730_wp, 0.5294970_wp, &
& 0.3582750_wp, 0.1725840_wp, 0.1018070_wp /
data refn(7) / 5 /
! REF O - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 8) / 0.00000000000001_wp /
data refh (1, 8) / 0.00000000000000_wp /
data gffq (1, 8) / 0.00000000000000_wp /
data gffh (1, 8) / 0.00000000000000_wp /
data dftq (1, 8) / 0.00000000000001_wp /
data dfth (1, 8) / 0.00000000000000_wp /
data pbcq (1, 8) / 0.00000000000001_wp /
data pbch (1, 8) / 0.00000000000000_wp /
data clsq (1, 8) / 0.00000000000000_wp /
data clsh (1, 8) / 0.00000000000000_wp /
data hcount (1, 8) / 0.00000000000000_wp /
data ascale (1, 8) / 1.00000000000000_wp /
data refcovcn(1, 8) / 0.00000000000000_wp /
data refcn (1, 8) / 0.00000000000000_wp /
data refsys (1, 8) / 1 /
data alphaiw(:,1, 8) / &
& 5.1967090_wp, 5.1644300_wp, 5.0715690_wp, 4.7484500_wp, &
& 4.3273530_wp, 3.8854260_wp, 3.4648010_wp, 3.0838640_wp, &
& 2.7478290_wp, 2.4553310_wp, 2.2021600_wp, 1.9832410_wp, &
& 1.6287590_wp, 1.3587170_wp, 1.1492470_wp, 0.9838790_wp, &
& 0.8512370_wp, 0.6158310_wp, 0.4654260_wp, 0.2921270_wp, &
& 0.2001820_wp, 0.0978590_wp, 0.0579230_wp /
! REF OH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 8) / -0.33069420009468_wp /
data refh (2, 8) / 0.33069420009468_wp /
data gffq (2, 8) / -0.35471470167212_wp /
data gffh (2, 8) / 0.35471470167212_wp /
data dftq (2, 8) / -0.16394400000000_wp /
data dfth (2, 8) / 0.16394400000000_wp /
data pbcq (2, 8) / -0.33069420009468_wp /
data pbch (2, 8) / 0.33069420009468_wp /
data clsq (2, 8) / -0.35471470167212_wp /
data clsh (2, 8) / 0.35471470167212_wp /
data hcount (2, 8) / 1.00000000000000_wp /
data ascale (2, 8) / 1.00000000000000_wp /
data refcovcn(2, 8) / 0.80416789582615_wp /
data refcn (2, 8) / 0.99245941779060_wp /
data refsys (2, 8) / 1 /
data alphaiw(:,2, 8) / &
& 7.2941570_wp, 7.2356790_wp, 7.0728280_wp, 6.5406890_wp, &
& 5.8872890_wp, 5.2288430_wp, 4.6198180_wp, 4.0794700_wp, &
& 3.6098730_wp, 3.2056430_wp, 2.8587920_wp, 2.5610180_wp, &
& 2.0831650_wp, 1.7231230_wp, 1.4466600_wp, 1.2304460_wp, &
& 1.0585030_wp, 0.7570550_wp, 0.5672680_wp, 0.3517810_wp, &
& 0.2391180_wp, 0.1155270_wp, 0.0679560_wp /
! REF OH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 8) / -0.56376716743110_wp /
data refh (3, 8) / 0.28188358371555_wp /
data gffq (3, 8) / -0.59881526060460_wp /
data gffh (3, 8) / 0.29940763030230_wp /
data dftq (3, 8) / -0.31412100000000_wp /
data dfth (3, 8) / 0.15706300000000_wp /
data pbcq (3, 8) / -0.56376716743110_wp /
data pbch (3, 8) / 0.28188358371555_wp /
data clsq (3, 8) / -0.59881526060460_wp /
data clsh (3, 8) / 0.29940763030230_wp /
data hcount (3, 8) / 2.00000000000000_wp /
data ascale (3, 8) / 1.00000000000000_wp /
data refcovcn(3, 8) / 1.61123940672270_wp /
data refcn (3, 8) / 1.98869274482158_wp /
data refsys (3, 8) / 1 /
data alphaiw(:,3, 8) / &
& 9.3715840_wp, 9.2917670_wp, 9.0663960_wp, 8.3227770_wp, &
& 7.4235050_wp, 6.5392070_wp, 5.7386200_wp, 5.0398020_wp, &
& 4.4396540_wp, 3.9274640_wp, 3.4907530_wp, 3.1176580_wp, &
& 2.5222470_wp, 2.0764190_wp, 1.7359450_wp, 1.4709930_wp, &
& 1.2612520_wp, 0.8959550_wp, 0.6678320_wp, 0.4109820_wp, &
& 0.2778660_wp, 0.1331600_wp, 0.0779780_wp /
! REF O2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 8) / -0.00000000000002_wp /
data refh (4, 8) / 0.00000000000000_wp /
data gffq (4, 8) / 0.00000000000000_wp /
data gffh (4, 8) / 0.00000000000000_wp /
data dftq (4, 8) / -0.00000200000000_wp /
data dfth (4, 8) / 0.00000000000000_wp /
data pbcq (4, 8) / -0.00000000000002_wp /
data pbch (4, 8) / 0.00000000000000_wp /
data clsq (4, 8) / 0.00000000000000_wp /
data clsh (4, 8) / 0.00000000000000_wp /
data hcount (4, 8) / 0.00000000000000_wp /
data ascale (4, 8) / 0.50000000000000_wp /
data refcovcn(4, 8) / 0.97984400975835_wp /
data refcn (4, 8) / 0.99856725131399_wp /
data refsys (4, 8) / 1 /
data alphaiw(:,4, 8) / &
& 10.3975870_wp, 10.3144230_wp, 10.0802310_wp, 9.3150480_wp, &
& 8.4027020_wp, 7.5095120_wp, 6.6939110_wp, 5.9700690_wp, &
& 5.3361820_wp, 4.7845300_wp, 4.3054570_wp, 3.8891980_wp, &
& 3.2100590_wp, 2.6878840_wp, 2.2798670_wp, 1.9559530_wp, &
& 1.6950280_wp, 1.2295900_wp, 0.9306730_wp, 0.5848620_wp, &
& 0.4008950_wp, 0.1959850_wp, 0.1160240_wp /
data refn(8) / 4 /
! REF F - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 9) / 0.00000000000001_wp /
data refh (1, 9) / 0.00000000000000_wp /
data gffq (1, 9) / 0.00000000000000_wp /
data gffh (1, 9) / 0.00000000000000_wp /
data dftq (1, 9) / 0.00000000000001_wp /
data dfth (1, 9) / 0.00000000000000_wp /
data pbcq (1, 9) / 0.00000000000001_wp /
data pbch (1, 9) / 0.00000000000000_wp /
data clsq (1, 9) / 0.00000000000000_wp /
data clsh (1, 9) / 0.00000000000000_wp /
data hcount (1, 9) / 0.00000000000000_wp /
data ascale (1, 9) / 1.00000000000000_wp /
data refcovcn(1, 9) / 0.00000000000000_wp /
data refcn (1, 9) / 0.00000000000000_wp /
data refsys (1, 9) / 1 /
data alphaiw(:,1, 9) / &
& 3.6338390_wp, 3.6196960_wp, 3.5783940_wp, 3.4279380_wp, &
& 3.2173720_wp, 2.9799290_wp, 2.7383490_wp, 2.5057910_wp, &
& 2.2889990_wp, 2.0908140_wp, 1.9117910_wp, 1.7512000_wp, &
& 1.4795260_wp, 1.2627740_wp, 1.0886880_wp, 0.9474060_wp, &
& 0.8314380_wp, 0.6189740_wp, 0.4778550_wp, 0.3086410_wp, &
& 0.2153540_wp, 0.1079130_wp, 0.0645990_wp /
! REF FH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 9) / -0.39039862127573_wp /
data refh (2, 9) / 0.39039862127574_wp /
data gffq (2, 9) / -0.24773915491465_wp /
data gffh (2, 9) / 0.24773915491465_wp /
data dftq (2, 9) / -0.22072200000000_wp /
data dfth (2, 9) / 0.22072100000000_wp /
data pbcq (2, 9) / -0.39039862127573_wp /
data pbch (2, 9) / 0.39039862127574_wp /
data clsq (2, 9) / -0.24773915491465_wp /
data clsh (2, 9) / 0.24773915491465_wp /
data hcount (2, 9) / 1.00000000000000_wp /
data ascale (2, 9) / 1.00000000000000_wp /
data refcovcn(2, 9) / 0.74076991274917_wp /
data refcn (2, 9) / 0.99820363068818_wp /
data refsys (2, 9) / 1 /
data alphaiw(:,2, 9) / &
& 5.4170520_wp, 5.3885820_wp, 5.3062630_wp, 5.0155720_wp, &
& 4.6285580_wp, 4.2137360_wp, 3.8104020_wp, 3.4368990_wp, &
& 3.0998560_wp, 2.7999440_wp, 2.5350070_wp, 2.3017150_wp, &
& 1.9155660_wp, 1.6145960_wp, 1.3772910_wp, 1.1876550_wp, &
& 1.0340620_wp, 0.7578460_wp, 0.5783980_wp, 0.3678490_wp, &
& 0.2541230_wp, 0.1255490_wp, 0.0746120_wp /
data refn(9) / 2 /
! REF Ne - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 10) / 0.00000000000000_wp /
data refh (1, 10) / 0.00000000000000_wp /
data gffq (1, 10) / 0.00000000000000_wp /
data gffh (1, 10) / 0.00000000000000_wp /
data dftq (1, 10) / 0.00000000000000_wp /
data dfth (1, 10) / 0.00000000000000_wp /
data pbcq (1, 10) / 0.00000000000000_wp /
data pbch (1, 10) / 0.00000000000000_wp /
data clsq (1, 10) / 0.00000000000000_wp /
data clsh (1, 10) / 0.00000000000000_wp /
data hcount (1, 10) / 0.00000000000000_wp /
data ascale (1, 10) / 1.00000000000000_wp /
data refcovcn(1, 10) / 0.00000000000000_wp /
data refcn (1, 10) / 0.00000000000000_wp /
data refsys (1, 10) / 1 /
data alphaiw(:,1, 10) / &
& 2.6227940_wp, 2.6160810_wp, 2.5963010_wp, 2.5221150_wp, &
& 2.4130070_wp, 2.2831850_wp, 2.1442240_wp, 2.0040890_wp, &
& 1.8677460_wp, 1.7380750_wp, 1.6165850_wp, 1.5039070_wp, &
& 1.3049180_wp, 1.1383170_wp, 0.9993630_wp, 0.8832020_wp, &
& 0.7855560_wp, 0.6010260_wp, 0.4739350_wp, 0.3155110_wp, &
& 0.2245720_wp, 0.1157090_wp, 0.0702160_wp /
data refn(10) / 1 /
! REF Na - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 11) / -0.00000000000000_wp /
data refh (1, 11) / 0.00000000000000_wp /
data gffq (1, 11) / 0.00000000000000_wp /
data gffh (1, 11) / 0.00000000000000_wp /
data dftq (1, 11) / -0.00000000000000_wp /
data dfth (1, 11) / 0.00000000000000_wp /
data pbcq (1, 11) / -0.00000000000000_wp /
data pbch (1, 11) / 0.00000000000000_wp /
data clsq (1, 11) / 0.00000000000000_wp /
data clsh (1, 11) / 0.00000000000000_wp /
data hcount (1, 11) / 0.00000000000000_wp /
data ascale (1, 11) / 1.00000000000000_wp /
data refcovcn(1, 11) / 0.00000000000000_wp /
data refcn (1, 11) / 0.00000000000000_wp /
data refsys (1, 11) / 1 /
data alphaiw(:,1, 11) / &
& 170.9285310_wp, 119.1946230_wp, 62.8166710_wp, 22.2250350_wp, &
& 11.0609650_wp, 6.7225680_wp, 4.6167630_wp, 3.4360280_wp, &
& 2.7038020_wp, 2.2145400_wp, 1.8682650_wp, 1.6117710_wp, &
& 1.2586520_wp, 1.0272610_wp, 0.8636930_wp, 0.7418060_wp, &
& 0.6474800_wp, 0.4849210_wp, 0.3823130_wp, 0.2620130_wp, &
& 0.1947130_wp, 0.1108050_wp, 0.0717200_wp /
! REF NaH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 11) / 0.44612149004129_wp /
data refh (2, 11) / -0.44612149004129_wp /
data gffq (2, 11) / 0.37895090683878_wp /
data gffh (2, 11) / -0.37895090683878_wp /
data dftq (2, 11) / 0.36819000000000_wp /
data dfth (2, 11) / -0.36819400000000_wp /
data pbcq (2, 11) / 0.44612149004129_wp /
data pbch (2, 11) / -0.44612149004129_wp /
data clsq (2, 11) / 0.37895090683878_wp /
data clsh (2, 11) / -0.37895090683878_wp /
data hcount (2, 11) / 1.00000000000000_wp /
data ascale (2, 11) / 1.00000000000000_wp /
data refcovcn(2, 11) / 0.78077255822701_wp /
data refcn (2, 11) / 0.96835675605614_wp /
data refsys (2, 11) / 1 /
data alphaiw(:,2, 11) / &
& 40.8166710_wp, 37.3885700_wp, 30.2959980_wp, 18.3845350_wp, &
& 11.8437670_wp, 8.2528940_wp, 6.1199710_wp, 4.7572100_wp, &
& 3.8333160_wp, 3.1762600_wp, 2.6903860_wp, 2.3193520_wp, &
& 1.7948680_wp, 1.4454310_wp, 1.1979870_wp, 1.0146980_wp, &
& 0.8742120_wp, 0.6365370_wp, 0.4905090_wp, 0.3247020_wp, &
& 0.2353690_wp, 0.1290210_wp, 0.0819540_wp /
! REF Cl4Na4 - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 11) / 0.69570459023927_wp /
data refh (3, 11) / -0.69570459023927_wp /
data gffq (3, 11) / 0.48200000000000_wp /
data gffh (3, 11) / -0.48200000000000_wp /
data dftq (3, 11) / 0.69570459023927_wp /
data dfth (3, 11) / -0.69570459023927_wp /
data pbcq (3, 11) / 0.69570459023927_wp /
data pbch (3, 11) / -0.69570459023927_wp /
data clsq (3, 11) / 0.54307355286424_wp /
data clsh (3, 11) / -0.54307355286424_wp /
data hcount (3, 11) / 4.00000000000000_wp /
data ascale (3, 11) / 0.25000000000000_wp /
data refcovcn(3, 11) / 6.00100000000000_wp /
data refcn (3, 11) / 8.18700000000000_wp /
data refsys (3, 11) / 17 /
data alphaiw(:,3, 11) / &
& 92.6411774_wp, 91.4243783_wp, 88.0445743_wp, 77.4364073_wp, &
& 65.6163384_wp, 54.9685877_wp, 46.0979628_wp, 38.9126798_wp, &
& 33.1338025_wp, 28.4756146_wp, 24.6963717_wp, 21.6046368_wp, &
& 16.9269705_wp, 13.6278912_wp, 11.2244983_wp, 9.4230737_wp, &
& 8.0391231_wp, 5.7141662_wp, 4.3121698_wp, 2.9652901_wp, &
& 1.9616546_wp, 1.0496861_wp, 0.6661557_wp /
data refn(11) / 3 /
! REF Mg - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 12) / 0.0_wp /
data refh (1, 12) / 0.00000000000000_wp /
data gffq (1, 12) / 0.00000000000000_wp /
data gffh (1, 12) / 0.00000000000000_wp /
data dftq (1, 12) / 0.0_wp /
data dfth (1, 12) / 0.00000000000000_wp /
data pbcq (1, 12) / 0.0_wp /
data pbch (1, 12) / 0.00000000000000_wp /
data clsq (1, 12) / 0.00000000000000_wp /
data clsh (1, 12) / 0.00000000000000_wp /
data hcount (1, 12) / 0.00000000000000_wp /
data ascale (1, 12) / 1.00000000000000_wp /
data refcovcn(1, 12) / 0.00000000000000_wp /
data refcn (1, 12) / 0.00000000000000_wp /
data refsys (1, 12) / 1 /
data alphaiw(:,1, 12) / &
& 75.6666810_wp, 68.6955210_wp, 53.9153050_wp, 29.2692840_wp, &
& 16.8382330_wp, 10.6997010_wp, 7.3793160_wp, 5.4168470_wp, &
& 4.1702110_wp, 3.3314920_wp, 2.7405460_wp, 2.3081520_wp, &
& 1.7285400_wp, 1.3653680_wp, 1.1201210_wp, 0.9447260_wp, &
& 0.8135180_wp, 0.5959160_wp, 0.4626290_wp, 0.3079420_wp, &
& 0.2219990_wp, 0.1188580_wp, 0.0745220_wp /
! REF MgH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 12) / 0.31858696714581_wp /
data refh (2, 12) / -0.31858696714581_wp /
data gffq (2, 12) / 0.32933884303798_wp /
data gffh (2, 12) / -0.32933884303798_wp /
data dftq (2, 12) / 0.23345000000000_wp /
data dfth (2, 12) / -0.23345000000000_wp /
data pbcq (2, 12) / 0.31858696714581_wp /
data pbch (2, 12) / -0.31858696714581_wp /
data clsq (2, 12) / 0.32933884303798_wp /
data clsh (2, 12) / -0.32933884303798_wp /
data hcount (2, 12) / 1.00000000000000_wp /
data ascale (2, 12) / 1.00000000000000_wp /
data refcovcn(2, 12) / 0.82437946770105_wp /
data refcn (2, 12) / 0.96281367993504_wp /
data refsys (2, 12) / 1 /
data alphaiw(:,2, 12) / &
& 65.0041490_wp, 57.3670330_wp, 44.6926220_wp, 26.8427890_wp, &
& 17.2249920_wp, 11.8363720_wp, 8.6109420_wp, 6.5554130_wp, &
& 5.1738650_wp, 4.2034870_wp, 3.4965440_wp, 2.9655110_wp, &
& 2.2334680_wp, 1.7623610_wp, 1.4391360_wp, 1.2060360_wp, &
& 1.0311360_wp, 0.7419490_wp, 0.5670970_wp, 0.3688080_wp, &
& 0.2617440_wp, 0.1369550_wp, 0.0847940_wp /
! REF MgH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 12) / 0.41366273285585_wp /
data refh (3, 12) / -0.20683136642793_wp /
data gffq (3, 12) / 0.51074920852765_wp /
data gffh (3, 12) / -0.25537460426383_wp /
data dftq (3, 12) / 0.48884700000000_wp /
data dfth (3, 12) / -0.24442000000000_wp /
data pbcq (3, 12) / 0.41366273285585_wp /
data pbch (3, 12) / -0.20683136642793_wp /
data clsq (3, 12) / 0.51074920852765_wp /
data clsh (3, 12) / -0.25537460426383_wp /
data hcount (3, 12) / 2.00000000000000_wp /
data ascale (3, 12) / 1.00000000000000_wp /
data refcovcn(3, 12) / 1.66972660811953_wp /
data refcn (3, 12) / 1.94960242607378_wp /
data refsys (3, 12) / 1 /
data alphaiw(:,3, 12) / &
& 34.5442750_wp, 33.5344340_wp, 30.8656630_wp, 23.6561780_wp, &
& 17.3397030_wp, 12.8432530_wp, 9.7723270_wp, 7.6521380_wp, &
& 6.1504810_wp, 5.0567630_wp, 4.2388110_wp, 3.6123090_wp, &
& 2.7314370_wp, 2.1542960_wp, 1.7542370_wp, 1.4641950_wp, &
& 1.2461470_wp, 0.8862330_wp, 0.6703080_wp, 0.4289380_wp, &
& 0.3010120_wp, 0.1548430_wp, 0.0949500_wp /
! REF Mg4O4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 12) / 0.50571212038828_wp /
data refh (4, 12) / 0.00000000000000_wp /
data gffq (4, 12) / 0.72100000000000_wp /
data gffh (4, 12) / -0.72100000000000_wp /
data dftq (4, 12) / 0.50571212038828_wp /
data dfth (4, 12) / 0.00000000000000_wp /
data pbcq (4, 12) / 0.34300000000000_wp /
data pbch (4, 12) / -0.34300000000000_wp /
data clsq (4, 12) / 0.34300000000000_wp /
data clsh (4, 12) / -0.34300000000000_wp /
data hcount (4, 12) / 4.00000000000000_wp /
data ascale (4, 12) / 0.25000000000000_wp /
data refcovcn(4, 12) / 13.95600000000000_wp /
data refcn (4, 12) / 16.20300000000000_wp /
data refsys (4, 12) / 9 /
data alphaiw(:,4, 12) / &
& 74.6298821_wp, 72.6677188_wp, 67.9314704_wp, 56.5001225_wp, &
& 46.4504007_wp, 38.4956042_wp, 32.3037179_wp, 27.4626661_wp, &
& 23.6358080_wp, 20.5710128_wp, 18.0838250_wp, 16.0395958_wp, &
& 12.9096858_wp, 10.6544671_wp, 8.9710814_wp, 7.6771288_wp, &
& 6.6579370_wp, 4.8778230_wp, 3.8586312_wp, 2.8394394_wp, &
& 1.7107782_wp, 0.8784693_wp, 0.5365232_wp /
data refn(12) / 4 /
! REF Al - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 13) / -0.00000000000001_wp /
data refh (1, 13) / 0.00000000000000_wp /
data gffq (1, 13) / 0.00000000000000_wp /
data gffh (1, 13) / 0.00000000000000_wp /
data dftq (1, 13) / -0.00000000000001_wp /
data dfth (1, 13) / 0.00000000000000_wp /
data pbcq (1, 13) / -0.00000000000001_wp /
data pbch (1, 13) / 0.00000000000000_wp /
data clsq (1, 13) / 0.00000000000000_wp /
data clsh (1, 13) / 0.00000000000000_wp /
data hcount (1, 13) / 0.00000000000000_wp /
data ascale (1, 13) / 1.00000000000000_wp /
data refcovcn(1, 13) / 0.00000000000000_wp /
data refcn (1, 13) / 0.00000000000000_wp /
data refsys (1, 13) / 1 /
data alphaiw(:,1, 13) / &
& 60.8923430_wp, 56.3100140_wp, 46.7886820_wp, 29.5825800_wp, &
& 18.9999900_wp, 12.8554770_wp, 9.1653720_wp, 6.8351170_wp, &
& 5.2901970_wp, 4.2211880_wp, 3.4539770_wp, 2.8860210_wp, &
& 2.1186190_wp, 1.6376640_wp, 1.3157820_wp, 1.0890010_wp, &
& 0.9224950_wp, 0.6556710_wp, 0.5002950_wp, 0.3292210_wp, &
& 0.2377920_wp, 0.1286420_wp, 0.0807650_wp /
! REF AlH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 13) / 0.24477359917277_wp /
data refh (2, 13) / -0.24477359917277_wp /
data gffq (2, 13) / 0.03709152257935_wp /
data gffh (2, 13) / -0.03709152257935_wp /
data dftq (2, 13) / 0.09741300000000_wp /
data dfth (2, 13) / -0.09741400000000_wp /
data pbcq (2, 13) / 0.24477359917277_wp /
data pbch (2, 13) / -0.24477359917277_wp /
data clsq (2, 13) / 0.03709152257935_wp /
data clsh (2, 13) / -0.03709152257935_wp /
data hcount (2, 13) / 1.00000000000000_wp /
data ascale (2, 13) / 1.00000000000000_wp /
data refcovcn(2, 13) / 0.86567622356503_wp /
data refcn (2, 13) / 0.96483397822083_wp /
data refsys (2, 13) / 1 /
data alphaiw(:,2, 13) / &
& 56.2109890_wp, 52.4017100_wp, 44.3132520_wp, 29.4084250_wp, &
& 19.9025080_wp, 14.0717810_wp, 10.3773750_wp, 7.9372390_wp, &
& 6.2599590_wp, 5.0653090_wp, 4.1877030_wp, 3.5255730_wp, &
& 2.6117110_wp, 2.0262590_wp, 1.6284670_wp, 1.3453070_wp, &
& 1.1360060_wp, 0.7989100_wp, 0.6026620_wp, 0.3886840_wp, &
& 0.2764850_wp, 0.1461420_wp, 0.0906750_wp /
! REF AlH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 13) / 0.36087089581165_wp /
data refh (3, 13) / -0.18043544790582_wp /
data gffq (3, 13) / 0.05079767549293_wp /
data gffh (3, 13) / -0.02539883774646_wp /
data dftq (3, 13) / 0.29823500000000_wp /
data dfth (3, 13) / -0.14912100000000_wp /
data pbcq (3, 13) / 0.36087089581165_wp /
data pbch (3, 13) / -0.18043544790582_wp /
data clsq (3, 13) / 0.05079767549293_wp /
data clsh (3, 13) / -0.02539883774646_wp /
data hcount (3, 13) / 2.00000000000000_wp /
data ascale (3, 13) / 1.00000000000000_wp /
data refcovcn(3, 13) / 1.73262223552501_wp /
data refcn (3, 13) / 1.93105228668158_wp /
data refsys (3, 13) / 1 /
data alphaiw(:,3, 13) / &
& 43.0078740_wp, 40.3049500_wp, 35.7272810_wp, 26.8099970_wp, &
& 19.8081180_wp, 14.8306090_wp, 11.3606550_wp, 8.9171350_wp, &
& 7.1607780_wp, 5.8687510_wp, 4.8965000_wp, 4.1493490_wp, &
& 3.0979680_wp, 2.4116390_wp, 1.9395410_wp, 1.6007580_wp, &
& 1.3490360_wp, 0.9419730_wp, 0.7048990_wp, 0.4480100_wp, &
& 0.3150480_wp, 0.1635630_wp, 0.1005420_wp /
! REF AlH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 13) / 0.43660315534647_wp /
data refh (4, 13) / -0.14553438511549_wp /
data gffq (4, 13) / 0.05291396113772_wp /
data gffh (4, 13) / -0.01763798704591_wp /
data dftq (4, 13) / 0.45393300000000_wp /
data dfth (4, 13) / -0.15131333333333_wp /
data pbcq (4, 13) / 0.43660315534647_wp /
data pbch (4, 13) / -0.14553438511549_wp /
data clsq (4, 13) / 0.05291396113772_wp /
data clsh (4, 13) / -0.01763798704591_wp /
data hcount (4, 13) / 3.00000000000000_wp /
data ascale (4, 13) / 1.00000000000000_wp /
data refcovcn(4, 13) / 2.61541321571983_wp /
data refcn (4, 13) / 2.91455515763177_wp /
data refsys (4, 13) / 1 /
data alphaiw(:,4, 13) / &
& 32.2831180_wp, 31.7115930_wp, 30.1255060_wp, 25.2170820_wp, &
& 20.0120360_wp, 15.6749350_wp, 12.3626340_wp, 9.8945680_wp, &
& 8.0530620_wp, 6.6626970_wp, 5.5965060_wp, 4.7654850_wp, &
& 3.5787890_wp, 2.7932030_wp, 2.2479080_wp, 1.8542580_wp, &
& 1.5606340_wp, 1.0843300_wp, 0.8067590_wp, 0.5072070_wp, &
& 0.3535600_wp, 0.1809750_wp, 0.1104040_wp /
data refn(13) / 4 /
! REF Si - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 14) / -0.00000000000000_wp /
data refh (1, 14) / 0.00000000000000_wp /
data gffq (1, 14) / 0.00000000000000_wp /
data gffh (1, 14) / 0.00000000000000_wp /
data dftq (1, 14) / -0.00000000000000_wp /
data dfth (1, 14) / 0.00000000000000_wp /
data pbcq (1, 14) / -0.00000000000000_wp /
data pbch (1, 14) / 0.00000000000000_wp /
data clsq (1, 14) / 0.00000000000000_wp /
data clsh (1, 14) / 0.00000000000000_wp /
data hcount (1, 14) / 0.00000000000000_wp /
data ascale (1, 14) / 1.00000000000000_wp /
data refcovcn(1, 14) / 0.00000000000000_wp /
data refcn (1, 14) / 0.00000000000000_wp /
data refsys (1, 14) / 1 /
data alphaiw(:,1, 14) / &
& 38.9490650_wp, 37.5127500_wp, 33.9244170_wp, 25.1761170_wp, &
& 18.0845250_wp, 13.1765080_wp, 9.8616700_wp, 7.5917060_wp, &
& 5.9982420_wp, 4.8493400_wp, 3.9995310_wp, 3.3561160_wp, &
& 2.4668840_wp, 1.8982190_wp, 1.5134620_wp, 1.2411020_wp, &
& 1.0410670_wp, 0.7226000_wp, 0.5405560_wp, 0.3465530_wp, &
& 0.2471760_wp, 0.1332610_wp, 0.0845050_wp /
! REF SiH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 14) / 0.16996090538399_wp /
data refh (2, 14) / -0.16996090538399_wp /
data gffq (2, 14) / 0.01649127941162_wp /
data gffh (2, 14) / -0.01649127941162_wp /
data dftq (2, 14) / 0.10844400000000_wp /
data dfth (2, 14) / -0.10844300000000_wp /
data pbcq (2, 14) / 0.16996090538399_wp /
data pbch (2, 14) / -0.16996090538399_wp /
data clsq (2, 14) / 0.01649127941162_wp /
data clsh (2, 14) / -0.01649127941162_wp /
data hcount (2, 14) / 1.00000000000000_wp /
data ascale (2, 14) / 1.00000000000000_wp /
data refcovcn(2, 14) / 0.89153537011814_wp /
data refcn (2, 14) / 0.95070518838146_wp /
data refsys (2, 14) / 1 /
data alphaiw(:,2, 14) / &
& 38.0097750_wp, 36.6441270_wp, 33.3701090_wp, 25.5897470_wp, &
& 19.0941400_wp, 14.3691430_wp, 11.0297080_wp, 8.6569570_wp, &
& 6.9417830_wp, 5.6758970_wp, 4.7217950_wp, 3.9882980_wp, &
& 2.9570580_wp, 2.2858030_wp, 1.8259530_wp, 1.4975500_wp, &
& 1.2548440_wp, 0.8660940_wp, 0.6430810_wp, 0.4060490_wp, &
& 0.2858610_wp, 0.1507420_wp, 0.0943940_wp /
! REF SiH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 14) / 0.24464651050076_wp /
data refh (3, 14) / -0.12232325525038_wp /
data gffq (3, 14) / -0.00640083798505_wp /
data gffh (3, 14) / 0.00320041899253_wp /
data dftq (3, 14) / 0.09099000000000_wp /
data dfth (3, 14) / -0.04549600000000_wp /
data pbcq (3, 14) / 0.24464651050076_wp /
data pbch (3, 14) / -0.12232325525038_wp /
data clsq (3, 14) / -0.00640083798505_wp /
data clsh (3, 14) / 0.00320041899253_wp /
data hcount (3, 14) / 2.00000000000000_wp /
data ascale (3, 14) / 1.00000000000000_wp /
data refcovcn(3, 14) / 1.82343155163634_wp /
data refcn (3, 14) / 1.94352476341216_wp /
data refsys (3, 14) / 1 /
data alphaiw(:,3, 14) / &
& 37.2763200_wp, 36.2054630_wp, 33.4711240_wp, 26.4376500_wp, &
& 20.2438260_wp, 15.5716430_wp, 12.1648030_wp, 9.6798740_wp, &
& 7.8448670_wp, 6.4670510_wp, 5.4140820_wp, 4.5954000_wp, &
& 3.4297600_wp, 2.6610590_wp, 2.1295730_wp, 1.7474840_wp, &
& 1.4637430_wp, 1.0070410_wp, 0.7441640_wp, 0.4650030_wp, &
& 0.3243180_wp, 0.1681920_wp, 0.1042810_wp /
! REF Si2H4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 14) / 0.20893161783021_wp /
data refh (4, 14) / -0.10446580891510_wp /
data gffq (4, 14) / -0.03084420203156_wp /
data gffh (4, 14) / 0.01542210101578_wp /
data dftq (4, 14) / 0.08951100000000_wp /
data dfth (4, 14) / -0.04475900000000_wp /
data pbcq (4, 14) / 0.20893161783021_wp /
data pbch (4, 14) / -0.10446580891510_wp /
data clsq (4, 14) / -0.03084420203156_wp /
data clsh (4, 14) / 0.01542210101578_wp /
data hcount (4, 14) / 4.00000000000000_wp /
data ascale (4, 14) / 0.50000000000000_wp /
data refcovcn(4, 14) / 2.80029114356397_wp /
data refcn (4, 14) / 2.94071103313097_wp /
data refsys (4, 14) / 1 /
data alphaiw(:,4, 14) / &
& 75.2662880_wp, 72.3612970_wp, 65.6345910_wp, 50.8100850_wp, &
& 38.9033790_wp, 30.0787730_wp, 23.6268450_wp, 18.8896320_wp, &
& 15.3681050_wp, 12.7085630_wp, 10.6661350_wp, 9.0717390_wp, &
& 6.7912830_wp, 5.2803260_wp, 4.2321590_wp, 3.4767820_wp, &
& 2.9147970_wp, 2.0082810_wp, 1.4853250_wp, 0.9289700_wp, &
& 0.6481770_wp, 0.3362410_wp, 0.2084750_wp /
! REF Si2H6 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (5, 14) / 0.36245469258615_wp /
data refh (5, 14) / -0.12081823086205_wp /
data gffq (5, 14) / -0.06585975737745_wp /
data gffh (5, 14) / 0.02195325245915_wp /
data dftq (5, 14) / 0.18170400000000_wp /
data dfth (5, 14) / -0.06057216666667_wp /
data pbcq (5, 14) / 0.36245469258615_wp /
data pbch (5, 14) / -0.12081823086205_wp /
data clsq (5, 14) / -0.06585975737745_wp /
data clsh (5, 14) / 0.02195325245915_wp /
data hcount (5, 14) / 6.00000000000000_wp /
data ascale (5, 14) / 0.50000000000000_wp /
data refcovcn(5, 14) / 3.66675219599495_wp /
data refcn (5, 14) / 3.86773979105472_wp /
data refsys (5, 14) / 1 /
data alphaiw(:,5, 14) / &
& 61.7861480_wp, 60.8116450_wp, 58.0975290_wp, 49.5798710_wp, &
& 40.2758690_wp, 32.2331470_wp, 25.8672360_wp, 20.9751250_wp, &
& 17.2319240_wp, 14.3488200_wp, 12.1032080_wp, 10.3316220_wp, &
& 7.7698820_wp, 6.0547620_wp, 4.8568220_wp, 3.9895410_wp, &
& 3.3422950_wp, 2.2952740_wp, 1.6903860_wp, 1.0479590_wp, &
& 0.7255320_wp, 0.3711770_wp, 0.2282300_wp /
data refn(14) / 5 /
! REF P - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 15) / -0.00000000000002_wp /
data refh (1, 15) / 0.00000000000000_wp /
data gffq (1, 15) / 0.00000000000000_wp /
data gffh (1, 15) / 0.00000000000000_wp /
data dftq (1, 15) / -0.00000000000002_wp /
data dfth (1, 15) / 0.00000000000000_wp /
data pbcq (1, 15) / -0.00000000000002_wp /
data pbch (1, 15) / 0.00000000000000_wp /
data clsq (1, 15) / 0.00000000000000_wp /
data clsh (1, 15) / 0.00000000000000_wp /
data hcount (1, 15) / 0.00000000000000_wp /
data ascale (1, 15) / 1.00000000000000_wp /
data refcovcn(1, 15) / 0.00000000000000_wp /
data refcn (1, 15) / 0.00000000000000_wp /
data refsys (1, 15) / 1 /
data alphaiw(:,1, 15) / &
& 25.9470070_wp, 25.4290340_wp, 24.0216260_wp, 19.8723550_wp, &
& 15.6749860_wp, 12.2514680_wp, 9.6516650_wp, 7.7129690_wp, &
& 6.2628530_wp, 5.1656700_wp, 4.3233980_wp, 3.6669330_wp, &
& 2.7311570_wp, 2.1144260_wp, 1.6888290_wp, 1.3835900_wp, &
& 1.1574800_wp, 0.7949870_wp, 0.5875340_wp, 0.3687610_wp, &
& 0.2592740_wp, 0.1378720_wp, 0.0875080_wp /
! REF PH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 15) / -0.08781933942405_wp /
data refh (2, 15) / 0.08781933942403_wp /
data gffq (2, 15) / -0.17987135979307_wp /
data gffh (2, 15) / 0.17987135979307_wp /
data dftq (2, 15) / 0.02053400000000_wp /
data dfth (2, 15) / -0.02053400000000_wp /
data pbcq (2, 15) / -0.08781933942405_wp /
data pbch (2, 15) / 0.08781933942403_wp /
data clsq (2, 15) / -0.17987135979307_wp /
data clsh (2, 15) / 0.17987135979307_wp /
data hcount (2, 15) / 1.00000000000000_wp /
data ascale (2, 15) / 1.00000000000000_wp /
data refcovcn(2, 15) / 0.97498969761258_wp /
data refcn (2, 15) / 0.99467058048882_wp /
data refsys (2, 15) / 1 /
data alphaiw(:,2, 15) / &
& 27.8753970_wp, 27.3122270_wp, 25.8232190_wp, 21.5634300_wp, &
& 17.2591270_wp, 13.6872210_wp, 10.9190600_wp, 8.8162050_wp, &
& 7.2183460_wp, 5.9933920_wp, 5.0426620_wp, 4.2948080_wp, &
& 3.2172770_wp, 2.4989620_wp, 1.9991280_wp, 1.6384630_wp, &
& 1.3701110_wp, 0.9379270_wp, 0.6897680_wp, 0.4281650_wp, &
& 0.2979330_wp, 0.1553700_wp, 0.0974170_wp /
! REF P2H2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 15) / -0.03728416546523_wp /
data refh (3, 15) / 0.03728416546523_wp /
data gffq (3, 15) / -0.12671124139840_wp /
data gffh (3, 15) / 0.12671124139840_wp /
data dftq (3, 15) / 0.00896800000000_wp /
data dfth (3, 15) / -0.00896100000000_wp /
data pbcq (3, 15) / -0.03728416546523_wp /
data pbch (3, 15) / 0.03728416546523_wp /
data clsq (3, 15) / -0.12671124139840_wp /
data clsh (3, 15) / 0.12671124139840_wp /
data hcount (3, 15) / 2.00000000000000_wp /
data ascale (3, 15) / 0.50000000000000_wp /
data refcovcn(3, 15) / 1.95559430261502_wp /
data refcn (3, 15) / 2.01017301871106_wp /
data refsys (3, 15) / 1 /
data alphaiw(:,3, 15) / &
& 55.7853670_wp, 54.5314410_wp, 51.2683850_wp, 42.3425800_wp, &
& 33.7346300_wp, 26.7484370_wp, 21.3755400_wp, 17.2987970_wp, &
& 14.1966540_wp, 11.8128320_wp, 9.9578290_wp, 8.4949500_wp, &
& 6.3802250_wp, 4.9651180_wp, 3.9775280_wp, 3.2633040_wp, &
& 2.7309600_wp, 1.8718860_wp, 1.3776140_wp, 0.8557670_wp, &
& 0.5956760_wp, 0.3107310_wp, 0.1948320_wp /
! REF PH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 15) / -0.11027568692625_wp /
data refh (4, 15) / 0.03675856230875_wp /
data gffq (4, 15) / -0.17467927422329_wp /
data gffh (4, 15) / 0.05822642474110_wp /
data dftq (4, 15) / 0.01948500000000_wp /
data dfth (4, 15) / -0.00648966666667_wp /
data pbcq (4, 15) / -0.11027568692625_wp /
data pbch (4, 15) / 0.03675856230875_wp /
data clsq (4, 15) / -0.17467927422329_wp /
data clsh (4, 15) / 0.05822642474110_wp /
data hcount (4, 15) / 3.00000000000000_wp /
data ascale (4, 15) / 1.00000000000000_wp /
data refcovcn(4, 15) / 2.92666412421238_wp /
data refcn (4, 15) / 2.98587564194422_wp /
data refsys (4, 15) / 1 /
data alphaiw(:,4, 15) / &
& 30.4586930_wp, 29.9832590_wp, 28.6718190_wp, 24.6351360_wp, &
& 20.2683100_wp, 16.4561420_wp, 13.3810200_wp, 10.9693570_wp, &
& 9.0896850_wp, 7.6189190_wp, 6.4582620_wp, 5.5327160_wp, &
& 4.1782340_wp, 3.2605350_wp, 2.6145330_wp, 2.1444890_wp, &
& 1.7926280_wp, 1.2223890_wp, 0.8934200_wp, 0.5466340_wp, &
& 0.3750780_wp, 0.1903100_wp, 0.1172040_wp /
data refn(15) / 4 /
! REF S - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 16) / 0.00000000000000_wp /
data refh (1, 16) / 0.00000000000000_wp /
data gffq (1, 16) / 0.00000000000000_wp /
data gffh (1, 16) / 0.00000000000000_wp /
data dftq (1, 16) / 0.00000000000000_wp /
data dfth (1, 16) / 0.00000000000000_wp /
data pbcq (1, 16) / 0.00000000000000_wp /
data pbch (1, 16) / 0.00000000000000_wp /
data clsq (1, 16) / 0.00000000000000_wp /
data clsh (1, 16) / 0.00000000000000_wp /
data hcount (1, 16) / 0.00000000000000_wp /
data ascale (1, 16) / 1.00000000000000_wp /
data refcovcn(1, 16) / 0.00000000000000_wp /
data refcn (1, 16) / 0.00000000000000_wp /
data refsys (1, 16) / 1 /
data alphaiw(:,1, 16) / &
& 19.6135110_wp, 19.3396950_wp, 18.5777950_wp, 16.1740460_wp, &
& 13.4828010_wp, 11.0662650_wp, 9.0764420_wp, 7.4918500_wp, &
& 6.2419920_wp, 5.2546810_wp, 4.4695850_wp, 3.8397190_wp, &
& 2.9119750_wp, 2.2796060_wp, 1.8328050_wp, 1.5069310_wp, &
& 1.2625940_wp, 0.8658660_wp, 0.6364800_wp, 0.3940160_wp, &
& 0.2736140_wp, 0.1429400_wp, 0.0902880_wp /
! REF SH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 16) / -0.17222533230765_wp /
data refh (2, 16) / 0.17222533230765_wp /
data gffq (2, 16) / -0.16267234588041_wp /
data gffh (2, 16) / 0.16267234588041_wp /
data dftq (2, 16) / -0.06020800000000_wp /
data dfth (2, 16) / 0.06020800000000_wp /
data pbcq (2, 16) / -0.17222533230765_wp /
data pbch (2, 16) / 0.17222533230765_wp /
data clsq (2, 16) / -0.16267234588041_wp /
data clsh (2, 16) / 0.16267234588041_wp /
data hcount (2, 16) / 1.00000000000000_wp /
data ascale (2, 16) / 1.00000000000000_wp /
data refcovcn(2, 16) / 0.92198495968462_wp /
data refcn (2, 16) / 0.99484136522295_wp /
data refsys (2, 16) / 1 /
data alphaiw(:,2, 16) / &
& 22.2041430_wp, 21.8891090_wp, 21.0218000_wp, 18.3279640_wp, &
& 15.3337320_wp, 12.6407210_wp, 10.4119420_wp, 8.6265960_wp, &
& 7.2105080_wp, 6.0862970_wp, 5.1884110_wp, 4.4652670_wp, &
& 3.3950220_wp, 2.6615450_wp, 2.1411100_wp, 1.7603030_wp, &
& 1.4740840_wp, 1.0081850_wp, 0.7383390_wp, 0.4532570_wp, &
& 0.3121980_wp, 0.1604390_wp, 0.1002160_wp /
! REF SH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 16) / -0.34208440200689_wp /
data refh (3, 16) / 0.17104220100345_wp /
data gffq (3, 16) / -0.23775171448878_wp /
data gffh (3, 16) / 0.11887585724439_wp /
data dftq (3, 16) / -0.12414700000000_wp /
data dfth (3, 16) / 0.06208000000000_wp /
data pbcq (3, 16) / -0.34208440200689_wp /
data pbch (3, 16) / 0.17104220100345_wp /
data clsq (3, 16) / -0.23775171448878_wp /
data clsh (3, 16) / 0.11887585724439_wp /
data hcount (3, 16) / 2.00000000000000_wp /
data ascale (3, 16) / 1.00000000000000_wp /
data refcovcn(3, 16) / 1.84453813661707_wp /
data refcn (3, 16) / 1.99034385492992_wp /
data refsys (3, 16) / 1 /
data alphaiw(:,3, 16) / &
& 24.5118610_wp, 24.1774360_wp, 23.2503900_wp, 20.3440110_wp, &
& 17.0929990_wp, 14.1530500_wp, 11.7050130_wp, 9.7320240_wp, &
& 8.1583820_wp, 6.9030290_wp, 5.8962250_wp, 5.0824590_wp, &
& 3.8729230_wp, 3.0400830_wp, 2.4470470_wp, 2.0119580_wp, &
& 1.6842890_wp, 1.1498080_wp, 0.8397730_wp, 0.5122980_wp, &
& 0.3506710_wp, 0.1779010_wp, 0.1101270_wp /
data refn(16) / 3 /
! REF Cl - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 17) / 0.00000000000000_wp /
data refh (1, 17) / 0.00000000000000_wp /
data gffq (1, 17) / 0.00000000000000_wp /
data gffh (1, 17) / 0.00000000000000_wp /
data dftq (1, 17) / 0.00000000000000_wp /
data dfth (1, 17) / 0.00000000000000_wp /
data pbcq (1, 17) / 0.00000000000000_wp /
data pbch (1, 17) / 0.00000000000000_wp /
data clsq (1, 17) / 0.00000000000000_wp /
data clsh (1, 17) / 0.00000000000000_wp /
data hcount (1, 17) / 0.00000000000000_wp /
data ascale (1, 17) / 1.00000000000000_wp /
data refcovcn(1, 17) / 0.00000000000000_wp /
data refcn (1, 17) / 0.00000000000000_wp /
data refsys (1, 17) / 1 /
data alphaiw(:,1, 17) / &
& 14.6510610_wp, 14.5166850_wp, 14.1329320_wp, 12.8305660_wp, &
& 11.2118050_wp, 9.6110460_wp, 8.1817260_wp, 6.9658720_wp, &
& 5.9541940_wp, 5.1193500_wp, 4.4310730_wp, 3.8619390_wp, &
& 2.9935150_wp, 2.3788950_wp, 1.9324470_wp, 1.6000440_wp, &
& 1.3469040_wp, 0.9286160_wp, 0.6827690_wp, 0.4202900_wp, &
& 0.2895830_wp, 0.1489740_wp, 0.0934510_wp /
! REF ClH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 17) / -0.33096614692963_wp /
data refh (2, 17) / 0.33096614692963_wp /
data gffq (2, 17) / -0.15045057451823_wp /
data gffh (2, 17) / 0.15045057451823_wp /
data dftq (2, 17) / -0.13139700000000_wp /
data dfth (2, 17) / 0.13139800000000_wp /
data pbcq (2, 17) / -0.33096614692963_wp /
data pbch (2, 17) / 0.33096614692963_wp /
data clsq (2, 17) / -0.15045057451823_wp /
data clsh (2, 17) / 0.15045057451823_wp /
data hcount (2, 17) / 1.00000000000000_wp /
data ascale (2, 17) / 1.00000000000000_wp /
data refcovcn(2, 17) / 0.84439969796621_wp /
data refcn (2, 17) / 0.99718907461633_wp /
data refsys (2, 17) / 1 /
data alphaiw(:,2, 17) / &
& 17.2630540_wp, 17.0983080_wp, 16.6294740_wp, 15.0531340_wp, &
& 13.1168290_wp, 11.2193720_wp, 9.5356020_wp, 8.1091300_wp, &
& 6.9254200_wp, 5.9504380_wp, 5.1476860_wp, 4.4845120_wp, &
& 3.4734290_wp, 2.7582120_wp, 2.2387270_wp, 1.8518950_wp, &
& 1.5572580_wp, 1.0703600_wp, 0.7842990_wp, 0.4793850_wp, &
& 0.3280880_wp, 0.1664540_wp, 0.1033810_wp /
data refn(17) / 2 /
! REF Ar - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 18) / -0.00000000000000_wp /
data refh (1, 18) / 0.00000000000000_wp /
data gffq (1, 18) / 0.00000000000000_wp /
data gffh (1, 18) / 0.00000000000000_wp /
data dftq (1, 18) / -0.00000000000000_wp /
data dfth (1, 18) / 0.00000000000000_wp /
data pbcq (1, 18) / -0.00000000000000_wp /
data pbch (1, 18) / 0.00000000000000_wp /
data clsq (1, 18) / 0.00000000000000_wp /
data clsh (1, 18) / 0.00000000000000_wp /
data hcount (1, 18) / 0.00000000000000_wp /
data ascale (1, 18) / 1.00000000000000_wp /
data refcovcn(1, 18) / 0.00000000000000_wp /
data refcn (1, 18) / 0.00000000000000_wp /
data refsys (1, 18) / 1 /
data alphaiw(:,1, 18) / &
& 11.1080370_wp, 11.0394140_wp, 10.8402330_wp, 10.1295640_wp, &
& 9.1733700_wp, 8.1487470_wp, 7.1654820_wp, 6.2757630_wp, &
& 5.4960060_wp, 4.8240080_wp, 4.2494460_wp, 3.7594860_wp, &
& 2.9839560_wp, 2.4128240_wp, 1.9852170_wp, 1.6593100_wp, &
& 1.4065440_wp, 0.9797740_wp, 0.7235180_wp, 0.4456840_wp, &
& 0.3060220_wp, 0.1557480_wp, 0.0970350_wp /
data refn(18) / 1 /
! REF K - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 19) / -0.00000000000000_wp /
data refh (1, 19) / 0.00000000000000_wp /
data gffq (1, 19) / 0.00000000000000_wp /
data gffh (1, 19) / 0.00000000000000_wp /
data dftq (1, 19) / -0.00000000000000_wp /
data dfth (1, 19) / 0.00000000000000_wp /
data pbcq (1, 19) / -0.00000000000000_wp /
data pbch (1, 19) / 0.00000000000000_wp /
data clsq (1, 19) / 0.00000000000000_wp /
data clsh (1, 19) / 0.00000000000000_wp /
data hcount (1, 19) / 0.00000000000000_wp /
data ascale (1, 19) / 1.00000000000000_wp /
data refcovcn(1, 19) / 0.00000000000000_wp /
data refcn (1, 19) / 0.00000000000000_wp /
data refsys (1, 19) / 1 /
data alphaiw(:,1, 19) / &
& 366.6173270_wp, 195.2407260_wp, 83.8654450_wp, 28.8051330_wp, &
& 15.9216120_wp, 10.9496410_wp, 8.4035800_wp, 6.8431600_wp, &
& 5.7666680_wp, 4.9640380_wp, 4.3344440_wp, 3.8237620_wp, &
& 3.0427910_wp, 2.4756550_wp, 2.0494570_wp, 1.7214130_wp, &
& 1.4641050_wp, 1.0222030_wp, 0.7516860_wp, 0.4544310_wp, &
& 0.3045490_wp, 0.1458010_wp, 0.0862690_wp /
! REF KH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 19) / 0.44919564669363_wp /
data refh (2, 19) / -0.44919564669363_wp /
data gffq (2, 19) / 0.44376242787490_wp /
data gffh (2, 19) / -0.44376242787490_wp /
data dftq (2, 19) / 0.43084800000000_wp /
data dfth (2, 19) / -0.43085400000000_wp /
data pbcq (2, 19) / 0.44919564669363_wp /
data pbch (2, 19) / -0.44919564669363_wp /
data clsq (2, 19) / 0.44376242787490_wp /
data clsh (2, 19) / -0.44376242787490_wp /
data hcount (2, 19) / 1.00000000000000_wp /
data ascale (2, 19) / 1.00000000000000_wp /
data refcovcn(2, 19) / 0.77389074718844_wp /
data refcn (2, 19) / 0.97673829344237_wp /
data refsys (2, 19) / 1 /
data alphaiw(:,2, 19) / &
& 53.4389170_wp, 47.8463210_wp, 37.7399140_wp, 23.4699070_wp, &
& 16.3225240_wp, 12.3576000_wp, 9.8698810_wp, 8.1579680_wp, &
& 6.9001080_wp, 5.9321790_wp, 5.1625350_wp, 4.5358880_wp, &
& 3.5804740_wp, 2.8930340_wp, 2.3815560_wp, 1.9913210_wp, &
& 1.6874660_wp, 1.1703840_wp, 0.8568800_wp, 0.5151140_wp, &
& 0.3439260_wp, 0.1635940_wp, 0.0963540_wp /
! REF K4Cl4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 19) / 0.70700012466991_wp /
data refh (3, 19) / -0.70700012466991_wp /
data gffq (3, 19) / 0.62148041473613_wp /
data gffh (3, 19) / -0.62148041473613_wp /
data dftq (3, 19) / 0.70700012466991_wp /
data dfth (3, 19) / -0.70700012466991_wp /
data pbcq (3, 19) / 0.30400000000000_wp/
data pbch (3, 19) / -0.30400000000000_wp/
data clsq (3, 19) / 0.30400000000000_wp /
data clsh (3, 19) / -0.30400000000000_wp /
data hcount (3, 19) / 4.00000000000000_wp /
data ascale (3, 19) / 0.25000000000000_wp /
data refcovcn(3, 19) / 11.45000000000000_wp /
data refcn (3, 19) / 13.53400000000000_wp /
data refsys (3, 19) / 17 /
data alphaiw(:,3, 19) / &
& 112.8769963_wp, 111.5382559_wp, 107.8201226_wp, 96.1458563_wp, &
& 83.0747922_wp, 71.1307898_wp, 60.9421945_wp, 52.4432551_wp, &
& 45.3906629_wp, 39.5298970_wp, 34.6393638_wp, 30.5368708_wp, &
& 24.1382573_wp, 19.4781015_wp, 16.0067586_wp, 13.3663894_wp, &
& 11.3195232_wp, 7.8610363_wp, 5.7811058_wp, 3.5249696_wp, &
& 2.3940353_wp, 1.1879380_wp, 0.7245068_wp /
data refn(19) / 3 /
! REF Ca - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 20) / -0.00000000000000_wp /
data refh (1, 20) / 0.00000000000000_wp /
data gffq (1, 20) / 0.00000000000000_wp /
data gffh (1, 20) / 0.00000000000000_wp /
data dftq (1, 20) / -0.00000000000000_wp /
data dfth (1, 20) / 0.00000000000000_wp /
data pbcq (1, 20) / -0.00000000000000_wp /
data pbch (1, 20) / 0.00000000000000_wp /
data clsq (1, 20) / 0.00000000000000_wp /
data clsh (1, 20) / 0.00000000000000_wp /
data hcount (1, 20) / 0.00000000000000_wp /
data ascale (1, 20) / 1.00000000000000_wp /
data refcovcn(1, 20) / 0.00000000000000_wp /
data refcn (1, 20) / 0.00000000000000_wp /
data refsys (1, 20) / 1 /
data alphaiw(:,1, 20) / &
& 167.3331200_wp, 138.7350820_wp, 92.3660100_wp, 41.0298690_wp, &
& 22.5025050_wp, 14.5451620_wp, 10.4632190_wp, 8.0723760_wp, &
& 6.5267080_wp, 5.4500180_wp, 4.6561940_wp, 4.0450480_wp, &
& 3.1618950_wp, 2.5524970_wp, 2.1073550_wp, 1.7698140_wp, &
& 1.5069710_wp, 1.0569390_wp, 0.7807210_wp, 0.4750180_wp, &
& 0.3195680_wp, 0.1538130_wp, 0.0914010_wp /
! REF CaH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 20) / 0.42382301144653_wp /
data refh (2, 20) / -0.42382301144653_wp /
data gffq (2, 20) / 0.31814452979636_wp /
data gffh (2, 20) / -0.31814452979636_wp /
data dftq (2, 20) / 0.31763200000000_wp /
data dfth (2, 20) / -0.31762900000000_wp /
data pbcq (2, 20) / 0.42382301144653_wp /
data pbch (2, 20) / -0.42382301144653_wp /
data clsq (2, 20) / 0.31814452979636_wp /
data clsh (2, 20) / -0.31814452979636_wp /
data hcount (2, 20) / 1.00000000000000_wp /
data ascale (2, 20) / 1.00000000000000_wp /
data refcovcn(2, 20) / 0.80173786145238_wp /
data refcn (2, 20) / 0.98305940539640_wp /
data refsys (2, 20) / 1 /
data alphaiw(:,2, 20) / &
& 158.1508830_wp, 111.6461600_wp, 67.9213530_wp, 33.9702430_wp, &
& 21.3038760_wp, 15.0163380_wp, 11.3779670_wp, 9.0482850_wp, &
& 7.4431400_wp, 6.2742820_wp, 5.3861210_wp, 4.6885960_wp, &
& 3.6641970_wp, 2.9506000_wp, 2.4285760_wp, 2.0334750_wp, &
& 1.7267590_wp, 1.2044810_wp, 0.8862100_wp, 0.5363960_wp, &
& 0.3596090_wp, 0.1720510_wp, 0.1017830_wp /
! REF CaH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 20) / 0.53704626474621_wp /
data refh (3, 20) / -0.26852313237311_wp /
data gffq (3, 20) / 0.50078886624431_wp /
data gffh (3, 20) / -0.25039443312215_wp /
data dftq (3, 20) / 0.67361800000000_wp /
data dfth (3, 20) / -0.33680900000000_wp /
data pbcq (3, 20) / 0.53704626474621_wp /
data pbch (3, 20) / -0.26852313237311_wp /
data clsq (3, 20) / 0.50078886624431_wp /
data clsh (3, 20) / -0.25039443312215_wp /
data hcount (3, 20) / 2.00000000000000_wp /
data ascale (3, 20) / 1.00000000000000_wp /
data refcovcn(3, 20) / 1.57758711825521_wp /
data refcn (3, 20) / 1.93490105201102_wp /
data refsys (3, 20) / 1 /
data alphaiw(:,3, 20) / &
& 47.8971840_wp, 45.8022250_wp, 40.7933190_wp, 29.6764790_wp, &
& 21.5460190_wp, 16.2269040_wp, 12.6953380_wp, 10.2550730_wp, &
& 8.4973390_wp, 7.1832110_wp, 6.1691650_wp, 5.3658830_wp, &
& 4.1801140_wp, 3.3536760_wp, 2.7508620_wp, 2.2964010_wp, &
& 1.9450020_wp, 1.3500690_wp, 0.9899710_wp, 0.5965960_wp, &
& 0.3988370_wp, 0.1899030_wp, 0.1119470_wp /
! REF Ca4O4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 20) / 0.63912284405165_wp /
data refh (4, 20) / -0.63912284405165_wp /
data gffq (4, 20) / 0.70800000000000_wp /
data gffh (4, 20) / -0.70800000000000_wp /
data dftq (4, 20) / 0.63912284405165_wp /
data dfth (4, 20) / 0.00000000000000_wp /
data pbcq (4, 20) / 0.24400000000000_wp /
data pbch (4, 20) / -0.24400000000000_wp /
data clsq (4, 20) / 0.24400000000000_wp /
data clsh (4, 20) / -0.24400000000000_wp /
data hcount (4, 20) / 4.00000000000000_wp /
data ascale (4, 20) / 0.25000000000000_wp /
data refcovcn(4, 20) / 15.14000000000000_wp /
data refcn (4, 20) / 18.07900000000000_wp /
data refsys (4, 20) / 9 /
data alphaiw(:,4, 20) / &
& 92.8563023_wp, 91.1707612_wp, 86.7243129_wp, 74.2666422_wp, &
& 62.0928688_wp, 52.1273713_wp, 44.3017181_wp, 38.1421847_wp, &
& 33.2177260_wp, 29.2098267_wp, 25.8942119_wp, 23.1129142_wp, &
& 18.7302605_wp, 15.4634027_wp, 12.9627169_wp, 11.0083621_wp, &
& 9.4545882_wp, 6.7335695_wp, 5.0260366_wp, 3.0995061_wp, &
& 2.1015110_wp, 1.0184280_wp, 0.6045719_wp /
data refn(20) / 4 /
! REF Sc - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 21) / -0.00000000016423_wp /
data refh (1, 21) / 0.00000000000000_wp /
data gffq (1, 21) / 0.00000000000000_wp /
data gffh (1, 21) / 0.00000000000000_wp /
data dftq (1, 21) / -0.00000000016423_wp /
data dfth (1, 21) / 0.00000000000000_wp /
data pbcq (1, 21) / -0.00000000016423_wp /
data pbch (1, 21) / 0.00000000000000_wp /
data clsq (1, 21) / 0.00000000000000_wp /
data clsh (1, 21) / 0.00000000000000_wp /
data hcount (1, 21) / 0.00000000000000_wp /
data ascale (1, 21) / 1.00000000000000_wp /
data refcovcn(1, 21) / 0.00000000000000_wp /
data refcn (1, 21) / 0.00000000000000_wp /
data refsys (1, 21) / 1 /
data alphaiw(:,1, 21) / &
& 125.6799050_wp, 108.3144390_wp, 77.2929700_wp, 37.1320260_wp, &
& 20.7670580_wp, 13.4119080_wp, 9.5811350_wp, 7.3353090_wp, &
& 5.8931080_wp, 4.8989950_wp, 4.1745440_wp, 3.6229180_wp, &
& 2.8357880_wp, 2.2984530_wp, 1.9074130_wp, 1.6106400_wp, &
& 1.3787470_wp, 0.9784770_wp, 0.7296280_wp, 0.4499330_wp, &
& 0.3052790_wp, 0.1484840_wp, 0.0886520_wp /
! REF ScH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 21) / 0.19081329495662_wp /
data refh (2, 21) / -0.09540664747831_wp /
data gffq (2, 21) / 0.50144727255861_wp /
data gffh (2, 21) / -0.25072363627930_wp /
data dftq (2, 21) / 0.52024200000000_wp /
data dfth (2, 21) / -0.26011800000000_wp /
data pbcq (2, 21) / 0.19081329495662_wp /
data pbch (2, 21) / -0.09540664747831_wp /
data clsq (2, 21) / 0.50144727255861_wp /
data clsh (2, 21) / -0.25072363627930_wp /
data hcount (2, 21) / 2.00000000000000_wp /
data ascale (2, 21) / 1.00000000000000_wp /
data refcovcn(2, 21) / 1.60644512750973_wp /
data refcn (2, 21) / 1.86271675054418_wp /
data refsys (2, 21) / 1 /
data alphaiw(:,2, 21) / &
& 43.3830910_wp, 45.0959100_wp, 39.5276970_wp, 28.9987430_wp, &
& 21.3879050_wp, 16.2717510_wp, 12.7943430_wp, 10.3540150_wp, &
& 8.5813500_wp, 7.2517530_wp, 6.2258690_wp, 5.4147740_wp, &
& 4.2221260_wp, 3.3947970_wp, 2.7929060_wp, 2.3393880_wp, &
& 1.9883760_wp, 1.3919190_wp, 1.0282690_wp, 0.6267560_wp, &
& 0.4221330_wp, 0.2026710_wp, 0.1197200_wp /
! REF ScH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 21) / 0.57390951001388_wp /
data refh (3, 21) / -0.19130317000463_wp /
data gffq (3, 21) / 0.62485373296540_wp /
data gffh (3, 21) / -0.20828457765513_wp /
data dftq (3, 21) / 0.76227500000000_wp /
data dfth (3, 21) / -0.25408833333333_wp /
data pbcq (3, 21) / 0.57390951001388_wp /
data pbch (3, 21) / -0.19130317000463_wp /
data clsq (3, 21) / 0.62485373296540_wp /
data clsh (3, 21) / -0.20828457765513_wp /
data hcount (3, 21) / 3.00000000000000_wp /
data ascale (3, 21) / 1.00000000000000_wp /
data refcovcn(3, 21) / 2.50274820582596_wp /
data refcn (3, 21) / 2.89994293581383_wp /
data refsys (3, 21) / 1 /
data alphaiw(:,3, 21) / &
& 45.7861990_wp, 44.3266490_wp, 40.7084650_wp, 31.7823730_wp, &
& 24.2343690_wp, 18.7383620_wp, 14.8308240_wp, 12.0175160_wp, &
& 9.9446720_wp, 8.3787230_wp, 7.1672090_wp, 6.2095210_wp, &
& 4.8060710_wp, 3.8394390_wp, 3.1416970_wp, 2.6197890_wp, &
& 2.2184260_wp, 1.5421450_wp, 1.1337000_wp, 0.6865730_wp, &
& 0.4605190_wp, 0.2197990_wp, 0.1294090_wp /
! REF ScF3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 21) / 1.02910987985129 /
data refh (4, 21) / -0.34303662000000 /
data gffq (4, 21) / 1.19800000000000 /
data gffh (4, 21) / -0.39900000000000 /
data dftq (4, 21) / 1.19800000000000 /
data dfth (4, 21) / -0.39900000000000 /
data pbcq (4, 21) / 0.78700000000000 /
data pbch (4, 21) / -0.26200000000000 /
data clsq (4, 21) / 0.78700000000000 /
data clsh (4, 21) / -0.26200000000000 /
data hcount (4, 21) / 1.50000000000000 /
data ascale (4, 21) / 1.00000000000000 /
data refcovcn(4, 21) / 3.83500000000000 /
data refcn (4, 21) / 6.69400000000000 /
data refsys (4, 21) / 11 /
data alphaiw(:,4, 21) / &
& 25.7885393, 25.5284322, 24.8018061, 22.4847968, &
& 19.8432092, 17.4046425, 15.3140809, 13.5610822, &
& 12.0932363, 10.8561131, 9.8039073, 8.9004931, &
& 7.4345994, 6.3020196, 5.4061411, 4.6844025, &
& 4.0943751, 3.0185882, 2.3095039, 1.4697240, &
& 1.0145692, 0.5013176, 0.2990179 /
data refn(21) / 4 /
! REF Ti - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 22) / -0.00000000032847_wp /
data refh (1, 22) / 0.00000000000000_wp /
data gffq (1, 22) / 0.00000000000000_wp /
data gffh (1, 22) / 0.00000000000000_wp /
data dftq (1, 22) / -0.00000000032847_wp /
data dfth (1, 22) / 0.00000000000000_wp /
data pbcq (1, 22) / -0.00000000032847_wp /
data pbch (1, 22) / 0.00000000000000_wp /
data clsq (1, 22) / 0.00000000000000_wp /
data clsh (1, 22) / 0.00000000000000_wp /
data hcount (1, 22) / 0.00000000000000_wp /
data ascale (1, 22) / 1.00000000000000_wp /
data refcovcn(1, 22) / 0.00000000000000_wp /
data refcn (1, 22) / 0.00000000000000_wp /
data refsys (1, 22) / 1 /
data alphaiw(:,1, 22) / &
& 114.7243640_wp, 99.7786920_wp, 73.3046090_wp, 37.5872700_wp, &
& 22.0065650_wp, 14.6330060_wp, 10.6399730_wp, 8.2278720_wp, &
& 6.6441090_wp, 5.5356020_wp, 4.7202080_wp, 4.0964710_wp, &
& 3.2058500_wp, 2.6004600_wp, 2.1623770_wp, 1.8313070_wp, &
& 1.5731530_wp, 1.1271400_wp, 0.8480460_wp, 0.5303920_wp, &
& 0.3633330_wp, 0.1787040_wp, 0.1068890_wp /
! REF TiH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 22) / 0.38774830140171_wp /
data refh (2, 22) / -0.19387415070086_wp /
data gffq (2, 22) / 0.32259167829296_wp /
data gffh (2, 22) / -0.16129583914648_wp /
data dftq (2, 22) / 0.45792800000000_wp /
data dfth (2, 22) / -0.22896250000000_wp /
data pbcq (2, 22) / 0.38774830140171_wp /
data pbch (2, 22) / -0.19387415070086_wp /
data clsq (2, 22) / 0.32259167829296_wp /
data clsh (2, 22) / -0.16129583914648_wp /
data hcount (2, 22) / 2.00000000000000_wp /
data ascale (2, 22) / 1.00000000000000_wp /
data refcovcn(2, 22) / 1.62278979228613_wp /
data refcn (2, 22) / 1.82992898343369_wp /
data refsys (2, 22) / 1 /
data alphaiw(:,2, 22) / &
& 46.0919720_wp, 42.4892580_wp, 37.6213730_wp, 28.0117340_wp, &
& 20.8457830_wp, 15.9626110_wp, 12.6095600_wp, 10.2373540_wp, &
& 8.5034920_wp, 7.1973670_wp, 6.1869270_wp, 5.3870300_wp, &
& 4.2107080_wp, 3.3956060_wp, 2.8031890_wp, 2.3567820_wp, &
& 2.0108410_wp, 1.4205320_wp, 1.0576160_wp, 0.6522060_wp, &
& 0.4427770_wp, 0.2149140_wp, 0.1275310_wp /
! REF TiH4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 22) / 0.97207545160459_wp /
data refh (3, 22) / -0.24301886290115_wp /
data gffq (3, 22) / 0.53505953733387_wp /
data gffh (3, 22) / -0.13376488433347_wp /
data dftq (3, 22) / 0.65603200000000_wp /
data dfth (3, 22) / -0.16400650000000_wp /
data pbcq (3, 22) / 0.97207545160459_wp /
data pbch (3, 22) / -0.24301886290115_wp /
data clsq (3, 22) / 0.53505953733387_wp /
data clsh (3, 22) / -0.13376488433347_wp /
data hcount (3, 22) / 4.00000000000000_wp /
data ascale (3, 22) / 1.00000000000000_wp /
data refcovcn(3, 22) / 3.43281247525220_wp /
data refcn (3, 22) / 3.86754432133472_wp /
data refsys (3, 22) / 1 /
data alphaiw(:,3, 22) / &
& 48.7114030_wp, 47.2968810_wp, 43.6774280_wp, 34.4392690_wp, &
& 26.5310300_wp, 20.7154850_wp, 16.5179260_wp, 13.4481710_wp, &
& 11.1565010_wp, 9.4084180_wp, 8.0473770_wp, 6.9676210_wp, &
& 5.3829550_wp, 4.2933920_wp, 3.5097360_wp, 2.9257120_wp, &
& 2.4779210_wp, 1.7256070_wp, 1.2717960_wp, 0.7740440_wp, &
& 0.5212220_wp, 0.2500910_wp, 0.1474550_wp /
! REF TiF4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 22) / 1.45284490238150_wp /
data refh (4, 22) / -0.36600000000000_wp /
data gffq (4, 22) / 1.45284490238150_wp /
data gffh (4, 22) / -0.36600000000000_wp /
data dftq (4, 22) / 1.45284490238150_wp /
data dfth (4, 22) / -0.36600000000000_wp /
data pbcq (4, 22) / 0.90400000000000_wp /
data pbch (4, 22) / -0.22575000000000_wp /
data clsq (4, 22) / 0.90400000000000_wp /
data clsh (4, 22) / -0.22575000000000_wp /
data hcount (4, 22) / 4.00000000000000_wp /
data ascale (4, 22) / 1.00000000000000_wp /
data refcovcn(4, 22) / 4.43849000000000_wp /
data refcn (4, 22) / 6.63750000000000_wp /
data refsys (4, 22) / 11 /
data alphaiw(:,4, 22) / &
& 31.8693190_wp, 31.5954595_wp, 30.8154120_wp, 28.1936583_wp, &
& 24.9990546_wp, 21.9123454_wp, 19.2042984_wp, 16.9162029_wp, &
& 15.0030479_wp, 13.4005228_wp, 12.0488331_wp, 10.8986824_wp, &
& 9.0558940_wp, 7.6529726_wp, 6.5554549_wp, 5.6780283_wp, &
& 4.9642843_wp, 3.6680250_wp, 2.8144887_wp, 1.8007388_wp, &
& 1.2482416_wp, 0.6204756_wp, 0.3709690_wp /
data refn(22) / 4 /
! REF V - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 23) / -0.00000000016528_wp /
data refh (1, 23) / 0.00000000000000_wp /
data gffq (1, 23) / 0.00000000000000_wp /
data gffh (1, 23) / 0.00000000000000_wp /
data dftq (1, 23) / -0.00000000016528_wp /
data dfth (1, 23) / 0.00000000000000_wp /
data pbcq (1, 23) / -0.00000000016528_wp /
data pbch (1, 23) / 0.00000000000000_wp /
data clsq (1, 23) / 0.00000000000000_wp /
data clsh (1, 23) / 0.00000000000000_wp /
data hcount (1, 23) / 0.00000000000000_wp /
data ascale (1, 23) / 1.00000000000000_wp /
data refcovcn(1, 23) / 0.00000000000000_wp /
data refcn (1, 23) / 0.00000000000000_wp /
data refsys (1, 23) / 1 /
data alphaiw(:,1, 23) / &
& 100.9910610_wp, 88.6597800_wp, 66.6115730_wp, 35.5163660_wp, &
& 21.2160720_wp, 14.2442310_wp, 10.4067670_wp, 8.0678270_wp, &
& 6.5248700_wp, 5.4425580_wp, 4.6458490_wp, 4.0364450_wp, &
& 3.1669610_wp, 2.5767360_wp, 2.1500770_wp, 1.8277610_wp, &
& 1.5763140_wp, 1.1406790_wp, 0.8660900_wp, 0.5494430_wp, &
& 0.3799770_wp, 0.1891620_wp, 0.1136620_wp /
! REF VH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 23) / 0.30616936989879_wp /
data refh (2, 23) / -0.15308468494977_wp /
data gffq (2, 23) / 0.30538713298844_wp /
data gffh (2, 23) / -0.15269356649422_wp /
data dftq (2, 23) / 0.44073500000000_wp /
data dfth (2, 23) / -0.22036500000000_wp /
data pbcq (2, 23) / 0.30616936989879_wp /
data pbch (2, 23) / -0.15308468494977_wp /
data clsq (2, 23) / 0.30538713298844_wp /
data clsh (2, 23) / -0.15269356649422_wp /
data hcount (2, 23) / 2.00000000000000_wp /
data ascale (2, 23) / 1.00000000000000_wp /
data refcovcn(2, 23) / 1.72211010302514_wp /
data refcn (2, 23) / 1.91379548691600_wp /
data refsys (2, 23) / 1 /
data alphaiw(:,2, 23) / &
& 44.7007430_wp, 42.0873530_wp, 37.1472140_wp, 27.4044260_wp, &
& 20.3770970_wp, 15.6299000_wp, 12.3710770_wp, 10.0613500_wp, &
& 8.3699050_wp, 7.0937900_wp, 6.1054940_wp, 5.3225590_wp, &
& 4.1705140_wp, 3.3719800_wp, 2.7915250_wp, 2.3540000_wp, &
& 2.0147100_wp, 1.4344300_wp, 1.0757290_wp, 0.6710700_wp, &
& 0.4591900_wp, 0.2251960_wp, 0.1341810_wp /
! REF VH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 23) / 0.39411696843052_wp /
data refh (3, 23) / -0.13137232283301_wp /
data gffq (3, 23) / 0.39745931358650_wp /
data gffh (3, 23) / -0.13248643786217_wp /
data dftq (3, 23) / 0.54271700000000_wp /
data dfth (3, 23) / -0.18090200000000_wp /
data pbcq (3, 23) / 0.39411696843052_wp /
data pbch (3, 23) / -0.13137232283301_wp /
data clsq (3, 23) / 0.39745931358650_wp /
data clsh (3, 23) / -0.13248643786217_wp /
data hcount (3, 23) / 3.00000000000000_wp /
data ascale (3, 23) / 1.00000000000000_wp /
data refcovcn(3, 23) / 2.62026342999598_wp /
data refcn (3, 23) / 2.91102328524604_wp /
data refsys (3, 23) / 1 /
data alphaiw(:,3, 23) / &
& 43.8589710_wp, 41.9185700_wp, 37.9612250_wp, 29.4769420_wp, &
& 22.6653000_wp, 17.7162500_wp, 14.1578990_wp, 11.5615470_wp, &
& 9.6256600_wp, 8.1492470_wp, 6.9989060_wp, 6.0850100_wp, &
& 4.7397660_wp, 3.8101490_wp, 3.1377770_wp, 2.6337640_wp, &
& 2.2450370_wp, 1.5855880_wp, 1.1821140_wp, 0.7316980_wp, &
& 0.4982510_wp, 0.2427270_wp, 0.1441100_wp /
! REF VF5 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 23) / 0.69749634235669_wp /
data refh (4, 23) / -0.13960000000000_wp /
data gffq (4, 23) / 1.29423363276103_wp /
data gffh (4, 23) / -0.25880000000000_wp /
data dftq (4, 23) / 0.69749634235669_wp /
data dfth (4, 23) / -0.13960000000000_wp /
data pbcq (4, 23) / 0.93500000000000_wp /
data pbch (4, 23) / -0.18700000000000_wp /
data clsq (4, 23) / 0.93500000000000_wp /
data clsh (4, 23) / -0.18700000000000_wp /
data hcount (4, 23) / 5.00000000000000_wp /
data ascale (4, 23) / 1.00000000000000_wp /
data refcovcn(4, 23) / 3.38800000000000_wp /
data refcn (4, 23) / 5.15100000000000_wp /
data refsys (4, 23) / 11 /
data alphaiw(:,4, 23) / &
& 39.4919722_wp, 39.0027923_wp, 37.6740133_wp, 33.6693555_wp, &
& 29.3313719_wp, 25.4515734_wp, 22.2023666_wp, 19.5294838_wp, &
& 17.3268203_wp, 15.4949224_wp, 13.9540832_wp, 12.6434247_wp, &
& 10.5397592_wp, 8.9322131_wp, 7.6697405_wp, 6.6569547_wp, &
& 5.8306559_wp, 4.3239152_wp, 3.3270116_wp, 2.1370028_wp, &
& 1.4850445_wp, 0.7404650_wp, 0.4431346_wp /
data refn(23) / 4 /
! REF Cr - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 24) / -0.00000000000208_wp /
data refh (1, 24) / 0.00000000000000_wp /
data gffq (1, 24) / 0.00000000000000_wp /
data gffh (1, 24) / 0.00000000000000_wp /
data dftq (1, 24) / -0.00000000000208_wp /
data dfth (1, 24) / 0.00000000000000_wp /
data pbcq (1, 24) / -0.00000000000208_wp /
data pbch (1, 24) / 0.00000000000000_wp /
data clsq (1, 24) / 0.00000000000000_wp /
data clsh (1, 24) / 0.00000000000000_wp /
data hcount (1, 24) / 0.00000000000000_wp /
data ascale (1, 24) / 1.00000000000000_wp /
data refcovcn(1, 24) / 0.00000000000000_wp /
data refcn (1, 24) / 0.00000000000000_wp /
data refsys (1, 24) / 1 /
data alphaiw(:,1, 24) / &
& 81.4204420_wp, 70.3861320_wp, 51.0334860_wp, 26.6035920_wp, &
& 16.4401450_wp, 11.5586160_wp, 8.7956620_wp, 7.0404390_wp, &
& 5.8344750_wp, 4.9584520_wp, 4.2948990_wp, 3.7754900_wp, &
& 3.0150310_wp, 2.4847490_wp, 2.0937350_wp, 1.7938190_wp, &
& 1.5570520_wp, 1.1409650_wp, 0.8747790_wp, 0.5634010_wp, &
& 0.3939510_wp, 0.1991850_wp, 0.1204340_wp /
! REF CrH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 24) / 0.53605366789797_wp /
data refh (2, 24) / -0.26802683372543_wp /
data gffq (2, 24) / 0.17721817570715_wp /
data gffh (2, 24) / -0.08860908785357_wp /
data dftq (2, 24) / 0.34570100000000_wp /
data dfth (2, 24) / -0.17284850000000_wp /
data pbcq (2, 24) / 0.53605366789797_wp /
data pbch (2, 24) / -0.26802683372543_wp /
data clsq (2, 24) / 0.17721817570715_wp /
data clsh (2, 24) / -0.08860908785357_wp /
data hcount (2, 24) / 2.00000000000000_wp /
data ascale (2, 24) / 1.00000000000000_wp /
data refcovcn(2, 24) / 1.65041632145300_wp /
data refcn (2, 24) / 1.82687247869787_wp /
data refsys (2, 24) / 1 /
data alphaiw(:,2, 24) / &
& 45.3318020_wp, 42.4171170_wp, 37.0714340_wp, 26.9188730_wp, &
& 19.8754030_wp, 15.2233940_wp, 12.0588400_wp, 9.8211890_wp, &
& 8.1820250_wp, 6.9441660_wp, 5.9847000_wp, 5.2241990_wp, &
& 4.1047330_wp, 3.3284220_wp, 2.7636460_wp, 2.3373710_wp, &
& 2.0062470_wp, 1.4381260_wp, 1.0851790_wp, 0.6841550_wp, &
& 0.4719940_wp, 0.2343080_wp, 0.1403490_wp /
! REF CrH12 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 24) / 0.32326600457791_wp /
data refh (3, 24) / -0.02693883371483_wp /
data gffq (3, 24) / 0.16754955881404_wp /
data gffh (3, 24) / -0.01396246323450_wp /
data dftq (3, 24) / 0.08030700000000_wp /
data dfth (3, 24) / -0.00671033333333_wp /
data pbcq (3, 24) / 0.32326600457791_wp /
data pbch (3, 24) / -0.02693883371483_wp /
data clsq (3, 24) / 0.16754955881404_wp /
data clsh (3, 24) / -0.01396246323450_wp /
data hcount (3, 24) / 12.00000000000000_wp /
data ascale (3, 24) / 1.00000000000000_wp /
data refcovcn(3, 24) / 9.59333666980809_wp /
data refcn (3, 24) / 10.61913477887437_wp /
data refsys (3, 24) / 1 /
data alphaiw(:,3, 24) / &
& 56.4761320_wp, 55.4404440_wp, 52.7176090_wp, 45.1454930_wp, &
& 37.6466880_wp, 31.2740070_wp, 26.0862050_wp, 21.9197000_wp, &
& 18.5802620_wp, 15.8937900_wp, 13.7180050_wp, 11.9412500_wp, &
& 9.2607000_wp, 7.3778240_wp, 6.0116860_wp, 4.9917560_wp, &
& 4.2112130_wp, 2.9083100_wp, 2.1307140_wp, 1.2874000_wp, &
& 0.8631570_wp, 0.4110260_wp, 0.2406390_wp /
! REF CrO6C6 - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 24) / 0.17434704715481_wp /
data refh (4, 24) / -0.12895656370357_wp /
data gffq (4, 24) / 0.61467776168125_wp /
data gffh (4, 24) / -0.19615593415441_wp /
data dftq (4, 24) / 0.00077600000000_wp /
data dfth (4, 24) / -0.10629100000000_wp /
data pbcq (4, 24) / 0.17434704715481_wp /
data pbch (4, 24) / -0.12895656370357_wp /
data clsq (4, 24) / 0.61467776168125_wp /
data clsh (4, 24) / -0.19615593415441_wp /
data hcount (4, 24) / 6.00000000000000_wp /
data ascale (4, 24) / 1.00000000000000_wp /
data refcovcn(4, 24) / 5.09941611449080_wp /
data refcn (4, 24) / 6.07975116715200_wp /
data refsys (4, 24) / 8 /
data alphaiw(:,4, 24) / &
& 119.6067900_wp, 117.3611800_wp, 111.4540000_wp, 95.2456700_wp, &
& 79.7390500_wp, 66.9517800_wp, 56.7007000_wp, 48.4921200_wp, &
& 41.8757900_wp, 36.4928900_wp, 32.0685600_wp, 28.3948300_wp, &
& 22.7080700_wp, 18.5713200_wp, 15.4707700_wp, 13.0875400_wp, &
& 11.2163200_wp, 7.9816700_wp, 5.9708100_wp, 3.7056100_wp, &
& 2.5262500_wp, 1.2328500_wp, 0.7325600_wp /
data refn(24) / 4 /
! REF Mn - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 25) / 0.00000000016527_wp /
data refh (1, 25) / 0.00000000000000_wp /
data gffq (1, 25) / 0.00000000000000_wp /
data gffh (1, 25) / 0.00000000000000_wp /
data dftq (1, 25) / 0.00000000016527_wp /
data dfth (1, 25) / 0.00000000000000_wp /
data pbcq (1, 25) / 0.00000000016527_wp /
data pbch (1, 25) / 0.00000000000000_wp /
data clsq (1, 25) / 0.00000000000000_wp /
data clsh (1, 25) / 0.00000000000000_wp /
data hcount (1, 25) / 0.00000000000000_wp /
data ascale (1, 25) / 1.00000000000000_wp /
data refcovcn(1, 25) / 0.00000000000000_wp /
data refcn (1, 25) / 0.00000000000000_wp /
data refsys (1, 25) / 1 /
data alphaiw(:,1, 25) / &
& 82.1201120_wp, 73.0648270_wp, 56.5578050_wp, 31.8457630_wp, &
& 19.5848590_wp, 13.3420540_wp, 9.8197330_wp, 7.6416120_wp, &
& 6.1931620_wp, 5.1733980_wp, 4.4221950_wp, 3.8482630_wp, &
& 3.0320160_wp, 2.4803430_wp, 2.0824750_wp, 1.7818650_wp, &
& 1.5468520_wp, 1.1371080_wp, 0.8757490_wp, 0.5688430_wp, &
& 0.4003450_wp, 0.2041230_wp, 0.1236650_wp /
! REF MnH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 25) / 0.72906362172268_wp /
data refh (2, 25) / -0.36453181087692_wp /
data gffq (2, 25) / 0.26888428905691_wp /
data gffh (2, 25) / -0.13444214452845_wp /
data dftq (2, 25) / 0.46128400000000_wp /
data dfth (2, 25) / -0.23064400000000_wp /
data pbcq (2, 25) / 0.72906362172268_wp /
data pbch (2, 25) / -0.36453181087692_wp /
data clsq (2, 25) / 0.26888428905691_wp /
data clsh (2, 25) / -0.13444214452845_wp /
data hcount (2, 25) / 2.00000000000000_wp /
data ascale (2, 25) / 1.00000000000000_wp /
data refcovcn(2, 25) / 1.45861721080984_wp /
data refcn (2, 25) / 1.64060352754295_wp /
data refsys (2, 25) / 1 /
data alphaiw(:,2, 25) / &
& 37.5942320_wp, 36.5102540_wp, 33.7065530_wp, 26.3778710_wp, &
& 20.0194940_wp, 15.4093840_wp, 12.1689910_wp, 9.8609100_wp, &
& 8.1746400_wp, 6.9089940_wp, 5.9348110_wp, 5.1678620_wp, &
& 4.0486360_wp, 3.2798880_wp, 2.7243850_wp, 2.3069400_wp, &
& 1.9834830_wp, 1.4290960_wp, 1.0840060_wp, 0.6895570_wp, &
& 0.4788650_wp, 0.2397600_wp, 0.1439400_wp /
! REF MnH11 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 25) / -1.38551399356320_wp /
data refh (3, 25) / 0.12595581759665_wp /
data gffq (3, 25) / -0.01438794807264_wp /
data gffh (3, 25) / 0.00130799527933_wp /
data dftq (3, 25) / 0.06015500000000_wp /
data dfth (3, 25) / -0.00551827272727_wp /
data pbcq (3, 25) / -1.38551399356320_wp /
data pbch (3, 25) / 0.12595581759665_wp /
data clsq (3, 25) / -0.01438794807264_wp /
data clsh (3, 25) / 0.00130799527933_wp /
data hcount (3, 25) / 11.00000000000000_wp /
data ascale (3, 25) / 1.00000000000000_wp /
data refcovcn(3, 25) / 8.78012041793345_wp /
data refcn (3, 25) / 9.88490304290262_wp /
data refsys (3, 25) / 1 /
data alphaiw(:,3, 25) / &
& 48.8093290_wp, 48.0980790_wp, 46.1748290_wp, 40.4031130_wp, &
& 34.1760690_wp, 28.6218290_wp, 23.9924040_wp, 20.2296980_wp, &
& 17.1934700_wp, 14.7402990_wp, 12.7472650_wp, 11.1157910_wp, &
& 8.6475930_wp, 6.9086080_wp, 5.6437710_wp, 4.6974660_wp, &
& 3.9718750_wp, 2.7571320_wp, 2.0290510_wp, 1.2349290_wp, &
& 0.8324270_wp, 0.3994510_wp, 0.2345940_wp /
data refn(25) / 3 /
! REF Fe - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 26) / 0.00000000032847_wp /
data refh (1, 26) / 0.00000000000000_wp /
data gffq (1, 26) / 0.00000000000000_wp /
data gffh (1, 26) / 0.00000000000000_wp /
data dftq (1, 26) / 0.00000000032847_wp /
data dfth (1, 26) / 0.00000000000000_wp /
data pbcq (1, 26) / 0.00000000032847_wp /
data pbch (1, 26) / 0.00000000000000_wp /
data clsq (1, 26) / 0.00000000000000_wp /
data clsh (1, 26) / 0.00000000000000_wp /
data hcount (1, 26) / 0.00000000000000_wp /
data ascale (1, 26) / 1.00000000000000_wp /
data refcovcn(1, 26) / 0.00000000000000_wp /
data refcn (1, 26) / 0.00000000000000_wp /
data refsys (1, 26) / 1 /
data alphaiw(:,1, 26) / &
& 65.1578920_wp, 57.4961000_wp, 43.3419800_wp, 23.8760970_wp, &
& 15.1156130_wp, 10.7673250_wp, 8.2713540_wp, 6.6686050_wp, &
& 5.5550430_wp, 4.7375840_wp, 4.1131870_wp, 3.6217190_wp, &
& 2.8999580_wp, 2.3973090_wp, 2.0280480_wp, 1.7456620_wp, &
& 1.5229730_wp, 1.1305990_wp, 0.8773050_wp, 0.5763700_wp, &
& 0.4092270_wp, 0.2118590_wp, 0.1294110_wp /
! REF FeH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 26) / 0.89971355662264_wp /
data refh (2, 26) / -0.44985677831131_wp /
data gffq (2, 26) / 0.16108330144470_wp /
data gffh (2, 26) / -0.08054165072235_wp /
data dftq (2, 26) / 0.42463700000000_wp /
data dfth (2, 26) / -0.21232300000000_wp /
data pbcq (2, 26) / 0.89971355662264_wp /
data pbch (2, 26) / -0.44985677831131_wp /
data clsq (2, 26) / 0.16108330144470_wp /
data clsh (2, 26) / -0.08054165072235_wp /
data hcount (2, 26) / 2.00000000000000_wp /
data ascale (2, 26) / 1.00000000000000_wp /
data refcovcn(2, 26) / 1.52985788829933_wp /
data refcn (2, 26) / 1.64827170778593_wp /
data refsys (2, 26) / 1 /
data alphaiw(:,2, 26) / &
& 34.5401790_wp, 33.5667420_wp, 31.1228640_wp, 24.7676090_wp, &
& 19.0811590_wp, 14.8373870_wp, 11.7962700_wp, 9.6020150_wp, &
& 7.9844480_wp, 6.7625510_wp, 5.8177240_wp, 5.0715270_wp, &
& 3.9797330_wp, 3.2288080_wp, 2.6862250_wp, 2.2786720_wp, &
& 1.9629540_wp, 1.4214720_wp, 1.0834860_wp, 0.6950870_wp, &
& 0.4860810_wp, 0.2464070_wp, 0.1489560_wp /
! REF FeH10 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 26) / -0.19729173677108_wp /
data refh (3, 26) / 0.01972917367711_wp /
data gffq (3, 26) / 0.05493242513468_wp /
data gffh (3, 26) / -0.00549324251347_wp /
data dftq (3, 26) / 0.02104900000000_wp /
data dfth (3, 26) / -0.00211300000000_wp /
data pbcq (3, 26) / -0.19729173677108_wp /
data pbch (3, 26) / 0.01972917367711_wp /
data clsq (3, 26) / 0.05493242513468_wp /
data clsh (3, 26) / -0.00549324251347_wp /
data hcount (3, 26) / 10.00000000000000_wp /
data ascale (3, 26) / 1.00000000000000_wp /
data refcovcn(3, 26) / 8.47495927159456_wp /
data refcn (3, 26) / 9.13759391858428_wp /
data refsys (3, 26) / 1 /
data alphaiw(:,3, 26) / &
& 45.9056800_wp, 45.2093150_wp, 43.3396340_wp, 37.7811330_wp, &
& 31.8440890_wp, 26.6022340_wp, 22.2699010_wp, 18.7694260_wp, &
& 15.9553430_wp, 13.6865850_wp, 11.8454300_wp, 10.3389430_wp, &
& 8.0596090_wp, 6.4524730_wp, 5.2822830_wp, 4.4057560_wp, &
& 3.7328380_wp, 2.6038570_wp, 1.9248540_wp, 1.1805840_wp, &
& 0.8007680_wp, 0.3884140_wp, 0.2295320_wp /
data refn(26) / 3 /
! REF Co - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 27) / 0.00000000016425_wp /
data refh (1, 27) / 0.00000000000000_wp /
data gffq (1, 27) / 0.00000000000000_wp /
data gffh (1, 27) / 0.00000000000000_wp /
data dftq (1, 27) / 0.00000000016425_wp /
data dfth (1, 27) / 0.00000000000000_wp /
data pbcq (1, 27) / 0.00000000016425_wp /
data pbch (1, 27) / 0.00000000000000_wp /
data clsq (1, 27) / 0.00000000000000_wp /
data clsh (1, 27) / 0.00000000000000_wp /
data hcount (1, 27) / 0.00000000000000_wp /
data ascale (1, 27) / 1.00000000000000_wp /
data refcovcn(1, 27) / 0.00000000000000_wp /
data refcn (1, 27) / 0.00000000000000_wp /
data refsys (1, 27) / 1 /
data alphaiw(:,1, 27) / &
& 60.7910330_wp, 56.2385650_wp, 46.3237860_wp, 28.3000530_wp, &
& 18.0784830_wp, 12.5506200_wp, 9.3329520_wp, 7.3060380_wp, &
& 5.9416390_wp, 4.9729450_wp, 4.2552790_wp, 3.7050500_wp, &
& 2.9212400_wp, 2.3925770_wp, 2.0131210_wp, 1.7278630_wp, &
& 1.5057010_wp, 1.1191290_wp, 0.8715490_wp, 0.5771900_wp, &
& 0.4126650_wp, 0.2164470_wp, 0.1333190_wp /
! REF CoH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 27) / 0.33885434982022_wp /
data refh (2, 27) / -0.16942717490891_wp /
data gffq (2, 27) / 0.21568151580380_wp /
data gffh (2, 27) / -0.10784075790190_wp /
data dftq (2, 27) / 0.35760200000000_wp /
data dfth (2, 27) / -0.17879750000000_wp /
data pbcq (2, 27) / 0.33885434982022_wp /
data pbch (2, 27) / -0.16942717490891_wp /
data clsq (2, 27) / 0.21568151580380_wp /
data clsh (2, 27) / -0.10784075790190_wp /
data hcount (2, 27) / 2.00000000000000_wp /
data ascale (2, 27) / 1.00000000000000_wp /
data refcovcn(2, 27) / 1.60281178943204_wp /
data refcn (2, 27) / 1.71485433521559_wp /
data refsys (2, 27) / 1 /
data alphaiw(:,2, 27) / &
& 33.6766540_wp, 32.2795850_wp, 29.8110510_wp, 23.6860370_wp, &
& 18.3057380_wp, 14.2980140_wp, 11.4150610_wp, 9.3244580_wp, &
& 7.7757940_wp, 6.6008390_wp, 5.6888800_wp, 4.9663640_wp, &
& 3.9055760_wp, 3.1737960_wp, 2.6443420_wp, 2.2465040_wp, &
& 1.9383190_wp, 1.4096790_wp, 1.0792130_wp, 0.6978430_wp, &
& 0.4912380_wp, 0.2521090_wp, 0.1535920_wp /
! REF CoH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 27) / 0.06673726947568_wp /
data refh (3, 27) / -0.02224575649166_wp /
data gffq (3, 27) / 0.20590049778110_wp /
data gffh (3, 27) / -0.06863349926037_wp /
data dftq (3, 27) / 0.23613400000000_wp /
data dfth (3, 27) / -0.07871533333333_wp /
data pbcq (3, 27) / 0.06673726947568_wp /
data pbch (3, 27) / -0.02224575649166_wp /
data clsq (3, 27) / 0.20590049778110_wp /
data clsh (3, 27) / -0.06863349926037_wp /
data hcount (3, 27) / 3.00000000000000_wp /
data ascale (3, 27) / 1.00000000000000_wp /
data refcovcn(3, 27) / 2.73732238386544_wp /
data refcn (3, 27) / 2.92629831246542_wp /
data refsys (3, 27) / 1 /
data alphaiw(:,3, 27) / &
& 33.0681610_wp, 31.8814040_wp, 29.3779300_wp, 23.6057900_wp, &
& 18.6463550_wp, 14.9145580_wp, 12.1627890_wp, 10.1071300_wp, &
& 8.5395170_wp, 7.3190970_wp, 6.3509310_wp, 5.5699740_wp, &
& 4.4005400_wp, 3.5786790_wp, 2.9775460_wp, 2.5232770_wp, &
& 2.1705940_wp, 1.5662690_wp, 1.1907560_wp, 0.7619390_wp, &
& 0.5325880_wp, 0.2706440_wp, 0.1640920_wp /
! REF CoH9 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 27) / -0.99922236530237_wp /
data refh (4, 27) / 0.11102470725582_wp /
data gffq (4, 27) / -0.01577894818610_wp /
data gffh (4, 27) / 0.00175321646512_wp /
data dftq (4, 27) / -0.01502600000000_wp /
data dfth (4, 27) / 0.00166588888889_wp /
data pbcq (4, 27) / -0.99922236530237_wp /
data pbch (4, 27) / 0.11102470725582_wp /
data clsq (4, 27) / -0.01577894818610_wp /
data clsh (4, 27) / 0.00175321646512_wp /
data hcount (4, 27) / 9.00000000000000_wp /
data ascale (4, 27) / 1.00000000000000_wp /
data refcovcn(4, 27) / 7.27710111777824_wp /
data refcn (4, 27) / 7.77854420648529_wp /
data refsys (4, 27) / 1 /
data alphaiw(:,4, 27) / &
& 44.7198600_wp, 43.9726200_wp, 41.9679160_wp, 36.1202890_wp, &
& 30.0864670_wp, 24.9191710_wp, 20.7437800_wp, 17.4226860_wp, &
& 14.7811930_wp, 12.6668970_wp, 10.9594050_wp, 9.5668070_wp, &
& 7.4655900_wp, 5.9866860_wp, 4.9103160_wp, 4.1038230_wp, &
& 3.4842290_wp, 2.4429010_wp, 1.8145610_wp, 1.1222760_wp, &
& 0.7664210_wp, 0.3762730_wp, 0.2239990_wp /
data refn(27) / 4 /
! REF Ni - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 28) / 0.00000000000000_wp /
data refh (1, 28) / 0.00000000000000_wp /
data gffq (1, 28) / 0.00000000000000_wp /
data gffh (1, 28) / 0.00000000000000_wp /
data dftq (1, 28) / 0.00000000000000_wp /
data dfth (1, 28) / 0.00000000000000_wp /
data pbcq (1, 28) / 0.00000000000000_wp /
data pbch (1, 28) / 0.00000000000000_wp /
data clsq (1, 28) / 0.00000000000000_wp /
data clsh (1, 28) / 0.00000000000000_wp /
data hcount (1, 28) / 0.00000000000000_wp /
data ascale (1, 28) / 1.00000000000000_wp /
data refcovcn(1, 28) / 0.00000000000000_wp /
data refcn (1, 28) / 0.00000000000000_wp /
data refsys (1, 28) / 1 /
data alphaiw(:,1, 28) / &
& 65.1471670_wp, 59.7497700_wp, 48.4286590_wp, 28.5849020_wp, &
& 17.8269450_wp, 12.1955640_wp, 8.9866060_wp, 6.9942690_wp, &
& 5.6675310_wp, 4.7335770_wp, 4.0463770_wp, 3.5223700_wp, &
& 2.7801490_wp, 2.2820840_wp, 1.9256220_wp, 1.6580700_wp, &
& 1.4498280_wp, 1.0871500_wp, 0.8537840_wp, 0.5733100_wp, &
& 0.4140840_wp, 0.2208130_wp, 0.1373770_wp /
! REF NiH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 28) / -0.02893652143275_wp /
data refh (2, 28) / 0.01446826083399_wp /
data gffq (2, 28) / 0.09850839901243_wp /
data gffh (2, 28) / -0.04925419950621_wp /
data dftq (2, 28) / 0.27996500000000_wp /
data dfth (2, 28) / -0.13998200000000_wp /
data pbcq (2, 28) / -0.02893652143275_wp /
data pbch (2, 28) / 0.01446826083399_wp /
data clsq (2, 28) / 0.09850839901243_wp /
data clsh (2, 28) / -0.04925419950621_wp /
data hcount (2, 28) / 2.00000000000000_wp /
data ascale (2, 28) / 1.00000000000000_wp /
data refcovcn(2, 28) / 1.68368353980441_wp /
data refcn (2, 28) / 1.79373527663037_wp /
data refsys (2, 28) / 1 /
data alphaiw(:,2, 28) / &
& 33.2010460_wp, 31.9092910_wp, 29.3670970_wp, 23.1912300_wp, &
& 17.8686070_wp, 13.9453180_wp, 11.1368280_wp, 9.1041990_wp, &
& 7.5992180_wp, 6.4570670_wp, 5.5699260_wp, 4.8664170_wp, &
& 3.8320980_wp, 3.1174810_wp, 2.6000250_wp, 2.2111480_wp, &
& 1.9099840_wp, 1.3937010_wp, 1.0709720_wp, 0.6975870_wp, &
& 0.4941560_wp, 0.2566390_wp, 0.1576070_wp /
! REF NiH8 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 28) / -1.41046704877362_wp /
data refh (3, 28) / 0.17630838109670_wp /
data gffq (3, 28) / 0.02948298358915_wp /
data gffh (3, 28) / -0.00368537294864_wp /
data dftq (3, 28) / -0.01765800000000_wp /
data dfth (3, 28) / 0.00222650000000_wp /
data pbcq (3, 28) / -1.41046704877362_wp /
data pbch (3, 28) / 0.17630838109670_wp /
data clsq (3, 28) / 0.02948298358915_wp /
data clsh (3, 28) / -0.00368537294864_wp /
data hcount (3, 28) / 8.00000000000000_wp /
data ascale (3, 28) / 1.00000000000000_wp /
data refcovcn(3, 28) / 6.15501721386632_wp /
data refcn (3, 28) / 6.54584816193237_wp /
data refsys (3, 28) / 1 /
data alphaiw(:,3, 28) / &
& 43.8557940_wp, 42.9928330_wp, 40.7502500_wp, 34.4926310_wp, &
& 28.3244810_wp, 23.2253070_wp, 19.2045670_wp, 16.0592920_wp, &
& 13.5864050_wp, 11.6233040_wp, 10.0473580_wp, 8.7676580_wp, &
& 6.8450210_wp, 5.4965520_wp, 4.5167510_wp, 3.7830110_wp, &
& 3.2192030_wp, 2.2703070_wp, 1.6957880_wp, 1.0589930_wp, &
& 0.7288230_wp, 0.3627090_wp, 0.2177520_wp /
! REF NiH8 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 28) / -1.49873637353726_wp /
data refh (4, 28) / 0.18734204669216_wp /
data gffq (4, 28) / 0.02439689318964_wp /
data gffh (4, 28) / -0.00304961164871_wp /
data dftq (4, 28) / -0.09074300000000_wp /
data dfth (4, 28) / 0.01131500000000_wp /
data pbcq (4, 28) / -1.49873637353726_wp /
data pbch (4, 28) / 0.18734204669216_wp /
data clsq (4, 28) / 0.02439689318964_wp /
data clsh (4, 28) / -0.00304961164871_wp /
data hcount (4, 28) / 8.00000000000000_wp /
data ascale (4, 28) / 1.00000000000000_wp /
data refcovcn(4, 28) / 5.91752241519496_wp /
data refcn (4, 28) / 6.29178843690998_wp /
data refsys (4, 28) / 1 /
data alphaiw(:,4, 28) / &
& 46.9971430_wp, 45.7683980_wp, 42.6546550_wp, 34.8257600_wp, &
& 28.0599290_wp, 22.8623880_wp, 18.8881430_wp, 15.8119240_wp, &
& 13.3988200_wp, 11.4815020_wp, 9.9393620_wp, 8.6844580_wp, &
& 6.7937410_wp, 5.4634420_wp, 4.4945350_wp, 3.7676420_wp, &
& 3.2083130_wp, 2.2653470_wp, 1.6933670_wp, 1.0583620_wp, &
& 0.7286770_wp, 0.3627700_wp, 0.2178100_wp /
data refn(28) / 4 /
! REF Cu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 29) / -0.00000000000000_wp /
data refh (1, 29) / 0.00000000000000_wp /
data gffq (1, 29) / 0.00000000000000_wp /
data gffh (1, 29) / 0.00000000000000_wp /
data dftq (1, 29) / -0.00000000000000_wp /
data dfth (1, 29) / 0.00000000000000_wp /
data pbcq (1, 29) / -0.00000000000000_wp /
data pbch (1, 29) / 0.00000000000000_wp /
data clsq (1, 29) / 0.00000000000000_wp /
data clsh (1, 29) / 0.00000000000000_wp /
data hcount (1, 29) / 0.00000000000000_wp /
data ascale (1, 29) / 1.00000000000000_wp /
data refcovcn(1, 29) / 0.00000000000000_wp /
data refcn (1, 29) / 0.00000000000000_wp /
data refsys (1, 29) / 1 /
data alphaiw(:,1, 29) / &
& 51.7659850_wp, 46.4291690_wp, 36.0204980_wp, 20.5952700_wp, &
& 13.2155350_wp, 9.4590740_wp, 7.2960120_wp, 5.9145750_wp, &
& 4.9593020_wp, 4.2583130_wp, 3.7208220_wp, 3.2950100_wp, &
& 2.6629290_wp, 2.2171860_wp, 1.8871890_wp, 1.6338740_wp, &
& 1.4337810_wp, 1.0804860_wp, 0.8509580_wp, 0.5739100_wp, &
& 0.4162210_wp, 0.2239360_wp, 0.1401690_wp /
! REF CuH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 29) / 0.17543548739457_wp /
data refh (2, 29) / -0.17543548739456_wp /
data gffq (2, 29) / 0.05450628884215_wp /
data gffh (2, 29) / -0.05450628884215_wp /
data dftq (2, 29) / 0.10146900000000_wp /
data dfth (2, 29) / -0.10146900000000_wp /
data pbcq (2, 29) / 0.17543548739457_wp /
data pbch (2, 29) / -0.17543548739456_wp /
data clsq (2, 29) / 0.05450628884215_wp /
data clsh (2, 29) / -0.05450628884215_wp /
data hcount (2, 29) / 1.00000000000000_wp /
data ascale (2, 29) / 1.00000000000000_wp /
data refcovcn(2, 29) / 0.89816244646957_wp /
data refcn (2, 29) / 0.95762492307496_wp /
data refsys (2, 29) / 1 /
data alphaiw(:,2, 29) / &
& 32.2640590_wp, 30.7643190_wp, 27.3346460_wp, 19.9931860_wp, &
& 14.6605450_wp, 11.1745880_wp, 8.8578670_wp, 7.2504740_wp, &
& 6.0856020_wp, 5.2091410_wp, 4.5290430_wp, 3.9879440_wp, &
& 3.1856560_wp, 2.6238350_wp, 2.2117070_wp, 1.8983580_wp, &
& 1.6531670_wp, 1.2266060_wp, 0.9549290_wp, 0.6340400_wp, &
& 0.4552650_wp, 0.2415160_wp, 0.1500870_wp /
data refn(29) / 2 /
! REF Zn - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 30) / 0.0_wp /
data refh (1, 30) / 0.00000000000000_wp /
data gffq (1, 30) / 0.00000000000000_wp /
data gffh (1, 30) / 0.00000000000000_wp /
data dftq (1, 30) / 0.0_wp /
data dfth (1, 30) / 0.00000000000000_wp /
data pbcq (1, 30) / 0.0_wp /
data pbch (1, 30) / 0.00000000000000_wp /
data clsq (1, 30) / 0.00000000000000_wp /
data clsh (1, 30) / 0.00000000000000_wp /
data hcount (1, 30) / 0.00000000000000_wp /
data ascale (1, 30) / 1.00000000000000_wp /
data refcovcn(1, 30) / 0.00000000000000_wp /
data refcn (1, 30) / 0.00000000000000_wp /
data refsys (1, 30) / 1 /
data alphaiw(:,1, 30) / &
& 44.8764280_wp, 42.4015380_wp, 36.5011020_wp, 24.0580460_wp, &
& 15.9961690_wp, 11.3275720_wp, 8.5125980_wp, 6.7050110_wp, &
& 5.4750510_wp, 4.5962800_wp, 3.9426060_wp, 3.4399690_wp, &
& 2.7216070_wp, 2.2355020_wp, 1.8860970_wp, 1.6235520_wp, &
& 1.4194560_wp, 1.0657210_wp, 0.8398960_wp, 0.5698780_wp, &
& 0.4161790_wp, 0.2271770_wp, 0.1438000_wp /
! REF ZnH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 30) / 0.22218813020625_wp /
data refh (2, 30) / -0.11109406510313_wp /
data gffq (2, 30) / 0.25796918840353_wp /
data gffh (2, 30) / -0.12898459420177_wp /
data dftq (2, 30) / 0.33446100000000_wp /
data dfth (2, 30) / -0.16722700000000_wp /
data pbcq (2, 30) / 0.22218813020625_wp /
data pbch (2, 30) / -0.11109406510313_wp /
data clsq (2, 30) / 0.25796918840353_wp /
data clsh (2, 30) / -0.12898459420177_wp /
data hcount (2, 30) / 2.00000000000000_wp /
data ascale (2, 30) / 1.00000000000000_wp /
data refcovcn(2, 30) / 1.75336283145604_wp /
data refcn (2, 30) / 1.94189578186459_wp /
data refsys (2, 30) / 1 /
data alphaiw(:,2, 30) / &
& 29.2304490_wp, 28.6434220_wp, 27.0389880_wp, 22.2870810_wp, &
& 17.5546960_wp, 13.8059590_wp, 11.0322270_wp, 8.9976380_wp, &
& 7.4858160_wp, 6.3399040_wp, 5.4528720_wp, 4.7523760_wp, &
& 3.7286630_wp, 3.0264940_wp, 2.5210460_wp, 2.1430610_wp, &
& 1.8515770_wp, 1.3547510_wp, 1.0459910_wp, 0.6893360_wp, &
& 0.4939420_wp, 0.2624940_wp, 0.1638640_wp /
data refn(30) / 2 /
! REF Ga - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 31) / -0.00000000000001_wp /
data refh (1, 31) / 0.00000000000000_wp /
data gffq (1, 31) / 0.00000000000000_wp /
data gffh (1, 31) / 0.00000000000000_wp /
data dftq (1, 31) / -0.00000000000001_wp /
data dfth (1, 31) / 0.00000000000000_wp /
data pbcq (1, 31) / -0.00000000000001_wp /
data pbch (1, 31) / 0.00000000000000_wp /
data clsq (1, 31) / 0.00000000000000_wp /
data clsh (1, 31) / 0.00000000000000_wp /
data hcount (1, 31) / 0.00000000000000_wp /
data ascale (1, 31) / 1.00000000000000_wp /
data refcovcn(1, 31) / 0.00000000000000_wp /
data refcn (1, 31) / 0.00000000000000_wp /
data refsys (1, 31) / 1 /
data alphaiw(:,1, 31) / &
& 56.2798430_wp, 51.9167870_wp, 43.2310870_wp, 28.1416200_wp, &
& 18.8462820_wp, 13.2994650_wp, 9.8600450_wp, 7.6193980_wp, &
& 6.0894620_wp, 5.0007640_wp, 4.1981820_wp, 3.5884760_wp, &
& 2.7347440_wp, 2.1738840_wp, 1.7818110_wp, 1.4944090_wp, &
& 1.2758120_wp, 0.9086190_wp, 0.6839730_wp, 0.4300690_wp, &
& 0.2959040_wp, 0.1458990_wp, 0.0867970_wp /
! REF GaH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 31) / 0.30692560016815_wp /
data refh (2, 31) / -0.30692560016815_wp /
data gffq (2, 31) / 0.02870304944818_wp /
data gffh (2, 31) / -0.02870304944818_wp /
data dftq (2, 31) / 0.04558400000000_wp /
data dfth (2, 31) / -0.04558400000000_wp /
data pbcq (2, 31) / 0.30692560016815_wp /
data pbch (2, 31) / -0.30692560016815_wp /
data clsq (2, 31) / 0.02870304944818_wp /
data clsh (2, 31) / -0.02870304944818_wp /
data hcount (2, 31) / 1.00000000000000_wp /
data ascale (2, 31) / 1.00000000000000_wp /
data refcovcn(2, 31) / 0.88820287155353_wp /
data refcn (2, 31) / 0.96005556460526_wp /
data refsys (2, 31) / 1 /
data alphaiw(:,2, 31) / &
& 53.3046110_wp, 49.9067250_wp, 42.6926500_wp, 29.2253470_wp, &
& 20.4243950_wp, 14.8882280_wp, 11.2916180_wp, 8.8592270_wp, &
& 7.1500550_wp, 5.9073300_wp, 4.9763880_wp, 4.2607350_wp, &
& 3.2471250_wp, 2.5751450_wp, 2.1036730_wp, 1.7579590_wp, &
& 1.4954520_wp, 1.0567390_wp, 0.7907280_wp, 0.4933050_wp, &
& 0.3378040_wp, 0.1654770_wp, 0.0980990_wp /
! REF GaH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 31) / 0.25583231781832_wp /
data refh (3, 31) / -0.12791615890916_wp /
data gffq (3, 31) / 0.04511416923234_wp /
data gffh (3, 31) / -0.02255708461617_wp /
data dftq (3, 31) / 0.23997400000000_wp /
data dfth (3, 31) / -0.11998000000000_wp /
data pbcq (3, 31) / 0.25583231781832_wp /
data pbch (3, 31) / -0.12791615890916_wp /
data clsq (3, 31) / 0.04511416923234_wp /
data clsh (3, 31) / -0.02255708461617_wp /
data hcount (3, 31) / 2.00000000000000_wp /
data ascale (3, 31) / 1.00000000000000_wp /
data refcovcn(3, 31) / 1.78721228422408_wp /
data refcn (3, 31) / 1.93153571165990_wp /
data refsys (3, 31) / 1 /
data alphaiw(:,3, 31) / &
& 40.6953470_wp, 38.6598060_wp, 34.9271010_wp, 27.0292080_wp, &
& 20.5104160_wp, 15.7311360_wp, 12.3171900_wp, 9.8626390_wp, &
& 8.0655210_wp, 6.7210170_wp, 5.6931530_wp, 4.8912630_wp, &
& 3.7391050_wp, 2.9659310_wp, 2.4200560_wp, 2.0186870_wp, &
& 1.7137410_wp, 1.2049770_wp, 0.8979620_wp, 0.5570650_wp, &
& 0.3801550_wp, 0.1853670_wp, 0.1096290_wp /
data refn(31) / 3 /
! REF Ge - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 32) / -0.00000000000001_wp /
data refh (1, 32) / 0.00000000000000_wp /
data gffq (1, 32) / 0.00000000000000_wp /
data gffh (1, 32) / 0.00000000000000_wp /
data dftq (1, 32) / -0.00000000000001_wp /
data dfth (1, 32) / 0.00000000000000_wp /
data pbcq (1, 32) / -0.00000000000001_wp /
data pbch (1, 32) / 0.00000000000000_wp /
data clsq (1, 32) / 0.00000000000000_wp /
data clsh (1, 32) / 0.00000000000000_wp /
data hcount (1, 32) / 0.00000000000000_wp /
data ascale (1, 32) / 1.00000000000000_wp /
data refcovcn(1, 32) / 0.00000000000000_wp /
data refcn (1, 32) / 0.00000000000000_wp /
data refsys (1, 32) / 1 /
data alphaiw(:,1, 32) / &
& 41.6184280_wp, 39.9833160_wp, 35.9872960_wp, 26.6103970_wp, &
& 19.2286830_wp, 14.1743150_wp, 10.7638470_wp, 8.4179500_wp, &
& 6.7587960_wp, 5.5514820_wp, 4.6493180_wp, 3.9588270_wp, &
& 2.9887560_wp, 2.3535080_wp, 1.9131390_wp, 1.5937360_wp, &
& 1.3534810_wp, 0.9566170_wp, 0.7184900_wp, 0.4529630_wp, &
& 0.3132500_wp, 0.1561230_wp, 0.0935260_wp /
! REF GeH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 32) / 0.15565415588149_wp /
data refh (2, 32) / -0.15565415588148_wp /
data gffq (2, 32) / 0.00938786608492_wp /
data gffh (2, 32) / -0.00938786608492_wp /
data dftq (2, 32) / 0.11484500000000_wp /
data dfth (2, 32) / -0.11484500000000_wp /
data pbcq (2, 32) / 0.15565415588149_wp /
data pbch (2, 32) / -0.15565415588148_wp /
data clsq (2, 32) / 0.00938786608492_wp /
data clsh (2, 32) / -0.00938786608492_wp /
data hcount (2, 32) / 1.00000000000000_wp /
data ascale (2, 32) / 1.00000000000000_wp /
data refcovcn(2, 32) / 0.89941149965103_wp /
data refcn (2, 32) / 0.94335166609313_wp /
data refsys (2, 32) / 1 /
data alphaiw(:,2, 32) / &
& 40.4520440_wp, 39.0264160_wp, 35.5809840_wp, 27.3666530_wp, &
& 20.5342330_wp, 15.5791490_wp, 12.0769830_wp, 9.5821540_wp, &
& 7.7708270_wp, 6.4264770_wp, 5.4066710_wp, 4.6170600_wp, &
& 3.4943900_wp, 2.7511970_wp, 2.2328710_wp, 1.8558220_wp, &
& 1.5719620_wp, 1.1037790_wp, 0.8243160_wp, 0.5154070_wp, &
& 0.3545620_wp, 0.1754620_wp, 0.1047250_wp /
! REF GeH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 32) / 0.19489066026694_wp /
data refh (3, 32) / -0.09744533013347_wp /
data gffq (3, 32) / -0.00592798448224_wp /
data gffh (3, 32) / 0.00296399224112_wp /
data dftq (3, 32) / 0.06815900000000_wp /
data dfth (3, 32) / -0.03407600000000_wp /
data pbcq (3, 32) / 0.19489066026694_wp /
data pbch (3, 32) / -0.09744533013347_wp /
data clsq (3, 32) / -0.00592798448224_wp /
data clsh (3, 32) / 0.00296399224112_wp /
data hcount (3, 32) / 2.00000000000000_wp /
data ascale (3, 32) / 1.00000000000000_wp /
data refcovcn(3, 32) / 1.85525243419195_wp /
data refcn (3, 32) / 1.94465170362984_wp /
data refsys (3, 32) / 1 /
data alphaiw(:,3, 32) / &
& 40.4418220_wp, 39.2545360_wp, 36.2478860_wp, 28.6222220_wp, &
& 21.9792320_wp, 16.9925560_wp, 13.3626540_wp, 10.7138950_wp, &
& 8.7539710_wp, 7.2776830_wp, 6.1448790_wp, 5.2599430_wp, &
& 3.9900180_wp, 3.1421830_wp, 2.5480020_wp, 2.1146930_wp, &
& 1.7881720_wp, 1.2499950_wp, 0.9298180_wp, 0.5780120_wp, &
& 0.3961690_wp, 0.1950880_wp, 0.1161420_wp /
! REF GeH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 32) / 0.07796365954686_wp /
data refh (4, 32) / -0.02598788651562_wp /
data gffq (4, 32) / -0.03161585463110_wp /
data gffh (4, 32) / 0.01053861821037_wp /
data dftq (4, 32) / 0.15846000000000_wp /
data dfth (4, 32) / -0.05282400000000_wp /
data pbcq (4, 32) / 0.07796365954686_wp /
data pbch (4, 32) / -0.02598788651562_wp /
data clsq (4, 32) / -0.03161585463110_wp /
data clsh (4, 32) / 0.01053861821037_wp /
data hcount (4, 32) / 3.00000000000000_wp /
data ascale (4, 32) / 1.00000000000000_wp /
data refcovcn(4, 32) / 2.78448725734282_wp /
data refcn (4, 32) / 2.91863046426809_wp /
data refsys (4, 32) / 1 /
data alphaiw(:,4, 32) / &
& 37.6716300_wp, 36.8525860_wp, 34.6926590_wp, 28.6826580_wp, &
& 22.8485090_wp, 18.1179570_wp, 14.4936950_wp, 11.7568160_wp, &
& 9.6831810_wp, 8.0946770_wp, 6.8606380_wp, 5.8877070_wp, &
& 4.4784020_wp, 3.5295510_wp, 2.8613170_wp, 2.3726930_wp, &
& 2.0040290_wp, 1.3963730_wp, 1.0356150_wp, 0.6409590_wp, &
& 0.4381220_wp, 0.2150380_wp, 0.1278320_wp /
! REF GeH4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (5, 32) / 0.08330185602026_wp /
data refh (5, 32) / -0.02082546400506_wp /
data gffq (5, 32) / -0.06445558548675_wp /
data gffh (5, 32) / 0.01611389637169_wp /
data dftq (5, 32) / 0.22355800000000_wp /
data dfth (5, 32) / -0.05588500000000_wp /
data pbcq (5, 32) / 0.08330185602026_wp /
data pbch (5, 32) / -0.02082546400506_wp /
data clsq (5, 32) / -0.06445558548675_wp /
data clsh (5, 32) / 0.01611389637169_wp /
data hcount (5, 32) / 4.00000000000000_wp /
data ascale (5, 32) / 1.00000000000000_wp /
data refcovcn(5, 32) / 3.71823460680579_wp /
data refcn (5, 32) / 3.89724939850564_wp /
data refsys (5, 32) / 1 /
data alphaiw(:,5, 32) / &
& 34.9443880_wp, 34.4589550_wp, 33.0932300_wp, 28.6849650_wp, &
& 23.6815050_wp, 19.2193090_wp, 15.6074480_wp, 12.7869910_wp, &
& 10.6029230_wp, 8.9045950_wp, 7.5710690_wp, 6.5114240_wp, &
& 4.9643950_wp, 3.9154690_wp, 3.1737400_wp, 2.6301480_wp, &
& 2.2195640_wp, 1.5427250_wp, 1.1415220_wp, 0.7041370_wp, &
& 0.4803530_wp, 0.2352710_wp, 0.1397600_wp /
data refn(32) / 5 /
! REF As - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 33) / 0.00000000000000_wp /
data refh (1, 33) / 0.00000000000000_wp /
data gffq (1, 33) / 0.00000000000000_wp /
data gffh (1, 33) / 0.00000000000000_wp /
data dftq (1, 33) / 0.00000000000000_wp /
data dfth (1, 33) / 0.00000000000000_wp /
data pbcq (1, 33) / 0.00000000000000_wp /
data pbch (1, 33) / 0.00000000000000_wp /
data clsq (1, 33) / 0.00000000000000_wp /
data clsh (1, 33) / 0.00000000000000_wp /
data hcount (1, 33) / 0.00000000000000_wp /
data ascale (1, 33) / 1.00000000000000_wp /
data refcovcn(1, 33) / 0.00000000000000_wp /
data refcn (1, 33) / 0.00000000000000_wp /
data refsys (1, 33) / 1 /
data alphaiw(:,1, 33) / &
& 30.9622720_wp, 30.2682480_wp, 28.4117290_wp, 23.1419060_wp, &
& 18.0459760_wp, 14.0238200_wp, 11.0354630_wp, 8.8374630_wp, &
& 7.2065030_wp, 5.9774600_wp, 5.0352070_wp, 4.3004040_wp, &
& 3.2496190_wp, 2.5521200_wp, 2.0662400_wp, 1.7139300_wp, &
& 1.4497910_wp, 1.0172000_wp, 0.7612360_wp, 0.4798100_wp, &
& 0.3329600_wp, 0.1673800_wp, 0.1007870_wp /
! REF AsH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 33) / 0.05341421485122_wp /
data refh (2, 33) / -0.05341421485122_wp /
data gffq (2, 33) / -0.09954248086481_wp /
data gffh (2, 33) / 0.09954248086481_wp /
data dftq (2, 33) / 0.03562600000000_wp /
data dfth (2, 33) / -0.03562800000000_wp /
data pbcq (2, 33) / 0.05341421485122_wp /
data pbch (2, 33) / -0.05341421485122_wp /
data clsq (2, 33) / -0.09954248086481_wp /
data clsh (2, 33) / 0.09954248086481_wp /
data hcount (2, 33) / 1.00000000000000_wp /
data ascale (2, 33) / 1.00000000000000_wp /
data refcovcn(2, 33) / 0.96810324138508_wp /
data refcn (2, 33) / 0.98892125897221_wp /
data refsys (2, 33) / 1 /
data alphaiw(:,2, 33) / &
& 32.9857230_wp, 32.2738720_wp, 30.3903080_wp, 25.0725470_wp, &
& 19.8545550_wp, 15.6403290_wp, 12.4395230_wp, 10.0416420_wp, &
& 8.2363030_wp, 6.8602630_wp, 5.7958010_wp, 4.9597520_wp, &
& 3.7548970_wp, 2.9491190_wp, 2.3851990_wp, 1.9752150_wp, &
& 1.6674560_wp, 1.1635310_wp, 0.8662610_wp, 0.5416150_wp, &
& 0.3738430_wp, 0.1866530_wp, 0.1120540_wp /
! REF AsH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 33) / 0.08123466402805_wp /
data refh (3, 33) / -0.04061733201402_wp /
data gffq (3, 33) / -0.11896736577051_wp /
data gffh (3, 33) / 0.05948368288525_wp /
data dftq (3, 33) / 0.05560200000000_wp /
data dfth (3, 33) / -0.02779700000000_wp /
data pbcq (3, 33) / 0.08123466402805_wp /
data pbch (3, 33) / -0.04061733201402_wp /
data clsq (3, 33) / -0.11896736577051_wp /
data clsh (3, 33) / 0.05948368288525_wp /
data hcount (3, 33) / 2.00000000000000_wp /
data ascale (3, 33) / 1.00000000000000_wp /
data refcovcn(3, 33) / 1.93762986034873_wp /
data refcn (3, 33) / 1.97932099000612_wp /
data refsys (3, 33) / 1 /
data alphaiw(:,3, 33) / &
& 34.5403260_wp, 33.8506380_wp, 32.0374310_wp, 26.8393630_wp, &
& 21.5730010_wp, 17.1996430_wp, 13.8049410_wp, 11.2190870_wp, &
& 9.2473150_wp, 7.7296440_wp, 6.5466390_wp, 5.6118890_wp, &
& 4.2560500_wp, 3.3436390_wp, 2.7026150_wp, 2.2355180_wp, &
& 1.8844910_wp, 1.3096800_wp, 0.9712870_wp, 0.6035540_wp, &
& 0.4148920_wp, 0.2060850_wp, 0.1234480_wp /
! REF AsH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 33) / 0.09121599779474_wp /
data refh (4, 33) / -0.03040533259825_wp /
data gffq (4, 33) / -0.10225384717106_wp /
data gffh (4, 33) / 0.03408461572369_wp /
data dftq (4, 33) / 0.06023400000000_wp /
data dfth (4, 33) / -0.02007466666667_wp /
data pbcq (4, 33) / 0.09121599779474_wp /
data pbch (4, 33) / -0.03040533259825_wp /
data clsq (4, 33) / -0.10225384717106_wp /
data clsh (4, 33) / 0.03408461572369_wp /
data hcount (4, 33) / 3.00000000000000_wp /
data ascale (4, 33) / 1.00000000000000_wp /
data refcovcn(4, 33) / 2.90829444959119_wp /
data refcn (4, 33) / 2.97091083178345_wp /
data refsys (4, 33) / 1 /
data alphaiw(:,4, 33) / &
& 35.5626970_wp, 34.9738250_wp, 33.3553240_wp, 28.4265670_wp, &
& 23.1867600_wp, 18.6947170_wp, 15.1290090_wp, 12.3689250_wp, &
& 10.2393320_wp, 8.5855950_wp, 7.2877370_wp, 6.2567940_wp, &
& 4.7529590_wp, 3.7354930_wp, 3.0182630_wp, 2.4945970_wp, &
& 2.1006490_wp, 1.4553950_wp, 1.0760650_wp, 0.6653780_wp, &
& 0.4558740_wp, 0.2254990_wp, 0.1348450_wp /
data refn(33) / 4 /
! REF Se - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 34) / 0.00000000000001_wp /
data refh (1, 34) / 0.00000000000000_wp /
data gffq (1, 34) / 0.00000000000000_wp /
data gffh (1, 34) / 0.00000000000000_wp /
data dftq (1, 34) / 0.00000000000001_wp /
data dfth (1, 34) / 0.00000000000000_wp /
data pbcq (1, 34) / 0.00000000000001_wp /
data pbch (1, 34) / 0.00000000000000_wp /
data clsq (1, 34) / 0.00000000000000_wp /
data clsh (1, 34) / 0.00000000000000_wp /
data hcount (1, 34) / 0.00000000000000_wp /
data ascale (1, 34) / 1.00000000000000_wp /
data refcovcn(1, 34) / 0.00000000000000_wp /
data refcn (1, 34) / 0.00000000000000_wp /
data refsys (1, 34) / 1 /
data alphaiw(:,1, 34) / &
& 25.7234860_wp, 25.2967560_wp, 24.1266960_wp, 20.5754680_wp, &
& 16.8021780_wp, 13.5652820_wp, 10.9952140_wp, 9.0046390_wp, &
& 7.4667080_wp, 6.2701390_wp, 5.3290860_wp, 4.5800740_wp, &
& 3.4849480_wp, 2.7424650_wp, 2.2186000_wp, 1.8360660_wp, &
& 1.5483750_wp, 1.0775180_wp, 0.8008720_wp, 0.5007840_wp, &
& 0.3466260_wp, 0.1746160_wp, 0.1055700_wp /
! REF SeH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 34) / -0.14680263633976_wp /
data refh (2, 34) / 0.14680263633976_wp /
data gffq (2, 34) / -0.12327157100582_wp /
data gffh (2, 34) / 0.12327157100582_wp /
data dftq (2, 34) / -0.03943200000000_wp /
data dfth (2, 34) / 0.03943100000000_wp /
data pbcq (2, 34) / -0.14680263633976_wp /
data pbch (2, 34) / 0.14680263633976_wp /
data clsq (2, 34) / -0.12327157100582_wp /
data clsh (2, 34) / 0.12327157100582_wp /
data hcount (2, 34) / 1.00000000000000_wp /
data ascale (2, 34) / 1.00000000000000_wp /
data refcovcn(2, 34) / 0.92195274896170_wp /
data refcn (2, 34) / 0.99005644237283_wp /
data refsys (2, 34) / 1 /
data alphaiw(:,2, 34) / &
& 28.5144970_wp, 28.0475240_wp, 26.7740720_wp, 22.9293920_wp, &
& 18.8329680_wp, 15.2899050_wp, 12.4503800_wp, 10.2324530_wp, &
& 8.5069500_wp, 7.1570530_wp, 6.0907950_wp, 5.2391750_wp, &
& 3.9892260_wp, 3.1385090_wp, 2.5367660_wp, 2.0966900_wp, &
& 1.7654690_wp, 1.2233860_wp, 0.9054680_wp, 0.5621910_wp, &
& 0.3871530_wp, 0.1936670_wp, 0.1167080_wp /
! REF SeH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 34) / -0.30550786355706_wp /
data refh (3, 34) / 0.15275393177853_wp /
data gffq (3, 34) / -0.17535803722366_wp /
data gffh (3, 34) / 0.08767901861183_wp /
data dftq (3, 34) / -0.08485500000000_wp /
data dfth (3, 34) / 0.04243500000000_wp /
data pbcq (3, 34) / -0.30550786355706_wp /
data pbch (3, 34) / 0.15275393177853_wp /
data clsq (3, 34) / -0.17535803722366_wp /
data clsh (3, 34) / 0.08767901861183_wp /
data hcount (3, 34) / 2.00000000000000_wp /
data ascale (3, 34) / 1.00000000000000_wp /
data refcovcn(3, 34) / 1.84493749809528_wp /
data refcn (3, 34) / 1.98124719453101_wp /
data refsys (3, 34) / 1 /
data alphaiw(:,3, 34) / &
& 30.9890680_wp, 30.5032140_wp, 29.1715810_wp, 25.1156940_wp, &
& 20.7515920_wp, 16.9397500_wp, 13.8556780_wp, 11.4267060_wp, &
& 9.5242290_wp, 8.0279190_wp, 6.8410310_wp, 5.8898910_wp, &
& 4.4887500_wp, 3.5316780_wp, 2.8531070_wp, 2.3561140_wp, &
& 1.9817540_wp, 1.3689360_wp, 1.0099510_wp, 0.6236450_wp, &
& 0.4277790_wp, 0.2128400_wp, 0.1279540_wp /
data refn(34) / 3 /
! REF Br - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 35) / 0.00000000000000_wp /
data refh (1, 35) / 0.00000000000000_wp /
data gffq (1, 35) / 0.00000000000000_wp /
data gffh (1, 35) / 0.00000000000000_wp /
data dftq (1, 35) / 0.00000000000000_wp /
data dfth (1, 35) / 0.00000000000000_wp /
data pbcq (1, 35) / 0.00000000000000_wp /
data pbch (1, 35) / 0.00000000000000_wp /
data clsq (1, 35) / 0.00000000000000_wp /
data clsh (1, 35) / 0.00000000000000_wp /
data hcount (1, 35) / 0.00000000000000_wp /
data ascale (1, 35) / 1.00000000000000_wp /
data refcovcn(1, 35) / 0.00000000000000_wp /
data refcn (1, 35) / 0.00000000000000_wp /
data refsys (1, 35) / 1 /
data alphaiw(:,1, 35) / &
& 20.8160780_wp, 20.5760200_wp, 19.8987130_wp, 17.6813900_wp, &
& 15.0736970_wp, 12.6318500_wp, 10.5528970_wp, 8.8524810_wp, &
& 7.4812900_wp, 6.3774160_wp, 5.4848940_wp, 4.7581530_wp, &
& 3.6676360_wp, 2.9082370_wp, 2.3624100_wp, 1.9587510_wp, &
& 1.6526030_wp, 1.1479460_wp, 0.8506710_wp, 0.5297310_wp, &
& 0.3663790_wp, 0.1854320_wp, 0.1127450_wp /
! REF BrH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 35) / -0.26466311607527_wp /
data refh (2, 35) / 0.26466311607527_wp /
data gffq (2, 35) / -0.14490782122377_wp /
data gffh (2, 35) / 0.14490782122377_wp /
data dftq (2, 35) / -0.10565600000000_wp /
data dfth (2, 35) / 0.10565500000000_wp /
data pbcq (2, 35) / -0.26466311607527_wp /
data pbch (2, 35) / 0.26466311607527_wp /
data clsq (2, 35) / -0.14490782122377_wp /
data clsh (2, 35) / 0.14490782122377_wp /
data hcount (2, 35) / 1.00000000000000_wp /
data ascale (2, 35) / 1.00000000000000_wp /
data refcovcn(2, 35) / 0.87141367228098_wp /
data refcn (2, 35) / 0.99735391054501_wp /
data refsys (2, 35) / 1 /
data alphaiw(:,2, 35) / &
& 23.7818040_wp, 23.5043600_wp, 22.7232600_wp, 20.1781530_wp, &
& 17.1975750_wp, 14.4112140_wp, 12.0390110_wp, 10.0975330_wp, &
& 8.5309690_wp, 7.2693050_wp, 6.2490260_wp, 5.4182350_wp, &
& 4.1716820_wp, 3.3037540_wp, 2.6800190_wp, 2.2188460_wp, &
& 1.8691920_wp, 1.2933190_wp, 0.9547540_wp, 0.5906060_wp, &
& 0.4063970_wp, 0.2041110_wp, 0.1236350_wp /
data refn(35) / 2 /
! REF Kr - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 36) / -0.00000000000000_wp /
data refh (1, 36) / 0.00000000000000_wp /
data gffq (1, 36) / 0.00000000000000_wp /
data gffh (1, 36) / 0.00000000000000_wp /
data dftq (1, 36) / -0.00000000000000_wp /
data dfth (1, 36) / 0.00000000000000_wp /
data pbcq (1, 36) / -0.00000000000000_wp /
data pbch (1, 36) / 0.00000000000000_wp /
data clsq (1, 36) / 0.00000000000000_wp /
data clsh (1, 36) / 0.00000000000000_wp /
data hcount (1, 36) / 0.00000000000000_wp /
data ascale (1, 36) / 1.00000000000000_wp /
data refcovcn(1, 36) / 0.00000000000000_wp /
data refcn (1, 36) / 0.00000000000000_wp /
data refsys (1, 36) / 1 /
data alphaiw(:,1, 36) / &
& 16.8771250_wp, 16.7404080_wp, 16.3473440_wp, 14.9868570_wp, &
& 13.2465280_wp, 11.4802080_wp, 9.8697990_wp, 8.4773240_wp, &
& 7.3035050_wp, 6.3243740_wp, 5.5096050_wp, 4.8302660_wp, &
& 3.7825130_wp, 3.0313660_wp, 2.4797800_wp, 2.0653280_wp, &
& 1.7472760_wp, 1.2164410_wp, 0.9007200_wp, 0.5591630_wp, &
& 0.3861250_wp, 0.1959080_wp, 0.1197080_wp /
data refn(36) / 1 /
! REF Rb - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 37) / -0.00000000000000_wp /
data refh (1, 37) / 0.00000000000000_wp /
data gffq (1, 37) / 0.00000000000000_wp /
data gffh (1, 37) / 0.00000000000000_wp /
data dftq (1, 37) / -0.00000000000000_wp /
data dfth (1, 37) / 0.00000000000000_wp /
data pbcq (1, 37) / -0.00000000000000_wp /
data pbch (1, 37) / 0.00000000000000_wp /
data clsq (1, 37) / 0.00000000000000_wp /
data clsh (1, 37) / 0.00000000000000_wp /
data hcount (1, 37) / 0.00000000000000_wp /
data ascale (1, 37) / 1.00000000000000_wp /
data refcovcn(1, 37) / 0.00000000000000_wp /
data refcn (1, 37) / 0.00000000000000_wp /
data refsys (1, 37) / 1 /
data alphaiw(:,1, 37) / &
& 410.1570650_wp, 214.3629420_wp, 92.2189500_wp, 33.0762760_wp, &
& 19.1702550_wp, 13.6453490_wp, 10.6953320_wp, 8.8115010_wp, &
& 7.4699530_wp, 6.4487380_wp, 5.6381240_wp, 4.9766630_wp, &
& 3.9619960_wp, 3.2244460_wp, 2.6697510_wp, 2.2421050_wp, &
& 1.9059170_wp, 1.3262900_wp, 0.9698860_wp, 0.5775830_wp, &
& 0.3804570_wp, 0.1743570_wp, 0.0992380_wp /
! REF RbH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 37) / 0.38168923853998_wp /
data refh (2, 37) / -0.38168923853998_wp /
data gffq (2, 37) / 0.44852683448077_wp /
data gffh (2, 37) / -0.44852683448077_wp /
data dftq (2, 37) / 0.43412900000000_wp /
data dfth (2, 37) / -0.43413500000000_wp /
data pbcq (2, 37) / 0.38168923853998_wp /
data pbch (2, 37) / -0.38168923853998_wp /
data clsq (2, 37) / 0.44852683448077_wp /
data clsh (2, 37) / -0.44852683448077_wp /
data hcount (2, 37) / 1.00000000000000_wp /
data ascale (2, 37) / 1.00000000000000_wp /
data refcovcn(2, 37) / 0.77155167960451_wp /
data refcn (2, 37) / 0.97383869672670_wp /
data refsys (2, 37) / 1 /
data alphaiw(:,2, 37) / &
& 62.1046880_wp, 55.3737420_wp, 43.5682870_wp, 27.4983580_wp, &
& 19.5497690_wp, 15.0663500_wp, 12.1785660_wp, 10.1413920_wp, &
& 8.6158260_wp, 7.4268580_wp, 6.4740940_wp, 5.6949060_wp, &
& 4.5031460_wp, 3.6435490_wp, 3.0024770_wp, 2.5119750_wp, &
& 2.1288570_wp, 1.4737190_wp, 1.0743370_wp, 0.6377080_wp, &
& 0.4194260_wp, 0.1919380_wp, 0.1091900_wp /
! REF Rb4Cl4 - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 37) / 0.61945426066521_wp /
data refh (3, 37) / -0.61945426066521_wp /
data gffq (3, 37) / 0.56600000000000_wp /
data gffh (3, 37) / -0.56600000000000_wp /
data dftq (3, 37) / 0.61945426066521_wp /
data dfth (3, 37) / -0.61945426066521_wp /
data pbcq (3, 37) / 0.41600000000000_wp /
data pbch (3, 37) / -0.41600000000000_wp /
data clsq (3, 37) / 0.41600000000000_wp /
data clsh (3, 37) / -0.41600000000000_wp /
data hcount (3, 37) / 4.00000000000000_wp /
data ascale (3, 37) / 0.25000000000000_wp /
data refcovcn(3, 37) / 12.39000000000000_wp /
data refcn (3, 37) / 14.53800000000000_wp /
data refsys (3, 37) / 17 /
data alphaiw(:,3, 37) / &
& 126.6310029_wp, 125.1559058_wp, 121.0742788_wp, 108.3482901_wp, &
& 94.1247762_wp, 81.0337905_wp, 69.7439741_wp, 60.2269348_wp, &
& 52.2628997_wp, 45.6040488_wp, 40.0235464_wp, 35.3278801_wp, &
& 27.9808202_wp, 22.6114560_wp, 18.5992009_wp, 15.5379934_wp, &
& 13.1579386_wp, 9.1200087_wp, 6.6812408_wp, 4.0309298_wp, &
& 2.7053916_wp, 1.3052810_wp, 0.7781749_wp /
data refn(37) / 3 /
! REF Sr - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 38) / -0.00000000000000_wp /
data refh (1, 38) / 0.00000000000000_wp /
data gffq (1, 38) / 0.00000000000000_wp /
data gffh (1, 38) / 0.00000000000000_wp /
data dftq (1, 38) / -0.00000000000000_wp /
data dfth (1, 38) / 0.00000000000000_wp /
data pbcq (1, 38) / -0.00000000000000_wp /
data pbch (1, 38) / 0.00000000000000_wp /
data clsq (1, 38) / 0.00000000000000_wp /
data clsh (1, 38) / 0.00000000000000_wp /
data hcount (1, 38) / 0.00000000000000_wp /
data ascale (1, 38) / 1.00000000000000_wp /
data refcovcn(1, 38) / 0.00000000000000_wp /
data refcn (1, 38) / 0.00000000000000_wp /
data refsys (1, 38) / 1 /
data alphaiw(:,1, 38) / &
& 207.0959830_wp, 167.4062640_wp, 107.5395190_wp, 46.8864590_wp, &
& 26.2027860_wp, 17.4151700_wp, 12.8603380_wp, 10.1317340_wp, &
& 8.3169810_wp, 7.0156000_wp, 6.0305450_wp, 5.2554110_wp, &
& 4.1095420_wp, 3.3041900_wp, 2.7115560_wp, 2.2617260_wp, &
& 1.9123040_wp, 1.3185610_wp, 0.9589950_wp, 0.5679990_wp, &
& 0.3733060_wp, 0.1708320_wp, 0.0972390_wp /
! REF SrH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 38) / 0.35645143561998_wp /
data refh (2, 38) / -0.35645143561998_wp /
data gffq (2, 38) / 0.42643340166796_wp /
data gffh (2, 38) / -0.42643340166796_wp /
data dftq (2, 38) / 0.33280500000000_wp /
data dfth (2, 38) / -0.33280600000000_wp /
data pbcq (2, 38) / 0.35645143561998_wp /
data pbch (2, 38) / -0.35645143561998_wp /
data clsq (2, 38) / 0.42643340166796_wp /
data clsh (2, 38) / -0.42643340166796_wp /
data hcount (2, 38) / 1.00000000000000_wp /
data ascale (2, 38) / 1.00000000000000_wp /
data refcovcn(2, 38) / 0.79294768050705_wp /
data refcn (2, 38) / 0.98009983712321_wp /
data refsys (2, 38) / 1 /
data alphaiw(:,2, 38) / &
& 203.7569620_wp, 136.2520380_wp, 79.3342830_wp, 39.0709150_wp, &
& 24.8495540_wp, 17.8598820_wp, 13.7760240_wp, 11.1115300_wp, &
& 9.2347870_wp, 7.8382880_wp, 6.7567000_wp, 5.8938450_wp, &
& 4.6058940_wp, 3.6968050_wp, 3.0281860_wp, 2.5217330_wp, &
& 2.1292640_wp, 1.4647060_wp, 1.0638290_wp, 0.6292740_wp, &
& 0.4133770_wp, 0.1891240_wp, 0.1076560_wp /
! REF SrH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 38) / 0.49180081018397_wp /
data refh (3, 38) / -0.24590040509199_wp /
data gffq (3, 38) / 0.64902814271780_wp /
data gffh (3, 38) / -0.32451407135890_wp /
data dftq (3, 38) / 0.72209300000000_wp /
data dfth (3, 38) / -0.36105100000000_wp /
data pbcq (3, 38) / 0.49180081018397_wp /
data pbch (3, 38) / -0.24590040509199_wp /
data clsq (3, 38) / 0.64902814271780_wp /
data clsh (3, 38) / -0.32451407135890_wp /
data hcount (3, 38) / 2.00000000000000_wp /
data ascale (3, 38) / 1.00000000000000_wp /
data refcovcn(3, 38) / 1.54805734413866_wp /
data refcn (3, 38) / 1.91434965086468_wp /
data refsys (3, 38) / 1 /
data alphaiw(:,3, 38) / &
& 56.7366690_wp, 53.8312150_wp, 47.2695200_wp, 33.9461020_wp, &
& 24.8182410_wp, 18.9521460_wp, 15.0374310_wp, 12.2916810_wp, &
& 10.2772390_wp, 8.7433090_wp, 7.5399850_wp, 6.5735100_wp, &
& 5.1255840_wp, 4.1035260_wp, 3.3535750_wp, 2.7871740_wp, &
& 2.3494990_wp, 1.6113550_wp, 1.1681150_wp, 0.6895060_wp, &
& 0.4524650_wp, 0.2067690_wp, 0.1176430_wp /
! REF Sr4O4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 38) / 0.58944749671323 /
data refh (4, 38) / -0.58944749671323 /
data gffq (4, 38) / 0.84300000000000 /
data gffh (4, 38) / -0.84300000000000 /
data dftq (4, 38) / 0.58944749671323 /
data dfth (4, 38) / -0.58944749671323 /
data pbcq (4, 38) / 0.51400000000000 /
data pbch (4, 38) / -0.51400000000000 /
data clsq (4, 38) / 0.51400000000000 /
data clsh (4, 38) / -0.51400000000000 /
data hcount (4, 38) / 4.00000000000000 /
data ascale (4, 38) / 0.25000000000000 /
data refcovcn(4, 38) / 15.12100000000000 /
data refcn (4, 38) / 18.12500000000000 /
data refsys (4, 38) / 9 /
data alphaiw(:,4, 38) / &
& 116.4505849_wp, 114.1968844_wp, 108.2963555_wp, 92.1203844_wp, &
& 76.7209726_wp, 64.3033634_wp, 54.5977463_wp, 46.9458079_wp, &
& 40.8022639_wp, 35.7806868_wp, 31.6136150_wp, 28.1128216_wp, &
& 22.5997820_wp, 18.5077567_wp, 15.3957648_wp, 12.9813495_wp, &
& 11.0757782_wp, 7.7757352_wp, 5.7345816_wp, 3.4676638_wp, &
& 2.3132969_wp, 1.0842547_wp, 0.6262415_wp /
data refn(38) / 4 /
! REF Y - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 39) / -0.00000000016424_wp /
data refh (1, 39) / 0.00000000000000_wp /
data gffq (1, 39) / 0.00000000000000_wp /
data gffh (1, 39) / 0.00000000000000_wp /
data dftq (1, 39) / -0.00000000016424_wp /
data dfth (1, 39) / 0.00000000000000_wp /
data pbcq (1, 39) / -0.00000000016424_wp /
data pbch (1, 39) / 0.00000000000000_wp /
data clsq (1, 39) / 0.00000000000000_wp /
data clsh (1, 39) / 0.00000000000000_wp /
data hcount (1, 39) / 0.00000000000000_wp /
data ascale (1, 39) / 1.00000000000000_wp /
data refcovcn(1, 39) / 0.00000000000000_wp /
data refcn (1, 39) / 0.00000000000000_wp /
data refsys (1, 39) / 1 /
data alphaiw(:,1, 39) / &
& 156.5816530_wp, 133.4096570_wp, 94.6810390_wp, 47.1887390_wp, &
& 27.8621270_wp, 18.8348770_wp, 13.9092620_wp, 10.8900460_wp, &
& 8.8730220_wp, 7.4352670_wp, 6.3585500_wp, 5.5211390_wp, &
& 4.3014730_wp, 3.4566600_wp, 2.8399260_wp, 2.3734080_wp, &
& 2.0112610_wp, 1.3945770_wp, 1.0190510_wp, 0.6075350_wp, &
& 0.4008910_wp, 0.1843540_wp, 0.1051420_wp /
! REF YH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 39) / 0.24428414680300_wp /
data refh (2, 39) / -0.12214207340151_wp /
data gffq (2, 39) / 0.57618546114280_wp /
data gffh (2, 39) / -0.28809273057140_wp /
data dftq (2, 39) / 0.52663000000000_wp /
data dfth (2, 39) / -0.26330900000000_wp /
data pbcq (2, 39) / 0.24428414680300_wp /
data pbch (2, 39) / -0.12214207340151_wp /
data clsq (2, 39) / 0.57618546114280_wp /
data clsh (2, 39) / -0.28809273057140_wp /
data hcount (2, 39) / 2.00000000000000_wp /
data ascale (2, 39) / 1.00000000000000_wp /
data refcovcn(2, 39) / 1.61670701598223_wp /
data refcn (2, 39) / 1.91534612543569_wp /
data refsys (2, 39) / 1 /
data alphaiw(:,2, 39) / &
& 126.8052320_wp, 88.7747170_wp, 64.1464690_wp, 40.2998810_wp, &
& 28.2499780_wp, 21.0643660_wp, 16.4186290_wp, 13.2334170_wp, &
& 10.9441490_wp, 9.2339520_wp, 7.9151340_wp, 6.8713270_wp, &
& 5.3330370_wp, 4.2636390_wp, 3.4855460_wp, 2.9002550_wp, &
& 2.4485960_wp, 1.6861640_wp, 1.2266060_wp, 0.7275190_wp, &
& 0.4787640_wp, 0.2194880_wp, 0.1250190_wp /
! REF YH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 39) / 0.57366289721017_wp /
data refh (3, 39) / -0.19122096573671_wp /
data gffq (3, 39) / 0.72312847632101_wp /
data gffh (3, 39) / -0.24104282544034_wp /
data dftq (3, 39) / 0.82670000000000_wp /
data dfth (3, 39) / -0.27556766666667_wp /
data pbcq (3, 39) / 0.57366289721017_wp /
data pbch (3, 39) / -0.19122096573671_wp /
data clsq (3, 39) / 0.72312847632101_wp /
data clsh (3, 39) / -0.24104282544034_wp /
data hcount (3, 39) / 3.00000000000000_wp /
data ascale (3, 39) / 1.00000000000000_wp /
data refcovcn(3, 39) / 2.43996146811665_wp /
data refcn (3, 39) / 2.89028721234797_wp /
data refsys (3, 39) / 1 /
data alphaiw(:,3, 39) / &
& 51.9455750_wp, 50.4162010_wp, 46.5373240_wp, 36.6790590_wp, &
& 28.1986330_wp, 21.9785510_wp, 17.5295770_wp, 14.3039920_wp, &
& 11.9077650_wp, 10.0810740_wp, 8.6547010_wp, 7.5170970_wp, &
& 5.8310100_wp, 4.6555680_wp, 3.8004240_wp, 3.1579800_wp, &
& 2.6630160_wp, 1.8296590_wp, 1.3289880_wp, 0.7868860_wp, &
& 0.5173750_wp, 0.2369610_wp, 0.1349160_wp /
data refn(39) / 3 /
! REF Zr - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 40) / -0.00000000032846_wp /
data refh (1, 40) / 0.00000000000000_wp /
data gffq (1, 40) / 0.00000000000000_wp /
data gffh (1, 40) / 0.00000000000000_wp /
data dftq (1, 40) / -0.00000000032846_wp /
data dfth (1, 40) / 0.00000000000000_wp /
data pbcq (1, 40) / -0.00000000032846_wp /
data pbch (1, 40) / 0.00000000000000_wp /
data clsq (1, 40) / 0.00000000000000_wp /
data clsh (1, 40) / 0.00000000000000_wp /
data hcount (1, 40) / 0.00000000000000_wp /
data ascale (1, 40) / 1.00000000000000_wp /
data refcovcn(1, 40) / 0.00000000000000_wp /
data refcn (1, 40) / 0.00000000000000_wp /
data refsys (1, 40) / 1 /
data alphaiw(:,1, 40) / &
& 129.1649250_wp, 112.9115260_wp, 84.2744150_wp, 45.2123570_wp, &
& 27.6899320_wp, 19.0856380_wp, 14.2390790_wp, 11.2024000_wp, &
& 9.1447760_wp, 7.6666660_wp, 6.5563690_wp, 5.6928180_wp, &
& 4.4382110_wp, 3.5726300_wp, 2.9422010_wp, 2.4654780_wp, &
& 2.0949780_wp, 1.4616900_wp, 1.0734540_wp, 0.6444360_wp, &
& 0.4270850_wp, 0.1974770_wp, 0.1128890_wp /
! REF ZrH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 40) / 0.23434724050528_wp /
data refh (2, 40) / -0.11717362032611_wp /
data gffq (2, 40) / 0.34661262612707_wp /
data gffh (2, 40) / -0.17330631306353_wp /
data dftq (2, 40) / 0.47058500000000_wp /
data dfth (2, 40) / -0.23528100000000_wp /
data pbcq (2, 40) / 0.23434724050528_wp /
data pbch (2, 40) / -0.11717362032611_wp /
data clsq (2, 40) / 0.34661262612707_wp /
data clsh (2, 40) / -0.17330631306353_wp /
data hcount (2, 40) / 2.00000000000000_wp /
data ascale (2, 40) / 1.00000000000000_wp /
data refcovcn(2, 40) / 1.66263906536582_wp /
data refcn (2, 40) / 1.93553367207877_wp /
data refsys (2, 40) / 1 /
data alphaiw(:,2, 40) / &
& 59.5329360_wp, 59.0731440_wp, 49.3004260_wp, 35.6901590_wp, &
& 26.5930640_wp, 20.4777520_wp, 16.2621680_wp, 13.2552040_wp, &
& 11.0380980_wp, 9.3543390_wp, 8.0423850_wp, 6.9973630_wp, &
& 5.4495930_wp, 4.3698600_wp, 3.5825450_wp, 2.9890610_wp, &
& 2.5300090_wp, 1.7518420_wp, 1.2798730_wp, 0.7635970_wp, &
& 0.5043350_wp, 0.2322730_wp, 0.1325630_wp /
! REF ZrH4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 40) / 1.20638669472971_wp /
data refh (3, 40) / -0.30159667368243_wp /
data gffq (3, 40) / 0.56547785565182_wp /
data gffh (3, 40) / -0.14136946391296_wp /
data dftq (3, 40) / 0.76303600000000_wp /
data dfth (3, 40) / -0.19075400000000_wp /
data pbcq (3, 40) / 1.20638669472971_wp /
data pbch (3, 40) / -0.30159667368243_wp /
data clsq (3, 40) / 0.56547785565182_wp /
data clsh (3, 40) / -0.14136946391296_wp /
data hcount (3, 40) / 4.00000000000000_wp /
data ascale (3, 40) / 1.00000000000000_wp /
data refcovcn(3, 40) / 3.35991209283567_wp /
data refcn (3, 40) / 3.91060485457820_wp /
data refsys (3, 40) / 1 /
data alphaiw(:,3, 40) / &
& 53.7033680_wp, 52.3694770_wp, 48.8771380_wp, 39.4788990_wp, &
& 30.9424830_wp, 24.4286920_wp, 19.6266710_wp, 16.0687640_wp, &
& 13.3881100_wp, 11.3281120_wp, 9.7137520_wp, 8.4253900_wp, &
& 6.5198670_wp, 5.1977820_wp, 4.2403830_wp, 3.5235900_wp, &
& 2.9725540_wp, 2.0460840_wp, 1.4892320_wp, 0.8847240_wp, &
& 0.5830200_wp, 0.2678100_wp, 0.1526730_wp /
! REF ZrF4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 40) / 1.59446204953052_wp /
data refh (4, 40) / -0.39900000000000_wp /
data gffq (4, 40) / 1.59446204953052_wp /
data gffh (4, 40) / -0.39900000000000_wp /
data dftq (4, 40) / 1.59446204953052_wp /
data dfth (4, 40) / -0.39900000000000_wp /
data pbcq (4, 40) / 0.94300000000000_wp /
data pbch (4, 40) / -0.23575000000000_wp /
data clsq (4, 40) / 0.94300000000000_wp /
data clsh (4, 40) / -0.23575000000000_wp /
data hcount (4, 40) / 4.00000000000000_wp /
data ascale (4, 40) / 1.00000000000000_wp /
data refcovcn(4, 40) / 6.09300000000000_wp /
data refcn (4, 40) / 9.43900000000000_wp /
data refsys (4, 40) / 11 /
data alphaiw(:,4, 40) / &
& 33.6465243_wp, 33.4038388_wp, 32.7056564_wp, 30.2880677_wp, &
& 27.2060499_wp, 24.0984692_wp, 21.2765610_wp, 18.8296599_wp, &
& 16.7447048_wp, 14.9743210_wp, 13.4663529_wp, 12.1742122_wp, &
& 10.0904600_wp, 8.4969686_wp, 7.2491379_wp, 6.2526961_wp, &
& 5.4441107_wp, 3.9836870_wp, 3.0306974_wp, 1.9121250_wp, &
& 1.3109813_wp, 0.6388831_wp, 0.3766424_wp /
data refn(40) / 4 /
! REF Nb - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 41) / -0.00000000016530_wp /
data refh (1, 41) / 0.00000000000000_wp /
data gffq (1, 41) / 0.00000000000000_wp /
data gffh (1, 41) / 0.00000000000000_wp /
data dftq (1, 41) / -0.00000000016530_wp /
data dfth (1, 41) / 0.00000000000000_wp /
data pbcq (1, 41) / -0.00000000016530_wp /
data pbch (1, 41) / 0.00000000000000_wp /
data clsq (1, 41) / 0.00000000000000_wp /
data clsh (1, 41) / 0.00000000000000_wp /
data hcount (1, 41) / 0.00000000000000_wp /
data ascale (1, 41) / 1.00000000000000_wp /
data refcovcn(1, 41) / 0.00000000000000_wp /
data refcn (1, 41) / 0.00000000000000_wp /
data refsys (1, 41) / 1 /
data alphaiw(:,1, 41) / &
& 112.5868220_wp, 98.9946210_wp, 75.5219100_wp, 42.5430350_wp, &
& 26.8101620_wp, 18.7904950_wp, 14.1713590_wp, 11.2319370_wp, &
& 9.2165940_wp, 7.7556700_wp, 6.6508620_wp, 5.7874800_wp, &
& 4.5279270_wp, 3.6564020_wp, 3.0206270_wp, 2.5390860_wp, &
& 2.1640690_wp, 1.5202440_wp, 1.1226240_wp, 0.6790940_wp, &
& 0.4521310_wp, 0.2102320_wp, 0.1204560_wp /
! REF NbH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 41) / 0.07227863443605_wp /
data refh (2, 41) / -0.03613931721803_wp /
data gffq (2, 41) / 0.42830519499403_wp /
data gffh (2, 41) / -0.21415259749701_wp /
data dftq (2, 41) / 0.46105300000000_wp /
data dfth (2, 41) / -0.23052400000000_wp /
data pbcq (2, 41) / 0.07227863443605_wp /
data pbch (2, 41) / -0.03613931721803_wp /
data clsq (2, 41) / 0.42830519499403_wp /
data clsh (2, 41) / -0.21415259749701_wp /
data hcount (2, 41) / 2.00000000000000_wp /
data ascale (2, 41) / 1.00000000000000_wp /
data refcovcn(2, 41) / 1.75136276843804_wp /
data refcn (2, 41) / 1.95448265742483_wp /
data refsys (2, 41) / 1 /
data alphaiw(:,2, 41) / &
& 55.9986780_wp, 60.8749560_wp, 50.6953400_wp, 35.6643390_wp, &
& 26.4531740_wp, 20.4359360_wp, 16.2988900_wp, 13.3351670_wp, &
& 11.1377280_wp, 9.4604950_wp, 8.1484630_wp, 7.1004180_wp, &
& 5.5443520_wp, 4.4569430_wp, 3.6632070_wp, 3.0641820_wp, &
& 2.6001160_wp, 1.8107380_wp, 1.3291220_wp, 0.7982160_wp, &
& 0.5293550_wp, 0.2450550_wp, 0.1401740_wp /
! REF NbH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 41) / 0.29185185542919_wp /
data refh (3, 41) / -0.09728395180973_wp /
data gffq (3, 41) / 0.56050948600940_wp /
data gffh (3, 41) / -0.18683649533647_wp /
data dftq (3, 41) / 0.68809500000000_wp /
data dfth (3, 41) / -0.22936433333333_wp /
data pbcq (3, 41) / 0.29185185542919_wp /
data pbch (3, 41) / -0.09728395180973_wp /
data clsq (3, 41) / 0.56050948600940_wp /
data clsh (3, 41) / -0.18683649533647_wp /
data hcount (3, 41) / 3.00000000000000_wp /
data ascale (3, 41) / 1.00000000000000_wp /
data refcovcn(3, 41) / 2.61865286219105_wp /
data refcn (3, 41) / 2.92252286735086_wp /
data refsys (3, 41) / 1 /
data alphaiw(:,3, 41) / &
& 51.3329100_wp, 49.0284950_wp, 44.6433950_wp, 35.3677840_wp, &
& 27.6830280_wp, 21.9413960_wp, 17.7220800_wp, 14.5880150_wp, &
& 12.2159700_wp, 10.3838810_wp, 8.9410440_wp, 7.7843510_wp, &
& 6.0637690_wp, 4.8619510_wp, 3.9865780_wp, 3.3277110_wp, &
& 2.8186730_wp, 1.9562960_wp, 1.4327150_wp, 0.8581570_wp, &
& 0.5683180_wp, 0.2626950_wp, 0.1501750_wp /
! REF NbF5 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 41) / 1.63800000000000_wp /
data refh (4, 41) / -0.32760000000000_wp /
data gffq (4, 41) / 1.63800000000000_wp /
data gffh (4, 41) / -0.32760000000000_wp /
data dftq (4, 41) / 1.63800000000000_wp /
data dfth (4, 41) / -0.32760000000000_wp /
data pbcq (4, 41) / 1.24600000000000_wp /
data pbch (4, 41) / -0.24920000000000_wp /
data clsq (4, 41) / 1.24600000000000_wp /
data clsh (4, 41) / -0.24920000000000_wp /
data hcount (4, 41) / 5.00000000000000_wp /
data ascale (4, 41) / 1.00000000000000_wp /
data refcovcn(4, 41) / 4.02900000000000_wp /
data refcn (4, 41) / 6.19100000000000_wp /
data refsys (4, 41) / 11 /
data alphaiw(:,4, 41) / &
& 39.2699458_wp, 38.9559085_wp, 38.0619736_wp, 35.0545164_wp, &
& 31.3566941_wp, 27.7212247_wp, 24.4670081_wp, 21.6658391_wp, &
& 19.2870190_wp, 17.2695766_wp, 15.5513454_wp, 14.0783331_wp, &
& 11.7000325_wp, 9.8776054_wp, 8.4472870_wp, 7.3024041_wp, &
& 6.3710983_wp, 4.6822974_wp, 3.5742534_wp, 2.2657569_wp, &
& 1.5581961_wp, 0.7625966_wp, 0.4505494_wp /
data refn(41) / 4 /
! REF Mo - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 42) / 0.00000000000215_wp /
data refh (1, 42) / 0.00000000000000_wp /
data gffq (1, 42) / 0.00000000000000_wp /
data gffh (1, 42) / 0.00000000000000_wp /
data dftq (1, 42) / 0.00000000000215_wp /
data dfth (1, 42) / 0.00000000000000_wp /
data pbcq (1, 42) / 0.00000000000215_wp /
data pbch (1, 42) / 0.00000000000000_wp /
data clsq (1, 42) / 0.00000000000000_wp /
data clsh (1, 42) / 0.00000000000000_wp /
data hcount (1, 42) / 0.00000000000000_wp /
data ascale (1, 42) / 1.00000000000000_wp /
data refcovcn(1, 42) / 0.00000000000000_wp /
data refcn (1, 42) / 0.00000000000000_wp /
data refsys (1, 42) / 1 /
data alphaiw(:,1, 42) / &
& 80.1166370_wp, 72.0033490_wp, 56.3464510_wp, 33.3622730_wp, &
& 22.2521730_wp, 16.3666450_wp, 12.8045350_wp, 10.4296810_wp, &
& 8.7352680_wp, 7.4656260_wp, 6.4789340_wp, 5.6904860_wp, &
& 4.5115160_wp, 3.6758650_wp, 3.0566210_wp, 2.5826100_wp, &
& 2.2106410_wp, 1.5662560_wp, 1.1641470_wp, 0.7106370_wp, &
& 0.4758290_wp, 0.2228080_wp, 0.1280230_wp /
! REF MoH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 42) / 0.41711608738091_wp /
data refh (2, 42) / -0.20855804369167_wp /
data gffq (2, 42) / 0.46738200215089_wp /
data gffh (2, 42) / -0.23369100107545_wp /
data dftq (2, 42) / 0.35668400000000_wp /
data dfth (2, 42) / -0.17833900000000_wp /
data pbcq (2, 42) / 0.41711608738091_wp /
data pbch (2, 42) / -0.20855804369167_wp /
data clsq (2, 42) / 0.46738200215089_wp /
data clsh (2, 42) / -0.23369100107545_wp /
data hcount (2, 42) / 2.00000000000000_wp /
data ascale (2, 42) / 1.00000000000000_wp /
data refcovcn(2, 42) / 1.89510707051732_wp /
data refcn (2, 42) / 1.94202903408340_wp /
data refsys (2, 42) / 1 /
data alphaiw(:,2, 42) / &
& 57.3696220_wp, 53.6619600_wp, 46.4519190_wp, 33.7721100_wp, &
& 25.3796990_wp, 19.8008640_wp, 15.9255030_wp, 13.1223040_wp, &
& 11.0249000_wp, 9.4107880_wp, 8.1389620_wp, 7.1166930_wp, &
& 5.5878340_wp, 4.5113880_wp, 3.7214650_wp, 3.1229210_wp, &
& 2.6576930_wp, 1.8625700_wp, 1.3742440_wp, 0.8315500_wp, &
& 0.5541640_wp, 0.2581730_wp, 0.1480840_wp /
! REF MoH12 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 42) / -4.49557215843238_wp /
data refh (3, 42) / 0.37463101320270_wp /
data gffq (3, 42) / 0.47338670395900_wp /
data gffh (3, 42) / -0.03944889199658_wp /
data dftq (3, 42) / 0.25593400000000_wp /
data dfth (3, 42) / -0.02134716666667_wp /
data pbcq (3, 42) / -4.49557215843238_wp /
data pbch (3, 42) / 0.37463101320270_wp /
data clsq (3, 42) / 0.47338670395900_wp /
data clsh (3, 42) / -0.03944889199658_wp /
data hcount (3, 42) / 12.00000000000000_wp /
data ascale (3, 42) / 1.00000000000000_wp /
data refcovcn(3, 42) / 10.77850977361032_wp /
data refcn (3, 42) / 11.05564046968760_wp /
data refsys (3, 42) / 1 /
data alphaiw(:,3, 42) / &
& 67.2624950_wp, 66.0303950_wp, 62.7575620_wp, 53.5269770_wp, &
& 44.3751560_wp, 36.6776440_wp, 30.4829790_wp, 25.5527440_wp, &
& 21.6261800_wp, 18.4804960_wp, 15.9392930_wp, 13.8670690_wp, &
& 10.7428020_wp, 8.5472490_wp, 6.9523710_wp, 5.7601520_wp, &
& 4.8468120_wp, 3.3211190_wp, 2.4114970_wp, 1.4303190_wp, &
& 0.9425060_wp, 0.4333420_wp, 0.2472210_wp /
! REF MoH6 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 42) / -0.06533097052885_wp /
data refh (4, 42) / 0.01088849508812_wp /
data gffq (4, 42) / 0.59427677788562_wp /
data gffh (4, 42) / -0.09904612964760_wp /
data dftq (4, 42) / 0.47071000000000_wp /
data dfth (4, 42) / -0.07844700000000_wp /
data pbcq (4, 42) / -0.06533097052885_wp /
data pbch (4, 42) / 0.01088849508812_wp /
data clsq (4, 42) / 0.59427677788562_wp /
data clsh (4, 42) / -0.09904612964760_wp /
data hcount (4, 42) / 6.00000000000000_wp /
data ascale (4, 42) / 1.00000000000000_wp /
data refcovcn(4, 42) / 5.59646145748005_wp /
data refcn (4, 42) / 5.73689802594352_wp /
data refsys (4, 42) / 1 /
data alphaiw(:,4, 42) / &
& 57.1122440_wp, 54.5507140_wp, 49.8607540_wp, 40.5094150_wp, &
& 32.7396620_wp, 26.6350470_wp, 21.9139730_wp, 18.2593580_wp, &
& 15.4061580_wp, 13.1523240_wp, 11.3489830_wp, 9.8875440_wp, &
& 7.6939570_wp, 6.1540760_wp, 5.0326460_wp, 4.1907210_wp, &
& 3.5424610_wp, 2.4502640_wp, 1.7914150_wp, 1.0718980_wp, &
& 0.7099120_wp, 0.3284040_wp, 0.1878520_wp /
data refn(42) / 4 /
! REF Tc - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 43) / 0.00000000016529_wp /
data refh (1, 43) / 0.00000000000000_wp /
data gffq (1, 43) / 0.00000000000000_wp /
data gffh (1, 43) / 0.00000000000000_wp /
data dftq (1, 43) / 0.00000000016529_wp /
data dfth (1, 43) / 0.00000000000000_wp /
data pbcq (1, 43) / 0.00000000016529_wp /
data pbch (1, 43) / 0.00000000000000_wp /
data clsq (1, 43) / 0.00000000000000_wp /
data clsh (1, 43) / 0.00000000000000_wp /
data hcount (1, 43) / 0.00000000000000_wp /
data ascale (1, 43) / 1.00000000000000_wp /
data refcovcn(1, 43) / 0.00000000000000_wp /
data refcn (1, 43) / 0.00000000000000_wp /
data refsys (1, 43) / 1 /
data alphaiw(:,1, 43) / &
& 92.9387160_wp, 81.9452450_wp, 63.3698580_wp, 37.3296730_wp, &
& 24.3564850_wp, 17.4779390_wp, 13.4110250_wp, 10.7755340_wp, &
& 8.9429790_wp, 7.5986600_wp, 6.5712030_wp, 5.7605070_wp, &
& 4.5631700_wp, 3.7227110_wp, 3.1024520_wp, 2.6281370_wp, &
& 2.2556760_wp, 1.6085080_wp, 1.2022890_wp, 0.7402780_wp, &
& 0.4986150_wp, 0.2353880_wp, 0.1357590_wp /
! REF TcH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 43) / 0.64591594055856_wp /
data refh (2, 43) / -0.32295797028009_wp /
data gffq (2, 43) / 0.24709379453256_wp /
data gffh (2, 43) / -0.12354689726628_wp /
data dftq (2, 43) / 0.60722100000000_wp /
data dfth (2, 43) / -0.30360700000000_wp /
data pbcq (2, 43) / 0.64591594055856_wp /
data pbch (2, 43) / -0.32295797028009_wp /
data clsq (2, 43) / 0.24709379453256_wp /
data clsh (2, 43) / -0.12354689726628_wp /
data hcount (2, 43) / 2.00000000000000_wp /
data ascale (2, 43) / 1.00000000000000_wp /
data refcovcn(2, 43) / 1.56460355314490_wp /
data refcn (2, 43) / 1.66816908014472_wp /
data refsys (2, 43) / 1 /
data alphaiw(:,2, 43) / &
& 75.8730320_wp, 65.9104100_wp, 51.9040420_wp, 34.7083320_wp, &
& 25.4784390_wp, 19.7433960_wp, 15.8501840_wp, 13.0603640_wp, &
& 10.9826550_wp, 9.3875760_wp, 8.1320480_wp, 7.1229420_wp, &
& 5.6121410_wp, 4.5457470_wp, 3.7609510_wp, 3.1646320_wp, &
& 2.6999290_wp, 1.9026050_wp, 1.4102760_wp, 0.8594030_wp, &
& 0.5755190_wp, 0.2699220_wp, 0.1552940_wp /
! REF TcH11 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 43) / -0.23793642312608_wp /
data refh (3, 43) / 0.02163058392055_wp /
data gffq (3, 43) / 0.18198173917164_wp /
data gffh (3, 43) / -0.01654379447015_wp /
data dftq (3, 43) / 0.48260600000000_wp /
data dfth (3, 43) / -0.04394809090909_wp /
data pbcq (3, 43) / -0.23793642312608_wp /
data pbch (3, 43) / 0.02163058392055_wp /
data clsq (3, 43) / 0.18198173917164_wp /
data clsh (3, 43) / -0.01654379447015_wp /
data hcount (3, 43) / 11.00000000000000_wp /
data ascale (3, 43) / 1.00000000000000_wp /
data refcovcn(3, 43) / 8.94426823783675_wp /
data refcn (3, 43) / 9.54020187746512_wp /
data refsys (3, 43) / 1 /
data alphaiw(:,3, 43) / &
& 58.5751980_wp, 57.7047570_wp, 55.3283600_wp, 48.1684600_wp, &
& 40.5340630_wp, 33.8274610_wp, 28.3028200_wp, 23.8467240_wp, &
& 20.2669430_wp, 17.3809560_wp, 15.0378770_wp, 13.1192270_wp, &
& 10.2118960_wp, 8.1570940_wp, 6.6575030_wp, 5.5321270_wp, &
& 4.6670770_wp, 3.2152040_wp, 2.3443700_wp, 1.3987970_wp, &
& 0.9253150_wp, 0.4276690_wp, 0.2445830_wp /
data refn(43) / 3 /
! REF Ru - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 44) / 0.00000000032850_wp /
data refh (1, 44) / 0.00000000000000_wp /
data gffq (1, 44) / 0.00000000000000_wp /
data gffh (1, 44) / 0.00000000000000_wp /
data dftq (1, 44) / 0.00000000032850_wp /
data dfth (1, 44) / 0.00000000000000_wp /
data pbcq (1, 44) / 0.00000000032850_wp /
data pbch (1, 44) / 0.00000000000000_wp /
data clsq (1, 44) / 0.00000000000000_wp /
data clsh (1, 44) / 0.00000000000000_wp /
data hcount (1, 44) / 0.00000000000000_wp /
data ascale (1, 44) / 1.00000000000000_wp /
data refcovcn(1, 44) / 0.00000000000000_wp /
data refcn (1, 44) / 0.00000000000000_wp /
data refsys (1, 44) / 1 /
data alphaiw(:,1, 44) / &
& 64.2873650_wp, 58.2984130_wp, 46.6241190_wp, 28.9081460_wp, &
& 19.8860070_wp, 14.9414970_wp, 11.8820490_wp, 9.8067370_wp, &
& 8.3050910_wp, 7.1669030_wp, 6.2736860_wp, 5.5536060_wp, &
& 4.4638560_wp, 3.6792510_wp, 3.0894480_wp, 2.6322260_wp, &
& 2.2694820_wp, 1.6317090_wp, 1.2266730_wp, 0.7613680_wp, &
& 0.5156110_wp, 0.2453210_wp, 0.1420300_wp /
! REF RuH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 44) / 0.33761249164822_wp /
data refh (2, 44) / -0.16880624582411_wp /
data gffq (2, 44) / 0.32415456703039_wp /
data gffh (2, 44) / -0.16207728351520_wp /
data dftq (2, 44) / 0.37327600000000_wp /
data dfth (2, 44) / -0.18663700000000_wp /
data pbcq (2, 44) / 0.33761249164822_wp /
data pbch (2, 44) / -0.16880624582411_wp /
data clsq (2, 44) / 0.32415456703039_wp /
data clsh (2, 44) / -0.16207728351520_wp /
data hcount (2, 44) / 2.00000000000000_wp /
data ascale (2, 44) / 1.00000000000000_wp /
data refcovcn(2, 44) / 1.82293327778554_wp /
data refcn (2, 44) / 1.85843916069775_wp /
data refsys (2, 44) / 1 /
data alphaiw(:,2, 44) / &
& 45.7015170_wp, 44.1640550_wp, 40.0828620_wp, 30.9952860_wp, &
& 23.8618350_wp, 18.8259100_wp, 15.2521470_wp, 12.6439180_wp, &
& 10.6826650_wp, 9.1676420_wp, 7.9697090_wp, 7.0033880_wp, &
& 5.5501890_wp, 4.5187320_wp, 3.7556240_wp, 3.1728410_wp, &
& 2.7165260_wp, 1.9281300_wp, 1.4370560_wp, 0.8825770_wp, &
& 0.5941370_wp, 0.2807420_wp, 0.1621180_wp /
! REF RuH10 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 44) / -0.70670795998300_wp /
data refh (3, 44) / 0.07067079599830_wp /
data gffq (3, 44) / 0.36375674498582_wp /
data gffh (3, 44) / -0.03637567449858_wp /
data dftq (3, 44) / 0.22154000000000_wp /
data dfth (3, 44) / -0.02217640000000_wp /
data pbcq (3, 44) / -0.70670795998300_wp /
data pbch (3, 44) / 0.07067079599830_wp /
data clsq (3, 44) / 0.36375674498582_wp /
data clsh (3, 44) / -0.03637567449858_wp /
data hcount (3, 44) / 10.00000000000000_wp /
data ascale (3, 44) / 1.00000000000000_wp /
data refcovcn(3, 44) / 8.72336154530085_wp /
data refcn (3, 44) / 8.88947582399905_wp /
data refsys (3, 44) / 1 /
data alphaiw(:,3, 44) / &
& 53.6449610_wp, 52.9021650_wp, 50.8530030_wp, 44.5291150_wp, &
& 37.6245730_wp, 31.4884170_wp, 26.4097500_wp, 22.3040630_wp, &
& 19.0002040_wp, 16.3321480_wp, 14.1620830_wp, 12.3817320_wp, &
& 9.6763600_wp, 7.7570110_wp, 6.3512380_wp, 5.2927530_wp, &
& 4.4766230_wp, 3.1006590_wp, 2.2704610_wp, 1.3630470_wp, &
& 0.9053930_wp, 0.4209110_wp, 0.2414160_wp /
data refn(44) / 3 /
! REF Rh - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 45) / 0.00000000016424_wp /
data refh (1, 45) / 0.00000000000000_wp /
data gffq (1, 45) / 0.00000000000000_wp /
data gffh (1, 45) / 0.00000000000000_wp /
data dftq (1, 45) / 0.00000000016424_wp /
data dfth (1, 45) / 0.00000000000000_wp /
data pbcq (1, 45) / 0.00000000016424_wp /
data pbch (1, 45) / 0.00000000000000_wp /
data clsq (1, 45) / 0.00000000000000_wp /
data clsh (1, 45) / 0.00000000000000_wp /
data hcount (1, 45) / 0.00000000000000_wp /
data ascale (1, 45) / 1.00000000000000_wp /
data refcovcn(1, 45) / 0.00000000000000_wp /
data refcn (1, 45) / 0.00000000000000_wp /
data refsys (1, 45) / 1 /
data alphaiw(:,1, 45) / &
& 68.1542450_wp, 62.9960050_wp, 52.0807400_wp, 32.9144330_wp, &
& 22.1117060_wp, 16.1257920_wp, 12.5115460_wp, 10.1406800_wp, &
& 8.4788070_wp, 7.2525150_wp, 6.3108490_wp, 5.5647590_wp, &
& 4.4563970_wp, 3.6717400_wp, 3.0873140_wp, 2.6361620_wp, &
& 2.2786150_wp, 1.6486870_wp, 1.2462650_wp, 0.7799260_wp, &
& 0.5311430_wp, 0.2547010_wp, 0.1480120_wp /
! REF RhH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 45) / 0.13533447502854_wp /
data refh (2, 45) / -0.06766723747867_wp /
data gffq (2, 45) / 0.14509956942986_wp /
data gffh (2, 45) / -0.07254978471493_wp /
data dftq (2, 45) / 0.28998000000000_wp /
data dfth (2, 45) / -0.14499100000000_wp /
data pbcq (2, 45) / 0.13533447502854_wp /
data pbch (2, 45) / -0.06766723747867_wp /
data clsq (2, 45) / 0.14509956942986_wp /
data clsh (2, 45) / -0.07254978471493_wp /
data hcount (2, 45) / 2.00000000000000_wp /
data ascale (2, 45) / 1.00000000000000_wp /
data refcovcn(2, 45) / 1.84241892648043_wp /
data refcn (2, 45) / 1.90032831305941_wp /
data refsys (2, 45) / 1 /
data alphaiw(:,2, 45) / &
& 43.3417530_wp, 41.4841810_wp, 37.5198890_wp, 29.0651560_wp, &
& 22.5178410_wp, 17.8848750_wp, 14.5797210_wp, 12.1532300_wp, &
& 10.3179030_wp, 8.8923860_wp, 7.7596700_wp, 6.8419520_wp, &
& 5.4542350_wp, 4.4628030_wp, 3.7251260_wp, 3.1588890_wp, &
& 2.7134840_wp, 1.9388590_wp, 1.4524300_wp, 0.8985520_wp, &
& 0.6078940_wp, 0.2892870_wp, 0.1676290_wp /
! REF RhH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 45) / -0.06808099954071_wp /
data refh (3, 45) / 0.02269366651357_wp /
data gffq (3, 45) / 0.18388211183689_wp /
data gffh (3, 45) / -0.06129403727896_wp /
data dftq (3, 45) / 0.21996900000000_wp /
data dfth (3, 45) / -0.07331066666667_wp /
data pbcq (3, 45) / -0.06808099954071_wp /
data pbch (3, 45) / 0.02269366651357_wp /
data clsq (3, 45) / 0.18388211183689_wp /
data clsh (3, 45) / -0.06129403727896_wp /
data hcount (3, 45) / 3.00000000000000_wp /
data ascale (3, 45) / 1.00000000000000_wp /
data refcovcn(3, 45) / 2.88090049147235_wp /
data refcn (3, 45) / 2.96957012334100_wp /
data refsys (3, 45) / 1 /
data alphaiw(:,3, 45) / &
& 37.7442490_wp, 36.6313080_wp, 34.0210470_wp, 27.9047180_wp, &
& 22.6219420_wp, 18.5364410_wp, 15.4279090_wp, 13.0366770_wp, &
& 11.1653460_wp, 9.6752930_wp, 8.4697300_wp, 7.4802140_wp, &
& 5.9656450_wp, 4.8738020_wp, 4.0587720_wp, 3.4331020_wp, &
& 2.9417130_wp, 2.0906290_wp, 1.5597110_wp, 0.9597480_wp, &
& 0.6472660_wp, 0.3069220_wp, 0.1776240_wp /
! REF RhH5 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 45) / -0.00946705792926_wp /
data refh (4, 45) / 0.00189341152691_wp /
data gffq (4, 45) / 0.24549798804335_wp /
data gffh (4, 45) / -0.04909959760867_wp /
data dftq (4, 45) / 0.17843100000000_wp /
data dfth (4, 45) / -0.03568620000000_wp /
data pbcq (4, 45) / -0.00946705792926_wp /
data pbch (4, 45) / 0.00189341152691_wp /
data clsq (4, 45) / 0.24549798804335_wp /
data clsh (4, 45) / -0.04909959760867_wp /
data hcount (4, 45) / 5.00000000000000_wp /
data ascale (4, 45) / 1.00000000000000_wp /
data refcovcn(4, 45) / 4.69798180984017_wp /
data refcn (4, 45) / 4.84416063571149_wp /
data refsys (4, 45) / 1 /
data alphaiw(:,4, 45) / &
& 50.7362600_wp, 49.4436100_wp, 46.2123700_wp, 37.7336800_wp, &
& 30.0265600_wp, 24.1196600_wp, 19.7259100_wp, 16.4228700_wp, &
& 13.8898500_wp, 11.9075300_wp, 10.3272700_wp, 9.0468100_wp, &
& 7.1181400_wp, 5.7535600_wp, 4.7506500_wp, 3.9906900_wp, &
& 3.4003100_wp, 2.3920200_wp, 1.7726100_wp, 1.0819100_wp, &
& 0.7262700_wp, 0.3424400_wp, 0.1977000_wp /
data refn(45) / 4 /
! REF Pd - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 46) / 0.00000000000000_wp /
data refh (1, 46) / 0.00000000000000_wp /
data gffq (1, 46) / 0.00000000000000_wp /
data gffh (1, 46) / 0.00000000000000_wp /
data dftq (1, 46) / 0.00000000000000_wp /
data dfth (1, 46) / 0.00000000000000_wp /
data pbcq (1, 46) / 0.00000000000000_wp /
data pbch (1, 46) / 0.00000000000000_wp /
data clsq (1, 46) / 0.00000000000000_wp /
data clsh (1, 46) / 0.00000000000000_wp /
data hcount (1, 46) / 0.00000000000000_wp /
data ascale (1, 46) / 1.00000000000000_wp /
data refcovcn(1, 46) / 0.00000000000000_wp /
data refcn (1, 46) / 0.00000000000000_wp /
data refsys (1, 46) / 1 /
data alphaiw(:,1, 46) / &
& 60.8864630_wp, 56.8478940_wp, 47.8540600_wp, 30.9841900_wp, &
& 21.0472500_wp, 15.4485530_wp, 12.0425860_wp, 9.7984690_wp, &
& 8.2204320_wp, 7.0529890_wp, 6.1545310_wp, 5.4412960_wp, &
& 4.3791150_wp, 3.6247120_wp, 3.0609020_wp, 2.6240310_wp, &
& 2.2764150_wp, 1.6598380_wp, 1.2622490_wp, 0.7967230_wp, &
& 0.5457380_wp, 0.2639640_wp, 0.1541040_wp /
! REF PdH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 46) / 0.13729986752066_wp /
data refh (2, 46) / -0.06864993376014_wp /
data gffq (2, 46) / 0.22956514930613_wp /
data gffh (2, 46) / -0.11478257465306_wp /
data dftq (2, 46) / 0.32441800000000_wp /
data dfth (2, 46) / -0.16221000000000_wp /
data pbcq (2, 46) / 0.13729986752066_wp /
data pbch (2, 46) / -0.06864993376014_wp /
data clsq (2, 46) / 0.22956514930613_wp /
data clsh (2, 46) / -0.11478257465306_wp /
data hcount (2, 46) / 2.00000000000000_wp /
data ascale (2, 46) / 1.00000000000000_wp /
data refcovcn(2, 46) / 1.82751376419277_wp /
data refcn (2, 46) / 1.86304976118092_wp /
data refsys (2, 46) / 1 /
data alphaiw(:,2, 46) / &
& 40.2110290_wp, 38.5072500_wp, 34.8932240_wp, 27.2138020_wp, &
& 21.2371640_wp, 16.9805470_wp, 13.9260910_wp, 11.6707350_wp, &
& 9.9551980_wp, 8.6156180_wp, 7.5460330_wp, 6.6757400_wp, &
& 5.3527110_wp, 4.4016410_wp, 3.6902360_wp, 3.1415360_wp, &
& 2.7079930_wp, 1.9489220_wp, 1.4681030_wp, 0.9154940_wp, &
& 0.6227080_wp, 0.2987130_wp, 0.1738250_wp /
! REF PdH8 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 46) / -1.40283988548386_wp /
data refh (3, 46) / 0.17535498568548_wp /
data gffq (3, 46) / 0.55444971429388_wp /
data gffh (3, 46) / -0.06930621428674_wp /
data dftq (3, 46) / 0.42916900000000_wp /
data dfth (3, 46) / -0.05363000000000_wp /
data pbcq (3, 46) / -1.40283988548386_wp /
data pbch (3, 46) / 0.17535498568548_wp /
data clsq (3, 46) / 0.55444971429388_wp /
data clsh (3, 46) / -0.06930621428674_wp /
data hcount (3, 46) / 8.00000000000000_wp /
data ascale (3, 46) / 1.00000000000000_wp /
data refcovcn(3, 46) / 5.62156480548985_wp /
data refcn (3, 46) / 5.70949602385229_wp /
data refsys (3, 46) / 1 /
data alphaiw(:,3, 46) / &
& 52.9449710_wp, 51.8101820_wp, 48.8650090_wp, 40.9527250_wp, &
& 33.5198470_wp, 27.5254650_wp, 22.8486080_wp, 19.2026620_wp, &
& 16.3345560_wp, 14.0509400_wp, 12.2094700_wp, 10.7060500_wp, &
& 8.4272930_wp, 6.8085780_wp, 5.6176560_wp, 4.7154850_wp, &
& 4.0151810_wp, 2.8211020_wp, 2.0891520_wp, 1.2745700_wp, &
& 0.8557330_wp, 0.4038840_wp, 0.2333960_wp /
data refn(46) / 3 /
! REF Ag - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 47) / 0.00000000000088_wp /
data refh (1, 47) / 0.00000000000000_wp /
data gffq (1, 47) / 0.00000000000000_wp /
data gffh (1, 47) / 0.00000000000000_wp /
data dftq (1, 47) / 0.00000000000088_wp /
data dfth (1, 47) / 0.00000000000000_wp /
data pbcq (1, 47) / 0.00000000000088_wp /
data pbch (1, 47) / 0.00000000000000_wp /
data clsq (1, 47) / 0.00000000000000_wp /
data clsh (1, 47) / 0.00000000000000_wp /
data hcount (1, 47) / 0.00000000000000_wp /
data ascale (1, 47) / 1.00000000000000_wp /
data refcovcn(1, 47) / 0.00000000000000_wp /
data refcn (1, 47) / 0.00000000000000_wp /
data refsys (1, 47) / 1 /
data alphaiw(:,1, 47) / &
& 54.1989880_wp, 49.0489660_wp, 38.9829400_wp, 23.9821320_wp, &
& 16.6050290_wp, 12.6373760_wp, 10.1995360_wp, 8.5437370_wp, &
& 7.3366070_wp, 6.4116550_wp, 5.6772120_wp, 5.0784690_wp, &
& 4.1592690_wp, 3.4860530_wp, 2.9720170_wp, 2.5673730_wp, &
& 2.2414010_wp, 1.6540770_wp, 1.2685970_wp, 0.8095530_wp, &
& 0.5581500_wp, 0.2721620_wp, 0.1594640_wp /
! REF AgH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 47) / 0.07743633228111_wp /
data refh (2, 47) / -0.07743633228111_wp /
data gffq (2, 47) / 0.10670361771604_wp /
data gffh (2, 47) / -0.10670361771604_wp /
data dftq (2, 47) / 0.13411500000000_wp /
data dfth (2, 47) / -0.13411300000000_wp /
data pbcq (2, 47) / 0.07743633228111_wp /
data pbch (2, 47) / -0.07743633228111_wp /
data clsq (2, 47) / 0.10670361771604_wp /
data clsh (2, 47) / -0.10670361771604_wp /
data hcount (2, 47) / 1.00000000000000_wp /
data ascale (2, 47) / 1.00000000000000_wp /
data refcovcn(2, 47) / 0.91215552676727_wp /
data refcn (2, 47) / 0.96788403280472_wp /
data refsys (2, 47) / 1 /
data alphaiw(:,2, 47) / &
& 36.6000980_wp, 35.1208740_wp, 31.6461790_wp, 24.0228290_wp, &
& 18.3425350_wp, 14.4988310_wp, 11.8463360_wp, 9.9378870_wp, &
& 8.5081750_wp, 7.4002440_wp, 6.5179040_wp, 5.7995690_wp, &
& 4.7030760_wp, 3.9082530_wp, 3.3079420_wp, 2.8402610_wp, &
& 2.4670520_wp, 1.8034180_wp, 1.3743830_wp, 0.8703890_wp, &
& 0.5975480_wp, 0.2899250_wp, 0.1695250_wp /
data refn(47) / 2 /
! REF Cd - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 48) / 0.0_wp /
data refh (1, 48) / 0.00000000000000_wp /
data gffq (1, 48) / 0.00000000000000_wp /
data gffh (1, 48) / 0.00000000000000_wp /
data dftq (1, 48) / 0.0_wp /
data dfth (1, 48) / 0.00000000000000_wp /
data pbcq (1, 48) / 0.0_wp /
data pbch (1, 48) / 0.00000000000000_wp /
data clsq (1, 48) / 0.00000000000000_wp /
data clsh (1, 48) / 0.00000000000000_wp /
data hcount (1, 48) / 0.00000000000000_wp /
data ascale (1, 48) / 1.00000000000000_wp /
data refcovcn(1, 48) / 0.00000000000000_wp /
data refcn (1, 48) / 0.00000000000000_wp /
data refsys (1, 48) / 1 /
data alphaiw(:,1, 48) / &
& 51.2430300_wp, 48.3502990_wp, 41.5746300_wp, 27.7890000_wp, &
& 19.1321820_wp, 14.1382230_wp, 11.0784560_wp, 9.0587800_wp, &
& 7.6378310_wp, 6.5859030_wp, 5.7753370_wp, 5.1307120_wp, &
& 4.1675160_wp, 3.4798590_wp, 2.9630260_wp, 2.5600920_wp, &
& 2.2373290_wp, 1.6578750_wp, 1.2772960_wp, 0.8215180_wp, &
& 0.5698100_wp, 0.2806600_wp, 0.1654590_wp /
! REF CdH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 48) / 0.33653584549362_wp /
data refh (2, 48) / -0.16826792274681_wp /
data gffq (2, 48) / 0.21898540545170_wp /
data gffh (2, 48) / -0.10949270272585_wp /
data dftq (2, 48) / 0.30941500000000_wp /
data dfth (2, 48) / -0.15470600000000_wp /
data pbcq (2, 48) / 0.33653584549362_wp /
data pbch (2, 48) / -0.16826792274681_wp /
data clsq (2, 48) / 0.21898540545170_wp /
data clsh (2, 48) / -0.10949270272585_wp /
data hcount (2, 48) / 2.00000000000000_wp /
data ascale (2, 48) / 1.00000000000000_wp /
data refcovcn(2, 48) / 1.77531555102521_wp /
data refcn (2, 48) / 1.95389378202525_wp /
data refsys (2, 48) / 1 /
data alphaiw(:,2, 48) / &
& 35.9140330_wp, 35.1566180_wp, 33.1068480_wp, 27.1969530_wp, &
& 21.5145310_wp, 17.1191360_wp, 13.8992970_wp, 11.5355770_wp, &
& 9.7648350_wp, 8.4054680_wp, 7.3368940_wp, 6.4788070_wp, &
& 5.1930790_wp, 4.2809850_wp, 3.6036050_wp, 3.0826690_wp, &
& 2.6710330_wp, 1.9469920_wp, 1.4831570_wp, 0.9406720_wp, &
& 0.6472420_wp, 0.3156970_wp, 0.1853400_wp /
data refn(48) / 2 /
! REF In - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 49) / -0.00000000000000_wp /
data refh (1, 49) / 0.00000000000000_wp /
data gffq (1, 49) / 0.00000000000000_wp /
data gffh (1, 49) / 0.00000000000000_wp /
data dftq (1, 49) / -0.00000000000000_wp /
data dfth (1, 49) / 0.00000000000000_wp /
data pbcq (1, 49) / -0.00000000000000_wp /
data pbch (1, 49) / 0.00000000000000_wp /
data clsq (1, 49) / 0.00000000000000_wp /
data clsh (1, 49) / 0.00000000000000_wp /
data hcount (1, 49) / 0.00000000000000_wp /
data ascale (1, 49) / 1.00000000000000_wp /
data refcovcn(1, 49) / 0.00000000000000_wp /
data refcn (1, 49) / 0.00000000000000_wp /
data refsys (1, 49) / 1 /
data alphaiw(:,1, 49) / &
& 72.9150960_wp, 66.0753600_wp, 53.3578280_wp, 33.5644110_wp, &
& 22.4687340_wp, 16.1472430_wp, 12.3105260_wp, 9.8245790_wp, &
& 8.1173940_wp, 6.8860560_wp, 5.9610840_wp, 5.2425400_wp, &
& 4.1995990_wp, 3.4778910_wp, 2.9472540_wp, 2.5398030_wp, &
& 2.2168390_wp, 1.6430710_wp, 1.2690370_wp, 0.8214960_wp, &
& 0.5729700_wp, 0.2844110_wp, 0.1681820_wp /
! REF InH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 49) / 0.34258129843160_wp /
data refh (2, 49) / -0.34258129843160_wp /
data gffq (2, 49) / 0.06391398485994_wp /
data gffh (2, 49) / -0.06391398485994_wp /
data dftq (2, 49) / 0.03759200000000_wp /
data dfth (2, 49) / -0.03759100000000_wp /
data pbcq (2, 49) / 0.34258129843160_wp /
data pbch (2, 49) / -0.34258129843160_wp /
data clsq (2, 49) / 0.06391398485994_wp /
data clsh (2, 49) / -0.06391398485994_wp /
data hcount (2, 49) / 1.00000000000000_wp /
data ascale (2, 49) / 1.00000000000000_wp /
data refcovcn(2, 49) / 0.88719377220275_wp /
data refcn (2, 49) / 0.96330831417334_wp /
data refsys (2, 49) / 1 /
data alphaiw(:,2, 49) / &
& 68.5448320_wp, 63.3499550_wp, 52.9158640_wp, 35.1620400_wp, &
& 24.4638730_wp, 18.0151280_wp, 13.9204010_wp, 11.1780650_wp, &
& 9.2513440_wp, 7.8406570_wp, 6.7710770_wp, 5.9359020_wp, &
& 4.7209280_wp, 3.8821540_wp, 3.2690480_wp, 2.8016450_wp, &
& 2.4338840_wp, 1.7877840_wp, 1.3722790_wp, 0.8814810_wp, &
& 0.6120400_wp, 0.3021170_wp, 0.1782190_wp /
! REF InH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 49) / 0.26652372419494_wp /
data refh (3, 49) / -0.13326186209747_wp /
data gffq (3, 49) / 0.10806425732282_wp /
data gffh (3, 49) / -0.05403212866141_wp /
data dftq (3, 49) / 0.24762500000000_wp /
data dfth (3, 49) / -0.12381400000000_wp /
data pbcq (3, 49) / 0.26652372419494_wp /
data pbch (3, 49) / -0.13326186209747_wp /
data clsq (3, 49) / 0.10806425732282_wp /
data clsh (3, 49) / -0.05403212866141_wp /
data hcount (3, 49) / 2.00000000000000_wp /
data ascale (3, 49) / 1.00000000000000_wp /
data refcovcn(3, 49) / 1.78495637384615_wp /
data refcn (3, 49) / 1.93784277625627_wp /
data refsys (3, 49) / 1 /
data alphaiw(:,3, 49) / &
& 50.7622140_wp, 48.0385490_wp, 43.0567370_wp, 32.8278830_wp, &
& 24.7634540_wp, 19.0651230_wp, 15.0969960_wp, 12.2851460_wp, &
& 10.2375520_wp, 8.7031490_wp, 7.5220080_wp, 6.5906520_wp, &
& 5.2252970_wp, 4.2790840_wp, 3.5880180_wp, 3.0628180_wp, &
& 2.6512680_wp, 1.9334490_wp, 1.4763250_wp, 0.9418740_wp, &
& 0.6513060_wp, 0.3198580_wp, 0.1882630_wp /
! REF InH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 49) / 0.20507380029383_wp /
data refh (4, 49) / -0.06835793343128_wp /
data gffq (4, 49) / 0.14171698994803_wp /
data gffh (4, 49) / -0.04723899664934_wp /
data dftq (4, 49) / 0.37119300000000_wp /
data dfth (4, 49) / -0.12373100000000_wp /
data pbcq (4, 49) / 0.20507380029383_wp /
data pbch (4, 49) / -0.06835793343128_wp /
data clsq (4, 49) / 0.14171698994803_wp /
data clsh (4, 49) / -0.04723899664934_wp /
data hcount (4, 49) / 3.00000000000000_wp /
data ascale (4, 49) / 1.00000000000000_wp /
data refcovcn(4, 49) / 2.70420959057537_wp /
data refcn (4, 49) / 2.93528671852710_wp /
data refsys (4, 49) / 1 /
data alphaiw(:,4, 49) / &
& 41.1871070_wp, 40.4130170_wp, 38.2892500_wp, 31.9210850_wp, &
& 25.4481130_wp, 20.2225040_wp, 16.3010840_wp, 13.3954500_wp, &
& 11.2196820_wp, 9.5597380_wp, 8.2670060_wp, 7.2399920_wp, &
& 5.7255130_wp, 4.6728770_wp, 3.9045910_wp, 3.3221260_wp, &
& 2.8671790_wp, 2.0782430_wp, 1.5798240_wp, 1.0020180_wp, &
& 0.6904450_wp, 0.3375630_wp, 0.1982910_wp /
data refn(49) / 4 /
! REF Sn - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 50) / -0.00000000000001_wp /
data refh (1, 50) / 0.00000000000000_wp /
data gffq (1, 50) / 0.00000000000000_wp /
data gffh (1, 50) / 0.00000000000000_wp /
data dftq (1, 50) / -0.00000000000001_wp /
data dfth (1, 50) / 0.00000000000000_wp /
data pbcq (1, 50) / -0.00000000000001_wp /
data pbch (1, 50) / 0.00000000000000_wp /
data clsq (1, 50) / 0.00000000000000_wp /
data clsh (1, 50) / 0.00000000000000_wp /
data hcount (1, 50) / 0.00000000000000_wp /
data ascale (1, 50) / 1.00000000000000_wp /
data refcovcn(1, 50) / 0.00000000000000_wp /
data refcn (1, 50) / 0.00000000000000_wp /
data refsys (1, 50) / 1 /
data alphaiw(:,1, 50) / &
& 57.3040270_wp, 54.4476260_wp, 47.7957070_wp, 33.6841460_wp, &
& 23.7376670_wp, 17.3960520_wp, 13.3024310_wp, 10.5620400_wp, &
& 8.6525610_wp, 7.2708170_wp, 6.2366020_wp, 5.4393040_wp, &
& 4.2988630_wp, 3.5266460_wp, 2.9701000_wp, 2.5497820_wp, &
& 2.2208960_wp, 1.6446800_wp, 1.2728700_wp, 0.8288590_wp, &
& 0.5812410_wp, 0.2912600_wp, 0.1732200_wp /
! REF SnH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 50) / 0.11709105905770_wp /
data refh (2, 50) / -0.11709105905770_wp /
data gffq (2, 50) / 0.03599066704066_wp /
data gffh (2, 50) / -0.03599066704066_wp /
data dftq (2, 50) / 0.12898600000000_wp /
data dfth (2, 50) / -0.12898400000000_wp /
data pbcq (2, 50) / 0.11709105905770_wp /
data pbch (2, 50) / -0.11709105905770_wp /
data clsq (2, 50) / 0.03599066704066_wp /
data clsh (2, 50) / -0.03599066704066_wp /
data hcount (2, 50) / 1.00000000000000_wp /
data ascale (2, 50) / 1.00000000000000_wp /
data refcovcn(2, 50) / 0.90042437628478_wp /
data refcn (2, 50) / 0.95144638754491_wp /
data refsys (2, 50) / 1 /
data alphaiw(:,2, 50) / &
& 53.7298320_wp, 51.4329790_wp, 46.0716700_wp, 34.2024090_wp, &
& 25.1302790_wp, 18.9316540_wp, 14.7246270_wp, 11.8066270_wp, &
& 9.7217990_wp, 8.1863100_wp, 7.0228060_wp, 6.1183050_wp, &
& 4.8155710_wp, 3.9303330_wp, 3.2929680_wp, 2.8132790_wp, &
& 2.4396930_wp, 1.7907330_wp, 1.3769680_wp, 0.8891430_wp, &
& 0.6203820_wp, 0.3088870_wp, 0.1831710_wp /
! REF SnH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 50) / 0.20024277847179_wp /
data refh (3, 50) / -0.10012138923590_wp /
data gffq (3, 50) / 0.04368851386536_wp /
data gffh (3, 50) / -0.02184425693268_wp /
data dftq (3, 50) / 0.08512300000000_wp /
data dfth (3, 50) / -0.04256400000000_wp /
data pbcq (3, 50) / 0.20024277847179_wp /
data pbch (3, 50) / -0.10012138923590_wp /
data clsq (3, 50) / 0.04368851386536_wp /
data clsh (3, 50) / -0.02184425693268_wp /
data hcount (3, 50) / 2.00000000000000_wp /
data ascale (3, 50) / 1.00000000000000_wp /
data refcovcn(3, 50) / 1.84687551160093_wp /
data refcn (3, 50) / 1.95049412276785_wp /
data refsys (3, 50) / 1 /
data alphaiw(:,3, 50) / &
& 53.3912050_wp, 51.4589370_wp, 46.7536920_wp, 35.7231120_wp, &
& 26.8682930_wp, 20.5832790_wp, 16.1845180_wp, 13.0610500_wp, &
& 10.7905050_wp, 9.0973330_wp, 7.8031170_wp, 6.7910320_wp, &
& 5.3263460_wp, 4.3288220_wp, 3.6113910_wp, 3.0730140_wp, &
& 2.6553170_wp, 1.9347190_wp, 1.4797110_wp, 0.9488200_wp, &
& 0.6592330_wp, 0.3264620_wp, 0.1931150_wp /
! REF SnH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 50) / 0.07115823557122_wp /
data refh (4, 50) / -0.02371941185707_wp /
data gffq (4, 50) / 0.03463534758499_wp /
data gffh (4, 50) / -0.01154511586166_wp /
data dftq (4, 50) / 0.19655800000000_wp /
data dfth (4, 50) / -0.06551966666667_wp /
data pbcq (4, 50) / 0.07115823557122_wp /
data pbch (4, 50) / -0.02371941185707_wp /
data clsq (4, 50) / 0.03463534758499_wp /
data clsh (4, 50) / -0.01154511586166_wp /
data hcount (4, 50) / 3.00000000000000_wp /
data ascale (4, 50) / 1.00000000000000_wp /
data refcovcn(4, 50) / 2.77047146659601_wp /
data refcn (4, 50) / 2.92590527066264_wp /
data refsys (4, 50) / 1 /
data alphaiw(:,4, 50) / &
& 48.1721000_wp, 46.9654470_wp, 43.8406630_wp, 35.4940690_wp, &
& 27.7965480_wp, 21.8303470_wp, 17.4239690_wp, 14.1866160_wp, &
& 11.7798410_wp, 9.9575870_wp, 8.5500830_wp, 7.4414740_wp, &
& 5.8269560_wp, 4.7227970_wp, 3.9280720_wp, 3.3323920_wp, &
& 2.8712630_wp, 2.0794750_wp, 1.5831290_wp, 1.0088640_wp, &
& 0.6982730_wp, 0.3440760_wp, 0.2030650_wp /
! REF SnH4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (5, 50) / 0.02040246592599_wp /
data refh (5, 50) / -0.00510061648150_wp /
data gffq (5, 50) / 0.01418221277464_wp /
data gffh (5, 50) / -0.00354555319366_wp /
data dftq (5, 50) / 0.26602400000000_wp /
data dfth (5, 50) / -0.06650775000000_wp /
data pbcq (5, 50) / 0.02040246592599_wp /
data pbch (5, 50) / -0.00510061648150_wp /
data clsq (5, 50) / 0.01418221277464_wp /
data clsh (5, 50) / -0.00354555319366_wp /
data hcount (5, 50) / 4.00000000000000_wp /
data ascale (5, 50) / 1.00000000000000_wp /
data refcovcn(5, 50) / 3.70466711294240_wp /
data refcn (5, 50) / 3.91232527967725_wp /
data refsys (5, 50) / 1 /
data alphaiw(:,5, 50) / &
& 44.3809730_wp, 43.6657010_wp, 41.6751380_wp, 35.4583760_wp, &
& 28.7575380_wp, 23.0706960_wp, 18.6492860_wp, 15.2988620_wp, &
& 12.7583260_wp, 10.8093490_wp, 9.2904440_wp, 8.0867420_wp, &
& 6.3242650_wp, 5.1145440_wp, 4.2431700_wp, 3.5905930_wp, &
& 3.0863030_wp, 2.2237000_wp, 1.6862000_wp, 1.0687380_wp, &
& 0.7372220_wp, 0.3616620_wp, 0.2130010_wp /
data refn(50) / 5 /
! REF Sb - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 51) / -0.00000000000000_wp /
data refh (1, 51) / 0.00000000000000_wp /
data gffq (1, 51) / 0.00000000000000_wp /
data gffh (1, 51) / 0.00000000000000_wp /
data dftq (1, 51) / -0.00000000000000_wp /
data dfth (1, 51) / 0.00000000000000_wp /
data pbcq (1, 51) / -0.00000000000000_wp /
data pbch (1, 51) / 0.00000000000000_wp /
data clsq (1, 51) / 0.00000000000000_wp /
data clsh (1, 51) / 0.00000000000000_wp /
data hcount (1, 51) / 0.00000000000000_wp /
data ascale (1, 51) / 1.00000000000000_wp /
data refcovcn(1, 51) / 0.00000000000000_wp /
data refcn (1, 51) / 0.00000000000000_wp /
data refsys (1, 51) / 1 /
data alphaiw(:,1, 51) / &
& 44.8358450_wp, 43.5130560_wp, 40.0926450_wp, 31.1774780_wp, &
& 23.4511520_wp, 17.8471750_wp, 13.9239600_wp, 11.1566290_wp, &
& 9.1627500_wp, 7.6898730_wp, 6.5744680_wp, 5.7098380_wp, &
& 4.4725460_wp, 3.6404470_wp, 3.0472370_wp, 2.6044190_wp, &
& 2.2616350_wp, 1.6693460_wp, 1.2920700_wp, 0.8442200_wp, &
& 0.5942970_wp, 0.2999110_wp, 0.1791200_wp /
! REF SbH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 51) / 0.11698834506861_wp /
data refh (2, 51) / -0.11698834506861_wp /
data gffq (2, 51) / -0.01439446368141_wp /
data gffh (2, 51) / 0.01439446368141_wp /
data dftq (2, 51) / 0.05481200000000_wp /
data dfth (2, 51) / -0.05481000000000_wp /
data pbcq (2, 51) / 0.11698834506861_wp /
data pbch (2, 51) / -0.11698834506861_wp /
data clsq (2, 51) / -0.01439446368141_wp /
data clsh (2, 51) / 0.01439446368141_wp /
data hcount (2, 51) / 1.00000000000000_wp /
data ascale (2, 51) / 1.00000000000000_wp /
data refcovcn(2, 51) / 0.93580947053485_wp /
data refcn (2, 51) / 0.97493375701249_wp /
data refsys (2, 51) / 1 /
data alphaiw(:,2, 51) / &
& 45.9916410_wp, 44.7450290_wp, 41.5208600_wp, 32.9820310_wp, &
& 25.3160810_wp, 19.5590470_wp, 15.4150740_wp, 12.4297230_wp, &
& 10.2444980_wp, 8.6111660_wp, 7.3634730_wp, 6.3902070_wp, &
& 4.9895020_wp, 4.0440290_wp, 3.3698710_wp, 2.8676280_wp, &
& 2.4801170_wp, 1.8150710_wp, 1.3958700_wp, 0.9043070_wp, &
& 0.6333220_wp, 0.3175040_wp, 0.1890550_wp /
! REF SbH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 51) / 0.18480068371662_wp /
data refh (3, 51) / -0.09240034185831_wp /
data gffq (3, 51) / -0.01543201581300_wp /
data gffh (3, 51) / 0.00771600790650_wp /
data dftq (3, 51) / 0.09655800000000_wp /
data dfth (3, 51) / -0.04828200000000_wp /
data pbcq (3, 51) / 0.18480068371662_wp /
data pbch (3, 51) / -0.09240034185831_wp /
data clsq (3, 51) / -0.01543201581300_wp /
data clsh (3, 51) / 0.00771600790650_wp /
data hcount (3, 51) / 2.00000000000000_wp /
data ascale (3, 51) / 1.00000000000000_wp /
data refcovcn(3, 51) / 1.87397783659382_wp /
data refcn (3, 51) / 1.95228160320121_wp /
data refsys (3, 51) / 1 /
data alphaiw(:,3, 51) / &
& 46.6496880_wp, 45.5197710_wp, 42.5927060_wp, 34.6039430_wp, &
& 27.0775160_wp, 21.2059700_wp, 16.8636310_wp, 13.6742900_wp, &
& 11.3067400_wp, 9.5188430_wp, 8.1427680_wp, 7.0635060_wp, &
& 5.5024820_wp, 4.4452150_wp, 3.6909720_wp, 3.1298080_wp, &
& 2.6978790_wp, 1.9604550_wp, 1.4994800_wp, 0.9643160_wp, &
& 0.6723070_wp, 0.3350840_wp, 0.1989840_wp /
! REF SbH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 51) / 0.23470973824995_wp /
data refh (4, 51) / -0.07823657941665_wp /
data gffq (4, 51) / -0.00985357197761_wp /
data gffh (4, 51) / 0.00328452399254_wp /
data dftq (4, 51) / 0.12434700000000_wp /
data dfth (4, 51) / -0.04144666666667_wp /
data pbcq (4, 51) / 0.23470973824995_wp /
data pbch (4, 51) / -0.07823657941665_wp /
data clsq (4, 51) / -0.00985357197761_wp /
data clsh (4, 51) / 0.00328452399254_wp /
data hcount (4, 51) / 3.00000000000000_wp /
data ascale (4, 51) / 1.00000000000000_wp /
data refcovcn(4, 51) / 2.81393944504634_wp /
data refcn (4, 51) / 2.93146774469466_wp /
data refsys (4, 51) / 1 /
data alphaiw(:,4, 51) / &
& 46.7552750_wp, 45.8323020_wp, 43.3346180_wp, 36.0394380_wp, &
& 28.7272660_wp, 22.7845200_wp, 18.2688140_wp, 14.8903330_wp, &
& 12.3496050_wp, 10.4129670_wp, 8.9123290_wp, 7.7296420_wp, &
& 6.0113260_wp, 4.8438310_wp, 4.0103740_wp, 3.3908020_wp, &
& 2.9147740_wp, 2.1053690_wp, 1.6027900_wp, 1.0241710_wp, &
& 0.7112070_wp, 0.3526470_wp, 0.2089120_wp /
data refn(51) / 4 /
! REF Te - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 52) / 0.00000000000001_wp /
data refh (1, 52) / 0.00000000000000_wp /
data gffq (1, 52) / 0.00000000000000_wp /
data gffh (1, 52) / 0.00000000000000_wp /
data dftq (1, 52) / 0.00000000000001_wp /
data dfth (1, 52) / 0.00000000000000_wp /
data pbcq (1, 52) / 0.00000000000001_wp /
data pbch (1, 52) / 0.00000000000000_wp /
data clsq (1, 52) / 0.00000000000000_wp /
data clsh (1, 52) / 0.00000000000000_wp /
data hcount (1, 52) / 0.00000000000000_wp /
data ascale (1, 52) / 1.00000000000000_wp /
data refcovcn(1, 52) / 0.00000000000000_wp /
data refcn (1, 52) / 0.00000000000000_wp /
data refsys (1, 52) / 1 /
data alphaiw(:,1, 52) / &
& 38.7558670_wp, 37.8891050_wp, 35.5765770_wp, 29.0541470_wp, &
& 22.7985480_wp, 17.8842260_wp, 14.2354170_wp, 11.5477160_wp, &
& 9.5486370_wp, 8.0375580_wp, 6.8745420_wp, 5.9631130_wp, &
& 4.6477480_wp, 3.7603970_wp, 3.1299390_wp, 2.6624490_wp, &
& 2.3034360_wp, 1.6910060_wp, 1.3067460_wp, 0.8554460_wp, &
& 0.6045040_wp, 0.3075880_wp, 0.1846460_wp /
! REF TeH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 52) / -0.00520338227711_wp /
data refh (2, 52) / 0.00520338227710_wp /
data gffq (2, 52) / -0.09115200126999_wp /
data gffh (2, 52) / 0.09115200126999_wp /
data dftq (2, 52) / -0.01560200000000_wp /
data dfth (2, 52) / 0.01560400000000_wp /
data pbcq (2, 52) / -0.00520338227711_wp /
data pbch (2, 52) / 0.00520338227710_wp /
data clsq (2, 52) / -0.09115200126999_wp /
data clsh (2, 52) / 0.09115200126999_wp /
data hcount (2, 52) / 1.00000000000000_wp /
data ascale (2, 52) / 1.00000000000000_wp /
data refcovcn(2, 52) / 0.94900106848812_wp /
data refcn (2, 52) / 0.98114838477859_wp /
data refsys (2, 52) / 1 /
data alphaiw(:,2, 52) / &
& 41.2800660_wp, 40.4036870_wp, 38.0648030_wp, 31.4147320_wp, &
& 24.9165410_wp, 19.7095440_wp, 15.7789570_wp, 12.8463230_wp, &
& 10.6436490_wp, 8.9662810_wp, 7.6680330_wp, 6.6463830_wp, &
& 5.1661270_wp, 4.1647840_wp, 3.4530650_wp, 2.9259730_wp, &
& 2.5221220_wp, 1.8367870_wp, 1.4105310_wp, 0.9154730_wp, &
& 0.6434690_wp, 0.3251430_wp, 0.1945560_wp /
! REF TeH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 52) / -0.00151877920060_wp /
data refh (3, 52) / 0.00075938960030_wp /
data gffq (3, 52) / -0.09678003345023_wp /
data gffh (3, 52) / 0.04839001672511_wp /
data dftq (3, 52) / -0.03860500000000_wp /
data dfth (3, 52) / 0.01930100000000_wp /
data pbcq (3, 52) / -0.00151877920060_wp /
data pbch (3, 52) / 0.00075938960030_wp /
data clsq (3, 52) / -0.09678003345023_wp /
data clsh (3, 52) / 0.04839001672511_wp /
data hcount (3, 52) / 2.00000000000000_wp /
data ascale (3, 52) / 1.00000000000000_wp /
data refcovcn(3, 52) / 1.89954395376061_wp /
data refcn (3, 52) / 1.96387521222899_wp /
data refsys (3, 52) / 1 /
data alphaiw(:,3, 52) / &
& 43.3767540_wp, 42.5220370_wp, 40.2233370_wp, 33.5679210_wp, &
& 26.9051580_wp, 21.4529440_wp, 17.2695530_wp, 14.1098870_wp, &
& 11.7148730_wp, 9.8784450_wp, 8.4497140_wp, 7.3210330_wp, &
& 5.6796140_wp, 4.5661840_wp, 3.7742540_wp, 3.1881760_wp, &
& 2.7398680_wp, 1.9821020_wp, 1.5140480_wp, 0.9753820_wp, &
& 0.6823680_wp, 0.3426700_wp, 0.2044490_wp /
data refn(52) / 3 /
! REF I - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 53) / 0.00000000000001_wp /
data refh (1, 53) / 0.00000000000000_wp /
data gffq (1, 53) / 0.00000000000000_wp /
data gffh (1, 53) / 0.00000000000000_wp /
data dftq (1, 53) / 0.00000000000001_wp /
data dfth (1, 53) / 0.00000000000000_wp /
data pbcq (1, 53) / 0.00000000000001_wp /
data pbch (1, 53) / 0.00000000000000_wp /
data clsq (1, 53) / 0.00000000000000_wp /
data clsh (1, 53) / 0.00000000000000_wp /
data hcount (1, 53) / 0.00000000000000_wp /
data ascale (1, 53) / 1.00000000000000_wp /
data refcovcn(1, 53) / 0.00000000000000_wp /
data refcn (1, 53) / 0.00000000000000_wp /
data refsys (1, 53) / 1 /
data alphaiw(:,1, 53) / &
& 32.5364480_wp, 32.0135530_wp, 30.5701660_wp, 26.1371840_wp, &
& 21.4024280_wp, 17.3505230_wp, 14.1439250_wp, 11.6664030_wp, &
& 9.7557500_wp, 8.2712240_wp, 7.1046010_wp, 6.1759850_wp, &
& 4.8153900_wp, 3.8867100_wp, 3.2241390_wp, 2.7330620_wp, &
& 2.3571070_wp, 1.7206990_wp, 1.3260350_wp, 0.8674990_wp, &
& 0.6140980_wp, 0.3141040_wp, 0.1892860_wp /
! REF IH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 53) / -0.18609272966361_wp /
data refh (2, 53) / 0.18609272966361_wp /
data gffq (2, 53) / -0.13740767685282_wp /
data gffh (2, 53) / 0.13740767685282_wp /
data dftq (2, 53) / -0.07928000000000_wp /
data dfth (2, 53) / 0.07928200000000_wp /
data pbcq (2, 53) / -0.18609272966361_wp /
data pbch (2, 53) / 0.18609272966361_wp /
data clsq (2, 53) / -0.13740767685282_wp /
data clsh (2, 53) / 0.13740767685282_wp /
data hcount (2, 53) / 1.00000000000000_wp /
data ascale (2, 53) / 1.00000000000000_wp /
data refcovcn(2, 53) / 0.91239969640123_wp /
data refcn (2, 53) / 0.99682171802295_wp /
data refsys (2, 53) / 1 /
data alphaiw(:,2, 53) / &
& 35.5939760_wp, 35.0391840_wp, 33.5058920_wp, 28.7725970_wp, &
& 23.6664920_wp, 19.2510560_wp, 15.7268020_wp, 12.9864250_wp, &
& 10.8631350_wp, 9.2076450_wp, 7.9032670_wp, 6.8629800_wp, &
& 5.3359890_wp, 4.2925500_wp, 3.5482480_wp, 2.9972560_wp, &
& 2.5762480_wp, 1.8666410_wp, 1.4298640_wp, 0.9275130_wp, &
& 0.6530570_wp, 0.3316710_wp, 0.1992050_wp /
data refn(53) / 2 /
! REF 1e - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 54) / -0.00000000000000_wp /
data refh (1, 54) / 0.00000000000000_wp /
data gffq (1, 54) / 0.00000000000000_wp /
data gffh (1, 54) / 0.00000000000000_wp /
data dftq (1, 54) / -0.00000000000000_wp /
data dfth (1, 54) / 0.00000000000000_wp /
data pbcq (1, 54) / -0.00000000000000_wp /
data pbch (1, 54) / 0.00000000000000_wp /
data clsq (1, 54) / 0.00000000000000_wp /
data clsh (1, 54) / 0.00000000000000_wp /
data hcount (1, 54) / 0.00000000000000_wp /
data ascale (1, 54) / 1.00000000000000_wp /
data refcovcn(1, 54) / 0.00000000000000_wp /
data refcn (1, 54) / 0.00000000000000_wp /
data refsys (1, 54) / 1 /
data alphaiw(:,1, 54) / &
& 27.3277050_wp, 27.0110760_wp, 26.1157860_wp, 23.1734500_wp, &
& 19.7140260_wp, 16.4952160_wp, 13.7782840_wp, 11.5745650_wp, &
& 9.8106950_wp, 8.3998660_wp, 7.2654260_wp, 6.3458240_wp, &
& 4.9718440_wp, 4.0169210_wp, 3.3286250_wp, 2.8159860_wp, &
& 2.4230090_wp, 1.7595470_wp, 1.3513270_wp, 0.8819580_wp, &
& 0.6246870_wp, 0.3206970_wp, 0.1938380_wp /
data refn(54) / 1 /
! REF Cs - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 55) / 0.0_wp /
data refh (1, 55) / 0.00000000000000_wp /
data gffq (1, 55) / 0.00000000000000_wp /
data gffh (1, 55) / 0.00000000000000_wp /
data dftq (1, 55) / 0.0_wp /
data dfth (1, 55) / 0.00000000000000_wp /
data pbcq (1, 55) / 0.0_wp /
data pbch (1, 55) / 0.00000000000000_wp /
data clsq (1, 55) / 0.00000000000000_wp /
data clsh (1, 55) / 0.00000000000000_wp /
data hcount (1, 55) / 0.00000000000000_wp /
data ascale (1, 55) / 1.00000000000000_wp /
data refcovcn(1, 55) / 0.00000000000000_wp /
data refcn (1, 55) / 0.00000000000000_wp /
data refsys (1, 55) / 1 /
data alphaiw(:,1, 55) / &
& 537.0897540_wp, 251.2031120_wp, 104.6716850_wp, 40.1908390_wp, &
& 24.9381150_wp, 18.3967650_wp, 14.5779860_wp, 11.9651660_wp, &
& 10.0264350_wp, 8.5234170_wp, 7.3270290_wp, 6.3574360_wp, &
& 4.8990430_wp, 3.8742590_wp, 3.1301840_wp, 2.5751510_wp, &
& 2.1515440_wp, 1.4501300_wp, 1.0384390_wp, 0.6036570_wp, &
& 0.3927120_wp, 0.1776630_wp, 0.1006850_wp /
! REF CsH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 55) / 0.44073166763575_wp /
data refh (2, 55) / -0.44073166763575_wp /
data gffq (2, 55) / 0.46524059775602_wp /
data gffh (2, 55) / -0.46524059775602_wp /
data dftq (2, 55) / 0.44691000000000_wp /
data dfth (2, 55) / -0.44691400000000_wp /
data pbcq (2, 55) / 0.44073166763575_wp /
data pbch (2, 55) / -0.44073166763575_wp /
data clsq (2, 55) / 0.46524059775602_wp /
data clsh (2, 55) / -0.46524059775602_wp /
data hcount (2, 55) / 1.00000000000000_wp /
data ascale (2, 55) / 1.00000000000000_wp /
data refcovcn(2, 55) / 0.78131762864252_wp /
data refcn (2, 55) / 0.99085899461464_wp /
data refsys (2, 55) / 1 /
data alphaiw(:,2, 55) / &
& 65.7018290_wp, 59.8918430_wp, 49.3703130_wp, 33.8726930_wp, &
& 25.2509890_wp, 19.8576040_wp, 16.1061580_wp, 13.3278610_wp, &
& 11.1931740_wp, 9.5136360_wp, 8.1692610_wp, 7.0782580_wp, &
& 5.4392600_wp, 4.2914390_wp, 3.4609450_wp, 2.8433200_wp, &
& 2.3731020_wp, 1.5968080_wp, 1.1424900_wp, 0.6636650_wp, &
& 0.4316520_wp, 0.1952610_wp, 0.1106580_wp /
! REF Cs4Cl4 - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 55) / 0.68068249931321_wp /
data refh (3, 55) / -0.68068249931321_wp /
data gffq (3, 55) / 0.60500000000000_wp /
data gffh (3, 55) / -0.60500000000000_wp /
data dftq (3, 55) / 0.68068249931321_wp /
data dfth (3, 55) / -0.68068249931321_wp /
data pbcq (3, 55) / 0.49200000000000_wp /
data pbch (3, 55) / -0.49200000000000_wp /
data clsq (3, 55) / 0.49200000000000_wp /
data clsh (3, 55) / -0.49200000000000_wp /
data hcount (3, 55) / 4.00000000000000_wp /
data ascale (3, 55) / 0.25000000000000_wp /
data refcovcn(3, 55) / 13.94000000000000_wp /
data refcn (3, 55) / 16.33600000000000_wp /
data refsys (3, 55) / 17 /
data alphaiw(:,3, 55) / &
& 159.0053270_wp, 157.1436212_wp, 151.9731787_wp, 135.7037659_wp, &
& 117.3153187_wp, 100.2482652_wp, 85.4662885_wp, 73.0126871_wp, &
& 62.6425221_wp, 54.0415555_wp, 46.9052446_wp, 40.9663710_wp, &
& 31.8279948_wp, 25.2977404_wp, 20.5185492_wp, 16.9398730_wp, &
& 14.2032476_wp, 9.6642916_wp, 6.9942505_wp, 4.1611863_wp, &
& 2.7731001_wp, 1.3285730_wp, 0.7903369_wp /
data refn(55) / 3 /
! REF Ba - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 56) / 0.0_wp /
data refh (1, 56) / 0.00000000000000_wp /
data gffq (1, 56) / 0.00000000000000_wp /
data gffh (1, 56) / 0.00000000000000_wp /
data dftq (1, 56) / 0.0_wp /
data dfth (1, 56) / 0.00000000000000_wp /
data pbcq (1, 56) / 0.0_wp /
data pbch (1, 56) / 0.00000000000000_wp /
data clsq (1, 56) / 0.00000000000000_wp /
data clsh (1, 56) / 0.00000000000000_wp /
data hcount (1, 56) / 0.00000000000000_wp /
data ascale (1, 56) / 1.00000000000000_wp /
data refcovcn(1, 56) / 0.00000000000000_wp /
data refcn (1, 56) / 0.00000000000000_wp /
data refsys (1, 56) / 1 /
data alphaiw(:,1, 56) / &
& 288.2408830_wp, 220.1240810_wp, 131.4902760_wp, 55.2586600_wp, &
& 31.5893280_wp, 21.6257080_wp, 16.3339130_wp, 13.0455460_wp, &
& 10.7783530_wp, 9.1050960_wp, 7.8133370_wp, 6.7850620_wp, &
& 5.2566000_wp, 4.1863800_wp, 3.4065330_wp, 2.8211540_wp, &
& 2.3711900_wp, 1.6174560_wp, 1.1682080_wp, 0.6862840_wp, &
& 0.4490360_wp, 0.2044320_wp, 0.1161510_wp /
! REF BaH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 56) / 0.39462085293344_wp /
data refh (2, 56) / -0.39462085293344_wp /
data gffq (2, 56) / 0.42198236936188_wp /
data gffh (2, 56) / -0.42198236936188_wp /
data dftq (2, 56) / 0.34401400000000_wp /
data dfth (2, 56) / -0.34401600000000_wp /
data pbcq (2, 56) / 0.39462085293344_wp /
data pbch (2, 56) / -0.39462085293344_wp /
data clsq (2, 56) / 0.42198236936188_wp /
data clsh (2, 56) / -0.42198236936188_wp /
data hcount (2, 56) / 1.00000000000000_wp /
data ascale (2, 56) / 1.00000000000000_wp /
data refcovcn(2, 56) / 0.78501458609867_wp /
data refcn (2, 56) / 0.97966156728304_wp /
data refsys (2, 56) / 1 /
data alphaiw(:,2, 56) / &
& 309.5716070_wp, 175.3545830_wp, 94.6066250_wp, 46.0830780_wp, &
& 30.0147260_wp, 22.0684410_wp, 17.2886740_wp, 14.0639130_wp, &
& 11.7253160_wp, 9.9472460_wp, 8.5510400_wp, 7.4290820_wp, &
& 5.7511370_wp, 4.5735640_wp, 3.7161310_wp, 3.0735940_wp, &
& 2.5806020_wp, 1.7570230_wp, 1.2676610_wp, 0.7440160_wp, &
& 0.4866820_wp, 0.2215860_wp, 0.1259200_wp /
! REF BaH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 56) / 0.56717887047949_wp /
data refh (3, 56) / -0.28358943523975_wp /
data gffq (3, 56) / 0.63397117832958_wp /
data gffh (3, 56) / -0.31698558916479_wp /
data dftq (3, 56) / 0.80245000000000_wp /
data dfth (3, 56) / -0.40123000000000_wp /
data pbcq (3, 56) / 0.56717887047949_wp /
data pbch (3, 56) / -0.28358943523975_wp /
data clsq (3, 56) / 0.63397117832958_wp /
data clsh (3, 56) / -0.31698558916479_wp /
data hcount (3, 56) / 2.00000000000000_wp /
data ascale (3, 56) / 1.00000000000000_wp /
data refcovcn(3, 56) / 1.47819220471197_wp /
data refcn (3, 56) / 1.84668170996467_wp /
data refsys (3, 56) / 1 /
data alphaiw(:,3, 56) / &
& 66.9605790_wp, 63.0034800_wp, 54.8221920_wp, 39.7272000_wp, &
& 29.6372990_wp, 23.0260300_wp, 18.4860590_wp, 15.2106190_wp, &
& 12.7502140_wp, 10.8439290_wp, 9.3316440_wp, 8.1096160_wp, &
& 6.2753070_wp, 4.9860280_wp, 4.0475020_wp, 3.3448150_wp, &
& 2.8062400_wp, 1.9080120_wp, 1.3753850_wp, 0.8064740_wp, &
& 0.5272920_wp, 0.2399460_wp, 0.1363100_wp /
! REF Ba4O4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 56) / 0.62956728884112 /
data refh (4, 56) / -0.62956728884112 /
data gffq (4, 56) / 0.82000000000000 /
data gffh (4, 56) / -0.82000000000000 /
data dftq (4, 56) / 0.62956728884112 /
data dfth (4, 56) / -0.62956728884112 /
data pbcq (4, 56) / 0.52800000000000 /
data pbch (4, 56) / -0.52800000000000 /
data clsq (4, 56) / 0.52800000000000 /
data clsh (4, 56) / -0.52800000000000 /
data hcount (4, 56) / 4.00000000000000 /
data ascale (4, 56) / 0.25000000000000 /
data refcovcn(4, 56) / 14.67700000000000 /
data refcn (4, 56) / 17.41200000000000 /
data refsys (4, 56) / 9 /
data alphaiw(:,4, 56) / &
& 155.5094396_wp, 152.2957198_wp, 143.9110133_wp, 121.2148688_wp, &
& 100.0521440_wp, 83.2245940_wp, 70.1280996_wp, 60.7626607_wp, &
& 51.5155269_wp, 44.7636011_wp, 39.1938022_wp, 34.5522205_wp, &
& 27.3444515_wp, 22.1012480_wp, 18.1884416_wp, 15.2025580_wp, &
& 12.8788334_wp, 8.9266992_wp, 6.5294153_wp, 3.9103194_wp, &
& 2.5946296_wp, 1.2081345_wp, 0.6957280_wp /
data refn(56) / 4 /
! REF La - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 57) / -0.00000000016424_wp /
data refh (1, 57) / 0.00000000000000_wp /
data gffq (1, 57) / 0.00000000000000_wp /
data gffh (1, 57) / 0.00000000000000_wp /
data dftq (1, 57) / -0.00000000016424_wp /
data dfth (1, 57) / 0.00000000000000_wp /
data pbcq (1, 57) / -0.00000000016424_wp /
data pbch (1, 57) / 0.00000000000000_wp /
data clsq (1, 57) / 0.00000000000000_wp /
data clsh (1, 57) / 0.00000000000000_wp /
data hcount (1, 57) / 0.00000000000000_wp /
data ascale (1, 57) / 1.00000000000000_wp /
data refcovcn(1, 57) / 0.00000000000000_wp /
data refcn (1, 57) / 0.00000000000000_wp /
data refsys (1, 57) / 1 /
data alphaiw(:,1, 57) / &
& 215.8140220_wp, 176.8449270_wp, 118.3158760_wp, 56.5506640_wp, &
& 33.7025040_wp, 23.2152200_wp, 17.4335570_wp, 13.8111350_wp, &
& 11.3289880_wp, 9.5173300_wp, 8.1343090_wp, 7.0437020_wp, &
& 5.4382140_wp, 4.3231050_wp, 3.5139470_wp, 2.9079640_wp, &
& 2.4428210_wp, 1.6648090_wp, 1.2017740_wp, 0.7056550_wp, &
& 0.4616280_wp, 0.2101180_wp, 0.1193250_wp /
! REF LaH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 57) / 0.14182729573672_wp /
data refh (2, 57) / -0.07091364828303_wp /
data gffq (2, 57) / 0.65599616057853_wp /
data gffh (2, 57) / -0.32799808028927_wp /
data dftq (2, 57) / 0.59641000000000_wp /
data dfth (2, 57) / -0.29819600000000_wp /
data pbcq (2, 57) / 0.14182729573672_wp /
data pbch (2, 57) / -0.07091364828303_wp /
data clsq (2, 57) / 0.65599616057853_wp /
data clsh (2, 57) / -0.32799808028927_wp /
data hcount (2, 57) / 2.00000000000000_wp /
data ascale (2, 57) / 1.00000000000000_wp /
data refcovcn(2, 57) / 1.60493415835961_wp /
data refcn (2, 57) / 1.93733589109731_wp /
data refsys (2, 57) / 1 /
data alphaiw(:,2, 57) / &
& 174.1703670_wp, 109.8104790_wp, 78.4184010_wp, 48.3320410_wp, &
& 33.8987960_wp, 25.4468050_wp, 19.9742230_wp, 16.1822840_wp, &
& 13.4194490_wp, 11.3279880_wp, 9.6974550_wp, 8.3967050_wp, &
& 6.4683870_wp, 5.1269150_wp, 4.1557730_wp, 3.4309420_wp, &
& 2.8764740_wp, 1.9535170_wp, 1.4072110_wp, 0.8245040_wp, &
& 0.5388600_wp, 0.2450480_wp, 0.1391110_wp /
! REF LaH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 57) / 0.61948745805358_wp /
data refh (3, 57) / -0.20649581935119_wp /
data gffq (3, 57) / 0.83084860530330_wp /
data gffh (3, 57) / -0.27694953510110_wp /
data dftq (3, 57) / 0.90461800000000_wp /
data dfth (3, 57) / -0.30154533333333_wp /
data pbcq (3, 57) / 0.61948745805358_wp /
data pbch (3, 57) / -0.20649581935119_wp /
data clsq (3, 57) / 0.83084860530330_wp /
data clsh (3, 57) / -0.27694953510110_wp /
data hcount (3, 57) / 3.00000000000000_wp /
data ascale (3, 57) / 1.00000000000000_wp /
data refcovcn(3, 57) / 2.41715875994685_wp /
data refcn (3, 57) / 2.91753935596640_wp /
data refsys (3, 57) / 1 /
data alphaiw(:,3, 57) / &
& 66.6599540_wp, 64.3784460_wp, 58.7168170_wp, 45.1581050_wp, &
& 34.3061210_wp, 26.6622110_wp, 21.2769290_wp, 17.3778510_wp, &
& 14.4673110_wp, 12.2338560_wp, 10.4793230_wp, 9.0738430_wp, &
& 6.9849920_wp, 5.5308960_wp, 4.4789930_wp, 3.6947640_wp, &
& 3.0955470_wp, 2.0997350_wp, 1.5114130_wp, 0.8848790_wp, &
& 0.5781220_wp, 0.2628230_wp, 0.1491850_wp /
data refn(57) / 3 /
! REF CeH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 58) / 0.54768224095698_wp /
data refh (1, 58) / -0.18256074698566_wp /
data gffq (1, 58) / 0.78733393312177_wp /
data gffh (1, 58) / -0.26244464437392_wp /
data dftq (1, 58) / 0.54768224095698_wp /
data dfth (1, 58) / -0.18256074698566_wp /
data pbcq (1, 58) / 0.54768224095698_wp /
data pbch (1, 58) / -0.18256074698566_wp /
data clsq (1, 58) / 0.78733393312177_wp /
data clsh (1, 58) / -0.26244464437392_wp /
data hcount (1, 58) / 3.00000000000000_wp /
data ascale (1, 58) / 1.00000000000000_wp /
data refcovcn(1, 58) / 2.32446531201143_wp /
data refcn (1, 58) / 2.79905712137645_wp /
data refsys (1, 58) / 1 /
data alphaiw(:,1, 58) / &
& 63.1803350_wp, 60.8655150_wp, 55.6077000_wp, 42.9730420_wp, &
& 32.8160560_wp, 25.6410650_wp, 20.5717660_wp, 16.8914020_wp, &
& 14.1378050_wp, 12.0210120_wp, 10.3558470_wp, 9.0204850_wp, &
& 7.0330480_wp, 5.6466750_wp, 4.6410990_wp, 3.8887730_wp, &
& 3.3113370_wp, 2.3420650_wp, 1.7576480_wp, 1.1111050_wp, &
& 0.7737220_wp, 0.3918750_wp, 0.2365100_wp /
data refn(58) / 1 /
! REF Pr - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 59) / -0.00000000021208_wp /
data refh (1, 59) / 0.00000000000000_wp /
data gffq (1, 59) / 0.00000000000000_wp /
data gffh (1, 59) / 0.00000000000000_wp /
data dftq (1, 59) / -0.00000000021208_wp /
data dfth (1, 59) / 0.00000000000000_wp /
data pbcq (1, 59) / -0.00000000021208_wp /
data pbch (1, 59) / 0.00000000000000_wp /
data clsq (1, 59) / 0.00000000000000_wp /
data clsh (1, 59) / 0.00000000000000_wp /
data hcount (1, 59) / 0.00000000000000_wp /
data ascale (1, 59) / 1.00000000000000_wp /
data refcovcn(1, 59) / 0.00000000000000_wp /
data refcn (1, 59) / 0.00000000000000_wp /
data refsys (1, 59) / 1 /
data alphaiw(:,1, 59) / &
& 253.6075830_wp, 185.3478080_wp, 117.3131200_wp, 51.4986990_wp, &
& 29.5194860_wp, 20.1469030_wp, 15.2121030_wp, 12.1925180_wp, &
& 10.1406100_wp, 8.6417550_wp, 7.4910100_wp, 6.5762820_wp, &
& 5.2119620_wp, 4.2469660_wp, 3.5345800_wp, 2.9924220_wp, &
& 2.5699090_wp, 1.8461480_wp, 1.3998220_wp, 0.8963550_wp, &
& 0.6292150_wp, 0.3225380_wp, 0.1960510_wp /
! REF PrH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 59) / 0.56091390202022_wp /
data refh (2, 59) / -0.18697130067341_wp /
data gffq (2, 59) / 0.78255214121928_wp /
data gffh (2, 59) / -0.26085071373976_wp /
data dftq (2, 59) / 0.87928200000000_wp /
data dfth (2, 59) / -0.29309766666667_wp /
data pbcq (2, 59) / 0.56091390202022_wp /
data pbch (2, 59) / -0.18697130067341_wp /
data clsq (2, 59) / 0.78255214121928_wp /
data clsh (2, 59) / -0.26085071373976_wp /
data hcount (2, 59) / 3.00000000000000_wp /
data ascale (2, 59) / 1.00000000000000_wp /
data refcovcn(2, 59) / 2.44976242184767_wp /
data refcn (2, 59) / 2.94245250980475_wp /
data refsys (2, 59) / 1 /
data alphaiw(:,2, 59) / &
& 61.2373490_wp, 58.9335430_wp, 53.9743400_wp, 41.9343430_wp, &
& 32.1281250_wp, 25.1481370_wp, 20.2000000_wp, 16.6031610_wp, &
& 13.9109010_wp, 11.8406070_wp, 10.2112030_wp, 8.9035100_wp, &
& 6.9541880_wp, 5.5908190_wp, 4.5991840_wp, 3.8553720_wp, &
& 3.2832050_wp, 2.3202580_wp, 1.7385060_wp, 1.0952390_wp, &
& 0.7607110_wp, 0.3842190_wp, 0.2318250_wp /
data refn(59) / 2 /
! REF Nd - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 60) / -0.00000000019384_wp /
data refh (1, 60) / 0.00000000000000_wp /
data gffq (1, 60) / 0.00000000000000_wp /
data gffh (1, 60) / 0.00000000000000_wp /
data dftq (1, 60) / -0.00000000019384_wp /
data dfth (1, 60) / 0.00000000000000_wp /
data pbcq (1, 60) / -0.00000000019384_wp /
data pbch (1, 60) / 0.00000000000000_wp /
data clsq (1, 60) / 0.00000000000000_wp /
data clsh (1, 60) / 0.00000000000000_wp /
data hcount (1, 60) / 0.00000000000000_wp /
data ascale (1, 60) / 1.00000000000000_wp /
data refcovcn(1, 60) / 0.00000000000000_wp /
data refcn (1, 60) / 0.00000000000000_wp /
data refsys (1, 60) / 1 /
data alphaiw(:,1, 60) / &
& 224.5762180_wp, 179.2684400_wp, 114.5509860_wp, 50.7711900_wp, &
& 29.0959830_wp, 19.8086410_wp, 14.9251210_wp, 11.9483050_wp, &
& 9.9338740_wp, 8.4673600_wp, 7.3439400_wp, 6.4519280_wp, &
& 5.1215350_wp, 4.1790220_wp, 3.4814770_wp, 2.9491840_wp, &
& 2.5333290_wp, 1.8187150_wp, 1.3768350_wp, 0.8783290_wp, &
& 0.6146620_wp, 0.3138300_wp, 0.1905480_wp /
! REF NdH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 60) / 0.57175663319949_wp /
data refh (2, 60) / -0.19058554439983_wp /
data gffq (2, 60) / 0.78608430866652_wp /
data gffh (2, 60) / -0.26202810288884_wp /
data dftq (2, 60) / 0.87300100000000_wp /
data dfth (2, 60) / -0.29100533333333_wp /
data pbcq (2, 60) / 0.57175663319949_wp /
data pbch (2, 60) / -0.19058554439983_wp /
data clsq (2, 60) / 0.78608430866652_wp /
data clsh (2, 60) / -0.26202810288884_wp /
data hcount (2, 60) / 3.00000000000000_wp /
data ascale (2, 60) / 1.00000000000000_wp /
data refcovcn(2, 60) / 2.45621204848065_wp /
data refcn (2, 60) / 2.94550013327159_wp /
data refsys (2, 60) / 1 /
data alphaiw(:,2, 60) / &
& 59.8908920_wp, 57.8663720_wp, 53.0214580_wp, 41.2308960_wp, &
& 31.6026170_wp, 24.7396280_wp, 19.8738380_wp, 16.3389450_wp, &
& 13.6950980_wp, 11.6632880_wp, 10.0646540_wp, 8.7815920_wp, &
& 6.8677690_wp, 5.5271730_wp, 4.5502380_wp, 3.8160260_wp, &
& 3.2502340_wp, 2.2958240_wp, 1.7180490_wp, 1.0790660_wp, &
& 0.7475530_wp, 0.3762800_wp, 0.2268030_wp /
data refn(60) / 2 /
! REF Pm - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 61) / -0.00000000047809_wp /
data refh (1, 61) / 0.00000000000000_wp /
data gffq (1, 61) / 0.00000000000000_wp /
data gffh (1, 61) / 0.00000000000000_wp /
data dftq (1, 61) / -0.00000000047809_wp /
data dfth (1, 61) / 0.00000000000000_wp /
data pbcq (1, 61) / -0.00000000047809_wp /
data pbch (1, 61) / 0.00000000000000_wp /
data clsq (1, 61) / 0.00000000000000_wp /
data clsh (1, 61) / 0.00000000000000_wp /
data hcount (1, 61) / 0.00000000000000_wp /
data ascale (1, 61) / 1.00000000000000_wp /
data refcovcn(1, 61) / 0.00000000000000_wp /
data refcn (1, 61) / 0.00000000000000_wp /
data refsys (1, 61) / 1 /
data alphaiw(:,1, 61) / &
& 216.5540280_wp, 174.0685600_wp, 112.0657200_wp, 49.9521540_wp, &
& 28.5964740_wp, 19.4194800_wp, 14.6027420_wp, 11.6781260_wp, &
& 9.7072940_wp, 8.2773840_wp, 7.1844350_wp, 6.3175570_wp, &
& 5.0245550_wp, 4.1068450_wp, 3.4257530_wp, 2.9044660_wp, &
& 2.4960780_wp, 1.7917290_wp, 1.3546830_wp, 0.8610840_wp, &
& 0.6005800_wp, 0.3050960_wp, 0.1848870_wp /
! REF PmH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 61) / 0.57848494573230_wp /
data refh (2, 61) / -0.19282831524410_wp /
data gffq (2, 61) / 0.79124653412356_wp /
data gffh (2, 61) / -0.26374884470785_wp /
data dftq (2, 61) / 0.88544700000000_wp /
data dfth (2, 61) / -0.29514800000000_wp /
data pbcq (2, 61) / 0.57848494573230_wp /
data pbch (2, 61) / -0.19282831524410_wp /
data clsq (2, 61) / 0.79124653412356_wp /
data clsh (2, 61) / -0.26374884470785_wp /
data hcount (2, 61) / 3.00000000000000_wp /
data ascale (2, 61) / 1.00000000000000_wp /
data refcovcn(2, 61) / 2.45653273553474_wp /
data refcn (2, 61) / 2.94127110730758_wp /
data refsys (2, 61) / 1 /
data alphaiw(:,2, 61) / &
& 57.9857080_wp, 56.0520210_wp, 51.4036550_wp, 40.1715870_wp, &
& 30.9043600_wp, 24.2360810_wp, 19.4864830_wp, 16.0303390_wp, &
& 13.4446280_wp, 11.4577250_wp, 9.8945360_wp, 8.6397290_wp, &
& 6.7667310_wp, 5.4526280_wp, 4.4930820_wp, 3.7704490_wp, &
& 3.2125050_wp, 2.2688980_wp, 1.6962120_wp, 1.0622980_wp, &
& 0.7339400_wp, 0.3678790_wp, 0.2213700_wp /
data refn(61) / 2 /
! REF Sm - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 62) / -0.00000000067069_wp /
data refh (1, 62) / 0.00000000000000_wp /
data gffq (1, 62) / 0.00000000000000_wp /
data gffh (1, 62) / 0.00000000000000_wp /
data dftq (1, 62) / -0.00000000067069_wp /
data dfth (1, 62) / 0.00000000000000_wp /
data pbcq (1, 62) / -0.00000000067069_wp /
data pbch (1, 62) / 0.00000000000000_wp /
data clsq (1, 62) / 0.00000000000000_wp /
data clsh (1, 62) / 0.00000000000000_wp /
data hcount (1, 62) / 0.00000000000000_wp /
data ascale (1, 62) / 1.00000000000000_wp /
data refcovcn(1, 62) / 0.00000000000000_wp /
data refcn (1, 62) / 0.00000000000000_wp /
data refsys (1, 62) / 1 /
data alphaiw(:,1, 62) / &
& 209.4821630_wp, 169.3264270_wp, 109.7496270_wp, 49.1677750_wp, &
& 28.1221600_wp, 19.0508730_wp, 14.2954700_wp, 11.4178440_wp, &
& 9.4862320_wp, 8.0895200_wp, 7.0245330_wp, 6.1810260_wp, &
& 4.9234940_wp, 4.0299890_wp, 3.3654240_wp, 2.8555240_wp, &
& 2.4550980_wp, 1.7622060_wp, 1.3308620_wp, 0.8430750_wp, &
& 0.5860700_wp, 0.2961160_wp, 0.1790130_wp /
! REF SmH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 62) / 0.58363743729144_wp /
data refh (2, 62) / -0.19454581243048_wp /
data gffq (2, 62) / 0.78972506109909_wp /
data gffh (2, 62) / -0.26324168703303_wp /
data dftq (2, 62) / 0.87510600000000_wp /
data dfth (2, 62) / -0.29170100000000_wp /
data pbcq (2, 62) / 0.58363743729144_wp /
data pbch (2, 62) / -0.19454581243048_wp /
data clsq (2, 62) / 0.78972506109909_wp /
data clsh (2, 62) / -0.26324168703303_wp /
data hcount (2, 62) / 3.00000000000000_wp /
data ascale (2, 62) / 1.00000000000000_wp /
data refcovcn(2, 62) / 2.45472309204146_wp /
data refcn (2, 62) / 2.92998749109076_wp /
data refsys (2, 62) / 1 /
data alphaiw(:,2, 62) / &
& 60.4975550_wp, 56.8914260_wp, 51.7310830_wp, 40.1100700_wp, &
& 30.7211290_wp, 24.0196790_wp, 19.2720050_wp, 15.8320160_wp, &
& 13.2674100_wp, 11.3021990_wp, 9.7592770_wp, 8.5225050_wp, &
& 6.6783810_wp, 5.3848030_wp, 4.4395640_wp, 3.7268880_wp, &
& 3.1759310_wp, 2.2423610_wp, 1.6746190_wp, 1.0457120_wp, &
& 0.7204260_wp, 0.3593990_wp, 0.2157950_wp /
data refn(62) / 2 /
! REF Eu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 63) / -0.00000000029832_wp /
data refh (1, 63) / 0.00000000000000_wp /
data gffq (1, 63) / 0.00000000000000_wp /
data gffh (1, 63) / 0.00000000000000_wp /
data dftq (1, 63) / -0.00000000029832_wp /
data dfth (1, 63) / 0.00000000000000_wp /
data pbcq (1, 63) / -0.00000000029832_wp /
data pbch (1, 63) / 0.00000000000000_wp /
data clsq (1, 63) / 0.00000000000000_wp /
data clsh (1, 63) / 0.00000000000000_wp /
data hcount (1, 63) / 0.00000000000000_wp /
data ascale (1, 63) / 1.00000000000000_wp /
data refcovcn(1, 63) / 0.00000000000000_wp /
data refcn (1, 63) / 0.00000000000000_wp /
data refsys (1, 63) / 1 /
data alphaiw(:,1, 63) / &
& 203.2111900_wp, 165.0774090_wp, 107.6941350_wp, 48.4835280_wp, &
& 27.7173710_wp, 18.7379040_wp, 14.0329820_wp, 11.1932480_wp, &
& 9.2933470_wp, 7.9237680_wp, 6.8819260_wp, 6.0580060_wp, &
& 4.8307140_wp, 3.9582910_wp, 3.3084100_wp, 2.8088210_wp, &
& 2.4157350_wp, 1.7336990_wp, 1.3079430_wp, 0.8259450_wp, &
& 0.5723790_wp, 0.2877150_wp, 0.1735300_wp /
! REF EuH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 63) / 0.14255010862838_wp /
data refh (2, 63) / -0.07127505431420_wp /
data gffq (2, 63) / 0.65326281414848_wp /
data gffh (2, 63) / -0.32663140707424_wp /
data dftq (2, 63) / 0.65370700000000_wp /
data dfth (2, 63) / -0.32684400000000_wp /
data pbcq (2, 63) / 0.14255010862838_wp /
data pbch (2, 63) / -0.07127505431420_wp /
data clsq (2, 63) / 0.65326281414848_wp /
data clsh (2, 63) / -0.32663140707424_wp /
data hcount (2, 63) / 2.00000000000000_wp /
data ascale (2, 63) / 1.00000000000000_wp /
data refcovcn(2, 63) / 1.53272635693059_wp /
data refcn (2, 63) / 1.82859934010382_wp /
data refsys (2, 63) / 1 /
data alphaiw(:,2, 63) / &
& 58.3846820_wp, 55.5074830_wp, 48.9596600_wp, 35.5239180_wp, &
& 26.2422590_wp, 20.2406920_wp, 16.2113610_wp, 13.3691670_wp, &
& 11.2734740_wp, 9.6705860_wp, 8.4080470_wp, 7.3900200_wp, &
& 5.8559040_wp, 4.7635490_wp, 3.9543760_wp, 3.3370760_wp, &
& 2.8551160_wp, 2.0281870_wp, 1.5187450_wp, 0.9491330_wp, &
& 0.6530540_wp, 0.3246600_wp, 0.1946040_wp /
data refn(63) / 2 /
! REF Gd - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 64) / -0.00000000020011_wp /
data refh (1, 64) / 0.00000000000000_wp /
data gffq (1, 64) / 0.00000000000000_wp /
data gffh (1, 64) / 0.00000000000000_wp /
data dftq (1, 64) / -0.00000000020011_wp /
data dfth (1, 64) / 0.00000000000000_wp /
data pbcq (1, 64) / -0.00000000020011_wp /
data pbch (1, 64) / 0.00000000000000_wp /
data clsq (1, 64) / 0.00000000000000_wp /
data clsh (1, 64) / 0.00000000000000_wp /
data hcount (1, 64) / 0.00000000000000_wp /
data ascale (1, 64) / 1.00000000000000_wp /
data refcovcn(1, 64) / 0.00000000000000_wp /
data refcn (1, 64) / 0.00000000000000_wp /
data refsys (1, 64) / 1 /
data alphaiw(:,1, 64) / &
& 141.8420640_wp, 116.8571040_wp, 82.4531150_wp, 42.8638860_wp, &
& 26.4230410_wp, 18.5963810_wp, 14.2465310_wp, 11.5139220_wp, &
& 9.6332520_wp, 8.2500980_wp, 7.1830900_wp, 6.3311290_wp, &
& 5.0514610_wp, 4.1367300_wp, 3.4541820_wp, 2.9295050_wp, &
& 2.5169890_wp, 1.8023770_wp, 1.3572570_wp, 0.8545860_wp, &
& 0.5909780_wp, 0.2962180_wp, 0.1784510_wp /
! REF GdH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 64) / 0.58503142163331_wp /
data refh (2, 64) / -0.19501047387777_wp /
data gffq (2, 64) / 0.78994446367069_wp /
data gffh (2, 64) / -0.26331482122356_wp /
data dftq (2, 64) / 0.81693300000000_wp /
data dfth (2, 64) / -0.27231133333333_wp /
data pbcq (2, 64) / 0.58503142163331_wp /
data pbch (2, 64) / -0.19501047387777_wp /
data clsq (2, 64) / 0.78994446367069_wp /
data clsh (2, 64) / -0.26331482122356_wp /
data hcount (2, 64) / 3.00000000000000_wp /
data ascale (2, 64) / 1.00000000000000_wp /
data refcovcn(2, 64) / 2.41754019361739_wp /
data refcn (2, 64) / 2.87315743546354_wp /
data refsys (2, 64) / 1 /
data alphaiw(:,2, 64) / &
& 59.9521870_wp, 57.6299620_wp, 52.3452910_wp, 40.4588930_wp, &
& 30.8901980_wp, 24.0499010_wp, 19.2156040_wp, 15.7302290_wp, &
& 13.1464310_wp, 11.1770130_wp, 9.6378050_wp, 8.4085080_wp, &
& 6.5823240_wp, 5.3050770_wp, 4.3727770_wp, 3.6698530_wp, &
& 3.1261280_wp, 2.2035920_wp, 1.6416690_wp, 1.0191840_wp, &
& 0.6982840_wp, 0.3451090_wp, 0.2062760_wp /
data refn(64) / 2 /
! REF Tb - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 65) / -0.00000000017383_wp /
data refh (1, 65) / 0.00000000000000_wp /
data gffq (1, 65) / 0.00000000000000_wp /
data gffh (1, 65) / 0.00000000000000_wp /
data dftq (1, 65) / -0.00000000017383_wp /
data dfth (1, 65) / 0.00000000000000_wp /
data pbcq (1, 65) / -0.00000000017383_wp /
data pbch (1, 65) / 0.00000000000000_wp /
data clsq (1, 65) / 0.00000000000000_wp /
data clsh (1, 65) / 0.00000000000000_wp /
data hcount (1, 65) / 0.00000000000000_wp /
data ascale (1, 65) / 1.00000000000000_wp /
data refcovcn(1, 65) / 0.00000000000000_wp /
data refcn (1, 65) / 0.00000000000000_wp /
data refsys (1, 65) / 1 /
data alphaiw(:,1, 65) / &
& 229.3015960_wp, 148.7572060_wp, 83.8992590_wp, 37.7525280_wp, &
& 23.0411680_wp, 16.4030610_wp, 12.7361960_wp, 10.4183080_wp, &
& 8.8072510_wp, 7.6095540_wp, 6.6757310_wp, 5.9225500_wp, &
& 4.7760310_wp, 3.9431820_wp, 3.3133000_wp, 2.8236490_wp, &
& 2.4350780_wp, 1.7540070_wp, 1.3245690_wp, 0.8351270_wp, &
& 0.5770300_wp, 0.2882710_wp, 0.1732830_wp /
! REF TbH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 65) / 0.60523146786190_wp /
data refh (2, 65) / -0.20174382262063_wp /
data gffq (2, 65) / 0.79462439284960_wp /
data gffh (2, 65) / -0.26487479761653_wp /
data dftq (2, 65) / 0.89352700000000_wp /
data dfth (2, 65) / -0.29784333333333_wp /
data pbcq (2, 65) / 0.60523146786190_wp /
data pbch (2, 65) / -0.20174382262063_wp /
data clsq (2, 65) / 0.79462439284960_wp /
data clsh (2, 65) / -0.26487479761653_wp /
data hcount (2, 65) / 3.00000000000000_wp /
data ascale (2, 65) / 1.00000000000000_wp /
data refcovcn(2, 65) / 2.45190848719608_wp /
data refcn (2, 65) / 2.90861742800663_wp /
data refsys (2, 65) / 1 /
data alphaiw(:,2, 65) / &
& 55.7777620_wp, 53.9540020_wp, 49.4627260_wp, 38.5259830_wp, &
& 29.5462910_wp, 23.1049190_wp, 18.5294200_wp, 15.2134150_wp, &
& 12.7449150_wp, 10.8576310_wp, 9.3793010_wp, 8.1965330_wp, &
& 6.4356150_wp, 5.2004630_wp, 4.2962800_wp, 3.6126080_wp, &
& 3.0823350_wp, 2.1790430_wp, 1.6261760_wp, 1.0110080_wp, &
& 0.6927930_wp, 0.3420770_wp, 0.2042870_wp /
data refn(65) / 2 /
! REF Dy - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 66) / -0.00000000016680_wp /
data refh (1, 66) / 0.00000000000000_wp /
data gffq (1, 66) / 0.00000000000000_wp /
data gffh (1, 66) / 0.00000000000000_wp /
data dftq (1, 66) / -0.00000000016680_wp /
data dfth (1, 66) / 0.00000000000000_wp /
data pbcq (1, 66) / -0.00000000016680_wp /
data pbch (1, 66) / 0.00000000000000_wp /
data clsq (1, 66) / 0.00000000000000_wp /
data clsh (1, 66) / 0.00000000000000_wp /
data hcount (1, 66) / 0.00000000000000_wp /
data ascale (1, 66) / 1.00000000000000_wp /
data refcovcn(1, 66) / 0.00000000000000_wp /
data refcn (1, 66) / 0.00000000000000_wp /
data refsys (1, 66) / 1 /
data alphaiw(:,1, 66) / &
& 232.4656730_wp, 135.1836000_wp, 80.1286950_wp, 37.7486970_wp, &
& 23.2434510_wp, 16.5330840_wp, 12.7969630_wp, 10.4341740_wp, &
& 8.7966470_wp, 7.5842480_wp, 6.6428660_wp, 5.8863450_wp, &
& 4.7393580_wp, 3.9091410_wp, 3.2824410_wp, 2.7957150_wp, &
& 2.4096230_wp, 1.7330220_wp, 1.3064720_wp, 0.8207680_wp, &
& 0.5653110_wp, 0.2809900_wp, 0.1685370_wp /
! REF DyH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 66) / 0.61019655094139_wp /
data refh (2, 66) / -0.20339885031380_wp /
data gffq (2, 66) / 0.79518107342432_wp /
data gffh (2, 66) / -0.26506035780811_wp /
data dftq (2, 66) / 0.87225900000000_wp /
data dfth (2, 66) / -0.29075266666667_wp /
data pbcq (2, 66) / 0.61019655094139_wp /
data pbch (2, 66) / -0.20339885031380_wp /
data clsq (2, 66) / 0.79518107342432_wp /
data clsh (2, 66) / -0.26506035780811_wp /
data hcount (2, 66) / 3.00000000000000_wp /
data ascale (2, 66) / 1.00000000000000_wp /
data refcovcn(2, 66) / 2.44535641509585_wp /
data refcn (2, 66) / 2.89653794321150_wp /
data refsys (2, 66) / 1 /
data alphaiw(:,2, 66) / &
& 60.4090430_wp, 55.9872550_wp, 50.3819660_wp, 38.5219880_wp, &
& 29.3573150_wp, 22.8882210_wp, 18.3247830_wp, 15.0311820_wp, &
& 12.5861420_wp, 10.7203330_wp, 9.2606660_wp, 8.0937380_wp, &
& 6.3571910_wp, 5.1389330_wp, 4.2464670_wp, 3.5710020_wp, &
& 3.0465710_wp, 2.1519680_wp, 1.6036830_wp, 0.9935670_wp, &
& 0.6786190_wp, 0.3332680_wp, 0.1985350_wp /
data refn(66) / 2 /
! REF Ho - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 67) / -0.00000000016492_wp /
data refh (1, 67) / 0.00000000000000_wp /
data gffq (1, 67) / 0.00000000000000_wp /
data gffh (1, 67) / 0.00000000000000_wp /
data dftq (1, 67) / -0.00000000016492_wp /
data dfth (1, 67) / 0.00000000000000_wp /
data pbcq (1, 67) / -0.00000000016492_wp /
data pbch (1, 67) / 0.00000000000000_wp /
data clsq (1, 67) / 0.00000000000000_wp /
data clsh (1, 67) / 0.00000000000000_wp /
data hcount (1, 67) / 0.00000000000000_wp /
data ascale (1, 67) / 1.00000000000000_wp /
data refcovcn(1, 67) / 0.00000000000000_wp /
data refcn (1, 67) / 0.00000000000000_wp /
data refsys (1, 67) / 1 /
data alphaiw(:,1, 67) / &
& 174.3579710_wp, 145.3475730_wp, 98.3386140_wp, 45.6653390_wp, &
& 26.1535730_wp, 17.5697070_wp, 13.0686310_wp, 10.3734350_wp, &
& 8.5909150_wp, 7.3206360_wp, 6.3633450_wp, 5.6111750_wp, &
& 4.4954000_wp, 3.7014620_wp, 3.1066380_wp, 2.6458480_wp, &
& 2.2803750_wp, 1.6387150_wp, 1.2329370_wp, 0.7701030_wp, &
& 0.5271880_wp, 0.2591200_wp, 0.1545480_wp /
! REF HoH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 67) / 0.62162856785073_wp /
data refh (2, 67) / -0.20720952261691_wp /
data gffq (2, 67) / 0.80930480242405_wp /
data gffh (2, 67) / -0.26976826747468_wp /
data dftq (2, 67) / 0.90057300000000_wp /
data dfth (2, 67) / -0.30018866666667_wp /
data pbcq (2, 67) / 0.62162856785073_wp /
data pbch (2, 67) / -0.20720952261691_wp /
data clsq (2, 67) / 0.80930480242405_wp /
data clsh (2, 67) / -0.26976826747468_wp /
data hcount (2, 67) / 3.00000000000000_wp /
data ascale (2, 67) / 1.00000000000000_wp /
data refcovcn(2, 67) / 2.47312888776754_wp /
data refcn (2, 67) / 2.92423628373451_wp /
data refsys (2, 67) / 1 /
data alphaiw(:,2, 67) / &
& 52.4790850_wp, 50.9455980_wp, 47.0541390_wp, 37.1641820_wp, &
& 28.6862320_wp, 22.4764090_wp, 18.0300540_wp, 14.8000680_wp, &
& 12.3955370_wp, 10.5586820_wp, 9.1212810_wp, 7.9722170_wp, &
& 6.2625620_wp, 5.0632080_wp, 4.1843110_wp, 3.5187310_wp, &
& 3.0016100_wp, 2.1184470_wp, 1.5764470_wp, 0.9730470_wp, &
& 0.6620460_wp, 0.3227820_wp, 0.1915480_wp /
data refn(67) / 2 /
! REF Er - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 68) / -0.00000000016442_wp /
data refh (1, 68) / 0.00000000000000_wp /
data gffq (1, 68) / 0.00000000000000_wp /
data gffh (1, 68) / 0.00000000000000_wp /
data dftq (1, 68) / -0.00000000016442_wp /
data dfth (1, 68) / 0.00000000000000_wp /
data pbcq (1, 68) / -0.00000000016442_wp /
data pbch (1, 68) / 0.00000000000000_wp /
data clsq (1, 68) / 0.00000000000000_wp /
data clsh (1, 68) / 0.00000000000000_wp /
data hcount (1, 68) / 0.00000000000000_wp /
data ascale (1, 68) / 1.00000000000000_wp /
data refcovcn(1, 68) / 0.00000000000000_wp /
data refcn (1, 68) / 0.00000000000000_wp /
data refsys (1, 68) / 1 /
data alphaiw(:,1, 68) / &
& 169.5086700_wp, 141.8311300_wp, 96.4854630_wp, 44.9898390_wp, &
& 25.7372660_wp, 17.2457070_wp, 12.7960440_wp, 10.1383860_wp, &
& 8.3867110_wp, 7.1428030_wp, 6.2082610_wp, 5.4756830_wp, &
& 4.3910800_wp, 3.6198210_wp, 3.0414510_wp, 2.5926580_wp, &
& 2.2360160_wp, 1.6079710_wp, 1.2093860_wp, 0.7535860_wp, &
& 0.5142640_wp, 0.2510880_wp, 0.1491740_wp /
! REF ErH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 68) / 0.62470266440724_wp /
data refh (2, 68) / -0.20823422146908_wp /
data gffq (2, 68) / 0.81306730354597_wp /
data gffh (2, 68) / -0.27102243451532_wp /
data dftq (2, 68) / 0.90879700000000_wp /
data dfth (2, 68) / -0.30293100000000_wp /
data pbcq (2, 68) / 0.62470266440724_wp /
data pbch (2, 68) / -0.20823422146908_wp /
data clsq (2, 68) / 0.81306730354597_wp /
data clsh (2, 68) / -0.27102243451532_wp /
data hcount (2, 68) / 3.00000000000000_wp /
data ascale (2, 68) / 1.00000000000000_wp /
data refcovcn(2, 68) / 2.48043640078965_wp /
data refcn (2, 68) / 2.92818783679168_wp /
data refsys (2, 68) / 1 /
data alphaiw(:,2, 68) / &
& 50.9243700_wp, 49.4869020_wp, 45.8178160_wp, 36.3744420_wp, &
& 28.1606380_wp, 22.0904510_wp, 17.7252050_wp, 14.5487700_wp, &
& 12.1834110_wp, 10.3771780_wp, 8.9646510_wp, 7.8362150_wp, &
& 6.1584380_wp, 4.9818960_wp, 4.1194840_wp, 3.4659310_wp, &
& 2.9576820_wp, 2.0882320_wp, 1.5534830_wp, 0.9571210_wp, &
& 0.6496440_wp, 0.3150810_wp, 0.1863840_wp /
data refn(68) / 2 /
! REF Tm - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 69) / -0.00000000016430_wp /
data refh (1, 69) / 0.00000000000000_wp /
data gffq (1, 69) / 0.00000000000000_wp /
data gffh (1, 69) / 0.00000000000000_wp /
data dftq (1, 69) / -0.00000000016430_wp /
data dfth (1, 69) / 0.00000000000000_wp /
data pbcq (1, 69) / -0.00000000016430_wp /
data pbch (1, 69) / 0.00000000000000_wp /
data clsq (1, 69) / 0.00000000000000_wp /
data clsh (1, 69) / 0.00000000000000_wp /
data hcount (1, 69) / 0.00000000000000_wp /
data ascale (1, 69) / 1.00000000000000_wp /
data refcovcn(1, 69) / 0.00000000000000_wp /
data refcn (1, 69) / 0.00000000000000_wp /
data refsys (1, 69) / 1 /
data alphaiw(:,1, 69) / &
& 164.8744790_wp, 138.5034170_wp, 94.7797640_wp, 44.4385580_wp, &
& 25.4312120_wp, 17.0158970_wp, 12.6028120_wp, 9.9697610_wp, &
& 8.2378580_wp, 7.0109450_wp, 6.0912830_wp, 5.3717500_wp, &
& 4.3084370_wp, 3.5531670_wp, 2.9867270_wp, 2.5468500_wp, &
& 2.1969270_wp, 1.5796200_wp, 1.1870370_wp, 0.7375970_wp, &
& 0.5018220_wp, 0.2436440_wp, 0.1443670_wp /
! REF TmH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 69) / 0.63183032821235_wp /
data refh (2, 69) / -0.21061010940412_wp /
data gffq (2, 69) / 0.81408370489997_wp /
data gffh (2, 69) / -0.27136123496666_wp /
data dftq (2, 69) / 0.89507300000000_wp /
data dfth (2, 69) / -0.29835433333333_wp /
data pbcq (2, 69) / 0.63183032821235_wp /
data pbch (2, 69) / -0.21061010940412_wp /
data clsq (2, 69) / 0.81408370489997_wp /
data clsh (2, 69) / -0.27136123496666_wp /
data hcount (2, 69) / 3.00000000000000_wp /
data ascale (2, 69) / 1.00000000000000_wp /
data refcovcn(2, 69) / 2.48120800603580_wp /
data refcn (2, 69) / 2.92455515909581_wp /
data refsys (2, 69) / 1 /
data alphaiw(:,2, 69) / &
& 50.9258390_wp, 49.3627740_wp, 45.6624910_wp, 36.1857370_wp, &
& 27.9704110_wp, 21.9122080_wp, 17.5625150_wp, 14.4018520_wp, &
& 12.0514680_wp, 10.2590760_wp, 8.8591280_wp, 7.7419770_wp, &
& 6.0830330_wp, 4.9209200_wp, 4.0693970_wp, 3.4240270_wp, &
& 2.9219510_wp, 2.0623180_wp, 1.5329870_wp, 0.9422880_wp, &
& 0.6379740_wp, 0.3079830_wp, 0.1817680_wp /
data refn(69) / 2 /
! REF Yb - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 70) / -0.00000000016425_wp /
data refh (1, 70) / 0.00000000000000_wp /
data gffq (1, 70) / 0.00000000000000_wp /
data gffh (1, 70) / 0.00000000000000_wp /
data dftq (1, 70) / -0.00000000016425_wp /
data dfth (1, 70) / 0.00000000000000_wp /
data pbcq (1, 70) / -0.00000000016425_wp /
data pbch (1, 70) / 0.00000000000000_wp /
data clsq (1, 70) / 0.00000000000000_wp /
data clsh (1, 70) / 0.00000000000000_wp /
data hcount (1, 70) / 0.00000000000000_wp /
data ascale (1, 70) / 1.00000000000000_wp /
data refcovcn(1, 70) / 0.00000000000000_wp /
data refcn (1, 70) / 0.00000000000000_wp /
data refsys (1, 70) / 1 /
data alphaiw(:,1, 70) / &
& 163.7379070_wp, 137.4016000_wp, 93.8094750_wp, 43.7828040_wp, &
& 24.9508110_wp, 16.6301360_wp, 12.2781120_wp, 9.6905770_wp, &
& 7.9955170_wp, 6.7996180_wp, 5.9064770_wp, 5.2097330_wp, &
& 4.1828480_wp, 3.4544290_wp, 2.9077830_wp, 2.4825740_wp, &
& 2.1436170_wp, 1.5435770_wp, 1.1603320_wp, 0.7200560_wp, &
& 0.4887560_wp, 0.2360610_wp, 0.1394570_wp /
! REF YbH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 70) / 0.60550144239070_wp /
data refh (2, 70) / -0.20183381413024_wp /
data gffq (2, 70) / 0.78415843735390_wp /
data gffh (2, 70) / -0.26138614578463_wp /
data dftq (2, 70) / 0.85697400000000_wp /
data dfth (2, 70) / -0.28565700000000_wp /
data pbcq (2, 70) / 0.60550144239070_wp /
data pbch (2, 70) / -0.20183381413024_wp /
data clsq (2, 70) / 0.78415843735390_wp /
data clsh (2, 70) / -0.26138614578463_wp /
data hcount (2, 70) / 3.00000000000000_wp /
data ascale (2, 70) / 1.00000000000000_wp /
data refcovcn(2, 70) / 2.41884356027485_wp /
data refcn (2, 70) / 2.84817486472051_wp /
data refsys (2, 70) / 1 /
data alphaiw(:,2, 70) / &
& 54.1811670_wp, 52.3584220_wp, 48.1909980_wp, 37.7829980_wp, &
& 28.8680310_wp, 22.3694590_wp, 17.7640250_wp, 14.4601420_wp, &
& 12.0316690_wp, 10.1983910_wp, 8.7787560_wp, 7.6539450_wp, &
& 5.9967880_wp, 4.8445850_wp, 4.0040030_wp, 3.3683890_wp, &
& 2.8743980_wp, 2.0286710_wp, 1.5073600_wp, 0.9248310_wp, &
& 0.6246590_wp, 0.3000110_wp, 0.1765320_wp /
data refn(70) / 2 /
! REF Lu - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 71) / -0.00000000016423_wp /
data refh (1, 71) / 0.00000000000000_wp /
data gffq (1, 71) / 0.00000000000000_wp /
data gffh (1, 71) / 0.00000000000000_wp /
data dftq (1, 71) / -0.00000000016423_wp /
data dfth (1, 71) / 0.00000000000000_wp /
data pbcq (1, 71) / -0.00000000016423_wp /
data pbch (1, 71) / 0.00000000000000_wp /
data clsq (1, 71) / 0.00000000000000_wp /
data clsh (1, 71) / 0.00000000000000_wp /
data hcount (1, 71) / 0.00000000000000_wp /
data ascale (1, 71) / 1.00000000000000_wp /
data refcovcn(1, 71) / 0.00000000000000_wp /
data refcn (1, 71) / 0.00000000000000_wp /
data refsys (1, 71) / 1 /
data alphaiw(:,1, 71) / &
& 136.8530670_wp, 104.2975620_wp, 76.5562240_wp, 40.2834860_wp, &
& 24.1515190_wp, 16.4764390_wp, 12.3100420_wp, 9.7790490_wp, &
& 8.0987470_wp, 6.9030530_wp, 6.0050390_wp, 5.3018750_wp, &
& 4.2621270_wp, 3.5227910_wp, 2.9673480_wp, 2.5350740_wp, &
& 2.1903720_wp, 1.5797660_wp, 1.1891950_wp, 0.7393030_wp, &
& 0.5021560_wp, 0.2423920_wp, 0.1430370_wp /
! REF LuH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 71) / 0.64112998199707_wp /
data refh (2, 71) / -0.21370999399902_wp /
data gffq (2, 71) / 0.82263187273050_wp /
data gffh (2, 71) / -0.27421062424350_wp /
data dftq (2, 71) / 0.77300000000000_wp /
data dfth (2, 71) / -0.25766600000000_wp /
data pbcq (2, 71) / 0.64112998199707_wp /
data pbch (2, 71) / -0.21370999399902_wp /
data clsq (2, 71) / 0.82263187273050_wp /
data clsh (2, 71) / -0.27421062424350_wp /
data hcount (2, 71) / 3.00000000000000_wp /
data ascale (2, 71) / 1.00000000000000_wp /
data refcovcn(2, 71) / 2.48673110207243_wp /
data refcn (2, 71) / 2.92190497244653_wp /
data refsys (2, 71) / 1 /
data alphaiw(:,2, 71) / &
& 48.9452970_wp, 47.6317230_wp, 44.2461460_wp, 35.3576300_wp, &
& 27.4507560_wp, 21.5311680_wp, 17.2508500_wp, 14.1326890_wp, &
& 11.8136070_wp, 10.0470280_wp, 8.6694960_wp, 7.5721550_wp, &
& 5.9462740_wp, 4.8097520_wp, 3.9777670_wp, 3.3472210_wp, &
& 2.8563980_wp, 2.0147310_wp, 1.4952460_wp, 0.9145890_wp, &
& 0.6157550_wp, 0.2938290_wp, 0.1722380_wp /
data refn(71) / 2 /
! REF Hf - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 72) / -0.00000000032846_wp /
data refh (1, 72) / 0.00000000000000_wp /
data gffq (1, 72) / 0.00000000000000_wp /
data gffh (1, 72) / 0.00000000000000_wp /
data dftq (1, 72) / -0.00000000032846_wp /
data dfth (1, 72) / 0.00000000000000_wp /
data pbcq (1, 72) / -0.00000000032846_wp /
data pbch (1, 72) / 0.00000000000000_wp /
data clsq (1, 72) / 0.00000000000000_wp /
data clsh (1, 72) / 0.00000000000000_wp /
data hcount (1, 72) / 0.00000000000000_wp /
data ascale (1, 72) / 1.00000000000000_wp /
data refcovcn(1, 72) / 0.00000000000000_wp /
data refcn (1, 72) / 0.00000000000000_wp /
data refsys (1, 72) / 1 /
data alphaiw(:,1, 72) / &
& 106.2816210_wp, 95.4891650_wp, 75.3034870_wp, 44.1393100_wp, &
& 28.1355730_wp, 19.6843670_wp, 14.7522820_wp, 11.6120870_wp, &
& 9.4717210_wp, 7.9330520_wp, 6.7792700_wp, 5.8843260_wp, &
& 4.5893730_wp, 3.6999000_wp, 3.0536720_wp, 2.5653680_wp, &
& 2.1856620_wp, 1.5348190_wp, 1.1334250_wp, 0.6859220_wp, &
& 0.4568140_wp, 0.2123490_wp, 0.1215650_wp /
! REF HfH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 72) / 0.11182987101245_wp /
data refh (2, 72) / -0.05591493550625_wp /
data gffq (2, 72) / 0.44266476936835_wp /
data gffh (2, 72) / -0.22133238468418_wp /
data dftq (2, 72) / 0.41268900000000_wp /
data dfth (2, 72) / -0.20633400000000_wp /
data pbcq (2, 72) / 0.11182987101245_wp /
data pbch (2, 72) / -0.05591493550625_wp /
data clsq (2, 72) / 0.44266476936835_wp /
data clsh (2, 72) / -0.22133238468418_wp /
data hcount (2, 72) / 2.00000000000000_wp /
data ascale (2, 72) / 1.00000000000000_wp /
data refcovcn(2, 72) / 1.64596625526870_wp /
data refcn (2, 72) / 1.92539163150370_wp /
data refsys (2, 72) / 1 /
data alphaiw(:,2, 72) / &
& 82.4536570_wp, 70.5184470_wp, 56.7403060_wp, 38.8993780_wp, &
& 28.3733700_wp, 21.5865770_wp, 16.9965970_wp, 13.7660430_wp, &
& 11.4103040_wp, 9.6381650_wp, 8.2684630_wp, 7.1847890_wp, &
& 5.5917520_wp, 4.4881220_wp, 3.6863220_wp, 3.0827340_wp, &
& 2.6157700_wp, 1.8222580_wp, 1.3383190_wp, 0.8045950_wp, &
& 0.5339520_wp, 0.2472490_wp, 0.1413400_wp /
! REF HfH4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 72) / 1.03176947330435_wp /
data refh (3, 72) / -0.25794236832609_wp /
data gffq (3, 72) / 0.68407375970491_wp /
data gffh (3, 72) / -0.17101843992623_wp /
data dftq (3, 72) / 0.48654600000000_wp /
data dfth (3, 72) / -0.12162925000000_wp /
data pbcq (3, 72) / 1.03176947330435_wp /
data pbch (3, 72) / -0.25794236832609_wp /
data clsq (3, 72) / 0.68407375970491_wp /
data clsh (3, 72) / -0.17101843992623_wp /
data hcount (3, 72) / 4.00000000000000_wp /
data ascale (3, 72) / 1.00000000000000_wp /
data refcovcn(3, 72) / 3.32095096313483_wp /
data refcn (3, 72) / 3.88399563447207_wp /
data refsys (3, 72) / 1 /
data alphaiw(:,3, 72) / &
& 50.2657100_wp, 49.2005530_wp, 46.3604080_wp, 38.3345580_wp, &
& 30.5672240_wp, 24.3724470_wp, 19.6879820_wp, 16.1687550_wp, &
& 13.4975460_wp, 11.4368740_wp, 9.8188790_wp, 8.5264490_wp, &
& 6.6139230_wp, 5.2863370_wp, 4.3241350_wp, 3.6027470_wp, &
& 3.0471630_wp, 2.1096360_wp, 1.5428050_wp, 0.9227930_wp, &
& 0.6106910_wp, 0.2819190_wp, 0.1609740_wp /
! REF HfF4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 72) / 1.35275862077626_wp /
data refh (4, 72) / -0.33818965519407_wp /
data gffq (4, 72) / 1.59380889275784_wp /
data gffh (4, 72) / -0.39845000000000_wp /
data dftq (4, 72) / 1.35275862077626_wp /
data dfth (4, 72) / -0.33818965519407_wp /
data pbcq (4, 72) / 0.94300000000000_wp /
data pbch (4, 72) / -0.23575000000000_wp /
data clsq (4, 72) / 0.94300000000000_wp /
data clsh (4, 72) / -0.23575000000000_wp /
data hcount (4, 72) / 4.00000000000000_wp /
data ascale (4, 72) / 1.00000000000000_wp /
data refcovcn(4, 72) / 4.62300000000000_wp /
data refcn (4, 72) / 6.33700000000000_wp /
data refsys (4, 72) / 11 /
data alphaiw(:,4, 72) / &
& 32.7095574_wp, 32.4889582_wp, 31.8527540_wp, 29.6320422_wp, &
& 26.7617762_wp, 23.8245539_wp, 21.1219459_wp, 18.7537050_wp, &
& 16.7198153_wp, 14.9828615_wp, 13.4971673_wp, 12.2201143_wp, &
& 10.1536814_wp, 8.5678059_wp, 7.3223689_wp, 6.3253685_wp, &
& 5.5145527_wp, 4.0455469_wp, 3.0833508_wp, 1.9496957_wp, &
& 1.3382618_wp, 0.6527061_wp, 0.3847355_wp /
data refn(72) / 4 /
! REF Ta - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 73) / -0.00000000016531_wp /
data refh (1, 73) / 0.00000000000000_wp /
data gffq (1, 73) / 0.00000000000000_wp /
data gffh (1, 73) / 0.00000000000000_wp /
data dftq (1, 73) / -0.00000000016531_wp /
data dfth (1, 73) / 0.00000000000000_wp /
data pbcq (1, 73) / -0.00000000016531_wp /
data pbch (1, 73) / 0.00000000000000_wp /
data clsq (1, 73) / 0.00000000000000_wp /
data clsh (1, 73) / 0.00000000000000_wp /
data hcount (1, 73) / 0.00000000000000_wp /
data ascale (1, 73) / 1.00000000000000_wp /
data refcovcn(1, 73) / 0.00000000000000_wp /
data refcn (1, 73) / 0.00000000000000_wp /
data refsys (1, 73) / 1 /
data alphaiw(:,1, 73) / &
& 88.9256120_wp, 81.9318660_wp, 67.3277280_wp, 41.9543150_wp, &
& 27.7130410_wp, 19.8298060_wp, 15.0833980_wp, 11.9897820_wp, &
& 9.8427490_wp, 8.2781960_wp, 7.0935190_wp, 6.1684980_wp, &
& 4.8227300_wp, 3.8952850_wp, 3.2207380_wp, 2.7107210_wp, &
& 2.3138110_wp, 1.6320700_wp, 1.2099340_wp, 0.7365720_wp, &
& 0.4925290_wp, 0.2302270_wp, 0.1321400_wp /
! REF TaH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 73) / 0.16442900959316_wp /
data refh (2, 73) / -0.08221450482839_wp /
data gffq (2, 73) / 0.23523422154086_wp /
data gffh (2, 73) / -0.11761711077043_wp /
data dftq (2, 73) / 0.35175200000000_wp /
data dfth (2, 73) / -0.17587200000000_wp /
data pbcq (2, 73) / 0.16442900959316_wp /
data pbch (2, 73) / -0.08221450482839_wp /
data clsq (2, 73) / 0.23523422154086_wp /
data clsh (2, 73) / -0.11761711077043_wp /
data hcount (2, 73) / 2.00000000000000_wp /
data ascale (2, 73) / 1.00000000000000_wp /
data refcovcn(2, 73) / 1.71671961147963_wp /
data refcn (2, 73) / 1.94592039225300_wp /
data refsys (2, 73) / 1 /
data alphaiw(:,2, 73) / &
& 69.3801270_wp, 62.6525490_wp, 52.3321990_wp, 37.2824880_wp, &
& 27.8804010_wp, 21.6007000_wp, 17.2276620_wp, 14.0778720_wp, &
& 11.7401200_wp, 9.9582810_wp, 8.5679630_wp, 7.4606290_wp, &
& 5.8231300_wp, 4.6837700_wp, 3.8543220_wp, 3.2291230_wp, &
& 2.7448770_wp, 1.9201830_wp, 1.4153120_wp, 0.8555430_wp, &
& 0.5698730_wp, 0.2652310_wp, 0.1519760_wp /
! REF TaH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 73) / 0.50275891608761_wp /
data refh (3, 73) / -0.16758630536254_wp /
data gffq (3, 73) / 0.30980440015125_wp /
data gffh (3, 73) / -0.10326813338375_wp /
data dftq (3, 73) / 0.50043500000000_wp /
data dfth (3, 73) / -0.16681166666667_wp /
data pbcq (3, 73) / 0.50275891608761_wp /
data pbch (3, 73) / -0.16758630536254_wp /
data clsq (3, 73) / 0.30980440015125_wp /
data clsh (3, 73) / -0.10326813338375_wp /
data hcount (3, 73) / 3.00000000000000_wp /
data ascale (3, 73) / 1.00000000000000_wp /
data refcovcn(3, 73) / 2.55699041057149_wp /
data refcn (3, 73) / 2.89880253611560_wp /
data refsys (3, 73) / 1 /
data alphaiw(:,3, 73) / &
& 53.1343510_wp, 50.1385310_wp, 45.3135370_wp, 36.1734470_wp, &
& 28.5997780_wp, 22.7928480_wp, 18.4525250_wp, 15.2001580_wp, &
& 12.7291810_wp, 10.8187030_wp, 9.3147510_wp, 8.1103590_wp, &
& 6.3220940_wp, 5.0755740_wp, 4.1686360_wp, 3.4861320_wp, &
& 2.9585540_wp, 2.0630420_wp, 1.5171890_wp, 0.9145820_wp, &
& 0.6082630_wp, 0.2826130_wp, 0.1618310_wp /
! REF TaF5 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 73) / 1.84791460855243_wp /
data refh (4, 73) / -0.36958292171049_wp /
data gffq (4, 73) / 1.51762325430455_wp /
data gffh (4, 73) / -0.30352465086090_wp /
data dftq (4, 73) / 1.84791460855243_wp /
data dfth (4, 73) / -0.36958292171049_wp /
data pbcq (4, 73) / 1.09300000000000_wp /
data pbch (4, 73) / -0.21860000000000_wp /
data clsq (4, 73) / 1.09300000000000_wp /
data clsh (4, 73) / -0.21860000000000_wp /
data hcount (4, 73) / 5.00000000000000_wp /
data ascale (4, 73) / 1.00000000000000_wp /
data refcovcn(4, 73) / 3.96300000000000_wp /
data refcn (4, 73) / 6.20500000000000_wp /
data refsys (4, 73) / 11 /
data alphaiw(:,4, 73) / &
& 38.0167314_wp, 37.7505450_wp, 36.9868016_wp, 34.3581519_wp, &
& 31.0182858_wp, 27.6354658_wp, 24.5337826_wp, 21.8145582_wp, &
& 19.4741943_wp, 17.4704983_wp, 15.7528316_wp, 14.2738200_wp, &
& 11.8766483_wp, 10.0346794_wp, 8.5871211_wp, 7.4275650_wp, &
& 6.4837949_wp, 4.7709367_wp, 3.6456491_wp, 2.3144054_wp, &
& 1.5929899_wp, 0.7800977_wp, 0.4607918_wp /
data refn(73) / 4 /
! REF W - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 74) / -0.00000000000215_wp /
data refh (1, 74) / 0.00000000000000_wp /
data gffq (1, 74) / 0.00000000000000_wp /
data gffh (1, 74) / 0.00000000000000_wp /
data dftq (1, 74) / -0.00000000000215_wp /
data dfth (1, 74) / 0.00000000000000_wp /
data pbcq (1, 74) / -0.00000000000215_wp /
data pbch (1, 74) / 0.00000000000000_wp /
data clsq (1, 74) / 0.00000000000000_wp /
data clsh (1, 74) / 0.00000000000000_wp /
data hcount (1, 74) / 0.00000000000000_wp /
data ascale (1, 74) / 1.00000000000000_wp /
data refcovcn(1, 74) / 0.00000000000000_wp /
data refcn (1, 74) / 0.00000000000000_wp /
data refsys (1, 74) / 1 /
data alphaiw(:,1, 74) / &
& 72.6835210_wp, 66.5725390_wp, 54.5218660_wp, 35.1042250_wp, &
& 24.3743050_wp, 18.1885020_wp, 14.2758210_wp, 11.6114380_wp, &
& 9.6940500_wp, 8.2552810_wp, 7.1400870_wp, 6.2531290_wp, &
& 4.9373670_wp, 4.0140520_wp, 3.3348740_wp, 2.8174560_wp, &
& 2.4125540_wp, 1.7123560_wp, 1.2753760_wp, 0.7814210_wp, &
& 0.5246740_wp, 0.2466040_wp, 0.1418950_wp /
! REF WH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 74) / -0.33545451190268_wp /
data refh (2, 74) / 0.16772725595657_wp /
data gffq (2, 74) / 0.31319918056428_wp /
data gffh (2, 74) / -0.15659959028214_wp /
data dftq (2, 74) / 0.27083900000000_wp /
data dfth (2, 74) / -0.13541400000000_wp /
data pbcq (2, 74) / -0.33545451190268_wp /
data pbch (2, 74) / 0.16772725595657_wp /
data clsq (2, 74) / 0.31319918056428_wp /
data clsh (2, 74) / -0.15659959028214_wp /
data hcount (2, 74) / 2.00000000000000_wp /
data ascale (2, 74) / 1.00000000000000_wp /
data refcovcn(2, 74) / 1.84852525804219_wp /
data refcn (2, 74) / 1.92915611172061_wp /
data refsys (2, 74) / 1 /
data alphaiw(:,2, 74) / &
& 57.9535230_wp, 54.3254100_wp, 47.3716060_wp, 35.2077750_wp, &
& 26.9133880_wp, 21.1900880_wp, 17.1120840_wp, 14.1184440_wp, &
& 11.8610010_wp, 10.1176970_wp, 8.7429580_wp, 7.6387710_wp, &
& 5.9912880_wp, 4.8355390_wp, 3.9899060_wp, 3.3503580_wp, &
& 2.8537360_wp, 2.0050600_wp, 1.4831160_wp, 0.9012110_wp, &
& 0.6023820_wp, 0.2816950_wp, 0.1617650_wp /
! REF WH12 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 74) / -0.88683226154612_wp /
data refh (3, 74) / 0.07390268846218_wp /
data gffq (3, 74) / 0.23020705290823_wp /
data gffh (3, 74) / -0.01918392107569_wp /
data dftq (3, 74) / 0.02443500000000_wp /
data dfth (3, 74) / -0.00206916666667_wp /
data pbcq (3, 74) / -0.88683226154612_wp /
data pbch (3, 74) / 0.07390268846218_wp /
data clsq (3, 74) / 0.23020705290823_wp /
data clsh (3, 74) / -0.01918392107569_wp /
data hcount (3, 74) / 12.00000000000000_wp /
data ascale (3, 74) / 1.00000000000000_wp /
data refcovcn(3, 74) / 10.44998431099169_wp /
data refcn (3, 74) / 10.91528020745492_wp /
data refsys (3, 74) / 1 /
data alphaiw(:,3, 74) / &
& 69.9811980_wp, 68.7138070_wp, 65.3381200_wp, 55.7596720_wp, &
& 46.2137800_wp, 38.1741940_wp, 31.7064340_wp, 26.5625450_wp, &
& 22.4690330_wp, 19.1923040_wp, 16.5475190_wp, 14.3927290_wp, &
& 11.1480040_wp, 8.8712130_wp, 7.2191730_wp, 5.9850930_wp, &
& 5.0399870_wp, 3.4609450_wp, 2.5183910_wp, 1.4990770_wp, &
& 0.9903650_wp, 0.4569140_wp, 0.2609890_wp /
data refn(74) / 3 /
! REF Re - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 75) / 0.00000000000001_wp /
data refh (1, 75) / 0.00000000000000_wp /
data gffq (1, 75) / 0.00000000000000_wp /
data gffh (1, 75) / 0.00000000000000_wp /
data dftq (1, 75) / 0.00000000000001_wp /
data dfth (1, 75) / 0.00000000000000_wp /
data pbcq (1, 75) / 0.00000000000001_wp /
data pbch (1, 75) / 0.00000000000000_wp /
data clsq (1, 75) / 0.00000000000000_wp /
data clsh (1, 75) / 0.00000000000000_wp /
data hcount (1, 75) / 0.00000000000000_wp /
data ascale (1, 75) / 1.00000000000000_wp /
data refcovcn(1, 75) / 0.00000000000000_wp /
data refcn (1, 75) / 0.00000000000000_wp /
data refsys (1, 75) / 1 /
data alphaiw(:,1, 75) / &
& 70.9067150_wp, 65.7037140_wp, 55.2189840_wp, 36.8309030_wp, &
& 25.6365300_wp, 19.0080410_wp, 14.8342930_wp, 12.0225100_wp, &
& 10.0181560_wp, 8.5243540_wp, 7.3716210_wp, 6.4572650_wp, &
& 5.1034730_wp, 4.1544350_wp, 3.4564620_wp, 2.9246120_wp, &
& 2.5081950_wp, 1.7869670_wp, 1.3354090_wp, 0.8224190_wp, &
& 0.5541320_wp, 0.2617050_wp, 0.1509270_wp /
! REF ReH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 75) / 0.24763704610429_wp /
data refh (2, 75) / -0.12381852305011_wp /
data gffq (2, 75) / 0.10191716059118_wp /
data gffh (2, 75) / -0.05095858029559_wp /
data dftq (2, 75) / 0.38630100000000_wp /
data dfth (2, 75) / -0.19315100000000_wp /
data pbcq (2, 75) / 0.24763704610429_wp /
data pbch (2, 75) / -0.12381852305011_wp /
data clsq (2, 75) / 0.10191716059118_wp /
data clsh (2, 75) / -0.05095858029559_wp /
data hcount (2, 75) / 2.00000000000000_wp /
data ascale (2, 75) / 1.00000000000000_wp /
data refcovcn(2, 75) / 1.69673556648333_wp /
data refcn (2, 75) / 1.81037867017969_wp /
data refsys (2, 75) / 1 /
data alphaiw(:,2, 75) / &
& 63.2047780_wp, 58.0228720_wp, 48.8925050_wp, 34.6221050_wp, &
& 25.8457800_wp, 20.1387260_wp, 16.1920480_wp, 13.3396770_wp, &
& 11.2072140_wp, 9.5682700_wp, 8.2790220_wp, 7.2445840_wp, &
& 5.7011200_wp, 4.6167910_wp, 3.8216470_wp, 3.2187300_wp, &
& 2.7492670_wp, 1.9432630_wp, 1.4442130_wp, 0.8833880_wp, &
& 0.5929380_wp, 0.2787900_wp, 0.1604910_wp /
! REF ReH11 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 75) / -1.18136092555004_wp /
data refh (3, 75) / 0.10739644777728_wp /
data gffq (3, 75) / -0.03451303623343_wp /
data gffh (3, 75) / 0.00313754874849_wp /
data dftq (3, 75) / -0.03064000000000_wp /
data dfth (3, 75) / 0.00271545454545_wp /
data pbcq (3, 75) / -1.18136092555004_wp /
data pbch (3, 75) / 0.10739644777728_wp /
data clsq (3, 75) / -0.03451303623343_wp /
data clsh (3, 75) / 0.00313754874849_wp /
data hcount (3, 75) / 11.00000000000000_wp /
data ascale (3, 75) / 1.00000000000000_wp /
data refcovcn(3, 75) / 9.19053013143453_wp /
data refcn (3, 75) / 9.80535616498394_wp /
data refsys (3, 75) / 1 /
data alphaiw(:,3, 75) / &
& 61.9391170_wp, 61.0033150_wp, 58.4522600_wp, 50.8001250_wp, &
& 42.6897350_wp, 35.5953060_wp, 29.7653350_wp, 25.0690300_wp, &
& 21.2990290_wp, 18.2612110_wp, 15.7959520_wp, 13.7781660_wp, &
& 10.7227960_wp, 8.5655510_wp, 6.9926320_wp, 5.8130460_wp, &
& 4.9067170_wp, 3.3857530_wp, 2.4728560_wp, 1.4797000_wp, &
& 0.9808630_wp, 0.4545450_wp, 0.2601570_wp /
data refn(75) / 3 /
! REF Os - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 76) / 0.00000000032846_wp /
data refh (1, 76) / 0.00000000000000_wp /
data gffq (1, 76) / 0.00000000000000_wp /
data gffh (1, 76) / 0.00000000000000_wp /
data dftq (1, 76) / 0.00000000032846_wp /
data dfth (1, 76) / 0.00000000000000_wp /
data pbcq (1, 76) / 0.00000000032846_wp /
data pbch (1, 76) / 0.00000000000000_wp /
data clsq (1, 76) / 0.00000000000000_wp /
data clsh (1, 76) / 0.00000000000000_wp /
data hcount (1, 76) / 0.00000000000000_wp /
data ascale (1, 76) / 1.00000000000000_wp /
data refcovcn(1, 76) / 0.00000000000000_wp /
data refcn (1, 76) / 0.00000000000000_wp /
data refsys (1, 76) / 1 /
data alphaiw(:,1, 76) / &
& 59.6083520_wp, 56.2806020_wp, 48.8648650_wp, 34.1600550_wp, &
& 24.4374970_wp, 18.4318460_wp, 14.5524170_wp, 11.8947470_wp, &
& 9.9775490_wp, 8.5355150_wp, 7.4142660_wp, 6.5190680_wp, &
& 5.1830340_wp, 4.2381040_wp, 3.5384920_wp, 3.0026950_wp, &
& 2.5815390_wp, 1.8484760_wp, 1.3867840_wp, 0.8588690_wp, &
& 0.5808420_wp, 0.2757360_wp, 0.1594300_wp /
! REF OsH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 76) / 0.39810831827982_wp /
data refh (2, 76) / -0.19905415913991_wp /
data gffq (2, 76) / 0.19864391765550_wp /
data gffh (2, 76) / -0.09932195882775_wp /
data dftq (2, 76) / 0.23559700000000_wp /
data dfth (2, 76) / -0.11780200000000_wp /
data pbcq (2, 76) / 0.39810831827982_wp /
data pbch (2, 76) / -0.19905415913991_wp /
data clsq (2, 76) / 0.19864391765550_wp /
data clsh (2, 76) / -0.09932195882775_wp /
data hcount (2, 76) / 2.00000000000000_wp /
data ascale (2, 76) / 1.00000000000000_wp /
data refcovcn(2, 76) / 1.85014246784508_wp /
data refcn (2, 76) / 1.88576348924552_wp /
data refsys (2, 76) / 1 /
data alphaiw(:,2, 76) / &
& 46.6731420_wp, 44.2599930_wp, 40.9119690_wp, 32.7985670_wp, &
& 25.8416100_wp, 20.6679230_wp, 16.8773970_wp, 14.0534960_wp, &
& 11.9009790_wp, 10.2230790_wp, 8.8884890_wp, 7.8079950_wp, &
& 6.1792880_wp, 5.0231940_wp, 4.1694910_wp, 3.5191180_wp, &
& 3.0110530_wp, 2.1356650_wp, 1.5915890_wp, 0.9776240_wp, &
& 0.6581110_wp, 0.3107410_wp, 0.1792660_wp /
! REF OsH10 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 76) / -0.74972152576721_wp /
data refh (3, 76) / 0.07497215257672_wp /
data gffq (3, 76) / -0.06474020857185_wp /
data gffh (3, 76) / 0.00647402085719_wp /
data dftq (3, 76) / -0.02303200000000_wp /
data dfth (3, 76) / 0.00228800000000_wp /
data pbcq (3, 76) / -0.74972152576721_wp /
data pbch (3, 76) / 0.07497215257672_wp /
data clsq (3, 76) / -0.06474020857185_wp /
data clsh (3, 76) / 0.00647402085719_wp /
data hcount (3, 76) / 10.00000000000000_wp /
data ascale (3, 76) / 1.00000000000000_wp /
data refcovcn(3, 76) / 8.97974115543403_wp /
data refcn (3, 76) / 9.15269257898964_wp /
data refsys (3, 76) / 1 /
data alphaiw(:,3, 76) / &
& 55.8892400_wp, 55.1763930_wp, 53.1894280_wp, 46.9039320_wp, &
& 39.8479720_wp, 33.4618590_wp, 28.1191240_wp, 23.7725720_wp, &
& 20.2616430_wp, 17.4199010_wp, 15.1054600_wp, 13.2052620_wp, &
& 10.3167870_wp, 8.2680590_wp, 6.7685540_wp, 5.6403850_wp, &
& 4.7711490_wp, 3.3068100_wp, 2.4236090_wp, 1.4575360_wp, &
& 0.9693850_wp, 0.4512540_wp, 0.2588140_wp /
data refn(76) / 3 /
! REF Ir - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 77) / 0.00000000016428_wp /
data refh (1, 77) / 0.00000000000000_wp /
data gffq (1, 77) / 0.00000000000000_wp /
data gffh (1, 77) / 0.00000000000000_wp /
data dftq (1, 77) / 0.00000000016428_wp /
data dfth (1, 77) / 0.00000000000000_wp /
data pbcq (1, 77) / 0.00000000016428_wp /
data pbch (1, 77) / 0.00000000000000_wp /
data clsq (1, 77) / 0.00000000000000_wp /
data clsh (1, 77) / 0.00000000000000_wp /
data hcount (1, 77) / 0.00000000000000_wp /
data ascale (1, 77) / 1.00000000000000_wp /
data refcovcn(1, 77) / 0.00000000000000_wp /
data refcn (1, 77) / 0.00000000000000_wp /
data refsys (1, 77) / 1 /
data alphaiw(:,1, 77) / &
& 51.5493740_wp, 49.2234270_wp, 43.7106450_wp, 31.7225470_wp, &
& 23.2089290_wp, 17.7566590_wp, 14.1614650_wp, 11.6653050_wp, &
& 9.8468960_wp, 8.4684340_wp, 7.3894730_wp, 6.5229570_wp, &
& 5.2199510_wp, 4.2901010_wp, 3.5965860_wp, 3.0623010_wp, &
& 2.6403160_wp, 1.9013040_wp, 1.4325800_wp, 0.8926780_wp, &
& 0.6061140_wp, 0.2892620_wp, 0.1676580_wp /
! REF IrH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 77) / 0.25293750608113_wp /
data refh (2, 77) / -0.12646875304056_wp /
data gffq (2, 77) / -0.01399684403519_wp /
data gffh (2, 77) / 0.00699842201760_wp /
data dftq (2, 77) / 0.16170200000000_wp /
data dfth (2, 77) / -0.08085400000000_wp /
data pbcq (2, 77) / 0.25293750608113_wp /
data pbch (2, 77) / -0.12646875304056_wp /
data clsq (2, 77) / -0.01399684403519_wp /
data clsh (2, 77) / 0.00699842201760_wp /
data hcount (2, 77) / 2.00000000000000_wp /
data ascale (2, 77) / 1.00000000000000_wp /
data refcovcn(2, 77) / 1.82924504495576_wp /
data refcn (2, 77) / 1.86479126833318_wp /
data refsys (2, 77) / 1 /
data alphaiw(:,2, 77) / &
& 42.7200080_wp, 41.3931980_wp, 38.3655160_wp, 31.0080660_wp, &
& 24.6653650_wp, 19.9066380_wp, 16.3877970_wp, 13.7425380_wp, &
& 11.7090270_wp, 10.1115020_wp, 8.8318110_wp, 7.7890930_wp, &
& 6.2044270_wp, 5.0689240_wp, 4.2241180_wp, 3.5767130_wp, &
& 3.0685910_wp, 2.1879850_wp, 1.6370730_wp, 1.0112500_wp, &
& 0.6832680_wp, 0.3242250_wp, 0.1874750_wp /
! REF IrH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 77) / 0.07099664544311_wp /
data refh (3, 77) / -0.02366554848104_wp /
data gffq (3, 77) / -0.04786532465344_wp /
data gffh (3, 77) / 0.01595510821781_wp /
data dftq (3, 77) / 0.08571000000000_wp /
data dfth (3, 77) / -0.02856700000000_wp /
data pbcq (3, 77) / 0.07099664544311_wp /
data pbch (3, 77) / -0.02366554848104_wp /
data clsq (3, 77) / -0.04786532465344_wp /
data clsh (3, 77) / 0.01595510821781_wp /
data hcount (3, 77) / 3.00000000000000_wp /
data ascale (3, 77) / 1.00000000000000_wp /
data refcovcn(3, 77) / 2.88910972828218_wp /
data refcn (3, 77) / 2.94241057251882_wp /
data refsys (3, 77) / 1 /
data alphaiw(:,3, 77) / &
& 40.1998410_wp, 39.0125180_wp, 36.3126410_wp, 30.1829760_wp, &
& 24.8286850_wp, 20.5587890_wp, 17.2259500_wp, 14.6163560_wp, &
& 12.5495230_wp, 10.8901200_wp, 9.5396530_wp, 8.4265790_wp, &
& 6.7165300_wp, 5.4810030_wp, 4.5587850_wp, 3.8517520_wp, &
& 3.2974500_wp, 2.3400930_wp, 1.7446250_wp, 1.0727640_wp, &
& 0.7229650_wp, 0.3420560_wp, 0.1975510_wp /
! REF IrH4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 77) / 0.08089441537446_wp /
data refh (4, 77) / -0.02022360384360_wp /
data gffq (4, 77) / -0.07756443085155_wp /
data gffh (4, 77) / 0.01939110771289_wp /
data dftq (4, 77) / 0.08089441537446_wp /
data dfth (4, 77) / -0.02022360384360_wp /
data pbcq (4, 77) / 0.08089441537446_wp /
data pbch (4, 77) / -0.02022360384360_wp /
data clsq (4, 77) / -0.07756443085155_wp /
data clsh (4, 77) / 0.01939110771289_wp /
data hcount (4, 77) / 4.00000000000000_wp /
data ascale (4, 77) / 1.00000000000000_wp /
data refcovcn(4, 77) / 3.78801363268039_wp /
data refcn (4, 77) / 3.85906061728294_wp /
data refsys (4, 77) / 1 /
data alphaiw(:,4, 77) / &
& 43.2638615_wp, 41.8727089_wp, 38.9775692_wp, 32.5354682_wp, &
& 26.8687902_wp, 22.3369089_wp, 18.7845502_wp, 15.9853930_wp, &
& 13.7519014_wp, 11.9455547_wp, 10.4662014_wp, 9.2409010_wp, &
& 7.3500768_wp, 5.9807691_wp, 4.9594258_wp, 4.1782069_wp, &
& 3.5675888_wp, 2.5185219_wp, 1.8706839_wp, 1.1451485_wp, &
& 0.7699740_wp, 0.3635000_wp, 0.2098079_wp /
! REF IrH5 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (5, 77) / 0.07168988850722_wp /
data refh (5, 77) / -0.01433797770974_wp /
data gffq (5, 77) / -0.12042733196092_wp /
data gffh (5, 77) / 0.02408546639218_wp /
data dftq (5, 77) / 0.16674200000000_wp /
data dfth (5, 77) / -0.03334960000000_wp /
data pbcq (5, 77) / 0.07168988850722_wp /
data pbch (5, 77) / -0.01433797770974_wp /
data clsq (5, 77) / -0.12042733196092_wp /
data clsh (5, 77) / 0.02408546639218_wp /
data hcount (5, 77) / 5.00000000000000_wp /
data ascale (5, 77) / 1.00000000000000_wp /
data refcovcn(5, 77) / 4.66121308138933_wp /
data refcn (5, 77) / 4.74946213886664_wp /
data refsys (5, 77) / 1 /
data alphaiw(:,5, 77) / &
& 49.3567100_wp, 48.1701200_wp, 45.3609500_wp, 38.0546700_wp, &
& 31.0840500_wp, 25.4572400_wp, 21.1008600_wp, 17.7296600_wp, &
& 15.0901300_wp, 12.9932400_wp, 11.3032400_wp, 9.9227200_wp, &
& 7.8265900_wp, 6.3334100_wp, 5.2320700_wp, 4.3961000_wp, &
& 3.7462100_wp, 2.6360300_wp, 1.9540400_wp, 1.1932200_wp, &
& 0.8010500_wp, 0.3773100_wp, 0.2175100_wp /
data refn(77) / 5 /
! REF Pt - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 78) / 0.00000000000057_wp /
data refh (1, 78) / 0.00000000000000_wp /
data gffq (1, 78) / 0.00000000000000_wp /
data gffh (1, 78) / 0.00000000000000_wp /
data dftq (1, 78) / 0.00000000000057_wp /
data dfth (1, 78) / 0.00000000000000_wp /
data pbcq (1, 78) / 0.00000000000057_wp /
data pbch (1, 78) / 0.00000000000000_wp /
data clsq (1, 78) / 0.00000000000000_wp /
data clsh (1, 78) / 0.00000000000000_wp /
data hcount (1, 78) / 0.00000000000000_wp /
data ascale (1, 78) / 1.00000000000000_wp /
data refcovcn(1, 78) / 0.00000000000000_wp /
data refcn (1, 78) / 0.00000000000000_wp /
data refsys (1, 78) / 1 /
data alphaiw(:,1, 78) / &
& 41.1424820_wp, 39.3180510_wp, 35.0148090_wp, 25.8710280_wp, &
& 19.5216660_wp, 15.4256100_wp, 12.6507620_wp, 10.6590770_wp, &
& 9.1609870_wp, 7.9929620_wp, 7.0565850_wp, 6.2892190_wp, &
& 5.1074490_wp, 4.2422610_wp, 3.5845540_wp, 3.0705210_wp, &
& 2.6600560_wp, 1.9319420_wp, 1.4641410_wp, 0.9193200_wp, &
& 0.6271910_wp, 0.3012380_wp, 0.1751400_wp /
! REF PtH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 78) / 0.06077075971517_wp /
data refh (2, 78) / -0.03038537970592_wp /
data gffq (2, 78) / 0.00248540621951_wp /
data gffh (2, 78) / -0.00124270310976_wp /
data dftq (2, 78) / 0.11602300000000_wp /
data dfth (2, 78) / -0.05800900000000_wp /
data pbcq (2, 78) / 0.06077075971517_wp /
data pbch (2, 78) / -0.03038537970592_wp /
data clsq (2, 78) / 0.00248540621951_wp /
data clsh (2, 78) / -0.00124270310976_wp /
data hcount (2, 78) / 2.00000000000000_wp /
data ascale (2, 78) / 1.00000000000000_wp /
data refcovcn(2, 78) / 1.86072268763509_wp /
data refcn (2, 78) / 1.91881173481654_wp /
data refsys (2, 78) / 1 /
data alphaiw(:,2, 78) / &
& 40.5572290_wp, 39.3599010_wp, 36.5944450_wp, 29.7359090_wp, &
& 23.7699580_wp, 19.2758940_wp, 15.9444510_wp, 13.4329020_wp, &
& 11.4953860_wp, 9.9672740_wp, 8.7381500_wp, 7.7325090_wp, &
& 6.1953270_wp, 5.0856920_wp, 4.2547590_wp, 3.6144440_wp, &
& 3.1095350_wp, 2.2291660_wp, 1.6746000_wp, 1.0403320_wp, &
& 0.7055790_wp, 0.3365800_wp, 0.1951260_wp /
! REF PtH8 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 78) / -1.31315249908318_wp /
data refh (3, 78) / 0.16414406238540_wp /
data gffq (3, 78) / 0.10111888298865_wp /
data gffh (3, 78) / -0.01263986037358_wp /
data dftq (3, 78) / -0.04335400000000_wp /
data dfth (3, 78) / 0.00543325000000_wp /
data pbcq (3, 78) / -1.31315249908318_wp /
data pbch (3, 78) / 0.16414406238540_wp /
data clsq (3, 78) / 0.10111888298865_wp /
data clsh (3, 78) / -0.01263986037358_wp /
data hcount (3, 78) / 8.00000000000000_wp /
data ascale (3, 78) / 1.00000000000000_wp /
data refcovcn(3, 78) / 6.46855936294889_wp /
data refcn (3, 78) / 6.66687770578862_wp /
data refsys (3, 78) / 1 /
data alphaiw(:,3, 78) / &
& 54.9491410_wp, 53.9578470_wp, 51.3088730_wp, 43.7409950_wp, &
& 36.2053630_wp, 29.9365010_wp, 24.9624590_wp, 21.0441630_wp, &
& 17.9395030_wp, 15.4543750_wp, 13.4423040_wp, 11.7944940_wp, &
& 9.2888530_wp, 7.5040460_wp, 6.1891800_wp, 5.1927300_wp, &
& 4.4193840_wp, 3.1019380_wp, 2.2955520_wp, 1.3992410_wp, &
& 0.9386560_wp, 0.4419430_wp, 0.2547950_wp /
data refn(78) / 3 /
! REF Au - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 79) / -0.00000000000000_wp /
data refh (1, 79) / 0.00000000000000_wp /
data gffq (1, 79) / 0.00000000000000_wp /
data gffh (1, 79) / 0.00000000000000_wp /
data dftq (1, 79) / -0.00000000000000_wp /
data dfth (1, 79) / 0.00000000000000_wp /
data pbcq (1, 79) / -0.00000000000000_wp /
data pbch (1, 79) / 0.00000000000000_wp /
data clsq (1, 79) / 0.00000000000000_wp /
data clsh (1, 79) / 0.00000000000000_wp /
data hcount (1, 79) / 0.00000000000000_wp /
data ascale (1, 79) / 1.00000000000000_wp /
data refcovcn(1, 79) / 0.00000000000000_wp /
data refcn (1, 79) / 0.00000000000000_wp /
data refsys (1, 79) / 1 /
data alphaiw(:,1, 79) / &
& 37.7290460_wp, 36.1091840_wp, 32.2722340_wp, 24.0716250_wp, &
& 18.3385860_wp, 14.6143630_wp, 12.0774260_wp, 10.2474000_wp, &
& 8.8635320_wp, 7.7783310_wp, 6.9031680_wp, 6.1817050_wp, &
& 5.0613040_wp, 4.2321700_wp, 3.5957550_wp, 3.0941580_wp, &
& 2.6907340_wp, 1.9683670_wp, 1.4994510_wp, 0.9481020_wp, &
& 0.6497440_wp, 0.3139430_wp, 0.1830170_wp /
! REF AuH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 79) / 0.16039939518296_wp /
data refh (2, 79) / -0.16039939518296_wp /
data gffq (2, 79) / 0.02560952126341_wp /
data gffh (2, 79) / -0.02560952126341_wp /
data dftq (2, 79) / 0.02534000000000_wp /
data dfth (2, 79) / -0.02534200000000_wp /
data pbcq (2, 79) / 0.16039939518296_wp /
data pbch (2, 79) / -0.16039939518296_wp /
data clsq (2, 79) / 0.02560952126341_wp /
data clsh (2, 79) / -0.02560952126341_wp /
data hcount (2, 79) / 1.00000000000000_wp /
data ascale (2, 79) / 1.00000000000000_wp /
data refcovcn(2, 79) / 0.91830179564855_wp /
data refcn (2, 79) / 0.98458933772055_wp /
data refsys (2, 79) / 1 /
data alphaiw(:,2, 79) / &
& 36.6153320_wp, 35.4187520_wp, 32.5691470_wp, 25.9574740_wp, &
& 20.5780280_wp, 16.6720520_wp, 13.8374270_wp, 11.7244450_wp, &
& 10.1016410_wp, 8.8215770_wp, 7.7887820_wp, 6.9395760_wp, &
& 5.6295900_wp, 4.6707850_wp, 3.9429090_wp, 3.3749190_wp, &
& 2.9220340_wp, 2.1203720_wp, 1.6065850_wp, 1.0093190_wp, &
& 0.6892520_wp, 0.3316860_wp, 0.1930410_wp /
data refn(79) / 2 /
! REF Hg - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 80) / 0.0_wp /
data refh (1, 80) / 0.00000000000000_wp /
data gffq (1, 80) / 0.00000000000000_wp /
data gffh (1, 80) / 0.00000000000000_wp /
data dftq (1, 80) / 0.0_wp /
data dfth (1, 80) / 0.00000000000000_wp /
data pbcq (1, 80) / 0.0_wp /
data pbch (1, 80) / 0.00000000000000_wp /
data clsq (1, 80) / 0.00000000000000_wp /
data clsh (1, 80) / 0.00000000000000_wp /
data hcount (1, 80) / 0.00000000000000_wp /
data ascale (1, 80) / 1.00000000000000_wp /
data refcovcn(1, 80) / 0.00000000000000_wp /
data refcn (1, 80) / 0.00000000000000_wp /
data refsys (1, 80) / 1 /
data alphaiw(:,1, 80) / &
& 37.1668150_wp, 35.9903170_wp, 32.9876470_wp, 25.5237630_wp, &
& 19.5407590_wp, 15.4358360_wp, 12.6124980_wp, 10.5949600_wp, &
& 9.0927810_wp, 7.9334090_wp, 7.0116660_wp, 6.2609290_wp, &
& 5.1108470_wp, 4.2707020_wp, 3.6306640_wp, 3.1280940_wp, &
& 2.7244100_wp, 2.0009140_wp, 1.5295470_wp, 0.9722000_wp, &
& 0.6686340_wp, 0.3246570_wp, 0.1896630_wp /
! REF HgH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 80) / -0.04321502684659_wp /
data refh (2, 80) / 0.02160751342330_wp /
data gffq (2, 80) / 0.11991146919920_wp /
data gffh (2, 80) / -0.05995573459960_wp /
data dftq (2, 80) / 0.23877800000000_wp /
data dfth (2, 80) / -0.11938700000000_wp /
data pbcq (2, 80) / -0.04321502684659_wp /
data pbch (2, 80) / 0.02160751342330_wp /
data clsq (2, 80) / 0.11991146919920_wp /
data clsh (2, 80) / -0.05995573459960_wp /
data hcount (2, 80) / 2.00000000000000_wp /
data ascale (2, 80) / 1.00000000000000_wp /
data refcovcn(2, 80) / 1.89515764632510_wp /
data refcn (2, 80) / 1.98963020776929_wp /
data refsys (2, 80) / 1 /
data alphaiw(:,2, 80) / &
& 35.5596890_wp, 34.9453750_wp, 33.2600440_wp, 28.2046230_wp, &
& 23.0451020_wp, 18.8299000_wp, 15.6024300_wp, 13.1484490_wp, &
& 11.2575930_wp, 9.7724990_wp, 8.5831260_wp, 7.6133220_wp, &
& 6.1348920_wp, 5.0678290_wp, 4.2663670_wp, 3.6457370_wp, &
& 3.1535120_wp, 2.2866750_wp, 1.7331020_wp, 1.0902810_wp, &
& 0.7455680_wp, 0.3596280_wp, 0.2095320_wp /
data refn(80) / 2 /
! REF Tl - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 81) / -0.00000000000001_wp /
data refh (1, 81) / 0.00000000000000_wp /
data gffq (1, 81) / 0.00000000000000_wp /
data gffh (1, 81) / 0.00000000000000_wp /
data dftq (1, 81) / -0.00000000000001_wp /
data dfth (1, 81) / 0.00000000000000_wp /
data pbcq (1, 81) / -0.00000000000001_wp /
data pbch (1, 81) / 0.00000000000000_wp /
data clsq (1, 81) / 0.00000000000000_wp /
data clsh (1, 81) / 0.00000000000000_wp /
data hcount (1, 81) / 0.00000000000000_wp /
data ascale (1, 81) / 1.00000000000000_wp /
data refcovcn(1, 81) / 0.00000000000000_wp /
data refcn (1, 81) / 0.00000000000000_wp /
data refsys (1, 81) / 1 /
data alphaiw(:,1, 81) / &
& 75.4787320_wp, 66.9797680_wp, 52.7293310_wp, 33.2800020_wp, &
& 23.1647510_wp, 17.3598020_wp, 13.7123950_wp, 11.2540670_wp, &
& 9.5015210_wp, 8.1942640_wp, 7.1828260_wp, 6.3767320_wp, &
& 5.1706100_wp, 4.3089140_wp, 3.6612600_wp, 3.1566110_wp, &
& 2.7528300_wp, 2.0300880_wp, 1.5579660_wp, 0.9964200_wp, &
& 0.6883510_wp, 0.3365720_wp, 0.1974540_wp /
! REF TlH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 81) / 0.30915981534272_wp /
data refh (2, 81) / -0.30915981534272_wp /
data gffq (2, 81) / 0.05732791283824_wp /
data gffh (2, 81) / -0.05732791283824_wp /
data dftq (2, 81) / -0.01288900000000_wp /
data dfth (2, 81) / 0.01289000000000_wp /
data pbcq (2, 81) / 0.30915981534272_wp /
data pbch (2, 81) / -0.30915981534272_wp /
data clsq (2, 81) / 0.05732791283824_wp /
data clsh (2, 81) / -0.05732791283824_wp /
data hcount (2, 81) / 1.00000000000000_wp /
data ascale (2, 81) / 1.00000000000000_wp /
data refcovcn(2, 81) / 0.83218042800594_wp /
data refcn (2, 81) / 0.92674492705574_wp /
data refsys (2, 81) / 1 /
data alphaiw(:,2, 81) / &
& 73.7909520_wp, 67.2077030_wp, 55.1633950_wp, 36.6818870_wp, &
& 26.1091350_wp, 19.7299200_wp, 15.6034900_wp, 12.7753400_wp, &
& 10.7414800_wp, 9.2191530_wp, 8.0412980_wp, 7.1046070_wp, &
& 5.7107080_wp, 4.7240350_wp, 3.9895440_wp, 3.4223730_wp, &
& 2.9722160_wp, 2.1752900_wp, 1.6611010_wp, 1.0561290_wp, &
& 0.7272340_wp, 0.3542350_wp, 0.2074800_wp /
! REF TlH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 81) / 0.08292819294371_wp /
data refh (3, 81) / -0.04146409647185_wp /
data gffq (3, 81) / 0.10187349213041_wp /
data gffh (3, 81) / -0.05093674606521_wp /
data dftq (3, 81) / 0.22888700000000_wp /
data dfth (3, 81) / -0.11444800000000_wp /
data pbcq (3, 81) / 0.08292819294371_wp /
data pbch (3, 81) / -0.04146409647185_wp /
data clsq (3, 81) / 0.10187349213041_wp /
data clsh (3, 81) / -0.05093674606521_wp /
data hcount (3, 81) / 2.00000000000000_wp /
data ascale (3, 81) / 1.00000000000000_wp /
data refcovcn(3, 81) / 1.73451304607259_wp /
data refcn (3, 81) / 1.93019298965987_wp /
data refsys (3, 81) / 1 /
data alphaiw(:,3, 81) / &
& 51.2159910_wp, 49.0618590_wp, 44.5281440_wp, 34.5954290_wp, &
& 26.6152220_wp, 20.8897950_wp, 16.8343740_wp, 13.9090070_wp, &
& 11.7406120_wp, 10.0876440_wp, 8.7945760_wp, 7.7596980_wp, &
& 6.2135910_wp, 5.1188320_wp, 4.3061810_wp, 3.6812160_wp, &
& 3.1873790_wp, 2.3191740_wp, 1.7638260_wp, 1.1158640_wp, &
& 0.7661990_wp, 0.3719620_wp, 0.2175450_wp /
! REF TlH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 81) / -0.09717467138010_wp /
data refh (4, 81) / 0.03239155712670_wp /
data gffq (4, 81) / 0.14012325640618_wp /
data gffh (4, 81) / -0.04670775213539_wp /
data dftq (4, 81) / 0.32497300000000_wp /
data dfth (4, 81) / -0.10832333333333_wp /
data pbcq (4, 81) / -0.09717467138010_wp /
data pbch (4, 81) / 0.03239155712670_wp /
data clsq (4, 81) / 0.14012325640618_wp /
data clsh (4, 81) / -0.04670775213539_wp /
data hcount (4, 81) / 3.00000000000000_wp /
data ascale (4, 81) / 1.00000000000000_wp /
data refcovcn(4, 81) / 2.64455909521743_wp /
data refcn (4, 81) / 2.94201332191403_wp /
data refsys (4, 81) / 1 /
data alphaiw(:,4, 81) / &
& 44.4232940_wp, 43.5695950_wp, 41.2468990_wp, 34.4223640_wp, &
& 27.6300950_wp, 22.1919640_wp, 18.1026400_wp, 15.0481770_wp, &
& 12.7356250_wp, 10.9495660_wp, 9.5411710_wp, 8.4086990_wp, &
& 6.7118360_wp, 5.5101390_wp, 4.6201450_wp, 3.9379650_wp, &
& 3.4008700_wp, 2.4620390_wp, 1.8658870_wp, 1.1752790_wp, &
& 0.8049870_wp, 0.3896270_wp, 0.2275810_wp /
data refn(81) / 4 /
! REF Pb - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 82) / -0.00000000000001_wp /
data refh (1, 82) / 0.00000000000000_wp /
data gffq (1, 82) / 0.00000000000000_wp /
data gffh (1, 82) / 0.00000000000000_wp /
data dftq (1, 82) / -0.00000000000001_wp /
data dfth (1, 82) / 0.00000000000000_wp /
data pbcq (1, 82) / -0.00000000000001_wp /
data pbch (1, 82) / 0.00000000000000_wp /
data clsq (1, 82) / 0.00000000000000_wp /
data clsh (1, 82) / 0.00000000000000_wp /
data hcount (1, 82) / 0.00000000000000_wp /
data ascale (1, 82) / 1.00000000000000_wp /
data refcovcn(1, 82) / 0.00000000000000_wp /
data refcn (1, 82) / 0.00000000000000_wp /
data refsys (1, 82) / 1 /
data alphaiw(:,1, 82) / &
& 63.2905510_wp, 59.5286430_wp, 51.2607860_wp, 35.4025850_wp, &
& 25.1394190_wp, 18.7947900_wp, 14.7040930_wp, 11.9322080_wp, &
& 9.9660590_wp, 8.5145470_wp, 7.4056250_wp, 6.5334430_wp, &
& 5.2518040_wp, 4.3552580_wp, 3.6919830_wp, 3.1808980_wp, &
& 2.7750050_wp, 2.0530120_wp, 1.5823440_wp, 1.0201520_wp, &
& 0.7090500_wp, 0.3497720_wp, 0.2060120_wp /
! REF PbH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 82) / 0.25127061741389_wp /
data refh (2, 82) / -0.25127061741389_wp /
data gffq (2, 82) / 0.11449566751294_wp /
data gffh (2, 82) / -0.11449566751294_wp /
data dftq (2, 82) / 0.15350100000000_wp /
data dfth (2, 82) / -0.15350000000000_wp /
data pbcq (2, 82) / 0.25127061741389_wp /
data pbch (2, 82) / -0.25127061741389_wp /
data clsq (2, 82) / 0.11449566751294_wp /
data clsh (2, 82) / -0.11449566751294_wp /
data hcount (2, 82) / 1.00000000000000_wp /
data ascale (2, 82) / 1.00000000000000_wp /
data refcovcn(2, 82) / 0.90267202371440_wp /
data refcn (2, 82) / 0.93830467603587_wp /
data refsys (2, 82) / 1 /
data alphaiw(:,2, 82) / &
& 57.4725650_wp, 54.8466790_wp, 48.8575900_wp, 36.1749940_wp, &
& 26.8405620_wp, 20.5425950_wp, 16.2594910_wp, 13.2605030_wp, &
& 11.0893760_wp, 9.4661890_wp, 8.2168000_wp, 7.2301920_wp, &
& 5.7780700_wp, 4.7643580_wp, 4.0179560_wp, 3.4461300_wp, &
& 2.9946910_wp, 2.1989640_wp, 1.6860470_wp, 1.0800310_wp, &
& 0.7479170_wp, 0.3673300_wp, 0.2159550_wp /
! REF PbH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 82) / 0.36893958472478_wp /
data refh (3, 82) / -0.18446979236239_wp /
data gffq (3, 82) / 0.16758459323190_wp /
data gffh (3, 82) / -0.08379229661595_wp /
data dftq (3, 82) / 0.25734000000000_wp /
data dfth (3, 82) / -0.12867100000000_wp /
data pbcq (3, 82) / 0.36893958472478_wp /
data pbch (3, 82) / -0.18446979236239_wp /
data clsq (3, 82) / 0.16758459323190_wp /
data clsh (3, 82) / -0.08379229661595_wp /
data hcount (3, 82) / 2.00000000000000_wp /
data ascale (3, 82) / 1.00000000000000_wp /
data refcovcn(3, 82) / 1.86326667138745_wp /
data refcn (3, 82) / 1.93560176827475_wp /
data refsys (3, 82) / 1 /
data alphaiw(:,3, 82) / &
& 53.0414450_wp, 51.0751360_wp, 46.8366890_wp, 36.7990540_wp, &
& 28.3107680_wp, 22.1045460_wp, 17.6826350_wp, 14.4967630_wp, &
& 12.1481600_wp, 10.3717920_wp, 8.9944640_wp, 7.9020540_wp, &
& 6.2898170_wp, 5.1644070_wp, 4.3379580_wp, 3.7072310_wp, &
& 3.2113990_wp, 2.3434100_wp, 1.7888720_wp, 1.1395320_wp, &
& 0.7865880_wp, 0.3848350_wp, 0.2258800_wp /
! REF PbH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 82) / 0.20035516415189_wp /
data refh (4, 82) / -0.06678505471730_wp /
data gffq (4, 82) / 0.18265663815354_wp /
data gffh (4, 82) / -0.06088554605118_wp /
data dftq (4, 82) / 0.21484200000000_wp /
data dfth (4, 82) / -0.07161600000000_wp /
data pbcq (4, 82) / 0.20035516415189_wp /
data pbch (4, 82) / -0.06678505471730_wp /
data clsq (4, 82) / 0.18265663815354_wp /
data clsh (4, 82) / -0.06088554605118_wp /
data hcount (4, 82) / 3.00000000000000_wp /
data ascale (4, 82) / 1.00000000000000_wp /
data refcovcn(4, 82) / 2.79951773292937_wp /
data refcn (4, 82) / 2.90809757363721_wp /
data refsys (4, 82) / 1 /
data alphaiw(:,4, 82) / &
& 53.1115280_wp, 51.7198390_wp, 48.1733620_wp, 38.8959490_wp, &
& 30.4802980_wp, 24.0395110_wp, 19.3203190_wp, 15.8625500_wp, &
& 13.2876830_wp, 11.3287250_wp, 9.8050600_wp, 8.5950040_wp, &
& 6.8096590_wp, 5.5666540_wp, 4.6574470_wp, 3.9666200_wp, &
& 3.4259370_wp, 2.4857500_wp, 1.8900620_wp, 1.1981450_wp, &
& 0.8247670_wp, 0.4021920_wp, 0.2357430_wp /
! REF PbH4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (5, 82) / 0.01348187443840_wp /
data refh (5, 82) / -0.00337046860960_wp /
data gffq (5, 82) / 0.17825662719618_wp /
data gffh (5, 82) / -0.04456415679904_wp /
data dftq (5, 82) / 0.25957200000000_wp /
data dfth (5, 82) / -0.06489175000000_wp /
data pbcq (5, 82) / 0.01348187443840_wp /
data pbch (5, 82) / -0.00337046860960_wp /
data clsq (5, 82) / 0.17825662719618_wp /
data clsh (5, 82) / -0.04456415679904_wp /
data hcount (5, 82) / 4.00000000000000_wp /
data ascale (5, 82) / 1.00000000000000_wp /
data refcovcn(5, 82) / 3.76444392234350_wp /
data refcn (5, 82) / 3.90982050474815_wp /
data refsys (5, 82) / 1 /
data alphaiw(:,5, 82) / &
& 50.0879780_wp, 49.2042630_wp, 46.7719060_wp, 39.3982430_wp, &
& 31.7542100_wp, 25.4539200_wp, 20.6426050_wp, 17.0297710_wp, &
& 14.2980180_wp, 12.1992850_wp, 10.5566110_wp, 9.2468670_wp, &
& 7.3088260_wp, 5.9581810_wp, 4.9713460_wp, 4.2231630_wp, &
& 3.6391300_wp, 2.6281690_wp, 1.9916070_wp, 1.2570530_wp, &
& 0.8631290_wp, 0.4196110_wp, 0.2456340_wp /
data refn(82) / 5 /
! REF Bi - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 83) / -0.00000000000000_wp /
data refh (1, 83) / 0.00000000000000_wp /
data gffq (1, 83) / 0.00000000000000_wp /
data gffh (1, 83) / 0.00000000000000_wp /
data dftq (1, 83) / -0.00000000000000_wp /
data dfth (1, 83) / 0.00000000000000_wp /
data pbcq (1, 83) / -0.00000000000000_wp /
data pbch (1, 83) / 0.00000000000000_wp /
data clsq (1, 83) / 0.00000000000000_wp /
data clsh (1, 83) / 0.00000000000000_wp /
data hcount (1, 83) / 0.00000000000000_wp /
data ascale (1, 83) / 1.00000000000000_wp /
data refcovcn(1, 83) / 0.00000000000000_wp /
data refcn (1, 83) / 0.00000000000000_wp /
data refsys (1, 83) / 1 /
data alphaiw(:,1, 83) / &
& 51.1916750_wp, 49.4069930_wp, 44.9458450_wp, 34.1505430_wp, &
& 25.5045870_wp, 19.5073500_wp, 15.3898030_wp, 12.4998210_wp, &
& 10.4110930_wp, 8.8561170_wp, 7.6660440_wp, 6.7322080_wp, &
& 5.3700990_wp, 4.4292980_wp, 3.7418080_wp, 3.2175040_wp, &
& 2.8044220_wp, 2.0757420_wp, 1.6033620_wp, 1.0390450_wp, &
& 0.7253430_wp, 0.3603050_wp, 0.2129720_wp /
! REF BiH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 83) / 0.16648528849973_wp /
data refh (2, 83) / -0.16648528849972_wp /
data gffq (2, 83) / 0.04276095694715_wp /
data gffh (2, 83) / -0.04276095694715_wp /
data dftq (2, 83) / 0.08093600000000_wp /
data dfth (2, 83) / -0.08093500000000_wp /
data pbcq (2, 83) / 0.16648528849973_wp /
data pbch (2, 83) / -0.16648528849972_wp /
data clsq (2, 83) / 0.04276095694715_wp /
data clsh (2, 83) / -0.04276095694715_wp /
data hcount (2, 83) / 1.00000000000000_wp /
data ascale (2, 83) / 1.00000000000000_wp /
data refcovcn(2, 83) / 0.93840398774753_wp /
data refcn (2, 83) / 0.98198108329616_wp /
data refsys (2, 83) / 1 /
data alphaiw(:,2, 83) / &
& 51.6147800_wp, 50.0629560_wp, 46.1204110_wp, 36.1339090_wp, &
& 27.6118910_wp, 21.4077340_wp, 17.0101490_wp, 13.8592580_wp, &
& 11.5510200_wp, 9.8174290_wp, 8.4832410_wp, 7.4329030_wp, &
& 5.8982610_wp, 4.8394220_wp, 4.0683880_wp, 3.4831190_wp, &
& 3.0243540_wp, 2.2217570_wp, 1.7070420_wp, 1.0988490_wp, &
& 0.7641350_wp, 0.3778150_wp, 0.2228850_wp /
! REF BiH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 83) / 0.27582968178310_wp /
data refh (3, 83) / -0.13791484089155_wp /
data gffq (3, 83) / 0.06545183973370_wp /
data gffh (3, 83) / -0.03272591986685_wp /
data dftq (3, 83) / 0.14715900000000_wp /
data dfth (3, 83) / -0.07358900000000_wp /
data pbcq (3, 83) / 0.27582968178310_wp /
data pbch (3, 83) / -0.13791484089155_wp /
data clsq (3, 83) / 0.06545183973370_wp /
data clsh (3, 83) / -0.03272591986685_wp /
data hcount (3, 83) / 2.00000000000000_wp /
data ascale (3, 83) / 1.00000000000000_wp /
data refcovcn(3, 83) / 1.87829610127455_wp /
data refcn (3, 83) / 1.96550673996239_wp /
data refsys (3, 83) / 1 /
data alphaiw(:,3, 83) / &
& 51.7479250_wp, 50.4406230_wp, 47.0464190_wp, 37.9441110_wp, &
& 29.6097990_wp, 23.2406220_wp, 18.5881070_wp, 15.1912320_wp, &
& 12.6725630_wp, 10.7660510_wp, 9.2914280_wp, 8.1270340_wp, &
& 6.4226970_wp, 5.2472620_wp, 4.3934730_wp, 3.7477030_wp, &
& 3.2435420_wp, 2.3673900_wp, 1.8104910_wp, 1.1585430_wp, &
& 0.8028630_wp, 0.3953020_wp, 0.2327880_wp /
! REF BiH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (4, 83) / 0.35078718856604_wp /
data refh (4, 83) / -0.11692906285535_wp /
data gffq (4, 83) / 0.07662886467999_wp /
data gffh (4, 83) / -0.02554295489333_wp /
data dftq (4, 83) / 0.19820500000000_wp /
data dfth (4, 83) / -0.06606666666667_wp /
data pbcq (4, 83) / 0.35078718856604_wp /
data pbch (4, 83) / -0.11692906285535_wp /
data clsq (4, 83) / 0.07662886467999_wp /
data clsh (4, 83) / -0.02554295489333_wp /
data hcount (4, 83) / 3.00000000000000_wp /
data ascale (4, 83) / 1.00000000000000_wp /
data refcovcn(4, 83) / 2.81907131341312_wp /
data refcn (4, 83) / 2.94995150877077_wp /
data refsys (4, 83) / 1 /
data alphaiw(:,4, 83) / &
& 51.5178550_wp, 50.4932930_wp, 47.7156380_wp, 39.5948620_wp, &
& 31.5084490_wp, 25.0123180_wp, 20.1276560_wp, 16.4983230_wp, &
& 13.7774350_wp, 11.7031450_wp, 10.0914150_wp, 8.8151820_wp, &
& 6.9437270_wp, 5.6530110_wp, 4.7171930_wp, 4.0113480_wp, &
& 3.4620540_wp, 2.5126730_wp, 1.9137260_wp, 1.2181320_wp, &
& 0.8415320_wp, 0.4127710_wp, 0.2426840_wp /
data refn(83) / 4 /
! REF Po - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 84) / 0.00000000000001_wp /
data refh (1, 84) / 0.00000000000000_wp /
data gffq (1, 84) / 0.00000000000000_wp /
data gffh (1, 84) / 0.00000000000000_wp /
data dftq (1, 84) / 0.00000000000001_wp /
data dfth (1, 84) / 0.00000000000000_wp /
data pbcq (1, 84) / 0.00000000000001_wp /
data pbch (1, 84) / 0.00000000000000_wp /
data clsq (1, 84) / 0.00000000000000_wp /
data clsh (1, 84) / 0.00000000000000_wp /
data hcount (1, 84) / 0.00000000000000_wp /
data ascale (1, 84) / 1.00000000000000_wp /
data refcovcn(1, 84) / 0.00000000000000_wp /
data refcn (1, 84) / 0.00000000000000_wp /
data refsys (1, 84) / 1 /
data alphaiw(:,1, 84) / &
& 45.7354800_wp, 44.5177550_wp, 41.3554830_wp, 32.9793560_wp, &
& 25.5092680_wp, 19.9242900_wp, 15.8977680_wp, 12.9790260_wp, &
& 10.8242560_wp, 9.1984520_wp, 7.9445240_wp, 6.9570500_wp, &
& 5.5167450_wp, 4.5271540_wp, 3.8097850_wp, 3.2672340_wp, &
& 2.8429600_wp, 2.1014180_wp, 1.6245240_wp, 1.0563850_wp, &
& 0.7399150_wp, 0.3695680_wp, 0.2190670_wp /
! REF PoH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 84) / 0.13640050127609_wp /
data refh (2, 84) / -0.13640050127609_wp /
data gffq (2, 84) / -0.04479748091835_wp /
data gffh (2, 84) / 0.04479748091835_wp /
data dftq (2, 84) / 0.01268700000000_wp /
data dfth (2, 84) / -0.01268500000000_wp /
data pbcq (2, 84) / 0.13640050127609_wp /
data pbch (2, 84) / -0.13640050127609_wp /
data clsq (2, 84) / -0.04479748091835_wp /
data clsh (2, 84) / 0.04479748091835_wp /
data hcount (2, 84) / 1.00000000000000_wp /
data ascale (2, 84) / 1.00000000000000_wp /
data refcovcn(2, 84) / 0.93512916979697_wp /
data refcn (2, 84) / 0.98152738589119_wp /
data refsys (2, 84) / 1 /
data alphaiw(:,2, 84) / &
& 47.9831520_wp, 46.8085170_wp, 43.7444240_wp, 35.4613210_wp, &
& 27.8088110_wp, 21.9082420_wp, 17.5604940_wp, 14.3629380_wp, &
& 11.9797160_wp, 10.1702660_wp, 8.7691240_wp, 7.6631150_wp, &
& 6.0479100_wp, 4.9390680_wp, 4.1374920_wp, 3.5335950_wp, &
& 3.0634060_wp, 2.2476620_wp, 1.7283170_wp, 1.1162240_wp, &
& 0.7787240_wp, 0.3870890_wp, 0.2289900_wp /
! REF PoH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (3, 84) / 0.28152411931918_wp /
data refh (3, 84) / -0.14076205965959_wp /
data gffq (3, 84) / -0.02201995669726_wp /
data gffh (3, 84) / 0.01100997834863_wp /
data dftq (3, 84) / 0.01564400000000_wp /
data dfth (3, 84) / -0.00783200000000_wp /
data pbcq (3, 84) / 0.28152411931918_wp /
data pbch (3, 84) / -0.14076205965959_wp /
data clsq (3, 84) / -0.02201995669726_wp /
data clsh (3, 84) / 0.01100997834863_wp /
data hcount (3, 84) / 2.00000000000000_wp /
data ascale (3, 84) / 1.00000000000000_wp /
data refcovcn(3, 84) / 1.87110482058901_wp /
data refcn (3, 84) / 1.96393490432407_wp /
data refsys (3, 84) / 1 /
data alphaiw(:,3, 84) / &
& 49.9757880_wp, 48.8536140_wp, 45.9097740_wp, 37.7785020_wp, &
& 29.9993350_wp, 23.8231110_wp, 19.1794330_wp, 15.7185060_wp, &
& 13.1162960_wp, 11.1291240_wp, 9.5845740_wp, 8.3625420_wp, &
& 6.5753180_wp, 5.3486700_wp, 4.4636720_wp, 3.7988870_wp, &
& 3.2830670_wp, 2.3934820_wp, 1.8318420_wp, 1.1759270_wp, &
& 0.8174500_wp, 0.4045760_wp, 0.2388960_wp /
data refn(84) / 3 /
! REF At - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 85) / 0.00000000000001_wp /
data refh (1, 85) / 0.00000000000000_wp /
data gffq (1, 85) / 0.00000000000000_wp /
data gffh (1, 85) / 0.00000000000000_wp /
data dftq (1, 85) / 0.00000000000001_wp /
data dfth (1, 85) / 0.00000000000000_wp /
data pbcq (1, 85) / 0.00000000000001_wp /
data pbch (1, 85) / 0.00000000000000_wp /
data clsq (1, 85) / 0.00000000000000_wp /
data clsh (1, 85) / 0.00000000000000_wp /
data hcount (1, 85) / 0.00000000000000_wp /
data ascale (1, 85) / 1.00000000000000_wp /
data refcovcn(1, 85) / 0.00000000000000_wp /
data refcn (1, 85) / 0.00000000000000_wp /
data refsys (1, 85) / 1 /
data alphaiw(:,1, 85) / &
& 39.1638670_wp, 38.4250150_wp, 36.4213580_wp, 30.5411780_wp, &
& 24.6134160_wp, 19.7657890_wp, 16.0524090_wp, 13.2471470_wp, &
& 11.1156700_wp, 9.4745710_wp, 8.1909470_wp, 7.1705270_wp, &
& 5.6711490_wp, 4.6378720_wp, 3.8904420_wp, 3.3277200_wp, &
& 2.8899970_wp, 2.1310810_wp, 1.6471780_wp, 1.0734420_wp, &
& 0.7539160_wp, 0.3784910_wp, 0.2250150_wp /
! REF AtH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (2, 85) / 0.03800713219800_wp /
data refh (2, 85) / -0.03800713219800_wp /
data gffq (2, 85) / -0.07596582020292_wp /
data gffh (2, 85) / 0.07596582020292_wp /
data dftq (2, 85) / -0.04863100000000_wp /
data dfth (2, 85) / 0.04863400000000_wp /
data pbcq (2, 85) / 0.03800713219800_wp /
data pbch (2, 85) / -0.03800713219800_wp /
data clsq (2, 85) / -0.07596582020292_wp /
data clsh (2, 85) / 0.07596582020292_wp /
data hcount (2, 85) / 1.00000000000000_wp /
data ascale (2, 85) / 1.00000000000000_wp /
data refcovcn(2, 85) / 0.97711087656722_wp /
data refcn (2, 85) / 0.99539313449513_wp /
data refsys (2, 85) / 1 /
data alphaiw(:,2, 85) / &
& 42.3026280_wp, 41.5366110_wp, 39.4596880_wp, 33.3254640_wp, &
& 27.0380510_wp, 21.8068890_wp, 17.7463530_wp, 14.6509070_wp, &
& 12.2850030_wp, 10.4566080_wp, 9.0232990_wp, 7.8825660_wp, &
& 6.2059600_wp, 5.0520660_wp, 4.2196050_wp, 3.5950280_wp, &
& 3.1110670_wp, 2.2775460_wp, 1.7510350_wp, 1.1332590_wp, &
& 0.7926970_wp, 0.3959980_wp, 0.2349320_wp /
data refn(85) / 2 /
! REF Rn - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1, 86) / 0.0_wp /
data refh (1, 86) / 0.00000000000000_wp /
data gffq (1, 86) / 0.00000000000000_wp /
data gffh (1, 86) / 0.00000000000000_wp /
data dftq (1, 86) / 0.0_wp /
data dfth (1, 86) / 0.00000000000000_wp /
data pbcq (1, 86) / 0.0_wp /
data pbch (1, 86) / 0.00000000000000_wp /
data clsq (1, 86) / 0.00000000000000_wp /
data clsh (1, 86) / 0.00000000000000_wp /
data hcount (1, 86) / 0.00000000000000_wp /
data ascale (1, 86) / 1.00000000000000_wp /
data refcovcn(1, 86) / 0.00000000000000_wp /
data refcn (1, 86) / 0.00000000000000_wp /
data refsys (1, 86) / 1 /
data alphaiw(:,1, 86) / &
& 33.6514050_wp, 33.1852420_wp, 31.8852830_wp, 27.7786920_wp, &
& 23.2154680_wp, 19.1736050_wp, 15.8877090_wp, 13.2945880_wp, &
& 11.2595530_wp, 9.6544200_wp, 8.3760900_wp, 7.3462510_wp, &
& 5.8137240_wp, 4.7476360_wp, 3.9742240_wp, 3.3924070_wp, &
& 2.9410550_wp, 2.1630540_wp, 1.6707900_wp, 1.0904110_wp, &
& 0.7676850_wp, 0.3873300_wp, 0.2309680_wp /
data refn(86) / 1 /
! REF Cn - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1,112) / 0.00000000000000_wp /
data refh (1,112) / 0.00000000000000_wp /
data gffq (1,112) / 0.00000000000000_wp /
data gffh (1,112) / 0.00000000000000_wp /
data dftq (1,112) / 0.00000000000000_wp /
data dfth (1,112) / 0.00000000000000_wp /
data pbcq (1,112) / 0.00000000000000_wp /
data pbch (1,112) / 0.00000000000000_wp /
data clsq (1,112) / 0.00000000000000_wp /
data clsh (1,112) / 0.00000000000000_wp /
data hcount (1,112) / 0.00000000000000_wp /
data ascale (1,112) / 1.00000000000000_wp /
data refcovcn(1,112) / 0.00000000000000_wp /
data refcn (1,112) / 0.00000000000000_wp /
data refsys (1,112) / 1 /
data alphaiw(:,1,112) / &
& 28.9658506_wp, 28.5229043_wp, 27.3194441_wp, 23.7497041_wp, &
& 20.0600679_wp, 16.9382662_wp, 14.4456995_wp, 12.4709213_wp, &
& 10.8915816_wp, 9.6105637_wp, 8.5564757_wp, 7.6775158_wp, &
& 6.3032570_wp, 5.2860251_wp, 4.5087413_wp, 3.8995856_wp, &
& 3.4123111_wp, 2.5460363_wp, 1.9872976_wp, 1.3293939_wp, &
& 0.9663593_wp, 0.5321666_wp, 0.3423450_wp /
data refn(112) / 1 /
! REF NhH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1,113) / 0.10288904092396_wp /
data refh (1,113) / -0.10288904092396_wp /
data gffq (1,113) / 0.10288904092396_wp /
data gffh (1,113) / -0.10288904092396_wp /
data dftq (1,113) / 0.10288904092396_wp /
data dfth (1,113) / -0.10288904092396_wp /
data pbcq (1,113) / 0.10288904092396_wp /
data pbch (1,113) / -0.10288904092396_wp /
data clsq (1,113) / 0.10288904092396_wp /
data clsh (1,113) / -0.10288904092396_wp /
data hcount (1,113) / 1.00000000000000_wp /
data ascale (1,113) / 1.00000000000000_wp /
data refcovcn(1,113) / 0.83118288370659_wp /
data refcn (1,113) / 0.94277714762458_wp /
data refsys (1,113) / 1 /
data alphaiw(:,1,113) / &
& 36.8515202_wp, 35.9314075_wp, 33.7296086_wp, 28.2311084_wp, &
& 23.2301521_wp, 19.2714758_wp, 16.2269059_wp, 13.8738534_wp, &
& 12.0270465_wp, 10.5514261_wp, 9.3517015_wp, 8.3607091_wp, &
& 6.8266410_wp, 5.7014944_wp, 4.8468778_wp, 4.1800460_wp, &
& 3.6485283_wp, 2.7081324_wp, 2.1050561_wp, 1.3991594_wp, &
& 1.0122747_wp, 0.5535296_wp, 0.3548537_wp /
data refn(113) / 1 /
! REF Fl - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1,114) / 0.00000000000000_wp /
data refh (1,114) / 0.00000000000000_wp /
data gffq (1,114) / 0.00000000000000_wp /
data gffh (1,114) / 0.00000000000000_wp /
data dftq (1,114) / 0.00000000000000_wp /
data dfth (1,114) / 0.00000000000000_wp /
data pbcq (1,114) / 0.00000000000000_wp /
data pbch (1,114) / 0.00000000000000_wp /
data clsq (1,114) / 0.00000000000000_wp /
data clsh (1,114) / 0.00000000000000_wp /
data hcount (1,114) / 0.00000000000000_wp /
data ascale (1,114) / 1.00000000000000_wp /
data refcovcn(1,114) / 0.00000000000000_wp /
data refcn (1,114) / 0.00000000000000_wp /
data refsys (1,114) / 1 /
data alphaiw(:,1,114) / &
& 31.0177261_wp, 30.3409187_wp, 28.5968922_wp, 24.0264841_wp, &
& 19.8927260_wp, 16.6470264_wp, 14.1460801_wp, 12.2005462_wp, &
& 10.6619593_wp, 9.4233104_wp, 8.4088155_wp, 7.5647344_wp, &
& 6.2444458_wp, 5.2627485_wp, 4.5076687_wp, 3.9118848_wp, &
& 3.4323326_wp, 2.5724899_wp, 2.0125562_wp, 1.3479270_wp, &
& 0.9794339_wp, 0.5389514_wp, 0.3469517_wp /
data refn(114) / 1 /
! REF LvH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1,116) / 0.04481663412472_wp /
data refh (1,116) / -0.02240831706236_wp /
data gffq (1,116) / 0.04481663412472_wp /
data gffh (1,116) / -0.02240831706236_wp /
data dftq (1,116) / 0.04481663412472_wp /
data dfth (1,116) / -0.02240831706236_wp /
data pbcq (1,116) / 0.04481663412472_wp /
data pbch (1,116) / -0.02240831706236_wp /
data clsq (1,116) / 0.04481663412472_wp /
data clsh (1,116) / -0.02240831706236_wp /
data hcount (1,116) / 2.00000000000000_wp /
data ascale (1,116) / 1.00000000000000_wp /
data refcovcn(1,116) / 1.74812370366573_wp /
data refcn (1,116) / 1.98131399263162_wp /
data refsys (1,116) / 1 /
data alphaiw(:,1,116) / &
& 62.5965347_wp, 59.9793469_wp, 54.2098284_wp, 41.6476762_wp, &
& 31.8504866_wp, 24.9639388_wp, 20.1291251_wp, 16.6500840_wp, &
& 14.0715476_wp, 12.1054557_wp, 10.5676443_wp, 9.3376437_wp, &
& 7.5027755_wp, 6.2067008_wp, 5.2468060_wp, 4.5100150_wp, &
& 3.9287041_wp, 2.9084035_wp, 2.2561760_wp, 1.4921393_wp, &
& 1.0737727_wp, 0.5817618_wp, 0.3715195_wp /
data refn(115) / 1 /
! REF McH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1,115) / 0.10991065534975_wp /
data refh (1,115) / -0.10991065534975_wp /
data gffq (1,115) / 0.10991065534975_wp /
data gffh (1,115) / -0.10991065534975_wp /
data dftq (1,115) / 0.10991065534975_wp /
data dfth (1,115) / -0.10991065534975_wp /
data pbcq (1,115) / 0.10991065534975_wp /
data pbch (1,115) / -0.10991065534975_wp /
data clsq (1,115) / 0.10991065534975_wp /
data clsh (1,115) / -0.10991065534975_wp /
data hcount (1,115) / 1.00000000000000_wp /
data ascale (1,115) / 1.00000000000000_wp /
data refcovcn(1,115) / 0.80392173226442_wp /
data refcn (1,115) / 0.91220333076895_wp /
data refsys (1,115) / 1 /
data alphaiw(:,1,115) / &
& 50.5879876_wp, 48.5224886_wp, 43.8104441_wp, 33.6795593_wp, &
& 26.0680976_wp, 20.7866748_wp, 17.0594839_wp, 14.3406936_wp, &
& 12.2916388_wp, 10.7020689_wp, 9.4379170_wp, 8.4110146_wp, &
& 6.8482249_wp, 5.7186423_wp, 4.8669543_wp, 4.2042872_wp, &
& 3.6761256_wp, 2.7387147_wp, 2.1335072_wp, 1.4195987_wp, &
& 1.0262708_wp, 0.5601697_wp, 0.3590984_wp /
data refn(116) / 1 /
! REF TsH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1,117) / 0.07044735360796_wp /
data refh (1,117) / -0.07044735360796_wp /
data gffq (1,117) / 0.07044735360796_wp /
data gffh (1,117) / -0.07044735360796_wp /
data dftq (1,117) / 0.07044735360796_wp /
data dfth (1,117) / -0.07044735360796_wp /
data pbcq (1,117) / 0.07044735360796_wp /
data pbch (1,117) / -0.07044735360796_wp /
data clsq (1,117) / 0.07044735360796_wp /
data clsh (1,117) / -0.07044735360796_wp /
data hcount (1,117) / 1.00000000000000_wp /
data ascale (1,117) / 1.00000000000000_wp /
data refcovcn(1,117) / 0.85819693463106_wp /
data refcn (1,117) / 0.97277918745352_wp /
data refsys (1,117) / 1 /
data alphaiw(:,1,117) / &
& 68.0864127_wp, 64.1264282_wp, 56.6470176_wp, 42.0637390_wp, &
& 31.4475652_wp, 24.2894637_wp, 19.3977301_wp, 15.9410604_wp, &
& 13.4120039_wp, 11.5024670_wp, 10.0205855_wp, 8.8430108_wp, &
& 7.0995079_wp, 5.8772976_wp, 4.9763464_wp, 4.2864060_wp, &
& 3.7423450_wp, 2.7856521_wp, 2.1708261_wp, 1.4447260_wp, &
& 1.0436089_wp, 0.5684047_wp, 0.3641795_wp /
data refn(117) / 1 /
! REF Og - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1906
data refq (1,118) / 0.00000000000000_wp /
data refh (1,118) / 0.00000000000000_wp /
data gffq (1,118) / 0.00000000000000_wp /
data gffh (1,118) / 0.00000000000000_wp /
data dftq (1,118) / 0.00000000000000_wp /
data dfth (1,118) / 0.00000000000000_wp /
data pbcq (1,118) / 0.00000000000000_wp /
data pbch (1,118) / 0.00000000000000_wp /
data clsq (1,118) / 0.00000000000000_wp /
data clsh (1,118) / 0.00000000000000_wp /
data hcount (1,118) / 0.00000000000000_wp /
data ascale (1,118) / 1.00000000000000_wp /
data refcovcn(1,118) / 0.00000000000000_wp /
data refcn (1,118) / 0.00000000000000_wp /
data refsys (1,118) / 1 /
data alphaiw(:,1,118) / &
& 60.1915989_wp, 57.8350021_wp, 52.2126738_wp, 39.5649630_wp, &
& 29.8330516_wp, 23.1060271_wp, 18.4549609_wp, 15.1539330_wp, &
& 12.7366393_wp, 10.9128902_wp, 9.4998323_wp, 8.3792180_wp, &
& 6.7254432_wp, 5.5711554_wp, 4.7232296_wp, 4.0753582_wp, &
& 3.5649854_wp, 2.6668767_wp, 2.0874183_wp, 1.3980570_wp, &
& 1.0139007_wp, 0.5552450_wp, 0.3569580_wp /
data refn(118) / 1 /
xtb-6.7.1/include/xtb.h 0000664 0000000 0000000 00000027244 14650006642 0014727 0 ustar 00root root 0000000 0000000 /* This file is part of xtb.
*
* Copyright (C) 2019-2020 Sebastian Ehlert
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with this program. If not, see .
*/
#pragma once
#define XTB_API_ENTRY
#define XTB_API_CALL
#define XTB_API_SUFFIX__VERSION_1_0_0
/// Define proprocessor to allow to check for specific API features
#define XTB_API_VERSION 10000
#define XTB_VERSION_6_3_0 1
#define XTB_VERSION_6_3_1 1
#define XTB_VERSION_6_3_2 1
#define XTB_VERSION_6_3_3 1
/// Possible print levels for API calls
#define XTB_VERBOSITY_FULL 2
#define XTB_VERBOSITY_MINIMAL 1
#define XTB_VERBOSITY_MUTED 0
/// Convencience macro for deleting a handle
#define xtb_delete(ptr) _Generic((ptr), \
xtb_TEnvironment: xtb_delEnvironment, \
xtb_TMolecule: xtb_delMolecule, \
xtb_TCalculator: xtb_delCalculator, \
xtb_TResults: xtb_delResults \
)(&ptr)
#ifdef __cplusplus
extern "C" {
#else
#include
#endif
/*
* Opaque pointers to Fortran objects
**/
/// Calculation environment class
typedef struct _xtb_TEnvironment* xtb_TEnvironment;
/// Molecular structure data class
typedef struct _xtb_TMolecule* xtb_TMolecule;
/// Single point calculator class
typedef struct _xtb_TCalculator* xtb_TCalculator;
/// Single point results class
typedef struct _xtb_TResults* xtb_TResults;
/*
* Query for semantic API version
**/
/// Returns API version as 10000 * major + 100 * minor + 1 * patch
extern XTB_API_ENTRY int XTB_API_CALL
xtb_getAPIVersion() XTB_API_SUFFIX__VERSION_1_0_0;
/*
* Calculation environment
**/
/// Create new xtb calculation environment object
extern XTB_API_ENTRY xtb_TEnvironment XTB_API_CALL
xtb_newEnvironment(void) XTB_API_SUFFIX__VERSION_1_0_0;
/// Delete a xtb calculation environment object
extern XTB_API_ENTRY void XTB_API_CALL
xtb_delEnvironment(xtb_TEnvironment* /* env */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Check current status of calculation environment
extern XTB_API_ENTRY int XTB_API_CALL
xtb_checkEnvironment(xtb_TEnvironment /* env */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Show and empty error stack
extern XTB_API_ENTRY void XTB_API_CALL
xtb_showEnvironment(xtb_TEnvironment /* env */,
const char* /* message */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Return and empty error stack
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getError(xtb_TEnvironment /* env */,
char* /* buffer */,
const int* /* buffersize */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Bind output from this environment
extern XTB_API_ENTRY void XTB_API_CALL
xtb_setOutput(xtb_TEnvironment /* env */,
const char* /* filename */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Release output unit from this environment
extern XTB_API_ENTRY void XTB_API_CALL
xtb_releaseOutput(xtb_TEnvironment /* env */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Set verbosity of calculation output
extern XTB_API_ENTRY void XTB_API_CALL
xtb_setVerbosity(xtb_TEnvironment /* env */,
int /* verbosity */) XTB_API_SUFFIX__VERSION_1_0_0;
/*
* Molecular structure data class
**/
/// Create new molecular structure data (quantities in Bohr)
extern XTB_API_ENTRY xtb_TMolecule XTB_API_CALL
xtb_newMolecule(xtb_TEnvironment /* env */,
const int* /* natoms */,
const int* /* numbers [natoms] */,
const double* /* positions [natoms][3] */,
const double* /* charge in e */,
const int* /* uhf */,
const double* /* lattice [3][3] */,
const bool* /* periodic [3] */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Delete molecular structure data
extern XTB_API_ENTRY void XTB_API_CALL
xtb_delMolecule(xtb_TMolecule* /* mol */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Update coordinates and lattice parameters (quantities in Bohr)
extern XTB_API_ENTRY void XTB_API_CALL
xtb_updateMolecule(xtb_TEnvironment /* env */,
xtb_TMolecule /* mol */,
const double* /* positions [natoms][3] */,
const double* /* lattice [3][3] */) XTB_API_SUFFIX__VERSION_1_0_0;
/*
* Singlepoint calculator
**/
/// Create new calculator object
extern XTB_API_ENTRY xtb_TCalculator XTB_API_CALL
xtb_newCalculator(void) XTB_API_SUFFIX__VERSION_1_0_0;
/// Delete calculator object
extern XTB_API_ENTRY void XTB_API_CALL
xtb_delCalculator(xtb_TCalculator* /* calc */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Load GFN0-xTB calculator
extern XTB_API_ENTRY void XTB_API_CALL
xtb_loadGFN0xTB(xtb_TEnvironment /* env */,
xtb_TMolecule /* mol */,
xtb_TCalculator /* calc */,
char* /* filename */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Load GFN1-xTB calculator
extern XTB_API_ENTRY void XTB_API_CALL
xtb_loadGFN1xTB(xtb_TEnvironment /* env */,
xtb_TMolecule /* mol */,
xtb_TCalculator /* calc */,
char* /* filename */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Load GFN2-xTB calculator
extern XTB_API_ENTRY void XTB_API_CALL
xtb_loadGFN2xTB(xtb_TEnvironment /* env */,
xtb_TMolecule /* mol */,
xtb_TCalculator /* calc */,
char* /* filename */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Load GFN-FF calculator
extern XTB_API_ENTRY void XTB_API_CALL
xtb_loadGFNFF(xtb_TEnvironment /* env */,
xtb_TMolecule /* mol */,
xtb_TCalculator /* calc */,
char* /* filename */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Add a solvation model to calculator (requires loaded parametrisation)
extern XTB_API_ENTRY void XTB_API_CALL
xtb_setSolvent(xtb_TEnvironment /* env */,
xtb_TCalculator /* calc */,
char* /* solvent */,
int* /* state */,
double* /* temp */,
int* /* grid */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Unset the solvation model
extern XTB_API_ENTRY void XTB_API_CALL
xtb_releaseSolvent(xtb_TEnvironment /* env */,
xtb_TCalculator /* calc */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Add a external charge potential to calculator (only supported in GFN1/2-xTB)
extern XTB_API_ENTRY void XTB_API_CALL
xtb_setExternalCharges(xtb_TEnvironment /* env */,
xtb_TCalculator /* calc */,
int* /* n */,
int* /* numbers [n] */,
double* /* charges [n] */,
double* /* positions [n][3] */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Unset the external charge potential
extern XTB_API_ENTRY void XTB_API_CALL
xtb_releaseExternalCharges(xtb_TEnvironment /* env */,
xtb_TCalculator /* calc */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Set numerical accuracy of calculator in the range of 1000 to 0.0001
extern XTB_API_ENTRY void XTB_API_CALL
xtb_setAccuracy(xtb_TEnvironment /* env */,
xtb_TCalculator /* calc */,
double /* accuracy */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Set maximum number of iterations for self-consistent TB calculators
extern XTB_API_ENTRY void XTB_API_CALL
xtb_setMaxIter(xtb_TEnvironment /* env */,
xtb_TCalculator /* calc */,
int /* iterations */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Set electronic temperature for level filling in tight binding calculators in K
extern XTB_API_ENTRY void XTB_API_CALL
xtb_setElectronicTemp(xtb_TEnvironment /* env */,
xtb_TCalculator /* calc */,
double /* temperature */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Perform singlepoint calculation
extern XTB_API_ENTRY void XTB_API_CALL
xtb_singlepoint(xtb_TEnvironment /* env */,
xtb_TMolecule /* mol */,
xtb_TCalculator /* calc */,
xtb_TResults /* res */) XTB_API_SUFFIX__VERSION_1_0_0;
/*
* Calculation results
**/
/// Create new singlepoint results object
extern XTB_API_ENTRY xtb_TResults XTB_API_CALL
xtb_newResults(void) XTB_API_SUFFIX__VERSION_1_0_0;
/// Delete singlepoint results object
extern XTB_API_ENTRY void XTB_API_CALL
xtb_delResults(xtb_TResults* /* res */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Create copy from a singlepoint results object
extern XTB_API_ENTRY xtb_TResults XTB_API_CALL
xtb_copyResults(xtb_TResults /* res */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for energy in Hartree
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getEnergy(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
double* /* energy */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for gradient in Hartree / Bohr
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getGradient(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
double* /* gradient [natoms][3] */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for pc gradient in Hartree / Bohr
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getPCGradient(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
double* /* gradient [natoms][3] */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for virial in Hartree
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getVirial(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
double* /* virial [3][3] */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for dipole in e Bohr
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getDipole(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
double* /* dipole [3] */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for partial charges in e
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getCharges(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
double* /* charges [natoms] */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for bond orders
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getBondOrders(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
double* /* wbo [natoms][natoms] */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for the number of basis functions
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getNao(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
int* /* nao */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for orbital energies in Hartree [nao]
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getOrbitalEigenvalues(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
double* /* emo */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for occupation numbers [nao]
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getOrbitalOccupations(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
double* /* focc */) XTB_API_SUFFIX__VERSION_1_0_0;
/// Query singlepoint results object for orbital coefficients [nao][nao]
extern XTB_API_ENTRY void XTB_API_CALL
xtb_getOrbitalCoefficients(xtb_TEnvironment /* env */,
xtb_TResults /* res */,
double* /* c */) XTB_API_SUFFIX__VERSION_1_0_0;
#ifdef __cplusplus
}
#endif
xtb-6.7.1/man/ 0000775 0000000 0000000 00000000000 14650006642 0013100 5 ustar 00root root 0000000 0000000 xtb-6.7.1/man/Makefile 0000664 0000000 0000000 00000005566 14650006642 0014554 0 ustar 00root root 0000000 0000000 #!/bin/make -f
TXT := RELEASE_NOTES
## 1 Executable programs or shell commands
TXT1 := dftd4 cosmosolv cosmothermrd thermo xtb
## 2 System calls
TXT2 :=
## 3 Library calls (functions within program libraries)
TXT3 := thermo distort
## 4 Special files (usually found in /dev)
TXT4 :=
## 5 File formats and conventions eg /etc/passwd
TXT5 :=
## 6 Games
TXT6 :=
## 7 Miscellaneous (including macro packages and conventions)
## here we place all benchmarks in our arsenal
TXT7 := xcontrol
#MAN7 += ACONF ADIM6 AHB21 AL2X6 ALK8 ALKBDE10 Amino20x4
#MAN7 += BH76 BH76RC BHDIV10 BHPERI BHROT27 BSR36 BUT14DIOL
#MAN7 += Bühl-3d Bühl-4d Bühl-5d
#MAN7 += C15 C60ISO CARBHB12 CDIE20 CHB6
#MAN7 += DARC DC13 DIPCS10
#MAN7 += FH51
#MAN7 += G21EA G21IP G2RC GrubbsII
#MAN7 += HAL59 HEAVY28 HEAVYSB11 HMGB11
#MAN7 += ICONF IDISP IL16 IL-2013 INV24 ISO34 ISOL24
#MAN7 += LMGB35
#MAN7 += MB16-43 MCONF MOR41
#MAN7 += NBPRC NCIBLIND10
#MAN7 += PA26 PArel PCONF21 PNICO23 PX13
#MAN7 += RC21 RG18 RSE43 R160x6
#MAN7 += S22 S22x5 S66 S66x8 S30L SCONF SIE4x4
#MAN7 += TAUT15 TOMC6
#MAN7 += UPU23
#MAN7 += W4-11 WATER27 WCPT18 WCCR10
#MAN7 += YBDE18
#MAN7 += X40x10
MAN1 := $(patsubst %,man1/%.1,$(TXT1))
MAN2 := $(patsubst %,man2/%.2,$(TXT2))
MAN3 := $(patsubst %,man3/%.3,$(TXT3))
MAN4 := $(patsubst %,man4/%.4,$(TXT4))
MAN5 := $(patsubst %,man5/%.5,$(TXT5))
MAN6 := $(patsubst %,man6/%.6,$(TXT6))
MAN7 := $(patsubst %,man7/%.7,$(TXT7))
MAN := $(MAN1)
MAN += $(MAN2)
MAN += $(MAN3)
MAN += $(MAN4)
MAN += $(MAN5)
MAN += $(MAN6)
MAN += $(MAN7)
PDF := $(patsubst %,%.1.pdf,$(TXT1))
PDF += $(patsubst %,%.2.pdf,$(TXT2))
PDF += $(patsubst %,%.3.pdf,$(TXT3))
PDF += $(patsubst %,%.4.pdf,$(TXT4))
PDF += $(patsubst %,%.5.pdf,$(TXT5))
PDF += $(patsubst %,%.6.pdf,$(TXT6))
PDF += $(patsubst %,%.7.pdf,$(TXT7))
HTML := $(patsubst %,%.1.html,$(TXT1))
HTML += $(patsubst %,%.2.html,$(TXT2))
HTML += $(patsubst %,%.3.html,$(TXT3))
HTML += $(patsubst %,%.4.html,$(TXT4))
HTML += $(patsubst %,%.5.html,$(TXT5))
HTML += $(patsubst %,%.6.html,$(TXT6))
HTML += $(patsubst %,%.7.html,$(TXT7))
vpath %.txt .
.PHONY: all
all: $(MAN) $(PDF) $(HTML)
ASCIIDOC := asciidoc
A2X := a2x
ASCIIFLAGS := --doctype manpage --format manpage
DBLATEX := dblatex
DBLATEXFLAGS := --style simple
$(HTML): %.html: %.txt
$(ASCIIDOC) $(ASCIIDOCFLAGS) --backend html $<
$(PDF): %.pdf: %.xml
$(DBLATEX) $(DBLATEXFLAGS) $<
%.xml: %.txt
$(ASCIIDOC) $(ASCIIDOCFLAGS) --backend docbook $<
$(MAN1): man1/%.1: %.1.txt
$(A2X) $(ASCIIFLAGS) -D man1 $<
$(MAN2): man2/%.2: %.2.txt
$(A2X) $(ASCIIFLAGS) -D man2 $<
$(MAN3): man3/%.3: %.3.txt
$(A2X) $(ASCIIFLAGS) -D man3 $<
$(MAN4): man4/%.4: %.4.txt
$(A2X) $(ASCIIFLAGS) -D man4 $<
$(MAN5): man5/%.5: %.5.txt
$(A2X) $(ASCIIFLAGS) -D man5 $<
$(MAN6): man6/%.6: %.6.txt
$(A2X) $(ASCIIFLAGS) -D man6 $<
$(MAN7): man7/%.7: %.7.txt
$(A2X) $(ASCIIFLAGS) -D man7 $<
.PHONY: clean
clean:
$(RM) $(MAN1) $(MAN7)
xtb-6.7.1/man/xcontrol.7.adoc 0000664 0000000 0000000 00000056112 14650006642 0015752 0 ustar 00root root 0000000 0000000 XCONTROL(7)
===========
:doctype: manpage
NAME
----
xcontrol - instruction file for `xtb(1)` version 6.0 and newer
SYNOPSIS
--------
xtb -I,--input *xcontrol* 'FILE'
DESCRIPTION
-----------
The `xcontrol(7)` instruction set is the successor of the set-block
present in `xtb(1)` version 5.8 and earlier. The used instruction
set is similar to the data groups in Turbomole or the detailed
input structure of ORCA. Every instruction is started by a flag (`$`)
and terminated by the next flag. A instruction is only valid if
the flag is in the first column, the instruction name is the rest
of the register. A valid instruction opens its blocks with its own
options, every option is a key-value pair.
There are two kind of instructions, logical and groups. Logical instructions
toggle a specific operation and cannot contain a option block while
group instructions only open the option block without any further actions.
A special instruction is the end instruction which is optional, as EOF
is a valid alternative in this implementation.
It should be noted that `xtb(1)` is able to produce `xcontrol(7)` instructions
by itself. You can tell `xtb(1)` by *--copy* to
save you original instructions, note that this implementation will strip all
comments while copying (print what you see, not what you read), to aid debugging.
$fit
~~~~
logical instruction to set `xtb(1)` in `mfit(1)` compatibility mode
and prints out further informations.
This is a pure development feature and therefore should
be absent in every productive run.
$samerand
~~~~~~~~~
logical instruction to initialize the random number generator
with the same sequence
$chrg 'int'
~~~~~~~~~~~
set the charge of the molecule
$spin 'int'
~~~~~~~~~~~
set Nalpha-Nbeta of the molecule
$cma
~~~~
shifts molecule to center of mass and transforms cartesian coordinates
into the coordinate system of the principle axis (not affected by
`isotopes'-file).
$constrain
~~~~~~~~~~
NOTE: This data group refers to constraining the gradient by appling
potentials. Exact fixing is done with the fix data group.
*force constant*='real'::
force constant for constraining potential
*all bonds*='bool'::
generate potentials to constrain the length of all bonds
*all angles*='bool'::
generate potentials to constrain all bond angles
*all torsions*='bool'::
generate potentials to constrain the angles of all torsions
*elements*: 'symbol'|'number',...::
constrains all elements of the same type, the atom type is determined
by the ordinal number or the element symbol
*atoms*: 'list',...::
constrains the atom positions of all atoms in 'list'. Needs at
least two atoms since potential is applied on all atoms in 'list'.
*distance*: 'i','j',auto|'real'::
constrain the distance between atom 'i' and 'j' to the actual
length (auto) or the value 'real', which has to be given in
Ångström.
*angle*: 'i','j','k',auto|'real'::
constrain the angle between atom 'i', 'j' and 'k' to the actual
length (auto) or the value 'real', which has to be given in
degrees.
*dihedral*: 'i','j','k','l',auto|'real'::
constrain the angle between atom 'i', 'j', 'k' and 'l' to the actual
length (auto) or the value 'real', which has to be given in degrees.
*center*: 'real','int'::
implemented and documented as in xtb 5.8,
might use fragment1 information from split instruction.
*cma[ interface]*: auto|'real'::
implemented and documented as in xtb 5.8,
might use fragment1/fragment2 information from split instruction.
*z*: 'real'::
implemented and documented as in xtb 5.8,
might use fragment1 information from split instruction.
$cube
~~~~~
*step*='real'::
grid spacing for cube file
*pthr*='real'::
density matrix neglect threshold
*boff*='real'::
grid boundary offset (default: 3.0)
*cal*='int'::
=1 switches on cube-file output (=0 means writing molden file
instead, -1=do nothing)
$embedding
~~~~~~~~~~
*at*='int'::
default atom type for point charges
*es*='bool'::
use isotropic electrostatic with point charges
///////////////////////////////////////////////////////////////////////////
*aes*='bool'::
use anisotropic (=multipole) electrostatics with point charges
*disp*='bool'::
make dispersion dependent on external point charges (only D4)
*dipm*='bool'::
use external dipole moments (requires aes=true)
*qp*='bool'::
use external quadrupole moments (requires aes=true)
*cn*='bool'::
use external coordination numbers for dispersion embedding
*atm*='bool'::
calculate non-additive dispersion with external polarizibilties
///////////////////////////////////////////////////////////////////////////
*input*='file'::
point charges are read from 'file' (default: 'pcharge'), format is:
'q' 'x' 'y' 'z' ['iat'|'gam'], where 'q' is the partial charges, 'xyz' are
the position of the partial charge in bohr and 'iat' is the ordinal
number of the atom. The corresponding gam-Parameter of the element will
be used in the potential.
Alternatively the 'gam' value can be given directly as fifth argument,
to simulate point charges provide a huge value for 'gam'.
*gradient*='file::
gradient of the point charges is written to 'file' (default: 'pcgrad')
$external
~~~~~~~~~
*mopac bin*='STRING'::
path to `mopac(1)` binary, will search `PATH` variable for binary if not set
*mopac input*='STRING'::
input string used for `mopac(1)` calculation, make sure it generates an
aux file for `xtb(1)` to read in.
*mopac file*='STRING'::
name of the `mopac(1)` input file
*orca bin*='STRING'::
path to `orca(1)` binary, will search `PATH` variable for binary if not set
*orca input line*='STRING'::
input string used for `orca(1)` calculation, will use engrad runtyp
by default
*orca input file*='STRING'::
name of the `orca(1)` input file
*turbodir*='STRING'::
path to your Turbomole directory (usually found in `TURBODIR` or
`TURBOIMG` variable)
$fix
~~~~
NOTE: the fix group refers to exact fixing. For geometry optimizations
the gradient is set to zero, while for Hessians no displacements
are calculated.
Constraining with external potentials
is done by the constrain data group.
*elements*: 'symbol'|'number',...::
fixes all elements of the same type, the atom type is determined
by the ordinal number or the element symbol.
This is automatically deactivated for molecular dynamics since
it leads to instabilities.
*atoms*: 'list',...::
fixes all atoms in 'list' by setting the gradient to zero.
This is automatically deactivated for molecular dynamics since
it leads to instabilities.
*freeze frequency*='real'::
diagonal element used for freezing atoms in numerical Hessian calculation
*freeze*: 'list',...::
freezes all atoms in 'list' for hessian calculation
*shake*: 'i','j',...::
use SHAKE to constrain the atompair 'ij' in molecular dynamics.
$gbsa
~~~~~
*solvent*='string'::
solvent for the generalized born (GB) model with solvent accessable
surface area (SASA), requires `.param_gbsa.solvent` in `XTBPATH`.
Does not activate GBSA (use commandline).
*ion_st*='real'::
ion strength for salt screening in GBSA
*ion_rad*='real'::
ion radius for salt screening in GBSA
*grid*='level'::
changes the grid used for the surface accessable surface area
(normal, tight, vtight, extreme are available).
$gfn
~~~~
*method*='int'::
version of the GFN Hamiltonian
*dispscale*='real'::
Scale dispersion energy of GFN-FF
$hess
~~~~~
*sccacc*='real'::
SCC accuracy level in Hessian runs
*step*='real'::
Cartesian displacement increment for numerical Hessian
*scale*='real'::
Scaling factor for the hessian elements (default: 1.0)
*element mass*: 'int','real',...::
set mass of elements 'int' to 'real'
*isotope*: 'int','real',... (6.1 only)::
set mass of atom number 'int' to 'real'
*modify mass*: 'int','real',... (6.1 only)::
set mass of atom number 'int' to 'real'
*scale mass*: 'int','real',... (6.1 only)::
scale mass of atom number 'int' by 'real'
$metadyn (6.1 only)
~~~~~~~~~~~~~~~~~~~
*save*='int'::
maximal number of structures for rmsd criteria
*kpush*='real',...::
scaling factor for rmsd criteria can be positive and negative
*modify factor*='int','real',...::
replace the factor 'int' with 'real'
*scale factor*='int','real',...::
scales the factor 'int' with 'real'
*alp*='real'::
width of the Gaussian potential used in the rmsd criteria
*coord*='file'::
external structures to initialize the rmsd criteria (xmol format required)
*atoms*: 'list',...::
atoms to include in rmsd calculation, if not present all atoms are
taken into account
*rmsd*: 'real',...::
target rmsd for biased hessian runs in Ångström
*bias input*='file'::
read static bias from 'file', requires xyz format with factor and width of the
potential in the comment line
*bias atoms*: 'list',...::
atoms to include in static rmsd calculation, if not present all atoms are
taken into account
*bias elements*: 'id',...::
elements to include in static rmsd calculation, if not present all atoms are
taken into account.
Elements can be referenced by their element symbol or their atomic number.
$md
~~~
*temp*='real'::
MD thermostat/GBSA temperature
*time*='real'::
MD run time in ps
*dump*='real'::
dump structure in every 'dump' fs
*sdump*='real'::
dump structure as scoord. every 'sdump' fs
*velo*='int'::
set to 1 if dumps (trj file) should contain velocities
*nvt*='int'::
use thermostat (=1, =0 for NVE)
*skip*='int'::
skip interval in -mdav, -mdopt
*step*='real'::
MD time step in fs (automatically determined if < 0),
could be 4-5 fs with shake =2, md_hmass=4
*hmass*='int'::
increase hydrogen mass to this value in amu (at const. tot. mass)
allowing large time steps (=0 off)
*shake*='int'::
shake on (=0: off which is default) for X-H bonds only (=1),
*sccacc*='real'::
SCC accuracy level in MD. Every 10th step the SCC is properly converged
at sccconv=1.0. sccmd should be < 5 in critical cases, effects may show
up as bad thermostating
*forcewrrestart*='logical'::
forces the writing of a restart file at each dump step
$modef
~~~~~~
*n*='int'::
of points along normal mode path scan
*step*='real'::
step lengths for scan (should be around 1 because its adjusted
internally to mode mass and FC)
*updat*='real'::
update search mode with a fraction of the displacement at every step
(0.0 means no update, 0.1-0.2 is a good choice)
*local*='int'::
use canonical normal modes (=0) or Pipek-Mezey localized ones (=1)
*vthr*='real'::
threshold up to which frequency modes are used for mode based conformer
search (def. is 300)
*prj*='int'::
number of second mode which should be projected out in mode following
(normally = 7 ie the TS mode which is fixed then)
*mode*='int'::
can set by --modef via cmdline
$oniom
~~~~~~
*inner logs*='bool'::
to print optimization log files for model region geometry (`high.inner_region.log` and `low.inner_region.log`)
*derived k*='bool'::
to calculate prefactor *k* and create jacobian dynamically (see more )
*ignore topo*='bool'::
to bypass topology check when breaking bonds
*outer*='bool'::
to saturate outer region
*silent*='bool'::
to hide the execution runs of external software
$opt
~~~~
*engine*='method'::
method can be 'rf' for ANCopt (default), 'lbfgs' for L-ANCopt or
'inertial' for FIRE.
*output*='file'::
redirect output of optimization to 'file'
*logfile*='file::
write optimization log to 'file' (default: xtbopt.log)
*optlevel*='level'::
convergence thresholds for the `ancopt(3)`:
crude = -3, sloppy = -2, loose = -1, normal = 0,
tight = 1, verytight = 2, extreme = 3
*microcycle*='int'::
number of optimization cycles before new ANC are made (default=25)
*maxcycle*='int'::
total number of opt. cycles, 0 means automatically determined
*hlow*='real'::
lowest force constant in ANC generation (should be > 0.005)
*maxdispl*='real'::
maximum coordinate displacement in `ancopt(3)`
*average conv*='bool'::
average the energy and gradient before checking for convergence to accelerate
numerically noisy potential energy surfaces (default: false).
*s6*='real'::
dispersion scaling in ANC generation
*hessian*=lindh-d2|lindh|swart::
model hessian for generation of ANC used in optimization
*kstretch*='real'::
stretch force constant in model hessian
*kbend*='real'::
bend force constant in model hessian
*ktorsion*='real'::
torsion force constant in model hessian
*koutofp*='real'::
out-of-plain force constant to model hessian
*kvdw*='real'::
additional vdW-contribution (lindh|swart only)
*kes*='real'::
electrostatic contribution to model hessian by EEQ model
*rcut*='real'::
distance cutoff for bonds in model hessian
*exact rf*='bool'::
use better solver during the rational function optimization
$path (6.1 only)
~~~~~~~~~~~~~~~~
*nrun*='int'::
number of runs for pathfinder
*nopt*='int'::
number of points on the path to optimize
*anopt*='int'::
number of steps to optimize the points on the path
*kpush*='real'::
factor for RMSD criterium pushing away from the reactant structure
*kpull*='real'::
factor for RMSD criterium pulling towards the product structure
*alp*='real'::
width of the RMSD criterium
*product*='file'::
file name of the product structure
$scan
~~~~~
*mode*=sequential|concerted::
scans all constraints at once (concerted) or after each other (sequential).
in sequential mode the final value of the scanned constraint is kept in
place. in concerted mode all steps for the scans have to be the same.
*int*: 'start','end','steps'::
where 'start' and 'end' are 'real' values and 'steps' is an integer value.
Defines a scan along constraint *int*
(which has to be defined before, of course),
from 'start' to 'end' in a certain number of 'steps'. There is no limitation
in the number of 'steps' as in 5.8.
*name*: 'values'; 'start','end','steps'::
defines the constrain *name* on which the scan is performed. See above and the
the constrain group for more information, since *name* (e.g. *distance*) and
'values' (e.g. 'i','j','value') are handed internally to the constrain parser.
NOTE: the scan parser will always terminate in error if the instruction could
not be parsed correctly, while the constrain parser is able to skip
instructions with wrong input by raising a warning.
$scc
~~~~
*temp, etemp*='real'::
electronic temperature for the Fermi smearing
*broydamp*='real'::
damping for the Broyden convergence accelerator
*guess*=gasteiger|goedecker|sad::
different possible guess charges for GFN2-xTB SCC calculation
*iterations, maxiterations*='int'::
adjusts the number of SCC iterations in the first/last SCC calculation
$split
~~~~~~
*fragment1*: 'list',... ::
defines atoms belonging to fragment 1
*fragment2*: 'list',... ::
defines atoms belonging to fragment 2
*fragment*: 'i','list',... ::
defines atoms belonging to fragment 'i'
$stm (6.1 only)
~~~~~~~~~~~~~~~
activate by $write/stm=true
*broadening*='real' ::
width of tip DOS energy broadening (eV)
*current*='real' ::
constant current value (arb.u.)
*grid*='real' ::
grid width (Bohr), half that value along Z
*thr*='real' ::
integral and density matrix neglect threshold
*potential*='real' ::
potential of tip vs. molecule, negative values let e flow from mol to tip
i.e. occ space of mol is probed
$symmetry
~~~~~~~~~
*desy*='real'::
point group symmetrization threshold
*maxat*='int'::
point group determination skipped if # atoms > this value
(i.e. desymaxat 0 switches it off)
$thermo
~~~~~~~
*temp*='real'::
temperature for thermostatistical calculation (default: 298.15 K)
*imagthr*='real'::
threshold for inverting imaginary frequencies for thermo in cm-1 (default: -20.0)
*scale*='real'::
scaling factor for frequencies in vibrational partition function (default: 1.0)
*sthr*='real'::
rotor cut-off (cm-1) in thermo (default: 50.0)
$wall
~~~~~
*potential*=logfermi|polynomial::
sets kind of wall potential used (default: polynomial)
*alpha*='int'::
exponent of polynomial wall potential (default: 30)
*beta*='real'::
exponent of logfermi bias potential (default: 6.0)
*autoscale*='real'::
scales axis of automatic determined wall potentials by 'real'
*axisshift*='real'::
constant offset used in automatic dermined wall potential axis
(default: 3.5)
*temp*='real'::
temperature of the logfermi wall (default: 300.0 K),
wall energy of logfermi is multiplied with kT.
*sphere*: auto|'real',all|'list',...::
set up a spherical wall potential for all or the atoms in 'list'
with the radius 'real' or an automatical determined sphere radius
*ellipsoid*: auto|'real',auto|'real',auto|'real',all|'list',...::
set up a ellipsoid wall potential for all or the atoms in 'list'
with the radii 'real' or an automatical determined sphere radius
If 'auto' is chosen for axes, sphere potential is applied, no ellipsoid!!!
*sandwich*: auto|'real',all|'list',...::
set up a sandwich wall potential for all or the atoms in 'list'
with the radius 'real' or an automatical determined sandwich radius in Bohr
Only potential=logfermi ist available. diameter=2*radius+2*4A safety buffer
$write
~~~~~~
*esp*='bool'::
calculate and print electrostatic potential, this will create
a data file and a cosmo file
*gridfile*='file'::
read gridpoints for ESP calculation from 'file'.
*mos*='bool'::
print molden file
*lmo*='bool'::
localize orbitals and print out LMO centers
*density*='bool'::
calculate density on a cube grid
*spin population*='bool'::
spin population analysis
*spin density*='bool'::
calculate spin density on a cube grid
*fod*='bool'::
calculate FOD on a cube grid (set electronic temperature to at least 12500 K)
*wiberg*='bool'::
calculate and print Wiberg bond order
*dipole*='bool'::
calculate and print dipole moment
*charges*='bool'::
print charges file
*mulliken*='bool'::
print mulliken population analysis
*orbital energies*='bool'::
print orbital energies and occupation numbers
*stm*='bool'::
creates an STM image of the molecule, see stm group (6.1 only)
*geosum*='bool'::
old style geometry summary
*inertia*='bool'::
geometry summary on moments on inertia and rotational constants
(available with `--define`)
*distances*='bool'::
geometry summary on distances and bonds
(available with `--define`)
*angles*='bool'::
geometry summary on angles
(available with `--define`)
*torsions*='bool'::
geometry summary on dihedral angles and torsions
(available with `--define`)
*vib_normal_modes*='bool'::
write normal modes as Turbomole vibrational modes data group
*hessian.out*='bool'::
write DFTB+ style hessian.out file containing the unprojected hessian
LEGACY
~~~~~~
To ensure compatibility with older versions of the `xtb(1)` prior to version 6.0
a group instruction set is allowed which accepts the same syntax as the
original set-block. Here we provide a list of set-block commands and their
corresponding instructions in `xcontrol(7)`.
NOTE: `xtb(1)` can read a set-block by itself and will print out a
equivalent instruction set. This feature will be deprecated
in future versions since the set-block is less flexible than
`xcontrol(7)` and might be deactived without prior announcement!
*broydamp*:: use *broydamp* in *scc* group instead
*chrg, charge*:: use *chrg* logical instead
*constrainallbo, constralltbo*::
currently not supported
*constrainalltors, constralltors*::
currently not supported
*constrain*:: use *constrain* group instead
*constrainel*:: currently not supported
*constrfc*:: use *force constant* in *constrain* group instead
*constrxyz*:: use *atoms* in *fix* group instead
*cube_cal*:: use *cal* in *cube* group instead
*cube_pthr*:: use *pthr* in *cube* group instead
*cube_step*:: use *step* in *cube* group instead
*desymaxat*:: use *maxat* in *symmetry* group instead
*desy*:: use *desy* in *symmetry* group instead
*ellips*:: use *ellipsoid* in *wall* group instead
*etemp*:: use *temp* in *scc* group instead
*ex_open_HS*:: currently not supported
*ex_open_LS*:: currently not supported
*fit*:: use *fit* logical instead
*fix*:: use *atoms* in *fix*/*constrain* group instead
*fixfc*:: use *force constant* in *constrain* group instead
*fragment1*:: use *fragment1* in *split* group instead
*fragment2*:: use *fragment1* in *split* group instead
*gbsa*:: use *solvent* in *gbsa* group instead
*gfnver*:: use *version* in *gfn* group instead
*hessa*:: currently not supported
*hessf*:: use *freeze* in *fix* group instead
*hlowopt*:: use *hlow* in *opt* group instead
*ion_rad*:: use *ion_rad* in *gbas* group instead
*ion_st*:: use *ion_st* in *gbsa* group instead
*maxdispl*:: use *maxdipl* in *opt* group instead
*maxopt*:: use *maxcycle* in *opt* group instead
*mddumpxyz*:: use *dump* in *md* group instead
*md_hmass*:: use *hmass* in *md* group instead
*mdskip*:: use *skip* in *md* group instead
*mdstep*:: use *step* in *md* group instead
*mdtemp*:: use *temp* in *md* group instead
*mdtime*:: use *time* in *md* group instead
*microopt*:: use *mircocycle* in *opt* group instead
*mode_local*:: use *local* in *modef* group instead
*mode_n*:: use *n* in *modef* group instead
*mode_prj*:: use *prj* in *modef group instead
*mode_step*:: use *step* in *modef* group instead
*mode_updat*:: use *updat* in *modef* group instead
*mode_vthr*:: use *vthr* in *modef* group instead
*nvt*:: use *nvt* in *md* group instead
*optlev*:: use *optlevel* in *opt* group intead
*orca_exe*:: currently not supported
*orca_line*:: currently not supported
*orca_mpi*:: currently not supported
*restartmd, mdrestart*::
use *restart* in *md* group
*runtyp*:: please use the commandline instead, might still work
*s6opt*:: use *s6* in *opt* group instead
*samerand*:: use *samerand* logical instead
*scan*:: use *scan* group instead
*scchess*:: use *sccacc* in *hess* group instead
*sccmd*:: use *sccacc* in *md* group instead
*shake*:: use *shake* in *md* group instead
*sphere*:: use *sphere* in *sphere* group instead
*springexp*:: use *springexp* in *fix* group instead
*stephess*:: use *step* in *hess group instead
*thermo_sthr*:: use *sthr* in *thermo* group instead
*thermo*:: use *temp* in *thermo* group instead
*uhf*:: use *uhf* logical instead
*velodump*:: use *velo* in *md* group instead
BUGS
----
Please report all bugs with an example input, `--copy` dump of internal settings
and the used geometry, as well as the `--verbose` output to xtb@thch.uni-bonn.de
RESOURCES
---------
Main web site: http://grimme.uni-bonn.de/software/xtb
COPYING
-------
Copyright \(C) 2015-2020 S. Grimme. This work is licensed under the Creative Commons Attribution-ShareAlike 4.0 International (CC BY-SA 4.0).
xtb-6.7.1/man/xtb.1.adoc 0000664 0000000 0000000 00000040545 14650006642 0014674 0 ustar 00root root 0000000 0000000 XTB(1)
======
:doctype: manpage
NAME
----
xtb - performs semiempirical quantummechanical calculations,
for version 6.0 and newer
SYNOPSIS
--------
*xtb* ['OPTIONS'] 'FILE' ['OPTIONS']
DESCRIPTION
-----------
The `xtb(1)` program performs semiempirical quantummechanical calculations.
The underlying effective Hamiltonian is derived from density functional
tight binding (DFTB). This implementation of the xTB Hamiltonian is currently
compatible with the zeroth, first and second level parametrisation for
geometries, frequencies and non-covalent interactions (GFN)
as well as with the ionisation potential and
electron affinity (IPEA) parametrisation of the GFN1 Hamiltonian.
The generalized born (GB) model with solvent accessable surface area (SASA)
is also available in this version.
Ground state calculations for the simplified Tamm-Dancoff approximation (sTDA)
with the vTB model are currently not implemented.
GEOMETRY INPUT
~~~~~~~~~~~~~~
The wide variety of input formats for the geometry are supported by using
the mctc-lib. Supported formats are:
- Xmol/xyz files (xyz, log)
- Turbomole's coord, riper's periodic coord (tmol, coord)
- DFTB+ genFormat geometry inputs as cluster, supercell or fractional (gen)
- VASP's POSCAR/CONTCAR input files (vasp, poscar, contcar)
- Protein Database files, only single files (pdb)
- Connection table files, molfile (mol) and structure data format (sdf)
- Gaussian's external program input (ein)
- JSON input with `qcschema_molecule` or `qcschema_input` structure (json)
- FHI-AIMS' input files (geometry.in)
- Q-Chem molecule block inputs (qchem)
For a full list visit: https://grimme-lab.github.io/mctc-lib/page/index.html
`xtb(1)` reads additionally `.CHRG` and `.UHF` files if present.
INPUT SOURCES
-------------
`xtb(1)` gets its information from different sources. The one with highest
priority is the commandline with all allowed flags and arguments described below.
The secondary source is the `xcontrol(7)` system, which can in principle
use as many input files as wished. The `xcontrol(7)` system is the successor
of the set-block as present in version 5.8.2 and earlier. This implementation
of `xtb(1)` reads the `xcontrol(7)` from two of three possible sources,
the local xcontrol file or the 'FILE' used to specify the geometry
and the global configuration file found in the `XTBPATH`.
OPTIONS
-------
*-c, --chrg* 'INT'::
specify molecular charge as 'INT', overrides `.CHRG` file and `xcontrol` option
*-c, --chrg* 'INT:INT'::
specify charges for 'inner region:outer region' for `oniom` calculation, overrides `.CHRG` file and `xcontrol` option
*-u, --uhf* 'INT'::
specify number of unpaired electrons as 'INT', overrides `.UHF` file and `xcontrol` option
*--gfn* 'INT'::
specify parametrisation of GFN-xTB (default = 2)
*--gfnff, --gff* ::
specify parametrisation of GFN-FF
*--tblite* ::
use tblite library as implementation for xTB
--ceh* ::
calculate CEH (Charge-Extended Hückel model) charges and write them to ceh.charges file
*--ptb* ::
performs single-point calculation with the density tight-binding method PTB.
Provides electronic structure and properties, such as, e.g., atomic charges, bond orders, and dipole moments,
but does not provide any energy-related properties, such as, e.g., total energy, nuclear gradients, or vibrational frequencies.
*--spinpol*::
enables spin-polarization for xTB methods (tblite required)
*--oniom* 'METHOD' 'LIST'::
use subtractive embedding via ONIOM method. 'METHOD' is given as `high:low`
where `high` can be 'orca', 'turbomole', 'gfn2', 'gfn1', or 'gfnff' and
`low` can be 'gfn2', 'gfn1', or 'gfnff'.
The inner region is given as comma-separated indices directly in the commandline
or in a file with each index on a separate line.
*--etemp, --temp* 'REAL'::
electronic temperature for SCC (default = 300K)
*--esp* ::
calculate electrostatic potential on VdW-grid
*--stm* ::
calculate STM image
*-a, --acc* 'REAL'::
accuracy for SCC calculation, lower is better (default = 1.0)
*--iterations, --maxiterations* 'INT'::
maximum number of SCC iterations per single point calculation (default = 250)
*--vparam* 'FILE'::
Parameter file for xTB calculation
*--alpb* 'SOLVENT' ['STATE']::
analytical linearized Poisson-Boltzmann (ALPB) model,
available solvents are 'acetone', 'acetonitrile', 'aniline', 'benzaldehyde',
'benzene', 'ch2cl2', 'chcl3', 'cs2', 'dioxane', 'dmf', 'dmso', 'ether',
'ethylacetate', 'furane', 'hexandecane', 'hexane', 'methanol', 'nitromethane',
'octanol', 'woctanol', 'phenol', 'toluene', 'thf', 'water'.
The solvent input is not case-sensitive.
The Gsolv reference state can be chosen as 'reference', 'bar1M', or 'gsolv' (default).
*-g, --gbsa* 'SOLVENT' ['STATE']::
generalized born (GB) model with solvent accessable surface (SASA) model,
available solvents are 'acetone', 'acetonitrile', 'benzene' (only GFN1-xTB),
'CH2Cl2', 'CHCl3', 'CS2', 'DMF' (only GFN2-xTB), 'DMSO', 'ether', 'H2O',
'methanol', 'n-hexane' (only GFN2-xTB), 'THF' and 'toluene'.
The solvent input is not case-sensitive.
The Gsolv reference state can be chosen as 'reference', 'bar1M', or 'gsolv' (default).
*--cosmo* 'SOLVENT/EPSILON'::
domain decomposition conductor-like screening model (ddCOSMO)
available solvents are all solvents that are available for alpb.
Additionally, the dielectric constant can be set manually or an ideal conductor
can be chosen by setting epsilon to infinity.
*--tmcosmo* 'SOLVENT/EPSILON'::
same as --cosmo, but uses TM convention for writing the .cosmo files.
*--cpcmx* 'SOLVENT'::
extended conduction-like polarizable continuum solvation model (CPCM-X),
available solvents are all solvents included in the Minnesota Solvation Database.
*--cma* ::
shifts molecule to center of mass and transforms cartesian coordinates
into the coordinate system of the principle axis (not affected by
`isotopes'-file).
*--pop*::
requests printout of Mulliken population analysis
*--molden*::
requests printout of molden file
*--alpha* ::
requests the extension of electrical properties to static molecular dipole polarizabilities
*--raman* ::
requests Raman spectrum calculation via combination of GFN2-xTB and PTB
using the temperature 'REAL' (default 298.15 K) and the wavelength of
the incident laser which must be given in nm 'REAL' (default 514 nm)
*--dipole*::
requests dipole printout
*--wbo*::
requests Wiberg bond order printout
*--lmo*::
requests localization of orbitals
*--fod*::
requests FOD calculation
RUNTYPS
~~~~~~~
NOTE: You can only select *one* runtyp, only the first runtyp will be used
from the program, use implemented composite runtyps to perform several
operations at once.
*--scc, --sp*::
performs a single point calculation
*--vip*::
performs calculation of ionisation potential.
This needs the .param_ipea.xtb parameters
and a GFN1 Hamiltonian.
*--vea*::
performs calculation of electron affinity.
This needs the .param_ipea.xtb parameters
and a GFN1 Hamiltonian.
*--vipea*::
performs calculation of electron affinity and ionisation potential.
This needs the .param_ipea.xtb parameters
and a GFN1 Hamiltonian.
*--vfukui*::
performs calculation of Fukui indices.
*--vomega*::
performs calculation of electrophilicity index.
This needs the .param_ipea.xtb parameters
and a GFN1 Hamiltonian.
*--grad*::
performs a gradient calculation
*-o, --opt* ['LEVEL']::
call `ancopt(3)` to perform a geometry optimization,
levels from crude, sloppy, loose, normal (default), tight, verytight
to extreme can be chosen
*--hess*::
perform a numerical hessian calculation on input geometry
*--ohess* ['LEVEL']::
perform a numerical hessian calculation on an `ancopt(3)` optimized
geometry
*--bhess* ['LEVEL']::
perform a biased numerical hessian calculation on an `ancopt(3)` optimized
geometry
*--md*::
molecular dynamics simulation on start geometry
*--metadyn* ['int']::
meta dynamics simulation on start geometry, saving 'int' snapshots
of the trajectory to bias the simulation
*--omd*::
molecular dynamics simulation on `ancopt(3)` optimized geometry,
a loose optimization level will be chosen
*--metaopt* ['LEVEL']::
call `ancopt(3)` to perform a geometry optimization,
then try to find other minimas by meta dynamics
*--path* ['FILE']::
use meta dynamics to calculate a path from the input geometry
to the given product structure
*--reactor*::
experimental
*--modef* 'INT'::
modefollowing algorithm. 'INT' specifies the mode that should be
used for the modefollowing.
*--dipro* ['REAL']::
the dimer projection method for the calculation of electronic coupling integrals between two fragments.
'REAL' sets the threshold for nearly degenerate orbitals to still be considered (default = 0.1 eV).
GENERAL
~~~~~~~
*-I, --input* 'FILE'::
use 'FILE' as input source for `xcontrol(7)` instructions
*--namespace* 'STRING'::
give this `xtb(1)` run a namespace. All files, even temporary
ones, will be named according to 'STRING' (might not work everywhere).
*--[no]copy*::
copies the `xcontrol` file at startup (default = true)
*--[no]restart*::
restarts calculation from `xtbrestart` (default = true)
*-P, --parallel* 'INT'::
number of parallel processes
*--define*::
performs automatic check of input and terminate
*--json*::
write xtbout.json file
*--citation*::
print citation and terminate
*--license*::
print license and terminate
*-v, --verbose*::
be more verbose (not supported in every unit)
*-s, --silent*::
clutter the screen less (not supported in every unit)
*--ceasefiles*::
reduce the amount of output and files written (e.g. xtbtopo.mol)
*--strict*::
turns all warnings into hard errors
*-h, --help*::
show help page
*--cut*::
create inner region for `oniom` calculation without performing any calcultion
ENVIRONMENT VARIABLES
---------------------
`xtb(1)` accesses a path-like variable to determine the location of its
parameter files, you have to provide the `XTBPATH` variable in the same
syntax as the system `PATH` variable. If this variable is not set, `xtb(1)`
will try to generate the `XTBPATH` from the deprecated `XTBHOME` variable.
In case the `XTBHOME` variable is not set it will be generated from the
`HOME` variable. So in principle storing the parameter files in the users
home directory is suffient but might lead to come cluttering.
Since the `XTBHOME` variable is deprecated with version 6.0 and newer
`xtb(1)` will issue a warning if `XTBHOME` is not part of the `XTBPATH`
since the `XTBHOME` variable is not used in production runs.
LOCAL FILES
-----------
`xtb(1)` accesses a number of local files in the current working directory
and also writes some output in specific files. Note that not all input
and output files allow the *--namespace* option.
INPUT
~~~~~
*.CHRG*::
molecular charge as 'int'
*.UHF*::
Number of unpaired electrons as 'int'
*mdrestart*::
contains restart information for MD, *--namespace* compatible.
*pcharge*::
point charge input, format is 'real' 'real' 'real' 'real' ['int'].
The first real is used as partial charge, the next three entries
are the cartesian coordinates and the last is an optional atom type.
Note that the point charge input is not affected by a CMA transformation.
Also parallel Hessian calculations will fail due to I/O errors when using
point charge embedding.
*xcontrol*::
default input file in *--copy* mode, see `xcontrol(7)` for details,
set by *--input*.
*xtbrestart*::
contains restart information for SCC, *--namespace* compatible.
OUTPUT
~~~~~~
*charges*::
contains Mulliken partial charges calculated in SCC
*ceh.charges*::
contains CEH (Charge-Extended Hückel) charges
*wbo*::
contains Wiberg bond order calculated in SCC, *--namespace* compatible.
*energy*::
total energy in Turbomole format
*gradient*::
geometry, energy and gradient in Turbomole format
*hessian*::
contains the (not mass weighted) cartesian Hessian, *--namespace* compatible.
*xtbtopo.mol*::
topology information written in molfile format.
*xtbopt.xyz*, *xtbopt.coord*::
optimized geometry in the same format as the input geometry.
*xtbhess.coord*::
distorted geometry if imaginary frequency was found
*xtbopt.log*::
contains all structures obtained in the geometry optimization
with the respective energy in the comment line in a XMOL formatted
trajectory
*xtbsiman.log*,*xtb.trj.'int'*::
trajectories from MD
*scoord.'int'*::
coordinate dump of MD
*fod.cub*::
FOD on a cube-type grid
*spindensity.cub*::
spindensity on a cube-type grid
*density.cub*::
density on a cube-type grid
*molden.input*::
MOs and occupation for visualisation and sTDA-xTB calculations
*pcgrad*::
gradient of the point charges
*xtb_esp.cosmo*::
ESP fake cosmo output
*xtb_esp_profile.dat*::
ESP histogramm data
*vibspectrum*::
Turbomole style vibrational spectrum data group
*g98.out*, *g98l.out*, *g98_canmode.out*, *g98_locmode.out*::
g98 fake output with normal or local modes
*.tmpxtbmodef*::
input for mode following
*coordprot.0*::
protonated species
*xtblmoinfo*::
centers of the localized molecular orbitals
*lmocent.coord*::
centers of the localized molecular orbitals
*tmpxx*::
number of recommended modes for mode following
*xtb_normalmodes*, *xtb_localmodes*::
binary dump for mode following
TOUCH
~~~~~
*xtbmdok*::
generated by successful MD
*.xtbok*::
generated after each successful `xtb(1)` run
*.sccnotconverged*::
generated after failed SCC with printlevel=2
//////////////////
NAMING CONVENTIONS
------------------
//////////////////
WARNINGS
--------
`xtb(1)` can generate the two types of warnings, the first warning section
is printed immediately after the normal banner at startup, summing up the
evaluation of all input sources (commandline, xcontrol, xtbrc). To check
this warnings exclusively before running an expensive calculation a
input check is implemented via the *--define* flag. Please, study this
warnings carefully!
After `xtb(1)` has evaluated the all input sources it immediately enters
the production mode. Severe errors will lead to an abnormal termination
which is signalled by the printout to STDERR and a non-zero return value
(usually 128). All non-fatal errors are summerized in the end of the calculation
in one block, right before the timing analysis.
To aid the user to fix the problems generating these warnings a brief
summary of each warning with its respective string representation in the
output will be shown here:
*ANCopt failed to converge the optimization*::
geometry optimization has failed to converge in the given number
optimization cycles. This is not neccessary a problem if only a
small number of cycles was given for the optimization on purpose.
All further calculations are done on the last geometry of the
optimization.
*Hessian on incompletely optimized geometry!*::
This warning will be issued twice, once before the Hessian,
calculations starts (it would otherwise take some time before
this this warning could be detected) and in the warning block
in the end. The warning will be generated if the gradient norm
on the given geometry is higher than a certain threshold.
EXIT STATUS
-----------
*0*::
normal termination of `xtb(1)`
*128*::
Failure (termination via error stop generates 128 as return value)
BUGS
----
please report all bugs with an example input, `--copy` dump of internal settings
and the used geometry, as well as the `--verbose` output to xtb@thch.uni-bonn.de
RESOURCES
---------
Main web site: http://grimme.uni-bonn.de/software/xtb
COPYING
-------
Copyright (C) 2017-2023 Stefan Grimme
xtb is free software: you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
xtb is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License
along with xtb. If not, see .
xtb-6.7.1/meson.build 0000664 0000000 0000000 00000013576 14650006642 0014503 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
# extended tight binding program package
project(
'xtb',
'fortran', 'c',
version: '6.7.1',
license: 'LGPL3-3.0-or-later',
meson_version: '>=0.62.0',
default_options: [
'buildtype=debugoptimized',
'default_library=both',
'optimization=2',
'c_std=c11',
],
)
install = not meson.is_subproject()
install_modules = install and get_option('install_modules')
commit = get_option('build_name')
git = find_program('git', required: false)
if git.found()
git_commit = run_command(git, 'show', '-s', '--format=%h')
if git_commit.returncode() == 0
commit = git_commit.stdout().strip()
endif
endif
# We rely on the existence of Python since meson will need a Python interpreter to run,
# this way we have a cross-platform way to obtain relevant data for our build.
pymod = import('python')
python = pymod.find_installation('python3', required: false)
if not python.found()
python = find_program('python3', 'python')
endif
# build a configuration data containing all the important data to propagate
# it to the automatically generated files
config = configuration_data({
'name': meson.project_name(),
'description': 'Semiempirical Extended Tight-Binding Program Package',
'version': meson.project_version(),
'commit': commit,
'date': run_command(python, '-c', 'import datetime; print(datetime.date.today().strftime("%Y-%m-%d"))').stdout().strip(),
'author': run_command(python, '-c', 'import getpass; print(getpass.getuser())').stdout().strip(),
'origin': run_command(python, '-c', 'import socket; print(socket.gethostname())').stdout().strip(),
'prefix': get_option('prefix'),
'mandir': get_option('mandir'),
'bindir': get_option('bindir'),
'libdir': get_option('libdir'),
'includedir': get_option('includedir'),
'datadir': get_option('datadir')/meson.project_name(),
})
configure_file(
input: files('assets/templates/version.f90'),
output: 'xtb_version.fh',
configuration : config,
)
## ========================================== ##
## Configuration and dependencies
## ========================================== ##
lib_deps = []
subdir('meson')
## ========================================== ##
## Sources
## ========================================== ##
srcs = []
prog = []
main = []
subdir('src')
srcs += 'symmetry/symmetry.f90'
srcs += 'symmetry/symmetry_i.c'
if get_option('nvtx')
srcs += 'src/nvtx.f90'
endif
xtb_inc = meson.current_source_dir() / 'include'
incdir = include_directories('include')
# Build target
xtb_lib = library(
meson.project_name(),
sources: srcs,
version: meson.project_version(),
dependencies: lib_deps,
include_directories: incdir,
install: install,
fortran_args: [
'-DWITH_TBLITE=@0@'.format(tblite_dep.found() ? 1 : 0),
'-DWITH_CPCMX=@0@'.format(cpx_dep.found() ? 1 : 0),
],
link_language: 'fortran',
)
xtb_dep = declare_dependency(
link_with: xtb_lib,
include_directories: [incdir, xtb_lib.private_dir_include()],
dependencies: lib_deps,
version: meson.project_version(),
)
xtb_common = get_option('default_library') == 'both' ? xtb_lib.get_static_lib() : xtb_lib
xtb_dep_static = declare_dependency(
link_with: xtb_common,
include_directories: [incdir, xtb_lib.private_dir_include()],
dependencies: lib_deps,
version: meson.project_version(),
)
xtb_exe = executable(
meson.project_name(),
sources: prog,
dependencies: xtb_dep_static,
link_language: 'fortran',
install: install,
fortran_args: [
'-DWITH_TBLITE=@0@'.format(tblite_dep.found() ? 1 : 0),
'-DWITH_CPCMX=@0@'.format(cpx_dep.found() ? 1 : 0),
],
)
xtb_header = files('include/xtb.h')
## ========================================== ##
## INSTALL
## ========================================== ##
if install
install_headers(xtb_header)
endif
asciidoc = find_program('asciidoctor', required: false)
if asciidoc.found()
xtb_man = []
xtb_man += configure_file(
command: [asciidoc, '-b', 'manpage', '@INPUT@', '-o', '@OUTPUT@'],
input: files('man/xtb.1.adoc'),
output: '@BASENAME@',
)
xtb_man += configure_file(
command: [asciidoc, '-b', 'manpage', '@INPUT@', '-o', '@OUTPUT@'],
input: files('man/xcontrol.7.adoc'),
output: '@BASENAME@',
)
if install
install_man(xtb_man)
endif
endif
xtb_parameter_files = [
'param_gfn0-xtb.txt',
'param_gfn2-xtb.txt',
'param_gfn1-xtb.txt',
'param_gfn1-si-xtb.txt',
'param_ipea-xtb.txt',
'.param_gfnff.xtb',
]
if install
install_data(xtb_parameter_files)
endif
if install_modules
xtb_objs = []
foreach file: srcs
xtb_objs += '@0@.o'.format('_'.join(file.split('/')))
endforeach
install_subdir(meson.current_build_dir()/'@0@@sta'.format(meson.project_name()),
install_dir: 'include',
strip_directory: true,
exclude_files: xtb_objs)
endif
# additional misc. files
if install
subdir('assets')
endif
## ========================================== ##
## TESTSUITE
## ========================================== ##
# make sure the correct library is loaded
xtbenv = environment()
xtbenv.prepend('LD_LIBRARY_PATH', meson.current_build_dir())
xtbenv.prepend('PYTHONPATH', meson.current_source_dir() / 'python')
xtbenv.set('XTBPATH', meson.current_source_dir())
# all tests are defined in a separate meson.build
subdir('test')
xtb-6.7.1/meson/ 0000775 0000000 0000000 00000000000 14650006642 0013446 5 ustar 00root root 0000000 0000000 xtb-6.7.1/meson/README.adoc 0000664 0000000 0000000 00000014277 14650006642 0015246 0 ustar 00root root 0000000 0000000 = Building xtb with meson
To build `xtb` from the source in this repository the https://mesonbuild.com[meson build system] can be used.
For a decent Fortran support verson 0.51 of meson or newer is required to build `xtb`,
additionally the default backend https://ninja-build.org/[ninja] is required with version 1.7 or newer.
== Getting meson
To install the meson build system first check your package manager for an up-to-date meson version,
usually this will also install ninja as dependency.
Alternatively you can install the latest version of meson and ninja with `pip` (or `pip3` depending on your system):
[source,bash]
----
pip install meson ninja [--user]
----
If you prefer `conda` as a package manage you can install meson and ninja from the conda-forge channel.
Make sure to select the conda-forge channel for searching packages.
[source,bash]
----
conda config --add channels conda-forge
conda install meson ninja
----
== Configure Intel Fortran build with MKL
The recommended build for `xtb` is with Intel Parallel Studio using the Intel Fortran compiler and the Math Kernel Library as default backend.
Precompiled, statically linked `xtb` binaries for Linux are provided at https://github.com/grimme-lab/xtb/releases/latest[release page].
The setup for the linear algebra backend defaults to MKL, therefore, only the compilers have to exported before configuring the build:
[source,bash]
----
export FC=ifort CC=icc
meson setup build --buildtype release --optimization 2
----
After the configuration step the build can be performed with ninja:
[source,bash]
----
ninja -C build
----
Note, ninja will by default use all the threads available on your system.
If you share the build machine with others it might be helpful to reduce the number of concurrent jobs using the `-j` flag.
== Configure GCC build with OpenBLAS
`xtb` can also be compiled with GCC version 8 or later.
For this example we additonally choose to change the linear algebra backend to OpenBLAS, if you have Intel Parallel Studio installed, you can leave out the last argument to get the MKL backend.
[source,bash]
----
export FC=gfortran CC=gcc
meson setup build --buildtype release --optimization 2 -Dlapack=openblas
----
To compile and run `xtb` with GCC 7 (especially 7.3.0) the source code has to be patched at several placed, for appropriate patches visit the https://github.com/grimme-lab/xtb-feedstock[conda-forge feedstock repository].
The build system will check if the OpenBLAS library provides LAPACK features as well, if this is not the case it will additionally search for LAPACK.
If you are compiling `xtb` on Darwin platforms, ensure that GCC is the actual GCC and not clang.
The build can be performed just like before:
[source,bash]
----
ninja -C build
----
== Testing the build with meson
After successfully building the `xtb` program ensure that it is working as expected.
Run the testsuite with
[source,bash]
----
ninja -C build test
----
All tests should pass, otherwise https://github.com/grimme-lab/xtb/issues/new/choose[open an issue].
== Installing `xtb` with meson
To use `xtb` in production or to pack a release with precompiled binaries the project should be installed with ninja.
The installation prefix defaults to `/usr/local` on Linux systems, you might want to adjust this first by configuring your build with
[source,bash]
----
meson configure build --prefix $HOME/.local
----
To perform the actual installation run
[source,bash]
----
ninja -C build install
----
Depending on the installation prefix and your user rights ninja might ask for the `root` access to perform the installation.
=== Advanced configuration of install destinations
The installation uses the default install directories of the https://mesonbuild.com/Builtin-options.html[meson build system]
To modify the behaviour configure meson with
[source,bash]
----
meson build \
--prefix=/usr \
--bindir=bin \
--libdir=lib \
--includedir=include \
--datadir=share \
--mandir=man
----
This will result in a directory structure like
[source]
----
usr
├── bin
│ └── xtb
├── include
│ └── xtb.h
├── lib
│ ├── libxtb.a
│ ├── libxtb.so -> libxtb.so.6
│ ├── libxtb.so.6 -> libxtb.so.6.3.2
│ ├── libxtb.so.6.3.2
│ └── pkgconfig
│ └── xtb.pc
└── share
├── man
│ ├── man1
│ │ └── xtb.1
│ └── man7
│ └── xcontrol.7
├── modules
│ └── modulefiles
│ └── xtb
│ └── 6.3.2
└── xtb
├── param_gfn0-xtb.txt
├── param_gfn1-xtb.txt
├── param_gfn2-xtb.txt
└── param_ipea-xtb.txt
----
== Optimization Level
By default the compiler optimization should only use `-O2`, although the program can be safely compiled with `-O3` when using Intel compilers.
It is known that binaries build with GCC on `-O3` will produce wrong results for certain systems.
To adjust the optimization level to `-O3` use
[source,bash]
----
meson configure build --optimization=3
----
== Linear Algebra Backend
When configuring the build the wanted linear algebra backend can be specified with
[source,bash]
----
meson setup build -Dlapack=
----
The following options are available:
[cols=2*]
|===
|backend
|linked against
|mkl-static
|static MKL (default)
|mkl
|shared MKL
|mkl-rt
|MKL real time library
|openblas
|OpenBLAS and if required LAPACK
|netlib
|BLAS and LAPACK
|custom
|`-Dcustom_libraries=...`
|===
If you are using the MKL provided by conda-forge you have to link against the netlib backend
= Extending the meson build
To add new source code it should be sufficient to add the new files in the `meson.build` file in the respective source directory in the `src` tree.
New directories in the `src` tree can be included by adding them as `subdir` to the parent `meson.build` file.
To kinds of source files are distinguished, all sources for the `xtb` library are included in the `srcs` variable, while files used exclusively for the executable are stored in the `prog` list.
Source files for the testing are defined in the `TESTSUITE/meson.build` file together with their tests.
xtb-6.7.1/meson/meson.build 0000664 0000000 0000000 00000013573 14650006642 0015621 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
fc = meson.get_compiler('fortran')
cc = meson.get_compiler('c')
fc_id = fc.get_id()
if fc.get_id() != cc.get_id()
warning('FC and CC are not from the same vendor')
endif
fopts = []
if fc.get_id() == 'gcc'
fopts = [
'-fdefault-real-8',
'-fdefault-double-8',
'-ffree-line-length-none',
'-fbacktrace',
]
elif fc.get_id() == 'intel'
if get_option('buildtype') == 'release'
opt_level = [
'-Ofast',
'-ip',
'-axAVX2',
'-mtune=core-avx2',
'-fma',
]
else
opt_level = [
'-axAVX2',
]
endif
fopts = opt_level + [
'-r8',
'-traceback',
]
elif fc.get_id() == 'intel-cl'
if get_option('buildtype') == 'release'
opt_level = [
'/O3',
'/Qip',
'/QaxAVX2',
'/tune:core-avx2',
'/Qfma',
]
else
opt_level = [
'/QaxAVX2',
]
endif
fopts = opt_level + [
'/fpp',
'/4R8',
'/traceback',
]
elif fc.get_id() == 'pgi' or fc.get_id() == 'nvidia_hpc'
fopts = [
'-Mpreprocess',
'-Mbackslash',
'-Mallocatable=03',
'-traceback',
'-r8',
]
if get_option('gpu')
add_project_arguments('-acc', '-Minfo=accel', '-DXTB_GPU', language: 'fortran')
add_project_link_arguments('-acc', '-Minfo=accel', language: 'fortran')
gpu_arch = get_option('gpu_arch')
add_project_arguments('-ta=tesla:cc@0@'.format(gpu_arch), language: 'fortran')
add_project_link_arguments('-ta=tesla:cc@0@'.format(gpu_arch), language: 'fortran')
if get_option('cusolver')
add_project_arguments('-Mcudalib=cusolver,cublas', '-DUSE_CUSOLVER', '-DUSE_CUBLAS', language: 'fortran')
add_project_link_arguments('-Mcudalib=cusolver,cublas', language: 'fortran')
endif
endif
endif
add_project_arguments(fopts, language: 'fortran')
# fix compiliation problems with of symmetry/symmetry_i.c
add_project_arguments('-D_Float128=__float128', language: 'c')
## ========================================== ##
## LIBRARIES
## ========================================== ##
lapack_vendor = get_option('lapack')
if lapack_vendor == 'auto'
if fc_id == 'intel'
lapack_vendor = 'mkl'
endif
endif
if lapack_vendor == 'mkl'
mkl_dep = []
if fc_id == 'intel'
mkl_dep += cc.find_library('mkl_intel_lp64')
if get_option('openmp')
mkl_dep += cc.find_library('mkl_intel_thread')
endif
elif fc_id == 'gcc'
mkl_dep += cc.find_library('mkl_gf_lp64')
if get_option('openmp')
mkl_dep += cc.find_library('mkl_gnu_thread')
endif
else
error('MKL not supported for this compiler')
endif
if not get_option('openmp')
mkl_dep += cc.find_library('mkl_tbb_thread')
endif
mkl_dep += cc.find_library('mkl_core')
lib_deps += mkl_dep
elif lapack_vendor == 'mkl-rt'
mkl_dep = fc.find_library('mkl_rt')
lib_deps += mkl_dep
elif lapack_vendor == 'openblas'
openblas_dep = dependency('openblas', required: false)
if not openblas_dep.found()
openblas_dep = fc.find_library('openblas')
endif
lib_deps += openblas_dep
if not fc.links('external dsytrs; call dsytrs(); end', dependencies: openblas_dep)
lapack_dep = dependency('lapack', required: false)
if not lapack_dep.found()
lapack_dep = fc.find_library('lapack')
endif
lib_deps += lapack_dep
endif
elif lapack_vendor == 'custom'
foreach lib: get_option('custom_libraries')
lib_deps += fc.find_library(lib)
endforeach
else
lapack_dep = dependency('lapack', required: false)
if not lapack_dep.found()
lapack_dep = fc.find_library('lapack')
endif
lib_deps += lapack_dep
blas_dep = dependency('blas', required: false)
if not blas_dep.found()
blas_dep = fc.find_library('blas')
endif
lib_deps += blas_dep
endif
if get_option('openmp')
omp_dep = dependency('openmp', required: fc.get_id() != 'intel' and fc.get_id() != 'nvidia_hpc')
if not omp_dep.found()
if fc.get_id() == 'intel'
message('Using -qopenmp to use OpenMP with Intel compilers')
omp_dep = declare_dependency(
compile_args: '-qopenmp',
link_args: '-qopenmp',
)
else
message('Using -mp to use OpenMP with NVHPC compilers')
omp_dep = declare_dependency(
compile_args: '-mp',
link_args: '-mp',
)
endif
endif
lib_deps += omp_dep
endif
lib_deps += dependency('threads')
if get_option('nvtx')
lib_deps += fc.find_library('nvToolsExt', required: true)
endif
# Create the tool chain library as subproject
mctc_dep = dependency(
'mctc-lib',
fallback: ['mctc-lib', 'mctc_dep'],
default_options: ['default_library=static'],
)
lib_deps += mctc_dep
# Get light-weight tight-binding framework dependency
tblite_dep = dependency(
'tblite',
fallback: ['tblite', 'tblite_dep'],
default_options: ['default_library=static', 'api=false'],
required: get_option('tblite')
)
lib_deps += tblite_dep
# Get multicharge dependency
multicharge_dep = dependency(
'multicharge',
fallback: ['multicharge', 'multicharge_dep'],
)
lib_deps += multicharge_dep
# Get DFTD dependency
dftd4_dep = dependency(
'dftd4',
fallback: ['dftd4', 'dftd4_dep'],
)
lib_deps += dftd4_dep
# Get CPCM-X
cpx_dep = dependency(
'cpx',
fallback: ['cpx', 'cpx_dep'],
default_options: ['default_library=static'],
required: get_option('cpcmx')
)
lib_deps += cpx_dep
xtb-6.7.1/meson_options.txt 0000664 0000000 0000000 00000004114 14650006642 0015762 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
option(
'lapack',
type: 'combo',
value: 'auto',
yield: true,
choices: ['auto', 'mkl', 'mkl-rt', 'openblas', 'netlib', 'custom'],
description: 'Linear algebra backend for program.',
)
option(
'custom_libraries',
type: 'array',
value: [],
yield: true,
description: 'libraries to load for custom linear algebra backend',
)
option(
'tblite',
type: 'feature',
value: 'auto',
yield: true,
description: 'use tblite library as backend for xTB',
)
option(
'cpcmx',
type: 'feature',
value: 'auto',
yield: true,
description: 'include CPCM-X library for solvation evaluation',
)
option(
'openmp',
type: 'boolean',
value: true,
yield: true,
description: 'use OpenMP parallelisation',
)
option(
'install_modules',
type: 'boolean',
value: false,
description: 'Install Fortran module files to include directory.',
)
option(
'build_name',
type: 'string',
value: 'unknown',
description: 'Name of the build, will be overwritten automatically by git',
)
# GPU specific options
option('gpu', type: 'boolean', value: false,
description: 'use GPU acceleration')
option('gpu_arch', type: 'string', value: '70',
description: 'GPU architecture version string')
option('cusolver', type: 'boolean', value: false,
description: 'Use cuSOLVER for eigensolver routines')
option('nvtx', type: 'boolean', value: false,
description: 'use NVTX markers')
xtb-6.7.1/param_gfn0-xtb.txt 0000664 0000000 0000000 00000114464 14650006642 0015705 0 ustar 00root root 0000000 0000000 $info
level 0
name GFN0-xTB
doi 10.26434/chemrxiv.8326202.v1
$globpar
ks 2.0000000
kp 2.4868000
kd 2.2700000
kdiff 1.1241000
ens 0.6000000
enp -0.1000000
end -0.2000000
enscale4 4.0000000
ipeashift 1.7806900
srbshift 0.0537000
srbpre -0.0129000
srbexp 3.4847000
srbken 0.5097000
a1 0.8000000
a2 4.6000000
s8 2.8500000
s9 0.0000000
kexp 1.50000
kexplight 1.50000
renscale -0.0900000
$end
$pairpar
$end
$Z= 1 Fri Nov 30 20:58:37 CET 2018
ao=1s2s
lev= -11.9223639 -2.8061095
exp= 1.2209169 2.0165983
EN= 1.9200000
GAM= -0.3023159
KQAT2= 0.2473983
KCNS= 0.7116904
REPA= 2.1885472
REPB= 1.2455414
POLYS= -3.6355142
KQS= 0.2591008
XI= 1.2500000
KAPPA= 0.0248762
ALPG= 0.7490227
$end
$Z= 2 Tue Dec 4 13:01:57 CET 2018
ao=1s2p
lev= -20.9532631 -1.1297785
exp= 1.5824890 1.6000000
GAM= 0.7743046
KQAT2= -0.7787934
KCNS= -2.1046272
KCNP= -3.7377613
REPA= 2.2714498
REPB= 1.3440060
POLYS= -12.4694067
POLYP= 5.1200420
KQS= 0.0526662
KQP= -1.7836600
XI= 1.2912463
KAPPA= 0.1342276
ALPG= 0.4196569
$end
$Z= 3 Mon Dec 3 11:55:06 CET 2018
ao=2s2p
lev= -6.9971696 -3.2655741
exp= 0.5005719 0.4658228
GAM= 0.5303164
KQAT2= -2.0181966
KCNS= -0.0588643
KCNP= 0.1229940
REPA= 0.6634645
REPB= 1.1710492
POLYS= -9.1309270
POLYP= 26.4549941
KQS= 0.9636068
KQP= 0.1933068
XI= 0.8540050
KAPPA= 0.0103048
ALPG= 1.4256190
$end
$Z= 4 Mon Dec 3 15:58:52 CET 2018
ao=2s2p
lev= -9.8114460 -4.1691241
exp= 0.9078603 1.0039670
GAM= 0.2176474
KQAT2= 0.2010595
KCNS= 0.3659056
KCNP= -0.0543602
REPA= 0.9267640
REPB= 2.9064151
POLYS= -23.0556019
POLYP= 12.2940049
KQS= 0.8310555
KQP= 0.8910197
XI= 1.1723939
KAPPA= -0.0352374
ALPG= 2.0698743
$end
$Z= 5 Mon Dec 3 15:49:41 CET 2018
ao=2s2p
lev= -11.5274724 -7.1785553
exp= 1.7660778 1.6244411
GAM= 0.1956176
KQAT2= 0.5604651
KCNS= -3.0472261
KCNP= 0.0556489
REPA= 1.1164621
REPB= 4.4020866
POLYS= -13.0296301
POLYP= -3.8000846
KQS= 3.1865592
KQP= 0.9002623
XI= 1.1094487
KAPPA= -0.0980031
ALPG= 1.7358798
$end
$Z= 6 Fri Nov 30 20:58:37 CET 2018
ao=2s2p
lev= -15.7545853 -9.7975356
exp= 1.9915841 1.7845353
EN= 2.4800000
GAM= 0.0308461
KQAT2= 0.0908886
KCNS= -5.5477603
KCNP= 1.5631408
REPA= 1.2680750
REPB= 4.3101011
POLYS= -12.8096830
POLYP= -8.8232651
KQS= 0.1683176
KQP= 0.2988821
XI= 1.3860275
KAPPA= 0.0643920
ALPG= 1.8288757
$end
$Z= 7 Fri Nov 30 20:58:37 CET 2018
ao=2s2p
lev= -18.8417536 -11.5390772
exp= 2.3225221 2.0626548
EN= 2.9700000
GAM= 0.0559522
KQAT2= -0.0630602
KCNS= -0.2818725
KCNP= 0.6027542
REPA= 1.6211038
REPB= 4.5460146
POLYS= -12.6808155
POLYP= -8.8038076
KQS= 1.6770083
KQP= -0.2856884
XI= 1.5341534
KAPPA= 0.1053273
ALPG= 1.9346081
$end
$Z= 8 Fri Nov 30 20:58:37 CET 2018
ao=2s2p
lev= -17.9332316 -11.8400363
exp= 2.6718248 2.2239915
GAM= 0.0581228
KQAT2= -0.0504985
KCNS= -1.2537900
KCNP= -0.2934837
REPA= 2.1037547
REPB= 4.7850603
POLYS= -16.1325184
POLYP= -5.5108569
KQS= 0.5947188
KQP= 0.0916715
XI= 1.5378836
KAPPA= 0.1394809
ALPG= 1.6974795
$end
$Z= 9 Mon Dec 3 10:20:47 CET 2018
ao=2s2p
lev= -21.1766889 -12.0966829
exp= 2.6161081 2.4319703
EN= 3.5000000
GAM= 0.1574017
KQAT2= 0.0307638
KCNS= 1.1952872
KCNP= -0.2001469
REPA= 2.2062651
REPB= 7.3393960
POLYS= -1.9980582
POLYP= -15.3415612
KQS= 0.8966240
KQP= 0.2645049
XI= 1.5890750
KAPPA= 0.1276675
ALPG= 0.8169179
$end
$Z=10 Tue Dec 4 19:44:42 CET 2018
ao=2s2p3d
lev= -23.8117049 -12.7315278 -2.6152816
exp= 2.9809477 2.0785656 1.8460393
EN= 3.5000000
GAM= 0.6825784
KQAT2= -0.4585161
KCNS= -0.7969349
KCNP= -0.3183102
KCND= -0.2598776
REPA= 1.9166982
REPB= 4.2503997
POLYS= -19.0634182
POLYP= -17.9405285
POLYD= 2.9172938
KQS= 0.1394174
KQP= 0.1181016
KQD= -0.1235510
XI= 1.2893646
KAPPA= -0.1081936
ALPG= 0.6138441
$end
$Z=11 Mon Dec 3 15:13:05 CET 2018
ao=3s3p
lev= -8.0168587 -3.5357541
exp= 0.5467934 0.5633952
GAM= 0.3922376
KQAT2= -1.1795902
KCNS= 0.6047597
KCNP= 0.1676901
REPA= 0.8129781
REPB= 10.5220970
POLYS= -1.9038223
POLYP= 20.5158234
KQS= 1.4578927
KQP= -2.1216651
XI= 0.7891208
KAPPA= -0.0008132
ALPG= 1.7294046
$end
$Z=12 Mon Dec 3 15:03:18 CET 2018
ao=3s3p3d
lev= -8.8996217 -3.3930267 -2.3704000
exp= 1.0300807 0.7916346 0.8488197
GAM= 0.5581866
KQAT2= -0.5383484
KCNS= 0.3066908
KCNP= -0.0315587
KCND= 0.3687894
REPA= 0.8408742
REPB= 7.7916659
POLYS= -23.8821588
POLYP= 6.2198335
POLYD= 16.9907381
KQS= -1.1457069
KQP= 0.6192238
KQD= -1.7052287
XI= 0.9983021
KAPPA= -0.0279860
ALPG= 1.7925036
$end
$Z=13 Mon Dec 3 14:48:51 CET 2018
ao=3s3p3d
lev= -11.4217432 -5.5010511 -3.7796816
exp= 1.2874433 1.0904909 0.8900769
GAM= 0.3017510
KQAT2= -0.2891414
KCNS= -0.7913111
KCNP= 0.3614827
KCND= -0.8703979
REPA= 0.8361156
REPB= 11.3886282
POLYS= -25.9314993
POLYP= 10.0218349
POLYD= 5.7458163
KQS= 1.1373983
KQP= -0.5030043
KQD= -0.2180697
XI= 0.9620847
KAPPA= -0.0521436
ALPG= 1.2156739
$end
$Z=14 Mon Dec 3 14:30:41 CET 2018
ao=3s3p3d
lev= -14.1305658 -8.2750304 -3.1140941
exp= 1.4531665 1.9693476 1.0819287
GAM= 0.1039137
KQAT2= -0.2539732
KCNS= 1.8789681
KCNP= -0.8229514
KCND= -0.3042044
REPA= 0.8859465
REPB= 13.9495563
POLYS= -14.0752116
POLYP= -18.0300640
POLYD= 13.1379417
KQS= -1.6833805
KQP= 0.7676860
KQD= -0.3164855
XI= 1.0441134
KAPPA= -0.0257206
ALPG= 1.5314457
$end
$Z=15 Mon Dec 3 12:53:27 CET 2018
ao=3s3p3d
lev= -15.7071105 -9.8725694 -1.6270802
exp= 1.8253512 1.7857588 1.6661366
GAM= 0.2124917
KQAT2= -0.4636669
KCNS= 0.7048836
KCNP= -0.2076245
KCND= -0.9160855
REPA= 1.0684151
REPB= 16.7912135
POLYS= -22.5131801
POLYP= -15.1342971
POLYD= 31.3131980
KQS= 0.0638088
KQP= -0.0488732
KQD= 0.1144146
XI= 1.4789559
KAPPA= 0.1651461
ALPG= 1.3730859
$end
$Z=16 Mon Dec 3 12:24:23 CET 2018
ao=3s3p3d
lev= -20.1581637 -11.1864809 -0.8356505
exp= 1.8928587 1.9498486 1.6934107
GAM= 0.0580720
KQAT2= 0.0175812
KCNS= -0.1240442
KCNP= -0.0611739
KCND= -0.0694984
REPA= 1.1882871
REPB= 13.3874290
POLYS= -27.9640046
POLYP= -12.6286929
POLYD= 25.8298106
KQS= -0.3628979
KQP= -0.1162502
KQD= 0.5229391
XI= 1.3926377
KAPPA= 0.0914418
ALPG= 1.7936326
$end
$Z=17 Di 5. Mär 21:25:35 CET 2019
ao=3s3p3d
lev= -26.2723861 -12.3657994 -1.9017158
exp= 2.4427851 2.0467885 2.2975192
GAM= 0.2537467
KQAT2= -0.4977269
KCNS= 1.1846012
KCNP= -0.0422548
KCND= -1.0808918
REPA= 1.4429448
REPB= 13.9700526
POLYS= -25.6075631
POLYP= -14.2698415
POLYD= 37.2632140
KQS= -0.1771804
KQP= 0.3541391
KQD= 0.1082906
XI= 1.4749100
KAPPA= 0.1213634
ALPG= 2.4255996
$end
$Z=18 Tue Dec 4 20:03:15 CET 2018
ao=3s3p3d
lev= -22.0270820 -14.3127631 -2.9389433
exp= 2.4411522 2.0047267 1.9691892
GAM= 0.5780354
KQAT2= -1.8034383
KCNS= -0.8330348
KCNP= 0.1406891
KCND= -0.2103496
REPA= 1.1993811
REPB= 14.4971987
POLYS= -26.8745198
POLYP= -16.3714740
POLYD= 21.6207312
KQS= 0.0581999
KQP= 0.1172583
KQD= 0.2579057
XI= 1.2250415
KAPPA= -0.0636298
ALPG= 1.5891656
$end
$Z=19 Sun Dec 9 18:48:46 CET 2018
ao=4s4p
lev= -6.6921296 -3.1081605
exp= 0.7780770 0.7000000
EN= 1.4500000
GAM= 0.3920658
KQAT2= -0.2695403
KCNS= 0.0431781
KCNP= 0.2249671
REPA= 0.5700050
REPB= 13.8061512
POLYS= 1.7106901
POLYP= 24.4323336
KQS= 1.4171788
KQP= 0.6090963
XI= 0.8162292
KAPPA= -0.0045838
ALPG= 2.1829647
$end
$Z=20 Tue Dec 11 08:52:05 CET 2018
ao=4s4p3d
lev= -8.0531971 -2.1761231 -0.2675983
exp= 1.1200000 0.7483882 1.5500000
EN= 1.8000000
GAM= -0.0024897
KQAT2= 0.2084025
KCNS= 0.9861689
KCNP= 0.8916793
KCND= 0.3360490
REPA= 0.8345430
REPB= 13.9719788
POLYS= -21.2288327
POLYP= -3.2398787
POLYD= 13.9882752
KQS= -1.3567908
KQP= 0.7982482
KQD= -2.4352495
XI= 1.1252036
KAPPA= 0.0007509
ALPG= 1.4177623
$end
$Z=21 Sat Dec 8 21:57:50 CET 2018
ao=3d4s4p
lev= -8.7129730 -9.0228950 -2.3954879
exp= 1.6075504 1.0933429 1.0700000
EN= 1.7300000
GAM= -0.0061520
KQAT2= -0.6961569
KCNS= -0.4244589
KCNP= -0.1039491
KCND= 1.1290272
REPA= 0.6840185
REPB= 10.9127447
POLYS= 5.3449585
POLYP= 25.3716352
POLYD= -31.0302574
KQS= -1.2515726
KQP= -0.2288979
KQD= -0.1126341
XI= 0.9641451
KAPPA= -0.0307730
ALPG= 1.5181399
$end
$Z=22 Thu Dec 6 05:27:29 CET 2018
ao=3d4s4p
lev= -8.5703364 -9.4933734 -2.2959946
exp= 1.5158150 1.2148492 1.0965783
GAM= 0.1663252
KQAT2= -0.0444615
KCNS= -2.6131513
KCNP= -0.9668192
KCND= 1.7000000
REPA= 0.7915733
REPB= 13.4067871
POLYS= 21.1807596
POLYP= 24.9345278
POLYD= -26.2283413
KQS= -2.6329946
KQP= -0.5589503
KQD= -0.6584541
XI= 0.8810155
KAPPA= -0.0286150
ALPG= 1.9919805
$end
$Z=23 Thu Dec 6 21:49:41 CET 2018
ao=3d4s4p
lev= -8.7570928 -9.8674899 -1.2850031
exp= 1.7421878 1.1888016 0.8934693
GAM= 0.1051751
KQAT2= -0.1157893
KCNS= -0.3811876
KCNP= -0.3240250
KCND= 0.2890820
REPA= 1.0676223
REPB= 16.7322903
POLYS= 7.0558197
POLYP= 26.9000610
POLYD= -31.3799774
KQS= -2.8582869
KQP= -0.9497022
KQD= -0.1743943
XI= 0.9741986
KAPPA= -0.0341465
ALPG= 1.7171675
$end
$Z=24 Thu Dec 6 21:17:07 CET 2018
ao=3d4s4p
lev= -8.8203392 -7.1020286 -1.3383282
exp= 1.8634588 1.4228855 1.4932821
GAM= 0.0009900
KQAT2= -0.1506473
KCNS= -4.8366149
KCNP= -0.0547793
KCND= 0.0727051
REPA= 0.9216746
REPB= 21.8192969
POLYS= 2.0452996
POLYP= 27.0253735
POLYD= -15.1553980
KQS= -0.6557652
KQP= -1.1133287
KQD= 0.5864026
XI= 1.1029038
KAPPA= -0.0419655
ALPG= 2.0655063
$end
$Z=25 Thu Dec 6 20:46:17 CET 2018
ao=3d4s4p
lev= -9.5757701 -6.0802192 -3.7852117
exp= 1.7327124 1.4062701 1.2782309
GAM= 0.0976543
KQAT2= -0.0193450
KCNS= -1.5528487
KCNP= -0.0750273
KCND= 0.1000000
REPA= 1.1151815
REPB= 22.8754319
POLYS= -2.9359221
POLYP= 29.3785517
POLYD= -27.4411979
KQS= -2.1012472
KQP= 0.0931727
KQD= -0.2296589
XI= 1.0076949
KAPPA= -0.0088536
ALPG= 1.3318009
$end
$Z=26 Thu Dec 6 20:23:04 CET 2018
ao=3d4s4p
lev= -10.1463332 -5.5418598 -3.7951519
exp= 1.9253779 0.9262150 1.2346615
GAM= 0.0612028
KQAT2= 0.1358351
KCNS= -3.0453727
KCNP= -0.6034576
KCND= 0.7000000
REPA= 1.1883881
REPB= 25.2196212
POLYS= 6.2785647
POLYP= 28.4073754
POLYD= -25.0617776
KQS= -2.1531278
KQP= -1.3014729
KQD= -0.2054193
XI= 0.7744353
KAPPA= -0.1001069
ALPG= 1.3660068
$end
$Z=27 Thu Dec 6 19:43:13 CET 2018
ao=3d4s4p
lev= -10.5325577 -4.9644527 -2.6210546
exp= 2.1305990 1.9253832 1.3966367
GAM= 0.0561526
KQAT2= -0.0258463
KCNS= -0.8636611
KCNP= 0.5404216
KCND= 1.0000000
REPA= 1.1895339
REPB= 26.9753662
POLYS= 2.7815688
POLYP= 22.8556886
POLYD= -22.1545572
KQS= -1.6422305
KQP= -0.2413613
KQD= 0.1032325
XI= 0.7554040
KAPPA= -0.1190502
ALPG= 1.5694128
$end
$Z=28 Thu Dec 6 07:33:30 CET 2018
ao=3d4s4p
lev= -10.5903637 -6.6362657 -2.3476564
exp= 2.3227981 1.5682330 1.5655420
GAM= 0.0899774
KQAT2= -0.1389803
KCNS= 1.7130286
KCNP= -0.8594284
KCND= 0.2045707
REPA= 1.2692713
REPB= 27.2652026
POLYS= -6.3873757
POLYP= 18.5067943
POLYD= -20.6965198
KQS= 0.0892590
KQP= 0.6269495
KQD= -0.0372394
XI= 1.0182630
KAPPA= -0.0726233
ALPG= 1.2762644
$end
$Z=29 Thu Dec 6 07:55:48 CET 2018
ao=3d4s4p
lev= -11.3598265 -8.4558686 -3.0589423
exp= 2.3709891 1.8409795 1.7423898
GAM= 0.1313171
KQAT2= 0.1832504
KCNS= 0.2336012
KCNP= -0.3151736
KCND= 0.1150023
REPA= 1.1734165
REPB= 26.2195102
POLYS= -9.3513228
POLYP= 8.0361280
POLYD= -25.4274699
KQS= 0.0790442
KQP= 0.0667641
KQD= -0.2727800
XI= 1.0316167
KAPPA= -0.0219233
ALPG= 1.0039549
$end
$Z=30 Di 11. Dez 12:50:34 CET 2018
ao=4s4p
lev= -11.0505242 -2.7759459
exp= 1.4465300 1.2040440
GAM= 0.5728071
KQAT2= 0.2795320
KCNS= 0.4980615
KCNP= 0.5813466
REPA= 1.0018764
REPB= 14.3840374
POLYS= -20.5283728
POLYP= 18.3163734
KQS= 0.5947695
KQP= -0.3462432
XI= 1.6317474
KAPPA= 0.0641913
ALPG= 0.7338863
$end
$Z=31 Do 6. Dez 20:57:16 CET 2018
ao=4s4p4d
lev= -11.2255436 -4.6379660 -0.5568933
exp= 1.5059368 1.3063387 1.0909195
GAM= 0.1741615
KQAT2= -0.2653902
KCNS= 0.5567111
KCNP= 0.5748990
KCND= -0.2131931
REPA= 1.1597304
REPB= 25.4102208
POLYS= -25.9659007
POLYP= 0.2493204
POLYD= 31.9811359
KQS= 0.8467361
KQP= -0.2584210
KQD= -0.5108585
XI= 1.1186739
KAPPA= -0.0103130
ALPG= 3.2596250
$end
$Z=32 Fr 7. Dez 03:03:42 CET 2018
ao=4s4p4d
lev= -15.5640015 -9.1779578 -1.1917480
exp= 1.8047369 1.7982376 1.0955633
GAM= 0.2671888
KQAT2= -0.3850791
KCNS= 1.8775492
KCNP= -1.1667497
KCND= -0.1468127
REPA= 1.1708353
REPB= 43.7565690
POLYS= -22.5969796
POLYP= -13.0777911
POLYD= 29.8243400
KQS= 0.2348166
KQP= -0.2410370
KQD= -0.2772269
XI= 1.0345958
KAPPA= 0.0262628
ALPG= 1.7530299
$end
$Z=33 Fr 7. Dez 15:08:32 CET 2018
ao=4s4p4d
lev= -16.8021037 -10.2020806 -0.1526587
exp= 2.0023112 1.9021607 1.3993110
GAM= 0.2351989
KQAT2= -0.4048451
KCNS= 0.3228237
KCNP= -0.6260172
KCND= 0.1759185
REPA= 1.2085038
REPB= 34.9344472
POLYS= -27.5975320
POLYP= -20.1579127
POLYD= 33.9750529
KQS= 1.1862714
KQP= 1.3281349
KQD= 0.6150681
XI= 1.3090772
KAPPA= 0.0222202
ALPG= 1.5281792
$end
$Z=34 Mi 5. Dez 15:03:51 CET 2018
ao=4s4p4d
lev= -20.6883851 -11.3475165 -0.0925094
exp= 2.2563431 2.1483129 1.8766631
GAM= 0.0718104
KQAT2= -0.0331375
KCNS= -0.0314322
KCNP= -0.4075826
KCND= 0.6444935
REPA= 1.1161800
REPB= 22.8724870
POLYS= -24.4009201
POLYP= -18.4932335
POLYD= 31.6569329
KQS= 0.1524644
KQP= 0.6961378
KQD= -1.0725308
XI= 1.4119283
KAPPA= 0.0709954
ALPG= 2.1837813
$end
$Z=35 Mon Dec 3 11:01:18 CET 2018
ao=4s4p4d
lev= -19.8975374 -11.6316818 -1.1601961
exp= 2.5042181 2.1106542 1.9511992
GAM= 0.3458143
KQAT2= -0.3771185
KCNS= -0.3614742
KCNP= 0.3742490
KCND= -0.6477093
REPA= 1.3193094
REPB= 34.2378269
POLYS= -22.8480620
POLYP= -20.4623921
POLYD= 32.3160404
KQS= -0.0337658
KQP= 0.3715817
KQD= -0.6430662
XI= 1.4500674
KAPPA= 0.0422244
ALPG= 2.1642027
$end
$Z=36 Tue Dec 4 20:22:49 CET 2018
ao=4s4p4d
lev= -17.7445664 -13.3156057 -1.3999865
exp= 2.7659636 2.1692369 1.8254810
GAM= 0.8203265
KQAT2= -0.1964130
KCNS= -0.3657585
KCNP= -0.0288971
KCND= 0.0662612
REPA= 0.7670615
REPB= 15.1027639
POLYS= -29.6544708
POLYP= -11.8101528
POLYD= 26.3649672
KQS= -0.0658049
KQP= 0.0634599
KQD= 1.3725483
XI= 1.1746889
KAPPA= -0.0308245
ALPG= 2.7280594
$end
$Z=37 Mon Dec 10 20:39:11 CET 2018
ao=5s5p
lev= -6.6590644 -3.2967564
exp= 0.6993851 0.8209591
EN= 1.5000000
GAM= 0.4287770
KQAT2= 1.5782426
KCNS= 0.2927284
KCNP= 0.4327208
REPA= 0.6171015
REPB= 39.1086736
POLYS= -3.9550260
POLYP= 17.8102922
KQS= -2.1110486
KQP= -1.3455843
XI= 0.6686200
KAPPA= 0.0086249
ALPG= 0.7838049
$end
$Z=38 Tue Dec 11 08:12:25 CET 2018
ao=5s5p4d
lev= -6.3552773 -1.6881756 -0.1094950
exp= 1.1429377 0.8089888 1.5500000
EN= 1.5000000
GAM= 0.2667067
KQAT2= 0.1783732
KCNS= 0.8783924
KCNP= 0.5717898
KCND= 0.3126696
REPA= 0.8421909
REPB= 32.7340796
POLYS= -20.4705547
POLYP= -5.6623775
POLYD= 1.1533441
KQS= -0.7184537
KQP= 0.0777799
KQD= -0.8135551
XI= 1.0744648
KAPPA= -0.0237146
ALPG= 1.4274742
$end
$Z=39 Sat Dec 15 16:06:54 CET 2018
ao=4d5s5p
lev= -7.3282377 -10.5232537 -1.2841045
exp= 1.7000000 1.2510491 1.0686497
EN= 1.5500000
GAM= 0.0873658
KQAT2= -0.5462958
KCNS= 0.8433168
KCNP= -0.0730286
KCND= 0.3976138
REPA= 0.6513468
REPB= 18.6398784
POLYS= -14.8904419
POLYP= 32.7512297
POLYD= -24.8248233
KQS= 1.1237295
KQP= -0.9370621
KQD= 0.1974924
XI= 0.9107813
KAPPA= -0.0721798
ALPG= 1.8023947
$end
$Z=40 Fri Dec 14 20:06:11 CET 2018
ao=4d5s5p
lev= -8.3528075 -9.4151949 -1.9905675
exp= 1.7925035 1.5123924 1.1495969
GAM= 0.0599431
KQAT2= -0.1563616
KCNS= 1.0938012
KCNP= -0.6167863
KCND= 0.1437786
REPA= 0.6906528
REPB= 22.6163764
POLYS= -1.2323670
POLYP= 31.3521888
POLYD= -25.4108005
KQS= -3.1290732
KQP= -0.6950275
KQD= 0.2953364
XI= 0.7876056
KAPPA= -0.0848810
ALPG= 1.6093288
$end
$Z=41 Thu Dec 13 21:04:05 CET 2018
ao=4d5s5p
lev= -8.9909092 -9.3825305 -1.0846865
exp= 1.7107755 1.3747235 0.7765805
GAM= 0.1581972
KQAT2= 0.2100641
KCNS= 1.5858874
KCNP= -0.2495775
KCND= -0.7270306
REPA= 0.8705783
REPB= 27.6545601
POLYS= -20.1589551
POLYP= 23.9125590
POLYD= -28.9368791
KQS= -1.5564962
KQP= -0.4070963
KQD= -0.0034815
XI= 1.0039889
KAPPA= -0.0402828
ALPG= 1.3834349
$end
$Z=42 Thu Dec 13 15:49:52 CET 2018
ao=4d5s5p
lev= -8.3391136 -5.0423265 -3.3157522
exp= 1.7502703 1.5772858 1.4297760
GAM= 0.1716374
KQAT2= 0.5064106
KCNS= 0.1240865
KCNP= -0.6514497
KCND= 0.8912258
REPA= 0.9711021
REPB= 37.8625561
POLYS= 10.4647630
POLYP= 25.7071394
POLYD= -27.1881494
KQS= -0.5021863
KQP= -2.0445824
KQD= 0.4028728
XI= 0.9225265
KAPPA= -0.0372396
ALPG= 1.1740977
$end
$Z=43 Thu Dec 13 08:51:13 CET 2018
ao=4d5s5p
lev= -9.5934551 -4.1238201 -2.8210863
exp= 1.9777411 2.0982690 1.4810776
GAM= 0.2721649
KQAT2= 0.0670438
KCNS= -0.0695215
KCNP= -0.2651591
KCND= 0.0906910
REPA= 1.0252504
REPB= 40.9844265
POLYS= 17.2824035
POLYP= 26.9750840
POLYD= -27.0119119
KQS= -3.2915311
KQP= -1.3215133
KQD= -0.0229317
XI= 0.9035515
KAPPA= -0.0027043
ALPG= 1.5768259
$end
$Z=44 Thu Dec 13 05:23:42 CET 2018
ao=4d5s5p
lev= -10.4178466 -4.6661993 -4.3910247
exp= 2.0243462 2.3480304 1.6149520
GAM= 0.2817608
KQAT2= 0.2937971
KCNS= 0.3318922
KCNP= -0.2027599
KCND= 0.1037674
REPA= 0.9847071
REPB= 30.0686254
POLYS= 6.3119382
POLYP= 27.7664661
POLYD= -26.3813902
KQS= -1.9247370
KQP= -3.0950796
KQD= 0.0242021
XI= 1.0332301
KAPPA= 0.0525839
ALPG= 1.3205263
$end
$Z=45 Tue Dec 11 17:13:20 CET 2018
ao=4d5s5p
lev= -11.2407436 -6.3230998 -2.7898020
exp= 2.3713759 2.1418555 1.5716934
GAM= 0.1391572
KQAT2= 0.0788835
KCNS= 0.0444124
KCNP= -0.2052962
KCND= 0.1091464
REPA= 1.0559061
REPB= 35.5737255
POLYS= 1.1913117
POLYP= 25.1398088
POLYD= -19.0998367
KQS= -1.6523781
KQP= -0.2966759
KQD= -0.2394570
XI= 1.0293975
KAPPA= 0.0051192
ALPG= 1.4259466
$end
$Z=46 Mon Dec 3 20:24:37 CET 2018
ao=4d5s5p
lev= -11.0477513 -7.5245955 -1.3458846
exp= 2.3655400 2.0465727 1.7370737
GAM= 0.1175925
KQAT2= 0.4874039
KCNS= -0.6534170
KCNP= 0.0773043
KCND= 0.1035578
REPA= 1.0645317
REPB= 28.4443233
POLYS= 7.5528381
POLYP= 31.6028255
POLYD= -24.7810390
KQS= -2.2410456
KQP= -1.0409758
KQD= -0.5186905
XI= 1.0549549
KAPPA= 0.0188401
ALPG= 1.1499748
$end
$Z=47 Fri Dec 7 18:03:16 CET 2018
ao=4d5s5p
lev= -10.7029327 -9.0008211 -3.1175174
exp= 3.1103872 1.7772461 1.2958832
GAM= 0.2316104
KQAT2= -0.4078822
KCNS= -0.2041670
KCNP= -0.4941126
KCND= 0.0507145
REPA= 0.9139636
REPB= 25.9740558
POLYS= -7.4614740
POLYP= 11.9171585
POLYD= -24.0147360
KQS= -2.6933989
KQP= 1.6377067
KQD= 0.4579394
XI= 1.2356867
KAPPA= 0.0103998
ALPG= 0.7013009
$end
$Z=48 Mi 5. Dez 14:10:23 CET 2018
ao=5s5p
lev= -12.0082253 -2.6607618
exp= 1.7646331 1.3127608
GAM= 0.2256303
KQAT2= 0.2261002
KCNS= 1.0104763
KCNP= -1.0742210
REPA= 0.9095541
REPB= 28.8257081
POLYS= -21.1131335
POLYP= 24.2291269
KQS= 0.6273704
KQP= -0.1339630
XI= 1.2793315
KAPPA= 0.0000549
ALPG= 1.2374416
$end
$Z=49 Di 11. Dez 22:15:31 CET 2018
ao=5s5p5d
lev= -12.8089312 -4.9517162 -0.6628616
exp= 1.7863485 1.4997607 1.1650646
GAM= 0.1230459
KQAT2= -0.4403034
KCNS= 0.4647355
KCNP= -0.0995082
KCND= -0.2852205
REPA= 0.9965441
REPB= 53.9657064
POLYS= -28.0671409
POLYP= -2.1607305
POLYD= 30.6807055
KQS= 0.6476509
KQP= -0.3983757
KQD= -0.5489296
XI= 1.1145650
KAPPA= 0.0087717
ALPG= 1.3799991
$end
$Z=50 Di 11. Dez 18:35:10 CET 2018
ao=5s5p5d
lev= -20.5912595 -8.8280995 -2.6074284
exp= 2.2482408 1.8768725 1.1662079
GAM= 0.0141941
KQAT2= -0.2304807
KCNS= 1.6446031
KCNP= -1.0004245
KCND= -0.8549641
REPA= 1.0676257
REPB= 88.0203443
POLYS= -21.2192117
POLYP= -7.2356588
POLYD= 12.8333865
KQS= 0.3428358
KQP= -0.0107237
KQD= -0.0368582
XI= 1.1214927
KAPPA= -0.0237228
ALPG= 1.8528424
$end
$Z=51 Di 11. Dez 15:25:09 CET 2018
ao=5s5p5d
lev= -19.1309518 -9.2461857 0.3120269
exp= 2.5053498 1.9880208 1.7329511
GAM= 0.0188612
KQAT2= -0.3614513
KCNS= -0.5778929
KCNP= 0.7863872
KCND= -0.0005389
REPA= 1.0759855
REPB= 82.7978295
POLYS= -25.9808690
POLYP= -16.8015404
POLYD= 34.5734795
KQS= 0.2761934
KQP= 0.3213207
KQD= 0.8605258
XI= 1.2123167
KAPPA= 0.0169656
ALPG= 1.8497568
$end
$Z=52 Mo 10. Dez 22:20:37 CET 2018
ao=5s5p5d
lev= -18.8494281 -11.4037354 -0.5155777
exp= 2.5955339 2.1294865 1.8137622
GAM= 0.0230207
KQAT2= -0.0339759
KCNS= 1.2681267
KCNP= -0.4141598
KCND= 0.3085079
REPA= 0.8659486
REPB= 39.3120212
POLYS= -21.3500803
POLYP= -20.8344096
POLYD= 36.7357631
KQS= -0.6640266
KQP= 0.6301827
KQD= -1.2044909
XI= 1.4003158
KAPPA= 0.0924186
ALPG= 2.0159294
$end
$Z=53 Mon Dec 3 11:30:27 CET 2018
ao=5s5p5d
lev= -17.9130306 -11.6266388 -1.4119025
exp= 2.1518600 2.1826296 1.7939636
GAM= 0.3644113
KQAT2= -0.1031505
KCNS= -0.7187128
KCNP= 0.4073371
KCND= -0.3576737
REPA= 0.9301733
REPB= 49.7072042
POLYS= -27.3671183
POLYP= -19.6222114
POLYD= 33.1425727
KQS= 0.1264617
KQP= 0.1662148
KQD= 0.0032647
XI= 1.4255511
KAPPA= 0.0352884
ALPG= 1.2903708
$end
$Z=54 Tue Dec 4 20:43:11 CET 2018
ao=5s5p5d
lev= -15.8963959 -12.6153098 -0.9187936
exp= 3.1987630 2.2995227 1.7893151
GAM= 0.1668461
KQAT2= -0.1821550
KCNS= -0.1384278
KCNP= 0.0156952
KCND= -0.0051988
REPA= 0.8139884
REPB= 45.1199137
POLYS= -29.8202170
POLYP= -16.6117503
POLYD= 21.1953313
KQS= -0.1330582
KQP= 0.0494917
KQD= 2.8529059
XI= 1.1640198
KAPPA= -0.0091444
ALPG= 2.0199161
$end
$Z=55 Tue Dec 11 10:12:06 CET 2018
ao=6s6p
lev= -6.2935338 -3.2602182
exp= 0.7514304 0.6791606
EN= 1.5000000
GAM= 0.5167533
KQAT2= 0.9414952
KCNS= 0.1307258
KCNP= 0.0901257
REPA= 0.5842740
REPB= 55.2536842
POLYS= -12.1334296
POLYP= 18.8696470
KQS= -0.9632540
KQP= -0.3851189
XI= 0.4685133
KAPPA= 0.0192916
ALPG= 0.9530522
$end
$Z=56 Tue Dec 11 08:30:40 CET 2018
ao=6s6p5d
lev= -5.6796095 -2.5183292 -0.8391169
exp= 1.2995061 0.7121741 1.6000000
EN= 1.6000000
GAM= 0.1979578
KQAT2= 0.7618755
KCNS= 0.5149152
KCNP= 0.4850276
KCND= 0.2866773
REPA= 0.8070627
REPB= 50.0381164
POLYS= -22.8455123
POLYP= -9.9836860
POLYD= 3.4483973
KQS= -0.9508608
KQP= -0.3461083
KQD= -1.0044558
XI= 1.0687873
KAPPA= -0.0154483
ALPG= 1.5015025
$end
$Z=57 Mo 17. Dez 14:03:57 CET 2018
ao=5d6s6p
lev= -8.1422087 -11.6440990 -0.8239123
exp= 1.9000000 1.4262742 1.3072774
EN= 1.5000000
GAM= 0.0345176
KQAT2= -0.7252284
KCNS= 0.6268874
KCNP= -0.0242200
KCND= 0.2955699
REPA= 0.6961124
REPB= 48.0939804
POLYS= -15.6183059
POLYP= 33.4790937
POLYD= -25.5526873
KQS= 0.8353349
KQP= -0.6965739
KQD= 0.1247060
XI= 0.9335398
KAPPA= -0.0736833
ALPG= 2.1917012
$end
$Z=58 Sat Dec 22 14:19:41 CET 2018
ao=5d6s6p
lev= -8.2709324 -11.3009295 -3.2425383
exp= 1.8651798 1.5610733 1.2837815
EN= 1.5000000
GAM= 0.0240233
KQAT2= -0.8403891
KCNS= 0.7756608
KCNP= -0.0004407
KCND= 0.6487575
REPA= 0.7599095
REPB= 46.1827790
POLYS= -15.6451743
POLYP= 25.9295566
POLYD= -31.4845028
KQS= 0.2963503
KQP= -0.5819361
KQD= 0.2692711
XI= 1.0573550
KAPPA= -0.0064191
ALPG= 1.9134370
$end
$Z=59 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.3037702 -11.1705313 -3.1342334
exp= 1.8755508 1.5679201 1.2726347
EN= 1.5000000
GAM= 0.0246333
KQAT2= -0.8014986
KCNS= 0.7945053
KCNP= -0.0004327
KCND= 0.6284641
REPA= 0.7667071
REPB= 46.0844595
POLYS= -15.6344636
POLYP= 26.1418329
POLYD= -31.4071167
KQS= 0.3049667
KQP= -0.5242933
KQD= 0.2546408
XI= 1.0532043
KAPPA= -0.0093012
ALPG= 1.9897910
$end
$Z=60 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.3366080 -11.0401330 -3.0259285
exp= 1.8859217 1.5747669 1.2614880
EN= 1.5000000
GAM= 0.0252433
KQAT2= -0.7626081
KCNS= 0.8133498
KCNP= -0.0004248
KCND= 0.6081707
REPA= 0.7735047
REPB= 45.9861400
POLYS= -15.6237528
POLYP= 26.3541092
POLYD= -31.3297306
KQS= 0.3135831
KQP= -0.4666506
KQD= 0.2400105
XI= 1.0490537
KAPPA= -0.0121833
ALPG= 2.0661450
$end
$Z=61 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.3694458 -10.9097347 -2.9176236
exp= 1.8962926 1.5816137 1.2503412
EN= 1.5000000
GAM= 0.0258532
KQAT2= -0.7237176
KCNS= 0.8321944
KCNP= -0.0004169
KCND= 0.5878773
REPA= 0.7803023
REPB= 45.8878205
POLYS= -15.6130421
POLYP= 26.5663856
POLYD= -31.2523445
KQS= 0.3221996
KQP= -0.4090079
KQD= 0.2253803
XI= 1.0449031
KAPPA= -0.0150654
ALPG= 2.1424991
$end
$Z=62 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.4022836 -10.7793365 -2.8093186
exp= 1.9066636 1.5884605 1.2391944
EN= 1.5000000
GAM= 0.0264632
KQAT2= -0.6848271
KCNS= 0.8510389
KCNP= -0.0004089
KCND= 0.5675839
REPA= 0.7870999
REPB= 45.7895010
POLYS= -15.6023314
POLYP= 26.7786619
POLYD= -31.1749584
KQS= 0.3308160
KQP= -0.3513652
KQD= 0.2107500
XI= 1.0407524
KAPPA= -0.0179475
ALPG= 2.2188531
$end
$Z=63 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.4351215 -10.6489382 -2.7010137
exp= 1.9170345 1.5953073 1.2280476
EN= 1.5000000
GAM= 0.0270732
KQAT2= -0.6459366
KCNS= 0.8698834
KCNP= -0.0004010
KCND= 0.5472904
REPA= 0.7938975
REPB= 45.6911815
POLYS= -15.5916207
POLYP= 26.9909382
POLYD= -31.0975723
KQS= 0.3394324
KQP= -0.2937224
KQD= 0.1961197
XI= 1.0366018
KAPPA= -0.0208296
ALPG= 2.2952071
$end
$Z=64 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.4679593 -10.5185399 -2.5927088
exp= 1.9274054 1.6021541 1.2169008
EN= 1.5000000
GAM= 0.0276832
KQAT2= -0.6070461
KCNS= 0.8887279
KCNP= -0.0003930
KCND= 0.5269970
REPA= 0.8006951
REPB= 45.5928620
POLYS= -15.5809100
POLYP= 27.2032146
POLYD= -31.0201862
KQS= 0.3480488
KQP= -0.2360797
KQD= 0.1814894
XI= 1.0324512
KAPPA= -0.0237117
ALPG= 2.3715611
$end
$Z=65 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.5007971 -10.3881417 -2.4844039
exp= 1.9377764 1.6090009 1.2057541
EN= 1.5000000
GAM= 0.0282931
KQAT2= -0.5681557
KCNS= 0.9075725
KCNP= -0.0003851
KCND= 0.5067036
REPA= 0.8074927
REPB= 45.4945424
POLYS= -15.5701992
POLYP= 27.4154909
POLYD= -30.9428001
KQS= 0.3566653
KQP= -0.1784370
KQD= 0.1668591
XI= 1.0283005
KAPPA= -0.0265938
ALPG= 2.4479151
$end
$Z=66 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.5336349 -10.2577434 -2.3760990
exp= 1.9481473 1.6158477 1.1946073
EN= 1.5000000
GAM= 0.0289031
KQAT2= -0.5292652
KCNS= 0.9264170
KCNP= -0.0003772
KCND= 0.4864102
REPA= 0.8142903
REPB= 45.3962229
POLYS= -15.5594885
POLYP= 27.6277672
POLYD= -30.8654140
KQS= 0.3652817
KQP= -0.1207942
KQD= 0.1522288
XI= 1.0241499
KAPPA= -0.0294759
ALPG= 2.5242691
$end
$Z=67 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.5664727 -10.1273451 -2.2677941
exp= 1.9585183 1.6226945 1.1834605
EN= 1.5000000
GAM= 0.0295131
KQAT2= -0.4903747
KCNS= 0.9452615
KCNP= -0.0003692
KCND= 0.4661168
REPA= 0.8210879
REPB= 45.2979034
POLYS= -15.5487778
POLYP= 27.8400436
POLYD= -30.7880279
KQS= 0.3738981
KQP= -0.0631515
KQD= 0.1375985
XI= 1.0199992
KAPPA= -0.0323580
ALPG= 2.6006231
$end
$Z=68 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.5993105 -9.9969469 -2.1594891
exp= 1.9688892 1.6295413 1.1723137
EN= 1.5000000
GAM= 0.0301230
KQAT2= -0.4514842
KCNS= 0.9641060
KCNP= -0.0003613
KCND= 0.4458234
REPA= 0.8278855
REPB= 45.1995839
POLYS= -15.5380671
POLYP= 28.0523199
POLYD= -30.7106418
KQS= 0.3825146
KQP= -0.0055088
KQD= 0.1229683
XI= 1.0158486
KAPPA= -0.0352400
ALPG= 2.6769771
$end
$Z=69 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.6321483 -9.8665486 -2.0511842
exp= 1.9792601 1.6363881 1.1611670
EN= 1.5000000
GAM= 0.0307330
KQAT2= -0.4125937
KCNS= 0.9829505
KCNP= -0.0003534
KCND= 0.4255300
REPA= 0.8346831
REPB= 45.1012644
POLYS= -15.5273563
POLYP= 28.2645962
POLYD= -30.6332557
KQS= 0.3911310
KQP= 0.0521340
KQD= 0.1083380
XI= 1.0116980
KAPPA= -0.0381221
ALPG= 2.7533312
$end
$Z=70 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -8.6649861 -9.7361503 -1.9428793
exp= 1.9896311 1.6432350 1.1500202
EN= 1.5000000
GAM= 0.0313430
KQAT2= -0.3737032
KCNS= 1.0017951
KCNP= -0.0003454
KCND= 0.4052365
REPA= 0.8414808
REPB= 45.0029449
POLYS= -15.5166456
POLYP= 28.4768726
POLYD= -30.5558696
KQS= 0.3997474
KQP= 0.1097767
KQD= 0.0937077
XI= 1.0075473
KAPPA= -0.0410042
ALPG= 2.8296852
$end
$Z=71 Sat Dec 22 14:19:41 CET 2018
ao=5d6s6p
lev= -8.6978239 -9.6057521 -1.8345744
exp= 2.0000020 1.6500818 1.1388734
EN= 1.5000000
GAM= 0.0319529
KQAT2= -0.3348127
KCNS= 1.0206396
KCNP= -0.0003375
KCND= 0.3849431
REPA= 0.8482784
REPB= 44.9046254
POLYS= -15.5059349
POLYP= 28.6891489
POLYD= -30.4784835
KQS= 0.4083638
KQP= 0.1674194
KQD= 0.0790774
XI= 1.0033967
KAPPA= -0.0438863
ALPG= 2.9060392
$end
$Z=72 Sat Dec 15 00:03:01 CET 2018
ao=5d6s6p
lev= -8.3270480 -9.2677188 -0.9691591
exp= 2.0923623 1.6165437 1.2872624
GAM= 0.0262881
KQAT2= -0.1572535
KCNS= 1.4365678
KCNP= -0.1607540
KCND= 0.2182218
REPA= 0.8803684
REPB= 41.1538255
POLYS= -3.9147090
POLYP= 32.6961810
POLYD= -32.9129200
KQS= 0.2914598
KQP= 0.2000813
KQD= 0.1081073
XI= 0.8612827
KAPPA= -0.0894776
ALPG= 1.6423047
$end
$Z=73 Thu Dec 13 22:08:25 CET 2018
ao=5d6s6p
lev= -9.1503016 -10.5247435 -0.9450823
exp= 1.7483083 1.6551025 1.0233550
GAM= 0.1715396
KQAT2= 0.0625598
KCNS= 1.0205952
KCNP= -0.2748425
KCND= -0.3320988
REPA= 0.9915500
REPB= 46.6524574
POLYS= -22.3008469
POLYP= 29.8354016
POLYD= -29.6033096
KQS= -1.8120352
KQP= 1.5015902
KQD= -0.0324750
XI= 1.0422031
KAPPA= -0.0333583
ALPG= 1.3567622
$end
$Z=74 Thu Dec 13 19:07:31 CET 2018
ao=5d6s6p
lev= -9.6425716 -8.4038882 -0.4830525
exp= 2.0080568 2.1084082 1.7641136
GAM= 0.1803633
KQAT2= -0.1822002
KCNS= 2.9046502
KCNP= 0.0361699
KCND= -0.1600400
REPA= 0.9875716
REPB= 53.4995959
POLYS= 0.9644129
POLYP= 45.9433028
POLYD= -24.8055364
KQS= -1.5162303
KQP= -0.5627344
KQD= -0.0063703
XI= 0.7633168
KAPPA= -0.0154963
ALPG= 1.8966648
$end
$Z=75 Thu Dec 13 13:18:42 CET 2018
ao=5d6s6p
lev= -10.2383908 -4.9432345 -1.3549000
exp= 2.3094018 1.9812974 1.7312087
GAM= 0.3631824
KQAT2= -0.0546542
KCNS= 1.1515463
KCNP= -0.0359938
KCND= -0.3512912
REPA= 1.1535600
REPB= 73.8197012
POLYS= 30.3500314
POLYP= 38.2110386
POLYD= -28.0450462
KQS= -0.9565221
KQP= -0.4840866
KQD= -0.7237461
XI= 0.6019707
KAPPA= -0.0121092
ALPG= 0.8253100
$end
$Z=76 Thu Dec 13 06:25:56 CET 2018
ao=5d6s6p
lev= -10.0139372 -5.4818074 -2.6947002
exp= 2.3795997 2.2387289 1.9527035
GAM= 0.3010980
KQAT2= 0.3585959
KCNS= 0.3746916
KCNP= -0.0800203
KCND= -0.1295399
REPA= 1.1418384
REPB= 59.6567627
POLYS= 7.6941848
POLYP= 24.2318877
POLYD= -27.3810511
KQS= -1.7054596
KQP= -0.5268454
KQD= -0.2408914
XI= 0.7499393
KAPPA= -0.0744239
ALPG= 0.7412219
$end
$Z=77 Tue Dec 11 20:14:10 CET 2018
ao=5d6s6p
lev= -11.1406750 -7.5775954 -3.8917827
exp= 2.5582242 2.5114785 1.8368726
GAM= 0.1100299
KQAT2= 0.0403085
KCNS= -0.1285049
KCNP= 0.1466161
KCND= 0.0829261
REPA= 1.1434832
REPB= 50.0720023
POLYS= 2.4984632
POLYP= 17.4846076
POLYD= -24.0537099
KQS= -1.8847069
KQP= -0.4888169
KQD= -0.1606430
XI= 0.9511744
KAPPA= 0.0050138
ALPG= 1.0350883
$end
$Z=78 Fri Dec 7 21:40:47 CET 2018
ao=5d6s6p
lev= -11.3162420 -8.8896294 -3.0510272
exp= 2.7100253 2.3315088 1.8622968
GAM= 0.0277514
KQAT2= 0.4160851
KCNS= 0.8632843
KCNP= 1.3889222
KCND= -0.1831911
REPA= 1.1783705
REPB= 49.4064531
POLYS= 3.2909380
POLYP= 15.9983967
POLYD= -23.9093136
KQS= -1.7277302
KQP= -1.6224161
KQD= -0.4690687
XI= 0.9357472
KAPPA= -0.0153757
ALPG= 0.9692278
$end
$Z=79 Mon Dec 3 20:47:02 CET 2018
ao=5d6s6p
lev= -12.1009764 -9.5056791 -2.2886714
exp= 3.1211282 2.3912459 1.9835079
GAM= 0.0554975
KQAT2= 0.5364732
KCNS= -0.3352364
KCNP= -0.6229470
KCND= 0.0937469
REPA= 1.0591477
REPB= 44.5201114
POLYS= -10.1996894
POLYP= 15.4067726
POLYD= -18.2423967
KQS= -3.8714610
KQP= 1.0468549
KQD= 0.5645830
XI= 1.3555382
KAPPA= -0.0029221
ALPG= 1.0048087
$end
$Z=80 Do 6. Dez 12:23:07 CET 2018
ao=6s6p
lev= -12.1695315 -2.6656574
exp= 2.1719281 1.5852934
GAM= 0.7723231
KQAT2= 0.1234906
KCNS= 0.6338123
KCNP= -1.6974940
REPA= 0.9794378
REPB= 39.7677937
POLYS= -20.1460848
POLYP= 21.0720923
KQS= 1.2916136
KQP= -0.3520016
XI= 1.2006726
KAPPA= 0.0239125
ALPG= 2.3138674
$end
$Z=81 Do 13. Dez 16:36:38 CET 2018
ao=6s6p
lev= -20.1640068 -4.9875823
exp= 2.5798532 1.8750064
GAM= 0.1287718
KQAT2= -0.5902190
KCNS= -0.1035095
KCNP= 0.2609025
REPA= 1.2439938
REPB= 58.8051943
POLYS= -24.8474969
POLYP= 5.5030401
KQS= 2.7768835
KQP= -1.1939420
XI= 1.2092025
KAPPA= 0.0183012
ALPG= 2.8055966
$end
$Z=82 Mi 12. Dez 20:07:25 CET 2018
ao=6s6p
lev= -22.0691007 -8.1233437
exp= 2.8266565 1.9846021
GAM= 0.1034598
KQAT2= 0.0731828
KCNS= -1.9929968
KCNP= 1.7808807
REPA= 1.0437958
REPB= 103.0123579
POLYS= -27.4676742
POLYP= -6.2449210
KQS= -0.1764125
KQP= 0.6143160
XI= 1.1736669
KAPPA= -0.0238011
ALPG= 3.0968677
$end
$Z=83 Mi 12. Dez 18:47:26 CET 2018
ao=6s6p
lev= -19.8457402 -8.1841396
exp= 3.0792898 2.1104258
GAM= 0.0114935
KQAT2= 0.1795929
KCNS= -0.2029156
KCNP= 0.4586688
REPA= 1.1391049
REPB= 85.5566053
POLYS= -27.3029972
POLYP= -13.9961471
KQS= 0.1602211
KQP= 0.4235069
XI= 1.1936584
KAPPA= -0.0268025
ALPG= 1.6597596
$end
$Z=84 Mi 12. Dez 10:07:18 CET 2018
ao=6s6p
lev= -22.7267689 -10.6638874
exp= 3.2655001 2.4581428
GAM= 0.0160842
KQAT2= -0.0924653
KCNS= -0.2278953
KCNP= 0.5476139
REPA= 0.9115474
REPB= 70.6036525
POLYS= -19.9670108
POLYP= -18.3613034
KQS= -0.1211837
KQP= 0.6131814
XI= 1.3045488
KAPPA= 0.0136505
ALPG= 3.2191575
$end
$Z=85 Di 11. Dez 23:55:44 CET 2018
ao=6s6p5d
lev= -16.2231111 -10.5823143 -0.4133880
exp= 2.3566483 2.4476546 1.7730006
GAM= 0.3369611
KQAT2= -0.3033414
KCNS= -0.2597842
KCNP= 0.0175268
KCND= 1.8437642
REPA= 0.9157573
REPB= 82.8260761
POLYS= -32.1472952
POLYP= -20.7972951
POLYD= 27.0343912
KQS= -0.7035045
KQP= 0.1660577
KQD= 0.6738787
XI= 1.1964604
KAPPA= -0.0132199
ALPG= 1.5388148
$end
$Z=86 Tue Dec 4 19:30:16 CET 2018
ao=6s6p5d
lev= -13.6425470 -12.1716393 -0.6534981
exp= 3.5667425 2.6010762 1.9384224
GAM= 0.1844179
KQAT2= -0.0946010
KCNS= -0.0041023
KCNP= 0.0074457
KCND= -0.3563225
REPA= 0.8137168
REPB= 68.9676875
POLYS= -33.4702358
POLYP= -18.4455193
POLYD= 22.5007703
KQS= 0.2212935
KQP= 0.0793110
KQD= 1.3169147
XI= 1.2653792
KAPPA= -0.0439890
ALPG= 2.1222013
$end
xtb-6.7.1/param_gfn1-si-xtb.txt 0000664 0000000 0000000 00000066547 14650006642 0016327 0 ustar 00root root 0000000 0000000 $info
level 1
name GFN1(Si)-xTB
doi 10.1021/acs.jctc.7b00118,10.1021/acs.jcim.1c01170
$globpar
ks 1.85000
kp 2.25000
kd 2.00000
ksp 2.08000
kdiff 2.85000
enscale -0.70000
ipeashift 1.78069
cns 0.60000
cnp -0.30000
cnd1 -0.50000
cnd2 0.50000
alphaj 2.00000
a1 0.63000
a2 5.00000
s8 2.40000
s9 0.00000
kexp 1.50000
kexplight 1.50000
xbdamp 0.44000
xbrad 1.30000
$end
$pairpar
1 1 0.9600
1 5 0.9500
1 7 1.0400
7 14 1.0100
8 14 0.9689382911964309
5 15 0.9700
1 28 0.9000
1 75 0.8000
1 78 0.8000
$end
$Z= 1 Sat Nov 4 20:25:57 CET 2017
ao=1s2s
lev= -10.923452 -2.171902
exp= 1.207940 1.993207
GAM= 0.470099
REPA= 2.209700
REPB= 1.116244
$end
$Z= 2 Mon Aug 22 21:05:21 CEST 2016
ao=1s
lev= -22.121015
exp= 2.133698
GAM= 1.441379
GAM3= 1.500000
REPA= 1.382907
REPB= 0.440231
POLYS= 8.084149
$end
$Z= 3 Mon Aug 22 20:58:33 CEST 2016
ao=2s2p
lev= -7.270105 -4.609277
exp= 0.743881 0.541917
GAM= 0.205342
GAM3= 1.027370
REPA= 0.671797
REPB= 2.747587
POLYS= -4.102845
POLYP= 9.259276
LPARP= -0.772012
$end
$Z= 4 Mon Aug 22 17:20:12 CEST 2016
ao=2s2p
lev= -9.541494 -5.812621
exp= 0.876888 1.104598
GAM= 0.274022
GAM3= 0.900554
REPA= 0.865377
REPB= 4.076830
POLYS= -12.991482
POLYP= -1.308797
LPARP= 1.113005
$end
$Z= 5 Thu Sep 22 13:48:45 CEST 2016
ao=2s2p
lev= -12.497913 -7.604923
exp= 1.667617 1.495078
GAM= 0.340530
GAM3= 1.300000
REPA= 1.093544
REPB= 4.458376
POLYS= -7.088823
POLYP= 0.655877
LPARP= 0.165643
$end
$Z= 6 Sat Nov 4 20:25:57 CET 2017
ao=2s2p
lev= -13.587210 -10.052785
exp= 1.960324 1.832096
GAM= 0.479988
GAM3= 1.053856
REPA= 1.281954
REPB= 4.428763
POLYS= -7.082170
POLYP= 0.812216
LPARP= -0.471181
$end
$Z= 7 Sat Nov 4 20:25:57 CET 2017
ao=2s2p
lev= -20.058000 -12.889326
exp= 2.050067 2.113682
GAM= 0.476106
GAM3= 0.042507
REPA= 1.727773
REPB= 5.498808
POLYS= -12.745585
POLYP= -1.428367
LPARP= 0.315090
$end
$Z= 8 Sat Nov 4 20:25:57 CET 2017
ao=2s2p
lev= -23.398376 -17.886554
exp= 2.345365 2.153060
GAM= 0.583349
GAM3= -0.005102
REPA= 2.004253
REPB= 5.171786
POLYS= -13.729047
POLYP= -4.453341
LPARP= 0.374608
$end
$Z= 9 Mon Aug 22 08:05:34 CEST 2016
ao=2s2p
lev= -24.776175 -17.274415
exp= 2.968015 2.256959
GAM= 0.788194
GAM3= 1.615037
REPA= 2.507078
REPB= 6.931741
POLYS= -3.921613
POLYP= -11.422491
LPARP= -0.827352
$end
$Z=10 Wed Aug 31 17:29:03 CEST 2016
ao=2s2p3d
lev= -31.167487 -18.268975 1.487984
exp= 3.200000 2.294365 2.684436
GAM= 0.612878
GAM3= 1.600000
REPA= 3.038727
REPB= 9.102523
POLYS= -2.115896
POLYP= -15.124326
LPARP= -3.892542
$end
$Z=11 Fri Jun 16 11:28:14 CEST 2017
ao=3s3p
lev= -4.717569 -2.797054
exp= 0.819143 0.628961
GAM= 0.165908
GAM3= 1.200000
REPA= 0.704472
REPB= 10.591259
POLYS= 13.188489
POLYP= 10.969376
LPARP= -3.004391
$end
$Z=12 Fri Jun 16 09:56:36 CEST 2017
ao=3s3p
lev= -9.970921 -2.901013
exp= 1.271287 0.797143
GAM= 0.354151
GAM3= 1.100000
REPA= 0.862629
REPB= 15.238107
POLYS= -19.219408
POLYP= 18.272922
LPARP= 0.674819
$end
$Z=13 Mon Aug 22 15:20:00 CEST 2016
ao=3s3p3d
lev= -12.916245 -3.441043 -1.751415
exp= 1.497753 1.232966 0.606937
GAM= 0.221658
GAM3= 1.200000
REPA= 0.929219
REPB= 16.283595
POLYS= -21.085827
POLYP= 24.805127
POLYD= 26.405814
LPARP= 0.503564
$end
$Z=14 Fri Dec 10 00:00:00 CEST 2021
ao=3s3p3d
lev= -20.8003154259032 -3.52640768616415 -3.32086437063174
exp= 2.3371570152493 1.57634582523961 2.47384208842607
EN= 2.0891926663719
GAM= 2.2511407602094
GAM3= 1.1249948730457
REPA= 1.0359397134916
REPB= 21.3569280192032
POLYS= 14.8253087717468
POLYP= -0.8628847709109
POLYD= 36.5723873489532
LPARS= -4.9719823924939
LPARP= -6.0455361603458
LPARD= 6.0720274517897
$end
$Z=15 Mon Aug 22 14:05:50 CEST 2016
ao=3s3p3d
lev= -18.865587 -9.386464 -0.673989
exp= 1.993165 1.826973 1.293345
GAM= 0.798319
GAM3= 1.500000
REPA= 1.067197
REPB= 15.249559
POLYS= -16.118985
POLYP= -2.241189
POLYD= 30.984577
LPARP= -2.530875
$end
$Z=16 Mon Aug 22 10:47:45 CEST 2016
ao=3s3p3d
lev= -23.819013 -12.120136 -1.711261
exp= 2.506934 1.992775 1.964867
GAM= 0.643959
GAM3= 1.500000
REPA= 1.200803
REPB= 15.100323
POLYS= -16.989922
POLYP= -6.067779
POLYD= 16.248395
LPARP= -1.678147
$end
$Z=17 Mon Aug 22 08:23:38 CEST 2016
ao=3s3p3d
lev= -24.452163 -12.883714 -1.190095
exp= 2.847946 2.077534 1.932463
GAM= 0.519712
GAM3= 1.000000
REPA= 1.404155
REPB= 17.000000
POLYS= -9.341919
POLYP= -8.499805
POLYD= 13.088867
LPARP= -4.481841
$end
$Z=18 Wed Aug 31 18:08:34 CEST 2016
ao=3s3p3d
lev= -31.395427 -17.412901 -1.119399
exp= 3.502323 2.287983 1.761181
GAM= 0.529906
GAM3= 0.829312
REPA= 1.323756
REPB= 17.153132
POLYS= -0.082808
POLYP= -9.217948
POLYD= 12.204172
LPARP= -1.450000
$end
$Z=19 Wed Aug 31 18:13:39 CEST 2016
ao=4s4p
lev= -5.815562 -3.747255
exp= 0.841791 0.771618
GAM= 0.114358
GAM3= 0.732923
REPA= 0.581529
REPB= 20.831436
POLYS= 12.482844
POLYP= 22.323655
LPARP= -5.332978
$end
$Z=20 Wed Aug 31 18:20:07 CEST 2016
ao=4s4p3d
lev= -7.979180 -2.517008 -2.752355
exp= 1.321845 0.734954 0.947032
GAM= 0.134187
GAM3= 1.116963
REPA= 0.665588
REPB= 19.840212
POLYS= -11.421376
POLYP= 14.628284
POLYD= 10.129602
LPARP= 11.522018
$end
$Z=21 Fri Sep 2 10:30:12 CEST 2016
ao=3d4s4p
lev= -7.172021 -9.632943 -0.696628
exp= 2.200000 1.532191 1.017366
GAM= 0.778545
GAM3= 1.000000
REPA= 0.841357
REPB= 18.676202
POLYS= 9.522966
POLYP= 44.183320
POLYD= -36.027863
LPARP= -2.000000
LPARD= -5.934820
$end
$Z=22 Mon Aug 22 22:04:56 CEST 2016
ao=3d4s4p
lev= -7.617343 -7.948161 -0.902143
exp= 1.941479 1.477526 1.063921
GAM= 1.044998
GAM3= 0.739203
REPA= 0.828638
REPB= 17.084130
POLYS= 24.879987
POLYP= 18.910954
POLYD= -24.908650
LPARP= -1.500000
LPARD= -7.388986
$end
$Z=23 Tue Aug 23 08:15:09 CEST 2016
ao=3d4s4p
lev= -6.677563 -9.000000 -0.108008
exp= 1.812440 1.345487 1.100000
GAM= 0.985157
GAM3= 0.800000
REPA= 1.061627
REPB= 22.352532
POLYS= -5.301066
POLYP= 22.945047
POLYD= -29.197847
LPARP= -2.000000
LPARD= -5.229338
$end
$Z=24 Wed Aug 31 19:00:08 CEST 2016
ao=3d4s4p
lev= -7.357172 -7.024438 -3.933133
exp= 1.915482 1.241910 1.130000
GAM= 0.468100
GAM3= 0.800000
REPA= 0.997051
REPB= 22.873486
POLYS= -2.432193
POLYP= 11.274054
POLYD= -22.608167
LPARP= -2.500000
LPARD= 0.786859
$end
$Z=25 Wed Aug 31 20:33:25 CEST 2016
ao=3d4s4p
lev= -8.558648 -6.149482 -4.360801
exp= 2.016302 1.882798 1.270000
GAM= 0.609868
GAM3= 0.300000
REPA= 1.019783
REPB= 24.160655
POLYS= 1.025345
POLYP= 1.834626
POLYD= -25.016650
LPARP= -2.500000
LPARD= 10.544199
$end
$Z=26 Wed Aug 31 20:44:43 CEST 2016
ao=3d4s4p
lev= -9.705009 -6.617863 -4.595985
exp= 2.264485 1.382959 1.300000
GAM= 0.900000
GAM3= 0.500000
REPA= 1.137174
REPB= 25.983149
POLYS= -2.182723
POLYP= 11.769535
POLYD= -22.920815
LPARP= -2.000000
LPARD= 1.018896
$end
$Z=27 Wed Aug 24 05:59:57 CEST 2016
ao=3d4s4p
lev= -10.285239 -4.593686 -3.855768
exp= 2.279966 1.925082 1.350000
GAM= 0.426680
GAM3= 0.300000
REPA= 1.188538
REPB= 27.169215
POLYS= 0.815250
POLYP= 15.765732
POLYD= -21.678930
LPARP= -2.000000
LPARD= 0.222849
$end
$Z=28 Wed Aug 31 22:12:25 CEST 2016
ao=3d4s4p
lev= -10.841022 -8.687611 -3.332933
exp= 2.356745 1.532263 1.350000
GAM= 0.367019
GAM3= 1.000000
REPA= 1.399197
REPB= 23.396999
POLYS= 15.160508
POLYP= 15.782685
POLYD= -26.348820
LPARP= -2.000000
LPARD= 1.282426
$end
$Z=29 Wed Aug 31 22:32:35 CEST 2016
ao=3d4s4p
lev= -11.114050 -8.373193 -4.419045
exp= 2.598287 1.583677 1.350000
GAM= 0.260192
GAM3= 0.237602
REPA= 1.199230
REPB= 29.000000
POLYS= -3.590501
POLYP= 7.413473
POLYD= -21.142399
LPARD= -1.290373
$end
$Z=30 Thu Sep 1 04:25:19 CEST 2016
ao=4s4p
lev= -11.263459 -4.666731
exp= 1.722526 1.061945
GAM= 0.209459
GAM3= 1.400000
REPA= 1.145056
REPB= 31.185765
POLYS= -15.535695
POLYP= 4.061664
LPARP= 0.200991
$end
$Z=31 Fri Sep 2 10:14:46 CEST 2016
ao=4s4p4d
lev= -13.273222 -4.859478 -2.245112
exp= 1.992354 1.482052 0.712761
GAM= 0.193302
GAM3= 1.400000
REPA= 1.047536
REPB= 33.128619
POLYS= -14.584657
POLYP= 9.375082
POLYD= 19.671655
LPARP= -2.021175
LPARD= 1.000000
$end
$Z=32 Fri Sep 2 09:56:01 CEST 2016
ao=4s4p4d
lev= -12.558286 -8.035796 -2.752271
exp= 2.172951 1.794495 0.769997
GAM= 0.800000
GAM3= 1.400000
REPA= 1.129480
REPB= 35.493164
POLYS= -12.195371
POLYP= -11.374296
POLYD= 9.364108
LPARP= -7.631942
LPARD= -1.300000
$end
$Z=33 Thu Sep 1 05:11:43 CEST 2016
ao=4s4p4d
lev= -17.515251 -8.272706 -1.245776
exp= 2.265106 1.986411 1.113511
GAM= 0.732367
GAM3= 1.300000
REPA= 1.233641
REPB= 36.125762
POLYS= -17.489686
POLYP= -6.747956
POLYD= 17.858510
LPARP= -0.335509
LPARD= -1.000000
$end
$Z=34 Thu Sep 1 15:12:08 CEST 2016
ao=4s4p4d
lev= -23.000000 -10.398968 -0.821804
exp= 3.044672 2.098532 1.863317
GAM= 0.714534
GAM3= 1.300000
REPA= 1.270088
REPB= 32.148852
POLYS= -14.852299
POLYP= -9.863477
POLYD= 9.556181
LPARP= -3.213580
LPARD= -2.500000
$end
$Z=35 Mon Aug 22 11:29:28 CEST 2016
ao=4s4p4d
lev= -19.875752 -12.818655 -3.348113
exp= 2.886237 2.190987 1.789395
GAM= 0.732530
GAM3= -0.500000
CXB= 0.381742
REPA= 1.153580
REPB= 35.000000
POLYS= -17.815502
POLYP= -14.058044
POLYD= 5.468245
LPARP= -1.440020
LPARD= -1.000000
$end
$Z=36 Thu Sep 1 15:19:47 CEST 2016
ao=4s4p4d
lev= -20.280017 -15.200155 -4.253986
exp= 2.828105 1.965472 1.512609
GAM= 0.820312
GAM3= 1.000000
REPA= 1.335287
REPB= 36.000000
POLYS= -25.437273
POLYP= -12.813227
POLYD= 10.440712
LPARP= -3.743296
$end
$Z=37 Sat Aug 27 04:24:34 CEST 2016
ao=5s5p
lev= -7.616948 -4.369842
exp= 0.809529 0.950253
GAM= 0.075735
GAM3= 1.500000
REPA= 0.554032
REPB= 39.653032
POLYS= -7.450752
POLYP= 16.670533
LPARP= -5.181667
$end
$Z=38 Thu Sep 1 17:15:37 CEST 2016
ao=5s5p4d
lev= -6.840171 -3.338573 -1.715680
exp= 1.458742 0.730658 1.028147
GAM= 0.122861
GAM3= 1.300000
REPA= 0.657904
REPB= 38.924904
POLYS= -6.087125
POLYP= 2.115262
POLYD= 17.076466
LPARP= -8.003590
$end
$Z=39 Thu Sep 1 17:20:03 CEST 2016
ao=4d5s5p
lev= -5.731066 -8.748292 -0.838555
exp= 2.300000 1.593058 1.170000
GAM= 0.351290
GAM3= 1.400000
REPA= 0.760144
REPB= 39.000000
POLYS= 10.950764
POLYP= 45.679760
POLYD= -28.061976
LPARP= -0.800000
LPARD= -4.159186
$end
$Z=40 Sun Aug 28 01:57:32 CEST 2016
ao=4d5s5p
lev= -6.771010 -3.979156 -3.954049
exp= 2.175661 1.665905 1.230000
GAM= 0.168219
GAM3= 0.581478
REPA= 0.739520
REPB= 36.521516
POLYS= 44.110231
POLYP= 25.863572
POLYD= -22.240873
LPARP= -2.500000
LPARD= 0.337914
$end
$Z=41 Thu Sep 1 17:28:28 CEST 2016
ao=4d5s5p
lev= -9.245726 -9.268975 -1.348707
exp= 2.092288 1.459971 1.200000
GAM= 0.175875
GAM3= 0.280147
REPA= 0.895357
REPB= 40.803132
POLYS= 15.379439
POLYP= 30.159730
POLYD= -25.998052
LPARP= -2.000000
LPARD= 0.638436
$end
$Z=42 Thu Sep 1 17:33:17 CEST 2016
ao=4d5s5p
lev= -8.176239 -7.645737 -3.802884
exp= 1.891236 1.827996 1.220000
GAM= 0.384677
GAM3= 0.041052
REPA= 0.944064
REPB= 41.939347
POLYS= 5.815301
POLYP= 14.527159
POLYD= -22.556077
LPARP= -2.500000
LPARD= -3.426221
$end
$Z=43 Sun Aug 28 04:51:04 CEST 2016
ao=4d5s5p
lev= -8.690050 -5.089073 -4.878724
exp= 2.120497 1.789115 1.250000
GAM= 0.405474
GAM3= 0.500000
REPA= 1.028240
REPB= 43.000000
POLYS= 24.977603
POLYP= 1.953838
POLYD= -23.231470
LPARP= -2.000000
LPARD= 2.642680
$end
$Z=44 Thu Sep 1 17:52:27 CEST 2016
ao=4d5s5p
lev= -10.960165 -6.304229 -5.569969
exp= 2.352683 1.883645 1.370000
GAM= 0.305394
GAM3= 0.001205
REPA= 1.066144
REPB= 44.492732
POLYS= 15.281981
POLYP= 1.340798
POLYD= -23.099524
LPARP= -1.500000
LPARD= 1.772831
$end
$Z=45 Thu Sep 1 17:58:03 CEST 2016
ao=4d5s5p
lev= -11.935915 -4.883179 -4.427854
exp= 2.436353 2.000000 1.470000
GAM= 0.293973
GAM3= 0.622690
REPA= 1.131380
REPB= 45.241537
POLYS= 10.450086
POLYP= 15.559547
POLYD= -23.540560
LPARP= -2.500000
LPARD= 3.782936
$end
$Z=46 Mon Aug 29 14:49:51 CEST 2016
ao=4d5s5p
lev= -12.059626 -5.724219 -2.575000
exp= 2.528954 2.073217 1.550000
GAM= 0.280766
GAM3= 0.500000
REPA= 1.206869
REPB= 42.105527
POLYS= 17.475085
POLYP= 21.621321
POLYD= -23.290322
LPARP= -2.500000
LPARD= 3.210802
$end
$Z=47 Thu Sep 1 18:14:42 CEST 2016
ao=4d5s5p
lev= -9.675945 -5.723081 -3.273430
exp= 2.720329 1.994885 1.620000
GAM= 0.472978
GAM3= -0.445675
REPA= 1.058886
REPB= 43.201446
POLYS= -12.856324
POLYP= 0.187155
POLYD= -6.963262
LPARP= -1.500000
LPARD= -1.477715
$end
$Z=48 Thu Sep 1 18:24:25 CEST 2016
ao=5s5p
lev= -12.099216 -3.859493
exp= 1.980518 1.191810
GAM= 0.130828
GAM3= 1.362587
REPA= 1.026434
REPB= 49.016827
POLYS= -10.281188
POLYP= 6.247124
LPARP= -0.775216
$end
$Z=49 Thu Sep 1 19:21:53 CEST 2016
ao=5s5p5d
lev= -16.894094 -3.502771 -3.650350
exp= 2.226101 1.625926 0.663076
GAM= 0.132120
GAM3= 1.063557
REPA= 0.898148
REPB= 51.718417
POLYS= -10.488459
POLYP= 19.136222
POLYD= 5.584366
LPARP= 0.762515
$end
$Z=50 Sun Sep 1 18:10:35 CEST 2016
ao=5s5p5d
lev= -24.164818 -7.640096 -1.908531
exp= 2.474055 1.893755 1.547485
GAM= 0.480655
GAM3= -0.321283
REPA= 1.008192
REPB= 54.503455
POLYS= -19.310676
POLYP= -5.460959
POLYD= 10.683419
LPARP= -3.444851
LPARD= -1.500000
$end
$Z=51 Thu Sep 1 22:28:28 CEST 2016
ao=5s5p5d
lev= -20.650528 -7.536020 -2.185884
exp= 2.761687 2.076379 1.071094
GAM= 0.564406
GAM3= -0.341503
REPA= 0.982673
REPB= 50.757213
POLYS= -17.310388
POLYP= -7.203718
POLYD= 10.096015
LPARP= -1.459812
LPARD= -2.000000
$end
$Z=52 Thu Sep 1 22:53:11 CEST 2016
ao=5s5p5d
lev= -29.899753 -10.026096 -0.372055
exp= 2.880945 2.254863 1.724516
GAM= 0.400301
GAM3= 0.894388
REPA= 0.973410
REPB= 49.215262
POLYS= -17.836704
POLYP= -9.887978
POLYD= 20.942979
LPARP= 0.137154
LPARD= -2.000000
$end
$Z=53 Mon Aug 22 12:51:49 CEST 2016
ao=5s5p5d
lev= -23.832631 -11.604442 -2.025327
exp= 3.117622 2.248195 1.831809
GAM= 0.520472
GAM3= -0.500000
CXB= 0.321944
REPA= 0.949181
REPB= 53.000000
POLYS= -21.954071
POLYP= -10.823970
POLYD= 12.522287
LPARP= -0.387987
LPARD= -1.500000
$end
$Z=54 Mon Aug 29 22:22:12 CEST 2016
ao=5s5p5d
lev= -21.969064 -11.870978 -2.697796
exp= 3.128524 2.316580 1.888452
GAM= 0.935394
GAM3= -0.800000
REPA= 1.074785
REPB= 52.500985
POLYS= -22.530281
POLYP= -16.667114
POLYD= 8.021956
LPARP= -3.435282
LPARD= -1.500000
$end
$Z=55 Thu Sep 1 23:00:45 CEST 2016
ao=5s5p
lev= -6.341379 -3.944275
exp= 0.779877 0.810404
GAM= 0.085110
GAM3= 1.500000
REPA= 0.579919
REPB= 65.029838
POLYS= -1.460631
POLYP= 15.879494
LPARP= -7.035550
$end
$Z=56 Thu Sep 1 23:06:30 CEST 2016
ao=5s5p4d
lev= -6.452630 -3.975353 -2.305768
exp= 1.387083 0.532658 0.853415
GAM= 0.137819
GAM3= 1.500000
REPA= 0.606485
REPB= 46.532974
POLYS= -5.468018
POLYP= 4.368854
POLYD= 14.328052
LPARP= -8.801363
$end
$Z=57 Tue Aug 30 00:04:23 CEST 2016
ao=5d6s6p
lev= -5.872226 -6.500000 -0.727921
exp= 3.000000 1.492677 1.350000
GAM= 0.495969
GAM3= 1.500000
REPA= 1.311200
REPB= 48.337542
POLYS= -3.988102
POLYP= 40.847293
POLYD= -44.208463
LPARP= -1.500000
LPARD= -6.396752
$end
$Z=58 Tue Aug 30 10:12:13 CEST 2016
ao=5d6s6p
lev= -5.032003 -6.275363 0.291196
exp= 3.000000 1.553483 1.380859
GAM= 0.350000
GAM3= 1.200000
REPA= 0.839861
REPB= 30.638143
POLYS= 6.148475
POLYP= 42.873822
POLYD= -36.440945
LPARP= -1.500000
LPARD= -5.245538
$end
$Z=59 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.944984 -6.271128 0.241817
exp= 2.992307 1.578839 1.385620
GAM= 0.342306
GAM3= 1.200000
REPA= 0.847281
REPB= 34.130718
POLYS= 7.806576
POLYP= 42.846148
POLYD= -36.021673
LPARP= -1.500000
LPARD= -5.064761
$end
$Z=60 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.857964 -6.266893 0.192438
exp= 2.984614 1.604196 1.390381
GAM= 0.334612
GAM3= 1.200000
REPA= 0.854701
REPB= 37.623294
POLYS= 9.464678
POLYP= 42.818474
POLYD= -35.602402
LPARP= -1.500000
LPARD= -4.883984
$end
$Z=61 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.770945 -6.262657 0.143059
exp= 2.976922 1.629552 1.395142
GAM= 0.326917
GAM3= 1.200000
REPA= 0.862121
REPB= 41.115870
POLYS= 11.122779
POLYP= 42.790801
POLYD= -35.183130
LPARP= -1.500000
LPARD= -4.703207
$end
$Z=62 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.683925 -6.258422 0.093680
exp= 2.969229 1.654909 1.399903
GAM= 0.319223
GAM3= 1.200000
REPA= 0.869541
REPB= 44.608445
POLYS= 12.780881
POLYP= 42.763127
POLYD= -34.763859
LPARP= -1.500000
LPARD= -4.522429
$end
$Z=63 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.596906 -6.254187 0.044301
exp= 2.961536 1.680265 1.404664
GAM= 0.311529
GAM3= 1.200000
REPA= 0.876961
REPB= 48.101021
POLYS= 14.438982
POLYP= 42.735454
POLYD= -34.344587
LPARP= -1.500000
LPARD= -4.341652
$end
$Z=64 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.509886 -6.249952 -0.005078
exp= 2.953843 1.705622 1.409425
GAM= 0.303835
GAM3= 1.200000
REPA= 0.884381
REPB= 51.593596
POLYS= 16.097083
POLYP= 42.707780
POLYD= -33.925315
LPARP= -1.500000
LPARD= -4.160875
$end
$Z=65 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.422867 -6.245716 -0.054457
exp= 2.946150 1.730979 1.414186
GAM= 0.296140
GAM3= 1.200000
REPA= 0.891801
REPB= 55.086172
POLYS= 17.755185
POLYP= 42.680106
POLYD= -33.506044
LPARP= -1.500000
LPARD= -3.980098
$end
$Z=66 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.335848 -6.241481 -0.103836
exp= 2.938457 1.756335 1.418947
GAM= 0.288446
GAM3= 1.200000
REPA= 0.899221
REPB= 58.578748
POLYS= 19.413286
POLYP= 42.652433
POLYD= -33.086772
LPARP= -1.500000
LPARD= -3.799321
$end
$Z=67 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.248828 -6.237246 -0.153215
exp= 2.930765 1.781692 1.423708
GAM= 0.280752
GAM3= 1.200000
REPA= 0.906641
REPB= 62.071323
POLYS= 21.071387
POLYP= 42.624759
POLYD= -32.667501
LPARP= -1.500000
LPARD= -3.618544
$end
$Z=68 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.161809 -6.233011 -0.202593
exp= 2.923072 1.807048 1.428469
GAM= 0.273058
GAM3= 1.200000
REPA= 0.914061
REPB= 65.563899
POLYS= 22.729489
POLYP= 42.597085
POLYD= -32.248229
LPARP= -1.500000
LPARD= -3.437767
$end
$Z=69 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.074789 -6.228775 -0.251972
exp= 2.915379 1.832405 1.433230
GAM= 0.265364
GAM3= 1.200000
REPA= 0.921481
REPB= 69.056474
POLYS= 24.387590
POLYP= 42.569412
POLYD= -31.828957
LPARP= -1.500000
LPARD= -3.256989
$end
$Z=70 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -3.987770 -6.224540 -0.301351
exp= 2.907686 1.857761 1.437991
GAM= 0.257669
GAM3= 1.200000
REPA= 0.928901
REPB= 72.549050
POLYS= 26.045692
POLYP= 42.541738
POLYD= -31.409686
LPARP= -1.500000
LPARD= -3.076212
$end
$Z=71 Tue Aug 30 10:12:13 CEST 2016
ao=5d6s6p
lev= -3.900750 -6.220305 -0.350730
exp= 2.899993 1.883118 1.442752
GAM= 0.249975
GAM3= 1.200000
REPA= 0.936321
REPB= 76.041625
POLYS= 27.703793
POLYP= 42.514065
POLYD= -30.990414
LPARP= -1.500000
LPARD= -2.895435
$end
$Z=72 Tue Aug 30 04:10:19 CEST 2016
ao=5d6s6p
lev= -4.360558 -5.910623 -2.814338
exp= 2.466693 2.039390 1.450000
GAM= 0.269977
GAM3= 0.847011
REPA= 0.853744
REPB= 55.222897
POLYS= 15.014122
POLYP= 22.898249
POLYD= -21.116286
LPARP= -1.500000
LPARD= -1.485678
$end
$Z=73 Tue Aug 30 16:41:19 CEST 2016
ao=5d6s6p
lev= -9.232014 -8.600553 -0.252865
exp= 2.177327 1.692963 1.400000
GAM= 0.239696
GAM3= 0.064592
REPA= 0.971873
REPB= 63.743065
POLYS= 29.782424
POLYP= 36.420564
POLYD= -23.077812
LPARP= -1.500000
LPARD= -1.870583
$end
$Z=74 Tue Aug 30 17:50:56 CEST 2016
ao=5d6s6p
lev= -8.997799 -2.878936 -3.369287
exp= 2.300752 2.096013 1.400000
GAM= 0.243663
GAM3= -0.014599
REPA= 0.992643
REPB= 74.000000
POLYS= 35.195571
POLYP= 18.760746
POLYD= -17.030630
LPARP= -1.500000
LPARD= 0.130920
$end
$Z=75 Tue Aug 30 17:58:56 CEST 2016
ao=5d6s6p
lev= -7.858164 -6.430285 -5.165147
exp= 2.470782 2.220548 1.450000
GAM= 0.362512
GAM3= 0.300000
REPA= 1.132106
REPB= 75.000000
POLYS= 23.560994
POLYP= -0.067497
POLYD= -23.115824
LPARP= -2.000000
LPARD= 2.507095
$end
$Z=76 Tue Aug 30 18:12:17 CEST 2016
ao=5d6s6p
lev= -10.716969 -3.655133 -7.060522
exp= 2.734340 2.365840 1.650000
GAM= 0.354318
GAM3= -0.170295
REPA= 1.118216
REPB= 76.000000
POLYS= 24.928002
POLYP= -4.330556
POLYD= -19.564083
LPARP= -1.000000
LPARD= -0.262294
$end
$Z=77 Tue Aug 30 19:00:14 CEST 2016
ao=5d6s6p
lev= -12.054598 -5.686006 -6.208990
exp= 2.797508 2.274300 1.650000
GAM= 0.290898
GAM3= 0.965726
REPA= 1.245003
REPB= 77.000000
POLYS= 25.774929
POLYP= -0.704597
POLYD= -21.172493
LPARP= -1.500000
LPARD= 3.805255
$end
$Z=78 Wed Aug 31 01:41:36 CEST 2016
ao=5d6s6p
lev= -11.571582 -7.184794 -5.080419
exp= 2.807068 2.341428 1.650000
GAM= 0.370447
GAM3= 1.092759
REPA= 1.304590
REPB= 78.000000
POLYS= 38.415536
POLYP= -0.665483
POLYD= -22.169385
LPARP= -2.000000
LPARD= 0.996400
$end
$Z=79 Tue Aug 30 21:57:24 CEST 2016
ao=5d6s6p
lev= -10.047575 -6.530840 -3.296026
exp= 3.117733 2.325119 1.750000
GAM= 0.496380
GAM3= 0.123512
REPA= 1.293034
REPB= 79.000000
POLYS= -11.443658
POLYP= -5.119735
POLYD= -11.067532
LPARP= -1.500000
LPARD= -4.380921
$end
$Z=80 Tue Aug 30 21:59:42 CEST 2016
ao=6s6p
lev= -12.452637 -4.169731
exp= 2.062597 1.721925
GAM= 0.334997
GAM3= -0.267745
REPA= 1.181865
REPB= 80.000000
POLYS= -6.581368
POLYP= 3.995243
LPARP= -4.204099
$end
$Z=81 Tue Aug 30 22:14:23 CEST 2016
ao=6s6p
lev= -12.563376 -5.131043
exp= 2.647541 1.717991
GAM= 0.671316
GAM3= 0.936157
REPA= 0.976397
REPB= 81.000000
POLYS= -2.193199
POLYP= 0.060451
LPARP= -8.101017
$end
$Z=82 Wed Aug 31 00:32:19 CEST 2016
ao=6s6p
lev= -14.496335 -5.848584
exp= 2.847707 2.068091
GAM= 1.000000
GAM3= 1.500000
REPA= 0.988859
REPB= 79.578302
POLYS= -10.874138
POLYP= -6.034796
LPARP= -7.925216
$end
$Z=83 Wed Aug 31 00:39:42 CEST 2016
ao=6s6p
lev= -18.199529 -6.735929
exp= 2.895660 2.256279
GAM= 0.944879
GAM3= 0.877488
REPA= 1.047194
REPB= 83.000000
POLYS= -20.410234
POLYP= -9.424568
LPARP= -7.150589
$end
$Z=84 Wed Aug 31 00:47:41 CEST 2016
ao=6s6p5d
lev= -23.908422 -8.889548 -0.921251
exp= 3.150662 2.382063 1.241625
GAM= 1.091248
GAM3= -0.035874
REPA= 1.013118
REPB= 84.000000
POLYS= -18.477865
POLYP= -14.037423
POLYD= 13.809093
LPARP= -3.955914
$end
$Z=85 Wed Aug 31 00:56:17 CEST 2016
ao=6s6p5d
lev= -21.752193 -10.031093 -0.852571
exp= 3.516922 2.392024 1.380239
GAM= 1.264162
GAM3= -0.860502
CXB= 0.220000
REPA= 0.964652
REPB= 85.000000
POLYS= -21.965390
POLYP= -12.804436
POLYD= 16.836546
LPARP= -3.402676
$end
$Z=86 Wed Aug 31 00:56:17 CEST 2016
ao=6s6p5d
lev= -18.381647 -10.236606 -0.973687
exp= 3.520683 2.535389 1.418875
GAM= 0.798170
GAM3= -0.838429
REPA= 0.998641
REPB= 86.000000
POLYS= -22.139701
POLYP= -20.539955
POLYD= 17.249637
LPARP= -2.380762
$end
xtb-6.7.1/param_gfn1-xtb.txt 0000664 0000000 0000000 00000066230 14650006642 0015703 0 ustar 00root root 0000000 0000000 $info
level 1
name GFN1-xTB
doi 10.1021/acs.jctc.7b00118
$globpar
ks 1.85000
kp 2.25000
kd 2.00000
ksp 2.08000
kdiff 2.85000
enscale -0.70000
ipeashift 1.78069
cns 0.60000
cnp -0.30000
cnd1 -0.50000
cnd2 0.50000
alphaj 2.00000
a1 0.63000
a2 5.00000
s8 2.40000
s9 0.00000
kexp 1.50000
kexplight 1.50000
xbdamp 0.44000
xbrad 1.30000
$end
$pairpar
1 1 0.9600
1 5 0.9500
1 7 1.0400
7 14 1.0100
5 15 0.9700
1 28 0.9000
1 75 0.8000
1 78 0.8000
$end
$Z= 1 Sat Nov 4 20:25:57 CET 2017
ao=1s2s
lev= -10.923452 -2.171902
exp= 1.207940 1.993207
GAM= 0.470099
REPA= 2.209700
REPB= 1.116244
$end
$Z= 2 Mon Aug 22 21:05:21 CEST 2016
ao=1s
lev= -22.121015
exp= 2.133698
GAM= 1.441379
GAM3= 1.500000
REPA= 1.382907
REPB= 0.440231
POLYS= 8.084149
$end
$Z= 3 Mon Aug 22 20:58:33 CEST 2016
ao=2s2p
lev= -7.270105 -4.609277
exp= 0.743881 0.541917
GAM= 0.205342
GAM3= 1.027370
REPA= 0.671797
REPB= 2.747587
POLYS= -4.102845
POLYP= 9.259276
LPARP= -0.772012
$end
$Z= 4 Mon Aug 22 17:20:12 CEST 2016
ao=2s2p
lev= -9.541494 -5.812621
exp= 0.876888 1.104598
GAM= 0.274022
GAM3= 0.900554
REPA= 0.865377
REPB= 4.076830
POLYS= -12.991482
POLYP= -1.308797
LPARP= 1.113005
$end
$Z= 5 Thu Sep 22 13:48:45 CEST 2016
ao=2s2p
lev= -12.497913 -7.604923
exp= 1.667617 1.495078
GAM= 0.340530
GAM3= 1.300000
REPA= 1.093544
REPB= 4.458376
POLYS= -7.088823
POLYP= 0.655877
LPARP= 0.165643
$end
$Z= 6 Sat Nov 4 20:25:57 CET 2017
ao=2s2p
lev= -13.587210 -10.052785
exp= 1.960324 1.832096
GAM= 0.479988
GAM3= 1.053856
REPA= 1.281954
REPB= 4.428763
POLYS= -7.082170
POLYP= 0.812216
LPARP= -0.471181
$end
$Z= 7 Sat Nov 4 20:25:57 CET 2017
ao=2s2p
lev= -20.058000 -12.889326
exp= 2.050067 2.113682
GAM= 0.476106
GAM3= 0.042507
REPA= 1.727773
REPB= 5.498808
POLYS= -12.745585
POLYP= -1.428367
LPARP= 0.315090
$end
$Z= 8 Sat Nov 4 20:25:57 CET 2017
ao=2s2p
lev= -23.398376 -17.886554
exp= 2.345365 2.153060
GAM= 0.583349
GAM3= -0.005102
REPA= 2.004253
REPB= 5.171786
POLYS= -13.729047
POLYP= -4.453341
LPARP= 0.374608
$end
$Z= 9 Mon Aug 22 08:05:34 CEST 2016
ao=2s2p
lev= -24.776175 -17.274415
exp= 2.968015 2.256959
GAM= 0.788194
GAM3= 1.615037
REPA= 2.507078
REPB= 6.931741
POLYS= -3.921613
POLYP= -11.422491
LPARP= -0.827352
$end
$Z=10 Wed Aug 31 17:29:03 CEST 2016
ao=2s2p3d
lev= -31.167487 -18.268975 1.487984
exp= 3.200000 2.294365 2.684436
GAM= 0.612878
GAM3= 1.600000
REPA= 3.038727
REPB= 9.102523
POLYS= -2.115896
POLYP= -15.124326
LPARP= -3.892542
$end
$Z=11 Fri Jun 16 11:28:14 CEST 2017
ao=3s3p
lev= -4.717569 -2.797054
exp= 0.819143 0.628961
GAM= 0.165908
GAM3= 1.200000
REPA= 0.704472
REPB= 10.591259
POLYS= 13.188489
POLYP= 10.969376
LPARP= -3.004391
$end
$Z=12 Fri Jun 16 09:56:36 CEST 2017
ao=3s3p
lev= -9.970921 -2.901013
exp= 1.271287 0.797143
GAM= 0.354151
GAM3= 1.100000
REPA= 0.862629
REPB= 15.238107
POLYS= -19.219408
POLYP= 18.272922
LPARP= 0.674819
$end
$Z=13 Mon Aug 22 15:20:00 CEST 2016
ao=3s3p3d
lev= -12.916245 -3.441043 -1.751415
exp= 1.497753 1.232966 0.606937
GAM= 0.221658
GAM3= 1.200000
REPA= 0.929219
REPB= 16.283595
POLYS= -21.085827
POLYP= 24.805127
POLYD= 26.405814
LPARP= 0.503564
$end
$Z=14 Thu Aug 25 05:54:29 CEST 2016
ao=3s3p3d
lev= -14.506128 -7.557337 -2.508113
exp= 1.521960 1.609138 1.168971
GAM= 0.438331
GAM3= 1.500000
REPA= 0.948165
REPB= 16.898359
POLYS= -14.201582
POLYP= -3.893343
POLYD= 25.499221
LPARP= -5.925834
$end
$Z=15 Mon Aug 22 14:05:50 CEST 2016
ao=3s3p3d
lev= -18.865587 -9.386464 -0.673989
exp= 1.993165 1.826973 1.293345
GAM= 0.798319
GAM3= 1.500000
REPA= 1.067197
REPB= 15.249559
POLYS= -16.118985
POLYP= -2.241189
POLYD= 30.984577
LPARP= -2.530875
$end
$Z=16 Mon Aug 22 10:47:45 CEST 2016
ao=3s3p3d
lev= -23.819013 -12.120136 -1.711261
exp= 2.506934 1.992775 1.964867
GAM= 0.643959
GAM3= 1.500000
REPA= 1.200803
REPB= 15.100323
POLYS= -16.989922
POLYP= -6.067779
POLYD= 16.248395
LPARP= -1.678147
$end
$Z=17 Mon Aug 22 08:23:38 CEST 2016
ao=3s3p3d
lev= -24.452163 -12.883714 -1.190095
exp= 2.847946 2.077534 1.932463
GAM= 0.519712
GAM3= 1.000000
REPA= 1.404155
REPB= 17.000000
POLYS= -9.341919
POLYP= -8.499805
POLYD= 13.088867
LPARP= -4.481841
$end
$Z=18 Wed Aug 31 18:08:34 CEST 2016
ao=3s3p3d
lev= -31.395427 -17.412901 -1.119399
exp= 3.502323 2.287983 1.761181
GAM= 0.529906
GAM3= 0.829312
REPA= 1.323756
REPB= 17.153132
POLYS= -0.082808
POLYP= -9.217948
POLYD= 12.204172
LPARP= -1.450000
$end
$Z=19 Wed Aug 31 18:13:39 CEST 2016
ao=4s4p
lev= -5.815562 -3.747255
exp= 0.841791 0.771618
GAM= 0.114358
GAM3= 0.732923
REPA= 0.581529
REPB= 20.831436
POLYS= 12.482844
POLYP= 22.323655
LPARP= -5.332978
$end
$Z=20 Wed Aug 31 18:20:07 CEST 2016
ao=4s4p3d
lev= -7.979180 -2.517008 -2.752355
exp= 1.321845 0.734954 0.947032
GAM= 0.134187
GAM3= 1.116963
REPA= 0.665588
REPB= 19.840212
POLYS= -11.421376
POLYP= 14.628284
POLYD= 10.129602
LPARP= 11.522018
$end
$Z=21 Fri Sep 2 10:30:12 CEST 2016
ao=3d4s4p
lev= -7.172021 -9.632943 -0.696628
exp= 2.200000 1.532191 1.017366
GAM= 0.778545
GAM3= 1.000000
REPA= 0.841357
REPB= 18.676202
POLYS= 9.522966
POLYP= 44.183320
POLYD= -36.027863
LPARP= -2.000000
LPARD= -5.934820
$end
$Z=22 Mon Aug 22 22:04:56 CEST 2016
ao=3d4s4p
lev= -7.617343 -7.948161 -0.902143
exp= 1.941479 1.477526 1.063921
GAM= 1.044998
GAM3= 0.739203
REPA= 0.828638
REPB= 17.084130
POLYS= 24.879987
POLYP= 18.910954
POLYD= -24.908650
LPARP= -1.500000
LPARD= -7.388986
$end
$Z=23 Tue Aug 23 08:15:09 CEST 2016
ao=3d4s4p
lev= -6.677563 -9.000000 -0.108008
exp= 1.812440 1.345487 1.100000
GAM= 0.985157
GAM3= 0.800000
REPA= 1.061627
REPB= 22.352532
POLYS= -5.301066
POLYP= 22.945047
POLYD= -29.197847
LPARP= -2.000000
LPARD= -5.229338
$end
$Z=24 Wed Aug 31 19:00:08 CEST 2016
ao=3d4s4p
lev= -7.357172 -7.024438 -3.933133
exp= 1.915482 1.241910 1.130000
GAM= 0.468100
GAM3= 0.800000
REPA= 0.997051
REPB= 22.873486
POLYS= -2.432193
POLYP= 11.274054
POLYD= -22.608167
LPARP= -2.500000
LPARD= 0.786859
$end
$Z=25 Wed Aug 31 20:33:25 CEST 2016
ao=3d4s4p
lev= -8.558648 -6.149482 -4.360801
exp= 2.016302 1.882798 1.270000
GAM= 0.609868
GAM3= 0.300000
REPA= 1.019783
REPB= 24.160655
POLYS= 1.025345
POLYP= 1.834626
POLYD= -25.016650
LPARP= -2.500000
LPARD= 10.544199
$end
$Z=26 Wed Aug 31 20:44:43 CEST 2016
ao=3d4s4p
lev= -9.705009 -6.617863 -4.595985
exp= 2.264485 1.382959 1.300000
GAM= 0.900000
GAM3= 0.500000
REPA= 1.137174
REPB= 25.983149
POLYS= -2.182723
POLYP= 11.769535
POLYD= -22.920815
LPARP= -2.000000
LPARD= 1.018896
$end
$Z=27 Wed Aug 24 05:59:57 CEST 2016
ao=3d4s4p
lev= -10.285239 -4.593686 -3.855768
exp= 2.279966 1.925082 1.350000
GAM= 0.426680
GAM3= 0.300000
REPA= 1.188538
REPB= 27.169215
POLYS= 0.815250
POLYP= 15.765732
POLYD= -21.678930
LPARP= -2.000000
LPARD= 0.222849
$end
$Z=28 Wed Aug 31 22:12:25 CEST 2016
ao=3d4s4p
lev= -10.841022 -8.687611 -3.332933
exp= 2.356745 1.532263 1.350000
GAM= 0.367019
GAM3= 1.000000
REPA= 1.399197
REPB= 23.396999
POLYS= 15.160508
POLYP= 15.782685
POLYD= -26.348820
LPARP= -2.000000
LPARD= 1.282426
$end
$Z=29 Wed Aug 31 22:32:35 CEST 2016
ao=3d4s4p
lev= -11.114050 -8.373193 -4.419045
exp= 2.598287 1.583677 1.350000
GAM= 0.260192
GAM3= 0.237602
REPA= 1.199230
REPB= 29.000000
POLYS= -3.590501
POLYP= 7.413473
POLYD= -21.142399
LPARD= -1.290373
$end
$Z=30 Thu Sep 1 04:25:19 CEST 2016
ao=4s4p
lev= -11.263459 -4.666731
exp= 1.722526 1.061945
GAM= 0.209459
GAM3= 1.400000
REPA= 1.145056
REPB= 31.185765
POLYS= -15.535695
POLYP= 4.061664
LPARP= 0.200991
$end
$Z=31 Fri Sep 2 10:14:46 CEST 2016
ao=4s4p4d
lev= -13.273222 -4.859478 -2.245112
exp= 1.992354 1.482052 0.712761
GAM= 0.193302
GAM3= 1.400000
REPA= 1.047536
REPB= 33.128619
POLYS= -14.584657
POLYP= 9.375082
POLYD= 19.671655
LPARP= -2.021175
LPARD= 1.000000
$end
$Z=32 Fri Sep 2 09:56:01 CEST 2016
ao=4s4p4d
lev= -12.558286 -8.035796 -2.752271
exp= 2.172951 1.794495 0.769997
GAM= 0.800000
GAM3= 1.400000
REPA= 1.129480
REPB= 35.493164
POLYS= -12.195371
POLYP= -11.374296
POLYD= 9.364108
LPARP= -7.631942
LPARD= -1.300000
$end
$Z=33 Thu Sep 1 05:11:43 CEST 2016
ao=4s4p4d
lev= -17.515251 -8.272706 -1.245776
exp= 2.265106 1.986411 1.113511
GAM= 0.732367
GAM3= 1.300000
REPA= 1.233641
REPB= 36.125762
POLYS= -17.489686
POLYP= -6.747956
POLYD= 17.858510
LPARP= -0.335509
LPARD= -1.000000
$end
$Z=34 Thu Sep 1 15:12:08 CEST 2016
ao=4s4p4d
lev= -23.000000 -10.398968 -0.821804
exp= 3.044672 2.098532 1.863317
GAM= 0.714534
GAM3= 1.300000
REPA= 1.270088
REPB= 32.148852
POLYS= -14.852299
POLYP= -9.863477
POLYD= 9.556181
LPARP= -3.213580
LPARD= -2.500000
$end
$Z=35 Mon Aug 22 11:29:28 CEST 2016
ao=4s4p4d
lev= -19.875752 -12.818655 -3.348113
exp= 2.886237 2.190987 1.789395
GAM= 0.732530
GAM3= -0.500000
CXB= 0.381742
REPA= 1.153580
REPB= 35.000000
POLYS= -17.815502
POLYP= -14.058044
POLYD= 5.468245
LPARP= -1.440020
LPARD= -1.000000
$end
$Z=36 Thu Sep 1 15:19:47 CEST 2016
ao=4s4p4d
lev= -20.280017 -15.200155 -4.253986
exp= 2.828105 1.965472 1.512609
GAM= 0.820312
GAM3= 1.000000
REPA= 1.335287
REPB= 36.000000
POLYS= -25.437273
POLYP= -12.813227
POLYD= 10.440712
LPARP= -3.743296
$end
$Z=37 Sat Aug 27 04:24:34 CEST 2016
ao=5s5p
lev= -7.616948 -4.369842
exp= 0.809529 0.950253
GAM= 0.075735
GAM3= 1.500000
REPA= 0.554032
REPB= 39.653032
POLYS= -7.450752
POLYP= 16.670533
LPARP= -5.181667
$end
$Z=38 Thu Sep 1 17:15:37 CEST 2016
ao=5s5p4d
lev= -6.840171 -3.338573 -1.715680
exp= 1.458742 0.730658 1.028147
GAM= 0.122861
GAM3= 1.300000
REPA= 0.657904
REPB= 38.924904
POLYS= -6.087125
POLYP= 2.115262
POLYD= 17.076466
LPARP= -8.003590
$end
$Z=39 Thu Sep 1 17:20:03 CEST 2016
ao=4d5s5p
lev= -5.731066 -8.748292 -0.838555
exp= 2.300000 1.593058 1.170000
GAM= 0.351290
GAM3= 1.400000
REPA= 0.760144
REPB= 39.000000
POLYS= 10.950764
POLYP= 45.679760
POLYD= -28.061976
LPARP= -0.800000
LPARD= -4.159186
$end
$Z=40 Sun Aug 28 01:57:32 CEST 2016
ao=4d5s5p
lev= -6.771010 -3.979156 -3.954049
exp= 2.175661 1.665905 1.230000
GAM= 0.168219
GAM3= 0.581478
REPA= 0.739520
REPB= 36.521516
POLYS= 44.110231
POLYP= 25.863572
POLYD= -22.240873
LPARP= -2.500000
LPARD= 0.337914
$end
$Z=41 Thu Sep 1 17:28:28 CEST 2016
ao=4d5s5p
lev= -9.245726 -9.268975 -1.348707
exp= 2.092288 1.459971 1.200000
GAM= 0.175875
GAM3= 0.280147
REPA= 0.895357
REPB= 40.803132
POLYS= 15.379439
POLYP= 30.159730
POLYD= -25.998052
LPARP= -2.000000
LPARD= 0.638436
$end
$Z=42 Thu Sep 1 17:33:17 CEST 2016
ao=4d5s5p
lev= -8.176239 -7.645737 -3.802884
exp= 1.891236 1.827996 1.220000
GAM= 0.384677
GAM3= 0.041052
REPA= 0.944064
REPB= 41.939347
POLYS= 5.815301
POLYP= 14.527159
POLYD= -22.556077
LPARP= -2.500000
LPARD= -3.426221
$end
$Z=43 Sun Aug 28 04:51:04 CEST 2016
ao=4d5s5p
lev= -8.690050 -5.089073 -4.878724
exp= 2.120497 1.789115 1.250000
GAM= 0.405474
GAM3= 0.500000
REPA= 1.028240
REPB= 43.000000
POLYS= 24.977603
POLYP= 1.953838
POLYD= -23.231470
LPARP= -2.000000
LPARD= 2.642680
$end
$Z=44 Thu Sep 1 17:52:27 CEST 2016
ao=4d5s5p
lev= -10.960165 -6.304229 -5.569969
exp= 2.352683 1.883645 1.370000
GAM= 0.305394
GAM3= 0.001205
REPA= 1.066144
REPB= 44.492732
POLYS= 15.281981
POLYP= 1.340798
POLYD= -23.099524
LPARP= -1.500000
LPARD= 1.772831
$end
$Z=45 Thu Sep 1 17:58:03 CEST 2016
ao=4d5s5p
lev= -11.935915 -4.883179 -4.427854
exp= 2.436353 2.000000 1.470000
GAM= 0.293973
GAM3= 0.622690
REPA= 1.131380
REPB= 45.241537
POLYS= 10.450086
POLYP= 15.559547
POLYD= -23.540560
LPARP= -2.500000
LPARD= 3.782936
$end
$Z=46 Mon Aug 29 14:49:51 CEST 2016
ao=4d5s5p
lev= -12.059626 -5.724219 -2.575000
exp= 2.528954 2.073217 1.550000
GAM= 0.280766
GAM3= 0.500000
REPA= 1.206869
REPB= 42.105527
POLYS= 17.475085
POLYP= 21.621321
POLYD= -23.290322
LPARP= -2.500000
LPARD= 3.210802
$end
$Z=47 Thu Sep 1 18:14:42 CEST 2016
ao=4d5s5p
lev= -9.675945 -5.723081 -3.273430
exp= 2.720329 1.994885 1.620000
GAM= 0.472978
GAM3= -0.445675
REPA= 1.058886
REPB= 43.201446
POLYS= -12.856324
POLYP= 0.187155
POLYD= -6.963262
LPARP= -1.500000
LPARD= -1.477715
$end
$Z=48 Thu Sep 1 18:24:25 CEST 2016
ao=5s5p
lev= -12.099216 -3.859493
exp= 1.980518 1.191810
GAM= 0.130828
GAM3= 1.362587
REPA= 1.026434
REPB= 49.016827
POLYS= -10.281188
POLYP= 6.247124
LPARP= -0.775216
$end
$Z=49 Thu Sep 1 19:21:53 CEST 2016
ao=5s5p5d
lev= -16.894094 -3.502771 -3.650350
exp= 2.226101 1.625926 0.663076
GAM= 0.132120
GAM3= 1.063557
REPA= 0.898148
REPB= 51.718417
POLYS= -10.488459
POLYP= 19.136222
POLYD= 5.584366
LPARP= 0.762515
$end
$Z=50 Sun Sep 1 18:10:35 CEST 2016
ao=5s5p5d
lev= -24.164818 -7.640096 -1.908531
exp= 2.474055 1.893755 1.547485
GAM= 0.480655
GAM3= -0.321283
REPA= 1.008192
REPB= 54.503455
POLYS= -19.310676
POLYP= -5.460959
POLYD= 10.683419
LPARP= -3.444851
LPARD= -1.500000
$end
$Z=51 Thu Sep 1 22:28:28 CEST 2016
ao=5s5p5d
lev= -20.650528 -7.536020 -2.185884
exp= 2.761687 2.076379 1.071094
GAM= 0.564406
GAM3= -0.341503
REPA= 0.982673
REPB= 50.757213
POLYS= -17.310388
POLYP= -7.203718
POLYD= 10.096015
LPARP= -1.459812
LPARD= -2.000000
$end
$Z=52 Thu Sep 1 22:53:11 CEST 2016
ao=5s5p5d
lev= -29.899753 -10.026096 -0.372055
exp= 2.880945 2.254863 1.724516
GAM= 0.400301
GAM3= 0.894388
REPA= 0.973410
REPB= 49.215262
POLYS= -17.836704
POLYP= -9.887978
POLYD= 20.942979
LPARP= 0.137154
LPARD= -2.000000
$end
$Z=53 Mon Aug 22 12:51:49 CEST 2016
ao=5s5p5d
lev= -23.832631 -11.604442 -2.025327
exp= 3.117622 2.248195 1.831809
GAM= 0.520472
GAM3= -0.500000
CXB= 0.321944
REPA= 0.949181
REPB= 53.000000
POLYS= -21.954071
POLYP= -10.823970
POLYD= 12.522287
LPARP= -0.387987
LPARD= -1.500000
$end
$Z=54 Mon Aug 29 22:22:12 CEST 2016
ao=5s5p5d
lev= -21.969064 -11.870978 -2.697796
exp= 3.128524 2.316580 1.888452
GAM= 0.935394
GAM3= -0.800000
REPA= 1.074785
REPB= 52.500985
POLYS= -22.530281
POLYP= -16.667114
POLYD= 8.021956
LPARP= -3.435282
LPARD= -1.500000
$end
$Z=55 Thu Sep 1 23:00:45 CEST 2016
ao=5s5p
lev= -6.341379 -3.944275
exp= 0.779877 0.810404
GAM= 0.085110
GAM3= 1.500000
REPA= 0.579919
REPB= 65.029838
POLYS= -1.460631
POLYP= 15.879494
LPARP= -7.035550
$end
$Z=56 Thu Sep 1 23:06:30 CEST 2016
ao=5s5p4d
lev= -6.452630 -3.975353 -2.305768
exp= 1.387083 0.532658 0.853415
GAM= 0.137819
GAM3= 1.500000
REPA= 0.606485
REPB= 46.532974
POLYS= -5.468018
POLYP= 4.368854
POLYD= 14.328052
LPARP= -8.801363
$end
$Z=57 Tue Aug 30 00:04:23 CEST 2016
ao=5d6s6p
lev= -5.872226 -6.500000 -0.727921
exp= 3.000000 1.492677 1.350000
GAM= 0.495969
GAM3= 1.500000
REPA= 1.311200
REPB= 48.337542
POLYS= -3.988102
POLYP= 40.847293
POLYD= -44.208463
LPARP= -1.500000
LPARD= -6.396752
$end
$Z=58 Tue Aug 30 10:12:13 CEST 2016
ao=5d6s6p
lev= -5.032003 -6.275363 0.291196
exp= 3.000000 1.553483 1.380859
GAM= 0.350000
GAM3= 1.200000
REPA= 0.839861
REPB= 30.638143
POLYS= 6.148475
POLYP= 42.873822
POLYD= -36.440945
LPARP= -1.500000
LPARD= -5.245538
$end
$Z=59 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.944984 -6.271128 0.241817
exp= 2.992307 1.578839 1.385620
GAM= 0.342306
GAM3= 1.200000
REPA= 0.847281
REPB= 34.130718
POLYS= 7.806576
POLYP= 42.846148
POLYD= -36.021673
LPARP= -1.500000
LPARD= -5.064761
$end
$Z=60 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.857964 -6.266893 0.192438
exp= 2.984614 1.604196 1.390381
GAM= 0.334612
GAM3= 1.200000
REPA= 0.854701
REPB= 37.623294
POLYS= 9.464678
POLYP= 42.818474
POLYD= -35.602402
LPARP= -1.500000
LPARD= -4.883984
$end
$Z=61 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.770945 -6.262657 0.143059
exp= 2.976922 1.629552 1.395142
GAM= 0.326917
GAM3= 1.200000
REPA= 0.862121
REPB= 41.115870
POLYS= 11.122779
POLYP= 42.790801
POLYD= -35.183130
LPARP= -1.500000
LPARD= -4.703207
$end
$Z=62 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.683925 -6.258422 0.093680
exp= 2.969229 1.654909 1.399903
GAM= 0.319223
GAM3= 1.200000
REPA= 0.869541
REPB= 44.608445
POLYS= 12.780881
POLYP= 42.763127
POLYD= -34.763859
LPARP= -1.500000
LPARD= -4.522429
$end
$Z=63 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.596906 -6.254187 0.044301
exp= 2.961536 1.680265 1.404664
GAM= 0.311529
GAM3= 1.200000
REPA= 0.876961
REPB= 48.101021
POLYS= 14.438982
POLYP= 42.735454
POLYD= -34.344587
LPARP= -1.500000
LPARD= -4.341652
$end
$Z=64 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.509886 -6.249952 -0.005078
exp= 2.953843 1.705622 1.409425
GAM= 0.303835
GAM3= 1.200000
REPA= 0.884381
REPB= 51.593596
POLYS= 16.097083
POLYP= 42.707780
POLYD= -33.925315
LPARP= -1.500000
LPARD= -4.160875
$end
$Z=65 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.422867 -6.245716 -0.054457
exp= 2.946150 1.730979 1.414186
GAM= 0.296140
GAM3= 1.200000
REPA= 0.891801
REPB= 55.086172
POLYS= 17.755185
POLYP= 42.680106
POLYD= -33.506044
LPARP= -1.500000
LPARD= -3.980098
$end
$Z=66 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.335848 -6.241481 -0.103836
exp= 2.938457 1.756335 1.418947
GAM= 0.288446
GAM3= 1.200000
REPA= 0.899221
REPB= 58.578748
POLYS= 19.413286
POLYP= 42.652433
POLYD= -33.086772
LPARP= -1.500000
LPARD= -3.799321
$end
$Z=67 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.248828 -6.237246 -0.153215
exp= 2.930765 1.781692 1.423708
GAM= 0.280752
GAM3= 1.200000
REPA= 0.906641
REPB= 62.071323
POLYS= 21.071387
POLYP= 42.624759
POLYD= -32.667501
LPARP= -1.500000
LPARD= -3.618544
$end
$Z=68 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.161809 -6.233011 -0.202593
exp= 2.923072 1.807048 1.428469
GAM= 0.273058
GAM3= 1.200000
REPA= 0.914061
REPB= 65.563899
POLYS= 22.729489
POLYP= 42.597085
POLYD= -32.248229
LPARP= -1.500000
LPARD= -3.437767
$end
$Z=69 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.074789 -6.228775 -0.251972
exp= 2.915379 1.832405 1.433230
GAM= 0.265364
GAM3= 1.200000
REPA= 0.921481
REPB= 69.056474
POLYS= 24.387590
POLYP= 42.569412
POLYD= -31.828957
LPARP= -1.500000
LPARD= -3.256989
$end
$Z=70 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -3.987770 -6.224540 -0.301351
exp= 2.907686 1.857761 1.437991
GAM= 0.257669
GAM3= 1.200000
REPA= 0.928901
REPB= 72.549050
POLYS= 26.045692
POLYP= 42.541738
POLYD= -31.409686
LPARP= -1.500000
LPARD= -3.076212
$end
$Z=71 Tue Aug 30 10:12:13 CEST 2016
ao=5d6s6p
lev= -3.900750 -6.220305 -0.350730
exp= 2.899993 1.883118 1.442752
GAM= 0.249975
GAM3= 1.200000
REPA= 0.936321
REPB= 76.041625
POLYS= 27.703793
POLYP= 42.514065
POLYD= -30.990414
LPARP= -1.500000
LPARD= -2.895435
$end
$Z=72 Tue Aug 30 04:10:19 CEST 2016
ao=5d6s6p
lev= -4.360558 -5.910623 -2.814338
exp= 2.466693 2.039390 1.450000
GAM= 0.269977
GAM3= 0.847011
REPA= 0.853744
REPB= 55.222897
POLYS= 15.014122
POLYP= 22.898249
POLYD= -21.116286
LPARP= -1.500000
LPARD= -1.485678
$end
$Z=73 Tue Aug 30 16:41:19 CEST 2016
ao=5d6s6p
lev= -9.232014 -8.600553 -0.252865
exp= 2.177327 1.692963 1.400000
GAM= 0.239696
GAM3= 0.064592
REPA= 0.971873
REPB= 63.743065
POLYS= 29.782424
POLYP= 36.420564
POLYD= -23.077812
LPARP= -1.500000
LPARD= -1.870583
$end
$Z=74 Tue Aug 30 17:50:56 CEST 2016
ao=5d6s6p
lev= -8.997799 -2.878936 -3.369287
exp= 2.300752 2.096013 1.400000
GAM= 0.243663
GAM3= -0.014599
REPA= 0.992643
REPB= 74.000000
POLYS= 35.195571
POLYP= 18.760746
POLYD= -17.030630
LPARP= -1.500000
LPARD= 0.130920
$end
$Z=75 Tue Aug 30 17:58:56 CEST 2016
ao=5d6s6p
lev= -7.858164 -6.430285 -5.165147
exp= 2.470782 2.220548 1.450000
GAM= 0.362512
GAM3= 0.300000
REPA= 1.132106
REPB= 75.000000
POLYS= 23.560994
POLYP= -0.067497
POLYD= -23.115824
LPARP= -2.000000
LPARD= 2.507095
$end
$Z=76 Tue Aug 30 18:12:17 CEST 2016
ao=5d6s6p
lev= -10.716969 -3.655133 -7.060522
exp= 2.734340 2.365840 1.650000
GAM= 0.354318
GAM3= -0.170295
REPA= 1.118216
REPB= 76.000000
POLYS= 24.928002
POLYP= -4.330556
POLYD= -19.564083
LPARP= -1.000000
LPARD= -0.262294
$end
$Z=77 Tue Aug 30 19:00:14 CEST 2016
ao=5d6s6p
lev= -12.054598 -5.686006 -6.208990
exp= 2.797508 2.274300 1.650000
GAM= 0.290898
GAM3= 0.965726
REPA= 1.245003
REPB= 77.000000
POLYS= 25.774929
POLYP= -0.704597
POLYD= -21.172493
LPARP= -1.500000
LPARD= 3.805255
$end
$Z=78 Wed Aug 31 01:41:36 CEST 2016
ao=5d6s6p
lev= -11.571582 -7.184794 -5.080419
exp= 2.807068 2.341428 1.650000
GAM= 0.370447
GAM3= 1.092759
REPA= 1.304590
REPB= 78.000000
POLYS= 38.415536
POLYP= -0.665483
POLYD= -22.169385
LPARP= -2.000000
LPARD= 0.996400
$end
$Z=79 Tue Aug 30 21:57:24 CEST 2016
ao=5d6s6p
lev= -10.047575 -6.530840 -3.296026
exp= 3.117733 2.325119 1.750000
GAM= 0.496380
GAM3= 0.123512
REPA= 1.293034
REPB= 79.000000
POLYS= -11.443658
POLYP= -5.119735
POLYD= -11.067532
LPARP= -1.500000
LPARD= -4.380921
$end
$Z=80 Tue Aug 30 21:59:42 CEST 2016
ao=6s6p
lev= -12.452637 -4.169731
exp= 2.062597 1.721925
GAM= 0.334997
GAM3= -0.267745
REPA= 1.181865
REPB= 80.000000
POLYS= -6.581368
POLYP= 3.995243
LPARP= -4.204099
$end
$Z=81 Tue Aug 30 22:14:23 CEST 2016
ao=6s6p
lev= -12.563376 -5.131043
exp= 2.647541 1.717991
GAM= 0.671316
GAM3= 0.936157
REPA= 0.976397
REPB= 81.000000
POLYS= -2.193199
POLYP= 0.060451
LPARP= -8.101017
$end
$Z=82 Wed Aug 31 00:32:19 CEST 2016
ao=6s6p
lev= -14.496335 -5.848584
exp= 2.847707 2.068091
GAM= 1.000000
GAM3= 1.500000
REPA= 0.988859
REPB= 79.578302
POLYS= -10.874138
POLYP= -6.034796
LPARP= -7.925216
$end
$Z=83 Wed Aug 31 00:39:42 CEST 2016
ao=6s6p
lev= -18.199529 -6.735929
exp= 2.895660 2.256279
GAM= 0.944879
GAM3= 0.877488
REPA= 1.047194
REPB= 83.000000
POLYS= -20.410234
POLYP= -9.424568
LPARP= -7.150589
$end
$Z=84 Wed Aug 31 00:47:41 CEST 2016
ao=6s6p5d
lev= -23.908422 -8.889548 -0.921251
exp= 3.150662 2.382063 1.241625
GAM= 1.091248
GAM3= -0.035874
REPA= 1.013118
REPB= 84.000000
POLYS= -18.477865
POLYP= -14.037423
POLYD= 13.809093
LPARP= -3.955914
$end
$Z=85 Wed Aug 31 00:56:17 CEST 2016
ao=6s6p5d
lev= -21.752193 -10.031093 -0.852571
exp= 3.516922 2.392024 1.380239
GAM= 1.264162
GAM3= -0.860502
CXB= 0.220000
REPA= 0.964652
REPB= 85.000000
POLYS= -21.965390
POLYP= -12.804436
POLYD= 16.836546
LPARP= -3.402676
$end
$Z=86 Wed Aug 31 00:56:17 CEST 2016
ao=6s6p5d
lev= -18.381647 -10.236606 -0.973687
exp= 3.520683 2.535389 1.418875
GAM= 0.798170
GAM3= -0.838429
REPA= 0.998641
REPB= 86.000000
POLYS= -22.139701
POLYP= -20.539955
POLYD= 17.249637
LPARP= -2.380762
$end
xtb-6.7.1/param_gfn2-xtb.txt 0000664 0000000 0000000 00000106011 14650006642 0015674 0 ustar 00root root 0000000 0000000 $info
level 2
name GFN2-xTB
doi 10.1021/acs.jctc.8b01176
$globpar
ks 1.85000
kp 2.23000
kd 2.23000
ksd 2.00000
kpd 2.00000
kdiff 2.00000
enscale 2.00000
ipeashift 1.78069
gam3s 1.00000
gam3p 0.50000
gam3d1 0.25000
gam3d2 0.25000
aesshift 1.20000
aesexp 4.00000
aesrmax 5.00000
alphaj 2.00000
a1 0.52000
a2 5.00000
s8 2.70000
s9 5.00000
aesdmp3 3.00000
aesdmp5 4.00000
kexp 1.50000
kexplight 1.00000
$end
$pairpar
$end
$Z= 1 Wed Apr 25 08:07:45 CEST 2018
ao=1s
lev= -10.707211
exp= 1.230000
GAM= 0.405771
GAM3= 0.800000
KCNS= -0.500000
DPOL= 5.563889
QPOL= 0.027431
REPA= 2.213717
REPB= 1.105388
POLYS= -0.953618
$end
$Z= 2 Mon Apr 23 20:44:39 CEST 2018
ao=1s2p
lev= -23.716445 -1.822307
exp= 1.669667 1.500000
GAM= 0.642029
GAM3= 2.000000
KCNS= 2.074275
DPOL= -1.000000
QPOL= -0.337528
REPA= 3.604670
REPB= 1.094283
POLYS= -4.386816
POLYP= 0.710647
$end
$Z= 3 Mon Apr 23 18:49:03 CEST 2018
ao=2s2p
lev= -4.900000 -2.217789
exp= 0.750060 0.557848
GAM= 0.245006
GAM3= 1.303821
KCNS= 1.620836
KCNP= -0.623876
DPOL= -0.500000
QPOL= 0.020000
REPA= 0.475307
REPB= 1.289367
POLYS= -4.750398
POLYP= 20.424920
LPARP= 1.972612
$end
$Z= 4 Mon Apr 23 20:04:44 CEST 2018
ao=2s2p
lev= -7.743081 -3.133433
exp= 1.034720 0.949332
GAM= 0.684789
GAM3= 0.574239
KCNS= 1.187759
KCNP= 0.550528
DPOL= -0.613341
QPOL= -0.058586
REPA= 0.939696
REPB= 4.221216
POLYS= -7.910394
POLYP= -0.476438
LPARP= 9.658467
$end
$Z= 5 Mon Apr 23 23:47:44 CEST 2018
ao=2s2p
lev= -9.224376 -7.419002
exp= 1.479444 1.479805
GAM= 0.513556
GAM3= 0.946104
KCNS= 0.120462
KCNP= -0.141086
DPOL= -0.481186
QPOL= -0.058228
REPA= 1.373856
REPB= 7.192431
POLYS= -5.183150
POLYP= -2.453322
LPARP= 3.994080
$end
$Z= 6 Wed Apr 25 08:07:45 CEST 2018
ao=2s2p
lev= -13.970922 -10.063292
exp= 2.096432 1.800000
GAM= 0.538015
GAM3= 1.500000
KCNS= -0.102144
KCNP= 0.161657
DPOL= -0.411674
QPOL= 0.213583
REPA= 1.247655
REPB= 4.231078
POLYS= -2.294321
POLYP= -0.271102
LPARP= 1.056358
$end
$Z= 7 Wed Apr 25 08:07:45 CEST 2018
ao=2s2p
lev= -16.686243 -12.523956
exp= 2.339881 2.014332
GAM= 0.461493
GAM3= -0.639780
KCNS= -1.955336
KCNP= 0.561076
DPOL= 3.521273
QPOL= 2.026786
REPA= 1.682689
REPB= 5.242592
POLYS= -8.506003
POLYP= -2.504201
LPARP= 1.164892
$end
$Z= 8 Wed Apr 25 08:07:45 CEST 2018
ao=2s2p
lev= -20.229985 -15.503117
exp= 2.439742 2.137023
GAM= 0.451896
GAM3= -0.517134
KCNS= 0.117826
KCNP= -0.145102
DPOL= -4.935670
QPOL= -0.310828
REPA= 2.165712
REPB= 5.784415
POLYS= -14.955291
POLYP= -3.350819
LPARP= 1.497020
$end
$Z= 9 Mon Apr 23 13:58:50 CEST 2018
ao=2s2p
lev= -23.458179 -15.746583
exp= 2.416361 2.308399
GAM= 0.531518
GAM3= 1.426212
KCNS= 0.394362
KCNP= -0.538373
DPOL= -8.339183
QPOL= -0.245955
REPA= 2.421394
REPB= 7.021486
POLYS= -13.011924
POLYP= -12.300828
LPARP= 1.677376
$end
$Z=10 Tue Apr 24 08:45:44 CEST 2018
ao=2s2p3d
lev= -24.500000 -18.737298 -5.517827
exp= 3.084104 2.312051 2.815609
GAM= 0.850000
GAM3= 0.500000
KCNS= -0.014933
KCNP= 0.232093
KCND= 1.096714
DPOL= 10.000000
QPOL= -0.500000
REPA= 3.318479
REPB= 11.041068
POLYS= -16.377759
POLYP= -4.860545
POLYD= -16.922333
LPARP= 1.190576
LPARD= -3.200000
$end
$Z=11 Tue Apr 24 16:34:09 CEST 2018
ao=3s3p
lev= -4.546934 -1.332719
exp= 0.763787 0.573553
GAM= 0.271056
GAM3= 1.798727
KCNS= -0.042211
KCNP= -0.144323
DPOL= 0.000000
QPOL= 0.020000
REPA= 0.572728
REPB= 5.244917
POLYS= -4.033495
POLYP= 20.873908
LPARP= 1.018894
$end
$Z=12 Tue Apr 24 15:04:41 CEST 2018
ao=3s3p3d
lev= -6.339908 -0.697688 -1.458197
exp= 1.184203 0.717769 1.300000
GAM= 0.344822
GAM3= 2.349164
KCNS= 1.164444
KCNP= -0.079924
KCND= 1.192409
DPOL= -0.082005
QPOL= -0.005516
REPA= 0.917975
REPB= 18.083164
POLYS= -11.167374
POLYP= 39.076962
POLYD= 12.691061
LPARP= 14.000000
LPARD= -0.500000
$end
$Z=13 Tue Apr 24 12:58:17 CEST 2018
ao=3s3p3d
lev= -9.329017 -5.927846 -3.042325
exp= 1.352531 1.391201 1.000000
GAM= 0.364801
GAM3= 1.400000
KCNS= 0.715422
KCNP= -0.244485
KCND= 0.406173
DPOL= 2.633341
QPOL= -0.021887
REPA= 0.876623
REPB= 17.867328
POLYS= -10.678141
POLYP= -12.442837
POLYD= 16.311089
LPARP= -0.603699
LPARD= 2.000000
$end
$Z=14 Tue Apr 24 12:33:07 CEST 2018
ao=3s3p3d
lev= -14.360932 -6.915131 -1.825036
exp= 1.773917 1.718996 1.250000
GAM= 0.720000
GAM3= 1.936289
KCNS= 1.858479
KCNP= -1.383073
KCND= -1.935494
DPOL= -0.025750
QPOL= -0.080000
REPA= 1.187323
REPB= 40.001111
POLYS= 2.358522
POLYP= -7.900406
POLYD= 11.366185
LPARP= -5.580042
LPARD= -2.300000
$end
$Z=15 Mon Apr 23 19:31:07 CEST 2018
ao=3s3p3d
lev= -17.518756 -9.842286 -0.444893
exp= 1.816945 1.903247 1.167533
GAM= 0.297739
GAM3= 0.711291
KCNS= 0.547610
KCNP= -0.489930
KCND= 2.429507
DPOL= 2.110225
QPOL= 0.028679
REPA= 1.143343
REPB= 19.683502
POLYS= -19.831771
POLYP= -5.515577
POLYD= 26.397535
LPARP= -1.558060
LPARD= -3.500000
$end
$Z=16 Tue Apr 24 11:44:34 CEST 2018
ao=3s3p3d
lev= -20.029654 -11.377694 -0.420282
exp= 1.981333 2.025643 1.702555
GAM= 0.339971
GAM3= -0.501722
KCNS= -0.256951
KCNP= -0.098465
KCND= 2.007690
DPOL= -0.151117
QPOL= 0.442859
REPA= 1.214553
REPB= 14.995090
POLYS= -25.855520
POLYP= -8.048064
POLYD= 25.993857
LPARP= -1.085866
LPARD= -2.500000
$end
$Z=17 Mon Apr 23 14:09:22 CEST 2018
ao=3s3p3d
lev= -29.278781 -12.673758 -0.240338
exp= 2.485265 2.199650 2.476089
GAM= 0.248514
GAM3= 1.495483
KCNS= 0.617972
KCNP= -0.181618
KCND= 1.672768
DPOL= -2.536958
QPOL= 0.122783
REPA= 1.577144
REPB= 17.353134
POLYS= -16.562004
POLYP= -6.986430
POLYD= 38.045622
LPARP= 4.989400
LPARD= 5.000000
$end
$Z=18 Mon Apr 23 21:35:52 CEST 2018
ao=3s3p3d
lev= -16.487730 -13.910539 -1.167213
exp= 2.329679 2.149419 1.950531
GAM= 0.502376
GAM3= -0.315455
KCNS= 0.000554
KCNP= 0.065921
KCND= -2.732165
DPOL= -2.077329
QPOL= -1.083404
REPA= 0.896198
REPB= 7.266606
POLYS= -23.893924
POLYP= -3.727322
POLYD= 26.812872
LPARP= -0.461133
LPARD= -0.100000
$end
$Z=19 Sat Apr 14 20:36:24 CEST 2018
ao=4s4p
lev= -4.510348 -0.934377
exp= 0.875961 0.631694
GAM= 0.247602
GAM3= 2.033085
KCNS= -0.339245
KCNP= 0.174542
DPOL= -0.103383
QPOL= 0.025000
REPA= 0.482206
REPB= 10.439482
POLYS= -6.076060
POLYP= 21.187329
LPARP= 3.483655
$end
$Z=20 Wed Apr 25 09:52:15 CEST 2018
ao=4s4p3d
lev= -5.056506 -1.150304 -0.776883
exp= 1.267130 0.786247 1.380000
GAM= 0.320378
GAM3= 2.006898
KCNS= 0.570930
KCNP= -0.074926
KCND= 1.013752
DPOL= -0.236675
QPOL= 0.010000
REPA= 0.683051
REPB= 14.786701
POLYS= -9.718719
POLYP= 31.973372
POLYD= 9.528649
LPARP= 15.000000
LPARD= -2.500000
$end
$Z=21 Thu Apr 26 12:35:08 CEST 2018
ao=3d4s4p
lev= -5.196187 -8.877940 -2.008206
exp= 2.440000 1.358701 1.019252
GAM= 0.472633
GAM3= 0.500000
KCNS= 0.991293
KCNP= -0.281241
KCND= 2.026777
DPOL= -0.515177
QPOL= -0.042004
REPA= 0.574299
REPB= 8.004267
POLYS= 0.686569
POLYP= 38.044933
POLYD= -34.502301
LPARP= -0.800000
LPARD= -2.046716
$end
$Z=22 Thu Apr 26 11:10:49 CEST 2018
ao=3d4s4p
lev= -7.234331 -10.900000 -1.928783
exp= 1.849994 1.469983 0.957410
GAM= 0.513586
GAM3= 1.767268
KCNS= 1.007021
KCNP= -0.237074
KCND= 1.028188
DPOL= -0.434506
QPOL= 0.059660
REPA= 0.723104
REPB= 12.036336
POLYS= 4.561234
POLYP= 51.801626
POLYD= -27.724389
LPARP= -3.800000
LPARD= -4.921114
$end
$Z=23 Thu Apr 26 09:20:35 CEST 2018
ao=3d4s4p
lev= -9.015342 -9.573347 -0.706647
exp= 1.673577 1.383176 0.938025
GAM= 0.589187
GAM3= 0.900000
KCNS= 0.235696
KCNP= -0.108232
KCND= 0.164476
DPOL= -0.350000
QPOL= 0.009764
REPA= 0.928532
REPB= 15.677873
POLYS= 9.702482
POLYP= 51.178301
POLYD= -29.827563
LPARP= -4.500000
LPARD= -0.379088
$end
$Z=24 Thu Apr 26 07:32:39 CEST 2018
ao=3d4s4p
lev= -7.209794 -9.201304 -0.696957
exp= 1.568211 1.395427 1.080270
GAM= 0.396299
GAM3= 0.300000
KCNS= -0.232087
KCNP= -0.188919
KCND= 0.289291
DPOL= 0.149669
QPOL= 0.137744
REPA= 0.966993
REPB= 19.517914
POLYS= 13.376234
POLYP= 48.092152
POLYD= -27.971622
LPARP= -4.700000
LPARD= 7.405872
$end
$Z=25 Wed Apr 25 23:08:46 CEST 2018
ao=3d4s4p
lev= -10.120933 -5.617346 -4.198724
exp= 1.839250 1.222190 1.240215
GAM= 0.346651
GAM3= 0.600000
KCNS= -0.275000
KCNP= -0.015839
KCND= -0.195827
DPOL= -0.759168
QPOL= 0.229903
REPA= 1.071100
REPB= 18.760605
POLYS= 28.519691
POLYP= 26.346555
POLYD= -31.255885
LPARP= -6.000000
LPARD= 0.545811
$end
$Z=26 Wed Apr 25 21:55:30 CEST 2018
ao=3d4s4p
lev= -10.035473 -5.402911 -3.308988
exp= 1.911049 1.022393 1.294467
GAM= 0.271594
GAM3= -0.500000
KCNS= -4.049876
KCNP= -0.756480
KCND= -0.274654
DPOL= 0.412929
QPOL= 0.267734
REPA= 1.113422
REPB= 20.360089
POLYS= 11.527794
POLYP= 39.459890
POLYD= -28.614961
LPARP= -6.500000
LPARD= 4.046615
$end
$Z=27 Wed Apr 25 21:35:20 CEST 2018
ao=3d4s4p
lev= -10.580430 -8.596723 -2.585753
exp= 2.326507 1.464221 1.298678
GAM= 0.477760
GAM3= 0.300000
KCNS= -0.227872
KCNP= 0.076513
KCND= 0.121980
DPOL= -0.247938
QPOL= 0.048237
REPA= 1.241717
REPB= 27.127744
POLYS= 9.168460
POLYP= 25.424719
POLYD= -22.355636
LPARP= -6.500000
LPARD= -2.418493
$end
$Z=28 Wed Apr 25 15:44:57 CEST 2018
ao=3d4s4p
lev= -12.712236 -8.524281 -2.878873
exp= 2.430756 1.469945 1.317046
GAM= 0.344970
GAM3= -0.200000
KCNS= 0.310301
KCNP= 0.226796
KCND= -0.066417
DPOL= -1.261887
QPOL= -0.080000
REPA= 1.077516
REPB= 10.533269
POLYS= 20.839550
POLYP= 30.886445
POLYD= -25.385640
LPARP= -6.000000
LPARD= -0.611188
$end
$Z=29 Wed Apr 25 14:32:53 CEST 2018
ao=3d4s4p
lev= -9.506548 -6.922958 -2.267723
exp= 2.375425 1.550837 1.984703
GAM= 0.202969
GAM3= 0.500000
KCNS= 3.349047
KCNP= -2.619446
KCND= -0.173684
DPOL= -0.700000
QPOL= -0.345631
REPA= 0.998768
REPB= 9.913846
POLYS= 17.798264
POLYP= 14.977818
POLYD= -26.508943
LPARP= 0.700000
LPARD= 13.333066
$end
$Z=30 Wed Apr 25 13:34:15 CEST 2018
ao=4s4p
lev= -7.177294 -0.991895
exp= 1.664847 1.176434
GAM= 0.564152
GAM3= 2.312896
KCNS= 2.011910
KCNP= -0.055135
DPOL= -0.100000
QPOL= 0.007658
REPA= 1.160262
REPB= 22.099503
POLYS= -9.240315
POLYP= 22.271839
LPARP= 0.684343
$end
$Z=31 Wed Apr 25 08:21:38 CEST 2018
ao=4s4p4d
lev= -12.449656 -4.469873 -0.582255
exp= 1.720919 1.591570 1.050000
GAM= 0.432236
GAM3= 2.334269
KCNS= -0.234627
KCNP= 1.305831
KCND= 0.165604
DPOL= 0.267219
QPOL= -0.003616
REPA= 1.122923
REPB= 31.146750
POLYS= -19.018211
POLYP= -1.137790
POLYD= 35.401863
LPARP= -5.416555
LPARD= -3.000000
$end
$Z=32 Tue Apr 24 21:32:01 CEST 2018
ao=4s4p4d
lev= -16.369792 -8.207673 -0.994226
exp= 1.990429 1.830340 1.100000
GAM= 0.802051
GAM3= -0.064775
KCNS= 0.361068
KCNP= -0.014474
KCND= -1.042559
DPOL= 0.108460
QPOL= -0.003589
REPA= 1.222349
REPB= 42.100144
POLYS= -21.333673
POLYP= -9.749043
POLYD= 28.634699
LPARP= -3.809089
LPARD= -1.500000
$end
$Z=33 Tue Apr 24 11:01:51 CEST 2018
ao=4s4p4d
lev= -16.421504 -9.311147 -0.276830
exp= 2.026128 1.949257 1.040181
GAM= 0.571748
GAM3= 1.106041
KCNS= -0.129640
KCNP= -0.236470
KCND= 2.330144
DPOL= -0.201294
QPOL= 0.014149
REPA= 1.249372
REPB= 39.147587
POLYS= -23.820664
POLYP= -10.644177
POLYD= 30.711130
LPARP= -4.104743
LPARD= -5.000000
$end
$Z=34 Tue Jun 26 11:49:08 CEST 2018
ao=4s4p4d
lev= -20.584732 -10.910799 -0.110636
exp= 2.230969 2.150656 1.317549
GAM= 0.235052
GAM3= 0.913725
KCNS= -0.061654
KCNP= -0.435018
KCND= 2.768559
DPOL= -0.288648
QPOL= 0.085728
REPA= 1.230284
REPB= 27.426779
POLYS= -24.506414
POLYP= -13.765750
POLYD= 29.611132
LPARP= 1.192113
LPARD= -2.500000
$end
$Z=35 Tue Apr 24 12:21:41 CEST 2018
ao=4s4p4d
lev= -23.583718 -12.588824 0.047980
exp= 2.077587 2.263120 1.845038
GAM= 0.261253
GAM3= 1.300000
KCNS= 0.006150
KCNP= -0.058347
KCND= 2.250180
DPOL= -1.088586
QPOL= 0.216935
REPA= 1.296174
REPB= 32.845361
POLYS= -25.005079
POLYP= -14.520078
POLYD= 36.614038
LPARP= 5.203002
LPARD= 4.000000
$end
$Z=36 Mon Apr 23 22:09:45 CEST 2018
ao=4s4p4d
lev= -17.221422 -13.633377 -0.940657
exp= 2.445680 2.210494 1.884991
GAM= 0.424373
GAM3= 0.239815
KCNS= -0.070305
KCNP= 0.076023
KCND= 0.349523
DPOL= -0.889357
QPOL= -0.415024
REPA= 0.908074
REPB= 17.363803
POLYS= -32.658744
POLYP= -13.600093
POLYD= 23.204749
LPARP= -2.503223
LPARD= -0.700000
$end
$Z=37 Sat Apr 14 20:41:25 CEST 2018
ao=5s5p
lev= -4.353793 -1.392938
exp= 1.017267 0.870130
GAM= 0.210481
GAM3= 2.916203
KCNS= -1.516926
KCNP= 0.203437
DPOL= -0.093328
QPOL= 0.015000
REPA= 0.574054
REPB= 44.338211
POLYS= 4.325404
POLYP= 23.255114
LPARP= 9.386493
$end
$Z=38 Wed Apr 25 10:52:06 CEST 2018
ao=5s5p4d
lev= -6.291692 -1.872475 -0.890492
exp= 1.419028 0.928932 1.500000
GAM= 0.340000
GAM3= 1.800000
KCNS= 0.409020
KCNP= -0.418725
KCND= 0.401255
DPOL= -0.459925
QPOL= 0.015000
REPA= 0.697345
REPB= 34.365525
POLYS= -14.506782
POLYP= 20.213982
POLYD= 10.816244
LPARP= 15.000000
LPARD= -2.500000
$end
$Z=39 Thu Apr 26 13:17:08 CEST 2018
ao=4d5s5p
lev= -8.015206 -12.194181 -0.966195
exp= 2.670141 1.633876 1.165412
GAM= 0.711958
GAM3= 0.100000
KCNS= 1.937516
KCNP= -0.641897
KCND= -1.270337
DPOL= -0.637291
QPOL= 0.010460
REPA= 0.706172
REPB= 17.326237
POLYS= -2.125866
POLYP= 52.161869
POLYD= -39.529477
LPARP= -4.500000
LPARD= -3.349288
$end
$Z=40 Thu Apr 26 11:38:52 CEST 2018
ao=4d5s5p
lev= -7.409832 -10.199105 -1.066939
exp= 2.238668 1.702480 1.129590
GAM= 0.461440
GAM3= 0.700000
KCNS= 1.266548
KCNP= 0.279435
KCND= -0.566943
DPOL= -0.599615
QPOL= -0.012944
REPA= 0.681106
REPB= 24.263093
POLYS= 7.538902
POLYP= 58.914069
POLYD= -28.358876
LPARP= -1.100000
LPARD= -4.422630
$end
$Z=41 Thu Apr 26 10:08:21 CEST 2018
ao=4d5s5p
lev= -8.440821 -11.384021 -0.103760
exp= 1.706832 1.666463 1.132172
GAM= 0.952957
GAM3= 0.500000
KCNS= 2.555962
KCNP= -0.002341
KCND= -1.356485
DPOL= -0.288729
QPOL= 0.041491
REPA= 0.865552
REPB= 30.562732
POLYS= -5.141080
POLYP= 55.654247
POLYD= -27.963746
LPARP= -0.500000
LPARD= -3.562950
$end
$Z=42 Thu Apr 26 14:26:12 CEST 2018
ao=4d5s5p
lev= -7.995133 -7.336245 -3.686225
exp= 1.777658 1.639917 1.159781
GAM= 0.586134
GAM3= 0.919928
KCNS= 3.008411
KCNP= -1.040348
KCND= 0.620172
DPOL= 0.346327
QPOL= 0.312549
REPA= 1.034519
REPB= 48.312796
POLYS= -0.583137
POLYP= 29.199580
POLYD= -22.573688
LPARP= -3.000000
LPARD= -4.301371
$end
$Z=43 Thu Apr 26 07:02:10 CEST 2018
ao=4d5s5p
lev= -9.587897 -6.792444 -3.325525
exp= 1.918066 1.918167 1.346082
GAM= 0.368054
GAM3= 0.600000
KCNS= -0.586205
KCNP= -0.087319
KCND= -0.066526
DPOL= -0.458416
QPOL= 0.155242
REPA= 1.019565
REPB= 44.779882
POLYS= 36.096045
POLYP= 25.095742
POLYD= -27.342552
LPARP= -6.000000
LPARD= 3.956819
$end
$Z=44 Wed Apr 25 22:11:15 CEST 2018
ao=4d5s5p
lev= -10.285405 -5.332608 -3.307153
exp= 2.102697 1.749643 1.348322
GAM= 0.711205
GAM3= -0.500000
KCNS= 4.471162
KCNP= -0.034723
KCND= -0.263914
DPOL= -0.081922
QPOL= 0.359228
REPA= 1.031669
REPB= 28.070247
POLYS= 10.106270
POLYP= 34.028722
POLYD= -27.583213
LPARP= -6.500000
LPARD= -3.052305
$end
$Z=45 Wed Apr 25 17:50:00 CEST 2018
ao=4d5s5p
lev= -11.756644 -7.850495 -3.007906
exp= 2.458187 1.811796 1.398452
GAM= 0.509183
GAM3= 0.300000
KCNS= 0.066741
KCNP= -0.213308
KCND= 0.104368
DPOL= 0.007016
QPOL= 0.008570
REPA= 1.094599
REPB= 38.035941
POLYS= 15.413317
POLYP= 31.070684
POLYD= -19.656064
LPARP= -6.500000
LPARD= -1.881774
$end
$Z=46 Wed Apr 25 16:26:58 CEST 2018
ao=4d5s5p
lev= -11.963518 -9.714059 -2.035281
exp= 2.353691 1.828354 1.333352
GAM= 0.273310
GAM3= 0.800000
KCNS= 0.266820
KCNP= 0.503075
KCND= 0.060285
DPOL= -0.310361
QPOL= -0.040485
REPA= 1.092745
REPB= 28.674700
POLYS= 6.200145
POLYP= 45.341322
POLYD= -27.173113
LPARP= -6.000000
LPARD= 0.931707
$end
$Z=47 Wed Apr 25 14:58:12 CEST 2018
ao=4d5s5p
lev= -9.591083 -8.083960 -2.934333
exp= 2.843549 1.798462 1.266649
GAM= 0.263740
GAM3= 0.200000
KCNS= -0.065794
KCNP= 1.677171
KCND= -0.062719
DPOL= -0.800314
QPOL= -0.020810
REPA= 0.678344
REPB= 6.493286
POLYS= 1.091490
POLYP= 11.561444
POLYD= -16.490742
LPARP= -0.300000
LPARD= 8.024848
$end
$Z=48 Wed Apr 25 13:51:20 CEST 2018
ao=5s5p
lev= -7.252341 -0.744865
exp= 1.846689 1.141823
GAM= 0.392012
GAM3= 2.073217
KCNS= 1.418145
KCNP= -0.309814
DPOL= -0.105364
QPOL= 0.012250
REPA= 0.936236
REPB= 26.226628
POLYS= -6.076865
POLYP= 37.671924
LPARP= 2.388669
$end
$Z=49 Wed Apr 25 09:10:13 CEST 2018
ao=5s5p5d
lev= -13.040909 -4.507143 -0.805666
exp= 1.963283 1.685138 1.050000
GAM= 0.461812
GAM3= 1.900000
KCNS= -0.098312
KCNP= 0.994688
KCND= 0.168649
DPOL= 0.951079
QPOL= -0.002031
REPA= 1.024007
REPB= 63.854240
POLYS= -21.938535
POLYP= -1.949646
POLYD= 31.354500
LPARP= -5.867460
LPARD= -2.800000
$end
$Z=50 Tue Apr 24 23:22:40 CEST 2018
ao=5s5p5d
lev= -19.970428 -7.367059 -2.077548
exp= 2.551510 1.893784 1.100000
GAM= 0.900000
GAM3= -0.178396
KCNS= -0.454629
KCNP= -0.320651
KCND= -1.459407
DPOL= 0.085029
QPOL= -0.008243
REPA= 1.139959
REPB= 80.053438
POLYS= -17.518223
POLYP= -7.802870
POLYD= 12.611148
LPARP= -5.090746
LPARD= -0.600000
$end
$Z=51 Tue Apr 24 17:15:55 CEST 2018
ao=5s5p5d
lev= -18.371244 -7.350148 0.909033
exp= 2.307407 2.179752 1.256087
GAM= 0.942294
GAM3= 1.100000
KCNS= -0.147626
KCNP= -0.091175
KCND= 1.602872
DPOL= -0.015519
QPOL= -0.020630
REPA= 1.122937
REPB= 77.057560
POLYS= -17.543533
POLYP= -12.494609
POLYD= 30.872654
LPARP= -6.278501
LPARD= -5.500000
$end
$Z=52 Tue Apr 24 09:22:30 CEST 2018
ao=5s5p5d
lev= -21.930653 -9.480374 0.978922
exp= 2.434144 2.182459 1.373076
GAM= 0.750000
GAM3= 0.953683
KCNS= 0.115389
KCNP= -0.082051
KCND= 3.013228
DPOL= -0.263414
QPOL= -0.026864
REPA= 1.000712
REPB= 48.614745
POLYS= -24.893875
POLYP= -11.231996
POLYD= 31.843215
LPARP= -1.555334
LPARD= 0.600000
$end
$Z=53 Fri Jul 13 08:21:10 CEST 2018
ao=5s5p5d
lev= -20.949407 -12.180159 -0.266596
exp= 2.159500 2.308379 1.691185
GAM= 0.383124
GAM3= 1.200000
KCNS= -0.506150
KCNP= 0.084766
KCND= 3.077127
DPOL= -0.603648
QPOL= 0.069660
REPA= 1.017946
REPB= 63.319176
POLYS= -26.957547
POLYP= -14.183312
POLYD= 28.211905
LPARP= -0.338735
LPARD= 3.000000
$end
$Z=54 Mon Apr 23 22:36:56 CEST 2018
ao=5s5p5d
lev= -19.090498 -11.249471 -0.497097
exp= 2.715140 2.312510 1.855707
GAM= 0.424164
GAM3= -0.118925
KCNS= -0.020195
KCNP= 0.017246
KCND= 0.327039
DPOL= -0.214447
QPOL= -0.156200
REPA= 1.012036
REPB= 51.188398
POLYS= -31.096492
POLYP= -16.197851
POLYD= 19.048983
LPARP= -2.302667
LPARD= -2.300000
$end
$Z=55 Sat Apr 7 18:50:25 CEST 2018
ao=6s6p
lev= -4.041706 -1.394193
exp= 1.225688 0.823818
GAM= 0.236569
GAM3= 2.404185
KCNS= -1.312604
KCNP= -0.100000
DPOL= -0.080000
QPOL= 0.008000
REPA= 0.585257
REPB= 67.249039
POLYS= -0.713637
POLYP= 20.636967
LPARP= 2.494305
$end
$Z=56 Wed Apr 18 09:11:51 CEST 2018
ao=6s6p5d
lev= -5.900000 -2.133395 -1.514900
exp= 1.528102 0.991572 1.500000
GAM= 0.245937
GAM3= 2.069097
KCNS= 0.352001
KCNP= -0.926576
KCND= 0.147995
DPOL= -0.260000
QPOL= 0.015000
REPA= 0.716259
REPB= 46.984607
POLYS= -14.036589
POLYP= 18.774072
POLYD= 11.389672
LPARP= 22.247532
LPARD= -2.300000
$end
$Z=57 Thu Apr 26 13:29:58 CEST 2018
ao=5d6s6p
lev= -8.958783 -11.877410 -0.601717
exp= 2.875048 1.731390 1.303590
GAM= 0.597716
GAM3= 0.012793
KCNS= 1.071684
KCNP= -0.239967
KCND= -0.777542
DPOL= -0.395198
QPOL= -0.030000
REPA= 0.737643
REPB= 50.927529
POLYS= -6.732008
POLYP= 54.136379
POLYD= -37.820063
LPARP= -3.000000
LPARD= -4.699666
$end
$Z=58 Thu Apr 26 13:56:00 CEST 2018
ao=5d6s6p
lev= -7.381991 -8.537781 -3.017508
exp= 2.870000 1.725197 1.309804
GAM= 0.662889
GAM3= -0.100000
KCNS= 1.335148
KCNP= -0.198320
KCND= -0.638958
DPOL= -0.723806
QPOL= -0.025000
REPA= 0.729950
REPB= 48.676714
POLYS= -6.107742
POLYP= 37.663425
POLYD= -41.989203
LPARP= -3.000000
LPARD= -5.539659
$end
$Z=59 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -7.280875 -8.504806 -2.873159
exp= 2.872308 1.729767 1.315495
GAM= 0.660710
GAM3= -0.100002
KCNS= 1.349441
KCNP= -0.198184
KCND= -0.543909
DPOL= -0.704819
QPOL= -0.024615
REPA= 0.734624
REPB= 47.669448
POLYS= -6.040165
POLYP= 38.194756
POLYD= -41.286513
LPARP= -2.769230
LPARD= -5.462784
$end
$Z=60 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -7.179760 -8.471830 -2.728809
exp= 2.874615 1.734337 1.321186
GAM= 0.658531
GAM3= -0.100004
KCNS= 1.363734
KCNP= -0.198048
KCND= -0.448861
DPOL= -0.685832
QPOL= -0.024231
REPA= 0.739299
REPB= 46.662183
POLYS= -5.972588
POLYP= 38.726087
POLYD= -40.583824
LPARP= -2.538460
LPARD= -5.385909
$end
$Z=61 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -7.078644 -8.438855 -2.584460
exp= 2.876923 1.738907 1.326877
GAM= 0.656352
GAM3= -0.100006
KCNS= 1.378028
KCNP= -0.197912
KCND= -0.353812
DPOL= -0.666845
QPOL= -0.023846
REPA= 0.743973
REPB= 45.654917
POLYS= -5.905010
POLYP= 39.257419
POLYD= -39.881134
LPARP= -2.307691
LPARD= -5.309034
$end
$Z=62 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -6.977529 -8.405879 -2.440110
exp= 2.879231 1.743478 1.332567
GAM= 0.654173
GAM3= -0.100008
KCNS= 1.392321
KCNP= -0.197776
KCND= -0.258764
DPOL= -0.647858
QPOL= -0.023462
REPA= 0.748648
REPB= 44.647651
POLYS= -5.837433
POLYP= 39.788750
POLYD= -39.178445
LPARP= -2.076921
LPARD= -5.232158
$end
$Z=63 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -6.876413 -8.372904 -2.295761
exp= 2.881538 1.748048 1.338258
GAM= 0.651994
GAM3= -0.100010
KCNS= 1.406614
KCNP= -0.197640
KCND= -0.163715
DPOL= -0.628871
QPOL= -0.023077
REPA= 0.753322
REPB= 43.640385
POLYS= -5.769856
POLYP= 40.320081
POLYD= -38.475755
LPARP= -1.846151
LPARD= -5.155283
$end
$Z=64 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -6.775298 -8.339929 -2.151411
exp= 2.883846 1.752618 1.343949
GAM= 0.649815
GAM3= -0.100012
KCNS= 1.420907
KCNP= -0.197504
KCND= -0.068667
DPOL= -0.609884
QPOL= -0.022692
REPA= 0.757996
REPB= 42.633120
POLYS= -5.702279
POLYP= 40.851412
POLYD= -37.773066
LPARP= -1.615381
LPARD= -5.078408
$end
$Z=65 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -6.674182 -8.306953 -2.007062
exp= 2.886154 1.757188 1.349640
GAM= 0.647635
GAM3= -0.100013
KCNS= 1.435200
KCNP= -0.197369
KCND= 0.026382
DPOL= -0.590897
QPOL= -0.022308
REPA= 0.762671
REPB= 41.625854
POLYS= -5.634701
POLYP= 41.382743
POLYD= -37.070376
LPARP= -1.384612
LPARD= -5.001533
$end
$Z=66 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -6.573067 -8.273978 -1.862712
exp= 2.888462 1.761758 1.355331
GAM= 0.645456
GAM3= -0.100015
KCNS= 1.449494
KCNP= -0.197233
KCND= 0.121430
DPOL= -0.571910
QPOL= -0.021923
REPA= 0.767345
REPB= 40.618588
POLYS= -5.567124
POLYP= 41.914074
POLYD= -36.367686
LPARP= -1.153842
LPARD= -4.924658
$end
$Z=67 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -6.471951 -8.241003 -1.718363
exp= 2.890769 1.766328 1.361022
GAM= 0.643277
GAM3= -0.100017
KCNS= 1.463787
KCNP= -0.197097
KCND= 0.216479
DPOL= -0.552923
QPOL= -0.021538
REPA= 0.772020
REPB= 39.611322
POLYS= -5.499547
POLYP= 42.445406
POLYD= -35.664997
LPARP= -0.923072
LPARD= -4.847782
$end
$Z=68 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -6.370836 -8.208027 -1.574013
exp= 2.893077 1.770899 1.366713
GAM= 0.641098
GAM3= -0.100019
KCNS= 1.478080
KCNP= -0.196961
KCND= 0.311527
DPOL= -0.533936
QPOL= -0.021154
REPA= 0.776694
REPB= 38.604057
POLYS= -5.431970
POLYP= 42.976737
POLYD= -34.962307
LPARP= -0.692302
LPARD= -4.770907
$end
$Z=69 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -6.269720 -8.175052 -1.429664
exp= 2.895385 1.775469 1.372403
GAM= 0.638919
GAM3= -0.100021
KCNS= 1.492373
KCNP= -0.196825
KCND= 0.406576
DPOL= -0.514949
QPOL= -0.020769
REPA= 0.781368
REPB= 37.596791
POLYS= -5.364392
POLYP= 43.508068
POLYD= -34.259618
LPARP= -0.461533
LPARD= -4.694032
$end
$Z=70 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -6.168604 -8.142076 -1.285314
exp= 2.897692 1.780039 1.378094
GAM= 0.636740
GAM3= -0.100023
KCNS= 1.506666
KCNP= -0.196689
KCND= 0.501624
DPOL= -0.495961
QPOL= -0.020385
REPA= 0.786043
REPB= 36.589525
POLYS= -5.296815
POLYP= 44.039399
POLYD= -33.556928
LPARP= -0.230763
LPARD= -4.617157
$end
$Z=71 Thu Apr 26 13:56:00 CEST 2018
ao=5d6s6p
lev= -6.067489 -8.109101 -1.140965
exp= 2.900000 1.784609 1.383785
GAM= 0.634561
GAM3= -0.100025
KCNS= 1.520959
KCNP= -0.196553
KCND= 0.596673
DPOL= -0.476974
QPOL= -0.020000
REPA= 0.790717
REPB= 35.582259
POLYS= -5.229238
POLYP= 44.570730
POLYD= -32.854239
LPARP= 0.000007
LPARD= -4.540282
$end
$Z=72 Thu Apr 26 12:02:36 CEST 2018
ao=5d6s6p
lev= -7.181755 -10.626891 -1.603430
exp= 2.638729 2.194333 1.427467
GAM= 0.662597
GAM3= -0.100000
KCNS= 2.271496
KCNP= -0.069771
KCND= 0.176550
DPOL= -0.537685
QPOL= -0.016478
REPA= 0.852852
REPB= 40.186772
POLYS= -2.731930
POLYP= 33.515028
POLYD= -34.095699
LPARP= 1.000000
LPARD= -4.486165
$end
$Z=73 Thu Apr 26 10:36:29 CEST 2018
ao=5d6s6p
lev= -8.481353 -13.073088 0.655254
exp= 2.018969 1.996498 1.407714
GAM= 0.449812
GAM3= 0.200000
KCNS= 0.988501
KCNP= -0.472540
KCND= -0.620136
DPOL= -0.200343
QPOL= 0.039599
REPA= 0.990234
REPB= 54.666156
POLYS= -15.707734
POLYP= 60.186026
POLYD= -30.396333
LPARP= 0.500000
LPARD= -3.394380
$end
$Z=74 Thu Apr 26 09:27:50 CEST 2018
ao=5d6s6p
lev= -9.501505 -11.093016 -1.420389
exp= 2.155885 1.892022 1.458186
GAM= 0.685426
GAM3= -0.200000
KCNS= 2.543639
KCNP= 0.236479
KCND= -0.192494
DPOL= 0.065886
QPOL= 1.063309
REPA= 1.018805
REPB= 55.899801
POLYS= 6.208982
POLYP= 49.273770
POLYD= -25.677080
LPARP= 3.700000
LPARD= -3.419199
$end
$Z=75 Thu Apr 26 07:19:11 CEST 2018
ao=5d6s6p
lev= -11.189119 -12.685198 -3.851981
exp= 2.262783 2.187549 1.636996
GAM= 0.224623
GAM3= 0.800000
KCNS= 1.117569
KCNP= -1.335155
KCND= -0.322139
DPOL= -0.587636
QPOL= 0.306870
REPA= 1.170412
REPB= 80.410086
POLYS= 13.890139
POLYP= 33.973283
POLYD= -31.723059
LPARP= -6.000000
LPARD= 6.586864
$end
$Z=76 Wed Apr 25 21:22:36 CEST 2018
ao=5d6s6p
lev= -10.382841 -8.731460 -3.546379
exp= 2.509631 2.173991 1.597888
GAM= 0.364388
GAM3= 0.800000
KCNS= 0.346183
KCNP= -0.208758
KCND= -0.095346
DPOL= -0.510090
QPOL= 0.759049
REPA= 1.221937
REPB= 62.809871
POLYS= 21.316847
POLYP= 28.097231
POLYD= -28.461111
LPARP= -6.500000
LPARD= 1.350223
$end
$Z=77 Wed Apr 25 18:14:24 CEST 2018
ao=5d6s6p
lev= -11.018475 -9.349164 -3.603762
exp= 2.756134 2.117548 1.680343
GAM= 0.548507
GAM3= -0.100000
KCNS= -0.123672
KCNP= -0.079864
KCND= 0.051977
DPOL= -0.673822
QPOL= 0.322935
REPA= 1.197148
REPB= 56.045639
POLYS= 20.733836
POLYP= 18.303210
POLYD= -24.693443
LPARP= -6.500000
LPARD= -0.977957
$end
$Z=78 Wed Apr 25 16:43:14 CEST 2018
ao=5d6s6p
lev= -12.047728 -10.482306 -3.778297
exp= 2.704492 2.329136 1.623286
GAM= 0.353574
GAM3= 0.600000
KCNS= 1.139530
KCNP= 1.408029
KCND= -0.204828
DPOL= -0.423684
QPOL= 0.098019
REPA= 1.204081
REPB= 53.881425
POLYS= 6.737556
POLYP= 19.259455
POLYD= -27.243898
LPARP= -6.000000
LPARD= -0.203212
$end
$Z=79 Wed Apr 25 15:17:49 CEST 2018
ao=5d6s6p
lev= -9.578599 -7.688552 0.883399
exp= 3.241287 2.183171 2.084484
GAM= 0.438997
GAM3= 0.850000
KCNS= 1.479337
KCNP= 1.048065
KCND= -0.154462
DPOL= 0.393418
QPOL= -0.020320
REPA= 0.919210
REPB= 14.711475
POLYS= 4.691539
POLYP= 25.250274
POLYD= -6.410815
LPARP= -6.000000
LPARD= 0.614126
$end
$Z=80 Wed Apr 25 13:58:40 CEST 2018
ao=6s6p
lev= -11.538066 -2.532581
exp= 2.244504 1.470848
GAM= 0.457611
GAM3= -0.116312
KCNS= -0.352252
KCNP= 0.205401
DPOL= -0.250000
QPOL= -0.032901
REPA= 1.137360
REPB= 51.577544
POLYS= -9.833449
POLYP= 15.628858
LPARP= -5.375121
$end
$Z=81 Wed Apr 25 09:35:49 CEST 2018
ao=6s6p
lev= -17.319333 -4.460584
exp= 2.294231 1.731592
GAM= 0.418841
GAM3= -0.533933
KCNS= -0.255975
KCNP= 0.901364
DPOL= 0.374018
QPOL= -0.008506
REPA= 1.399312
REPB= 58.801614
POLYS= -22.942207
POLYP= 13.109821
LPARP= -7.133401
$end
$Z=82 Wed Apr 25 07:59:05 CEST 2018
ao=6s6p
lev= -24.055207 -5.893816
exp= 2.960592 1.953130
GAM= 0.168152
GAM3= 0.200000
KCNS= -3.893459
KCNP= 3.437117
DPOL= 1.007016
QPOL= -0.001670
REPA= 1.179922
REPB= 102.368258
POLYS= -22.955084
POLYP= -8.805272
LPARP= 7.838251
$end
$Z=83 Wed Apr 25 08:41:08 CEST 2018
ao=6s6p
lev= -19.843840 -7.297456
exp= 2.788267 2.277039
GAM= 0.900000
GAM3= -0.337508
KCNS= 0.160425
KCNP= 0.248659
DPOL= -0.737252
QPOL= 0.162529
REPA= 1.130860
REPB= 132.896832
POLYS= -21.750059
POLYP= -10.773930
LPARP= -6.000000
$end
$Z=84 Tue Apr 24 09:33:09 CEST 2018
ao=6s6p
lev= -20.205380 -8.476927
exp= 3.314810 2.389456
GAM= 1.023267
GAM3= 1.877978
KCNS= -0.046813
KCNP= -0.100437
DPOL= -1.344854
QPOL= 0.013818
REPA= 0.957939
REPB= 52.301232
POLYS= -20.923290
POLYP= -18.426448
LPARP= -8.109155
$end
$Z=85 Tue Apr 24 08:13:06 CEST 2018
ao=6s6p5d
lev= -17.050229 -9.499822 -0.096063
exp= 2.220421 2.408112 1.500000
GAM= 0.288848
GAM3= 1.846485
KCNS= -0.287369
KCNP= -0.007993
KCND= 2.805808
DPOL= -0.348123
QPOL= 0.021624
REPA= 0.963878
REPB= 81.771063
POLYS= -30.549981
POLYP= -17.108490
POLYD= 23.824993
LPARP= -2.532073
LPARD= 2.500000
$end
$Z=86 Mon Apr 23 23:25:34 CEST 2018
ao=6s6p5d
lev= -21.000000 -10.496406 -1.415056
exp= 3.109394 2.541934 1.790000
GAM= 0.303400
GAM3= 0.097834
KCNS= -0.001712
KCNP= -0.005280
KCND= -3.206020
DPOL= -0.167597
QPOL= -0.111556
REPA= 0.965577
REPB= 128.133580
POLYS= -35.245372
POLYP= -11.989735
POLYD= 21.167024
LPARP= -0.302388
LPARD= -2.300000
$end
xtb-6.7.1/param_ipea-xtb.txt 0000664 0000000 0000000 00000066235 14650006642 0015773 0 ustar 00root root 0000000 0000000 $info
level 1
name IPEA-xTB
doi 10.1039/c7sc00601b
$globpar
ks 2.15000
kp 2.30000
kd 2.00000
ksp 2.25000
kdiff 2.25000
enscale -0.70000
ipeashift 1.78069
cns 1.00000
cnp -0.30000
cnd1 -0.50000
cnd2 0.50000
alphaj 1.00000
a1 0.63000
a2 5.00000
s8 2.40000
s9 0.00000
kexp 1.50000
kexplight 1.50000
xbdamp 0.44000
xbrad 1.30000
$end
$pairpar
$end
$Z= 1 Thu Sep 22 23:34:11 CEST 2016
ao=1s2s
lev= -10.521941 -3.560151
exp= 1.306199 0.398421
GAM= 0.404839
GAM3= 1.500000
REPA= 2.133166
REPB= 1.292559
$end
$Z= 2 Mon Aug 22 21:05:21 CEST 2016
ao=1s
lev= -22.121015
exp= 2.133698
GAM= 1.441379
GAM3= 1.500000
REPA= 1.382907
REPB= 0.440231
POLYS= 8.084149
$end
$Z= 3 Tue Apr 4 11:10:31 CEST 2017
ao=2s2p
lev= -6.778577 -3.316533
exp= 0.675700 0.643466
GAM= 0.196176
GAM3= 1.846487
REPA= 0.630666
REPB= 2.747587
POLYS= -13.007335
POLYP= 6.802043
LPARP= -2.241991
$end
$Z= 4 Fri Sep 23 11:17:08 CEST 2016
ao=2s2p
lev= -9.155548 -6.934385
exp= 0.976724 1.325974
GAM= 0.315230
GAM3= 1.500000
REPA= 0.830517
REPB= 4.557601
POLYS= -22.404993
POLYP= -6.611030
LPARP= -0.053663
$end
$Z= 5 Fri Sep 23 10:45:35 CEST 2016
ao=2s2p3S
lev= -12.479504 -7.044782 -4.032136
exp= 1.426737 1.472693 1.157688
GAM= 0.608113
GAM3= 0.500000
REPA= 1.066430
REPB= 5.255954
POLYS= -5.397599
POLYP= 14.708712
LPARP= -2.662342
$end
$Z= 6 Thu Sep 22 23:34:11 CEST 2016
ao=2s2p3S
lev= -15.968100 -9.777107 -3.366990
exp= 1.979793 1.850537 0.633095
GAM= 0.639692
GAM3= 1.500000
REPA= 1.206815
REPB= 4.427268
POLYS= -2.692247
POLYP= 8.177943
LPARP= -0.273283
$end
$Z= 7 Thu Sep 22 23:34:11 CEST 2016
ao=2s2p3S
lev= -24.040776 -14.426520 -5.882278
exp= 2.126160 2.068425 0.671040
GAM= 0.492599
GAM3= -1.000000
REPA= 1.622255
REPB= 5.500005
POLYS= -10.560649
POLYP= 0.940101
LPARP= 0.701245
$end
$Z= 8 Thu Sep 22 23:34:11 CEST 2016
ao=2s2p3S
lev= -26.695120 -16.014457 -6.622058
exp= 2.575264 2.159448 0.958679
GAM= 0.717333
GAM3= -2.000000
REPA= 2.002624
REPB= 5.178714
POLYS= -9.907396
POLYP= 3.920125
LPARP= -2.619316
$end
$Z= 9 Tue Jan 17 20:22:52 CET 2017
ao=2s2p3S
lev= -27.565998 -17.439238 -6.120500
exp= 2.304073 2.314354 0.570243
GAM= 0.574104
GAM3= 2.000000
REPA= 2.538852
REPB= 7.370899
POLYS= -11.637428
POLYP= -9.003663
LPARP= 0.808738
$end
$Z=10 Wed Aug 31 17:29:03 CEST 2016
ao=2s2p3d
lev= -31.167487 -18.268975 1.487984
exp= 3.200000 2.294365 2.684436
GAM= 0.612878
GAM3= 1.600000
REPA= 3.038727
REPB= 9.102523
POLYS= -2.115896
POLYP= -15.124326
LPARP= -3.892542
$end
$Z=11 Mon Aug 22 16:58:35 CEST 2016
ao=2s2p
lev= -5.425941 -2.970587
exp= 0.566702 0.391147
GAM= 0.146475
GAM3= 1.200000
REPA= 0.678744
REPB= 9.192606
POLYS= 7.549004
POLYP= 13.576090
LPARP= -4.545627
$end
$Z=12 Wed Aug 31 17:56:48 CEST 2016
ao=2s2p
lev= -10.585393 -2.983087
exp= 0.947394 0.538324
GAM= 0.332890
GAM3= 1.100000
REPA= 0.796201
REPB= 12.176772
POLYS= -18.095421
POLYP= 21.451533
LPARP= 1.823758
$end
$Z=13 Mon Aug 22 15:20:00 CEST 2016
ao=3s3p3d
lev= -12.916245 -3.441043 -1.751415
exp= 1.497753 1.232966 0.606937
GAM= 0.221658
GAM3= 1.200000
REPA= 0.929219
REPB= 16.283595
POLYS= -21.085827
POLYP= 24.805127
POLYD= 26.405814
LPARP= 0.503564
$end
$Z=14 Thu Aug 25 05:54:29 CEST 2016
ao=3s3p3d
lev= -14.506128 -7.557337 -2.508113
exp= 1.521960 1.609138 1.168971
GAM= 0.438331
GAM3= 1.500000
REPA= 0.948165
REPB= 16.898359
POLYS= -14.201582
POLYP= -3.893343
POLYD= 25.499221
LPARP= -5.925834
$end
$Z=15 Thu Jan 19 19:22:57 CET 2017
ao=3s3p3d
lev= -16.954206 -9.866726 -0.997152
exp= 2.002025 1.791833 1.327886
GAM= 0.637801
GAM3= 1.616190
REPA= 1.047895
REPB= 16.296596
POLYS= -20.056162
POLYP= -7.612324
POLYD= 27.896649
LPARP= -3.150116
$end
$Z=16 Tue Jan 17 20:57:36 CET 2017
ao=3s3p3d
lev= -24.488821 -12.136640 -1.796070
exp= 2.492075 1.997904 1.747541
GAM= 0.455078
GAM3= 1.020159
REPA= 1.170894
REPB= 15.831707
POLYS= -20.287694
POLYP= -7.124132
POLYD= 17.511019
LPARP= -1.956114
$end
$Z=17 Tue Jan 17 19:45:33 CET 2017
ao=3s3p3d
lev= -24.452163 -13.465451 -1.836065
exp= 2.559226 2.054846 1.762522
GAM= 0.559471
GAM3= 2.395510
REPA= 1.404155
REPB= 17.000000
POLYS= -9.341919
POLYP= -12.605796
POLYD= 14.905217
LPARP= -3.994898
$end
$Z=18 Wed Aug 31 18:08:34 CEST 2016
ao=3s3p3d
lev= -31.395427 -17.412901 -1.119399
exp= 3.502323 2.287983 1.761181
GAM= 0.529906
GAM3= 0.829312
REPA= 1.323756
REPB= 17.153132
POLYS= -0.082808
POLYP= -9.217948
POLYD= 12.204172
LPARP= -1.450000
$end
$Z=19 Wed Aug 31 18:13:39 CEST 2016
ao=4s4p
lev= -5.815562 -3.747255
exp= 0.841791 0.771618
GAM= 0.114358
GAM3= 0.732923
REPA= 0.581529
REPB= 20.831436
POLYS= 12.482844
POLYP= 22.323655
LPARP= -5.332978
$end
$Z=20 Wed Aug 31 18:20:07 CEST 2016
ao=4s4p3d
lev= -7.979180 -2.517008 -2.752355
exp= 1.321845 0.734954 0.947032
GAM= 0.134187
GAM3= 1.116963
REPA= 0.665588
REPB= 19.840212
POLYS= -11.421376
POLYP= 14.628284
POLYD= 10.129602
LPARP= 11.522018
$end
$Z=21 Fri May 5 14:03:11 CEST 2017
ao=3d4s4p
lev= -6.601089 -3.541803 -1.687209
exp= 1.510174 1.278989 0.873934
GAM= 0.897973
GAM3= -1.784792
REPA= 0.760117
REPB= 23.231297
POLYS= 12.477046
POLYP= 46.956747
POLYD= -10.433716
LPARP= -2.000000
LPARD= -6.976887
$end
$Z=22 Mon Apr 24 11:25:44 CEST 2017
ao=3d4s4p
lev= -6.171156 -4.647280 -0.606001
exp= 1.526221 1.746162 0.810143
GAM= 1.678103
GAM3= -0.000358
REPA= 0.817434
REPB= 15.054336
POLYS= 8.253155
POLYP= 30.482831
POLYD= -18.082141
LPARP= -1.500000
LPARD= -7.677638
$end
$Z=23 Tue May 30 10:28:26 CEST 2017
ao=3d4s4p
lev= -6.314200 -12.834159 0.035792
exp= 1.706872 1.520194 1.100000
GAM= 1.094925
GAM3= 0.800000
REPA= 1.067056
REPB= 21.158314
POLYS= -15.627155
POLYP= 21.787754
POLYD= -23.674752
LPARP= -2.000000
LPARD= -5.176731
$end
$Z=24 Fri May 26 13:13:00 CEST 2017
ao=3d4s4p
lev= -8.095169 -6.662737 -2.647661
exp= 1.860646 1.214281 1.130000
GAM= 0.317872
GAM3= 0.800000
REPA= 0.984779
REPB= 22.335723
POLYS= 7.351214
POLYP= 18.517229
POLYD= -16.744068
LPARP= -2.500000
LPARD= 6.084446
$end
$Z=25 Fri May 26 15:40:37 CEST 2017
ao=3d4s4p
lev= -6.756964 -6.497660 -4.391631
exp= 1.735856 1.025035 1.270000
GAM= 0.231875
GAM3= 0.300000
REPA= 1.034098
REPB= 21.161245
POLYS= 4.364955
POLYP= 9.242032
POLYD= -16.231235
LPARP= -2.500000
LPARD= 12.062125
$end
$Z=26 Thu Jun 1 14:23:29 CEST 2017
ao=3d4s4p
lev= -8.609628 -6.896217 -6.443170
exp= 2.164423 1.738248 1.300000
GAM= 0.900000
GAM3= 0.500000
REPA= 1.136974
REPB= 24.885518
POLYS= -10.476481
POLYP= 11.176576
POLYD= -22.084984
LPARP= -2.000000
LPARD= -3.348701
$end
$Z=27 Tue Jun 6 13:36:36 CEST 2017
ao=3d4s4p
lev= -8.957293 -5.330498 -3.914720
exp= 2.205668 1.091436 1.350000
GAM= 0.213854
GAM3= 0.300000
REPA= 1.202626
REPB= 25.477503
POLYS= 4.121503
POLYP= 14.917653
POLYD= -20.140234
LPARP= -2.000000
LPARD= 3.750103
$end
$Z=28 Fri Jun 9 14:12:38 CEST 2017
ao=3d4s4p
lev= -9.491654 -6.891146 -3.002778
exp= 2.226169 1.315045 1.350000
GAM= 0.257961
GAM3= 1.000000
REPA= 1.405045
REPB= 17.151988
POLYS= 10.160508
POLYP= 12.528539
POLYD= -20.892120
LPARP= -2.000000
LPARD= 2.009132
$end
$Z=29 Tue Jun 13 13:43:59 CEST 2017
ao=3d4s4p
lev= -11.157415 -8.659820 -4.486136
exp= 2.386767 1.388075 1.350000
GAM= 0.232867
GAM3= 0.920598
REPA= 1.224139
REPB= 24.562118
POLYS= -8.590501
POLYP= 7.141500
POLYD= -15.142399
LPARD= -1.582039
$end
$Z=30 Fri Jun 16 16:16:25 CEST 2017
ao=4s4p
lev= -9.538781 -4.393779
exp= 1.739691 1.291181
GAM= 0.384579
GAM3= 1.400000
REPA= 1.093312
REPB= 35.552646
POLYS= -20.097296
POLYP= -0.515231
LPARP= -1.515628
$end
$Z=31 Fri Feb 3 16:19:29 CET 2017
ao=4s4p4d
lev= -14.013394 -5.616872 -2.437453
exp= 2.025803 1.524895 0.524764
GAM= 0.351929
GAM3= 1.400000
REPA= 0.982124
REPB= 36.575935
POLYS= -9.919005
POLYP= 10.598388
POLYD= 19.671655
LPARP= -3.894500
LPARD= 1.000000
$end
$Z=32 Thu Apr 13 13:11:55 CEST 2017
ao=4s4p4d
lev= -15.795287 -10.050005 -4.221097
exp= 2.516954 1.671762 0.799301
GAM= 0.878878
GAM3= 1.400000
REPA= 1.076416
REPB= 39.096346
POLYS= -18.139462
POLYP= -6.247789
POLYD= 19.611782
LPARP= -6.463392
LPARD= -1.300000
$end
$Z=33 Tue Jan 24 20:58:40 CET 2017
ao=4s4p4d
lev= -21.397516 -9.716689 -2.252045
exp= 2.478788 1.905779 1.176250
GAM= 0.417457
GAM3= 1.300000
REPA= 1.227794
REPB= 38.315669
POLYS= -17.489686
POLYP= -10.836128
POLYD= 17.626604
LPARP= -0.758566
LPARD= -1.000000
$end
$Z=34 Mon Jan 23 10:29:23 CET 2017
ao=4s4p4d
lev= -23.000000 -11.353754 -0.978922
exp= 2.998140 2.073392 1.745074
GAM= 0.546433
GAM3= 1.799283
REPA= 1.229699
REPB= 34.959310
POLYS= -17.147845
POLYP= -11.828189
POLYD= 15.353343
LPARP= -4.319966
LPARD= -2.500000
$end
$Z=35 Mon Aug 22 11:29:28 CEST 2016
ao=4s4p4d
lev= -19.875752 -12.818655 -3.348113
exp= 2.886237 2.190987 1.789395
GAM= 0.732530
GAM3= -0.500000
CXB= 0.381742
REPA= 1.153580
REPB= 35.000000
POLYS= -17.815502
POLYP= -14.058044
POLYD= 5.468245
LPARP= -1.440020
LPARD= -1.000000
$end
$Z=36 Thu Sep 1 15:19:47 CEST 2016
ao=4s4p4d
lev= -20.280017 -15.200155 -4.253986
exp= 2.828105 1.965472 1.512609
GAM= 0.820312
GAM3= 1.000000
REPA= 1.335287
REPB= 36.000000
POLYS= -25.437273
POLYP= -12.813227
POLYD= 10.440712
LPARP= -3.743296
$end
$Z=37 Sat Aug 27 04:24:34 CEST 2016
ao=5s5p
lev= -7.616948 -4.369842
exp= 0.809529 0.950253
GAM= 0.075735
GAM3= 1.500000
REPA= 0.554032
REPB= 39.653032
POLYS= -7.450752
POLYP= 16.670533
LPARP= -5.181667
$end
$Z=38 Thu Sep 1 17:15:37 CEST 2016
ao=5s5p4d
lev= -6.840171 -3.338573 -1.715680
exp= 1.458742 0.730658 1.028147
GAM= 0.122861
GAM3= 1.300000
REPA= 0.657904
REPB= 38.924904
POLYS= -6.087125
POLYP= 2.115262
POLYD= 17.076466
LPARP= -8.003590
$end
$Z=39 Thu Sep 1 17:20:03 CEST 2016
ao=4d5s5p
lev= -5.731066 -8.748292 -0.838555
exp= 2.300000 1.593058 1.170000
GAM= 0.351290
GAM3= 1.400000
REPA= 0.760144
REPB= 39.000000
POLYS= 10.950764
POLYP= 45.679760
POLYD= -28.061976
LPARP= -0.800000
LPARD= -4.159186
$end
$Z=40 Fri Jun 23 15:49:33 CEST 2017
ao=4d5s5p
lev= -5.698303 -2.340849 -5.079938
exp= 1.787871 1.411952 1.230000
GAM= 0.176042
GAM3= 0.460210
REPA= 0.709735
REPB= 37.288814
POLYS= 30.048862
POLYP= 24.685487
POLYD= -14.065000
LPARP= -2.500000
LPARD= 3.471956
$end
$Z=41 Tue Jun 27 10:40:20 CEST 2017
ao=4d5s5p
lev= -7.621949 -6.455094 -2.522398
exp= 1.552976 1.475705 1.200000
GAM= 0.180389
GAM3= 0.212639
REPA= 0.909696
REPB= 35.440124
POLYS= 15.379439
POLYP= 31.393684
POLYD= -25.998052
LPARP= -2.000000
LPARD= 9.898269
$end
$Z=42 Fri Jun 30 14:09:58 CEST 2017
ao=4d5s5p
lev= -7.338804 -7.762642 -3.971551
exp= 1.765483 1.920748 1.220000
GAM= 0.392238
GAM3= -0.335700
REPA= 0.961038
REPB= 38.163829
POLYS= 5.815301
POLYP= 20.432554
POLYD= -18.092116
LPARP= -2.500000
LPARD= -2.957569
$end
$Z=43 Sun Aug 28 04:51:04 CEST 2016
ao=4d5s5p
lev= -8.690050 -5.089073 -4.878724
exp= 2.120497 1.789115 1.250000
GAM= 0.405474
GAM3= 0.500000
REPA= 1.028240
REPB= 43.000000
POLYS= 24.977603
POLYP= 1.953838
POLYD= -23.231470
LPARP= -2.000000
LPARD= 2.642680
$end
$Z=44 Thu Sep 1 17:52:27 CEST 2016
ao=4d5s5p
lev= -10.960165 -6.304229 -5.569969
exp= 2.352683 1.883645 1.370000
GAM= 0.305394
GAM3= 0.001205
REPA= 1.066144
REPB= 44.492732
POLYS= 15.281981
POLYP= 1.340798
POLYD= -23.099524
LPARP= -1.500000
LPARD= 1.772831
$end
$Z=45 Thu Sep 1 17:58:03 CEST 2016
ao=4d5s5p
lev= -11.935915 -4.883179 -4.427854
exp= 2.436353 2.000000 1.470000
GAM= 0.293973
GAM3= 0.622690
REPA= 1.131380
REPB= 45.241537
POLYS= 10.450086
POLYP= 15.559547
POLYD= -23.540560
LPARP= -2.500000
LPARD= 3.782936
$end
$Z=46 Fri Jul 7 13:08:45 CEST 2017
ao=4d5s5p
lev= -11.057352 -5.667970 -3.149700
exp= 2.380741 1.984859 1.550000
GAM= 0.311234
GAM3= 0.500000
REPA= 1.226066
REPB= 41.939426
POLYS= 10.407257
POLYP= 16.980983
POLYD= -17.752834
LPARP= -2.500000
LPARD= 2.865563
$end
$Z=47 Tue Jul 11 09:49:53 CEST 2017
ao=4d5s5p
lev= -9.967352 -5.974518 -3.478715
exp= 2.644658 2.056123 1.620000
GAM= 0.440109
GAM3= 0.021628
REPA= 1.029976
REPB= 47.198422
POLYS= -12.856324
POLYP= -2.440401
POLYD= -1.478311
LPARP= -1.500000
LPARD= -1.981564
$end
$Z=48 Tue Aug 15 12:30:18 CEST 2017
ao=5s5p
lev= -9.271670 -3.857452
exp= 1.961223 1.409748
GAM= 0.332147
GAM3= 1.362587
REPA= 0.928849
REPB= 49.016827
POLYS= -17.616123
POLYP= 6.247124
LPARP= -3.010874
$end
$Z=49 Fri Feb 10 15:15:10 CET 2017
ao=5s5p5d
lev= -14.755266 -4.611036 -4.455688
exp= 2.217568 1.536904 0.880728
GAM= 0.285832
GAM3= 1.063557
REPA= 0.822482
REPB= 51.718417
POLYS= -10.488459
POLYP= 13.780348
POLYD= 5.584366
LPARP= -3.631014
$end
$Z=50 Fri Feb 17 19:03:59 CET 2017
ao=5s5p5d
lev= -22.241945 -7.801265 -3.306963
exp= 2.443152 1.782901 0.936038
GAM= 0.372861
GAM3= 1.746331
REPA= 0.954713
REPB= 54.503455
POLYS= -14.906472
POLYP= -2.497008
POLYD= 10.683419
LPARP= -3.294996
LPARD= -1.500000
$end
$Z=51 Thu Apr 13 13:43:55 CEST 2017
ao=5s5p5d
lev= -19.959912 -7.703762 -2.025267
exp= 2.687886 2.003834 1.078859
GAM= 0.535840
GAM3= -0.678152
REPA= 0.976956
REPB= 52.995653
POLYS= -15.500737
POLYP= -8.070432
POLYD= 5.919672
LPARP= -1.806602
LPARD= -2.000000
$end
$Z=52 Fri Feb 10 12:59:42 CET 2017
ao=5s5p5d
lev= -27.798530 -10.496142 -1.080464
exp= 2.873897 2.169037 1.511922
GAM= 0.283009
GAM3= 1.387384
REPA= 0.954405
REPB= 50.537298
POLYS= -17.920966
POLYP= -11.924030
POLYD= 25.088164
LPARP= -1.102393
LPARD= -2.000000
$end
$Z=53 Mon Aug 22 12:51:49 CEST 2016
ao=5s5p5d
lev= -23.832631 -11.604442 -2.025327
exp= 3.117622 2.248195 1.831809
GAM= 0.520472
GAM3= -0.500000
CXB= 0.321944
REPA= 0.949181
REPB= 53.000000
POLYS= -21.954071
POLYP= -10.823970
POLYD= 12.522287
LPARP= -0.387987
LPARD= -1.500000
$end
$Z=54 Mon Aug 29 22:22:12 CEST 2016
ao=5s5p5d
lev= -21.969064 -11.870978 -2.697796
exp= 3.128524 2.316580 1.888452
GAM= 0.935394
GAM3= -0.800000
REPA= 1.074785
REPB= 52.500985
POLYS= -22.530281
POLYP= -16.667114
POLYD= 8.021956
LPARP= -3.435282
LPARD= -1.500000
$end
$Z=55 Thu Sep 1 23:00:45 CEST 2016
ao=5s5p
lev= -6.341379 -3.944275
exp= 0.779877 0.810404
GAM= 0.085110
GAM3= 1.500000
REPA= 0.579919
REPB= 65.029838
POLYS= -1.460631
POLYP= 15.879494
LPARP= -7.035550
$end
$Z=56 Thu Sep 1 23:06:30 CEST 2016
ao=5s5p4d
lev= -6.452630 -3.975353 -2.305768
exp= 1.387083 0.532658 0.853415
GAM= 0.137819
GAM3= 1.500000
REPA= 0.606485
REPB= 46.532974
POLYS= -5.468018
POLYP= 4.368854
POLYD= 14.328052
LPARP= -8.801363
$end
$Z=57 Tue Aug 30 00:04:23 CEST 2016
ao=5d6s6p
lev= -5.872226 -6.500000 -0.727921
exp= 3.000000 1.492677 1.350000
GAM= 0.495969
GAM3= 1.500000
REPA= 1.311200
REPB= 48.337542
POLYS= -3.988102
POLYP= 40.847293
POLYD= -44.208463
LPARP= -1.500000
LPARD= -6.396752
$end
$Z=58 Tue Aug 30 10:12:13 CEST 2016
ao=5d6s6p
lev= -5.032003 -6.275363 0.291196
exp= 3.000000 1.553483 1.380859
GAM= 0.350000
GAM3= 1.200000
REPA= 0.839861
REPB= 30.638143
POLYS= 6.148475
POLYP= 42.873822
POLYD= -36.440945
LPARP= -1.500000
LPARD= -5.245538
$end
$Z=59 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.944984 -6.271128 0.241817
exp= 2.992307 1.578839 1.385620
GAM= 0.342306
GAM3= 1.200000
REPA= 0.847281
REPB= 34.130718
POLYS= 7.806576
POLYP= 42.846148
POLYD= -36.021673
LPARP= -1.500000
LPARD= -5.064761
$end
$Z=60 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.857964 -6.266893 0.192438
exp= 2.984614 1.604196 1.390381
GAM= 0.334612
GAM3= 1.200000
REPA= 0.854701
REPB= 37.623294
POLYS= 9.464678
POLYP= 42.818474
POLYD= -35.602402
LPARP= -1.500000
LPARD= -4.883984
$end
$Z=61 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.770945 -6.262657 0.143059
exp= 2.976922 1.629552 1.395142
GAM= 0.326917
GAM3= 1.200000
REPA= 0.862121
REPB= 41.115870
POLYS= 11.122779
POLYP= 42.790801
POLYD= -35.183130
LPARP= -1.500000
LPARD= -4.703207
$end
$Z=62 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.683925 -6.258422 0.093680
exp= 2.969229 1.654909 1.399903
GAM= 0.319223
GAM3= 1.200000
REPA= 0.869541
REPB= 44.608445
POLYS= 12.780881
POLYP= 42.763127
POLYD= -34.763859
LPARP= -1.500000
LPARD= -4.522429
$end
$Z=63 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.596906 -6.254187 0.044301
exp= 2.961536 1.680265 1.404664
GAM= 0.311529
GAM3= 1.200000
REPA= 0.876961
REPB= 48.101021
POLYS= 14.438982
POLYP= 42.735454
POLYD= -34.344587
LPARP= -1.500000
LPARD= -4.341652
$end
$Z=64 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.509886 -6.249952 -0.005078
exp= 2.953843 1.705622 1.409425
GAM= 0.303835
GAM3= 1.200000
REPA= 0.884381
REPB= 51.593596
POLYS= 16.097083
POLYP= 42.707780
POLYD= -33.925315
LPARP= -1.500000
LPARD= -4.160875
$end
$Z=65 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.422867 -6.245716 -0.054457
exp= 2.946150 1.730979 1.414186
GAM= 0.296140
GAM3= 1.200000
REPA= 0.891801
REPB= 55.086172
POLYS= 17.755185
POLYP= 42.680106
POLYD= -33.506044
LPARP= -1.500000
LPARD= -3.980098
$end
$Z=66 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.335848 -6.241481 -0.103836
exp= 2.938457 1.756335 1.418947
GAM= 0.288446
GAM3= 1.200000
REPA= 0.899221
REPB= 58.578748
POLYS= 19.413286
POLYP= 42.652433
POLYD= -33.086772
LPARP= -1.500000
LPARD= -3.799321
$end
$Z=67 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.248828 -6.237246 -0.153215
exp= 2.930765 1.781692 1.423708
GAM= 0.280752
GAM3= 1.200000
REPA= 0.906641
REPB= 62.071323
POLYS= 21.071387
POLYP= 42.624759
POLYD= -32.667501
LPARP= -1.500000
LPARD= -3.618544
$end
$Z=68 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.161809 -6.233011 -0.202593
exp= 2.923072 1.807048 1.428469
GAM= 0.273058
GAM3= 1.200000
REPA= 0.914061
REPB= 65.563899
POLYS= 22.729489
POLYP= 42.597085
POLYD= -32.248229
LPARP= -1.500000
LPARD= -3.437767
$end
$Z=69 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -4.074789 -6.228775 -0.251972
exp= 2.915379 1.832405 1.433230
GAM= 0.265364
GAM3= 1.200000
REPA= 0.921481
REPB= 69.056474
POLYS= 24.387590
POLYP= 42.569412
POLYD= -31.828957
LPARP= -1.500000
LPARD= -3.256989
$end
$Z=70 Mon Aug 1 19:25:34 CEST 2016
ao=5d6s6p
lev= -3.987770 -6.224540 -0.301351
exp= 2.907686 1.857761 1.437991
GAM= 0.257669
GAM3= 1.200000
REPA= 0.928901
REPB= 72.549050
POLYS= 26.045692
POLYP= 42.541738
POLYD= -31.409686
LPARP= -1.500000
LPARD= -3.076212
$end
$Z=71 Tue Aug 30 10:12:13 CEST 2016
ao=5d6s6p
lev= -3.900750 -6.220305 -0.350730
exp= 2.899993 1.883118 1.442752
GAM= 0.249975
GAM3= 1.200000
REPA= 0.936321
REPB= 76.041625
POLYS= 27.703793
POLYP= 42.514065
POLYD= -30.990414
LPARP= -1.500000
LPARD= -2.895435
$end
$Z=72 Mon Jul 24 19:29:12 CEST 2017
ao=5d6s6p
lev= -3.817190 -4.131659 -2.759205
exp= 2.433439 1.918710 1.450000
GAM= 0.280206
GAM3= 0.436362
REPA= 0.831440
REPB= 55.350542
POLYS= 15.014122
POLYP= 25.669742
POLYD= -20.141582
LPARP= -1.500000
LPARD= 0.920885
$end
$Z=73 Thu Jul 27 20:48:48 CEST 2017
ao=5d6s6p
lev= -9.232014 -8.600553 -1.266176
exp= 1.747032 1.980803 1.400000
GAM= 0.209307
GAM3= -0.294270
REPA= 1.001602
REPB= 50.858491
POLYS= 29.782424
POLYP= 38.084212
POLYD= -23.077812
LPARP= -1.500000
LPARD= 5.567170
$end
$Z=74 Thu Jul 27 21:51:37 CEST 2017
ao=5d6s6p
lev= -7.943440 -2.878936 -2.606135
exp= 2.151802 1.685637 1.400000
GAM= 0.298893
GAM3= 0.139734
REPA= 1.054268
REPB= 74.000000
POLYS= 35.195571
POLYP= 21.973526
POLYD= -12.013846
LPARP= -1.500000
LPARD= 2.658721
$end
$Z=75 Thu Aug 10 15:43:44 CEST 2017
ao=5d6s6p
lev= -7.620328 -8.366866 -7.118201
exp= 2.127769 1.886445 1.450000
GAM= 0.192431
GAM3= 0.300000
REPA= 1.295110
REPB= 75.000000
POLYS= 17.414335
POLYP= -0.067497
POLYD= -23.115824
LPARP= -2.000000
LPARD= 1.569632
$end
$Z=76 Thu Aug 10 17:23:17 CEST 2017
ao=5d6s6p
lev= -10.102898 -3.655133 -7.060522
exp= 2.607119 1.940513 1.650000
GAM= 1.511128
GAM3= -0.170295
REPA= 1.163798
REPB= 76.000000
POLYS= 28.734400
POLYP= -0.984767
POLYD= -15.758126
LPARP= -1.000000
LPARD= -1.931486
$end
$Z=77 Sun Aug 13 22:14:41 CEST 2017
ao=5d6s6p
lev= -11.130049 -5.401042 -6.032947
exp= 2.636374 2.145197 1.650000
GAM= 0.391625
GAM3= -1.130878
REPA= 1.280092
REPB= 77.000000
POLYS= 25.774929
POLYP= 1.135126
POLYD= -17.060525
LPARP= -1.500000
LPARD= 7.240972
$end
$Z=78 Sun Aug 13 22:59:17 CEST 2017
ao=5d6s6p
lev= -11.750154 -5.493306 -4.896782
exp= 2.622072 2.341428 1.650000
GAM= 0.306418
GAM3= 0.291755
REPA= 1.356651
REPB= 78.000000
POLYS= 38.415536
POLYP= 5.655587
POLYD= -17.070367
LPARP= -2.000000
LPARD= 0.257168
$end
$Z=79 Mon Aug 14 16:11:59 CEST 2017
ao=5d6s6p
lev= -10.306258 -7.467067 -3.211351
exp= 3.093746 2.050985 1.750000
GAM= 0.430317
GAM3= 2.232497
REPA= 1.464120
REPB= 79.000000
POLYS= -20.627998
POLYP= 0.482588
POLYD= -13.276408
LPARP= -1.500000
LPARD= -3.868172
$end
$Z=80 Tue Aug 15 10:43:57 CEST 2017
ao=6s6p
lev= -11.634473 -4.320883
exp= 2.012351 1.773458
GAM= 0.335841
GAM3= -0.040460
REPA= 1.147709
REPB= 80.000000
POLYS= -11.990346
POLYP= 2.697576
LPARP= -4.553637
$end
$Z=81 Fri Feb 17 19:40:09 CET 2017
ao=6s6p
lev= -10.454936 -5.031237
exp= 2.607880 1.680493
GAM= 0.672340
GAM3= 0.992527
REPA= 0.959310
REPB= 84.050696
POLYS= -1.275250
POLYP= -1.152862
LPARP= -7.973634
$end
$Z=82 Thu Apr 13 11:38:20 CEST 2017
ao=6s6p
lev= -8.264605 -6.658984
exp= 2.817165 1.919947
GAM= 1.000000
GAM3= 1.500000
REPA= 0.975700
REPB= 101.661715
POLYS= -6.987542
POLYP= -6.568936
LPARP= -8.045028
$end
$Z=83 Tue Apr 4 10:27:40 CEST 2017
ao=6s6p
lev= -18.199529 -8.408056
exp= 2.998330 2.249513
GAM= 1.081470
GAM3= 1.179183
REPA= 0.952375
REPB= 83.000000
POLYS= -28.955169
POLYP= -13.130855
LPARP= -6.727954
$end
$Z=84 Wed Aug 31 00:47:41 CEST 2016
ao=6s6p5d
lev= -23.908422 -8.889548 -0.921251
exp= 3.150662 2.382063 1.241625
GAM= 1.091248
GAM3= -0.035874
REPA= 1.013118
REPB= 84.000000
POLYS= -18.477865
POLYP= -14.037423
POLYD= 13.809093
LPARP= -3.955914
$end
$Z=85 Wed Aug 31 00:56:17 CEST 2016
ao=6s6p5d
lev= -21.752193 -10.031093 -0.852571
exp= 3.516922 2.392024 1.380239
GAM= 1.264162
GAM3= -0.860502
CXB= 0.220000
REPA= 0.964652
REPB= 85.000000
POLYS= -21.965390
POLYP= -12.804436
POLYD= 16.836546
LPARP= -3.402676
$end
$Z=86 Wed Aug 31 00:56:17 CEST 2016
ao=6s6p5d
lev= -18.381647 -10.236606 -0.973687
exp= 3.520683 2.535389 1.418875
GAM= 0.798170
GAM3= -0.838429
REPA= 0.998641
REPB= 86.000000
POLYS= -22.139701
POLYP= -20.539955
POLYD= 17.249637
LPARP= -2.380762
$end
xtb-6.7.1/python/ 0000775 0000000 0000000 00000000000 14650006642 0013646 5 ustar 00root root 0000000 0000000 xtb-6.7.1/python/README.md 0000664 0000000 0000000 00000000417 14650006642 0015127 0 ustar 00root root 0000000 0000000 # Python API for the Extended Tight Binding Program
The Python API for `xtb` has been migrated to its own repository at https://github.com/grimme-lab/xtb-python.
The documentation can be found at https://xtb-python.readthedocs.io.
There is nothing to see here anymore.
xtb-6.7.1/scripts/ 0000775 0000000 0000000 00000000000 14650006642 0014014 5 ustar 00root root 0000000 0000000 xtb-6.7.1/scripts/otool_xtb 0000775 0000000 0000000 00000000563 14650006642 0015757 0 ustar 00root root 0000000 0000000 #!/usr/bin/env bash
args=("$@")
namespace=$(printf '%s\n' "${args[@]}" | awk 'namespace {print $0; namespace=0}; /--namespace/ {namespace=1}')
xtb "$@"
if [ -f "$namespace.energy" ]
then
energy=$(cat "$namespace.energy")
echo "$energy" | awk 'BEGIN {print "$energy"}; END {print "$end"}; NF == 2 {print $1, $2, $2, $2}; NF == 4 {print $0}' > "$namespace.energy"
fi
xtb-6.7.1/scripts/xtb-gaussian 0000775 0000000 0000000 00000000061 14650006642 0016344 0 ustar 00root root 0000000 0000000 #!/usr/bin/env bash
2>&1 exec xtb $2 --grad > $4
xtb-6.7.1/src/ 0000775 0000000 0000000 00000000000 14650006642 0013114 5 ustar 00root root 0000000 0000000 xtb-6.7.1/src/CMakeLists.txt 0000664 0000000 0000000 00000010074 14650006642 0015656 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
add_subdirectory("api")
add_subdirectory("coulomb")
add_subdirectory("dipro")
add_subdirectory("disp")
add_subdirectory("docking")
add_subdirectory("extern")
add_subdirectory("freq")
add_subdirectory("gfnff")
add_subdirectory("io")
add_subdirectory("iff")
add_subdirectory("main")
add_subdirectory("mctc")
add_subdirectory("param")
add_subdirectory("prog")
add_subdirectory("ptb")
add_subdirectory("solv")
add_subdirectory("tblite")
add_subdirectory("type")
add_subdirectory("xtb")
add_subdirectory("lbfgs_anc")
set(dir "${CMAKE_CURRENT_SOURCE_DIR}")
list(APPEND srcs
"${dir}/aespot.f90"
"${dir}/anharmlib.f90"
"${dir}/aoparam.f90"
"${dir}/approxrab.f90"
"${dir}/axis_trafo.f90"
"${dir}/basic_geo.f90"
"${dir}/bfgs.f90"
"${dir}/bias_path.f90"
"${dir}/blowsy.f90"
"${dir}/broyden.f90"
"${dir}/charge_model.f90"
"${dir}/coffee.f90"
"${dir}/constrain_param.f90"
"${dir}/constrain_pot.f90"
"${dir}/constr.f90"
"${dir}/cqpath.f90"
"${dir}/cube.f90"
"${dir}/david2.f90"
"${dir}/david.f"
"${dir}/define.f90"
"${dir}/detrotra.f90"
"${dir}/dipole.f90"
"${dir}/dipro.F90"
"${dir}/drsp.f"
"${dir}/dtrafo.f90"
"${dir}/dynamic.f90"
"${dir}/eeq_model.f90"
"${dir}/elem.f90"
"${dir}/embedding.f90"
"${dir}/enso_printout.f90"
"${dir}/eqrot.f90"
"${dir}/esp.f"
"${dir}/expire.f90"
"${dir}/features.F90"
"${dir}/filetools.F90"
"${dir}/fixparam.f90"
"${dir}/foden.f90"
"${dir}/fragment.f90"
"${dir}/generate_wsc.f90"
"${dir}/geoopt_driver.f90"
"${dir}/geosum.f90"
"${dir}/getkopt.f90"
"${dir}/getname.f90"
"${dir}/getsymnum.f90"
"${dir}/gfn0param.f90"
"${dir}/gfn_paramset.f90"
"${dir}/gfn_prparam.f90"
"${dir}/grad_core.f90"
"${dir}/header.f90"
"${dir}/hessian.F90"
"${dir}/hlex.f90"
"${dir}/ifind.f90"
"${dir}/iniq.f90"
"${dir}/intgrad.f90"
"${dir}/intmodes.f90"
"${dir}/intpack.f90"
"${dir}/lidep.f90"
"${dir}/lindh.f90"
"${dir}/lin.f90"
"${dir}/lin_mod.f90"
"${dir}/local.f90"
"${dir}/locmode.f90"
"${dir}/lopt.f90"
"${dir}/ls_rmsd.f90"
"${dir}/makel.f90"
"${dir}/matinv.f90"
"${dir}/mdoptim.f90"
"${dir}/metadynamic.f90"
"${dir}/modef.f90"
"${dir}/model_hessian.f90"
"${dir}/neighbor.f90"
"${dir}/onetri.f90"
"${dir}/oniom.f90"
"${dir}/optimizer.f90"
"${dir}/pbc.f90"
"${dir}/pbc_tools.f90"
"${dir}/peeq_module.f90"
"${dir}/pocketscan.f90"
"${dir}/pqn.f90"
"${dir}/printmold.f90"
"${dir}/printout.f90"
"${dir}/prmat.f90"
"${dir}/pseudodiag.f90"
"${dir}/qpot.f90"
"${dir}/qsort.f90"
"${dir}/rdcoord2.f90"
"${dir}/read_gfn_param.f90"
"${dir}/readin.f90"
"${dir}/readl2.f90"
"${dir}/readl.f90"
"${dir}/relaxation_engine.f90"
"${dir}/restart.f90"
"${dir}/rmrottr.f90"
"${dir}/rmsd.f90"
"${dir}/scan_driver.f90"
"${dir}/scanparam.f90"
"${dir}/scc_core.f90"
"${dir}/scf_module.F90"
"${dir}/screening.f90"
"${dir}/set_module.f90"
"${dir}/setparam.f90"
"${dir}/shake_module.f90"
"${dir}/shiftlp.f90"
"${dir}/single.f90"
"${dir}/slater.f90"
"${dir}/sphereparam.f90"
"${dir}/spline2.f90"
"${dir}/spline3.f90"
"${dir}/splitparam.f90"
"${dir}/stm.f"
"${dir}/surfac.f"
"${dir}/thermo.f90"
"${dir}/timing.f90"
"${dir}/topology.f90"
"${dir}/vertical.f90"
"${dir}/wrbas.f90"
"${dir}/wrgbw.f90"
"${dir}/wrmodef.f90"
"${dir}/wrmo.f90"
"${dir}/xhelp.f90"
"${dir}/zmatpr.f90"
)
set(srcs ${srcs} PARENT_SCOPE)
set(prog ${prog} PARENT_SCOPE)
xtb-6.7.1/src/aespot.f90 0000664 0000000 0000000 00000113520 14650006642 0014731 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_aespot
use xtb_mctc_accuracy, only : wp
use xtb_intpack, only : olap,divpt,rhftce,prod,opab1,opab4,propa
use xtb_xtb_data
integer,private, parameter :: llao (0:3) = (/ 1, 3, 6,10/)
integer,private, parameter :: llao2(0:3) = (/ 1, 3, 5, 7/)
contains
! setdqlist: precomputes the dipole and quadrupole potential terms for Fock matrix
! thr : neglect matrix elements in potential
! nao : # of spherical AOs (SAOs)
! dpint : dipole integral matrix, dimension 3,nao*(nao+1)/2
! qpint : quadrupole integral matrix, dimension 6,nao*(nao+1)/2
! ndp,nqp : number of elements to be computed in Fock matrix with X-dip and X-qpole terms
! matdlst,matqlst : index list, to which AO, the ndp/nqp potential terms refer to
subroutine setdqlist(nao,ndp,nqp,thr,dpint,qpint,matdlst,matqlst)
implicit none
integer, intent(in) :: nao
integer, intent(inout) :: ndp,nqp
real(wp),intent(in) :: thr
real(wp),intent(in) :: dpint(3,nao,nao)
real(wp),intent(in) :: qpint(6,nao,nao)
integer, intent(inout):: matqlst(2,nqp),matdlst(2,ndp)
real(wp) tmp1,tmp2,tmp3,tmp4
real(wp) skj,r1,r2,tt,t1,t2,t3,t4,thr2,f
! stuff for potential
integer i,j,k,l,m,ii,jj,ll,kk,mq,md,ij
! INFO: this threshold must be slightly larger than max(0,thr2),
! where thr2 is the one used in screening in routine aesdqint
thr2 = thr*1.0d-2 ! we compare squared int-elements
! thr2 = 1.0d-20 ! conservative, keep all terms
md = 0
mq = 0
! set uo matrix lists
ij = 0
do i = 1,nao
do j = 1,i
ij = ij+1
tmp1 = 0.0_wp
tmp2 = 0.0_wp
kk = 0
do k = 1,3
tmp1 = tmp1+dpint(k,i,j)*dpint(k,i,j)
tmp2 = tmp2-qpint(k,i,j)*qpint(k,i,j)
enddo
do k = 1,6
tmp2 = tmp2+2.0_wp*qpint(k,i,j)*qpint(k,i,j)
enddo
if(tmp1.gt.thr2)then
md = md+1
matdlst(1,md) = int(i,2)
matdlst(2,md) = int(j,2)
endif
if(tmp2.gt.thr2)then
mq = mq+1
matqlst(1,mq) = int(i,2)
matqlst(2,mq) = int(j,2)
endif
enddo
enddo
ndp = md
nqp = mq
end subroutine setdqlist
! scalecamm: scale all anisotropic CAMMs by element-specific parameters
! nat : # of atoms
! at(nat) : atom-to-element identifier
! dipm(3,nat) : cumulative atomic dipole moments (x,y,z)
! qp(6,nat) : traceless(!) cumulative atomic quadrupole moments (xx,xy,yy,xz,yz,zz)
subroutine scalecamm(nat,at,dipm,qp)
implicit none
integer, intent(in) :: nat,at(nat)
real(wp), intent(inout):: dipm(3,nat),qp(6,nat)
integer i,iat
! CAMM scaling
do i = 1,nat
qp(1:6,i) = qp(1:6,i)*(3./3.)
enddo
end subroutine scalecamm
! unscalecamm: unscale all anisotropic CAMMs from element-specific parameters
! nat : # of atoms
! at(nat) : atom-to-element identifier
! dipm(3,nat) : cumulative atomic dipole moments (x,y,z)
! qp(6,nat) : traceless(!) cumulative atomic quadrupole moments (xx,xy,yy,xz,yz,zz)
subroutine unscalecamm(nat,at,dipm,qp)
implicit none
integer, intent(in) :: nat,at(nat)
real(wp), intent(inout):: dipm(3,nat),qp(6,nat)
real(wp) aesi
integer i,iat
! CAMM scaling
do i = 1,nat
qp(1:6,i) = qp(1:6,i)*(3./3.)
enddo
end subroutine unscalecamm
! mmpop: compute the cumulative atomic dipole and quadrupole moments via Mulliken population analysis
! nat : # of atoms
! nao : # of spherical AOs (SAOs)
! aoat2(nao) : SAO to atom intex
! s(nao,nao) : overlap matrix
! xyz(3,nat) : cartesian coordinates
! dpint : dipole integral matrix, dimension 3,nao*(nao+1)/2
! qpint : quadrupole integral matrix, dimension 6,nao*(nao+1)/2
! p(nao,nao) : density matrix
! dipm(3,nat) : cumulative atomic dipole moments (x,y,z)
! qp(6,nat) : traceless(!) cumulative atomic quadrupole moments (xx,xy,yy,xz,yz,zz)
subroutine mmompop(nat,nao,aoat2,xyz,p,s,dpint,qpint,dipm,qp)
implicit none
integer, intent(in) :: nao,nat,aoat2(:)
real(wp), intent(in) :: s(:, :)
real(wp), intent(in) :: p(:, :)
real(wp), intent(in) :: dpint(:, :, :)
real(wp), intent(in) :: qpint(:, :, :)
real(wp), intent(in) :: xyz(:, :)
real(wp), intent(out):: dipm(:, :)
real(wp), intent(out):: qp(:, :)
real(wp) xk1,xl1,xk2,xl2,pij,tii,tjj
real(wp) pqm,pdmk,pdml,ps,ra(3)
integer i,j,k,l,ii,jj,kl,kj,lin
!$acc enter data create(dipm(:, :), qp(:, :))
! CAMM
!$acc kernels default(present)
dipm = 0.0_wp
qp = 0.0_wp
!$acc end kernels
!$acc enter data copyin(nao, nat, aoat2(:), s(:, :), p(:, :), dpint(:, :, :), &
!$acc& qpint(:, :, :),xyz(:, :))
!$acc parallel private(pij,ps,ra,k,l,ii,jj)
!$acc loop gang vector collapse(2)
do i = 1,nao
do j = 1,nao
if (j >= i) cycle
ii = aoat2(i)
jj = aoat2(j)
ra(1:3) = xyz(1:3,ii)
pij = p(j,i)
ps = pij*s(j,i)
! the qpint is stored as xx,yy,zz,xy,xz,yz (from integral routine)
! when doing the Mulliken population, we switch to lin-compatible sorting
! i,e. xx,xy,yy,xz,yz,zz
!$acc loop vector private(xk1,xl1,xk2,xl2,tii,tjj,pqm,pdmk,pdml,kl,kj)
do k = 1,3
xk1 = ra(k)
xk2 = xyz(k,jj)
pdmk = pij*dpint(k,j,i)
tii = xk1*ps-pdmk
tjj = xk2*ps-pdmk
!$acc atomic
dipm(k,jj) = dipm(k,jj)+tjj
!$acc atomic
dipm(k,ii) = dipm(k,ii)+tii
! off-diagonal
do l = 1,k-1
kl = k*(k-1)/2+l
kj = k+l+1
xl1 = ra(l)
xl2 = xyz(l,jj)
pdml = pij*dpint(l,j,i)
pqm = pij*qpint(kj,j,i)
tii = pdmk*xl1+pdml*xk1-xl1*xk1*ps-pqm
tjj = pdmk*xl2+pdml*xk2-xl2*xk2*ps-pqm
!$acc atomic
qp(kl,jj) = qp(kl,jj)+tjj
!$acc atomic
qp(kl,ii) = qp(kl,ii)+tii
enddo
! diagonal
kl = k*(k+1)/2
pqm = pij*qpint(k,j,i)
tii = 2.0_wp*pdmk*xk1-xk1*xk1*ps-pqm
tjj = 2.0_wp*pdmk*xk2-xk2*xk2*ps-pqm
!$acc atomic
qp(kl,jj) = qp(kl,jj)+tjj
!$acc atomic
qp(kl,ii) = qp(kl,ii)+tii
enddo
enddo
enddo
!$acc loop gang vector
do i = 1,nao
ii = aoat2(i)
ra(1:3) = xyz(1:3,ii)
pij = p(i,i)
ps = pij*s(i,i)
! the qpint is stored as xx,yy,zz,xy,xz,yz (from integral routine)
! when doing the Mulliken population, we switch to lin-compatible sorting
! i,e. xx,xy,yy,xz,yz,zz
!$acc loop vector private(xk1,xl1,xk2,xl2,tii,pqm,pdmk,pdml,kl,kj)
do k = 1,3
xk1 = ra(k)
pdmk = pij*dpint(k,i,i)
tii = xk1*ps-pdmk
!$acc atomic
dipm(k,ii) = dipm(k,ii)+tii
! off-diagonal
do l = 1,k-1
kl = k*(k-1)/2+l
kj = k+l+1 ! the qpint is stored as xx,yy,zz,xy,xz,yz (from integral routine)
xl1 = ra(l)
pdml = pij*dpint(l,i,i)
pqm = pij*qpint(kj,i,i)
tii = pdmk*xl1+pdml*xk1-xl1*xk1*ps-pqm
!$acc atomic
qp(kl,ii) = qp(kl,ii)+tii
enddo
!diagonal
kl = k*(k+1)/2
pqm = pij*qpint(k,i,i)
tii = 2.0_wp*pdmk*xk1-xk1*xk1*ps-pqm
!$acc atomic
qp(kl,ii) = qp(kl,ii)+tii
enddo
enddo
!$acc end parallel
!$acc exit data copyout(dipm(:, :), qp(:, :))
! remove trace
do i = 1,nat
tii = qp(1,i)+qp(3,i)+qp(6,i)
tii = 0.50_wp*tii
qp(1:6,i) = 1.50_wp*qp(1:6,i)
qp(1,i) = qp(1,i)-tii
qp(3,i) = qp(3,i)-tii
qp(6,i) = qp(6,i)-tii
enddo
!$acc exit data delete(nao, nat, aoat2(:), s(:, :), p(:, :), dpint(:, :, :), &
!$acc& qpint(:, :, :),xyz(:, :))
end subroutine mmompop
! distributed atomic multipole moment interactions: all interactions up to r**-3
! energy evaluation
! nat : # of atoms
! xyz(3,nat) : cartesian coordinates
! q(nat) : atomic partial charges
! dipm(3,nat) : cumulative atomic dipole moments (x,y,z)
! qp(6,nat) : traceless(!) cumulative atomic quadrupole moments (xx,xy,yy,xz,yz,zz)
! gab3,gab5 : damped R**-3 and R**-5 Coulomb laws, dimension: nat*(nat+1)/2
! multiplication with numerator then leads to R**-2 and R**-3 decay, respectively
! e : E_AES
subroutine aniso_electro(aesData,nat,at,xyz,q,dipm,qp,gab3,gab5,e,epol)
use xtb_lin, only : lin
implicit none
class(TMultipoleData), intent(in) :: aesData
integer, intent(in) :: nat,at(:)
real(wp), intent(in) :: xyz(:,:),q(:)
real(wp), intent(inout) :: e
real(wp) qp1(6),rr(3),dp1(3),rij(3)
real(wp) edd,e01,e02,e11,r2,tt,tt3,q1,qs2
real(wp) ed,eq,epol
! stuff for potential
real(wp), intent(in) :: gab3(:,:),gab5(:,:)
real(wp), intent(in) :: dipm(:,:),qp(:,:)
integer, parameter :: idx(3, 3) = reshape([1, 2, 4, 2, 3, 5, 4, 5, 6], [3, 3])
integer i,j,k,l,m,ki,kj,kl
! acc enter data copyin(at, xyz, q, dipm, qp, gab3, gab5, &
! acc& aesData, aesData%dipKernel(:), aesData%quadKernel(:))
! acc kernels
e = 0.0_wp
epol = 0.0_wp
e01 = 0.0_wp
e02 = 0.0_wp
e11 = 0.0_wp
! acc end kernels
! acc parallel private(qp1, rr, dp1, rij)
! acc loop gang
do i = 1, nat
q1 = q(i)
rr(1:3) = xyz(1:3,i)
dp1(1:3) = dipm(1:3,i)
qp1(1:6) = qp(1:6,i)
! test: semilocal CT correction
! dipole
tt = dp1(1)*dp1(1)+dp1(2)*dp1(2)+dp1(3)*dp1(3)
! qpole
tt3 = 0.0_wp
! acc loop seq
do k = 1,3
! acc loop seq
do l = 1,3
kl = idx(l,k)
tt3 = tt3+qp1(kl)*qp1(kl)
enddo
enddo
eq = aesData%dipKernel(at(i))*tt+tt3*aesData%quadKernel(at(i))
! acc atomic
epol = epol+eq
! ---
enddo
! acc loop gang collapse(2)
do i = 1, nat
do j = 1, nat
if (j >= i) cycle
q1 = q(i)
rr(1:3) = xyz(1:3,i)
dp1(1:3) = dipm(1:3,i)
qp1(1:6) = qp(1:6,i)
kj = i*(i-1)/2 + j
rij(1:3) = xyz(1:3,j)-rr(1:3)
r2 = sum(rij*rij)
ed = 0.0_wp
eq = 0.0_wp
edd = 0.0_wp
! dipole - charge
! acc loop seq
do k = 1,3
ed = ed+q(j)*dp1(k)*rij(k)
ed = ed-dipm(k,j)*q1*rij(k)
! dip-dip & charge-qpole
! acc loop seq
do l = 1,3
kl = idx(l,k)
tt = rij(l)*rij(k)
tt3 = 3.0_wp*tt
eq = eq+q(j)*qp1(kl)*tt
eq = eq+qp(kl,j)*q1*tt
edd = edd-dipm(k,j)*dp1(l)*tt3
enddo
! diagonal dip-dip term
edd = edd+dipm(k,j)*dp1(k)*r2
enddo
! acc atomic
e01 = e01+ed*gab3(j,i)
! acc atomic
e02 = e02+eq*gab5(j,i)
! acc atomic
e11 = e11+edd*gab5(j,i)
enddo
enddo
! acc end parallel
! acc kernels
e = e01 + e02 + e11
! acc end kernels
! write(*,'(''d,q,dd'',3f9.5)') e01,e02,e11
! write(*,*) ' semilocal CT corr.: ',epol
! acc exit data delete(aesData, aesData%dipKernel(:), aesData%quadKernel(:), &
! acc& at, xyz, q, dipm, qp, gab3, gab5)
end subroutine aniso_electro
! aniso-electro from Fock matrix elements
! nao : # of spherical AOs (SAOs)
! s(nao,nao) : overlap matrix
! aoat2(nao) : SAO to atom intex
! dpint : dipole integral matrix, dimension 3,nao*(nao+1)/2
! qpint : quadrupole integral matrix, dimension 6,nao*(nao+1)/2
! p(nao,nao) : density matrix
! vs(nat) : overlap proportional potential
! vd(3,nat) : dipint proportional potential
! vq(6,nat) : quadrupole proportional potential
subroutine fockelectro(nat,nao,aoat2,p,s,dpint,qpint,vs,vd,vq,e)
use xtb_lin, only : lin
implicit none
integer, intent(in) :: nat,nao,aoat2(nao)
real(wp), intent(in) :: dpint(3,nao,nao),s(nao,nao)
real(wp), intent(in) :: qpint(6,nao,nao),p(nao,nao)
real(wp), intent(in) :: vs(nat),vd(3,nat),vq(6,nat)
real(wp), intent(out) :: e
real(wp) eaes,pji,fji
integer i,j,k,l,ii,jj,ij,kl,kj
! CAMM
eaes = 0.0_wp
ij = 0
do i = 1,nao
ii = aoat2(i)
do j = 1,nao
ij = lin(j,i)
jj = aoat2(j)
fji = 0.0_wp
pji = p(j,i)
fji = fji+s(j,i)*(vs(ii)+vs(jj))
do k = 1,3
fji = fji+dpint(k,i,j)*(vd(k,ii)+vd(k,jj))
enddo
do k = 1,6
fji = fji+qpint(k,i,j)*(vq(k,ii)+vq(k,jj))
enddo
eaes = eaes+pji*fji
enddo
enddo
eaes = 0.250_wp*eaes
! write(*,*) 'EAES',eaes
e = eaes
end subroutine fockelectro
! set-up potential terms v, which are proportional to s, d, or q-integrals
! it is to be multiplied with Sji when stting up Fji (hence, termed vs)
! comes essentially at no cost, once cumulative atomic quadrupole moments are available.
! NEW: the CAMMs were already scaled by scalecamm, but the corresponding potential terms
! including shift terms need to be scaled
! nat : # of atoms
! at(nat) : atom-to-element identifier
! xyz(3,nat) : cartesian coordinates
! q(nat) : atomic partial charges
! dipm(3,nat) : atomic dipole moments
! qp(6,nat) : traceless(!) cumulative atomic quadrupole moments (xx,xy,yy,xz,yz,zz)
! gab3,gab5 : damped Coulomb laws, dimension: nat*(nat+1)/2
! vs(nat) : s-proportional potential from all atoms acting on atom i
! vd(3,nat) : dipint-proportional potential from all atoms acting on atom i
! vq(6,nat) : qpole-int proportional potential from all atoms acting on atom i
subroutine setvsdq(aesData,nat,at,xyz,q,dipm,qp,gab3,gab5,vs,vd,vq)
use xtb_lin, only : lin
implicit none
class(TMultipoleData), intent(in) :: aesData
integer, intent(in) :: nat,at(:)
real(wp), intent(in) :: q(:),dipm(:,:)
real(wp), intent(in) :: xyz(:,:),qp(:,:)
real(wp), intent(in) :: gab3(:,:)
real(wp), intent(in) :: gab5(:,:)
real(wp), intent(out) :: vs(:),vd(:,:),vq(:,:)
real(wp) ra(3),dra(3),rb(3),stmp,dum3a,dum5a,t1a,t2a,t3a,t4a,r2a
real(wp) r2ab,t1b,t2b,t3b,t4b,dum3b,dum5b,dtmp(3),qtmp(6),g3,g5
real(wp) qs1,qs2
integer i,j,k,l1,l2,ll,m,mx,ki,kj
vs = 0.0_wp
vd = 0.0_wp
vq = 0.0_wp
! set up overlap proportional potential
do i = 1,nat
ra(1:3) = xyz(1:3,i)
stmp = 0.0_wp
dtmp = 0.0_wp
qtmp = 0.0_wp
do j = 1,nat
g3 = gab3(j,i)
g5 = gab5(j,i)
rb(1:3) = xyz(1:3,j)
dra(1:3) = ra(1:3)-rb(1:3)
dum3a = 0.0_wp ! collect gab3 dependent terms
dum5a = 0.0_wp ! collect gab5 dependent terms
r2a = 0.0_wp
r2ab = 0.0_wp
t1a = 0.0_wp
t2a = 0.0_wp
t3a = 0.0_wp
t4a = 0.0_wp
ll = 0
do l1 = 1,3
! potential from dipoles
r2a = r2a+ra(l1)*ra(l1) ! R_C * R_C
r2ab = r2ab+dra(l1)*dra(l1) ! R_AC * R_AC
t1a = t1a+ra(l1)*dra(l1) ! R_C * R_AC : for dip-q (q-shift) and dip-dip (q-shift)
t2a = t2a+dipm(l1,j)*dra(l1) ! mu_A * R_AC : for q-dip and dip-dip (q-shift)
t3a = t3a+ra(l1)*dipm(l1,j) ! R_C * mu_A : for diag. dip-dip (q-shift)
t4a = t4a+dra(l1)*dra(l1)*ra(l1)*ra(l1) ! (R_C o R_AC)**"2(square of Hadamard product) :
! results from trace remove from q-pole (q-shift)
do l2 = 1,3
ll = lin(l1,l2)
! potential from quadrupoles
dum5a = dum5a-qp(ll,j)*dra(l1)*dra(l2) &
& -1.50_wp*q(j)*dra(l1)*dra(l2)*ra(l1)*ra(l2)
if(l2.ge.l1) cycle
ki = l1+l2+1
qtmp(ki) = qtmp(ki)-3.0_wp*q(j)*g5*dra(l2)*dra(l1)
enddo
qtmp(l1) = qtmp(l1)-1.50_wp*q(j)*g5*dra(l1)*dra(l1)
enddo
!
! set up S-dependent potential
dum3a = -t1a*q(j)-t2a ! dip-q (q-shift) and q-dip
dum5a = dum5a+t3a*r2ab-3.0_wp*t1a*t2a & !dip-dip (q-shift terms)
& +0.50_wp*q(j)*r2a*r2ab !qpole-q (q-shift, trace removal)
stmp = stmp+dum5a*g5+dum3a*g3
do l1 = 1,3
dum3a = dra(l1)*q(j)
dum5a = 3.0_wp*dra(l1)*t2a & ! dipint-dip
& -r2ab*dipm(l1,j) & ! dipint-dip (diagonal)
& -q(j)*r2ab*ra(l1) & ! qpole-q (dipint-shift, trace removal)
& +3.0_wp*q(j)*dra(l1)*t1a ! qpole-q (dipint-shift)
dtmp(l1) = dtmp(l1)+dum3a*g3+dum5a*g5
qtmp(l1) = qtmp(l1)+0.50_wp*r2ab*q(j)*g5 !remove trace term
enddo
enddo
vs(i) = stmp ! q terms
vd(1:3,i) = dtmp(1:3) ! dipints from atom i
vq(1:6,i) = qtmp(1:6) ! qpints from atom i
! --- CT correction terms
qs1 = aesData%dipKernel(at(i))*2.0_wp
qs2 = aesData%quadKernel(at(i))*6.0_wp ! qpole pot prefactors
t3a = 0.0_wp
t2a = 0.0_wp
do l1 = 1,3
! potential from dipoles
t3a = t3a+ra(l1)*dipm(l1,i)*qs1 ! R_C * mu_C : for diag. dip-dip
vd(l1,i) = vd(l1,i)-qs1*dipm(l1,i)
do l2 = 1,l1-1
! potential from quadrupoles
ll = lin(l1,l2)
ki = l1+l2+1
vq(ki,i) = vq(ki,i)-qp(ll,i)*qs2
t3a = t3a-ra(l1)*ra(l2)*qp(ll,i)*qs2
vd(l1,i) = vd(l1,i)+ra(l2)*qp(ll,i)*qs2
vd(l2,i) = vd(l2,i)+ra(l1)*qp(ll,i)*qs2
enddo
! diagonal
ll = lin(l1,l1)
vq(l1,i) = vq(l1,i)-qp(ll,i)*qs2*0.50_wp
t3a = t3a-ra(l1)*ra(l1)*qp(ll,i)*qs2*0.50_wp
vd(l1,i) = vd(l1,i)+ra(l1)*qp(ll,i)*qs2
! collect trace removal terms
t2a = t2a+qp(ll,i)
enddo
vs(i) = vs(i)+t3a
! trace removal
t2a = t2a*aesData%quadKernel(at(i))
do l1 = 1,3
vq(l1,i) = vq(l1,i)+t2a
vd(l1,i) = vd(l1,i)-2.0_wp*ra(l1)*t2a
vs(i) = vs(i)+t2a*ra(l1)*ra(l1)
enddo
! ---
enddo
! call prmat(6,vs,nat,0,'vs')
end subroutine setvsdq
! set-up potential terms v used for nuclear gradients
! here, the shift terms are removed, since we use multipole derivatives w/ origin at the atoms
! nat : # of atoms
! xyz(3,nat) : cartesian coordinates
! q(nat) : atomic partial charges
! dipm(3,nat) : atomic dipole moments
! qp(6,nat) : traceless(!) cumulative atomic quadrupole moments (xx,xy,yy,xz,yz,zz)
! gab3,gab5 : damped Coulomb laws, dimension: nat*(nat+1)/2
! vs(nat) : s-proportional potential from all atoms acting on atom i
! vd(3,nat) : dipint-proportional potential from all atoms acting on atom i
! vq(6,nat) : qpole-int proportional potential from all atoms acting on atom i
subroutine setdvsdq(aesData,nat,at,xyz,q,dipm,qp,gab3,gab5,vs,vd,vq)
use xtb_lin, only : lin
implicit none
class(TMultipoleData), intent(in) :: aesData
integer, intent(in) :: nat,at(:)
real(wp), intent(in) :: q(:),dipm(:,:)
real(wp), intent(in) :: xyz(:,:),qp(:,:)
real(wp), intent(in) :: gab3(:,:)
real(wp), intent(in) :: gab5(:,:)
real(wp), intent(out) :: vs(:),vd(:,:),vq(:,:)
real(wp) ra(3),dra(3),rb(3),stmp,dum3a,dum5a,t1a,t2a,t3a,t4a,r2a
real(wp) r2ab,t1b,t2b,t3b,t4b,dum3b,dum5b,dtmp(3),qtmp(6),g3,g5
real(wp) qs1,qs2
integer i,j,k,l1,l2,ll,m,mx,ki,kj
vs = 0.0_wp
vd = 0.0_wp
vq = 0.0_wp
! set up overlap proportional potential
do i = 1,nat
ra(1:3) = xyz(1:3,i)
stmp = 0.0_wp
dtmp = 0.0_wp
qtmp = 0.0_wp
do j = 1,nat
g3 = gab3(j,i)
g5 = gab5(j,i)
rb(1:3) = xyz(1:3,j)
dra(1:3) = ra(1:3)-rb(1:3)
dum3a = 0.0_wp ! collect gab3 dependent terms
dum5a = 0.0_wp ! collect gab5 dependent terms
r2a = 0.0_wp
r2ab = 0.0_wp
t2a = 0.0_wp
ll = 0
do l1 = 1,3
! potential from dipoles
r2ab = r2ab+dra(l1)*dra(l1) ! R_AC * R_AC
t2a = t2a+dipm(l1,j)*dra(l1) ! mu_A * R_AC : for q-dip and dip-dip (q-shift)
do l2 = 1,3
ll = lin(l1,l2)
! potential from quadrupoles
dum5a = dum5a-qp(ll,j)*dra(l1)*dra(l2)
if(l2.ge.l1) cycle
ki = l1+l2+1
qtmp(ki) = qtmp(ki)-3.0_wp*q(j)*g5*dra(l2)*dra(l1)
enddo
qtmp(l1) = qtmp(l1)-1.50_wp*q(j)*g5*dra(l1)*dra(l1)
enddo
dum3a = -t2a ! q-dip ! w/o shift terms
stmp = stmp+dum3a*g3+dum5a*g5
do l1 = 1,3
dum3a = dra(l1)*q(j) ! w/o shift terms
dum5a = 3.0_wp*dra(l1)*t2a & ! dipint-dip
& -r2ab*dipm(l1,j) ! dipint-dip (diagonal)
dtmp(l1) = dtmp(l1)+dum3a*g3+dum5a*g5
qtmp(l1) = qtmp(l1)+0.50_wp*r2ab*q(j)*g5 !remove trace term
enddo
enddo
vs(i) = stmp
vd(1:3,i) = dtmp(1:3)
vq(1:6,i) = qtmp(1:6)
! --- CT correction terms
qs1 = aesData%dipKernel(at(i))*2.0_wp
qs2 = aesData%quadKernel(at(i))*6.0_wp ! qpole pot prefactors
t2a = 0.0_wp
do l1 = 1,3
! potential from dipoles
vd(l1,i) = vd(l1,i)-qs1*dipm(l1,i)
do l2 = 1,l1-1
! potential from quadrupoles
ll = lin(l1,l2)
ki = l1+l2+1
vq(ki,i) = vq(ki,i)-qp(ll,i)*qs2
enddo
ll = lin(l1,l1)
vq(l1,i) = vq(l1,i)-qp(ll,i)*qs2*0.50_wp
! collect trace removal terms
t2a = t2a+qp(ll,i)
enddo
! trace removal
t2a = t2a*aesData%quadKernel(at(i))
do l1 = 1,3
vq(l1,i) = vq(l1,i)+t2a
enddo
! ---
enddo
! call prmat(6,vs,nat,0,'vs')
end subroutine setdvsdq
! molmom: computes molecular multipole moments from CAMM
! n : # of atoms
! xyz(3,n) : cartesian coordinates
! q(n) : atomic partial charges
! dipm(3,n) : cumulative atomic dipole moments (x,y,z)
! qp(6,n) : traceless(!) cumulative atomic quadrupole moments (xx,xy,yy,xz,yz,zz)
subroutine molmom(iunit,n,xyz,q,dipm,qp,dip,d3)
use xtb_mctc_convert
use xtb_lin, only : lin
implicit none
integer, intent(in) :: iunit
integer, intent(in) :: n
real(wp), intent(in) :: xyz(:,:),q(:),dipm(:,:),qp(:,:)
real(wp), intent(out) :: dip,d3(:)
real(wp) rr1(3),rr2(3),tma(6),tmb(6),tmc(6),dum
integer i,j,k,l
rr1 = 0.0_wp
rr2 = 0.0_wp
write(iunit,'(a)')
do i = 1,n
do j = 1,3
rr1(j) = rr1(j)+q(i)*xyz(j,i)
rr2(j) = rr2(j)+dipm(j,i)
enddo
enddo
d3(1:3) = rr1(1:3)+rr2(1:3)
dip = sqrt(d3(1)**2+d3(2)**2+d3(3)**2)
write(iunit,'(a)',advance='yes')'molecular dipole:'
write(iunit,'(a)',advance='no')' '
write(iunit,'(a)',advance='yes') &
& 'x y z tot (Debye)'
write(iunit,'(a,3f12.3)') ' q only: ',rr1(1:3)
write(iunit,'(a,4f12.3)') ' full: ',d3(1:3),dip*autod
tma = 0.0_wp
tmb = 0.0_wp
tmc = 0.0_wp
do i = 1,n
l = 0
do j = 1,3
do k = 1,j
l = lin(k,j)
tma(l) = tma(l)+xyz(j,i)*xyz(k,i)*q(i)
tmb(l) = tmb(l)+dipm(k,i)*xyz(j,i)+dipm(j,i)*xyz(k,i)
tmc(l) = tmc(l)+qp(l,i)
enddo
enddo
enddo
! remove traces and multiply with 3/2 in q and dip parts
dum = tma(1)+tma(3)+tma(6)
dum = 0.50_wp*dum
tma = 1.50_wp*tma
l = 0
do j = 1,3
l = l+j
tma(l) = tma(l)-dum
enddo
dum = tmb(1)+tmb(3)+tmb(6)
dum = 0.50_wp*dum
tmb = 1.50_wp*tmb
l = 0
do j = 1,3
l = l+j
tmb(l) = tmb(l)-dum
enddo
write(iunit,'(a)',advance='yes')'molecular quadrupole (traceless):'
write(iunit,'(a)',advance='no')' '
write(iunit,'(a)',advance='no')'xx xy yy '
write(iunit,'(a)',advance='yes')'xz yz zz'
write(iunit,'(a,6f12.3)') ' q only: ',tma(1:6)
write(iunit,'(a,6f12.3)') ' q+dip: ',tma(1:6)+tmb(1:6)
write(iunit,'(a,6f12.3)') ' full: ',tma(1:6)+tmb(1:6)+tmc(1:6)
end subroutine molmom
! molqdip: computes molecular dipole moments from charge only
! n : # of atoms
! xyz(3,n) : cartesian coordinates
! q(n) : atomic partial charges
subroutine molqdip(iunit,n,xyz,q)
use xtb_mctc_convert
implicit none
integer, intent(in) :: iunit
integer, intent(in) :: n
real(wp), intent(in) :: xyz(:,:),q(:)
real(wp) rr1(3), dip
integer i,j
rr1 = 0.0_wp
write(iunit,'(a)')
do i = 1,n
do j = 1,3
rr1(j) = rr1(j)+q(i)*xyz(j,i)
enddo
enddo
dip = sqrt(rr1(1)**2+rr1(2)**2+rr1(3)**2)
write(iunit,'(a)',advance='yes')'molecular dipole:'
write(iunit,'(a)',advance='no')' '
write(iunit,'(a)',advance='yes') &
& 'x y z tot (Debye)'
write(iunit,'(a,4f12.3)') ' q only: ',rr1(1:3),dip*autod
end subroutine molqdip
! gradient evaluation from
! cumulative atomic multipole moment interactions: all interactions up to r**-3
! nat : # of atoms
! xyz(3,nat) : cartesian coordinates
! q(nat) : atomic partial charges
! dipm(3,nat) : cumulative atomic dipole moments (x,y,z)
! qp(6,nat) : traceless(!) cumulative atomic quadrupole moments (xx,xy,yy,xz,yz,zz)
! gab3,gab5 : damped R**-3 and R**-5 Coulomb laws, dimension: nat*(nat+1)/2
! multiplication with numerator then leads to R**-2 and R**-3 decay, respectively
! radcn(nat) : CN-depentent atomic radii
! dcn(3,i,j) : derivative of radcn(j) w.r.t. cartesian directions of i
! exj : exponent in gab, gab3, and gab5 - determines interpolation
! g : nuclear gradient (3)
subroutine aniso_grad(nat,at,xyz,q,dipm,qp,kdmp3,kdmp5, &
& radcn,dcn,gab3,gab5,g)
use xtb_lin, only : lin
!gab3 Hellmann-Feynman terms correct, shift terms to be tested yet
implicit none
integer, intent(in) :: nat,at(:)
real(wp), intent(in) :: xyz(:,:),q(:),dipm(:,:),qp(:,:)
real(wp), intent(in) :: gab3(:,:),gab5(:,:)
real(wp), intent(in) :: kdmp3,kdmp5,radcn(:),dcn(:,:,:)
real(wp), intent(inout) :: g(:,:)
real(wp) qp1(6),rr(3),dip(3),rij(3)
real(wp) ed,eq,edd,e01,e02,e11,r2,tt,tt3,q1,dxi
real(wp) tmp2,tmp3,rab,rabi,ddm2,ddm3a,ddm3b,qqa,qqb
real(wp) dgab3,dgab5,damp1,damp2,ddamp,qs2
integer i,j,k,l,m,ki,kj,kl
do i = 1,nat
q1 = q(i)
rr(1:3) = xyz(1:3,i)
dip(1:3) = dipm(1:3,i)
qp1(1:6) = qp(1:6,i)
tmp2 = 0.0_wp ! cumulate terms propto CN gradient - to scale only quadratically
do j = 1,nat ! loop over other atoms
if(i.eq.j) cycle
kj = lin(j,i)
rij(1:3) = xyz(1:3,j)-rr(1:3)
r2 = sum(rij*rij)
rabi = 1.0_wp/sqrt(r2)
! call dzero(2.0_wp,rabi,at(i),at(j),damp,ddamp)
call dzero(kdmp3,rabi,radcn(i),radcn(j),damp1,ddamp)
dgab3 = dgab(3.0_wp,rabi,damp1,ddamp)
! call dzero(3.0_wp,rabi,at(i),at(j),damp,ddamp)
call dzero(kdmp5,rabi,radcn(i),radcn(j),damp2,ddamp)
dgab5 = dgab(5.0_wp,rabi,damp2,ddamp)
!!! DEBUG
! dgab3 = 0.0_wp
! dgab5 = 0.0_wp
! dgab3 = dgab3*100.0_wp
! dgab5 = dgab5*100.0_wp
!!!
ed = 0.0_wp
edd = 0.0_wp
eq = 0.0_wp
! dipole - charge
do k = 1,3
ed = ed+q(j)*dip(k)*rij(k)
ed = ed-dipm(k,j)*q1*rij(k)
tt = q1*dipm(k,j)-q(j)*dip(k)
! part of dip-q derivative
g(k,i) = g(k,i)+gab3(j,i)*tt
! dip-dip & charge-qpole
ddm2 = 0.0_wp
ddm3a = 0.0_wp
ddm3b = 0.0_wp
qqa = 0.0_wp
qqb = 0.0_wp
do l = 1,3
kl = lin(l,k)
tt = rij(l)*rij(k)
tt3 = 3.0_wp*tt
eq = eq+q(j)*qp1(kl)*tt
eq = eq+qp(kl,j)*q1*tt
edd = edd-dipm(k,j)*dip(l)*tt3
! extra d-d terms
ddm2 = ddm2+dipm(l,j)*dip(l)
ddm3a = ddm3a+dip(l)*rij(l)
ddm3b = ddm3b+dipm(l,j)*rij(l)
! extra q-qpole terms
qqa = qqa+rij(l)*qp(kl,j)
qqb = qqb+rij(l)*qp1(kl)
enddo
edd = edd+dipm(k,j)*dip(k)*r2
g(k,i) = g(k,i)-2.0_wp*gab5(j,i)*ddm2*rij(k)
g(k,i) = g(k,i)+3.0_wp*gab5(j,i)*ddm3a*dipm(k,j)
g(k,i) = g(k,i)+3.0_wp*gab5(j,i)*ddm3b*dip(k)
g(k,i) = g(k,i)-2.0_wp*gab5(j,i)*qqa*q1
g(k,i) = g(k,i)-2.0_wp*gab5(j,i)*qqb*q(j)
enddo
do k = 1,3
dxi = rij(k)*rabi
g(k,i) = g(k,i)-ed*dgab3*dxi
g(k,i) = g(k,i)-(eq+edd)*dgab5*dxi
enddo
! collect terms for CN-dependent part
rab = 0.50_wp*(radcn(i)+radcn(j))
tmp3 = ed*kdmp3*gab3(j,i)*(damp1/rab)*(rab*rabi)**kdmp3
tmp2 = tmp2+tmp3
tmp3 = (eq+edd)*kdmp5*gab5(j,i)*(damp2/rab)*(rab*rabi)**kdmp5
tmp2 = tmp2+tmp3
enddo
! CN-dependent part - O(N^2)
tmp2 = 3.0_wp*tmp2
g(:,:) = g-tmp2*dcn(:,:,i)
enddo
end subroutine aniso_grad
! check and print sparsity w.r.t. individual contribution
! to get an idea
subroutine checkspars(nao,ndp,nqp,nmat,matlist,mqlst,mdlst)
use xtb_lin, only : lin
implicit none
integer,intent(in) :: ndp,nqp,nmat,nao
integer,intent(in) :: matlist(:,:)
integer,intent(in) :: mqlst(:,:),mdlst(:,:)
integer :: i,j,m,k,ntot,mi,mj,ki,kj,mm,kk
logical,allocatable :: nzero(:)
! check overall sparsity
allocate(nzero(nao*(nao+1)/2))
nzero = .false.
do k = 1,ndp
ki = mdlst(1,k)
kj = mdlst(2,k)
kk = lin(ki,kj)
nzero(kk) = .true.
enddo
do k = 1,nqp
ki = mqlst(1,k)
kj = mqlst(2,k)
kk = lin(ki,kj)
nzero(kk) = .true.
enddo
do k = 1,nmat
ki = matlist(1,k)
kj = matlist(2,k)
kk = lin(ki,kj)
nzero(kk) = .true.
enddo
mm = nao*(nao+1)/2
ntot = 0
do i = 1,mm
if(nzero(i)) ntot = ntot+1
enddo
write(*,'(a)',advance='yes') ' '
write(*,'(a)')'% of non-zero elements in H:'
write(*,'('' by overlap:'',f6.2)') &
& 100.*float(nmat)/float(mm)
write(*,'('' by dipole ints.:'',f6.2)') &
& 100.*float(ndp)/float(mm)
write(*,'('' by quadrupole ints.:'',f6.2)') &
& 100.*float(nqp)/float(mm)
write(*,'('' total:'',f6.2)') &
& 100.*float(ntot)/float(mm)
write(*,'(a)',advance='yes') ' '
deallocate(nzero)
end subroutine checkspars
! zero-damped gab
subroutine mmomgabzero(nat,at,xyz,kdmp3,kdmp5,radcn,gab3,gab5)
implicit none
integer, intent(in) :: nat,at(:)
real(wp), intent(in) :: xyz(:,:),radcn(:)
real(wp), intent(in) :: kdmp3,kdmp5
real(wp), intent(out) :: gab3(:,:),gab5(:,:)
real(wp) damp,ddamp
real(wp) tmp1,tmp2,rr(3)
integer i,j,k,l,lin
!!!!!!! set up damped Coulomb operators for multipole interactions
gab3 = 0.0_wp ! for r**-2 decaying q-dip term
gab5 = 0.0_wp ! for r**-3 decaying terms (q-qpol,dip-dip)
do i = 1,nat
do j = 1,nat
if (j.ge.i) cycle
rr(1:3) = xyz(1:3,i)
l = i*(i-1)/2+j
tmp2 = 0.0_wp
do k = 1,3
tmp1 = xyz(k,j)-rr(k)
tmp2 = tmp2+tmp1**2
enddo
tmp1 = 1.0_wp/sqrt(tmp2)
! call dzero(2.0_wp,tmp1,at(i),at(j),damp,ddamp)
call dzero(kdmp3,tmp1,radcn(i),radcn(j),damp,ddamp)
gab3(j,i) = gab(3.0_wp,tmp1,damp)
gab3(i,j) = gab3(j,i)
! call dzero(3.0_wp,tmp1,at(i),at(j),damp,ddamp)
call dzero(kdmp5,tmp1,radcn(i),radcn(j),damp,ddamp)
gab5(j,i) = gab(5.0_wp,tmp1,damp)
gab5(i,j) = gab5(j,i)
enddo
enddo
end subroutine mmomgabzero
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! setup CN-dependet atomic radii
! n : # of atoms
! at(n) : atomic number array
! cn(n) : coordination number of atoms
! shift : global offset from cnval (parameter)
! expo : exponent scaling/ steepness (parameter)
! rmax : maximum radius (parameter)
! radcn : CN-dependent radius
subroutine get_radcn(aesData,n,at,cn,shift,expo,rmax,radcn)
implicit none
class(TMultipoleData), intent(in) :: aesData
integer, intent (in) :: n,at(:)
real(wp), intent (in) :: cn(:),shift,expo,rmax
real(wp), intent (out) :: radcn(:)
real(wp) rco,t1,t2
integer i,j
do i = 1,n
rco = aesData%multiRad(at(i)) ! base radius of element
t1 =cn(i)-aesData%valenceCN(at(i))-shift ! CN - VALCN - SHIFT
t2 =rco +(rmax-rco)/(1.0_wp+exp(-expo*t1))
radcn(i) = t2
enddo
end subroutine get_radcn
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! derivative of CN-dependet atomic radii w.r.t. other atoms
! n : # of atoms
! at(n) : atomic number array
! cn(n) : coordination number of atoms
! shift : global offset from cnval (parameter)
! expo : exponent scaling/ steepness (parameter)
! rmax : maximum radius (parameter)
! dcn : on input : derivatives of CN(j) w.r.t. Cart. directions of i
! : on output : derivatives of RADCN(j) w.r.t. Cart. directions of i
subroutine dradcn(aesData,n,at,cn,shift,expo,rmax,dcn)
implicit none
class(TMultipoleData), intent(in) :: aesData
integer, intent (in) :: n,at(:)
real(wp), intent (in) :: cn(:),shift,expo,rmax
real(wp), intent (inout) :: dcn(:,:,:)
real(wp) rco,t1,t2,t3,t4,tmp1,tmp2
integer i,j,k
do i = 1,n
rco = aesData%multiRad(at(i)) ! base radius of element
t1 =exp(-expo*(cn(i)-aesData%valenceCN(at(i))-shift)) ! CN - VALCN - SHIFT
t2 =(rmax-rco)/(1.0_wp+2.0_wp*t1+t1*t1)
t2 = t2*expo*t1
dcn(:,:,i) = dcn(:,:,i)*t2
end do
end subroutine dradcn
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! zero-damping function and derivative
! rscal : scaling of radii
! dex : exponent in zero-damping function
! rabinv : inverse distance, i.e., 1/Rab
! aradi,radj : CN-dependent atomic number radii
! damp : zero damping function
! ddamp : derivative w.r.t. Rab
subroutine dzero(dex,rabinv,radi,radj,damp,ddamp)
implicit none
real(wp), intent (in) :: radi,radj
real(wp), intent (in) :: rabinv,dex
real(wp), intent (out) :: damp,ddamp
real(wp) rco,f1,f2
! rco = 2.0/(1./aesData%multiRad(ati)+1./aesData%multiRad(atj)) ! unstable
! rco = sqrt(aesData%multiRad(ati)*aesData%multiRad(atj)) ! unstable
rco = 0.5*(radi+radj)
! zero-damping function and gradient w.r.t. Rab
damp = 1.0_wp/(1.0_wp+6.0_wp*(rco*rabinv)**dex)
ddamp = -dex*rabinv*(damp*damp-damp)
end subroutine dzero
!!! gab - computes the damped Coulomb type interaction with dex decay:
! gab = damp * Rab**(-dex)
! dex : exponent defining the decay: Rab**(-dex)
! rabinv : inverse distance, i.e., 1/Rab
! damp : zero damping function
real(wp) function gab(dex,rabinv,damp)
implicit none
real(wp) dex,rabinv,damp
! compute r**dex decaying intermediate
gab = damp*(rabinv**dex) ! LR-decay * damping
end function gab
!!! dgab - computes the derivative w.r.t. Rab of a damped Coulomb type interaction with dex decay:
! gab = damp * Rab**(-dex)
! dex : exponent defining the decay: Rab**(-dex)
! rabinv : inverse distance, i.e., 1/Rab
! damp : zero damping function
! ddamp : derivative of damping function
real(wp) function dgab(dex,rabinv,damp,ddamp)
implicit none
real(wp) dex,rabinv,damp,ddamp,tmp1
! compute r**dex decaying intermediate
tmp1 = -dex*rabinv*(rabinv**dex) ! LR-decay derivative
dgab = tmp1*damp+ddamp*rabinv**dex
end function dgab
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine gfn2broyden_diff(n,istart,nbr,dipm,qp,q_in,dq)
implicit none
integer, intent (in) :: n,nbr
integer, intent (inout) :: istart
real(wp), intent (in) :: dipm(:,:),qp(:,:),q_in(:)
real(wp), intent (inout) :: dq(:)
integer i,j,k
k = istart
do i = 1,n
do j = 1,3
k = k+1
dq(k) = dipm(j,i)-q_in(k)
enddo
do j = 1,6
k = k+1
dq(k) = qp(j,i)-q_in(k)
enddo
enddo
istart = k
end subroutine gfn2broyden_diff
subroutine gfn2broyden_save(n,istart,nbr,dipm,qp,q_in)
implicit none
integer, intent (in) :: n,nbr
integer, intent (inout) :: istart
real(wp), intent (in) :: dipm(:,:),qp(:,:)
real(wp), intent (inout) :: q_in(:)
integer i,j,k
k = istart
do i = 1,n
do j = 1,3
k = k+1
q_in(k) = dipm(j,i)
enddo
do j = 1,6
k = k+1
q_in(k) = qp(j,i)
enddo
enddo
istart = k
end subroutine gfn2broyden_save
subroutine gfn2broyden_out(n,istart,nbr,q_in,dipm,qp)
implicit none
integer, intent (in) :: n,nbr
integer, intent (inout) :: istart
real(wp), intent (in) :: q_in(:)
real(wp), intent (out) :: dipm(:,:),qp(:,:)
integer i,j,k
k = istart
do i = 1,n
do j = 1,3
k = k+1
dipm(j,i) = q_in(k)
enddo
do j = 1,6
k = k+1
qp(j,i) = q_in(k)
enddo
enddo
istart = k
end subroutine gfn2broyden_out
end module xtb_aespot
xtb-6.7.1/src/anharmlib.f90 0000664 0000000 0000000 00000007033 14650006642 0015374 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public Licen
! along with xtb. If not, see .
module xtb_anharmlib
contains
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! analyze a pot curve with n points for stationary points
! xx are the grid points, yy the energies and yy* the
! derivatives
! nstat is the number of stationary points found
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine curveanal(n,xx,yy,yy1,yy2,list,ityp,nstat,eps)
use xtb_mctc_accuracy, only : wp
implicit none
integer n
real(wp) xx(n),yy(n),yy1(n),yy2(n),eps
integer list(*),ityp(*),nstat
integer i,j,k,kk,mem,it1,it2,icall
real(wp) xmin,av,dx,dxmax
character*15 typ(3)
write(*,*) 'analysis of potential (stationary points)'
typ( 1)='##saddle '
typ( 2)='##probably min.'
typ( 3)='##minimum '
! do i=1,n
! write(142,*) xx(i),yy(i)
! enddo
! write(142,*)
! do i=1,n
! write(142,*) xx(i),yy1(i)
! enddo
! write(142,*)
dxmax=xx(n)-xx(1)
av=0
k =0
do i=1,n
if(abs(yy1(i)).gt.1.d-6)then
av=av+abs(yy1(i))
k=k+1
endif
enddo
av=av/dble(k)
eps=0.05*av
k=0
icall=0
1 continue
write(*,*) 'epsilon (for zero check in Eh/Bohr) : ',eps
if(eps.ne.eps) stop
i=1
10 if(abs(yy1(i)).lt.eps.and.abs(yy2(i)).gt.1.d-9)then
k=k+1
xmin=1.d+42
do j=i,i+50
if(abs(yy1(j)).lt.xmin)then
mem=j
xmin=abs(yy1(j))
endif
enddo
list(k)=mem
ityp(k)=2+int(sign(1.0d0,yy2(list(k))))
i=j+50 ! skip
if(k.gt.1)then ! check if the the same point is close
it2=2+int(sign(1.0d0,yy2(list(k-1))))
dx=abs(xx(list(k))-xx(list(k-1)))
if(ityp(k).eq.it2.and.dx/dxmax.lt.0.1)&
& k=k-1 ! invalid because its close
if(k.gt.100) stop 'too many stationary points'
endif
endif
i=i+1
if(i.lt.n) goto 10
if(k.eq.0.and.icall.lt.10) then
eps=eps*5.
icall=icall+1
goto 1
endif
! check the borders
kk=k
i =1
! do i=1,k
if(ityp(i).eq.1)then
if(yy(list(i)).gt.yy(2))then
kk=kk+1
ityp(kk)=2
do j=1,n
if(abs(yy2(j)).gt.eps)then
list(kk)=j
goto 20
endif
enddo
endif
endif
! enddo
20 continue
! do i=k,1,-1
i=k
if(ityp(i).eq.1)then
if(yy(list(i)).gt.yy(n-1))then
kk=kk+1
ityp(kk)=2
do j=n,1,-1
if(abs(yy2(j)).gt.eps)then
list(kk)=j
goto 30
endif
enddo
endif
endif
! enddo
30 continue
do i=1,kk
write(*,'(i3,2x,a15,'' at '',f8.3,5x,''Erel /kcal '',f8.2)') &
& i,typ(ityp(i)),&
& xx(list(i)),yy(list(i))*627.509
enddo
nstat = kk
end subroutine
end module xtb_anharmlib
xtb-6.7.1/src/aoparam.f90 0000664 0000000 0000000 00000011213 14650006642 0015052 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_aoparam
use xtb_mctc_accuracy, only : wp
use xtb_mctc_convert
use xtb_mctc_param, only: pauling_en, covalent_radius_2010, chemical_hardness, &
& covalent_radius_d3
use xtb_type_param, only : TxTBParameter
implicit none
private
integer, public, parameter :: max_elem = 118
integer, public, parameter :: max_sh = 10
type, public :: tb_parameter
real(wp) :: en = 1.50_wp
real(wp) :: mc = 0.0_wp
real(wp) :: rad = 0.0_wp
real(wp) :: gam = 0.0_wp
real(wp) :: gam3 = 0.0_wp
real(wp) :: alp0 = 0.0_wp
real(wp) :: wll(max_sh) = 0.0_wp
real(wp) :: rep(2) = 0.0_wp
real(wp) :: polyr(4) = 0.0_wp
real(wp) :: cxb = 0.0_wp
real(wp) :: ao_exp(max_sh) = 0.0_wp
real(wp) :: ao_lev(max_sh) = 0.0_wp
real(wp) :: lpar(0:2) = 0.0_wp
real(wp) :: kcnat(0:2) = 0.0_wp
real(wp) :: kqat(3) = 0.0_wp
real(wp) :: radaes = 5.0_wp
real(wp) :: dpolc = 0.0_wp
real(wp) :: qpolc = 0.0_wp
integer :: ao_pqn(max_sh) = 0
integer :: ao_l(max_sh) = 0
integer :: ao_n = 0
integer :: ao_typ(max_sh) = 0
integer :: metal = 0
integer :: cnval = 0
character(len=30) :: timestp='------------------------------'
end type tb_parameter
character, parameter :: flag = '$'
character, parameter :: space = ' '
character, parameter :: equal = '='
character, parameter :: hash = '#'
character, parameter :: dot = '.'
character(len=*), parameter :: flag_end = '$end'
real(wp), public :: en(max_elem) = pauling_en
real(wp), public :: mc(max_elem)
real(wp), public :: rad(max_elem) = covalent_radius_2010 * autoaa
real(wp), public :: gam(max_elem) = chemical_hardness
real(wp), public :: gam3(max_elem)
real(wp), public :: alp0(max_elem)
real(wp), public :: wll(max_elem,10)
real(wp), public :: rep(2,max_elem)
real(wp), public :: polyr(4,max_elem)
real(wp), public :: cxb(max_elem)
real(wp), public :: eeqkcn(max_elem)
real(wp), public :: kqat2(max_elem)
real(wp), public :: ao_exp(10,max_elem)
real(wp), public :: ao_lev(10,max_elem)
real(wp), public :: lpar(0:2,max_elem)
real(wp), public :: kpair(max_elem,max_elem)
real(wp), public :: kcnat(0:2,max_elem)
real(wp), public :: kqat(3,max_elem)
real(wp), public :: radaes(max_elem) = covalent_radius_d3
real(wp), public :: eeqEN(max_elem)
real(wp), public :: dpolc(max_elem)
real(wp), public :: qpolc(max_elem)
integer, public :: ao_pqn(10,max_elem)
integer, public :: ao_l(10,max_elem)
integer, public :: ao_n(max_elem)
integer, public :: ao_typ(10,max_elem)
integer, public :: metal(max_elem)
integer, public :: cnval(max_elem)
character(len=30), public :: timestp(max_elem)
data metal / &
& 0, 0, &! H-He
& 1, 1, 1, 0, 0, 0, 0, 0, &! Li-Ne
& 1, 1, 1, 0, 0, 0, 0, 0, &! Na-Ar
& 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, &! K-Kr
& 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, &! Rb-Xe
& 1, 1, &! Cs/Ba
& 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, &!La-Lu
& 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, &! Lu-Rn
& 1, 1, &
& 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, &!Fr-
& 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0 /! -Og
data cnval / & ! normal CN used in CN dep. AES damping
& 1, 1, &
& 1, 2, 3, 3, 3, 2, 1, 1, &
& 1, 2, 3, 3, 3, 3, 1, 1, &
& 1, 2, 4, 4, 6, 6, 6, 6, 6, 4, 4, 2, 3, 3, 3, 3, 1, 1, &
& 1, 2, 4, 4, 6, 6, 6, 6, 6, 4, 4, 2, 3, 3, 3, 3, 1, 1, &
& 1, 2, 4,14*6, 4, 6, 6, 6, 6, 6, 4, 4, 2, 3, 3, 3, 3, 1, 1, &
& 2*0, 14*0, 10*0, 6*0 /
contains
end module xtb_aoparam
xtb-6.7.1/src/api/ 0000775 0000000 0000000 00000000000 14650006642 0013665 5 ustar 00root root 0000000 0000000 xtb-6.7.1/src/api/CMakeLists.txt 0000664 0000000 0000000 00000001705 14650006642 0016430 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
set(dir "${CMAKE_CURRENT_SOURCE_DIR}")
list(APPEND srcs
"${dir}/calculator.f90"
"${dir}/environment.f90"
"${dir}/molecule.f90"
"${dir}/interface.f90"
"${dir}/results.f90"
"${dir}/utils.f90"
"${dir}/version.f90"
)
set(srcs ${srcs} PARENT_SCOPE)
xtb-6.7.1/src/api/calculator.f90 0000664 0000000 0000000 00000046536 14650006642 0016354 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> API for dealing with the single point calculator
module xtb_api_calculator
use, intrinsic :: iso_c_binding
use xtb_mctc_accuracy, only : wp
use xtb_mctc_io
use xtb_mctc_systools, only : rdpath
use xtb_api_environment
use xtb_api_molecule
use xtb_api_utils
use xtb_gfnff_calculator
use xtb_type_pcem
use xtb_main_setup
use xtb_solv_kernel
use xtb_solv_input
use xtb_solv_state
use xtb_type_environment
use xtb_type_molecule
use xtb_type_calculator
use xtb_xtb_calculator
implicit none
private
public :: VCalculator
public :: newCalculator_api, delCalculator_api
public :: loadGFNFF_api, loadGFN0xTB_api, loadGFN1xTB_api, loadGFN2xTB_api
public :: setSolvent_api, releaseSolvent_api
public :: setExternalCharges_api, releaseExternalCharges_api
public :: setAccuracy_api, setElectronicTemp_api, setMaxIter_api
!> Void pointer to single point calculator
type :: VCalculator
class(TCalculator), allocatable :: ptr
end type VCalculator
contains
function newCalculator_api() result(vcalc) &
& bind(C, name="xtb_newCalculator")
!DEC$ ATTRIBUTES DLLEXPORT :: newCalculator_api
type(VCalculator), pointer :: calc
type(c_ptr) :: vcalc
call checkGlobalEnv
allocate(calc)
vcalc = c_loc(calc)
end function newCalculator_api
subroutine delCalculator_api(vcalc) &
& bind(C, name="xtb_delCalculator")
!DEC$ ATTRIBUTES DLLEXPORT :: delCalculator_api
type(c_ptr), intent(inout) :: vcalc
type(VCalculator), pointer :: calc
call checkGlobalEnv
if (c_associated(vcalc)) then
call c_f_pointer(vcalc, calc)
deallocate(calc)
vcalc = c_null_ptr
end if
end subroutine delCalculator_api
subroutine loadGFNFF_api(venv, vmol, vcalc, charptr) &
& bind(C, name="xtb_loadGFNFF")
!DEC$ ATTRIBUTES DLLEXPORT :: loadGFNFF_api
character(len=*), parameter :: source = 'xtb_api_loadGFNFF'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vmol
type(VMolecule), pointer :: mol
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
character(kind=c_char), intent(in), optional :: charptr(*)
character(len=:, kind=c_char), allocatable :: dummy, filename
character(len=*), parameter :: pFilename = '.param_gfnff.xtb'
type(TGFFCalculator), allocatable :: gff
logical :: exist, exitRun
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vmol)) then
call env%ptr%error("Molecular structure data is not allocated", source)
return
end if
call c_f_pointer(vmol, mol)
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (present(charptr)) then
call c_f_character(charptr, dummy)
else
dummy = pFilename
end if
inquire(file=dummy, exist=exist)
if (.not.exist) then
call rdpath(env%ptr%xtbpath, dummy, filename, exist)
if (.not.exist) then
filename = dummy
end if
else
filename = dummy
end if
allocate(gff)
call newGFFCalculator(env%ptr, mol%ptr, gff, filename, .false.)
call env%ptr%check(exitRun)
if (exitRun) then
call env%ptr%error("Could not construct GFN-FF calculator", source)
return
end if
call move_alloc(gff, calc%ptr)
end if
end subroutine loadGFNFF_api
subroutine loadGFN0xTB_api(venv, vmol, vcalc, charptr) &
& bind(C, name="xtb_loadGFN0xTB")
!DEC$ ATTRIBUTES DLLEXPORT :: loadGFN0xTB_api
character(len=*), parameter :: source = 'xtb_api_loadGFN0xTB'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vmol
type(VMolecule), pointer :: mol
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
character(kind=c_char), intent(in), optional :: charptr(*)
character(len=:, kind=c_char), allocatable :: dummy, filename
character(len=*), parameter :: pFilename = 'param_gfn0-xtb.txt'
type(TxTBCalculator), allocatable :: xtb
logical :: exist, exitRun
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vmol)) then
call env%ptr%error("Molecular structure data is not allocated", source)
return
end if
call c_f_pointer(vmol, mol)
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (present(charptr)) then
call c_f_character(charptr, dummy)
else
dummy = pFilename
end if
inquire(file=dummy, exist=exist)
if (.not.exist) then
call rdpath(env%ptr%xtbpath, dummy, filename, exist)
if (.not.exist) then
filename = dummy
end if
else
filename = dummy
end if
allocate(xtb)
call newXTBCalculator(env%ptr, mol%ptr, xtb, filename)
call env%ptr%check(exitRun)
if (exitRun) then
call env%ptr%error("Could not construct GFN0-xTB calculator", source)
return
end if
call move_alloc(xtb, calc%ptr)
end if
end subroutine loadGFN0xTB_api
subroutine loadGFN1xTB_api(venv, vmol, vcalc, charptr) &
& bind(C, name="xtb_loadGFN1xTB")
!DEC$ ATTRIBUTES DLLEXPORT :: loadGFN1xTB_api
character(len=*), parameter :: source = 'xtb_api_loadGFN1xTB'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vmol
type(VMolecule), pointer :: mol
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
character(kind=c_char), intent(in), optional :: charptr(*)
character(len=:, kind=c_char), allocatable :: dummy, filename
character(len=*), parameter :: pFilename = 'param_gfn1-xtb.txt'
type(TxTBCalculator), allocatable :: xtb
logical :: exist, exitRun
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vmol)) then
call env%ptr%error("Molecular structure data is not allocated", source)
return
end if
call c_f_pointer(vmol, mol)
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (present(charptr)) then
call c_f_character(charptr, dummy)
else
dummy = pFilename
end if
inquire(file=dummy, exist=exist)
if (.not.exist) then
call rdpath(env%ptr%xtbpath, dummy, filename, exist)
if (.not.exist) then
filename = dummy
end if
else
filename = dummy
end if
allocate(xtb)
call newXTBCalculator(env%ptr, mol%ptr, xtb, filename)
call env%ptr%check(exitRun)
if (exitRun) then
call env%ptr%error("Could not construct GFN1-xTB calculator", source)
return
end if
call move_alloc(xtb, calc%ptr)
end if
end subroutine loadGFN1xTB_api
subroutine loadGFN2xTB_api(venv, vmol, vcalc, charptr) &
& bind(C, name="xtb_loadGFN2xTB")
!DEC$ ATTRIBUTES DLLEXPORT :: loadGFN2xTB_api
character(len=*), parameter :: source = 'xtb_api_loadGFN2xTB'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vmol
type(VMolecule), pointer :: mol
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
character(kind=c_char), intent(in), optional :: charptr(*)
character(len=:, kind=c_char), allocatable :: dummy, filename
character(len=*), parameter :: pFilename = 'param_gfn2-xtb.txt'
type(TxTBCalculator), allocatable :: xtb
logical :: exist, exitRun
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vmol)) then
call env%ptr%error("Molecular structure data is not allocated", source)
return
end if
call c_f_pointer(vmol, mol)
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (present(charptr)) then
call c_f_character(charptr, dummy)
else
dummy = pFilename
end if
inquire(file=dummy, exist=exist)
if (.not.exist) then
call rdpath(env%ptr%xtbpath, dummy, filename, exist)
if (.not.exist) then
filename = dummy
end if
else
filename = dummy
end if
allocate(xtb)
call newXTBCalculator(env%ptr, mol%ptr, xtb, filename)
call env%ptr%check(exitRun)
if (exitRun) then
call env%ptr%error("Could not construct GFN2-xTB calculator", source)
return
end if
call move_alloc(xtb, calc%ptr)
end if
end subroutine loadGFN2xTB_api
!> Add a solvation model to calculator (requires loaded parametrisation)
subroutine setSolvent_api(venv, vcalc, charptr, state, temperature, grid) &
& bind(C, name="xtb_setSolvent")
!DEC$ ATTRIBUTES DLLEXPORT :: setSolvent_api
character(len=*), parameter :: source = 'xtb_api_setSolvent'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
character(kind=c_char), intent(in) :: charptr(*)
integer(c_int), intent(in), optional :: state
real(c_double), intent(in), optional :: temperature
integer(c_int), intent(in), optional :: grid
character(len=:), allocatable :: solvent
type(TSolvInput) :: input
integer :: gsolvstate, nang
real(wp) :: temp
logical :: exitRun
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (.not.allocated(calc%ptr)) then
call env%ptr%error("No calculator loaded to add solvation model", source)
return
end if
if (present(state)) then
gsolvstate = state
else
gsolvstate = solutionState%gsolv
end if
if (present(temperature)) then
temp = temperature
else
temp = 298.15_wp
end if
if (present(grid)) then
nang = grid
else
nang = 230
end if
call c_f_character(charptr, solvent)
! PGI 20.5 cannot use default constructor with deferred-length characters:
! input = TSolvInput(solvent=solvent, temperature=temp, state=gsolvstate, &
! & nang=nang)
input%solvent = solvent
input%temperature = temp
input%state = gsolvstate
input%nang = nang
input%alpb = .false.
input%kernel = gbKernel%still
call addSolvationModel(env%ptr, calc%ptr, input)
call env%ptr%check(exitRun)
if (exitRun) then
call env%ptr%error("Could not add solvation model for '"//solvent//"'", &
& source)
return
end if
end if
end subroutine setSolvent_api
!> Unset the solvation model
subroutine releaseSolvent_api(venv, vcalc) &
& bind(C, name="xtb_releaseSolvent")
!DEC$ ATTRIBUTES DLLEXPORT :: releaseSolvent_api
character(len=*), parameter :: source = 'xtb_api_setRelease'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (allocated(calc%ptr)) then
calc%ptr%lSolv = .false.
if (allocated(calc%ptr%solvation)) then
deallocate(calc%ptr%solvation)
end if
end if
end if
end subroutine releaseSolvent_api
!> Add a external charge potential to calculator (only supported in GFN1/2-xTB)
subroutine setExternalCharges_api(venv, vcalc, npc, numbers, charges, positions) &
& bind(C, name="xtb_setExternalCharges")
!DEC$ ATTRIBUTES DLLEXPORT :: setExternalCharges_api
character(len=*), parameter :: source = 'xtb_api_setExternalCharges'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
integer(c_int), intent(in) :: npc
integer(c_int), intent(in) :: numbers(*)
real(c_double), intent(in) :: charges(*)
real(c_double), intent(in) :: positions(3, *)
integer :: ii
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (npc <= 0) then
call env%ptr%error("Negative number of point charges provided", source)
return
end if
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (.not.allocated(calc%ptr)) then
call env%ptr%error("No calculator loaded to add external potential", &
& source)
return
end if
select type(xtb => calc%ptr)
class default
call env%ptr%error("Calculator does not support external potentials", &
& source)
return
type is(TxTBCalculator)
if (xtb%xtbData%level == 0) then
call env%ptr%error("GFN0-xTB does not support external potentials", &
& source)
return
end if
call xtb%pcem%allocate(npc)
do ii = 1, npc
xtb%pcem%xyz(:, ii) = positions(:, ii)
xtb%pcem%gam(ii) = xtb%xtbData%coulomb%chemicalHardness(numbers(ii))
xtb%pcem%q(ii) = charges(ii)
end do
end select
end if
end subroutine setExternalCharges_api
!> Unset the external charge potential
subroutine releaseExternalCharges_api(venv, vcalc) &
& bind(C, name="xtb_releaseExternalCharges")
!DEC$ ATTRIBUTES DLLEXPORT :: releaseExternalCharges_api
character(len=*), parameter :: source = 'xtb_api_releaseExternalCharges'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
! There are only limited cases when we need to perform any action.
! Deconstructors should behave nicely, therefore no errors on wrong input.
if (allocated(calc%ptr)) then
select type(xtb => calc%ptr)
type is(TxTBCalculator)
call xtb%pcem%deallocate
end select
end if
end if
end subroutine releaseExternalCharges_api
subroutine setAccuracy_api(venv, vcalc, accuracy) &
& bind(C, name="xtb_setAccuracy")
!DEC$ ATTRIBUTES DLLEXPORT :: setAccuracy_api
character(len=*), parameter :: source = 'xtb_api_setAccuracy'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
real(c_double), value, intent(in) :: accuracy
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (.not.allocated(calc%ptr)) then
call env%ptr%error("Setting accuracy not possible, no calculator loaded", &
& source)
return
end if
if (accuracy < 1.e-4_c_double) then
call env%ptr%warning("We cannot provide this level of accuracy, "//&
& "resetted accuracy to 0.0001", source)
calc%ptr%accuracy = 1.e-4_wp
else if (accuracy > 1.e+3_c_double) then
call env%ptr%warning("We cannot provide this level of accuracy, "//&
& "resetted accuracy to 1000", source)
calc%ptr%accuracy = 1.e+3_wp
else
calc%ptr%accuracy = accuracy
end if
end if
end subroutine setAccuracy_api
subroutine setMaxIter_api(venv, vcalc, maxiter) &
& bind(C, name="xtb_setMaxIter")
!DEC$ ATTRIBUTES DLLEXPORT :: setMaxIter_api
character(len=*), parameter :: source = 'xtb_api_setMaxIter'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
integer(c_int), value, intent(in) :: maxiter
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (.not.allocated(calc%ptr)) then
call env%ptr%error("Setting accuracy not possible, no calculator loaded", &
& source)
return
end if
select type(xtb => calc%ptr)
class default
call env%ptr%warning("Cannot set iterations for non-iterative method", &
& source)
type is(TxTBCalculator)
xtb%maxiter = max(maxiter, 1)
end select
end if
end subroutine setMaxIter_api
subroutine setElectronicTemp_api(venv, vcalc, temperature) &
& bind(C, name="xtb_setElectronicTemp")
!DEC$ ATTRIBUTES DLLEXPORT :: setElectronicTemp_api
character(len=*), parameter :: source = 'xtb_api_setElectronicTemp'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
real(c_double), value, intent(in) :: temperature
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (.not.allocated(calc%ptr)) then
call env%ptr%error("Setting accuracy not possible, no calculator loaded", &
& source)
return
end if
select type(xtb => calc%ptr)
class default
call env%ptr%warning("Calculator does not support electronic temperature", &
& source)
type is(TxTBCalculator)
xtb%etemp = max(temperature, 1.0e-6_c_double)
end select
end if
end subroutine setElectronicTemp_api
end module xtb_api_calculator
xtb-6.7.1/src/api/environment.f90 0000664 0000000 0000000 00000015467 14650006642 0016566 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> API for dealing with the calculation environment
module xtb_api_environment
use, intrinsic :: iso_c_binding
use xtb_mctc_accuracy, only : wp
use xtb_mctc_io
use xtb_api_utils
use xtb_type_environment
use xtb_xtb_calculator
implicit none
private
public :: VEnvironment
public :: newEnvironment_api, delEnvironment_api, checkEnvironment_api, &
& showEnvironment_api, setOutput_api, releaseOutput_api, setVerbosity_api, &
& getError_api
!> Void pointer to calculation environment
type :: VEnvironment
type(TEnvironment) :: ptr
integer :: verbosity
end type VEnvironment
contains
!> Create new xtb calculation environment object
function newEnvironment_api() result(venv) &
& bind(C, name="xtb_newEnvironment")
!DEC$ ATTRIBUTES DLLEXPORT :: newEnvironment_api
type(VEnvironment), pointer :: env
type(c_ptr) :: venv
call checkGlobalEnv
allocate(env)
call init(env%ptr)
env%verbosity = 1
venv = c_loc(env)
end function newEnvironment_api
!> Delete a xtb calculation environment object
subroutine delEnvironment_api(venv) &
& bind(C, name="xtb_delEnvironment")
!DEC$ ATTRIBUTES DLLEXPORT :: delEnvironment_api
type(c_ptr), intent(inout) :: venv
type(VEnvironment), pointer :: env
call releaseOutput_api(venv)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
deallocate(env)
venv = c_null_ptr
end if
end subroutine delEnvironment_api
!> Check current status of calculation environment
function checkEnvironment_api(venv) result(status) &
& bind(C, name="xtb_checkEnvironment")
!DEC$ ATTRIBUTES DLLEXPORT :: checkEnvironment_api
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
integer(c_int) :: status
logical :: exitRun
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
call env%ptr%check(exitRun)
if (exitRun) then
status = 1
else
status = 0
end if
end if
end function checkEnvironment_api
!> Show and empty error stack
subroutine showEnvironment_api(venv, charptr) &
& bind(C, name="xtb_showEnvironment")
!DEC$ ATTRIBUTES DLLEXPORT :: showEnvironment_api
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
character(kind=c_char), intent(in), optional :: charptr(*)
character(len=:, kind=c_char), allocatable :: message
if (present(charptr)) then
call c_f_character(charptr, message)
else
message = ''
end if
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
call env%ptr%show(message)
end if
end subroutine showEnvironment_api
!> Bind output from this environment
subroutine setOutput_api(venv, charptr) &
& bind(C, name="xtb_setOutput")
!DEC$ ATTRIBUTES DLLEXPORT :: setOutput_api
character(len=*), parameter :: source = 'xtb_api_setOutput'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
character(kind=c_char), intent(in) :: charptr(*)
character(len=:, kind=c_char), allocatable :: filename
integer :: stat
character(len=512) :: message
call c_f_character(charptr, filename)
call releaseOutput_api(venv)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (filename == c_char_'-' .or. filename == c_char_'STDOUT') then
env%ptr%unit = stdout
else if (filename == c_char_'STDERR') then
env%ptr%unit = stderr
else
open(file=filename, newunit=env%ptr%unit, iostat=stat, iomsg=message)
if (stat /= 0) then
call env%ptr%error(trim(message), source)
end if
end if
end if
end subroutine setOutput_api
!> Release output unit from this environment
subroutine releaseOutput_api(venv) &
& bind(C, name="xtb_releaseOutput")
!DEC$ ATTRIBUTES DLLEXPORT :: releaseOutput_api
character(len=*), parameter :: source = 'xtb_api_releaseOutput'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
integer :: stat
character(len=512) :: message
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.any(env%ptr%unit /= [-1, stdout, stderr])) then
close(unit=env%ptr%unit, iostat=stat, iomsg=message)
if (stat /= 0) then
call env%ptr%error(trim(message), source)
end if
end if
end if
end subroutine releaseOutput_api
!> Set verbosity of calculation output
subroutine setVerbosity_api(venv, verbosity) &
& bind(C, name="xtb_setVerbosity")
!DEC$ ATTRIBUTES DLLEXPORT :: setVerbosity_api
character(len=*), parameter :: source = 'xtb_api_setVerbosity'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
integer, value :: verbosity
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.any(verbosity /= [0_c_int, 1_c_int, 2_c_int])) then
call env%ptr%warning("Verbosity specified is out of range", source)
end if
env%verbosity = verbosity
end if
end subroutine setVerbosity_api
!> Set verbosity of calculation output
subroutine getError_api(venv, charptr, buffersize) &
& bind(C, name="xtb_getError")
!DEC$ ATTRIBUTES DLLEXPORT :: setVerbosity_api, getError_api
character(len=*), parameter :: source = 'xtb_api_getError'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
character(kind=c_char), intent(inout) :: charptr(*)
character(len=:, kind=c_char), allocatable :: buffer
integer(c_int), intent(in), optional :: buffersize
logical :: exitRun
integer :: maxLength
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (present(buffersize)) then
maxLength = buffersize
else
maxLength = huge(maxlength) - 2
end if
call env%ptr%check(exitRun)
if (exitRun) then
call env%ptr%getLog(buffer)
if (len(buffer) > 0) then
call f_c_character(buffer, charptr, maxLength)
end if
end if
end if
end subroutine getError_api
end module xtb_api_environment
xtb-6.7.1/src/api/interface.f90 0000664 0000000 0000000 00000011554 14650006642 0016153 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> Actual calculation interface
module xtb_api_interface
use, intrinsic :: iso_c_binding
use xtb_mctc_accuracy, only : wp
use xtb_api_calculator
use xtb_api_environment
use xtb_api_molecule
use xtb_api_results
use xtb_api_utils
use xtb_gfnff_calculator, only : TGFFCalculator
use xtb_scc_core, only : iniqshell
use xtb_type_data, only : scc_results
use xtb_xtb_calculator, only : TxTBCalculator, newWavefunction
implicit none
private
public :: singlepoint_api
contains
subroutine singlepoint_api(venv, vmol, vcalc, vres) &
& bind(C, name="xtb_singlepoint")
!DEC$ ATTRIBUTES DLLEXPORT :: singlepoint_api
character(len=*), parameter :: source = 'xtb_api_singlepoint'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vmol
type(VMolecule), pointer :: mol
type(c_ptr), value :: vcalc
type(VCalculator), pointer :: calc
type(c_ptr), value :: vres
type(VResults), pointer :: res
type(scc_results) :: spRes
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vmol)) then
call env%ptr%error("Molecular structure data is not allocated", source)
return
end if
call c_f_pointer(vmol, mol)
if (.not.c_associated(vcalc)) then
call env%ptr%error("Singlepoint calculator is not allocated", source)
return
end if
call c_f_pointer(vcalc, calc)
if (.not.allocated(calc%ptr)) then
call env%ptr%error("No calculator loaded for single point", &
& source)
return
end if
if (.not.c_associated(vres)) then
call env%ptr%error("Calculation results are not allocated", source)
return
end if
call c_f_pointer(vres, res)
! check cache, automatically invalidate missmatched data
if (allocated(res%chk)) then
select type(xtb => calc%ptr)
type is(TxTBCalculator)
if (res%chk%wfn%n /= mol%ptr%n .or. res%chk%wfn%n /= xtb%basis%n .or. &
& res%chk%wfn%nao /= xtb%basis%nao .or. &
& res%chk%wfn%nshell /= xtb%basis%nshell) then
deallocate(res%chk)
end if
end select
end if
if (.not.allocated(res%chk)) then
allocate(res%chk)
! in case of a new wavefunction cache we have to perform an initial guess
select type(xtb => calc%ptr)
type is(TxTBCalculator)
call newWavefunction(env%ptr, mol%ptr, xtb, res%chk)
end select
end if
if (.not.allocated(res%energy)) then
allocate(res%energy)
end if
if (.not.allocated(res%egap)) then
allocate(res%egap)
end if
if (allocated(res%pcgradient)) then
deallocate(res%pcgradient)
end if
if (allocated(res%gradient)) then
if (any(shape(res%gradient) /= [3, mol%ptr%n])) then
call env%ptr%warning("Shape missmatch in gradient, reallocating", source)
deallocate(res%gradient)
end if
end if
if (.not.allocated(res%gradient)) then
allocate(res%gradient(3, mol%ptr%n))
end if
if (allocated(res%sigma)) then
if (any(shape(res%sigma) /= [3, 3])) then
call env%ptr%warning("Shape missmatch in virial, reallocating", source)
deallocate(res%sigma)
end if
end if
if (.not.allocated(res%sigma)) then
allocate(res%sigma(3, 3))
end if
! singlepoint calculation
call calc%ptr%singlepoint(env%ptr, mol%ptr, res%chk, env%verbosity, .true., &
& res%energy, res%gradient, res%sigma, res%egap, spRes)
! invalidate cache for properties not produced in GFN-FF
select type(gfnff => calc%ptr)
type is(TGFFCalculator)
deallocate(res%chk)
deallocate(res%egap)
deallocate(res%sigma)
end select
! check if external charge gradients have been calculated
if (allocated(spRes%pcem%grd) .and. spRes%pcem%n > 0) then
res%pcgradient = spRes%pcem%grd
end if
res%dipole = spRes%dipole
end if
end subroutine singlepoint_api
end module xtb_api_interface
xtb-6.7.1/src/api/meson.build 0000664 0000000 0000000 00000001521 14650006642 0016026 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
srcs += files(
'calculator.f90',
'environment.f90',
'molecule.f90',
'interface.f90',
'results.f90',
'utils.f90',
'version.f90',
)
xtb-6.7.1/src/api/molecule.f90 0000664 0000000 0000000 00000011225 14650006642 0016013 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> API for dealing with molecular structure data
module xtb_api_molecule
use, intrinsic :: iso_c_binding
use xtb_mctc_accuracy, only : wp
use xtb_api_environment
use xtb_api_utils
use xtb_type_molecule
implicit none
private
public :: VMolecule
public :: newMolecule_api, delMolecule_api, updateMolecule_api
!> Void pointer to molecular structure data
type :: VMolecule
type(TMolecule) :: ptr
end type VMolecule
!> Maximum accepted atomic number, actual calculator might accept less
integer, parameter :: maxElem = 118
contains
function newMolecule_api(venv, natoms, numbers, positions, charge, uhf, lattice, &
& periodic) result(vmol) &
& bind(C, name="xtb_newMolecule")
!DEC$ ATTRIBUTES DLLEXPORT :: newMolecule_api
character(len=*), parameter :: source = 'xtb_api_newMolecule'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
integer(c_int), intent(in) :: natoms
integer(c_int), intent(in) :: numbers(natoms)
real(c_double), intent(in) :: positions(3, natoms)
real(c_double), intent(in), optional :: charge
integer(c_int), intent(in), optional :: uhf
real(c_double), intent(in), optional :: lattice(3, 3)
logical(c_bool), intent(in), optional :: periodic(3)
type(VMolecule), pointer :: mol
type(c_ptr) :: vmol
integer(c_int) :: status
vmol = c_null_ptr
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (natoms <= 0) then
call env%ptr%error("Number of atoms must be positive", source)
return
end if
if (any(numbers <= 0) .or. any(numbers > maxElem)) then
call env%ptr%error("Invalid atomic number present", source)
return
end if
allocate(mol)
mol%ptr = TMolecule(natoms, numbers, positions, charge, uhf, &
& lattice, periodic)
status = verifyMolecule(mol%ptr)
if (status /= 0_c_int) then
deallocate(mol)
call env%ptr%error("Could not generate molecular structure", source)
return
end if
vmol = c_loc(mol)
end if
end function newMolecule_api
subroutine delMolecule_api(vmol) &
& bind(C, name="xtb_delMolecule")
!DEC$ ATTRIBUTES DLLEXPORT :: delMolecule_api
type(c_ptr), intent(inout) :: vmol
type(VMolecule), pointer :: mol
if (c_associated(vmol)) then
call c_f_pointer(vmol, mol)
call checkGlobalEnv
deallocate(mol)
vmol = c_null_ptr
end if
end subroutine delMolecule_api
subroutine updateMolecule_api(venv, vmol, positions, lattice) &
& bind(C, name="xtb_updateMolecule")
!DEC$ ATTRIBUTES DLLEXPORT :: updateMolecule_api
character(len=*), parameter :: source = 'xtb_api_updateMolecule'
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vmol
type(VMolecule), pointer :: mol
real(c_double), intent(in) :: positions(3, *)
real(c_double), intent(in), optional :: lattice(3, 3)
real(wp) :: latvecs(3, 3)
integer(c_int) :: status
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vmol)) then
call env%ptr%error("Molecular structure data is not allocated", source)
return
end if
call c_f_pointer(vmol, mol)
if (mol%ptr%n <= 0 .or. mol%ptr%nid <= 0 .or. .not.allocated(mol%ptr%at) &
& .or. .not.allocated(mol%ptr%id) .or. .not.allocated(mol%ptr%xyz)) then
call env%ptr%error("Invalid molecular structure data provided", source)
return
end if
mol%ptr%xyz(:, :) = positions(1:3, 1:mol%ptr%n)
if (present(lattice)) then
mol%ptr%lattice(:, :) = lattice(1:3, 1:3)
end if
call mol%ptr%update
status = verifyMolecule(mol%ptr)
if (status /= 0_c_int) then
call env%ptr%error("Could not update molecular structure", source)
return
end if
end if
end subroutine updateMolecule_api
end module xtb_api_molecule
xtb-6.7.1/src/api/results.f90 0000664 0000000 0000000 00000032365 14650006642 0015717 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> API for dealing with the calculation results
module xtb_api_results
use, intrinsic :: iso_c_binding
use xtb_mctc_accuracy, only : wp
use xtb_mctc_convert, only : evtoau
use xtb_api_environment
use xtb_api_utils
use xtb_type_restart
implicit none
private
public :: VResults
public :: newResults_api, delResults_api, getEnergy_api, getGradient_api, &
& getPCGradient_api, getVirial_api, getDipole_api, getCharges_api, &
& getBondOrders_api, getNao_api, getOrbitalEigenvalues_api, &
& getOrbitalOccupations_api, getOrbitalCoefficients_api, copyResults_api
!> Void pointer to wavefunction and result objects
type :: VResults
type(TRestart), allocatable :: chk
real(wp), allocatable :: energy
real(wp), allocatable :: gradient(:, :)
real(wp), allocatable :: pcgradient(:, :)
real(wp), allocatable :: sigma(:, :)
real(wp), allocatable :: dipole(:)
real(wp), allocatable :: egap
end type VResults
contains
!> Create new singlepoint results object
function newResults_api() result(vres) &
& bind(C, name="xtb_newResults")
!DEC$ ATTRIBUTES DLLEXPORT :: newResults_api
type(VResults), pointer :: res
type(c_ptr) :: vres
call checkGlobalEnv
allocate(res)
vres = c_loc(res)
end function newResults_api
!> Delete singlepoint results object
subroutine delResults_api(vres) &
& bind(C, name="xtb_delResults")
!DEC$ ATTRIBUTES DLLEXPORT :: delResults_api
type(c_ptr), intent(inout) :: vres
type(VResults), pointer :: res
call checkGlobalEnv
if (c_associated(vres)) then
call c_f_pointer(vres, res)
deallocate(res)
vres = c_null_ptr
end if
end subroutine delResults_api
!> Create copy from a singlepoint results object
function copyResults_api(vold) result(vres) &
& bind(C, name="xtb_copyResults")
!DEC$ ATTRIBUTES DLLEXPORT :: copyResults_api
type(VResults), pointer :: res
type(c_ptr) :: vres
type(VResults), pointer :: old
type(c_ptr), value :: vold
vres = c_null_ptr
if (c_associated(vold)) then
call c_f_pointer(vold, old)
call checkGlobalEnv
allocate(res, source=old)
vres = c_loc(res)
end if
end function copyResults_api
!> Query singlepoint results object for energy
subroutine getEnergy_api(venv, vres, dptr) &
& bind(C, name="xtb_getEnergy")
!DEC$ ATTRIBUTES DLLEXPORT :: getEnergy_api
character(len=*), parameter :: source = "xtb_api_getEnergy"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
real(c_double), intent(inout) :: dptr
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (.not.allocated(res%energy)) then
call env%ptr%error("Energy is not available in results", source)
return
end if
dptr = res%energy
end if
end subroutine getEnergy_api
!> Query singlepoint results object for gradient
subroutine getGradient_api(venv, vres, dptr) &
& bind(C, name="xtb_getGradient")
!DEC$ ATTRIBUTES DLLEXPORT :: getGradient_api
character(len=*), parameter :: source = "xtb_api_getGradient"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
real(c_double), intent(inout) :: dptr(3, *)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (.not.allocated(res%gradient)) then
call env%ptr%error("Gradient is not available in results", source)
return
end if
dptr(1:3, 1:size(res%gradient, 2)) = res%gradient
end if
end subroutine getGradient_api
!> Query singlepoint results object for gradients on external charges
subroutine getPCGradient_api(venv, vres, dptr) &
& bind(C, name="xtb_getPCGradient")
!DEC$ ATTRIBUTES DLLEXPORT :: getPCGradient_api
character(len=*), parameter :: source = "xtb_api_getGradient"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
real(c_double), intent(inout) :: dptr(3, *)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (.not.allocated(res%pcgradient)) then
call env%ptr%error("External charge gradients are not available in results", source)
return
end if
dptr(1:3, 1:size(res%pcgradient, 2)) = res%pcgradient
end if
end subroutine getPCGradient_api
!> Query singlepoint results object for virial
subroutine getVirial_api(venv, vres, dptr) &
& bind(C, name="xtb_getVirial")
!DEC$ ATTRIBUTES DLLEXPORT :: getVirial_api
character(len=*), parameter :: source = "xtb_api_getVirial"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
real(c_double), intent(inout) :: dptr(3, 3)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (.not.allocated(res%sigma)) then
call env%ptr%error("Virial is not available in results", source)
return
end if
dptr(1:3, 1:3) = res%sigma
end if
end subroutine getVirial_api
!> Query singlepoint results object for dipole moment
subroutine getDipole_api(venv, vres, dptr) &
& bind(C, name="xtb_getDipole")
!DEC$ ATTRIBUTES DLLEXPORT :: getDipole_api
character(len=*), parameter :: source = "xtb_api_getDipole"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
real(c_double), intent(inout) :: dptr(3)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (.not.allocated(res%dipole)) then
call env%ptr%error("Dipole moment is not available in results", source)
return
end if
dptr(1:3) = res%dipole
end if
end subroutine getDipole_api
!> Query singlepoint results object for partial charges
subroutine getCharges_api(venv, vres, dptr) &
& bind(C, name="xtb_getCharges")
!DEC$ ATTRIBUTES DLLEXPORT :: getCharges_api
character(len=*), parameter :: source = "xtb_api_getCharges"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
real(c_double), intent(inout) :: dptr(*)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (.not.allocated(res%chk)) then
call env%ptr%error("Partial charges are not available in results", source)
return
end if
dptr(1:size(res%chk%wfn%q)) = res%chk%wfn%q
end if
end subroutine getCharges_api
!> Query singlepoint results object for bond orders
subroutine getBondOrders_api(venv, vres, dptr) &
& bind(C, name="xtb_getBondOrders")
!DEC$ ATTRIBUTES DLLEXPORT :: getBondOrders_api
character(len=*), parameter :: source = "xtb_api_getBondOrders"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
real(c_double), intent(inout) :: dptr(*)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (.not.allocated(res%chk)) then
call env%ptr%error("Bond orders are not available in results", source)
return
end if
dptr(1:size(res%chk%wfn%wbo)) = reshape(res%chk%wfn%wbo, [size(res%chk%wfn%wbo)])
end if
end subroutine getBondOrders_api
!> Query singlepoint results object for bond orders
subroutine getNao_api(venv, vres, iptr) &
& bind(C, name="xtb_getNao")
!DEC$ ATTRIBUTES DLLEXPORT :: getNao_api
character(len=*), parameter :: source = "xtb_api_getNao"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
integer(c_int), intent(inout) :: iptr
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (allocated(res%chk)) then
iptr = res%chk%wfn%nao
else
iptr = 0
end if
end if
end subroutine getNao_api
!> Query singlepoint results object for orbital energies
subroutine getOrbitalEigenvalues_api(venv, vres, dptr) &
& bind(C, name="xtb_getOrbitalEigenvalues")
!DEC$ ATTRIBUTES DLLEXPORT :: getOrbitalEigenvalues_api
character(len=*), parameter :: source = "xtb_api_getOrbitalEigenvalues"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
real(c_double), intent(inout) :: dptr(*)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (.not.allocated(res%chk)) then
call env%ptr%error("Orbital eigenvalues are not available in results", &
& source)
return
end if
dptr(1:size(res%chk%wfn%emo)) = res%chk%wfn%emo * evtoau
end if
end subroutine getOrbitalEigenvalues_api
!> Query singlepoint results object for occupation numbers
subroutine getOrbitalOccupations_api(venv, vres, dptr) &
& bind(C, name="xtb_getOrbitalOccupations")
!DEC$ ATTRIBUTES DLLEXPORT :: getOrbitalOccupations_api
character(len=*), parameter :: source = "xtb_api_getOrbitalOccupations"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
real(c_double), intent(inout) :: dptr(*)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (.not.allocated(res%chk)) then
call env%ptr%error("Occupation numbers are not available in results", &
& source)
return
end if
dptr(1:size(res%chk%wfn%focc)) = res%chk%wfn%focc
end if
end subroutine getOrbitalOccupations_api
!> Query singlepoint results object for orbital coefficients
subroutine getOrbitalCoefficients_api(venv, vres, dptr) &
& bind(C, name="xtb_getOrbitalCoefficients")
!DEC$ ATTRIBUTES DLLEXPORT :: getOrbitalCoefficients_api
character(len=*), parameter :: source = "xtb_api_getOrbitalCoefficients"
type(c_ptr), value :: venv
type(VEnvironment), pointer :: env
type(c_ptr), value :: vres
type(VResults), pointer :: res
real(c_double), intent(inout) :: dptr(*)
if (c_associated(venv)) then
call c_f_pointer(venv, env)
call checkGlobalEnv
if (.not.c_associated(vres)) then
call env%ptr%error("Results object is not allocated", source)
return
end if
call c_f_pointer(vres, res)
if (.not.allocated(res%chk)) then
call env%ptr%error("Orbital coefficients are not available in results", &
& source)
return
end if
dptr(1:size(res%chk%wfn%C)) = reshape(res%chk%wfn%C, [size(res%chk%wfn%C)])
end if
end subroutine getOrbitalCoefficients_api
end module xtb_api_results
xtb-6.7.1/src/api/utils.f90 0000664 0000000 0000000 00000004430 14650006642 0015346 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> Utilities to work with data types from C
module xtb_api_utils
use, intrinsic :: iso_c_binding
use xtb_mctc_accuracy, only : wp
use xtb_type_molecule, only : TMolecule
use xtb_type_environment, only : init
implicit none
private
public :: c_f_character, f_c_character, verifyMolecule, checkGlobalEnv
contains
subroutine c_f_character(rhs, lhs)
character(kind=c_char), intent(in) :: rhs(*)
!> Resulting Fortran string
character(len=:, kind=c_char), allocatable, intent(out) :: lhs
integer :: ii
do ii = 1, huge(ii) - 1
if (rhs(ii) == c_null_char) then
exit
end if
end do
allocate(character(len=ii-1) :: lhs)
lhs = transfer(rhs(1:ii-1), lhs)
end subroutine c_f_character
subroutine f_c_character(rhs, lhs, len)
character(kind=c_char), intent(out) :: lhs(*)
character(len=*), intent(in) :: rhs
integer, intent(in) :: len
integer :: length
length = min(len-1, len_trim(rhs))
lhs(1:length) = transfer(rhs(1:length), lhs(1:length)) // c_null_char
end subroutine f_c_character
!> Cold fusion check
integer function verifyMolecule(mol) result(status)
type(TMolecule), intent(in) :: mol
integer :: iat, jat
status = 0
do iat = 1, mol%n
do jat = 1, iat - 1
if (mol%dist(jat, iat) < 1.0e-9_wp) status = status + 1
end do
end do
end function verifyMolecule
subroutine checkGlobalEnv
use xtb_mctc_global, only : persistentEnv
if (.not.allocated(persistentEnv)) then
allocate(persistentEnv)
call init(persistentEnv)
end if
end subroutine checkGlobalEnv
end module xtb_api_utils
xtb-6.7.1/src/api/version.f90 0000664 0000000 0000000 00000002434 14650006642 0015675 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> Defines the API version for xtb
module xtb_api_version
use, intrinsic :: iso_c_binding
implicit none
private
public :: getAPIVersion_api
integer(c_int), parameter :: apiMajor = 1
integer(c_int), parameter :: apiMinor = 0
integer(c_int), parameter :: apiPatch = 0
contains
function getAPIVersion_api() result(version) &
& bind(C, name="xtb_getAPIVersion")
!DEC$ ATTRIBUTES DLLEXPORT :: getAPIVersion_api
integer(c_int) :: version
version = 10000_c_int * apiMajor + 100_c_int * apiMinor + apiPatch
end function getAPIVersion_api
end module xtb_api_version
xtb-6.7.1/src/approxrab.f90 0000664 0000000 0000000 00000024602 14650006642 0015436 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_approxrab
use xtb_mctc_accuracy, only : wp
implicit none
private
public :: pbc_approx_rab, approx_rab, approx_bonds
! parameter blocks
real(wp),private, dimension(86) :: cnfak
real(wp),private, dimension(86) :: r0
real(wp),private, dimension(86) :: en
real(wp),private, dimension(4,2):: p
! START PARAMETER--------------------------------------------------
data en /&
2.30085633_wp, 2.78445145_wp, 1.52956084_wp, 1.51714704_wp, 2.20568300_wp,&
2.49640820_wp, 2.81007174_wp, 4.51078438_wp, 4.67476223_wp, 3.29383610_wp,&
2.84505365_wp, 2.20047950_wp, 2.31739628_wp, 2.03636974_wp, 1.97558064_wp,&
2.13446570_wp, 2.91638164_wp, 1.54098156_wp, 2.91656301_wp, 2.26312147_wp,&
2.25621439_wp, 1.32628677_wp, 2.27050569_wp, 1.86790977_wp, 2.44759456_wp,&
2.49480042_wp, 2.91545568_wp, 3.25897750_wp, 2.68723778_wp, 1.86132251_wp,&
2.01200832_wp, 1.97030722_wp, 1.95495427_wp, 2.68920990_wp, 2.84503857_wp,&
2.61591858_wp, 2.64188286_wp, 2.28442252_wp, 1.33011187_wp, 1.19809388_wp,&
1.89181390_wp, 2.40186898_wp, 1.89282464_wp, 3.09963488_wp, 2.50677823_wp,&
2.61196704_wp, 2.09943450_wp, 2.66930105_wp, 1.78349472_wp, 2.09634533_wp,&
2.00028974_wp, 1.99869908_wp, 2.59072029_wp, 2.54497829_wp, 2.52387890_wp,&
2.30204667_wp, 1.60119300_wp, 2.00000000_wp, 2.00000000_wp, 2.00000000_wp,&
2.00000000_wp, 2.00000000_wp, 2.00000000_wp, 2.00000000_wp, 2.00000000_wp,&
2.00000000_wp, 2.00000000_wp, 2.00000000_wp, 2.00000000_wp, 2.00000000_wp,&
2.00000000_wp, 2.30089349_wp, 1.75039077_wp, 1.51785130_wp, 2.62972945_wp,&
2.75372921_wp, 2.62540906_wp, 2.55860939_wp, 3.32492356_wp, 2.65140898_wp,&
1.52014458_wp, 2.54984804_wp, 1.72021963_wp, 2.69303422_wp, 1.81031095_wp,&
2.34224386_wp&
/
data r0 /&
0.55682207_wp, 0.80966997_wp, 2.49092101_wp, 1.91705642_wp, 1.35974851_wp,&
0.98310699_wp, 0.98423007_wp, 0.76716063_wp, 1.06139799_wp, 1.17736822_wp,&
2.85570926_wp, 2.56149012_wp, 2.31673425_wp, 2.03181740_wp, 1.82568535_wp,&
1.73685958_wp, 1.97498207_wp, 2.00136196_wp, 3.58772537_wp, 2.68096221_wp,&
2.23355957_wp, 2.33135502_wp, 2.15870365_wp, 2.10522128_wp, 2.16376162_wp,&
2.10804037_wp, 1.96460045_wp, 2.00476257_wp, 2.22628712_wp, 2.43846700_wp,&
2.39408483_wp, 2.24245792_wp, 2.05751204_wp, 2.15427677_wp, 2.27191920_wp,&
2.19722638_wp, 3.80910350_wp, 3.26020971_wp, 2.99716916_wp, 2.71707818_wp,&
2.34950167_wp, 2.11644818_wp, 2.47180659_wp, 2.32198800_wp, 2.32809515_wp,&
2.15244869_wp, 2.55958313_wp, 2.59141300_wp, 2.62030465_wp, 2.39935278_wp,&
2.56912355_wp, 2.54374096_wp, 2.56914830_wp, 2.53680807_wp, 4.24537037_wp,&
3.66542289_wp, 3.19903011_wp, 2.80000000_wp, 2.80000000_wp, 2.80000000_wp,&
2.80000000_wp, 2.80000000_wp, 2.80000000_wp, 2.80000000_wp, 2.80000000_wp,&
2.80000000_wp, 2.80000000_wp, 2.80000000_wp, 2.80000000_wp, 2.80000000_wp,&
2.80000000_wp, 2.34880037_wp, 2.37597108_wp, 2.49067697_wp, 2.14100577_wp,&
2.33473532_wp, 2.19498900_wp, 2.12678348_wp, 2.34895048_wp, 2.33422774_wp,&
2.86560827_wp, 2.62488837_wp, 2.88376127_wp, 2.75174124_wp, 2.83054552_wp,&
2.63264944_wp&
/
data cnfak /&
0.17957827_wp, 0.25584045_wp,-0.02485871_wp, 0.00374217_wp, 0.05646607_wp,&
0.10514203_wp, 0.09753494_wp, 0.30470380_wp, 0.23261783_wp, 0.36752208_wp,&
0.00131819_wp,-0.00368122_wp,-0.01364510_wp, 0.04265789_wp, 0.07583916_wp,&
0.08973207_wp,-0.00589677_wp, 0.13689929_wp,-0.01861307_wp, 0.11061699_wp,&
0.10201137_wp, 0.05426229_wp, 0.06014681_wp, 0.05667719_wp, 0.02992924_wp,&
0.03764312_wp, 0.06140790_wp, 0.08563465_wp, 0.03707679_wp, 0.03053526_wp,&
-0.00843454_wp, 0.01887497_wp, 0.06876354_wp, 0.01370795_wp,-0.01129196_wp,&
0.07226529_wp, 0.01005367_wp, 0.01541506_wp, 0.05301365_wp, 0.07066571_wp,&
0.07637611_wp, 0.07873977_wp, 0.02997732_wp, 0.04745400_wp, 0.04582912_wp,&
0.10557321_wp, 0.02167468_wp, 0.05463616_wp, 0.05370913_wp, 0.05985441_wp,&
0.02793994_wp, 0.02922983_wp, 0.02220438_wp, 0.03340460_wp,-0.04110969_wp,&
-0.01987240_wp, 0.07260201_wp, 0.07700000_wp, 0.07700000_wp, 0.07700000_wp,&
0.07700000_wp, 0.07700000_wp, 0.07700000_wp, 0.07700000_wp, 0.07700000_wp,&
0.07700000_wp, 0.07700000_wp, 0.07700000_wp, 0.07700000_wp, 0.07700000_wp,&
0.07700000_wp, 0.08379100_wp, 0.07314553_wp, 0.05318438_wp, 0.06799334_wp,&
0.04671159_wp, 0.06758819_wp, 0.09488437_wp, 0.07556405_wp, 0.13384502_wp,&
0.03203572_wp, 0.04235009_wp, 0.03153769_wp,-0.00152488_wp, 0.02714675_wp,&
0.04800662_wp&
/
! END PARAMETER-----------------------------------------------------
! global EN polynomial parameter (NOTE: x 10^3)
data p /29.84522887_wp, -1.70549806_wp, 6.54013762_wp, 6.39169003_wp, &
-8.87843763_wp, 2.10878369_wp, 0.08009374_wp, -0.85808076_wp/
contains
pure subroutine pbc_approx_rab(n,at,xyz,cn,dcndr,dcndL,nsrb,srblist,shift, &
& rab,drabdr,drabdL)
implicit none
! intent in
integer, intent(in) :: n
integer, intent(in) :: nsrb
integer, dimension(n), intent(in) :: at
integer, dimension(2,nsrb), intent(in) :: srblist
real(wp), dimension(3,n), intent(in) :: xyz
real(wp), dimension(n), intent(in) :: cn
real(wp), dimension(3,n,n), intent(in) :: dcndr
real(wp), dimension(3,3,n), intent(in) :: dcndL
real(wp), intent(in) :: shift
! intent inout
real(wp), dimension(nsrb), intent(out) :: rab
real(wp), dimension(3,n,nsrb), intent(out) :: drabdr
real(wp), dimension(3,3,nsrb), intent(out) :: drabdL
! local variable
integer :: i,j,k,m
integer :: iat,jat,ati,atj
integer :: ir,jr
real(wp) :: ra,rb
real(wp) :: den
real(wp) :: k1,k2
real(wp) :: ff
rab = 0.0_wp
drabdr = 0.0_wp
drabdL = 0.0_wp
do concurrent(k = 1:nsrb)
! enroll srblist
i = srblist(1,k)
j = srblist(2,k)
ati = at(i)
atj = at(j)
ir = itr(ati)
jr = itr(atj)
ra=r0(ati)+cnfak(ati)*cn(i)+shift
rb=r0(atj)+cnfak(atj)*cn(j)+shift
den=abs(en(ati) - en(atj))
k1=0.005_wp*(p(ir,1) + p(jr,1))
k2=0.005_wp*(p(ir,2) + p(jr,2))
ff=1.0_wp - k1*den - k2*den**2
! save distances => rab
rab(k) = (ra + rb)*ff
! save gradient => drabdr
drabdr(:,:,k) = ff*(cnfak(ati)*dcndr(:,:,i) + cnfak(atj)*dcndr(:,:,j))
drabdL(:,:,k) = ff*(cnfak(ati)*dcndL(:,:,i) + cnfak(atj)*dcndL(:,:,j))
enddo ! k
end subroutine pbc_approx_rab
pure subroutine approx_bonds(n,at,xyz,cn,bonds,shift)
implicit none
! intent in
integer, intent(in) :: n
integer, dimension(n), intent(in) :: at
real(wp), dimension(3,n), intent(in) :: xyz
real(wp), dimension(n), intent(in) :: cn
real(wp), intent(in) :: shift
! intent inout
integer, dimension(n,n), intent(out) :: bonds
! local variable
integer :: i,j,k,m
integer :: iat,jat,ati,atj
integer :: ir,jr
real(wp) :: ra,rb
real(wp) :: den
real(wp) :: k1,k2
real(wp) :: ff,tmp
real(wp) :: r2,rab,rij(3)
bonds = 0
do i = 1, n
bonds(i,i) = ceiling(cn(i))
do j = 1, i-1
rij = xyz(:,i) - xyz(:,j)
r2 = sum(rij**2)
if (r2.gt.200.0_wp) cycle
ati = at(i)
atj = at(j)
ir = itr(ati)
jr = itr(atj)
ra=r0(ati)+cnfak(ati)*cn(i)+shift
rb=r0(atj)+cnfak(atj)*cn(j)+shift
den=abs(en(ati) - en(atj))
k1=0.005_wp*(p(ir,1) + p(jr,1))
k2=0.005_wp*(p(ir,2) + p(jr,2))
ff=1.0_wp - k1*den - k2*den**2
! save distances => rab
rab = ((ra + rb)*ff)**2
if (r2 < rab) then
bonds(i,j) = 1
bonds(j,i) = 1
endif
enddo ! k
enddo ! k
end subroutine approx_bonds
pure subroutine approx_rab(n,at,xyz,cn,dcndr,nsrb,srblist,shift,rab,grab)
implicit none
! intent in
integer, intent(in) :: n
integer, intent(in) :: nsrb
integer, dimension(n), intent(in) :: at
integer, dimension(2,nsrb), intent(in) :: srblist
real(wp), dimension(3,n), intent(in) :: xyz
real(wp), dimension(n), intent(in) :: cn
real(wp), dimension(3,n,n), intent(in) :: dcndr
real(wp), intent(in) :: shift
! intent inout
real(wp), dimension(nsrb), intent(out) :: rab
real(wp), dimension(3,n,nsrb), intent(out) :: grab
! local variable
integer :: i,j,k,m
integer :: iat,jat,ati,atj
integer :: ir,jr
real(wp) :: ra,rb
real(wp) :: den
real(wp) :: k1,k2
real(wp) :: ff
rab = 0.0_wp
grab = 0.0_wp
do concurrent(k = 1:nsrb)
! enroll srblist
i = srblist(1,k)
j = srblist(2,k)
ati = at(i)
atj = at(j)
ir = itr(ati)
jr = itr(atj)
ra=r0(ati)+cnfak(ati)*cn(i)+shift
rb=r0(atj)+cnfak(atj)*cn(j)+shift
den=abs(en(ati) - en(atj))
k1=0.005_wp*(p(ir,1) + p(jr,1))
k2=0.005_wp*(p(ir,2) + p(jr,2))
ff=1.0_wp - k1*den - k2*den**2
! save distances => rab
rab(k) = (ra + rb)*ff
! save gradient => grab
do m = 1, n
grab(:,m,k)=ff*(cnfak(ati)*dcndr(:,m,i)&
& + cnfak(atj)*dcndr(:,m,j))
enddo ! m
enddo ! k
end subroutine approx_rab
! row in PSE for given ordinal number; (values>4) => 4
pure elemental integer function itr(i)
implicit none
integer, intent(in) :: i
itr = 0
if(i.gt.0.and.i.le.2) then
itr = 1
elseif(i.gt.2.and.i.le.10) then
itr = 2
elseif(i.gt.10.and.i.le.18) then
itr = 3
elseif(i.gt.18) then
itr = 4
endif
return
end function itr
end module xtb_approxrab
xtb-6.7.1/src/axis_trafo.f90 0000664 0000000 0000000 00000027665 14650006642 0015613 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_axis
use xtb_mctc_accuracy, only : wp
contains
subroutine axis(numat,nat,xyz,aa,bb,cc)
use xtb_splitparam
implicit double precision (a-h,o-z)
dimension xyz(3,numat)
integer nat(numat)
PARAMETER (BOHR=0.52917726)
dimension t(6), rot(3), xyzmom(3), eig(3), evec(3,3)
dimension x(numat),y(numat),z(numat),coord(3,numat)
data t /6*0.d0/
!************************************************************************
!* const1 = 10**40/(n*a*a)
!* n = avergadro's number
!* a = cm in an angstrom
!* 10**40 is to allow units to be 10**(-40)gram-cm**2
!*
!************************************************************************
const1 = 1.66053d0
!************************************************************************
!*
!* const2 = conversion factor from angstrom-amu to cm**(-1)
!*
!* = (planck's constant*n*10**16)/(8*pi*pi*c)
!* = 6.62618*10**(-27)[erg-sec]*6.02205*10**23*10**16/
!* (8*(3.1415926535)**2*2.997925*10**10[cm/sec])
!*
!***********************************************************************
const2=16.8576522d0
sumw=1.d-20
sumwx=0.d0
sumwy=0.d0
sumwz=0.d0
coord(1:3,1:numat)=xyz(1:3,1:numat)*bohr
do i=1,numat
sumw=sumw+atmass(i)
sumwx=sumwx+atmass(i)*coord(1,i)
sumwy=sumwy+atmass(i)*coord(2,i)
sumwz=sumwz+atmass(i)*coord(3,i)
enddo
sumwx=sumwx/sumw
sumwy=sumwy/sumw
sumwz=sumwz/sumw
f=1.0d0/bohr
do i=1,numat
x(i)=coord(1,i)-sumwx
y(i)=coord(2,i)-sumwy
z(i)=coord(3,i)-sumwz
enddo
!************************************************************************
!* matrix for moments of inertia is of form
!*
!* | y**2+z**2 |
!* | -y*x z**2+x**2 | -i =0
!* | -z*x -z*y x**2+y**2 |
!*
!************************************************************************
do i=1,6
t(i)=dble(i)*1.0d-10
enddo
do i=1,numat
t(1)=t(1)+atmass(i)*(y(i)**2+z(i)**2)
t(2)=t(2)-atmass(i)*x(i)*y(i)
t(3)=t(3)+atmass(i)*(z(i)**2+x(i)**2)
t(4)=t(4)-atmass(i)*z(i)*x(i)
t(5)=t(5)-atmass(i)*y(i)*z(i)
t(6)=t(6)+atmass(i)*(x(i)**2+y(i)**2)
enddo
call rsp(t,3,3,eig,evec)
! xsum=evec(1,1)*(evec(2,2)*evec(3,3)-evec(3,2)*evec(2,3)) +
! 1 evec(1,2)*(evec(2,3)*evec(3,1)-evec(2,1)*evec(3,3)) +
! 2 evec(1,3)*(evec(2,1)*evec(3,2)-evec(2,2)*evec(3,1))
do i=1,3
if(eig(i).lt.3.d-4) then
eig(i)=0.d0
rot(i)=0.d0
else
rot(i)=2.9979245d+4*const2/eig(i)
endif
xyzmom(i)=eig(i)*const1
enddo
aa=rot(3)/2.9979245d+4
bb=rot(2)/2.9979245d+4
cc=rot(1)/2.9979245d+4
avmom=1.d-47*(xyzmom(1)+xyzmom(2)+xyzmom(3))/3.
return
end subroutine axis
subroutine axis2(n,xyz,aa,bb,cc,avmom,sumw)
use xtb_splitparam, only : atmass
use xtb_mctc_convert, only : autoaa
implicit double precision (a-h,o-z)
!> number of atoms
integer, intent(in) :: n
!> cartesian coordinates
real(wp), intent(in) :: xyz(:,:)
!> rotational constants
real(wp), intent(out) :: aa,bb,cc
!> average moment of inertia
real(wp), intent(out) :: avmom
!> sum of atomic masses
real(wp), intent(out) :: sumw
!> const1 = 10**40/(n*a*a)
!> n = avergadro's number
!> a = cm in an angstrom
!> 10**40 is to allow units to be 10**(-40)gram-cm**2
real(wp), parameter :: const1 = 1.66053_wp
!> const2 = conversion factor from angstrom-amu to cm**(-1)
!> = (planck's constant*n*10**16)/(8*pi*pi*c)
!> = 6.62618*10**(-27)[erg-sec]*6.02205*10**23*10**16/
!> (8*(3.1415926535)**2*2.997925*10**10[cm/sec])
real(wp), parameter :: const2 = 16.8576522_wp
!> temporary variables
real(wp) :: xsum,eps,ams
!> weighted sum of coordinates
real(wp) :: sumwx,sumwy,sumwz
!> loop variables
integer :: i
!> temporary arrays
real(wp) :: t(6), rot(3), xyzmom(3), eig(3), evec(3,3)
real(wp) :: x(n),y(n),z(n)
!> Cartesian coordinates in Bohr
real(wp) :: coord(3,n)
t(:) = 0.0_wp
sumw = 0.0_wp
sumwx = 0.0_wp
sumwy = 0.0_wp
sumwz = 0.0_wp
! convert Bohr to Angstrom !
coord(:,:) = xyz(:,:) * autoaa
! cma !
do i=1,n
sumw=sumw+atmass(i)
sumwx=sumwx+atmass(i)*coord(1,i)
sumwy=sumwy+atmass(i)*coord(2,i)
sumwz=sumwz+atmass(i)*coord(3,i)
enddo
sumwx=sumwx/sumw
sumwy=sumwy/sumw
sumwz=sumwz/sumw
do i=1,n
x(i)=coord(1,i)-sumwx
y(i)=coord(2,i)-sumwy
z(i)=coord(3,i)-sumwz
enddo
!************************************************************************
!* matrix for moments of inertia is of form
!*
!* | y**2+z**2 |
!* | -y*x z**2+x**2 | -i =0
!* | -z*x -z*y x**2+y**2 |
!*
!************************************************************************
do i=1,6
t(i)=dble(i)*1.0d-10
enddo
do i=1,n
t(1)=t(1)+atmass(i)*(y(i)**2+z(i)**2)
t(2)=t(2)-atmass(i)*x(i)*y(i)
t(3)=t(3)+atmass(i)*(z(i)**2+x(i)**2)
t(4)=t(4)-atmass(i)*z(i)*x(i)
t(5)=t(5)-atmass(i)*y(i)*z(i)
t(6)=t(6)+atmass(i)*(x(i)**2+y(i)**2)
enddo
call rsp(t,3,3,eig,evec)
do i=1,3
if(eig(i).lt.3.d-4) then
eig(i)=0.d0
rot(i)=0.d0
else
rot(i)=2.9979245d+4*const2/eig(i)
endif
xyzmom(i)=eig(i)*const1
enddo
aa=rot(3)/2.9979245d+4
bb=rot(2)/2.9979245d+4
cc=rot(1)/2.9979245d+4
avmom=1.d-47*(xyzmom(1)+xyzmom(2)+xyzmom(3))/3.
end subroutine axis2
subroutine axisvec(numat,nat,xyz,aa,bb,cc,evec)
use xtb_splitparam
implicit double precision (a-h,o-z)
dimension xyz(3,numat)
integer nat(numat)
PARAMETER (BOHR=0.52917726)
dimension t(6), rot(3), xyzmom(3), eig(3), evec(3,3)
dimension x(numat),y(numat),z(numat),coord(3,numat)
data t /6*0.d0/
!************************************************************************
!* const1 = 10**40/(n*a*a)
!* n = avergadro's number
!* a = cm in an angstrom
!* 10**40 is to allow units to be 10**(-40)gram-cm**2
!*
!************************************************************************
const1 = 1.66053d0
!************************************************************************
!*
!* const2 = conversion factor from angstrom-amu to cm**(-1)
!*
!* = (planck's constant*n*10**16)/(8*pi*pi*c)
!* = 6.62618*10**(-27)[erg-sec]*6.02205*10**23*10**16/
!* (8*(3.1415926535)**2*2.997925*10**10[cm/sec])
!*
!************************************************************************
const2=16.8576522d0
sumw=1.d-20
sumwx=0.d0
sumwy=0.d0
sumwz=0.d0
coord(1:3,1:numat)=xyz(1:3,1:numat)*bohr
do i=1,numat
sumw=sumw+atmass(i)
sumwx=sumwx+atmass(i)*coord(1,i)
sumwy=sumwy+atmass(i)*coord(2,i)
sumwz=sumwz+atmass(i)*coord(3,i)
enddo
sumwx=sumwx/sumw
sumwy=sumwy/sumw
sumwz=sumwz/sumw
f=1.0d0/bohr
do i=1,numat
x(i)=coord(1,i)-sumwx
y(i)=coord(2,i)-sumwy
z(i)=coord(3,i)-sumwz
enddo
!************************************************************************
!* matrix for moments of inertia is of form
!*
!* | y**2+z**2 |
!* | -y*x z**2+x**2 | -i =0
!* | -z*x -z*y x**2+y**2 |
!*
!************************************************************************
do i=1,6
t(i)=dble(i)*1.0d-10
enddo
do i=1,numat
t(1)=t(1)+atmass(i)*(y(i)**2+z(i)**2)
t(2)=t(2)-atmass(i)*x(i)*y(i)
t(3)=t(3)+atmass(i)*(z(i)**2+x(i)**2)
t(4)=t(4)-atmass(i)*z(i)*x(i)
t(5)=t(5)-atmass(i)*y(i)*z(i)
t(6)=t(6)+atmass(i)*(x(i)**2+y(i)**2)
enddo
call rsp(t,3,3,eig,evec)
! xsum=evec(1,1)*(evec(2,2)*evec(3,3)-evec(3,2)*evec(2,3)) +
! 1 evec(1,2)*(evec(2,3)*evec(3,1)-evec(2,1)*evec(3,3)) +
! 2 evec(1,3)*(evec(2,1)*evec(3,2)-evec(2,2)*evec(3,1))
do i=1,3
if(eig(i).lt.3.d-4) then
eig(i)=0.d0
rot(i)=0.d0
else
rot(i)=2.9979245d+4*const2/eig(i)
endif
xyzmom(i)=eig(i)*const1
enddo
aa=rot(3)/2.9979245d+4
bb=rot(2)/2.9979245d+4
cc=rot(1)/2.9979245d+4
avmom=1.d-47*(xyzmom(1)+xyzmom(2)+xyzmom(3))/3.
return
end subroutine axisvec
!*****************************************************************
! transform to CMA for output on trj xyz file
! input coords remain unchanged
!*****************************************************************
subroutine axis3(mode,numat,nat,coord,coordout,eig)
use xtb_splitparam
implicit none
integer, intent(in) :: numat,nat(numat),mode
real(wp),intent(in) :: coord(3,numat)
real(wp),intent(out) :: coordout(3,numat),eig(3)
real(wp) :: sumw,sumwx,sumwy,sumwz,xsum,eps,ams
real(wp) :: t(6), evec(3,3)
real(wp) :: x(numat),y(numat),z(numat),coordtmp(3,numat)
real(wp) :: coord1(3,numat)
integer :: i,j,k
t = (/(0.0_wp,i=1,6)/)
sumw=1.e-20_wp
sumwx=0.0_wp
sumwy=0.0_wp
sumwz=0.0_wp
do i=1,numat
if(mode.eq.0)then
ams = atmass(i)
else
ams = 1._wp/atmass(i)
endif
sumw=sumw+ams
sumwx=sumwx+ams*coord(1,i)
sumwy=sumwy+ams*coord(2,i)
sumwz=sumwz+ams*coord(3,i)
enddo
eps=1.e-3_wp
sumwx=sumwx/sumw
sumwy=sumwy/sumw
sumwz=sumwz/sumw
do i=1,numat
x(i)=coord(1,i)-sumwx
y(i)=coord(2,i)-sumwy
z(i)=coord(3,i)-sumwz
coordtmp(1,i)=x(i)
coordtmp(2,i)=y(i)
coordtmp(3,i)=z(i)
enddo
do i=1,6
t(i)=real(i,wp)*1.0e-10_wp
enddo
do i=1,numat
t(1)=t(1)+atmass(i)*(y(i)**2+z(i)**2)+eps
t(2)=t(2)-atmass(i)*x(i)*y(i)
t(3)=t(3)+atmass(i)*(z(i)**2+x(i)**2)+eps
t(4)=t(4)-atmass(i)*z(i)*x(i)
t(5)=t(5)-atmass(i)*y(i)*z(i)
t(6)=t(6)+atmass(i)*(x(i)**2+y(i)**2)+eps
enddo
call rsp(t,3,3,eig,evec)
! now to orient the molecule so the chirality is preserved
xsum=evec(1,1)*(evec(2,2)*evec(3,3)-evec(3,2)*evec(2,3)) + &
& evec(1,2)*(evec(2,3)*evec(3,1)-evec(2,1)*evec(3,3)) + &
& evec(1,3)*(evec(2,1)*evec(3,2)-evec(2,2)*evec(3,1))
if( xsum .lt. 0) then
do j=1,3
80 evec(j,1)=-evec(j,1)
enddo
endif
! call prmat(6,evec,3,3,'Rmat')
do i=1,numat
do j=1,3
xsum=0.d0
do k=1,3
xsum=xsum+coordtmp(k,i)*evec(k,j)
enddo
coord1(j,i)=xsum
enddo
enddo
do i=1,numat
coordout(1,i)=coord1(1,i)
coordout(2,i)=coord1(2,i)
coordout(3,i)=coord1(3,i)
enddo
return
end subroutine axis3
end module xtb_axis
xtb-6.7.1/src/basic_geo.f90 0000664 0000000 0000000 00000031500 14650006642 0015346 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_basic_geo
contains
! .....................................................................
Subroutine dthetadr(nat,xyz,j,k,i,theta,kijk,dei,dej,dek)
use xtb_mctc_accuracy, only : wp
! .....................................................................
!
! Input
! -----
! __ __
! ra,rb : distance ij and distnace ik
!
! sinth : sinus of angle j-i-k
!
! costh : cosinus of angle j-i-k
!
!
! Output
! ------
!
! dei : derivatives of the atom i
!
! dej : derivatives of the atom j
!
! dek : derivatives of the atom k
!
! .....................................................................
implicit none
external vecnorm
integer ic,nat,j,k,i
real(wp) ran,rbn,theta,xyz(3,nat)
real(wp) ra(3),rb(3),sinth,costh
real(wp) dei(3),dej(3),dek(3),kijk
real(wp) fac,vecnorm,eps
parameter (eps=1.d-14)
! ... dtheta/dri, dtheta/drj and dtheta/drk
sinth=sin(theta)
costh=cos(theta)
do ic=1,3
ra(ic)=xyz(ic,j)-xyz(ic,i)
rb(ic)=xyz(ic,k)-xyz(ic,i)
end do
ran=vecnorm(ra,3,0)
rbn=vecnorm(rb,3,0)
if (abs(sinth).le.eps) then
fac=sign(kijk,costh)/(ran*rbn)
else
fac=1.d0/(sinth*ran*rbn)
end if
do ic=1,3
! ... dedri
dei(ic)=fac*( ra(ic)+rb(ic)-(rbn*rbn*ra(ic)+ran*ran*rb(ic))* &
costh/(ran*rbn))
! ... dedrj
dej(ic)=fac*(ra(ic)*costh*rbn/ran-rb(ic))
! ... dedrk
dek(ic)=fac*(rb(ic)*costh*ran/rbn-ra(ic))
end do
End Subroutine dthetadr
Subroutine dphidr(nat,xyz,i,j,k,l,phi, &
dphidri,dphidrj,dphidrk,dphidrl)
use xtb_mctc_accuracy, only : wp
! the torsion derivatives
implicit none
external vecnorm
integer ic,i,j,k,l,nat
real(wp) sinphi,cosphi,onenner,thab,thbc
real(wp) ra(3),rb(3),rc(3),rab(3),rac(3),rbc(3),rbb(3)
real(wp) raa(3),rba(3),rapba(3),rapbb(3),rbpca(3),rbpcb(3)
real(wp) rapb(3),rbpc(3),na(3),nb(3),nan,nbn
real(wp) dphidri(3),dphidrj(3),dphidrk(3),dphidrl(3)
real(wp) xyz(3,nat),phi,vecnorm,nenner,eps,vz
parameter (eps=1.d-14)
cosphi=cos(phi)
sinphi=sin(phi)
do ic=1,3
ra(ic)=xyz(ic,j)-xyz(ic,i)
rb(ic)=xyz(ic,k)-xyz(ic,j)
rc(ic)=xyz(ic,l)-xyz(ic,k)
rapb(ic)=ra(ic)+rb(ic)
rbpc(ic)=rb(ic)+rc(ic)
end do
call crossprod(ra,rb,na)
call crossprod(rb,rc,nb)
nan=vecnorm(na,3,0)
nbn=vecnorm(nb,3,0)
nenner=nan*nbn*sinphi
if (abs(nenner).lt.eps) then
dphidri=0
dphidrj=0
dphidrk=0
dphidrl=0
onenner=1.0d0/(nan*nbn)
else
onenner=1.d0/nenner
endif
call crossprod(na,rb,rab)
call crossprod(nb,ra,rba)
call crossprod(na,rc,rac)
call crossprod(nb,rb,rbb)
call crossprod(nb,rc,rbc)
call crossprod(na,ra,raa)
call crossprod(rapb,na,rapba)
call crossprod(rapb,nb,rapbb)
call crossprod(rbpc,na,rbpca)
call crossprod(rbpc,nb,rbpcb)
! ... dphidri
do ic=1,3
dphidri(ic)=onenner*(cosphi*nbn/nan*rab(ic)-rbb(ic))
! ... dphidrj
dphidrj(ic)=onenner*(cosphi*(nbn/nan*rapba(ic) &
+nan/nbn*rbc(ic)) &
-(rac(ic)+rapbb(ic)))
! ... dphidrk
dphidrk(ic)=onenner*(cosphi*(nbn/nan*raa(ic) &
+nan/nbn*rbpcb(ic)) &
-(rba(ic)+rbpca(ic)))
! ... dphidrl
dphidrl(ic)=onenner*(cosphi*nan/nbn*rbb(ic)-rab(ic))
end do
End Subroutine dphidr
! .....................................................................
Subroutine domegadr &
(nat,xyz, &
i,j,k,l,omega, &
domegadri,domegadrj,domegadrk,domegadrl)
use xtb_mctc_accuracy, only : wp
! inversion derivatives
! .....................................................................
implicit none
external vecnorm
integer ic,i,j,k,l,nat
real(wp) omega,sinomega
real(wp) xyz(3,nat),onenner,vecnorm,rnn,rvn
real(wp) rn(3),rv(3),rd(3),re(3),rdme(3),rve(3)
real(wp) rne(3),rdv(3),rdn(3)
real(wp) rvdme(3),rndme(3),nenner
real(wp) domegadri(3),domegadrj(3),domegadrk(3),domegadrl(3),eps
parameter (eps=1.d-14)
sinomega=sin(omega)
do ic=1,3
rv(ic)=xyz(ic,l)-xyz(ic,i)
rd(ic)=xyz(ic,k)-xyz(ic,j)
re(ic)=xyz(ic,i)-xyz(ic,j)
rdme(ic)=rd(ic)-re(ic)
end do
call crossprod(re,rd,rn)
rvn=vecnorm(rv,3,0)
rnn=vecnorm(rn,3,0)
call crossprod(rv,re,rve)
call crossprod(rn,re,rne)
call crossprod(rd,rv,rdv)
call crossprod(rd,rn,rdn)
call crossprod(rv,rdme,rvdme)
call crossprod(rn,rdme,rndme)
nenner=rnn*rvn*cos(omega)
if (abs(nenner).gt.eps) then
onenner=1.d0/nenner
do ic=1,3
! ... domega/dri
domegadri(ic)=onenner*(rdv(ic)-rn(ic)- &
sinomega*(rvn/rnn*rdn(ic)-rnn/rvn*rv(ic)))
! ... domega/drj
domegadrj(ic)=onenner*(rvdme(ic)-sinomega*rvn/rnn*rndme(ic))
! ... domega/drk
domegadrk(ic)=onenner*(rve(ic)-sinomega*rvn/rnn*rne(ic))
! ... domega/drl
domegadrl(ic)=onenner*(rn(ic)-sinomega*rnn/rvn*rv(ic))
end do
else
do ic=1,3
domegadri(ic)=0.d0
domegadrj(ic)=0.d0
domegadrk(ic)=0.d0
domegadrl(ic)=0.d0
end do
end if
End Subroutine domegadr
! .....................................................................
real(wp) Function valijkl(nat,xyz,i,j,k,l)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_constants, only: pi
! .....................................................................
implicit none
external vecnorm,valijk
integer ic,i,j,k,l,nat
real(wp) xyz(3,nat)
real(wp) eps,ra(3),rb(3),rc(3),na(3),nb(3)
real(wp) rab,rbc,thab,thbc,valijk
real(wp) vecnorm,nan,nbn,rcn,snanb,deter,test
real(wp) raabs,rbabs,rcabs
parameter (eps=1.0d-14)
raabs=0.0d0
rbabs=0.0d0
rcabs=0.0d0
! ... get torsion coordinate
do ic=1,3
ra(ic)=xyz(ic,j)-xyz(ic,i)
rb(ic)=xyz(ic,k)-xyz(ic,j)
rc(ic)=xyz(ic,l)-xyz(ic,k)
raabs=raabs+ra(ic)*ra(ic)
rbabs=rbabs+rb(ic)*rb(ic)
rcabs=rcabs+rc(ic)*rc(ic)
end do
raabs=sqrt(raabs)
rbabs=sqrt(rbabs)
rcabs=sqrt(rcabs)
! ... normalize vectors
do ic=1,3
ra(ic)=ra(ic)/raabs
rb(ic)=rb(ic)/rbabs
rc(ic)=rc(ic)/rcabs
end do
! ... determinante of rb,ra,rc
deter= ra(1)*(rb(2)*rc(3)-rb(3)*rc(2)) &
-ra(2)*(rb(1)*rc(3)-rb(3)*rc(1)) &
+ra(3)*(rb(1)*rc(2)-rb(2)*rc(1))
call crossprod(-ra,rc,na)
test=0.0d0
do ic=1,3
test=test+na(ic)*rb(ic)
end do
thab=valijk(nat,xyz,i,k,j)
thbc=valijk(nat,xyz,j,l,k)
call crossprod(ra,rb,na)
call crossprod(rb,rc,nb)
nan=vecnorm(na,3,1)
nbn=vecnorm(nb,3,1)
snanb=0.0d0
do ic=1,3
snanb=snanb+na(ic)*nb(ic)
end do
if (abs(abs(snanb)-1.d0).lt.eps) then
snanb=sign(1.d0,snanb)
end if
valijkl=acos(snanb)
if(test.lt.0.0d0) valijkl=-acos(snanb)
! the gradient dphir is only compatible with this subroutine
! if the statement below is commented out. If not, opt. and
! Hessian show large errors and imags. I don't understand
! this entirely but thats how it is.
! SG, Sat May 24 11:41:42 CEST 2014
! if (deter.lt.0) then
! valijkl=2.d0*pi-valijkl
! end if
End Function valijkl
! .....................................................................
real(wp) Function valijk(nat,xyz,j,k,i)
use xtb_mctc_accuracy, only : wp
! .....................................................................
implicit none
external vecnorm
integer nat,j,k,i,ic
real(wp) ra(3),rb(3),rab,eps
real(wp) xyz(3,nat),vecnorm,ran,rbn
parameter (eps=1.d-14)
do ic=1,3
ra(ic)=xyz(ic,j)-xyz(ic,i)
rb(ic)=xyz(ic,k)-xyz(ic,i)
end do
ran=vecnorm(ra,3,1)
rbn=vecnorm(rb,3,1)
rab=0.d0
do ic=1,3
rab=rab+ra(ic)*rb(ic)
end do
if (abs(abs(rab)-1.d0).lt.eps) then
rab=sign(1.d0,rab)
end if
valijk=acos(rab)
End Function valijk
! .....................................................................
real(wp) Function omega (nat,xyz,i,j,k,l)
use xtb_mctc_accuracy, only : wp
! Calculates the inversion angle
! .....................................................................
implicit none
external vecnorm
integer ic,nat,i,j,k,l
real(wp) xyz(3,nat)
real(wp) rd(3),re(3),rn(3),rv(3),rnv
real(wp) vecnorm,rkjn,rljn,rnn,rvn
do ic=1,3
re(ic)=xyz(ic,i)-xyz(ic,j)
rd(ic)=xyz(ic,k)-xyz(ic,j)
rv(ic)=xyz(ic,l)-xyz(ic,i)
end do
call crossprod(re,rd,rn)
rnn=vecnorm(rn,3,1)
rvn=vecnorm(rv,3,1)
rnv=rn(1)*rv(1)+rn(2)*rv(2)+rn(3)*rv(3)
omega=asin( rnv )
End Function omega
! .....................................................................
Subroutine crossprod(ra,rb,rab)
use xtb_mctc_accuracy, only : wp
implicit none
real(wp) ra(3),rb(3),rab(3)
rab(1)=ra(2)*rb(3)-ra(3)*rb(2)
rab(2)=ra(3)*rb(1)-ra(1)*rb(3)
rab(3)=ra(1)*rb(2)-ra(2)*rb(1)
End Subroutine crossprod
! .....................................................................
real(wp) Function vecnorm (r,n,inorm)
use xtb_mctc_accuracy, only : wp
implicit none
integer i,n,inorm
real(wp) r(n),or,sp,rn
sp=0.
do i=1,n
sp=sp+r(i)*r(i)
end do
rn=sqrt(sp)
if (inorm.gt.0) then
if (abs(rn).gt.1.d-14) then
or=1.0d0/rn
do i=1,n
r(i)=or*r(i)
end do
end if
end if
vecnorm=rn
End Function vecnorm
! .....................................................................
subroutine crprod(a,b,c)
use xtb_mctc_accuracy, only : wp
implicit double precision (a-h,o-z)
dimension a(3),b(3),c(3)
c(1)=a(2)*b(3)-a(3)*b(2)
c(2)=a(3)*b(1)-a(1)*b(3)
c(3)=a(1)*b(2)-a(2)*b(1)
return
end subroutine crprod
! .....................................................................
subroutine vsc1(a,scale,tol)
use xtb_mctc_accuracy, only : wp
implicit double precision (a-h,o-z)
dimension a(3)
rlen = norm2(a)
if (rlen.gt.tol) then
do i=1,3
a(i) = a(i)*scale/rlen
end do
endif
return
end subroutine vsc1
! .....................................................................
pure subroutine impsc(a,b,c)
use xtb_mctc_accuracy, only : wp
implicit none
real(wp),intent(in) :: a(3),b(3)
real(wp),intent(out) :: c
integer :: i
real(wp) :: rimp,al,bl
rimp = 0.0d0
do i=1,3
rimp = rimp + a(i)*b(i)
end do
al = norm2(a)
bl = norm2(b)
if (al.gt.0.0d0.and.bl.gt.0.0d0) then
c = rimp/(al*bl)
else
c = 0.0d0
endif
return
end subroutine impsc
! .....................................................................
pure subroutine bangl(xyz,i,j,k,angle)
use xtb_mctc_accuracy, only : wp
implicit none
real(wp),intent(in) :: xyz(3,*)
real(wp),intent(out) :: angle
integer, intent(in) :: i,j,k
real(wp) d2ij,d2jk,d2ik,xy,temp
d2ij = sum((xyz(:,i)-xyz(:,j))**2)
d2jk = sum((xyz(:,j)-xyz(:,k))**2)
d2ik = sum((xyz(:,i)-xyz(:,k))**2)
xy = sqrt(d2ij*d2jk)
temp = 0.5d0 * (d2ij+d2jk-d2ik) / xy
if (temp .gt. 1.0d0) temp= 1.0d0
if (temp .lt. -1.0d0) temp=-1.0d0
angle = acos( temp )
end subroutine bangl
end module xtb_basic_geo
xtb-6.7.1/src/bfgs.f90 0000664 0000000 0000000 00000012567 14650006642 0014370 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_bfgs
contains
subroutine bfgs(nat3,gnorm,grad,grado,dx,hess)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_blas, only : blas_spmv, blas_dot
!-------------------------------------------------------------------
! Purpose:
! Performs BFGS update of Hessian matrix
!
! Input:
! nat3 = dimension parameter as declared in the calling routine
! grad = actual gradient
! grado = gradient one cycle before
! dx = displ = displacement = coords(k) - coord(k-1) ; k=cycle
! hess = hessian matrix and in Output updated hessian
!--------------------------------------------------------------------
implicit none
! Input:
integer, intent(in) :: nat3
real(wp),intent(in) :: grad(nat3)
real(wp),intent(in) :: grado(nat3)
real(wp),intent(in) :: dx(nat3)
real(wp),intent(in) :: gnorm
! Output:
real(wp),intent(inout) :: hess(nat3*(nat3+1)/2)
! Local:
integer :: i,j,ij,ii
real(wp),allocatable :: svec(:),tvec(:)
real(wp) :: ddtd, dds, temp
real(wp) :: ddot, thrs, scal, damp, dampO,dampD,thr
real(wp) :: ooddtd, oodds, sdds, tddtd
!---------------------------------------------------------------------
allocate( svec(nat3),tvec(nat3), source = 0.0_wp )
! damping of H update
! call hdamp(gnorm,dampO,dampD)
thrs=1.d-12
! calculate dg = grad(k+1) - grad(k)
svec(1:nat3) = grad(1:nat3) - grado(1:nat3)
! calculate tvec = h*dx
call blas_spmv('u',nat3,1.0_wp,hess,dx,1,0.0_wp,tvec,1)
! calculate scalar dxdx and jtdx
ddtd = blas_dot(nat3,tvec,1,dx,1)
dds = blas_dot(nat3,svec,1,dx,1)
ooddtd = 1.0_wp / ddtd
oodds = 1.0_wp / dds
if(dds > thrs .and. ddtd > thrs) then
!$omp parallel default(none) &
!$omp shared(nat3,oodds,ooddtd,svec,tvec) &
!$omp private(i,j,ii,ij,sdds,tddtd,temp) &
!$omp shared(hess)
!$omp do
do i=1,nat3
ii = i*(i-1)/2
sdds = svec(i)*oodds
tddtd = tvec(i)*ooddtd
do j=1,i
ij = ii + j
! scal=dampd
! if(i.ne.j)scal=dampo
!temp= (svec(i)*svec(j))/dds - (tvec(i)*tvec(j))/ddtd
temp = svec(j)*sdds - tvec(j)*tddtd
hess(ij) = hess(ij) + temp
end do
end do
!$omp end do
!$omp end parallel
! else
! write(*,'(a)') ' ******* Hesse update not performed ******* '
! write(*,* ) dds,ddtd,thrs
endif
! limit diagonal to (0.01 slightly better than 0.001)
thr=1.d-2
ij=0
do i=1,nat3
ij=ij+i
if(abs(hess(ij)).lt.thr)hess(ij)=thr
enddo
end subroutine bfgs
subroutine powell(nat3,gnorm,grad,grado,dx,hess)
use xtb_mctc_accuracy, only : wp
!-------------------------------------------------------------------
! Purpose:
! Performs Powell update of Hessian matrix
!
! Input:
! nat3 = dimension parameter as declared in the calling routine=
! 3*natoms
! grad = actual gradient
! grado = gradient one cycle before
! dx = displ = displacement = coords(k) - coord(k-1) ; k=cycle
! hess = hessian matrix and in Output updated hessian
!--------------------------------------------------------------------
implicit none
! Input:
integer, intent(in) :: nat3
real(wp),intent(in) :: grad(nat3),grado(nat3),dx(nat3),gnorm
! Output:
real(wp),intent(inout) :: hess(nat3*(nat3+1)/2)
! Local:
integer :: i,j,ij
real(wp) :: dds,ddtd,temp
real(wp), dimension(nat3) :: tvec
real(wp) :: ddot, thrs, scal, damp, dampO,dampD
!---------------------------------------------------------------------
! damping of H update
! call hdamp(gnorm,dampD,dampO)
thrs=1.d-14
call dspmv('u',nat3,1.0d0,hess,dx,1,0.0d0,tvec,1)
tvec(1:nat3) = grad(1:nat3) - grado(1:nat3) - tvec(1:nat3)
! calculate scalar dxdx and jtdx
dds = ddot(nat3,dx,1,dx,1)
if(dds > thrs) then
ddtd = ddot(nat3,tvec,1,dx,1)/dds
do i=1,nat3
do j=1,i
ij = i*(i-1)/2 + j
! scal=dampD
! if(i.ne.j)scal=dampo
temp=tvec(i)*dx(j) + dx(i)*tvec(j) - dx(i)*ddtd*dx(j)
! hess(ij) = hess(ij) + temp*scal/dds
hess(ij) = hess(ij) + temp/dds
end do
end do
else
! write(*,'(a)') ' ******* Hesse update not performed ******* '
endif
end subroutine powell
subroutine hdamp(gnorm,dampO,dampD)
use xtb_mctc_accuracy, only : wp
implicit none
real(wp) gnorm,dampO,dampD
dampD = 1.0
dampO = 1.0
return
! damping of H update
if(gnorm > 0.5)then
dampD = 1.0
dampO = 0.0
endif
if(gnorm < 0.5 .and. gnorm > 0.2)then
dampD = 1.0
dampO = 0.2
endif
if(gnorm < 0.2 .and. gnorm > 0.05) then
dampD = 1.0
dampO = 0.5
endif
end subroutine hdamp
end module xtb_bfgs
xtb-6.7.1/src/bias_path.f90 0000664 0000000 0000000 00000074303 14650006642 0015375 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_biaspath
use xtb_mctc_accuracy, only : wp
implicit none
private
public :: bias_path
contains
!! ========================================================================
! RMSD biased push/pull path finder (RMSD-BPP)
! SG 12/18, modified 06/20
!! ========================================================================
subroutine bias_path(env, mol, chk, calc, egap, et, maxiter, epot, grd, sigma)
use xtb_mctc_filetypes, only : fileType
use xtb_mctc_convert
use xtb_type_environment
use xtb_type_molecule
use xtb_type_calculator
use xtb_type_restart
use xtb_type_data, only : scc_results
use xtb_single, only : singlepoint
use xtb_io_writer, only : writeMolecule
use xtb_setparam
use xtb_fixparam
use xtb_cqpath
use xtb_geoopt
use xtb_optimizer
use xtb_lsrmsd
use xtb_metadynamic
use xtb_readin
use xtb_axis, only : axis
use xtb_param_atomicRad, only : atomicRad
implicit none
character(len=*), parameter :: source = 'xtb_path'
!> Calculation environment
type(TEnvironment), intent(inout) :: env
type(TMolecule), intent(inout) :: mol
type(TRestart),intent(inout) :: chk
class(TCalculator), intent(inout) :: calc
integer, intent(in) :: maxiter
real(wp),intent(in) :: epot
real(wp),intent(in) :: et
real(wp),intent(inout) :: egap
real(wp),intent(inout) :: grd(3,mol%n)
real(wp),intent(inout) :: sigma(3,3)
real(wp),allocatable :: xyze(:,:)
real(wp),allocatable :: xyzp(:,:)
real(wp),allocatable :: gtmp(:,:)
real(wp),allocatable :: xyzpath(:,:,:)
real(wp),allocatable :: xyzdum (:,:,:)
real(wp),allocatable :: bo(:,:), cn(:)
real(wp),allocatable :: pvec1(:), pvec2(:)
real(wp),allocatable :: epath(:), mempath(:,:)
integer, allocatable :: atp(:)
integer, allocatable :: splitl(:)
integer, allocatable :: npath(:)
integer i,j,k,ii,nn,olev,skip,irun,maxoptiter,nk,maxcycle,idum,maxpath
integer np,iter,its,modef,run,npathk,tsmodeav,ialp,nrefine,nalp,imem(100)
integer ilog,ilog2,idat ! file handle
real(wp) U(3,3),x(3),y(3),rms,barr,drms,gnew,e1,dum0,r,rco,rms2,factor2
real(wp) x3(3),t3(3),xx(10),dum,factor,distort,gnorm,dum1,thr,scc,w1,w2
real(wp) fnat,rmsd_prod_thr,alp_change,k_change,edrmsd,ppull
real(wp) gdum,gts,emax,eback,eforw,eforw_prev,gsum_prev,pthr
real(wp) de_min,grad_min,e_ed,e_pr,de,ddot,gthr
character(len=80) :: atmp,btmp
logical fail,ex,done,degen
type(scc_results) :: res
!! ------------------------------------------------------------------------
! some parameters
!! ------------------------------------------------------------------------
nrefine =set%pathset%nrun! # of refinement (full path opt) steps (usually 1)
nalp =4 ! # of test runs with different alpha bias
nk =6 ! # of test runs with different k bias
maxpath =nalp*nk
ppull= set%pathset%ppull ! default pull strength on path point
pthr = 0.00_wp ! include points on path depending on overlap of approx TS modes
gthr = 0.01_wp ! Gnorm at TS exit thr
rmsd_prod_thr=0.2_wp ! RMSD between product and last point on path found
! if less, loop terminates and path is considered as ok
k_change = 1.5_wp ! increase k push/pull in each try by this
alp_change= 0.2_wp ! decrease alpha in each alp try by this
scc = 2.0_wp ! high accuracy not important in SP
set%optset%maxdispl_opt=0.50_wp ! don't make it too small (more points, erratic behavior)
set%optset%hlow_opt =0.03_wp ! too small values can cause spikes
ilog =14
ilog2=142
call metaset%allocate(mol%n,2)
allocate(splitl(mol%n),gtmp(3,mol%n),pvec1(3*mol%n),pvec2(3*mol%n))
allocate(xyze(3,mol%n),xyzp(3,mol%n),bo(mol%n,mol%n),atp(mol%n),cn(mol%n))
allocate(npath(maxpath),mempath(4,maxpath))
if (.not.allocated(set%pathset%fname)) then
call env%error('No product structure given!', source)
return
endif
write(env%unit,*) 'reading reference structures from '//set%pathset%fname//' ...'
call rdcoord(set%pathset%fname,mol%n,xyzp,atp) ! product
if (any(atp.ne.mol%at)) then
call env%error('Atom type missmatch between reactant and product!', source)
endif
xyze=mol%xyz ! reactant
call rmsd(mol%n,xyze,xyzp,0,U,x,y,rms,.false.,gtmp)
write(env%unit,'("reactant product RMSD :",f9.3)')rms
if (set%pathset%nat.gt.0) then
metaset%nat = set%pathset%nat
metaset%atoms = set%pathset%atoms
fnat=real(metaset%nat,wp) ! # atoms used in RMSD
else
metaset%nat = 0
fnat= mol%n ! all atoms used in RMSD
endif
write(env%unit,'("initial k push/pull (in code xNat) :",2f9.3)')set%pathset%kpush,set%pathset%kpull
write(env%unit,'("initial Gaussian width (1/Bohr) :",f9.3)')set%pathset%alp
write(env%unit,'("# refinement runs :",i4)')nrefine
write(env%unit,'("# of ''an''-optimization steps :",i4)')set%pathset%anopt
write(env%unit,'("# optlevel :",i4)')set%optset%optlev
write(env%unit,*)
!! ------------------------------------------------------------------------
! check if its poly-molecular reaction (in case increas rmsd_prod_thr)
!! ------------------------------------------------------------------------
bo = 0
do i=1,mol%n
cn(i)=0
do j=1,mol%n
r=sqrt(sum(xyzp(:,i)-xyzp(:,j)))
rco=(atomicRad(mol%at(i))+atomicRad(mol%at(j)))*autoaa
if(r.lt.2.5*rco) then
bo(j,i)=1
cn(i)=cn(i)+1
endif
enddo
bo(i,i)=0
enddo
call mrec(i,xyzp,cn,bo,mol%n,mol%at,splitl)
rmsd_prod_thr = rmsd_prod_thr * float(i) ! RMSD can be large if fragments are involved
deallocate(bo,cn,splitl)
call axis(mol%n,mol%at,xyze,x(1),x(2),x(3))
call axis(mol%n,mol%at,xyzp,y(1),y(2),y(3))
degen = .false.
dum = 2.0_wp*abs(sum(x)-sum(y))/(sum(x)+sum(y))
if(dum.lt.0.01) degen = .true. ! possibly degenrate E/P
write(env%unit,'("degenerate system :",l,2f9.6)')degen,sum(x),sum(y)
!! ------------------------------------------------------------------------
! loop over runs with increasing Vbias
!! ------------------------------------------------------------------------
metaset%xyz(:,:,1) = xyze
metaset%xyz(:,:,2) = xyzp
done = .false.
irun = 0
factor2= 0.0_wp
call delete_file('.xtbtmpmode')
call delete_file('hessian')
bias_loop: do ialp=1,nalp ! alp
factor = 1.0_wp
do run=1,nk ! k_push/pull
irun = irun + 1
! set for metadyn routine (common)
metaset%factor(1) = set%pathset%kpush * factor * fnat
metaset%factor(2) = set%pathset%kpull * factor * fnat
metaset%width(:) = set%pathset%alp - factor2
metaset%width(:) = max(metaset%width(:),0.2_wp)
!! ------------------------------------------------------------------------
! make path
!! ------------------------------------------------------------------------
if(degen)then ! avoid symmetry trapping
do i=1,mol%n
do j=1,3
call random_number(dum)
if(mod(i,2).eq.0)then
mol%xyz(j,i)=mol%xyz(j,i)+0.05*dum
else
mol%xyz(j,i)=mol%xyz(j,i)-0.05*dum
endif
enddo
enddo
endif
metaset%nstruc = 2
maxoptiter = 0
olev = set%optset%optlev ! opt level
mol%xyz = xyze
atmp='xtbopt.log'
call open_file(ilog,atmp,'w')
call ancopt (env,ilog,mol,chk,calc,egap,et,maxiter,maxoptiter,dum,grd,sigma,olev,.false.,fail)
call close_file(ilog)
!! ------------------------------------------------------------------------
! read opt history file (kept)
!! ------------------------------------------------------------------------
call cqpath_read_pathfile_parameter(atmp,j,k,npath(irun))
if(k.ne.mol%n) call env%terminate('read error in bias_path, 1')
allocate(xyzpath(3,mol%n,npath(irun)),epath(npath(irun)))
call cqpath_read_pathfile(atmp,j,k,npath(irun),xyzpath,mol%at,epath)
xyzpath=xyzpath/0.52917726_wp
! check RMSD if something happened
mol%xyz(:, :) = xyzpath(:, :, npath(irun))
call rmsd(mol%n,mol%xyz,xyzp,0,U,x,y,rms,.false.,gtmp)
write(env%unit,'(i3," # points, run ",i3," for k push/pull/alpha :",3f8.3,5x," prod-ed RMSD:",f8.3)') &
& npath(irun),run,metaset%factor(1:2)/fnat, metaset%width(1), rms
!! ------------------------------------------------------------------------
! save results
!! ------------------------------------------------------------------------
write(btmp,'("xtbpath_",i0,".xyz")') irun
call open_file(ilog2,btmp,'w')
metaset%nstruc = 0 ! no bias
barr=-1.d+42
do i=1,npath(irun)
mol%xyz(:, :) = xyzpath(:, :, i)
call singlepoint(env,mol,chk,calc,egap,et,maxiter,0,.true.,.false.,scc,epath(i),grd,sigma,res)
dum=autokcal*(epath(i)-epath(1))
if(dum.gt.barr) barr=dum
call writeMolecule(mol, ilog2, fileType%xyz, energy=dum)
enddo
call close_file(ilog2)
mempath(1,irun)=barr
mempath(2,irun)=autokcal*(epath(npath(irun))-epath(1))
mempath(3,irun)=rms
mempath(4,irun)=metaset%width(1)
deallocate(xyzpath,epath)
! increase power
factor = factor * k_change
if(done) exit bias_loop
if(rms.lt.rmsd_prod_thr) then ! found product
factor = factor / k_change / 1.2_wp ! test a bit smaller push/pull
done = .true. ! close enough to product, add one more (with less bias) and then exit
endif
enddo
factor2= factor2 + alp_change
enddo bias_loop
!! ------------------------------------------------------------------------
! output and find path yielding product
!! ------------------------------------------------------------------------
write(env%unit,*)
write(env%unit,*) 'path trials (see xtbpath_*.xyz), energies in kcal/mol'
j = 0
do i=1,irun
write(env%unit,'("run",i2," barrier:",f7.2," dE:",f7.2, " product-end path RMSD:",f8.3 &
& )') i,mempath(1:3,i)
if(mempath(3,i).lt.rmsd_prod_thr) then
j = j + 1
imem(j) = i
endif
enddo
if(j.eq.0) then
call env%error('No product! Decrease alp in $path and/or optlevel.', source)
return
end if
dum = 1.d+42
k = 1
do i=1,j ! take from those the one with lowest barrier
ii=imem(i)
if(mempath(1,ii).lt.dum) then
dum = mempath(1,ii)
k = ii
endif
enddo
npathk = k
! important modification of the pull strength on the path
ppull = ppull * (mempath(4,npathk)/1.2_wp)**2 ! if the opt. path alpha is small, the
! kpull for the constrained opt. must be small
! e.g. for helicene or BCF racem.
!! ------------------------------------------------------------------------
! take best path for refinement
!! ------------------------------------------------------------------------
write(btmp,'("xtbpath_",i0,".xyz")') npathk
call cqpath_read_pathfile_parameter(btmp,j,k,np)
allocate(xyzpath(3,mol%n,np),epath(np))
call cqpath_read_pathfile(btmp,j,k,np,xyzpath,mol%at,epath)
xyzpath=xyzpath/0.52917726_wp
write(env%unit,'("path ",i2," taken with ",i4," points.")') npathk, np
deallocate(npath,mempath)
!! ------------------------------------------------------------------------
! make the path nicer for optimizations
!! ------------------------------------------------------------------------
write(env%unit,'("screening points ...")')
if(np.gt.set%pathset%nopt)then
allocate(xyzdum(3,mol%n,np))
call screenpath(np,set%pathset%nopt,idum,mol%n,xyzpath,epath,xyzdum)
xyzdum(:,:,1:idum)=xyzpath(1:,:,1:idum)
deallocate(xyzpath,epath)
np=idum
allocate(xyzpath(3,mol%n,np),epath(np))
xyzpath(:,:,1:np)=xyzdum(1:,:,1:np)
deallocate(xyzdum)
write(env%unit,'("new # points :",i3)') np
endif
! call cleanpath(np,mol%n,xyzpath,xyze,xyzp,pthr) ! not good
epath = 0
btmp='xtbpath_0.xyz' ! write the path before opt.
write(env%unit,'("start path on file ",a)') btmp
call open_file(ilog2,btmp,'w')
metaset%nstruc = 0 ! unbiased energy and gradient
mol%xyz=xyzpath(:,:,1)
call singlepoint(env,mol,chk,calc,egap,et,maxiter,0,.true.,.false.,scc,epath(1),grd,sigma,res)
call writeMolecule(mol, ilog2, fileType%xyz, energy=0.0_wp)
do i=2,np-1
mol%xyz=xyzpath(:,:,i)
call singlepoint(env,mol,chk,calc,egap,et,maxiter,0,.true.,.false.,scc,epath(i),grd,sigma,res)
call writeMolecule(mol, ilog2, fileType%xyz, energy=autokcal*(epath(i)-epath(1)))
end do
mol%xyz=xyzpath(:,:,np)
call singlepoint(env,mol,chk,calc,egap,et,maxiter,0,.true.,.false.,scc,epath(np),grd,sigma,res)
call writeMolecule(mol, ilog2, fileType%xyz, energy=autokcal*(epath(np)-epath(1)))
call close_file(ilog2)
!! ------------------------------------------------------------------------
! new section for path refinment by restricted (path biased) opt.
!! ------------------------------------------------------------------------
maxoptiter=set%pathset%anopt
allocate(xyzdum(3,mol%n,np))
call open_file(ilog,'xtbopt.log','w')
eforw= 1.0d+42
gts = 1.0d+42
do iter=1,nrefine
write(env%unit,'(''refinement cycle'',i4)')iter
call alignpath(mol%n,np,xyzpath)
xyzdum(:,:,1:np) = xyzpath(:,:,1:np) ! save coords for path mode projection
do i=2,np-1 ! one opt for all points
if(mod(i,10).eq.0.or.i.eq.2) write(*,*) 'optimizing points ',i,' ...'
mol%xyz=xyzpath(:,:,i)
call metadyn_tsmode(mol%n,np,i,xyzdum,mol%xyz,ppull) ! add bias on path (and constrain optionally)
call ancopt (env,ilog,mol,chk,calc,egap,et,maxiter,maxoptiter,epath(i),grd,sigma,olev,.false.,fail)
xyzpath(:,:,i)=mol%xyz
end do
call open_file(ilog2,'xtbpath.xyz','w')
mol%xyz=xyzpath(:,:,1) ! first point
call writeMolecule(mol, ilog2, fileType%xyz, energy=0.0_wp)
write(env%unit,*)
dum =-1.d+42
metaset%nstruc = 0 ! unbiased energy and gradient
do i=2,np-1
mol%xyz=xyzpath(:,:,i)
call singlepoint(env,mol,chk,calc,egap,et,maxiter,0,.true.,.true.,scc,epath(i),grd,sigma,res)
call writeMolecule(mol, ilog2, fileType%xyz, energy=autokcal*(epath(i)-epath(1)))
if(epath(i).gt.dum)then
dum=epath(i)
gts=sqrt(sum(grd**2))
its=i
endif
enddo
mol%xyz=xyzpath(:,:,np) ! last point
call writeMolecule(mol, ilog2, fileType%xyz, energy=autokcal*(epath(np)-epath(1)))
call close_file(ilog2)
gsum_prev=gts
eforw_prev=eforw
emax=maxval(epath(1:np))
eforw=(emax-epath(1) )*autokcal
eback=(emax-epath(np))*autokcal
de =(epath(np)-epath(1))*autokcal
write(env%unit,'(''forward barrier (kcal) :'',f10.3)') eforw
write(env%unit,'(''backward barrier (kcal) :'',f10.3)') eback
write(env%unit,'(''reaction energy (kcal) :'',f10.3)') de
write(env%unit,'(''opt. pull strength :'',f10.3)') ppull
write(env%unit,'(''norm(g) at est. TS, point:'', f8.5,i4)') gts, its
if(gts.lt.gthr) then
write(env%unit,'("terminated because grad at TS 0.0) then
f1(i) = 2.0/(dx(i)/dy(i)+dx(i-1)/dy(i-1))
else if (steigung <= 0.0) then
f1(i) = 0.0
end if
end do
f1(1) = 3.0*dy(1)/(2.0*dx(1)) - f1(2)/2.0
f1(n) = 3.0*dy(n-1)/(2.0*dx(n-1)) - f1(n-1)/2.0
do i=2,n
x1_x0 = dx(i-1)
y1_y0 = dy(i-1)
x0_2 = x(i-1)*x(i-1)
x0_3 = x0_2*x(i-1)
x1_x0_2 = x1_x0*x1_x0
x1_2 = x(i)*x(i)
fss_x0 = -2.0*(f1(i) + 2.0*f1(i-1))/(x1_x0)+6.0*(y1_y0)/x1_x0_2
fss_x1 = 2.0*(2.0*f1(i) + f1(i-1))/(x1_x0)-6.0*(y1_y0)/x1_x0_2
abcd(i,4) = (fss_x1 - fss_x0)/(6.0*(x1_x0))
abcd(i,3) = (x(i)*fss_x0-x(i-1)*fss_x1)/(2.0*x1_x0)
abcd(i,2) = ((y1_y0)-abcd(i,3)*(x1_2-x0_2)-abcd(i,4)*(x1_2*x(i)-x0_3))/(x1_x0)
abcd(i,1) = y(i-1) - abcd(i,2)*x(i-1) - abcd(i,3) * x0_2 - abcd(i,4) * x0_3
end do
deallocate(dx,dy,f1)
end subroutine
subroutine cqpath_damped_cube_spline_val(n,abcd,x,x1,y1)
! in n - dimension von array x,y
! abcd - array of polynom coefficients
! x - x
! out y - f(x,abcd)
!
! Based on Constrained Cubic Spline Interpolation for Chemical Engineering Application
! by CJC Kruger
!
! Rewritten and optimized in fortran
integer, intent(in) :: n
real(wp), intent(in) :: abcd(n,4)
real(wp), intent(in) :: x(n)
real(wp), intent(in) :: x1
real(wp), intent(out) :: y1
integer :: j
real(wp) :: xx
do j=2,n
if (x1 < x(j)) then
if (x1 >= x(j-1)) then
xx = x1*x1
y1 = abcd(j,1)+abcd(j,2)*x1+abcd(j,3)*xx+abcd(j,4)*xx*x1
end if
end if
end do
return
end subroutine
!! ========================================================================
! remove bad points, not used
!! ========================================================================
subroutine cleanpath(np,n,xyz,xyz0,xyz1,pthr)
use xtb_type_environment
implicit none
integer n,np
real(wp) xyz(3,n,np) ! path coords
real(wp) xyz0(3,n) ! path coords
real(wp) xyz1(3,n) ! path coords
real(wp) pthr ! threshold
real(wp), allocatable :: pvec1(:), pvec2(:), ovlp(:), delta(:,:), xyzdum(:,:,:)
real(wp) :: dum, ddot
integer :: i,j,k,l
integer :: ib, ie
write(*,'(''input path length :'',i3)') np
allocate(pvec1(3*n),pvec2(3*n),ovlp(np),delta(3,n),xyzdum(3,n,np))
ovlp = 1
do i=2,np-1
call guess_tsmode(n,np,i,xyz,pvec1,pvec2)
ovlp(i)=ddot(3*n,pvec1,1,pvec2,1)
enddo
write(*,*) 'path overlaps before alignment'
write(*,'(20f6.2)') ovlp(1:np)
call alignpath(n,np,xyz)
do i=2,np-1
call guess_tsmode(n,np,i,xyz,pvec1,pvec2)
ovlp(i)=ddot(3*n,pvec1,1,pvec2,1)
enddo
write(*,*) 'path overlaps after alignment'
write(*,'(20f6.2)') ovlp(1:np)
! get bad points and replace them by linear interpolation
do i=2,np-1
if(ovlp(i).lt.pthr)then
write(*,*) 'bad point ',i
do k=i-1,1,-1
ib=k
if(ovlp(k).gt.pthr) then
ib = k
exit
endif
enddo
do k=i+1,np
ie=k
if(ovlp(k).gt.pthr) then
ie = k
exit
endif
enddo
! write(*,*) i,ib,ie,ovlp(i)
! structures ib+1...i-1 are unreliable
delta (:,:) = (xyz(:,:,ie) - xyz(:,:,ib))/float(ib-ie)
l = 0
do k=ib+1,ie-1
l = l + 1
xyzdum(:,:,k) = xyz(:,:,ib) - delta(:,:)*float(l)
enddo
endif
enddo
do i=2,np-1
if(ovlp(i).lt.pthr) xyz(:,:,i) = xyzdum(:,:,i)
enddo
call alignpath(n,np,xyz)
do i=2,np-1
call guess_tsmode(n,np,i,xyz,pvec1,pvec2)
ovlp(i)=ddot(3*n,pvec1,1,pvec2,1)
enddo
write(*,*) 'path overlaps after cleaning and alignment'
write(*,'(20f6.2)') ovlp(1:np)
end subroutine
end module xtb_biaspath
xtb-6.7.1/src/blowsy.f90 0000664 0000000 0000000 00000002746 14650006642 0014764 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_blowsy
contains
pure subroutine blowsy(ity,a,b,n)
use xtb_mctc_accuracy, only : wp
implicit none
! blow up symmetric or antisymmetric matrix to full size
integer, intent(in) :: ity
integer, intent(in) :: n
real(wp),intent(in) :: a(*)
real(wp),intent(out) :: b(n,n)
integer :: ij,i,j
! determine if we have an antisymmetric integral
ij=0
if (ity.eq.-1) then
do i=1,n
do j=1,i-1
ij=ij+1
b(j,i)=-a(ij)
b(i,j)=a(ij)
enddo
ij=ij+1
b(i,i)=0.d0
enddo
else
do i=1,n
do j=1,i-1
ij=ij+1
b(j,i)=a(ij)
b(i,j)=a(ij)
enddo
ij=ij+1
b(i,i)=a(ij)
enddo
endif
end subroutine blowsy
end module xtb_blowsy
xtb-6.7.1/src/broyden.f90 0000664 0000000 0000000 00000010534 14650006642 0015101 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public Licen
! along with xtb. If not, see .
! Modified Boryden mixer according to
! D.D. Johnson, PRB 38, 12807 (1988)
! Input Variables:
! iter = current iteration
! maxiter = max number of iterations
! n = number of atoms (charges)
! q = current iteration INPUT charges (before diag)
! qlast = last iteration INPUT charges (before diag)
! dqlast = charge difference of prev. iteration (q_in - q_out)
! dq = current iteration charge difference (q_in - q_out)
! df = previous |dF>
! u = previous |u>
! a = a matrix
! Note: The modified Broyden method works on the INPUT charges of the sc
! the difference produced by the SCC step. Especially the INPUT charge o
! iteration is needed, which is usually not stored!
module xtb_broyden
contains
subroutine broyden(n,q,qlast,dq,dqlast,iter,maxiter,&
& alpha,omega,df,u,a)
use xtb_mctc_accuracy, only : wp
implicit none
integer i,j
integer n,iter,maxiter,it1
real(wp) inv
! charge arrays
real(wp) q(n),qlast(n),dq(n),dqlast(n)
! |dF>, |u> and a from prev. iterations
real(wp) df(maxiter,n),u(maxiter,n),a(maxiter,maxiter)
real(wp) omega(maxiter)
! on the fly variables needed for the mixing
real(wp), allocatable :: beta(:,:), c(:), gamma(:)
! real(wp), allocatable :: beta1(:,:)
! mixing parameters
real(wp) alpha
real(wp) omega0
real(wp) minw,maxw,wfac
real(wp) tmp(n)
it1 = iter - 1
! set parameters
! alpha = 0.25d0
omega0 = 0.01d0
minw = 1.0d0
maxw = 100000.0d0
wfac = 0.01d0
! wfac = 0.05d0
! if case for first iteration: simple damping
if (iter == 1 ) then
dqlast = dq
qlast = q
q = q + alpha * dq
return
endif
! allocate
allocate(beta(it1,it1),c(it1),gamma(it1))
! allocate(beta1(it1,it1))
! create omega (weight) for the current iteration
omega(it1) = sqrt(dot_product(dq,dq))
if (omega(it1) .gt. (wfac / maxw)) then
omega(it1) = wfac / omega(it1)
else
omega(it1) = maxw
endif
if (omega(it1) .lt. minw) then
omega(it1) = minw
endif
! Build dF(iter-1)
df(it1,:)=dq-dqlast
inv=1.0d0 / sqrt(dot_product(df(it1,:),df(it1,:)))
df(it1,:)=inv*df(it1,:)
! Next: build a, beta, c, gamma
do i=1,it1
a(i,it1) = dot_product(df(i,:),df(it1,:))
a(it1,i) = a(i,it1)
c(i) = omega(i) * dot_product(df(i,:),dq)
enddo
! Build beta from a and omega
do i = 1, it1
beta(:it1, i) = omega(:it1) * omega(i) * a(:it1,i)
beta(i, i) = beta(i, i) + omega0*omega0
enddo
! build beta^-1
call matinv(beta,it1)
! build gamma
gamma = matmul(c,beta)
! Build |u>
u(it1,:) = alpha * df(it1,:) + inv * (q-qlast) !!!
! save charges and deltas
dqlast = dq
qlast = q
! calculate new charges
q = q + alpha * dq
do i=1, it1
q = q - omega(i) * gamma(i) * u(i,:)
enddo
deallocate(beta,c,gamma)
end subroutine broyden
subroutine matinv(a, nrow)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_lapack, only : lapack_getrf, lapack_getri
integer nRow
real(wp) a(nrow,nrow)
integer info
integer, allocatable :: ipiv(:)
real(wp), allocatable :: work(:)
allocate(ipiv(nrow),work(nrow))
! LU decomoposition of a general matrix
call lapack_getrf(nrow,nrow,a,nrow,ipiv,info)
if (info == 0) then
! generate inverse of a matrix given its LU decomposition
call lapack_getri(nrow,a,nrow,ipiv,work,nrow,info)
endif
deallocate(ipiv,work)
if(info .ne. 0)then
write(*,*)"Error in Broyden matrix inversion!"
write(*,*)"Error code",info
error stop
endif
end subroutine matinv
end module xtb_broyden
xtb-6.7.1/src/charge_model.f90 0000664 0000000 0000000 00000056411 14650006642 0016054 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_chargemodel
contains
subroutine new_multieq_model_2019(chrgeq,n,at)
use xtb_mctc_accuracy, only : wp
use xtb_type_param
implicit none
type(chrg_parameter) :: chrgeq
integer,intent(in) :: n
integer,intent(in) :: at(n)
!! ------------------------------------------------------------------------
! PARAMETRISATION BY S. SPICHER (Mon, 25 Feb 2019 17:06:20 +0100)
! atomic Hirshfeld dipole moments and partial charges were used in the fit.
! beta = 3*alpha and dpolc was fixed to the GFN2-xTB values
!! ------------------------------------------------------------------------
integer, parameter :: max_elem = 86
real(wp),parameter :: en(max_elem) = [ &
1.31222670_wp, 1.33049990_wp, 0.80127754_wp, 1.16005622_wp, 1.29157604_wp, &
1.40450084_wp, 1.46638512_wp, 1.46801039_wp, 1.55348578_wp, 1.37248867_wp, &
1.37937749_wp, 1.04419231_wp, 1.26263099_wp, 1.11162320_wp, 1.51830508_wp, &
1.47998887_wp, 1.47394487_wp, 1.34302662_wp, 1.36729589_wp, 1.27794050_wp, &
1.13199584_wp, 1.16946189_wp, 1.12955539_wp, 1.23794839_wp, 1.03635528_wp, &
1.21633604_wp, 1.05065523_wp, 1.14699791_wp, 1.10218954_wp, 1.27617283_wp, &
1.24498441_wp, 1.23286571_wp, 1.41590228_wp, 1.42601999_wp, 1.45841247_wp, &
1.36946764_wp, 0.99022781_wp, 1.29623400_wp, 1.18855925_wp, 1.24177440_wp, &
1.08778669_wp, 1.03379538_wp, 1.16318235_wp, 1.15329928_wp, 1.23938470_wp, &
1.29946952_wp, 1.23925857_wp, 1.29607528_wp, 1.21496789_wp, 1.21020793_wp, &
1.29904026_wp, 1.41603789_wp, 1.39750387_wp, 1.32362802_wp, 1.31960262_wp, &
1.30739388_wp, 1.22385600_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, &
0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, &
0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, &
0.56999999_wp, 1.08363456_wp, 1.25089063_wp, 1.28965951_wp, 1.39207680_wp, &
1.19839481_wp, 1.25938591_wp, 1.34157715_wp, 1.28532469_wp, 1.32452604_wp, &
1.22277498_wp, 0.92949663_wp, 1.27420937_wp, 1.37079453_wp, 1.37346232_wp, &
1.38193459_wp ]
real(wp),parameter :: gam(max_elem) = [ &
-0.29352787_wp, 1.18228813_wp, 0.81655542_wp, 0.04991939_wp, 0.18077754_wp, &
0.16236307_wp, 0.15729171_wp, 0.06664232_wp, 0.22420664_wp,-0.62957580_wp, &
0.40078533_wp, 0.63368871_wp, 0.60184244_wp, 0.15902198_wp, 0.17066813_wp, &
0.18321894_wp, 0.09316157_wp, 0.31180808_wp, 0.01366019_wp,-0.03419238_wp, &
0.06025478_wp,-0.06527532_wp, 0.35264616_wp,-0.23266246_wp, 0.24660308_wp, &
0.30889629_wp, 0.19765403_wp, 0.30423715_wp, 0.89032516_wp,-0.22477300_wp, &
0.02452835_wp, 0.23273331_wp, 0.15504976_wp, 0.10946405_wp, 0.93073322_wp, &
-0.40355129_wp, 0.57791901_wp, 0.21101308_wp, 0.11134256_wp, 0.03273833_wp, &
0.06592765_wp, 0.09853050_wp, 0.02840088_wp,-0.77038368_wp, 0.33861167_wp, &
0.06232847_wp, 0.17595304_wp,-0.62894354_wp,-0.03859051_wp,-0.14870423_wp, &
-0.11119651_wp,-0.18203460_wp, 0.05382599_wp,-0.17608856_wp,-0.13200542_wp, &
-0.23001704_wp, 0.21702733_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, &
0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, &
0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, &
0.11000000_wp,-0.14950188_wp,-0.05301495_wp, 0.32340145_wp, 0.48443586_wp, &
0.49482288_wp, 0.03181459_wp,-0.08968091_wp, 0.03036240_wp, 0.35118499_wp, &
0.21196095_wp, 1.00879826_wp, 0.09954288_wp, 0.03013378_wp, 0.01667458_wp, &
0.07860724_wp ]
real(wp),parameter :: kappa(max_elem) = [ &
-0.02597869_wp, 0.66325692_wp,-0.17760442_wp,-0.05425035_wp,-0.01899386_wp, &
0.03454974_wp, 0.06220207_wp, 0.07518969_wp, 0.17450351_wp, 0.05294182_wp, &
0.01400123_wp,-0.10199084_wp,-0.04100613_wp,-0.11309997_wp, 0.11651405_wp, &
0.10094484_wp, 0.10874426_wp, 0.08168330_wp, 0.01390994_wp,-0.02130805_wp, &
-0.09715052_wp,-0.07461454_wp,-0.08712643_wp,-0.05437354_wp,-0.11329620_wp, &
-0.06603778_wp,-0.12139278_wp,-0.07741014_wp,-0.08424088_wp,-0.02682389_wp, &
-0.04497087_wp,-0.05460499_wp, 0.04342269_wp, 0.04099114_wp, 0.09000060_wp, &
0.00071681_wp,-0.15290585_wp, 0.06720034_wp,-0.05999122_wp,-0.03190377_wp, &
-0.10955588_wp,-0.11437713_wp,-0.06969508_wp,-0.08803104_wp,-0.03470070_wp, &
-0.00198100_wp,-0.02170821_wp,-0.01661924_wp,-0.05852491_wp,-0.06697080_wp, &
-0.05895723_wp, 0.04217060_wp, 0.05124334_wp,-0.01482324_wp, 0.01491499_wp, &
-0.01601696_wp,-0.00766699_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp, &
-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp, &
-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp, &
-0.11000000_wp,-0.09612654_wp,-0.05424292_wp,-0.03255023_wp, 0.01293739_wp, &
-0.04887012_wp,-0.03931052_wp, 0.00161909_wp,-0.03376011_wp,-0.00976174_wp, &
-0.05304306_wp, 0.01236187_wp,-0.02297437_wp, 0.03918072_wp, 0.05434160_wp, &
0.00830592_wp ]
real(wp),parameter :: alpha(max_elem) = [ &
0.83051332_wp, 0.27934189_wp, 0.57717327_wp, 5.41127387_wp, 2.09405910_wp, &
3.77537318_wp, 3.48318023_wp, 2.54214604_wp, 2.73404785_wp, 0.16750746_wp, &
1.15468837_wp, 3.42988344_wp, 1.01513110_wp, 3.11624566_wp, 2.62048544_wp, &
1.09480440_wp, 3.46065237_wp, 4.48704043_wp, 3.88654194_wp, 1.75864066_wp, &
1.95337522_wp, 1.49408444_wp, 1.38950107_wp, 1.31196889_wp, 3.04235459_wp, &
0.71788381_wp, 1.15658896_wp, 2.27724965_wp, 0.86379032_wp, 0.81398266_wp, &
0.66709843_wp, 0.87908763_wp, 3.24925489_wp, 1.58803868_wp, 1.06623475_wp, &
0.98174111_wp, 1.75011798_wp, 5.42115002_wp, 3.91931444_wp, 3.11270895_wp, &
4.01156044_wp, 4.09746782_wp, 2.87234516_wp, 0.43018109_wp, 2.19964334_wp, &
2.69978488_wp, 5.23629932_wp, 0.72482212_wp, 1.59437558_wp, 1.75692514_wp, &
0.94058335_wp, 1.06309445_wp, 3.51583993_wp, 1.60898068_wp, 0.72873185_wp, &
1.47627148_wp, 3.99569972_wp, 1.64000000_wp, 1.64000000_wp, 1.64000000_wp, &
1.64000000_wp, 1.64000000_wp, 1.64000000_wp, 1.64000000_wp, 1.64000000_wp, &
1.64000000_wp, 1.64000000_wp, 1.64000000_wp, 1.64000000_wp, 1.64000000_wp, &
1.64000000_wp, 1.19273782_wp, 1.17975130_wp, 0.47635729_wp, 3.33070704_wp, &
3.26261926_wp, 2.81175921_wp, 1.67471893_wp, 3.42329532_wp, 1.26308728_wp, &
1.71990410_wp, 2.78739037_wp, 4.45639288_wp, 2.68108583_wp, 2.31545094_wp, &
3.72300764_wp ]
real(wp),parameter :: dpolc(max_elem) = [ &
0.5563889E-01_wp,-0.1000000E-01_wp,-0.5000000E-02_wp,-0.6133410E-02_wp, &
-0.4811860E-02_wp,-0.4116740E-02_wp, 0.3521273E-01_wp,-0.4935670E-01_wp, &
-0.8339183E-01_wp, 0.1000000E+00_wp, 0.0000000E+00_wp,-0.8200500E-03_wp, &
0.2633341E-01_wp,-0.2575000E-03_wp, 0.2110225E-01_wp,-0.1511170E-02_wp, &
-0.2536958E-01_wp,-0.2077329E-01_wp,-0.1033830E-02_wp,-0.2366750E-02_wp, &
-0.5151770E-02_wp,-0.4345060E-02_wp,-0.3500000E-02_wp, 0.1496690E-02_wp, &
-0.7591680E-02_wp, 0.4129290E-02_wp,-0.2479380E-02_wp,-0.1261887E-01_wp, &
-0.7000000E-02_wp,-0.1000000E-02_wp, 0.2672190E-02_wp, 0.1084600E-02_wp, &
-0.2012940E-02_wp,-0.2886480E-02_wp,-0.1088586E-01_wp,-0.8893570E-02_wp, &
-0.9332800E-03_wp,-0.4599250E-02_wp,-0.6372910E-02_wp,-0.5996150E-02_wp, &
-0.2887290E-02_wp, 0.3463270E-02_wp,-0.4584160E-02_wp,-0.8192200E-03_wp, &
0.7016000E-04_wp,-0.3103610E-02_wp,-0.8003140E-02_wp,-0.1053640E-02_wp, &
0.9510790E-02_wp, 0.8502900E-03_wp,-0.1551900E-03_wp,-0.2634140E-02_wp, &
-0.6036480E-02_wp,-0.2144470E-02_wp,-0.8000000E-03_wp,-0.2600000E-02_wp, &
-0.3951980E-02_wp,-0.7238060E-02_wp,-0.7048190E-02_wp,-0.6858320E-02_wp, &
-0.6668450E-02_wp,-0.6478580E-02_wp,-0.6288710E-02_wp,-0.6098840E-02_wp, &
-0.5908970E-02_wp,-0.5719100E-02_wp,-0.5529230E-02_wp,-0.5339360E-02_wp, &
-0.5149490E-02_wp,-0.4959610E-02_wp,-0.4769740E-02_wp,-0.5376850E-02_wp, &
-0.2003430E-02_wp, 0.6588600E-03_wp,-0.5876360E-02_wp,-0.5100900E-02_wp, &
-0.6738220E-02_wp,-0.4236840E-02_wp, 0.3934180E-02_wp,-0.2500000E-02_wp, &
0.3740180E-02_wp, 0.1007016E-01_wp,-0.7372520E-02_wp,-0.1344854E-01_wp, &
-0.3481230E-02_wp,-0.1675970E-02_wp ]
integer :: i
call chrgeq%allocate(n,extended=.true.)
do i = 1, n
chrgeq%en (i) = en (at(i))
chrgeq%gam (i) = gam (at(i))
chrgeq%kappa(i) = kappa(at(i))
chrgeq%alpha(i) = alpha(at(i))
chrgeq%beta (i) = alpha(at(i))*3
chrgeq%dpol (i) = dpolc(at(i))
enddo
end subroutine new_multieq_model_2019
subroutine new_charge_model_2019(chrgeq,n,at)
use xtb_mctc_accuracy, only : wp
use xtb_type_param
implicit none
type(chrg_parameter) :: chrgeq
integer,intent(in) :: n
integer,intent(in) :: at(n)
!! ------------------------------------------------------------------------
! PARAMETRISATION BY S. SPICHER (Fri, 14 Dec 2018 16:13:08 +0100)
!! ------------------------------------------------------------------------
integer, parameter :: max_elem = 86
real(wp),parameter :: en(max_elem) = (/ &
1.23695041_wp, 1.26590957_wp, 0.54341808_wp, 0.99666991_wp, 1.26691604_wp,&
1.40028282_wp, 1.55819364_wp, 1.56866440_wp, 1.57540015_wp, 1.15056627_wp,&
0.55936220_wp, 0.72373742_wp, 1.12910844_wp, 1.12306840_wp, 1.52672442_wp,&
1.40768172_wp, 1.48154584_wp, 1.31062963_wp, 0.40374140_wp, 0.75442607_wp,&
0.76482096_wp, 0.98457281_wp, 0.96702598_wp, 1.05266584_wp, 0.93274875_wp,&
1.04025281_wp, 0.92738624_wp, 1.07419210_wp, 1.07900668_wp, 1.04712861_wp,&
1.15018618_wp, 1.15388455_wp, 1.36313743_wp, 1.36485106_wp, 1.39801837_wp,&
1.18695346_wp, 0.36273870_wp, 0.58797255_wp, 0.71961946_wp, 0.96158233_wp,&
0.89585296_wp, 0.81360499_wp, 1.00794665_wp, 0.92613682_wp, 1.09152285_wp,&
1.14907070_wp, 1.13508911_wp, 1.08853785_wp, 1.11005982_wp, 1.12452195_wp,&
1.21642129_wp, 1.36507125_wp, 1.40340000_wp, 1.16653482_wp, 0.34125098_wp,&
0.58884173_wp, 0.68441115_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp,&
0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp,&
0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp,&
0.56999999_wp, 0.87936784_wp, 1.02761808_wp, 0.93297476_wp, 1.10172128_wp,&
0.97350071_wp, 1.16695666_wp, 1.23997927_wp, 1.18464453_wp, 1.14191734_wp,&
1.12334192_wp, 1.01485321_wp, 1.12950808_wp, 1.30804834_wp, 1.33689961_wp,&
1.27465977_wp /)
real(wp),parameter :: gam(max_elem) = (/ &
-0.35015861_wp, 1.04121227_wp, 0.09281243_wp, 0.09412380_wp, 0.26629137_wp,&
0.19408787_wp, 0.05317918_wp, 0.03151644_wp, 0.32275132_wp, 1.30996037_wp,&
0.24206510_wp, 0.04147733_wp, 0.11634126_wp, 0.13155266_wp, 0.15350650_wp,&
0.15250997_wp, 0.17523529_wp, 0.28774450_wp, 0.42937314_wp, 0.01896455_wp,&
0.07179178_wp,-0.01121381_wp,-0.03093370_wp, 0.02716319_wp,-0.01843812_wp,&
-0.15270393_wp,-0.09192645_wp,-0.13418723_wp,-0.09861139_wp, 0.18338109_wp,&
0.08299615_wp, 0.11370033_wp, 0.19005278_wp, 0.10980677_wp, 0.12327841_wp,&
0.25345554_wp, 0.58615231_wp, 0.16093861_wp, 0.04548530_wp,-0.02478645_wp,&
0.01909943_wp, 0.01402541_wp,-0.03595279_wp, 0.01137752_wp,-0.03697213_wp,&
0.08009416_wp, 0.02274892_wp, 0.12801822_wp,-0.02078702_wp, 0.05284319_wp,&
0.07581190_wp, 0.09663758_wp, 0.09547417_wp, 0.07803344_wp, 0.64913257_wp,&
0.15348654_wp, 0.05054344_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp,&
0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp,&
0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp,&
0.11000000_wp,-0.02786741_wp, 0.01057858_wp,-0.03892226_wp,-0.04574364_wp,&
-0.03874080_wp,-0.03782372_wp,-0.07046855_wp, 0.09546597_wp, 0.21953269_wp,&
0.02522348_wp, 0.15263050_wp, 0.08042611_wp, 0.01878626_wp, 0.08715453_wp,&
0.10500484_wp /)
real(wp),parameter :: kappa(max_elem) = (/ &
0.04916110_wp, 0.10937243_wp,-0.12349591_wp,-0.02665108_wp,-0.02631658_wp,&
0.06005196_wp, 0.09279548_wp, 0.11689703_wp, 0.15704746_wp, 0.07987901_wp,&
-0.10002962_wp,-0.07712863_wp,-0.02170561_wp,-0.04964052_wp, 0.14250599_wp,&
0.07126660_wp, 0.13682750_wp, 0.14877121_wp,-0.10219289_wp,-0.08979338_wp,&
-0.08273597_wp,-0.01754829_wp,-0.02765460_wp,-0.02558926_wp,-0.08010286_wp,&
-0.04163215_wp,-0.09369631_wp,-0.03774117_wp,-0.05759708_wp, 0.02431998_wp,&
-0.01056270_wp,-0.02692862_wp, 0.07657769_wp, 0.06561608_wp, 0.08006749_wp,&
0.14139200_wp,-0.05351029_wp,-0.06701705_wp,-0.07377246_wp,-0.02927768_wp,&
-0.03867291_wp,-0.06929825_wp,-0.04485293_wp,-0.04800824_wp,-0.01484022_wp,&
0.07917502_wp, 0.06619243_wp, 0.02434095_wp,-0.01505548_wp,-0.03030768_wp,&
0.01418235_wp, 0.08953411_wp, 0.08967527_wp, 0.07277771_wp,-0.02129476_wp,&
-0.06188828_wp,-0.06568203_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,&
-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,&
-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,&
-0.11000000_wp,-0.03585873_wp,-0.03132400_wp,-0.05902379_wp,-0.02827592_wp,&
-0.07606260_wp,-0.02123839_wp, 0.03814822_wp, 0.02146834_wp, 0.01580538_wp,&
-0.00894298_wp,-0.05864876_wp,-0.01817842_wp, 0.07721851_wp, 0.07936083_wp,&
0.05849285_wp /)
real(wp),parameter :: alpha(max_elem) = (/ &
0.55159092_wp, 0.66205886_wp, 0.90529132_wp, 1.51710827_wp, 2.86070364_wp,&
1.88862966_wp, 1.32250290_wp, 1.23166285_wp, 1.77503721_wp, 1.11955204_wp,&
1.28263182_wp, 1.22344336_wp, 1.70936266_wp, 1.54075036_wp, 1.38200579_wp,&
2.18849322_wp, 1.36779065_wp, 1.27039703_wp, 1.64466502_wp, 1.58859404_wp,&
1.65357953_wp, 1.50021521_wp, 1.30104175_wp, 1.46301827_wp, 1.32928147_wp,&
1.02766713_wp, 1.02291377_wp, 0.94343886_wp, 1.14881311_wp, 1.47080755_wp,&
1.76901636_wp, 1.98724061_wp, 2.41244711_wp, 2.26739524_wp, 2.95378999_wp,&
1.20807752_wp, 1.65941046_wp, 1.62733880_wp, 1.61344972_wp, 1.63220728_wp,&
1.60899928_wp, 1.43501286_wp, 1.54559205_wp, 1.32663678_wp, 1.37644152_wp,&
1.36051851_wp, 1.23395526_wp, 1.65734544_wp, 1.53895240_wp, 1.97542736_wp,&
1.97636542_wp, 2.05432381_wp, 3.80138135_wp, 1.43893803_wp, 1.75505957_wp,&
1.59815118_wp, 1.76401732_wp, 1.63999999_wp, 1.63999999_wp, 1.63999999_wp,&
1.63999999_wp, 1.63999999_wp, 1.63999999_wp, 1.63999999_wp, 1.63999999_wp,&
1.63999999_wp, 1.63999999_wp, 1.63999999_wp, 1.63999999_wp, 1.63999999_wp,&
1.63999999_wp, 1.47055223_wp, 1.81127084_wp, 1.40189963_wp, 1.54015481_wp,&
1.33721475_wp, 1.57165422_wp, 1.04815857_wp, 1.78342098_wp, 2.79106396_wp,&
1.78160840_wp, 2.47588882_wp, 2.37670734_wp, 1.76613217_wp, 2.66172302_wp,&
2.82773085_wp /)
integer :: i
call chrgeq%allocate(n)
do i = 1, n
chrgeq%en (i) = en (at(i))
chrgeq%gam (i) = gam (at(i))
chrgeq%kappa(i) = kappa(at(i))
chrgeq%alpha(i) = alpha(at(i))
enddo
end subroutine new_charge_model_2019
subroutine new_charge_model_2018(chrgeq,n,at)
use xtb_mctc_accuracy, only : wp
use xtb_type_param
implicit none
type(chrg_parameter) :: chrgeq
integer,intent(in) :: n
integer,intent(in) :: at(n)
!! ------------------------------------------------------------------------
! PARAMETRISATION BY S. SPICHER (Fri, 19 Oct 2018 12:15:49 +0200)
!! ------------------------------------------------------------------------
integer, parameter :: max_elem = 86
real(wp),parameter :: en(max_elem) = (/ &
1.23246797_wp, 1.23678380_wp, 0.54354054_wp, 1.07316582_wp, 1.13569914_wp,&
1.37937538_wp, 1.53150709_wp, 1.54032780_wp, 1.46882833_wp, 1.13302128_wp,&
0.63327514_wp, 0.68730302_wp, 0.99823617_wp, 1.07950372_wp, 1.50449652_wp,&
1.39951019_wp, 1.52598012_wp, 1.27907542_wp, 0.50724547_wp, 0.85250848_wp,&
0.63084942_wp, 0.97122001_wp, 0.89213568_wp, 1.06848779_wp, 0.88675761_wp,&
0.92643940_wp, 1.07658822_wp, 0.79667533_wp, 1.02060727_wp, 0.99094458_wp,&
1.13024862_wp, 1.14478047_wp, 1.34552412_wp, 1.36515367_wp, 1.44560491_wp,&
1.15603238_wp, 0.30776713_wp, 0.55488955_wp, 0.72061253_wp, 0.82208038_wp,&
0.91871553_wp, 0.74958769_wp, 0.98634094_wp, 0.93563427_wp, 1.00922031_wp,&
1.08092750_wp, 1.09077840_wp, 1.10155149_wp, 0.97377281_wp, 1.15043898_wp,&
1.20792358_wp, 1.36527027_wp, 1.38690869_wp, 1.12021226_wp, 0.37885185_wp,&
0.81197551_wp, 0.60282207_wp, 0.60300000_wp, 0.60300000_wp, 0.60300000_wp,&
0.60300000_wp, 0.60300000_wp, 0.60300000_wp, 0.60300000_wp, 0.60300000_wp,&
0.60300000_wp, 0.60300000_wp, 0.60300000_wp, 0.60300000_wp, 0.60300000_wp,&
0.60300000_wp, 0.60457044_wp, 1.03860983_wp, 1.05078223_wp, 1.16035684_wp,&
1.21782330_wp, 1.28662970_wp, 1.25584923_wp, 1.17736525_wp, 1.15718537_wp,&
1.05728283_wp, 1.01478684_wp, 1.10230954_wp, 1.23575846_wp, 1.29741267_wp,&
1.26158938_wp/)
real(wp),parameter :: gam(max_elem) = (/ &
-0.27489752_wp, 1.00704831_wp, 0.34071460_wp, 0.08105579_wp, 0.23471517_wp,&
0.12761720_wp, 0.05932592_wp, 0.08277108_wp, 0.34239102_wp, 0.78945378_wp,&
0.28268286_wp, 0.15198052_wp, 0.15391686_wp, 0.14203269_wp, 0.27190586_wp,&
0.11133624_wp, 0.46712500_wp, 0.40340963_wp, 0.43192407_wp, 0.13848799_wp,&
0.18409419_wp, 0.08022090_wp, 0.12834219_wp, 0.11194514_wp, 0.11124648_wp,&
0.09114324_wp, 0.01245244_wp, 0.03607465_wp, 0.06443861_wp, 0.23075980_wp,&
0.10908422_wp, 0.08345121_wp, 0.17433437_wp, 0.12874012_wp, 0.19799687_wp,&
0.35525360_wp, 0.43550143_wp, 0.24189880_wp, 0.09134220_wp, 0.11710135_wp,&
0.06107508_wp, 0.08816239_wp, 0.05368855_wp, 0.08338086_wp, 0.05683249_wp,&
0.13991799_wp, 0.12938431_wp, 0.09081899_wp, 0.08946107_wp, 0.04486041_wp,&
0.13635071_wp, 0.15548135_wp, 0.09717308_wp, 0.17235987_wp, 0.63306207_wp,&
0.21376153_wp, 0.12277197_wp, 0.12700000_wp, 0.12700000_wp, 0.12700000_wp,&
0.12700000_wp, 0.12700000_wp, 0.12700000_wp, 0.12700000_wp, 0.12700000_wp,&
0.12700000_wp, 0.12700000_wp, 0.12700000_wp, 0.12700000_wp, 0.12700000_wp,&
0.12700000_wp, 0.13318693_wp, 0.05965057_wp, 0.01671840_wp, 0.02491941_wp,&
0.01351197_wp, 0.02341562_wp, 0.04219035_wp, 0.07839352_wp, 0.15950374_wp,&
0.17359289_wp, 0.16380548_wp, 0.11025180_wp, 0.05546045_wp, 0.06672905_wp,&
0.11297489_wp/)
real(wp),parameter :: kappa(max_elem) = (/ &
0.01422129_wp, 0.36987075_wp,-0.12738757_wp,-0.03351538_wp,-0.04216033_wp,&
0.06676096_wp, 0.14070447_wp, 0.14684002_wp, 0.11360012_wp, 0.24745874_wp,&
-0.09997174_wp,-0.10191510_wp,-0.05658005_wp,-0.03042332_wp, 0.17934618_wp,&
0.09229482_wp, 0.19499461_wp, 0.19494756_wp,-0.05405802_wp,-0.07626752_wp,&
-0.12341715_wp,-0.03639558_wp,-0.09048218_wp,-0.06284416_wp,-0.13515558_wp,&
-0.10699213_wp,-0.06715865_wp,-0.20918026_wp,-0.07667280_wp,-0.00551953_wp,&
0.00027244_wp,-0.01922636_wp, 0.08732735_wp, 0.08486002_wp, 0.13964063_wp,&
0.16391237_wp,-0.11757842_wp,-0.11185355_wp,-0.10742621_wp,-0.07585379_wp,&
-0.06280485_wp,-0.12142065_wp,-0.06814013_wp,-0.07531689_wp,-0.06075124_wp,&
0.01955447_wp, 0.04077176_wp, 0.01340060_wp,-0.05917210_wp,-0.00740372_wp,&
0.02571361_wp, 0.09533328_wp, 0.08639724_wp, 0.07409935_wp,-0.08851343_wp,&
-0.02042462_wp,-0.10384451_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,&
-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,&
-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,&
-0.11000000_wp,-0.12184554_wp,-0.05144041_wp,-0.06006418_wp,-0.02817541_wp,&
-0.00792045_wp, 0.01627009_wp, 0.00884773_wp,-0.00049183_wp, 0.02652209_wp,&
-0.01258868_wp,-0.04974423_wp,-0.02081982_wp, 0.02927793_wp, 0.05314950_wp,&
0.06732131_wp/)
real(wp),parameter :: alpha(max_elem) = (/ &
0.57707019_wp, 0.51575989_wp, 0.99515576_wp, 1.80197223_wp, 2.31419253_wp,&
1.76206788_wp, 1.30582582_wp, 1.25023901_wp, 1.81619582_wp, 0.55372930_wp,&
1.36990551_wp, 1.26851926_wp, 2.22945756_wp, 1.72383310_wp, 1.71034451_wp,&
1.78237180_wp, 2.06376648_wp, 1.40024022_wp, 1.25534997_wp, 2.63503044_wp,&
1.38566080_wp, 1.57025576_wp, 1.37262637_wp, 1.79160917_wp, 1.59635110_wp,&
1.01726540_wp, 1.36035014_wp, 1.08587893_wp, 1.17481116_wp, 1.47067441_wp,&
2.05436095_wp, 2.22351909_wp, 2.34304426_wp, 2.25772299_wp, 3.05020818_wp,&
1.29437190_wp, 1.06290969_wp, 1.84660949_wp, 1.58520176_wp, 1.60093239_wp,&
1.68794490_wp, 1.36082945_wp, 1.87731510_wp, 1.42281352_wp, 1.48513495_wp,&
1.38964955_wp, 1.35988990_wp, 1.85268772_wp, 1.83356928_wp, 2.01115973_wp,&
2.31017191_wp, 2.39609492_wp, 3.42888191_wp, 1.54613874_wp, 1.41710487_wp,&
1.97377465_wp, 1.61360236_wp, 1.40000000_wp, 1.40000000_wp, 1.40000000_wp,&
1.40000000_wp, 1.40000000_wp, 1.40000000_wp, 1.40000000_wp, 1.40000000_wp,&
1.40000000_wp, 1.40000000_wp, 1.40000000_wp, 1.40000000_wp, 1.40000000_wp,&
1.40000000_wp, 1.23539671_wp, 1.95821108_wp, 1.70664862_wp, 1.89862769_wp,&
1.85150533_wp, 1.96977793_wp, 1.44086039_wp, 2.12023827_wp, 2.32373422_wp,&
2.25901981_wp, 2.45035320_wp, 2.57320085_wp, 2.15313970_wp, 2.53046115_wp,&
2.57377591_wp/)
integer :: i
call chrgeq%allocate(n)
do i = 1, n
chrgeq%en (i) = en (at(i))
chrgeq%gam (i) = gam (at(i))
chrgeq%kappa(i) = kappa(at(i))
chrgeq%alpha(i) = alpha(at(i))
enddo
end subroutine new_charge_model_2018
subroutine gfn0_charge_model(chrgeq,n,at,jData)
use xtb_mctc_accuracy, only : wp
use xtb_type_param
use xtb_xtb_data
implicit none
type(TCoulombData), intent(in) :: jData
type(chrg_parameter) :: chrgeq
integer, intent(in) :: n
integer, intent(in) :: at(n)
integer :: i
call chrgeq%allocate(n)
do i = 1, n
chrgeq%en (i) = jData%electronegativity(at(i))
chrgeq%gam (i) = jData%chemicalHardness(at(i))
chrgeq%kappa(i) = jData%kCN(at(i))
chrgeq%alpha(i) = jData%chargeWidth(at(i))
enddo
end subroutine gfn0_charge_model
subroutine read_charge_model(chrgeq,n,at,fname)
use xtb_mctc_accuracy, only : wp
use xtb_type_param
implicit none
type(chrg_parameter) :: chrgeq
integer, intent(in) :: n
integer, intent(in) :: at(n)
integer, parameter :: max_elem = 86
character(len=*),intent(in) :: fname
integer :: i,ifile,err
logical :: exist
real(wp) :: en(max_elem) = 0.0_wp
real(wp) :: gam(max_elem) = 0.0_wp
real(wp) :: kappa(max_elem) = 0.0_wp
real(wp) :: alpha(max_elem) = 0.0_wp
real(wp) :: beta(max_elem) = 0.0_wp
real(wp) :: dpolc(max_elem) = 0.0_wp
call chrgeq%allocate(n,extended=.true.)
inquire(file=fname,exist=exist)
open(newunit=ifile,file=fname)
do i = 1, max_elem
read(ifile,*,iostat=err) en(i),gam(i),kappa(i),alpha(i),beta(i),dpolc(i)
if (err.ne.0) exit
enddo
close(ifile)
do i = 1, n
chrgeq%en (i) = en (at(i))
chrgeq%gam (i) = gam (at(i))
chrgeq%kappa(i) = kappa(at(i))
chrgeq%alpha(i) = alpha(at(i))
chrgeq%beta (i) = beta (at(i))
chrgeq%dpol (i) = dpolc(at(i))
enddo
end subroutine read_charge_model
end module xtb_chargemodel
xtb-6.7.1/src/coffee.f90 0000664 0000000 0000000 00000006652 14650006642 0014674 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_coffee
contains
subroutine get_COFFEE(mol)
use xtb_mctc_accuracy, only : wp
use xtb_type_molecule
type(TMolecule), intent(inout) :: mol
integer, parameter :: nat = 24
integer, parameter :: at(nat) = [6,7,6,7,6,6,6,8,7,6,8,7,6,6, &
& 1,1,1,1,1,1,1,1,1,1]
real(wp),parameter :: xyz(3,nat) = reshape(&
&[ 2.02799738646442_wp, 0.09231312124713_wp, -0.14310895950963_wp, &
& 4.75011007621000_wp, 0.02373496014051_wp, -0.14324124033844_wp, &
& 6.33434307654413_wp, 2.07098865582721_wp, -0.14235306905930_wp, &
& 8.72860718071825_wp, 1.38002919517619_wp, -0.14265542523943_wp, &
& 8.65318821103610_wp, -1.19324866489847_wp, -0.14231527453678_wp, &
& 6.23857175648671_wp, -2.08353643730276_wp, -0.14218299370797_wp, &
& 5.63266886875962_wp, -4.69950321056008_wp, -0.13940509630299_wp, &
& 3.44931709749015_wp, -5.48092386085491_wp, -0.14318454855466_wp, &
& 7.77508917214346_wp, -6.24427872938674_wp, -0.13107140408805_wp, &
& 10.30229550927022_wp, -5.39739796609292_wp, -0.13672168520430_wp, &
& 12.07410272485492_wp, -6.91573621641911_wp, -0.13666499342053_wp, &
& 10.70038521493902_wp, -2.79078533715849_wp, -0.14148379504141_wp, &
& 13.24597858727017_wp, -1.76969072232377_wp, -0.14218299370797_wp, &
& 7.40891694074004_wp, -8.95905928176407_wp, -0.11636933482904_wp, &
& 1.38702118184179_wp, 2.05575746325296_wp, -0.14178615122154_wp, &
& 1.34622199478497_wp, -0.86356704498496_wp, 1.55590600570783_wp, &
& 1.34624089204623_wp, -0.86133716815647_wp, -1.84340893849267_wp, &
& 5.65596919189118_wp, 4.00172183859480_wp, -0.14131371969009_wp, &
& 14.67430918222276_wp, -3.26230980007732_wp, -0.14344911021228_wp, &
& 13.50897177220290_wp, -0.60815166181684_wp, 1.54898960808727_wp, &
& 13.50780014200488_wp, -0.60614855212345_wp, -1.83214617078268_wp, &
& 5.41408424778406_wp, -9.49239668625902_wp, -0.11022772492007_wp, &
& 8.31919801555568_wp, -9.74947502841788_wp, 1.56539243085954_wp, &
& 8.31511620712388_wp, -9.76854236502758_wp, -1.79108242206824_wp],&
& shape(xyz))
call init(mol, at, xyz)
end subroutine get_COFFEE
subroutine get_CUP(iunit,fmt)
implicit none
integer, intent(in) :: iunit
character(len=*),intent(in) :: fmt
write(iunit,fmt) &
& " )", &
& " ) (", &
& " ( ) (", &
& " _..,)----,)._", &
& " .-;'-.,_____,.-';", &
& " (( | |", &
& " `)) ;", &
& " ` \ /", &
& " .-' `,._____.,' '-.", &
& " ( '-------' )", &
& " `-=.._________..--'"
end subroutine get_CUP
end module xtb_coffee
xtb-6.7.1/src/constr.f90 0000664 0000000 0000000 00000076414 14650006642 0014760 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public Licen
! along with xtb. If not, see .
subroutine constralltors(n,at,xyz)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_constants
use xtb_scanparam
use xtb_intmodes
implicit none
integer, intent(in) :: n
integer, intent(in) :: at(n)
real(wp),intent(in) :: xyz(3,n)
real(wp) :: phi,valijkl,a1,a2
integer :: i,j,k,ii,jj,kk,ll,irm
integer :: nb(0:20,n),list(n,n)
call neighbor(n,xyz,at,nb)
list = 0
do i=1,n
k=nb(20,i)
do j=1,k
list(nb(j,i),i)=1
enddo
enddo
irm=0
k=0
do i=1,n-1
if(nb(20,i).le.1) cycle
do j=i+1,n
if(nb(20,j).le.1) cycle
if(list(j,i).eq.1)then
do ii=1,nb(20,i)
kk=nb(ii,i)
do jj=1,nb(20,j)
ll=nb(jj,j)
if(kk.eq.j) cycle
if(ll.eq.i) cycle
call BANGLE(XYZ,I,J,ll,A1) ! avoid linear cas
call BANGLE(XYZ,J,I,KK,A2)
if(abs(pi-a1).lt.0.2.or.abs(pi-a2).lt.0.2)then
irm=irm+1
cycle
endif
k=k+1
atconstr(1,k)=kk
atconstr(2,k)=i
atconstr(3,k)=j
atconstr(4,k)=ll
phi=valijkl(n,xyz,kk,i,j,ll)
valconstr(k)=phi
! write(*,*) atconstr(1:4,k),phi*180./3.14159
enddo
enddo
endif
enddo
enddo
write(*,*) 'constraining ',k,' torsions'
write(*,*) irm,' near linear torsions not included'
nconstr=nconstr+k
end subroutine constralltors
subroutine constrallangles(n,at,xyz)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_constants
use xtb_scanparam
implicit none
integer n, at(n)
real(wp) xyz(3,n)
real(wp) phi,valijkl,a1,a2
integer i,j,k,ii,jj,kk,ll,irm,nb(0:20,n),list(n,n)
call neighbor(n,xyz,at,nb)
list = 0
do i=1,n
k=nb(20,i)
do j=1,k
list(nb(j,i),i)=1
enddo
enddo
irm=0
k=0
do i=1,n
if(nb(20,i).le.1) cycle
do ii=1,nb(20,i)
kk=nb(ii,i)
do jj=1,nb(20,i)
ll=nb(jj,i)
call bangl(xyz,kk,i,ll,phi)
if(abs(pi-phi).lt.0.2)then
irm=irm+1
cycle
endif
k=k+1
atconstr(1,k)=kk
atconstr(2,k)=i
atconstr(3,k)=ll
valconstr(k)=phi
! write(*,*) atconstr(1:3,k),phi*180./3.14159
enddo
enddo
enddo
write(*,*) 'constraining ',k,' angles'
write(*,*) irm,' near linear angles not included'
nconstr=nconstr+k
end subroutine constrallangles
subroutine constrallbonds(nat,at,xyz)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_convert, only : autoaa
use xtb_param_atomicrad, only : atomicRad
use xtb_scanparam
implicit none
integer nat,at(nat)
real(wp) xyz(3,nat)
real(wp) rco,rij
integer i,j
do i = 1, nat
do j =1, i
if(i.eq.j) cycle
rij=sqrt(sum((xyz(:,i)-xyz(:,j))**2))
rco=(atomicRad(at(j))+atomicRad(at(i)))*autoaa
if(0.52917726*rij.lt.1.2*rco)then
nconstr = nconstr + 1
atconstr(1,nconstr) = i
atconstr(2,nconstr) = j
valconstr(nconstr) = rij
! write(*,*) at(i),at(j),rco,0.52917726*rij
endif
enddo
enddo
write(*,*) 'constraining ',nconstr,' bonds'
end subroutine constrallbonds
subroutine constrpot(nat,at,xyz,g,e)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_constants
use xtb_scanparam
use xtb_splitparam
implicit none
integer nat,at(nat)
real(wp) e
real(wp) xyz(3,nat)
real(wp) g(3,nat)
integer i,j,k,l,kk
real(wp)rij(3),dum,r0,ffc,vp(3),ra(3),rb(3)
real(wp)va(3),vb(3),vc(3),vab(3),vcb(3),deda(3),dedc(3),dedb(3)
real(wp)dda(3),ddb(3),ddc(3),ddd(3)
real(wp)c0,rab2,rcb2,theta,dt,rmul1,rmul2,deddt,rp,cosa,ea,vlen,d
real(wp)c1,phi0,phi,dphi1,x1cos,x1sin,dij,valijkl,ff,dum1,dum2
real(wp)dx,dy,dz,termx,termy,termz,abcx,abcy,abcz,a,z0,expo,expom1
if(nconstr.eq.0) return
ffc=fcconstr
do kk=1,nconstr
! CMA distance to valconstr (usually=0) for atoms in fragment1
if(atconstr(1,kk).eq.-2)then
rb=0
do i=1,iatf1
a=atmass(i)
rb(1)=rb(1)+a*xyz(1,i)
rb(2)=rb(2)+a*xyz(2,i)
rb(3)=rb(3)+a*xyz(3,i)
enddo
z0=valconstr(kk)
ra(1)=rb(1)/massf1 - z0
ra(2)=rb(2)/massf1 - z0
ra(3)=rb(3)/massf1 - z0
d=ra(1)**2+ra(2)**2+ra(3)**2
ffc=fcconstr/dble(iatf1)
e=e+ffc*d
do i=1,iatf1
ff=2.0d0*ffc*atmass(i)/massf1
g(1,i)=g(1,i)+ra(1)*ff
g(2,i)=g(2,i)+ra(2)*ff
g(3,i)=g(3,i)+ra(3)*ff
enddo
endif
! Z distance for atoms in fragment2
if(atconstr(1,kk).eq.-1)then
ffc=0.1*fcconstr/dble(iatf2)
z0=valconstr(kk)
do i=1,nat
if(splitlist(i).eq.2)then
dz=xyz(3,i)-z0
e=e+ffc*dz**2
g(3,i)=g(3,i)+2.0d0*ffc*dz
endif
enddo
endif
! CMA distance (rcma in common block for average in MD)
if(atconstr(1,kk).eq.0)then
expo=6.0d0
expom1=5.0d0
ffc=0.1*fcconstr
r0=valconstr (kk)
call cmafrag(nat,at,xyz,ra,rb) ! rcma in common
d=rcma-r0
e=e+(1./expo)*ffc*d**expo
do i=1,nat
dx = (ra(2)-rb(2))**2+(ra(3)-rb(3))**2
dy = (ra(1)-rb(1))**2+(ra(3)-rb(3))**2
dz = (ra(2)-rb(2))**2+(ra(1)-rb(1))**2
if(splitlist(i).eq.1)then ! fragment 1
a = ffc*atmass(i)/massf1
abcx=ra(1)-rb(1)
abcy=ra(2)-rb(2)
abcz=ra(3)-rb(3)
termx=sqrt(abcx**2+dx)
termy=sqrt(abcy**2+dy)
termz=sqrt(abcz**2+dz)
g(1,i)=g(1,i)+a*abcx*(termx-r0)**expom1/termx
g(2,i)=g(2,i)+a*abcy*(termy-r0)**expom1/termy
g(3,i)=g(3,i)+a*abcz*(termz-r0)**expom1/termz
else ! fragment 2
a = ffc*atmass(i)/massf2
abcx=rb(1)-ra(1)
abcy=rb(2)-ra(2)
abcz=rb(3)-ra(3)
termx=sqrt(abcx**2+dx)
termy=sqrt(abcy**2+dy)
termz=sqrt(abcz**2+dz)
g(1,i)=g(1,i)+a*abcx*(termx-r0)**expom1/termx
g(2,i)=g(2,i)+a*abcy*(termy-r0)**expom1/termy
g(3,i)=g(3,i)+a*abcz*(termz-r0)**expom1/termz
endif
enddo
endif
! length (rcma in common block for average in MD)
if(atconstr(3,kk).eq.0.and.atconstr(1,kk).ne.0&
&.and.atconstr(2,kk).ne.0)then
i= atconstr(1,kk)
j= atconstr(2,kk)
r0=valconstr (kk)
rij=xyz(:,j)-xyz(:,i)
rcma=sqrt(sum(rij*rij))
d=rcma-r0
! e=e+ffc*d*d
! ff=ffc*2.0d0*d
dum= d**springexpo
dum2=d**(springexpo-1.)
e=e+ffc*dum
ff=ffc*springexpo*dum2
if(kk.eq.1) pmf=ff
dum=ff/rcma
g(1,j)=g(1,j)+dum*rij(1)
g(1,i)=g(1,i)-dum*rij(1)
g(2,j)=g(2,j)+dum*rij(2)
g(2,i)=g(2,i)-dum*rij(2)
g(3,j)=g(3,j)+dum*rij(3)
g(3,i)=g(3,i)-dum*rij(3)
endif
! bend
if (atconstr(4,kk).eq.0.and.atconstr(3,kk).gt.0) then
i= atconstr(1,kk)
j= atconstr(2,kk)
k= atconstr(3,kk)
c0 =valconstr(kk)
va = xyz(1:3,i)
vb = xyz(1:3,j)
vc = xyz(1:3,k)
vab = va-vb
vcb = vc-vb
rab2 = vab(1)*vab(1) + vab(2)*vab(2) + vab(3)*vab(3)
rcb2 = vcb(1)*vcb(1) + vcb(2)*vcb(2) + vcb(3)*vcb(3)
call crprod(vcb,vab,vp)
rp = norm2(vp)+1.d-14
call impsc(vab,vcb,cosa)
cosa = dble(min(1.0d0,max(-1.0d0,cosa)))
theta= dacos(cosa)
dt = theta - c0
ea = ffc* dt**2
deddt = 2.d0 * ffc * dt
e = e + ea
call crprod(vab,vp,deda)
rmul1 = -deddt / (rab2*rp)
deda = deda*rmul1
call crprod(vcb,vp,dedc)
rmul2 = deddt / (rcb2*rp)
dedc = dedc*rmul2
dedb = deda+dedc
g(1:3,i) = g(1:3,i) + deda(1:3)
g(1:3,j) = g(1:3,j) - dedb(1:3)
g(1:3,k) = g(1:3,k) + dedc(1:3)
endif
! dihed
if(atconstr(4,kk).ne.0)then
i= atconstr(1,kk)
j= atconstr(2,kk)
k= atconstr(3,kk)
l= atconstr(4,kk)
phi0 =valconstr(kk)
phi=valijkl(nat,xyz,i,j,k,l)
if(abs(phi-pi).lt.1.d-8.or.abs(phi).lt.1.d-8)phi=phi+1.d-8
call dphidr(nat,xyz,i,j,k,l,phi,dda,ddb,ddc,ddd)
dphi1=phi0-phi+pi
x1cos=cos(dphi1)
x1sin=sin(dphi1)
dij =ffc*x1sin
g(1:3,i)=g(1:3,i)+dij*dda(1:3)
g(1:3,j)=g(1:3,j)+dij*ddb(1:3)
g(1:3,k)=g(1:3,k)+dij*ddc(1:3)
g(1:3,l)=g(1:3,l)+dij*ddd(1:3)
e=e+ffc*(1.+x1cos)
endif
enddo
end subroutine constrpot
subroutine constrhess(nat,at,xyz0,Hess)
use xtb_mctc_accuracy, only : wp
use xtb_scanparam
use xtb_constrainpot
use xtb_fixparam
use xtb_metadynamic
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(inout) :: Hess((nat*3)*((nat*3)+1)/2)
real(wp),intent(in) :: xyz0(3,nat)
integer ia,ic,ja,jc,i,j,k,n,n3,ii,jj
real(wp) step,step2,e
real(wp),allocatable :: gr(:,:),gl(:,:)
real(wp),allocatable :: xyz(:,:)
real(wp),allocatable :: h(:,:)
allocate(gr(3,nat),gl(3,nat),xyz(3,nat),h(nat*3,nat*3))
call qpothess2(potset%pos,nat,at,xyz0,hess)
if(nconstr.eq.0 .and. potset%dist%n.eq.0 .and. potset%angle%n.eq.0&
&.and. potset%dihedral%n.eq.0 ) return
xyz=xyz0
n =nat
n3=3*nat
step =0.0001
step2=0.5d0/step
e=0
do ia = 1, n
do ic = 1, 3
ii = (ia-1)*3+ic
xyz(ic,ia)=xyz(ic,ia)+step
gr=0
call constrpot(nat,at,xyz,gr,e)
call constrain_dist (potset%dist, nat,at,xyz,gr,e)
call constrain_angle (potset%angle, nat,at,xyz,gr,e)
call constrain_dihedral(potset%dihedral,nat,at,xyz,gr,e)
call metadynamic(metaset,nat,at,xyz,e,gr)
xyz(ic,ia)=xyz(ic,ia)-2.*step
gl=0
call constrpot(nat,at,xyz,gl,e)
call constrain_dist (potset%dist, nat,at,xyz,gl,e)
call constrain_angle (potset%angle, nat,at,xyz,gl,e)
call constrain_dihedral(potset%dihedral,nat,at,xyz,gl,e)
call metadynamic(metaset,nat,at,xyz,e,gl)
xyz(ic,ia)=xyz(ic,ia)+step
do ja = 1, n
do jc = 1, 3
jj = (ja-1)*3 + jc
h(jj,ii) =(gr(jc,ja) - gl(jc,ja)) * step2
enddo
enddo
enddo
enddo
! call prmat(6,h,3*n,3*n,'H')
k=0
do i=1,n3
do j=1,i
k=k+1
hess(k)=hess(k)+0.5*(h(j,i)+h(i,j))
enddo
enddo
end subroutine
! .....................................................................
Subroutine dthetadr(nat,xyz,j,k,i,theta,kijk,dei,dej,dek)
use xtb_mctc_accuracy, only : wp
! .....................................................................
!
! Input
! -----
! __ __
! ra,rb : distance ij and distnace ik
!
! sinth : sinus of angle j-i-k
!
! costh : cosinus of angle j-i-k
!
!
! Output
! ------
!
! dei : derivatives of the atom i
!
! dej : derivatives of the atom j
!
! dek : derivatives of the atom k
!
! .....................................................................
implicit none
external vecnorm
integer ic,nat,j,k,i
real(wp) :: &
& ran,rbn,theta,xyz(3,nat),&
& ra(3),rb(3),sinth,costh,&
& dei(3),dej(3),dek(3),kijk,&
& fac,vecnorm,eps
parameter (eps=1.d-14)
! ... dtheta/dri, dtheta/drj and dtheta/drk
sinth=sin(theta)
costh=cos(theta)
do ic=1,3
ra(ic)=xyz(ic,j)-xyz(ic,i)
rb(ic)=xyz(ic,k)-xyz(ic,i)
end do
ran=vecnorm(ra,3,0)
rbn=vecnorm(rb,3,0)
if (abs(sinth).le.eps) then
fac=sign(kijk,costh)/(ran*rbn)
else
fac=1.d0/(sinth*ran*rbn)
end if
do ic=1,3
! ... dedri
dei(ic)=fac*( ra(ic)+rb(ic)-(rbn*rbn*ra(ic)+ran*ran*rb(ic))*&
& costh/(ran*rbn))
! ... dedrj
dej(ic)=fac*(ra(ic)*costh*rbn/ran-rb(ic))
! ... dedrk
dek(ic)=fac*(rb(ic)*costh*ran/rbn-ra(ic))
end do
End subroutine
Subroutine dphidr(nat,xyz,i,j,k,l,phi,&
& dphidri,dphidrj,dphidrk,dphidrl)
use xtb_mctc_accuracy, only : wp
! the torsion derivatives
implicit none
external vecnorm
integer ic,i,j,k,l,nat
real(wp)&
& sinphi,cosphi,onenner,thab,thbc,&
& ra(3),rb(3),rc(3),rab(3),rac(3),rbc(3),rbb(3),&
& raa(3),rba(3),rapba(3),rapbb(3),rbpca(3),rbpcb(3),&
& rapb(3),rbpc(3),na(3),nb(3),nan,nbn,&
& dphidri(3),dphidrj(3),dphidrk(3),dphidrl(3),&
& xyz(3,nat),phi,vecnorm,nenner,eps,vz
parameter (eps=1.d-14)
cosphi=cos(phi)
sinphi=sin(phi)
do ic=1,3
ra(ic)=xyz(ic,j)-xyz(ic,i)
rb(ic)=xyz(ic,k)-xyz(ic,j)
rc(ic)=xyz(ic,l)-xyz(ic,k)
rapb(ic)=ra(ic)+rb(ic)
rbpc(ic)=rb(ic)+rc(ic)
end do
call crossprod(ra,rb,na)
call crossprod(rb,rc,nb)
nan=vecnorm(na,3,0)
nbn=vecnorm(nb,3,0)
nenner=nan*nbn*sinphi
if (abs(nenner).lt.eps) then
dphidri=0
dphidrj=0
dphidrk=0
dphidrl=0
onenner=1.0d0/(nan*nbn)
else
onenner=1.d0/nenner
endif
call crossprod(na,rb,rab)
call crossprod(nb,ra,rba)
call crossprod(na,rc,rac)
call crossprod(nb,rb,rbb)
call crossprod(nb,rc,rbc)
call crossprod(na,ra,raa)
call crossprod(rapb,na,rapba)
call crossprod(rapb,nb,rapbb)
call crossprod(rbpc,na,rbpca)
call crossprod(rbpc,nb,rbpcb)
! ... dphidri
do ic=1,3
dphidri(ic)=onenner*(cosphi*nbn/nan*rab(ic)-rbb(ic))
! ... dphidrj
dphidrj(ic)=onenner*(cosphi*(nbn/nan*rapba(ic)&
& +nan/nbn*rbc(ic))&
& -(rac(ic)+rapbb(ic)))
! ... dphidrk
dphidrk(ic)=onenner*(cosphi*(nbn/nan*raa(ic)&
& +nan/nbn*rbpcb(ic))&
& -(rba(ic)+rbpca(ic)))
! ... dphidrl
dphidrl(ic)=onenner*(cosphi*nan/nbn*rbb(ic)-rab(ic))
end do
End subroutine
Subroutine dphidrPBC(mode,nat,xyz,i,j,k,l,vTrR,vTrB,vTrC,phi,&
& dphidri,dphidrj,dphidrk,dphidrl)
use xtb_mctc_accuracy, only : wp
! the torsion derivatives
implicit none
external vecnorm
integer mode,ic,i,j,k,l,nat
real(wp)&
& vTrR(3), vTrB(3), vTrC(3), &
& sinphi,cosphi,onenner,thab,thbc,&
& ra(3),rb(3),rc(3),rab(3),rac(3),rbc(3),rbb(3),&
& raa(3),rba(3),rapba(3),rapbb(3),rbpca(3),rbpcb(3),&
& rapb(3),rbpc(3),na(3),nb(3),nan,nbn,&
& dphidri(3),dphidrj(3),dphidrk(3),dphidrl(3),&
& xyz(3,nat),phi,vecnorm,nenner,eps,vz
parameter (eps=1.d-14)
cosphi=cos(phi)
sinphi=sin(phi)
if(mode.eq.1)then
do ic=1,3
ra(ic)=xyz(ic,j)+vTrB(ic)-xyz(ic,i)-vTrR(ic)
rb(ic)=xyz(ic,k)+vTrC(ic)-xyz(ic,j)-vTrB(ic)
rc(ic)=xyz(ic,l)-xyz(ic,k)-vTrC(ic)
rapb(ic)=ra(ic)+rb(ic)
rbpc(ic)=rb(ic)+rc(ic)
end do
elseif(mode.eq.2) then
do ic=1,3
ra(ic) = -(xyz(ic,i)+vTrC(ic))+xyz(ic,j)
rb(ic) = -xyz(ic,j)+(xyz(ic,k)+vTrR(ic))
rc(ic) = -(xyz(ic,k)+vTrR(ic))+(xyz(ic,l)+vTrB(ic))
rapb(ic)=ra(ic)+rb(ic)
rbpc(ic)=rb(ic)+rc(ic)
end do
endif
call crossprod(ra,rb,na)
call crossprod(rb,rc,nb)
nan=vecnorm(na,3,0)
nbn=vecnorm(nb,3,0)
nenner=nan*nbn*sinphi
if (abs(nenner).lt.eps) then
dphidri=0
dphidrj=0
dphidrk=0
dphidrl=0
onenner=1.0d0/(nan*nbn)
else
onenner=1.d0/nenner
endif
call crossprod(na,rb,rab)
call crossprod(nb,ra,rba)
call crossprod(na,rc,rac)
call crossprod(nb,rb,rbb)
call crossprod(nb,rc,rbc)
call crossprod(na,ra,raa)
call crossprod(rapb,na,rapba)
call crossprod(rapb,nb,rapbb)
call crossprod(rbpc,na,rbpca)
call crossprod(rbpc,nb,rbpcb)
! ... dphidri
do ic=1,3
dphidri(ic)=onenner*(cosphi*nbn/nan*rab(ic)-rbb(ic))
! ... dphidrj
dphidrj(ic)=onenner*(cosphi*(nbn/nan*rapba(ic)&
& +nan/nbn*rbc(ic))&
& -(rac(ic)+rapbb(ic)))
! ... dphidrk
dphidrk(ic)=onenner*(cosphi*(nbn/nan*raa(ic)&
& +nan/nbn*rbpcb(ic))&
& -(rba(ic)+rbpca(ic)))
! ... dphidrl
dphidrl(ic)=onenner*(cosphi*nan/nbn*rbb(ic)-rab(ic))
end do
End subroutine
! .....................................................................
Subroutine domegadr&
& (nat,xyz,&
& i,j,k,l,omega,&
& domegadri,domegadrj,domegadrk,domegadrl)
use xtb_mctc_accuracy, only : wp
! inversion derivatives
! .....................................................................
implicit none
external vecnorm
integer ic,i,j,k,l,nat
real(wp)&
& omega,sinomega,&
& xyz(3,nat),onenner,vecnorm,rnn,rvn,&
& rn(3),rv(3),rd(3),re(3),rdme(3),rve(3),&
& rne(3),rdv(3),rdn(3),&
& rvdme(3),rndme(3),nenner,&
& domegadri(3),domegadrj(3),domegadrk(3),domegadrl(3),eps
parameter (eps=1.d-14)
sinomega=sin(omega)
do ic=1,3
rv(ic)=xyz(ic,l)-xyz(ic,i)
rd(ic)=xyz(ic,k)-xyz(ic,j)
re(ic)=xyz(ic,i)-xyz(ic,j)
rdme(ic)=rd(ic)-re(ic)
end do
call crossprod(re,rd,rn)
rvn=vecnorm(rv,3,0)
rnn=vecnorm(rn,3,0)
call crossprod(rv,re,rve)
call crossprod(rn,re,rne)
call crossprod(rd,rv,rdv)
call crossprod(rd,rn,rdn)
call crossprod(rv,rdme,rvdme)
call crossprod(rn,rdme,rndme)
nenner=rnn*rvn*cos(omega)
if (abs(nenner).gt.eps) then
onenner=1.d0/nenner
do ic=1,3
! ... domega/dri
domegadri(ic)=onenner*(rdv(ic)-rn(ic)-&
& sinomega*(rvn/rnn*rdn(ic)-rnn/rvn*rv(ic)))
! ... domega/drj
domegadrj(ic)=onenner*(rvdme(ic)-sinomega*rvn/rnn*rndme(ic))
! ... domega/drk
domegadrk(ic)=onenner*(rve(ic)-sinomega*rvn/rnn*rne(ic))
! ... domega/drl
domegadrl(ic)=onenner*(rn(ic)-sinomega*rnn/rvn*rv(ic))
end do
else
do ic=1,3
domegadri(ic)=0.d0
domegadrj(ic)=0.d0
domegadrk(ic)=0.d0
domegadrl(ic)=0.d0
end do
end if
End subroutine
! .....................................................................
Subroutine domegadrPBC&
& (nat,xyz,&
& i,j,k,l,vTr1,vTr2,vTr3,omega,&
& domegadri,domegadrj,domegadrk,domegadrl)
use xtb_mctc_accuracy, only : wp
! inversion derivatives
! .....................................................................
implicit none
external vecnorm
integer ic,i,j,k,l,nat
real(wp)&
& omega,sinomega,&
& vTr1(3), vTr2(3), vTr3(3), &
& xyz(3,nat),onenner,vecnorm,rnn,rvn,&
& rn(3),rv(3),rd(3),re(3),rdme(3),rve(3),&
& rne(3),rdv(3),rdn(3),&
& rvdme(3),rndme(3),nenner,&
& domegadri(3),domegadrj(3),domegadrk(3),domegadrl(3),eps
parameter (eps=1.d-14)
sinomega=sin(omega)
do ic=1,3
re(ic)= xyz(ic,i)-(xyz(ic,j)+vTr2(ic)) ! Vec central to 1st nb
rd(ic)=(xyz(ic,k)+vTr3(ic))-(xyz(ic,j)+vTr2(ic)) ! Vec 1st to 2nd nb
rv(ic)=(xyz(ic,l)+vTr1(ic))-xyz(ic,i) ! Vec central to 3rd nb
rdme(ic)=rd(ic)-re(ic)
end do
call crossprod(re,rd,rn)
rvn=vecnorm(rv,3,0)
rnn=vecnorm(rn,3,0)
call crossprod(rv,re,rve)
call crossprod(rn,re,rne)
call crossprod(rd,rv,rdv)
call crossprod(rd,rn,rdn)
call crossprod(rv,rdme,rvdme)
call crossprod(rn,rdme,rndme)
nenner=rnn*rvn*cos(omega)
if (abs(nenner).gt.eps) then
onenner=1.d0/nenner
do ic=1,3
! ... domega/dri
domegadri(ic)=onenner*(rdv(ic)-rn(ic)-&
& sinomega*(rvn/rnn*rdn(ic)-rnn/rvn*rv(ic)))
! ... domega/drj
domegadrj(ic)=onenner*(rvdme(ic)-sinomega*rvn/rnn*rndme(ic))
! ... domega/drk
domegadrk(ic)=onenner*(rve(ic)-sinomega*rvn/rnn*rne(ic))
! ... domega/drl
domegadrl(ic)=onenner*(rn(ic)-sinomega*rnn/rvn*rv(ic))
end do
else
do ic=1,3
domegadri(ic)=0.d0
domegadrj(ic)=0.d0
domegadrk(ic)=0.d0
domegadrl(ic)=0.d0
end do
end if
End subroutine
! .....................................................................
real(wp) Function valijkl(nat,xyz,i,j,k,l)
use xtb_mctc_accuracy, only : wp
! .....................................................................
implicit none
external vecnorm,valijk
integer ic,i,j,k,l,nat
real(wp) :: &
& xyz(3,nat),&
& eps,ra(3),rb(3),rc(3),na(3),nb(3),&
& rab,rbc,thab,thbc,valijk,&
& vecnorm,nan,nbn,rcn,snanb,deter,pi,test,&
& raabs,rbabs,rcabs
parameter (eps=1.0d-14)
data pi/3.1415926535897932384626433832795029d0/
raabs=0.0d0
rbabs=0.0d0
rcabs=0.0d0
! ... get torsion coordinate
do ic=1,3
ra(ic)=xyz(ic,j)-xyz(ic,i)
rb(ic)=xyz(ic,k)-xyz(ic,j)
rc(ic)=xyz(ic,l)-xyz(ic,k)
raabs=raabs+ra(ic)*ra(ic)
rbabs=rbabs+rb(ic)*rb(ic)
rcabs=rcabs+rc(ic)*rc(ic)
end do
raabs=sqrt(raabs)
rbabs=sqrt(rbabs)
rcabs=sqrt(rcabs)
! ... normalize vectors
do ic=1,3
ra(ic)=ra(ic)/raabs
rb(ic)=rb(ic)/rbabs
rc(ic)=rc(ic)/rcabs
end do
! ... determinante of rb,ra,rc
deter= ra(1)*(rb(2)*rc(3)-rb(3)*rc(2))&
& -ra(2)*(rb(1)*rc(3)-rb(3)*rc(1))&
& +ra(3)*(rb(1)*rc(2)-rb(2)*rc(1))
call crossprod(-ra,rc,na)
test=0.0d0
do ic=1,3
test=test+na(ic)*rb(ic)
end do
thab=valijk(nat,xyz,i,k,j)
thbc=valijk(nat,xyz,j,l,k)
call crossprod(ra,rb,na)
call crossprod(rb,rc,nb)
nan=vecnorm(na,3,1)
nbn=vecnorm(nb,3,1)
snanb=0.0d0
do ic=1,3
snanb=snanb+na(ic)*nb(ic)
end do
if (abs(abs(snanb)-1.d0).lt.eps) then
snanb=sign(1.d0,snanb)
end if
valijkl=acos(snanb)
if(test.lt.0.0d0) valijkl=-acos(snanb)
! the gradient dphir is only compatible with this subroutine
! if the statement below is commented out. If not, opt. and
! Hessian show large errors and imags. I don't understand
! this entirely but thats how it is.
! SG, Sat May 2411:41:42 CEST 2014
! if (deter.lt.0) then
! valijkl=2.d0*pi-valijkl
! end if
End function
! .....................................................................
real(wp) Function valijk(nat,xyz,j,k,i)
use xtb_mctc_accuracy, only : wp
! .....................................................................
implicit none
external vecnorm
integer nat,j,k,i,ic
real(wp) :: &
& ra(3),rb(3),rab,eps,&
& xyz(3,nat),vecnorm,ran,rbn
parameter (eps=1.d-14)
do ic=1,3
ra(ic)=xyz(ic,j)-xyz(ic,i)
rb(ic)=xyz(ic,k)-xyz(ic,i)
end do
ran=vecnorm(ra,3,1)
rbn=vecnorm(rb,3,1)
rab=0.d0
do ic=1,3
rab=rab+ra(ic)*rb(ic)
end do
if (abs(abs(rab)-1.d0).lt.eps) then
rab=sign(1.d0,rab)
end if
valijk=acos(rab)
End function
! .....................................................................
real(wp) Function valijkPBC(mode,nat,xyz,j,k,i,vTr1,vTr2,vTr3)
use xtb_mctc_accuracy, only : wp
! .....................................................................
implicit none
external vecnorm
integer mode,nat,j,k,i,ic
real(wp) :: &
& ra(3),rb(3),rab,eps,&
& xyz(3,nat),vecnorm,ran,rbn,vTr1(3),vTr2(3),vTr3(3)
parameter (eps=1.d-14)
if (mode.eq.1) then ! here j=l,k=j,i=i are inserted, vTr1=vTrl, vTr2=vTrj
do ic=1,3
ra(ic)=(xyz(ic,j)+vTr1(ic))-xyz(ic,i)
rb(ic)=(xyz(ic,k)+vTr2(ic))-xyz(ic,i)
end do
elseif(mode.eq.2) then ! here j=i,k=k,i=j are inserted vTr1=vTrk, vTr2=vTrj
do ic=1,3
ra(ic)= xyz(ic,j)-(xyz(ic,i)+vTr2(ic))
rb(ic)=(xyz(ic,k)+vTr1(ic))-(xyz(ic,i)+vTr2(ic))
end do
elseif(mode.eq.3) then ! here j=R k=C i=B vTr1=vTrR vTr2=vTrC vTr3=vTrB
do ic=1,3
ra(ic)= (xyz(ic,j)+vTr1(ic))-(xyz(ic,i)+vTr3(ic)) ! R - B
rb(ic)= (xyz(ic,k)+vTr2(ic))-(xyz(ic,i)+vTr3(ic)) ! C - B
end do
elseif(mode.eq.4) then ! here j=B k=H i=C vTr1=vTrB vTr2=vTrC
do ic=1,3
ra(ic)=(xyz(ic,j)+vTr1(ic))-(xyz(ic,i)+vTr2(ic))
rb(ic)=(xyz(ic,k)) -(xyz(ic,i)+vTr2(ic))
end do
endif
ran=vecnorm(ra,3,1)
rbn=vecnorm(rb,3,1)
rab=0.d0
do ic=1,3
rab=rab+ra(ic)*rb(ic)
end do
if (abs(abs(rab)-1.d0).lt.eps) then
rab=sign(1.d0,rab)
end if
valijkPBC=acos(rab)
End function
! .....................................................................
real(wp) Function omega (nat,xyz,i,j,k,l)
use xtb_mctc_accuracy, only : wp
! Calculates the inversion angle
! .....................................................................
implicit none
external vecnorm
integer ic,nat,i,j,k,l
real(wp) :: &
& xyz(3,nat),&
& rd(3),re(3),rn(3),rv(3),rnv,&
& vecnorm,rkjn,rljn,rnn,rvn
do ic=1,3
re(ic)=xyz(ic,i)-xyz(ic,j)
rd(ic)=xyz(ic,k)-xyz(ic,j)
rv(ic)=xyz(ic,l)-xyz(ic,i)
end do
call crossprod(re,rd,rn)
rnn=vecnorm(rn,3,1)
rvn=vecnorm(rv,3,1)
rnv=rn(1)*rv(1)+rn(2)*rv(2)+rn(3)*rv(3)
omega=asin( rnv )
End function
real(wp) Function omegaPBC (nat,xyz,i,j,k,l,vTr1,vTr2,vTr3)
use xtb_mctc_accuracy, only : wp
! Calculates the inversion angle
! .....................................................................
implicit none
external vecnorm
integer ic,nat,i,j,k,l
real(wp) :: &
& xyz(3,nat),vTr1(3),vTr2(3),vTr3(3),&
& rd(3),re(3),rn(3),rv(3),rnv,&
& vecnorm,rkjn,rljn,rnn,rvn
! out-of-plane case from ini; atoms and iTr's sorted by distance to atom i
! i=central, j=1st nb, k=2nd, l=3rd
do ic=1,3
re(ic)=xyz(ic,i)-(xyz(ic,j)+vTr2(ic)) ! Vec central to 1st nb
rd(ic)=(xyz(ic,k)+vTr3(ic))-(xyz(ic,j)+vTr2(ic)) ! Vec 1st to 2nd nb
rv(ic)=(xyz(ic,l)+vTr1(ic))-xyz(ic,i) ! Vec central to 3rd nb
end do
call crossprod(re,rd,rn)
rnn=vecnorm(rn,3,1)
rvn=vecnorm(rv,3,1)
rnv=rn(1)*rv(1)+rn(2)*rv(2)+rn(3)*rv(3)
omegaPBC=asin( rnv )
End function
! .....................................................................
Subroutine crossprod(ra,rb,rab)
use xtb_mctc_accuracy, only : wp
implicit none
real(wp) ra(3),rb(3),rab(3)
rab(1)=ra(2)*rb(3)-ra(3)*rb(2)
rab(2)=ra(3)*rb(1)-ra(1)*rb(3)
rab(3)=ra(1)*rb(2)-ra(2)*rb(1)
End subroutine
! .....................................................................
real(wp) Function vecnorm (r,n,inorm)
use xtb_mctc_accuracy, only : wp
implicit none
integer i,n,inorm
real(wp) r(n),or,sp,rn
sp=0.
do i=1,n
sp=sp+r(i)*r(i)
end do
rn=sqrt(sp)
if (inorm.gt.0) then
if (abs(rn).gt.1.d-14) then
or=1.0d0/rn
do i=1,n
r(i)=or*r(i)
end do
end if
end if
vecnorm=rn
End function
! .....................................................................
subroutine crprod(a,b,c)
use xtb_mctc_accuracy, only : wp
implicit double precision (a-h,o-z)
dimension a(3),b(3),c(3)
c(1)=a(2)*b(3)-a(3)*b(2)
c(2)=a(3)*b(1)-a(1)*b(3)
c(3)=a(1)*b(2)-a(2)*b(1)
return
end subroutine crprod
! .....................................................................
subroutine vsc1(a,scale,tol)
use xtb_mctc_accuracy, only : wp
implicit double precision (a-h,o-z)
dimension a(3)
rlen = norm2(a)
if (rlen.gt.tol) then
do i=1,3
a(i) = a(i)*scale/rlen
end do
endif
return
end subroutine vsc1
! .....................................................................
pure subroutine impsc(a,b,c)
use xtb_mctc_accuracy, only : wp
implicit none
real(wp),intent(in) :: a(3),b(3)
real(wp),intent(out) :: c
integer :: i
real(wp) :: rimp,al,bl
rimp = 0.0d0
do i=1,3
rimp = rimp + a(i)*b(i)
end do
al = norm2(a)
bl = norm2(b)
if (al.gt.0.0d0.and.bl.gt.0.0d0) then
c = rimp/(al*bl)
else
c = 0.0d0
endif
return
end subroutine impsc
! .....................................................................
pure subroutine bangl(xyz,i,j,k,angle)
use xtb_mctc_accuracy, only : wp
implicit none
real(wp),intent(in) :: xyz(3,*)
real(wp),intent(out) :: angle
integer, intent(in) :: i,j,k
real(wp) d2ij,d2jk,d2ik,xy,temp
d2ij = sum((xyz(:,i)-xyz(:,j))**2)
d2jk = sum((xyz(:,j)-xyz(:,k))**2)
d2ik = sum((xyz(:,i)-xyz(:,k))**2)
xy = sqrt(d2ij*d2jk)
temp = 0.5d0 * (d2ij+d2jk-d2ik) / xy
if (temp .gt. 1.0d0) temp= 1.0d0
if (temp .lt. -1.0d0) temp=-1.0d0
angle = acos( temp )
end subroutine bangl
pure subroutine banglPBC(mode,xyz,i,j,k,iTr,iTr2,neigh,angle)
use xtb_mctc_accuracy, only : wp
use xtb_gfnff_neighbor
implicit none
real(wp),intent(in) :: xyz(3,*)
integer, intent(in) :: mode,i,j,k,iTr,iTr2 ! j is in the middle
type(TNeigh), intent(in) :: neigh
real(wp),intent(out) :: angle
real(wp) d2ij,d2jk,d2ik,xy,temp,trV(3),trV2(3)
trV =neigh%transVec(:,iTr)
trV2=neigh%transVec(:,iTr2)
if (mode.eq.1) then
d2ij = sum(((xyz(:,i)+trV)-xyz(:,j))**2)
d2jk = sum((xyz(:,j)-(xyz(:,k)+trV2))**2)
d2ik = sum(((xyz(:,i)+trV)-(xyz(:,k)+trV2))**2)
endif
if (mode.eq.2) then
d2ij = sum((xyz(:,i)-(xyz(:,j)+trV))**2)
d2jk = sum(((xyz(:,j)+trV)-(xyz(:,k)+trV2))**2)
d2ik = sum((xyz(:,i)-(xyz(:,k)+trV2))**2)
endif
xy = sqrt(d2ij*d2jk)
temp = 0.5d0 * (d2ij+d2jk-d2ik) / xy ! the angle is between side dij and djk
if (temp .gt. 1.0d0) temp= 1.0d0
if (temp .lt. -1.0d0) temp=-1.0d0
angle = acos( temp )
end subroutine banglPBC
xtb-6.7.1/src/constrain_param.f90 0000664 0000000 0000000 00000152536 14650006642 0016630 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!! ========================================================================
! * WELCOME TO THE C O N S T R A I N S & S C A N S MODULE IN XTB *
!! ------------------------------------------------------------------------
! The syntax is:
!> $constrain
!> ## this part is read by setparam.f90
!> force constant=
!> all bonds=
!> all angles=
!> all torsions=
!> ## this part is read in this module
!> distance: ,, auto
!> distance: ,,
!> angle: ,,, auto
!> angle: ,,,
!> dihedral: ,,,,auto
!> dihedral: ,,,,
!> center: ,
!> $fix
!> force constant=
!> spring exponent=
!> atoms:
!> $split
!> fragment1:
!> fragment2:
!> $wall
!> sphere: auto,all
!> sphere: auto,
!> sphere: ,all
!> sphere: ,
!> ellipsoid: auto,all
!> ellipsoid: auto,
!> ellipsoid: ,,,all
!> ellipsoid: ,,,
!> sandwich: auto,all
!> sandwich: auto,
!> sandwich: ,all
!> sandwich: ,
!> $scan
!> ...
!> $end
!! ========================================================================
module xtb_constrain_param
use xtb_mctc_accuracy, only : wp
use xtb_mctc_strings, only : parse
use xtb_readin, only : getline => strip_line,getValue,getListValue
use xtb_setparam, only : set
use xtb_type_environment, only : TEnvironment
use xtb_type_identitymap, only : TIdentityMap, init
use xtb_type_molecule, only : TMolecule
implicit none
private :: getline,getValue, handlerInterface
character,private,parameter :: flag = '$'
character,private,parameter :: colon = ':'
character,private,parameter :: space = ' '
character,private,parameter :: equal = '='
character,private,parameter :: hash = '#'
character,private,parameter :: comma = ','
character,private,parameter :: semicolon = ';'
character,private,parameter :: dot = '.'
character(len=*),private,parameter :: flag_end = flag//'end'
! Using allocatable arrays of dynamic length strings is only possible
! with a lot of hacks, so we use good'ol fixed size stack arrays.
! Let's choose something different from 42 that is not dividable by 10... ;)
! Happy debugging!
integer,private,parameter :: p_str_length = 48
integer,private,parameter :: p_arg_length = 96
public
abstract interface
subroutine handlerInterface(env,key,val,nat,at,idMap,xyz)
import :: wp, TEnvironment, TIdentityMap
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
type(TIdentityMap), intent(in) :: idMap
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
end subroutine handlerInterface
end interface
contains
subroutine read_userdata(fname,env,mol)
use xtb_readin, only : find_new_name
use xtb_scanparam
implicit none
character(len=*), parameter :: source = 'userdata_read'
type(TEnvironment), intent(inout) :: env
type(TMolecule), intent(inout) :: mol
character(len=*),intent(in) :: fname
character(len=:),allocatable :: line
character(len=:),allocatable :: key
character(len=:),allocatable :: val
character(len=:),allocatable :: newname
type(TIdentityMap) :: idMap
integer :: i
integer :: id
integer :: ic
integer :: ie
integer :: err
logical :: exist
if (set%verbose) then
write(env%unit,'(72("$"))')
write(env%unit,'(1x,"CONSTRAINTS & SCANS: DEBUG SECTION")')
write(env%unit,'(72("$"))')
endif
call open_file(id,fname,'r')
if (id.eq.-1) then
call env%warning("could not find '"//fname//"'",source)
return
endif
rewind(id) ! not sure if this is necessary
call init(idMap, mol)
call idMap%writeInfo(env%unit)
! read first line before the readloop starts, I have to do this
! to avoid using backspace on id (dammit Turbomole format)
call getline(id,line,err)
readflags: do
! check if there is a $ in the *first* column
if (index(line,flag).eq.1) then
select case(line(2:))
case('fix' )
if (set%verbose) write(env%unit,'(">",1x,a)') line(2:)
call rdblock(env,set_fix, line,id,mol%n,mol%at,idMap,mol%xyz,err)
case('split' )
if (set%verbose) write(env%unit,'(">",1x,a)') line(2:)
call rdblock(env,set_split, line,id,mol%n,mol%at,idMap,mol%xyz,err)
case('constrain')
if (set%verbose) write(env%unit,'(">",1x,a)') line(2:)
if (allocated(potset%xyz)) then
call rdblock(env,set_constr, line,id,mol%n,mol%at,idMap,potset%xyz,err)
else
call rdblock(env,set_constr, line,id,mol%n,mol%at,idMap,mol%xyz,err)
endif
case('scan' )
if (set%verbose) write(env%unit,'(">",1x,a)') line(2:)
call rdblock(env,set_scan, line,id,mol%n,mol%at,idMap,mol%xyz,err)
case('wall' )
if (set%verbose) write(env%unit,'(">",1x,a)') line(2:)
call rdblock(env,set_wall, line,id,mol%n,mol%at,idMap,mol%xyz,err)
case('metadyn' )
if (set%verbose) write(env%unit,'(">",1x,a)') line(2:)
call rdblock(env,set_metadyn,line,id,mol%n,mol%at,idMap,mol%xyz,err)
case('hess' )
if (set%verbose) write(env%unit,'(">",1x,a)') line(2:)
call rdblock(env,set_hess, line,id,mol%n,mol%at,idMap,mol%xyz,err)
case('path' )
if (set%verbose) write(env%unit,'(">",1x,a)') line(2:)
call rdblock(env,set_path, line,id,mol%n,mol%at,idMap,mol%xyz,err)
case('reactor' )
if (set%verbose) write(env%unit,'(">",1x,a)') line(2:)
call rdblock(env,set_reactor,line,id,mol%n,mol%at,idMap,mol%xyz,err)
case('set' ); call rdsetbl(env,set_legacy,line,id,mol%n,mol%at,idMap,mol%xyz,err)
case default ! unknown keyword -> ignore, we don't raise them
call getline(id,line,err)
end select
else ! not a keyword -> ignore
call getline(id,line,err)
endif
! check for end of file, which I will tolerate as alternative to $end
if (is_iostat_end(err)) exit readflags
! if (index(line,flag_end).ne.0) exit readflags ! compatibility reasons
enddo readflags
if (set%verbose) write(env%unit,'(72("$"))')
call close_file(id)
end subroutine read_userdata
subroutine rdsetbl(env,handler,line,id,nat,at,idMap,xyz,err)
implicit none
character(len=*), parameter :: source = 'userdata_rdsetbl'
type(TEnvironment), intent(inout) :: env
integer,intent(in) :: id
procedure(handlerInterface) :: handler
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
integer,intent(out) :: err
character(len=:),allocatable,intent(out) :: line
character(len=:),allocatable :: key
character(len=:),allocatable :: val
integer :: ie
logical :: exitRun
do
call getline(id,line,err)
if (is_iostat_end(err)) exit
if (index(line,flag).ne.0) exit
if (set%verbose) write(env%unit,'("->",1x,a)') line
! find the first colon
ie = index(line,space)
if ((line.eq.'').or.(ie.eq.0)) cycle
key = trim(line(:ie-1))
val = trim(adjustl(line(ie+1:)))
call handler(env,key,val,nat,at,idMap,xyz)
call env%check(exitRun)
if (exitRun) then
call env%error("handler could not process input", source)
return
end if
enddo
end subroutine rdsetbl
subroutine rdblock(env,handler,line,id,nat,at,idMap,xyz,err)
implicit none
character(len=*), parameter :: source = 'userdata_rdblock'
type(TEnvironment), intent(inout) :: env
integer,intent(in) :: id
procedure(handlerInterface) :: handler
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
integer,intent(out) :: err
character(len=:),allocatable,intent(out) :: line
character(len=:),allocatable :: key
character(len=:),allocatable :: val
integer :: ie
logical :: exitRun
do
call getline(id,line,err)
if (is_iostat_end(err)) exit
if (index(line,flag).ne.0) exit
if (set%verbose) write(env%unit,'("->",1x,a)') line
! find the first colon
ie = index(line,colon)
if ((line.eq.'').or.(ie.eq.0)) cycle
key = trim(line(:ie-1))
val = trim(adjustl(line(ie+1:)))
call handler(env,key,val,nat,at,idMap,xyz)
call env%check(exitRun)
if (exitRun) then
call env%error("handler could not process input", source)
return
end if
enddo
end subroutine rdblock
subroutine set_fix(env,key,val,nat,at,idMap,xyz)
use xtb_type_atomlist
use xtb_fixparam
use xtb_setparam
implicit none
character(len=*), parameter :: source = 'userdata_fix'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
type(TAtomList) :: atl
integer :: i
integer :: iat
integer :: idum
integer :: nlist
integer, allocatable :: list(:)
real(wp) :: ddum
logical :: ldum
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
call atl%resize(nat)
call parse(val,comma,argv,narg)
! some debug xtb_printout
if (set%verbose) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
select case(key)
case default ! ignore, don't even think about raising them
case('elements')
call atl%new
do idum = 1, narg
! get element by symbol
if (idMap%has(argv(idum))) then
call idMap%get(list, argv(idum))
if (allocated(list)) then
call atl%add(list)
else
call env%warning("Unknown element: '"//trim(argv(idum))//"'",source)
cycle
end if
else
ldum = getValue(env,trim(argv(idum)),iat)
if (.not.ldum) cycle ! skip garbage input
! check for unreasonable input
if (iat > 0) then
call atl%add(at.eq.iat)
else
call env%warning("Unknown element: '"//trim(argv(idum))//"'",source)
cycle
endif
endif
enddo
if (fixset%n > 0) call atl%add(fixset%atoms(:fixset%n))
call atl%to_list(list)
fixset%atoms = list
fixset%n = size(list)
case('atoms')
call atl%new(val)
if (atl%get_error()) then
call env%warning('something is wrong in the fixing list',source)
return
endif
if (fixset%n > 0) call atl%add(fixset%atoms(:fixset%n))
call atl%to_list(list)
fixset%atoms = list
fixset%n = size(list)
case('freeze')
call atl%new(val)
if (atl%get_error()) then
call env%warning('something is wrong in the freezing list',source)
return
endif
if (freezeset%n > 0) call atl%add(freezeset%atoms(:freezeset%n))
call atl%to_list(list)
freezeset%atoms = list
freezeset%n = size(list)
case('shake')
allocate(list(nat*(nat+1)/2), source=0)
if (mod(narg,2).ne.0) then
call env%warning("could not read input for user defined shake!",source)
return
endif
if (narg+shakeset%n > nat*(nat+1)/2) then
call env%warning("too many SHAKE constraints!",source)
return
endif
if (.not.set%shake_md) set%shake_md = .true.
do idum = 1, narg
if (getValue(env,trim(argv(idum)),iat)) then
if (iat.gt.nat) then
call env%warning('Attempted constrain atom not present in molecule.',source)
cycle
endif
shakeset%n = shakeset%n+1
shakeset%atoms(shakeset%n) = iat
else
call env%warning("Something went wrong in set_fix_ 'shake'.",source)
return ! you screwed it, let's get out of here
endif
enddo
end select
end subroutine set_fix
subroutine set_constr(env,key,val,nat,at,idMap,xyz)
use xtb_mctc_constants
use xtb_mctc_convert
use xtb_type_atomlist
use xtb_scanparam
use xtb_splitparam
implicit none
character(len=*), parameter :: source = 'userdata_constr'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
type(TAtomList) :: atl
integer :: iat
integer :: ioffset
integer :: idum
real(wp) :: ddum
integer :: nlist
integer, allocatable :: list(:)
logical :: ldum
integer :: i,j,k,l
real(wp) :: phi,dist,ra(3),rb(3)
real(wp),external :: valijkl
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
call atl%resize(nat)
call parse(val,comma,argv,narg)
if (set%verbose) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
select case(key)
case default ! ignore, don't even think about raising them
case('elements')
call atl%new
do idum = 1, narg
! get element by symbol
if (idMap%has(argv(idum))) then
call idMap%get(list, argv(idum))
if (allocated(list)) then
call atl%add(list)
else
call env%warning("Unknown element: '"//trim(argv(idum))//"'",source)
cycle
end if
else
ldum = getValue(env,trim(argv(idum)),iat)
if (.not.ldum) cycle ! skip garbage input
! check for unreasonable input
if (iat > 0) then
call atl%add(at.eq.iat)
else
call env%warning("Unknown element: '"//trim(argv(idum))//"'",source)
cycle
endif
endif
enddo
if (potset%pos%n > 0) call atl%add(potset%pos%atoms(:potset%pos%n))
call atl%to_list(list)
potset%pos%atoms = list
potset%pos%n = size(list)
case('atoms')
call atl%new(val)
if (val.eq."all") then
allocate(list(nat))
do i=1,nat
list(i)=i
enddo
else
if (atl%get_error()) then
call env%warning('something is wrong in the fixing list',source)
return
endif
if (potset%pos%n > 0) call atl%add(potset%pos%atoms(:potset%pos%n))
call atl%to_list(list)
endif
potset%pos%atoms = list
potset%pos%n = size(list)
case('DISTANCE')
if (narg.lt.3 .or. narg.gt.4) then
call env%error('not enough arguments to constrain a distance',source)
return
endif
ioffset = 2*potset%dist%n
potset%dist%n = potset%dist%n+1
! part 1: get the constrained atoms
do i = 1, 2
if (getValue(env,trim(argv(i)),idum)) then
potset%dist%atoms(ioffset+i) = idum
else
call env%warning("Something went wrong in set_constr_ 'distance'. (1)",source)
potset%dist%n = potset%dist%n-1 ! remove invalid contrain
return
endif
enddo
! part 2: get the distance between those atoms
i = potset%dist%atoms(ioffset+1)
j = potset%dist%atoms(ioffset+2)
if (any([i, j] > nat .or. [i, j] < 1)) then
call env%warning("Atomic index is out of bounds for distance constraint",source)
potset%dist%n = potset%dist%n-1 ! remove invalid contrain
return
end if
dist = sqrt(sum((xyz(:,i)-xyz(:,j))**2))
if (trim(argv(3)).eq.'auto') then
potset%dist%val(potset%dist%n) = dist
else
if (getValue(env,trim(argv(3)),ddum)) then
potset%dist%val(potset%dist%n) = ddum * aatoau
else
call env%warning("Something went wrong in set_constr_ 'distance'. (2)",source)
potset%dist%n = potset%dist%n-1 ! remove invalid contrain
return
endif
endif
if (narg.eq.4) then
if (getValue(env,trim(argv(4)),idum)) then
if (idum < 2 .or. mod(idum, 2).ne.0) then
call env%warning("Invalid spring exponent given", source)
potset%dist%n = potset%dist%n-1 ! remove invalid contrain
return
end if
potset%dist%expo(potset%dist%n) = real(idum, wp)
else
call env%warning("Something went wrong in set_constr_ 'distance'. (3)",source)
potset%dist%n = potset%dist%n-1 ! remove invalid contrain
return
end if
write(env%unit,'("constraining bond",2(1x,i0),1x,"to",'//&
'1x,f12.7,1x,"Å, actual value:",1x,f12.7,1x,"Å",1x,"with expo",1x,i0)') &
i,j, potset%dist%val(potset%dist%n)*autoaa, dist*autoaa, &
nint(potset%dist%expo(potset%dist%n))
else
write(env%unit,'("constraining bond",2(1x,i0),1x,"to",'//&
'1x,f12.7,1x,"Å, actual value:",1x,f12.7,1x,"Å")') &
i,j, potset%dist%val(potset%dist%n)*autoaa, dist*autoaa
end if
case('ANGLE')
if (narg.ne.4) then
call env%error('not enough arguments to constrain an angle',source)
return
endif
ioffset = 3*potset%angle%n
potset%angle%n = potset%angle%n+1
! part 1: get the constrained atoms
do i = 1, narg-1
if (getValue(env,trim(argv(i)),idum)) then
potset%angle%atoms(ioffset+i) = idum
else
call env%warning("Something went wrong in set_constr_ 'angle'. (1)",source)
potset%angle%n = potset%angle%n-1 ! remove invalid contrain
return
endif
enddo
! part 2: get the angle between the constrained atoms
i = potset%angle%atoms(ioffset+1)
j = potset%angle%atoms(ioffset+2)
k = potset%angle%atoms(ioffset+3)
if (any([i, j, k] > nat .or. [i, j, k] < 1)) then
call env%warning("Atomic index is out of bounds for angle constraint",source)
potset%angle%n = potset%angle%n-1 ! remove invalid contrain
return
end if
call bangl(xyz,i,j,k,phi)
if (trim(argv(narg)).eq.'auto') then
potset%angle%val(potset%angle%n) = phi
else
if (getValue(env,trim(argv(narg)),ddum)) then
potset%angle%val(potset%angle%n) = pi/180.0_wp * ddum
else
call env%warning("Something went wrong in set_constr_ 'angle'. (2)",source)
potset%angle%n = potset%angle%n-1 ! remove invalid contrain
return
endif
endif
case('DIHEDRAL')
if (narg.ne.5) then
call env%error('not enough arguments to constrain a dihedral',source)
return
endif
ioffset = 4*potset%dihedral%n
potset%dihedral%n = potset%dihedral%n+1
if (nconstr.gt.maxconstr) then ! double check this
call env%error('This should never happen! Let somebody check set_constr',source)
return
end if
! part 1: get the constrained atoms
do i = 1, narg-1
if (getValue(env,trim(argv(i)),idum)) then
potset%dihedral%atoms(ioffset+i) = idum
else
call env%warning("Something went wrong in set_constr_ 'dihedral'. (1)",source)
potset%dihedral%n = potset%dihedral%n-1 ! remove invalid contrain
return
endif
enddo
! part 2: get the angle between the constrained atoms
i = potset%dihedral%atoms(ioffset+1)
j = potset%dihedral%atoms(ioffset+2)
k = potset%dihedral%atoms(ioffset+3)
l = potset%dihedral%atoms(ioffset+4)
if (any([i, j, k, l] > nat .or. [i, j, k, l] < 1)) then
call env%warning("Atomic index is out of bounds for dihedral constraint",source)
potset%dihedral%n = potset%dihedral%n-1 ! remove invalid contrain
return
end if
phi=valijkl(nat,xyz,i,j,k,l)
if (trim(argv(narg)).eq.'auto') then
potset%dihedral%val(potset%dihedral%n) = phi
else
if (getValue(env,trim(argv(narg)),ddum)) then
potset%dihedral%val(potset%dihedral%n) = pi/180.0_wp * ddum
else
call env%warning("Something went wrong in set_constr_ 'dihedral'. (2)",source)
potset%dihedral%n = potset%dihedral%n-1 ! remove invalid contrain
return
endif
endif
case('distance')
if (narg.ne.3) then
call env%error('not enough arguments to constrain a distance',source)
return
endif
nconstr = nconstr+1
if (nconstr.gt.maxconstr) then ! double check this
call env%error('This should never happen! Let somebody check set_constr',source)
return
end if
! part 1: get the constrained atoms
do i = 1, narg-1
if (getValue(env,trim(argv(i)),idum)) then
atconstr(i,nconstr) = idum
else
call env%warning("Something went wrong in set_constr_ 'distance'. (1)",source)
nconstr = nconstr-1 ! remove invalid contrain
return
endif
enddo
! part 2: get the distance between those atoms
i = atconstr(1,nconstr)
j = atconstr(2,nconstr)
if (any([i, j] > nat .or. [i, j] < 1)) then
call env%warning("Atomic index is out of bounds for distance constraint",source)
nconstr = nconstr-1 ! remove invalid contrain
return
end if
dist = sqrt(sum((xyz(:,i)-xyz(:,j))**2))
if (trim(argv(narg)).eq.'auto') then
valconstr(nconstr) = dist
else
if (getValue(env,trim(argv(narg)),ddum)) then
valconstr(nconstr) = ddum * aatoau
else
call env%warning("Something went wrong in set_constr_ 'distance'. (2)",source)
nconstr = nconstr-1 ! remove invalid contrain
return
endif
endif
write(env%unit,'("constraining bond",2(1x,i0),1x,"to",'//&
'1x,f12.7,1x,"Å, actual value:",1x,f12.7,1x,"Å")') &
i,j, valconstr(nconstr)*autoaa, dist*autoaa
case('angle')
if (narg.ne.4) then
call env%error('not enough arguments to constrain an angle',source)
return
endif
nconstr = nconstr+1
if (nconstr.gt.maxconstr) then ! double check this
call env%error('This should never happen! Let somebody check set_constr',source)
return
end if
! part 1: get the constrained atoms
do i = 1, narg-1
if (getValue(env,trim(argv(i)),idum)) then
atconstr(i,nconstr) = idum
else
call env%warning("Something went wrong in set_constr_ 'angle'. (1)",source)
nconstr = nconstr-1 ! remove invalid contrain
return
endif
enddo
! part 2: get the angle between the constrained atoms
i = atconstr(1,nconstr)
j = atconstr(2,nconstr)
k = atconstr(3,nconstr)
if (any([i, j, k] > nat .or. [i, j, k] < 1)) then
call env%warning("Atomic index is out of bounds for angle constraint",source)
nconstr = nconstr-1 ! remove invalid contrain
return
end if
call bangl(xyz,i,j,k,phi)
if (trim(argv(narg)).eq.'auto') then
valconstr(nconstr) = phi
else
if (getValue(env,trim(argv(narg)),ddum)) then
valconstr(nconstr) = pi/180.0_wp * ddum
else
call env%warning("Something went wrong in set_constr_ 'angle'. (2)",source)
nconstr = nconstr-1 ! remove invalid contrain
return
endif
endif
write(env%unit,'("constraining angle",3(1x,i0),1x,"to",'//&
'1x,f12.7,"°, actual value:",1x,f12.7,"°")') &
i,j,k,180.0_wp/pi * valconstr(nconstr),180.0_wp/pi * phi
case('dihedral')
if (narg.ne.5) then
call env%error('not enough arguments to constrain a dihedral',source)
return
endif
nconstr = nconstr+1
if (nconstr.gt.maxconstr) then ! double check this
call env%error('This should never happen! Let somebody check set_constr',source)
return
end if
! part 1: get the constrained atoms
do i = 1, narg-1
if (getValue(env,trim(argv(i)),idum)) then
atconstr(i,nconstr) = idum
else
call env%warning("Something went wrong in set_constr_ 'dihedral'. (1)",source)
nconstr = nconstr-1 ! remove invalid contrain
return
endif
enddo
! part 2: get the angle between the constrained atoms
i = atconstr(1,nconstr)
j = atconstr(2,nconstr)
k = atconstr(3,nconstr)
l = atconstr(4,nconstr)
if (any([i, j, k, l] > nat .or. [i, j, k, l] < 1)) then
call env%warning("Atomic index is out of bounds for dihedral constraint",source)
nconstr = nconstr-1 ! remove invalid contrain
return
end if
phi=valijkl(nat,xyz,i,j,k,l)
if (trim(argv(narg)).eq.'auto') then
valconstr(nconstr) = phi
else
if (getValue(env,trim(argv(narg)),ddum)) then
valconstr(nconstr) = pi/180.0_wp * ddum
else
call env%warning("Something went wrong in set_constr_ 'dihedral'. (2)",source)
nconstr = nconstr-1 ! remove invalid contrain
return
endif
endif
write(env%unit,'("constraining angle",4(1x,i0),1x,"to",'//&
'1x,f12.7,"°, actual value:",1x,f12.7,"°")') &
i,j,k,l,180.0_wp/pi * valconstr(nconstr),180.0_wp/pi * phi
case('center')
! copied from molbld.f without modification (except for error handling)
if (narg.ne.2) then
call env%error('not enough argument to constrain center',source)
return
endif
nconstr = nconstr+1
atconstr(1,nconstr) = -2
if (getValue(env,trim(argv(2)),ddum)) then
valconstr(nconstr) = ddum
else
call env%warning("Something went wrong in set_constr_ 'center'. (1)",source)
nconstr = nconstr-1
return
endif
if (getValue(env,trim(argv(1)),idum)) then
iatf1 = idum
else
call env%warning("Something went wrong in set_constr_ 'center'. (2)",source)
nconstr = nconstr-1
return
endif
massf1 = 0.0_wp
do i = 1, iatf1
massf1 = massf1 + atmass(i)
enddo
case('cma','cma interface')
! copied from molbld.f without modification (except for error handling)
if (narg.ne.1) then
call env%error('not enough argument to constrain cma',source)
return
endif
if (key.eq.'cma interface') call cmaiface(nat,at,xyz)
nconstr = nconstr+1
atconstr(1,nconstr) = 0
if (trim(argv(1)).eq.'auto') then
massf1 = 0.0_wp
massf2 = 0.0_wp
do i = 1, nat
if (splitlist(i).eq.1) then
massf1 = massf1 + atmass(i)
else
massf2 = massf2 + atmass(i)
endif
enddo
call cmafrag(nat,at,xyz,ra,rb)
valconstr(nconstr) = rcma
write(env%unit,'("constraining fragment CMA to initial R(Ang.)=",f8.3)')&
valconstr(nconstr)*autoaa
else
if (getValue(env,trim(argv(1)),ddum)) then
valconstr(nconstr) = ddum*aatoau
else
call env%warning("Something went wrong in set_constr_ 'cma'.",source)
nconstr = nconstr-1
return
endif
endif
! case('x','y','z')
! idum = index('xyz',key)
case('z')
! copied from molbld.f without modification (except for error handling)
if (narg.ne.1) then
call env%error('not enough argument to constrain z coordinate',source)
return
endif
zconstr = 1
nconstr = nconstr+1
atconstr(1,nconstr) = -1
if (getValue(env,trim(argv(1)),ddum)) then
valconstr(nconstr) = ddum*aatoau
else
call env%warning("Something went wrong in set_constr_ 'z'.",source)
nconstr = nconstr-1
return
endif
if (sum(abs(xyz(3,1:iatf1))).gt.1.d-3) then
call env%warning('z-coordinates of fragment 1 must be 0!',source)
nconstr = nconstr-1
return
endif
write(env%unit,'("constraining fragment 2 to Z=0 plane at (Ang.)=",f8.3)') &
valconstr(nconstr)*autoaa
end select
end subroutine set_constr
!! --------------------------------------------------------------[SAW1809]-
! this is the new version of the scan routine exploiting all features
subroutine set_scan(env,key,val,nat,at,idMap,xyz)
use xtb_scanparam
use xtb_mctc_convert, only : aatoau
use xtb_mctc_constants, only : pi
implicit none
character(len=*), parameter :: source = 'userdata_scan'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
integer :: idum
real(wp) :: ddum
logical :: ldum
integer :: i,ie
real(wp) :: start_value,end_value
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
character(len=:),allocatable :: temp
nscan = nscan+1 ! make a new scan
ie = index(val,semicolon)
if (ie.ne.0) then
temp = val(:ie-1)
idum = nconstr
call set_constr(env,key,temp,nat,at,idMap,xyz) ! generate a new constraint
scan_list(nscan)%iconstr = nconstr ! new generated
if (idum.eq.nconstr) then
call env%error('Failed to generate constraint',source)
return
end if
temp = val(1+ie:)
else
if (getValue(env,key,idum)) then
if (idum.gt.nconstr) then
call env%error('Constraint '''//key//''' is not defined',source)
return
endif
scan_list(nscan)%iconstr = idum
else
call env%error('Constraint '''//key//''' is invalid in this context',source)
return
endif
temp = val
endif
call parse(temp,comma,argv,narg)
if (set%verbose) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
! get back the constraint number which should be scanned
i = scan_list(nscan)%iconstr
! instead of simply saving the kind of constraint while reading,
! we used some really obvious integer code system depending on
! the number of elements in the atconstr-Array.
! Expected to break at some point, add a FIXME and wait for complaints...
idum = atconstr(1,i)
if (atconstr(2,i).gt.0) idum = 1
if (atconstr(3,i).gt.0) idum = 2
if (atconstr(4,i).gt.0) idum = 3
if (getValue(env,trim(argv(1)),ddum)) then
if (idum.le.1) then
start_value = ddum * aatoau
else
start_value = ddum * pi/180.0_wp
endif
else
call env%error('Invalid start value for scan',source)
return
endif
if (getValue(env,trim(argv(2)),ddum)) then
if (idum.le.1) then
end_value = ddum * aatoau
else
end_value = ddum * pi/180.0_wp
endif
else
call env%error('Invalid end value for scan',source)
return
endif
if (getValue(env,trim(argv(3)),idum)) then
scan_list(nscan)%nscan = idum
allocate( scan_list(nscan)%valscan(idum), source = 0.0_wp )
else
call env%error('Invalid step number for scan',source)
return
endif
do i = 1, scan_list(nscan)%nscan
scan_list(nscan)%valscan(i) = start_value + (end_value-start_value) &
& * real(i-1,wp)/real(scan_list(nscan)%nscan-1,wp)
if (set%verbose) write(env%unit,'(i5,1x,f12.8)') i,scan_list(nscan)%valscan(i)
enddo
end subroutine set_scan
subroutine set_wall(env,key,val,nat,at,idMap,xyz)
use xtb_mctc_convert, only : autoaa
use xtb_sphereparam
implicit none
character(len=*), parameter :: source = 'userdata_wall'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
integer :: idum,i
real(wp) :: ddum,darray(3),min_z,max_z
logical :: ldum
integer :: list(nat),nlist
integer :: tlist(nat),ntlist
integer :: iarg,iaxis
real(wp) :: radius,radii(3),center(3)
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
nlist = 0
ntlist = 0
list = 0
tlist = 0
radius = 0.0_wp
radii = 0.0_wp
center = 0.0_wp
call parse(val,comma,argv,narg)
if (set%verbose) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
select case(key)
case default ! ignore, don't even think about raising them
case('sphere')
if (narg.lt.2) then
call env%error("Not enough arguments to set up a spherical wall",source)
return
endif
! part 1: get the sphere radius
if (trim(argv(1)).eq.'auto') then
call get_sphere_radius(nat,at,xyz,center,radius,do_trafo=.false.)
else
if (getValue(env,trim(argv(1)),ddum)) then
radius = ddum
center = 0.0_wp
else
! warning already generated by get_value
return ! something went wrong
endif
endif
! part 2: get atoms
if (trim(argv(2)).eq.'all') then
call set_sphere_radius(radius,center)
else
do iarg = 2, narg
if (getListValue(env,trim(argv(iarg)),tlist,ntlist)) then
if (nlist+ntlist.gt.nat) then
call env%error("Too many atoms in list for spherical wall.",source)
return ! something went wrong
endif
if (maxval(tlist(:ntlist)).gt.nat) then
call env%error("Attempted to wall in a non-existing atom",source)
cycle ! skip crappy input
endif
list(nlist+1:nlist+ntlist) = tlist
nlist = nlist + ntlist
else
! warning already generated by get_list_value
return ! something went wrong
endif
enddo
call set_sphere_radius(radius,center,nlist,list)
endif
write(env%unit,'("spherical wallpotential with radius",'//&
'1x,f12.7,1x,"Å")') radius*autoaa
case('ellipsoid')
if (narg.lt.4) then
call env%error("Not enough arguments to set up an ellipsoidal wall",source)
return
endif
! part 1: get ellipsoid axis
if ((trim(argv(1)).eq.'auto').or.(trim(argv(2)).eq.'auto').or. &
(trim(argv(3)).eq.'auto')) then
! use get_ellipsoid_radius if you manage to implement it
call get_sphere_radius(nat,at,xyz,center,radius,do_trafo=.false.)
endif
do iaxis = 1, 3
if (trim(argv(iaxis)).eq.'auto') then
radii(iaxis) = radius
else
if (getValue(env,trim(argv(iaxis)),ddum)) then
radii(iaxis) = ddum
center(iaxis) = 0.0_wp
else
! warning already generated by get_value
return ! something went wrong
endif
endif
enddo
! part 2: get atoms
if (trim(argv(4)).eq.'all') then
call set_sphere_radius(radii,center)
else
do iarg = 4, narg
if (getListValue(env,trim(argv(iarg)),tlist,ntlist)) then
if (nlist+ntlist.gt.nat) then
call env%error("Too many atoms in list for spherical wall.",source)
return ! something went wrong
endif
if (maxval(tlist(:ntlist)).gt.nat) then
call env%error("Attempted to wall in a non-existing atom",source)
cycle ! skip crappy input
endif
list(nlist+1:nlist+ntlist) = tlist
nlist = nlist + ntlist
else
! warning already generated by get_list_value
return ! something went wrong
endif
enddo
call set_sphere_radius(radii,center,nlist,list)
endif
write(env%unit,'("ellipsoidal wallpotenial with radii",'//&
'3(1x,f12.7,1x,"Å"))') radii*autoaa
case('sandwich')
if (narg.lt.2) then
call env%error("Not enough arguments to set up sandwich walls",source)
return
endif
! part 1: get the sandwich distance
wpot%sandwich = .true.
set%do_cma_trafo = .true.
center = 0.0_wp
! number_walls=1
call get_sphere_radius(nat,at,xyz,center,radius,do_trafo=.true.)
if (trim(argv(1)).eq.'auto') then
radius=(maxval(xyz(3,:))-minval(xyz(3,:)))/2.0_wp ! need to set $cma in xcontrol, not done automatically
wpot(1)%radius=radius
else
if (getValue(env,trim(argv(1)),ddum)) then
radius = ddum !in Bohr!!!
wpot(1)%radius=radius
else
call env%error("Undefined arguments for sandwich: ... in your xcontrol file!",source)
return ! something went wrong
endif
endif
! part 2: get atoms
if (trim(argv(2)).eq.'all') then
call set_sphere_radius(radius,center)
else
do iarg = 2, narg
if (getListValue(env,trim(argv(iarg)),tlist,ntlist)) then
if (nlist+ntlist.gt.nat) then
call env%error("Too many atoms in list for spherical wall.",source)
return ! something went wrong
endif
if (maxval(tlist(:ntlist)).gt.nat) then
call env%error("Attempted to wall in a non-existing atom.",source)
cycle ! skip crappy input
endif
list(nlist+1:nlist+ntlist) = tlist
nlist = nlist + ntlist
!get auto sandwich distance for list of atoms
max_z = 0.0_wp
min_z = 0.0_wp
do i = 1, nat
if (any(list == i)) then
max_z = max(max_z, xyz(3,i))
min_z = min(min_z, xyz(3,i))
end if
end do
radius=(max_z - min_z)/2.0_wp
wpot(1)%radius=radius
else
! warning already generated by get_list_value
return ! something went wrong
endif
enddo
call set_sphere_radius(radius,center,nlist,list)
endif
write(env%unit,'("sandwich wallpotential with radius in A (diameter=2*radius+2*4A safety buffer) ",'//&
'1x,f12.7,1x,"Å")') radius*autoaa
end select
end subroutine set_wall
subroutine set_split(env,key,val,nat,at,idMap,xyz)
use xtb_splitparam
implicit none
character(len=*), parameter :: source = 'userdata_split'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
integer :: idum
real(wp) :: ddum
logical :: ldum
integer :: list(nat),nlist
integer :: i,j
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
call parse(val,comma,argv,narg)
if (set%verbose) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
select case(key)
case default ! ignore, don't even think about raising them
case('fragment1')
do i = 1, narg
if (getListValue(env,trim(argv(i)),list,nlist)) then
do j = 1, nlist
splitlist(list(j)) = 1
enddo
iatf1 = iatf1 + nlist ! compatibility stuff, as usual
iatf(1) = iatf(1) + nlist
else
return ! you screwed it, let's get out of here
endif
enddo
case('fragment2')
do i = 1, narg
if (getListValue(env,trim(argv(i)),list,nlist)) then
do j = 1, nlist
splitlist(list(j)) = 2
enddo
iatf2 = iatf2 + nlist ! compatibility stuff, as usual
iatf(2) = iatf(2) + nlist
else
return ! you screwed it, let's get out of here
endif
enddo
case('fragment')
if (getValue(env,trim(argv(1)),idum)) then
if (idum.gt.nat) then
call env%warning("rejecting fragment number greater than number of atoms",source)
return ! doesn't really make sense, sorry, your problem
endif
do i = 2, narg
if (getListValue(env,trim(argv(i)),list,nlist)) then
do j = 1, nlist
splitlist(list(j)) = idum
enddo
iatf(idum) = iatf(idum) + nlist
if (idum.eq.1) then ! legacy, don't remove or something breaks
iatf1 = iatf1 + nlist
else if (idum.eq.2) then
iatf2 = iatf2 + nlist
endif
else
return ! you screwed it, let's get out of here
endif
enddo
endif
end select
end subroutine set_split
subroutine set_hess(env,key,val,nat,at,idMap,xyz)
use xtb_splitparam
implicit none
character(len=*), parameter :: source = 'userdata_hess'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
integer :: idum
real(wp) :: ddum
logical :: ldum
integer :: i,j
integer, allocatable :: list(:)
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
call parse(val,comma,argv,narg)
if (set%verbose) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
select case(key)
case default ! ignore, don't even think about raising them
case('element mass')
if (mod(narg,2).ne.0) then
call env%warning("Something went wrong in set_mass_ 'element'.",source)
endif
do i = 1, narg, 2
j = i+1
if (getValue(env,trim(argv(j)),ddum)) then
if (idMap%has(argv(i))) then
call idMap%set(atmass, argv(i), ddum)
write(env%unit,'(a,a,a,1x,g0)') &
"mass of elements '",trim(argv(i)),"' changed to", ddum
else if (getValue(env,trim(argv(i)),idum)) then
where(at.eq.idum) atmass = ddum
write(env%unit,'(a,i0,a,1x,g0)') &
"mass of elements with Z=",idum," changed to", ddum
end if
end if
enddo
case('modify mass','isotope')
if (mod(narg,2).ne.0) then
call env%warning("Something went wrong in set_mass_ 'modify'.",source)
endif
do i = 1, narg, 2
j = i+1
if (getValue(env,trim(argv(i)),idum).and.&
getValue(env,trim(argv(j)),ddum)) then
if (idum.gt.nat) then
call env%warning('Attempted setting atom mass not present in system.',source)
cycle
endif
atmass(idum) = ddum
write(env%unit,'(a,1x,i0,1x,a,1x,g0)') &
'mass of atom ',idum,' changed to',atmass(idum)
endif
enddo
case('scale mass')
if (mod(narg,2).ne.0) then
call env%warning("Something went wrong in set_mass_ 'scale'.",source)
endif
do i = 1, narg, 2
j = i+1
if (getValue(env,trim(argv(i)),idum).and.&
getValue(env,trim(argv(j)),ddum)) then
if (idum.gt.nat) then
call env%warning('Attempted scaling atom not present in system.',source)
cycle
endif
atmass(idum) = atmass(idum)*ddum
write(env%unit,'(a,1x,i0,1x,a,1x,g0)') &
'mass of atom ',idum,' changed to',atmass(idum)
endif
enddo
end select
end subroutine set_hess
subroutine set_reactor(env,key,val,nat,at,idMap,xyz)
use xtb_type_atomlist
use xtb_setparam
implicit none
character(len=*), parameter :: source = 'userdata_reactor'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
type(TAtomList) :: atl
integer :: idum
real(wp) :: ddum
logical :: ldum
integer :: nlist
integer, allocatable :: list(:)
integer :: i,j
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
call parse(val,comma,argv,narg)
if (set%verbose) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
select case(key)
case default ! ignore, don't even think about raising them
case('atoms')
call atl%new(val)
if (atl%get_error()) then
call env%warning('something is wrong in the reactor atom list',source)
return
endif
if (set%reactset%nat > 0) call atl%add(set%reactset%atoms(:set%reactset%nat))
call atl%to_list(list)
set%reactset%atoms = list
set%reactset%nat = size(list)
end select
end subroutine set_reactor
subroutine set_path(env,key,val,nat,at,idMap,xyz)
use xtb_type_atomlist
use xtb_setparam
implicit none
character(len=*), parameter :: source = 'userdata_path'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
type(TAtomList) :: atl
integer :: idum
real(wp) :: ddum
logical :: ldum
integer :: nlist
integer, allocatable :: list(:)
integer :: i,j
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
call parse(val,comma,argv,narg)
if (set%verbose) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
select case(key)
case default ! ignore, don't even think about raising them
case('atoms')
call atl%new(val)
if (atl%get_error()) then
call env%warning('something is wrong in the bias path atom list',source)
return
endif
if (set%pathset%nat > 0) call atl%add(set%pathset%atoms(:set%pathset%nat))
call atl%to_list(list)
set%pathset%atoms = list
set%pathset%nat = size(list)
end select
end subroutine set_path
subroutine set_metadyn(env,key,val,nat,at,idMap,xyz)
use xtb_type_atomlist
use xtb_fixparam
implicit none
character(len=*), parameter :: source = 'userdata_metadyn'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
type(TAtomList) :: atl
integer :: idum
real(wp) :: ddum
logical :: ldum
integer :: nlist
integer, allocatable :: list(:)
integer :: i,j,iat
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
call parse(val,comma,argv,narg)
if (set%verbose) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
select case(key)
case default ! ignore, don't even think about raising them
case('bias atoms')
call atl%new(val)
if (atl%get_error()) then
call env%warning('something is wrong in the metadynamic atom list',source)
return
endif
if (rmsdset%nat > 0) call atl%add(rmsdset%atoms(:rmsdset%nat))
call atl%to_list(list)
rmsdset%atoms = list
rmsdset%nat = size(list)
case('bias elements')
call atl%new
do idum = 1, narg
! get element by symbol
if (idMap%has(argv(idum))) then
call idMap%get(list, argv(idum))
if (allocated(list)) then
call atl%add(list)
else
call env%warning("Unknown element: '"//trim(argv(idum))//"'",source)
cycle
end if
else
ldum = getValue(env,trim(argv(idum)),iat)
if (.not.ldum) cycle ! skip garbage input
! check for unreasonable input
if (iat > 0) then
call atl%add(at.eq.iat)
else
call env%warning("Unknown element: '"//trim(argv(idum))//"'",source)
cycle
endif
endif
enddo
if (rmsdset%nat > 0) call atl%add(rmsdset%atoms(:rmsdset%nat))
call atl%to_list(list)
rmsdset%atoms = list
rmsdset%nat = size(list)
case('atoms')
call atl%new(val)
if (atl%get_error()) then
call env%warning('something is wrong in the metadynamic atom list',source)
return
endif
if (metaset%nat > 0) call atl%add(metaset%atoms(:metaset%nat))
call atl%to_list(list)
metaset%atoms = list
metaset%nat = size(list)
case('modify factor')
if (mod(narg,2).ne.0) then
call env%warning("Something went wrong in set_metadyn_ 'modify'.",source)
endif
do i = 1, narg, 2
j = i+1
if (getValue(env,trim(argv(i)),idum).and.&
getValue(env,trim(argv(j)),ddum)) then
if (idum.gt.metaset%maxsave) then
call env%warning('Attempted using factor not present in system.',source)
cycle
endif
metaset%factor(idum) = ddum
endif
enddo
case('scale factor')
if (mod(narg,2).ne.0) then
call env%warning("Something went wrong in set_metadyn_ 'scale'.",source)
endif
do i = 1, narg, 2
j = i+1
if (getValue(env,trim(argv(i)),idum).and.&
getValue(env,trim(argv(j)),ddum)) then
if (idum.gt.metaset%maxsave) then
call env%warning('Attempted scaling factor not present in system.',source)
cycle
endif
metaset%factor(idum) = metaset%factor(idum)*ddum
endif
enddo
end select
end subroutine set_metadyn
subroutine set_freeze(env,key,val,nat,at,idMap,xyz)
implicit none
character(len=*), parameter :: source = 'userdata_freeze'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
integer :: idum
real(wp) :: ddum
logical :: ldum
integer :: list(nat),nlist
integer :: i,j
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
call parse(val,comma,argv,narg)
if (set%verbose) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
select case(key)
case default ! ignore, don't even think about raising them
case('hessf')
case('hessa')
end select
end subroutine set_freeze
subroutine set_legacy(env,key,val,nat,at,idMap,xyz)
implicit none
character(len=*), parameter :: source = 'userdata_legacy'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
integer :: err
integer :: idum
real(wp) :: ddum
logical :: ldum
select case(key)
case default ! complaining about unknown keywords should already be done
continue ! so we do nothing here
case('hessf'); call set_fix(env,'freeze',val,nat,at,idMap,xyz)
! case('hessa'); call set_frozh('hessa',val)
case('fragment1'); call set_split(env,'fragment1',val,nat,at,idMap,xyz)
case('fragment2'); call set_split(env,'fragment1',val,nat,at,idMap,xyz)
case('constrxyz'); call set_fix(env,'atoms',val,nat,at,idMap,xyz)
! case('constrainel')
! case('constrain')
! case('scan')
case('ellips'); call set_wall(env,'ellipsoid',val,nat,at,idMap,xyz)
case('sphere'); call set_wall(env,'sphere',val,nat,at,idMap,xyz)
case('sandwich'); call set_wall(env,'sandwich',val,nat,at,idMap,xyz)
case('fix'); call set_fix(env,'atoms',val,nat,at,idMap,xyz)
case('atomlist+'); call set_metadyn(env,'atoms',val,nat,at,idMap,xyz)
end select
end subroutine set_legacy
end module xtb_constrain_param
xtb-6.7.1/src/constrain_pot.f90 0000664 0000000 0000000 00000025674 14650006642 0016334 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_constrainpot
contains
subroutine constrain_zaxis(fix,n,at,xyz,g,e)
use xtb_mctc_accuracy, only : wp
use xtb_type_setvar
implicit none
type(fix_setvar),intent(in) :: fix
integer, intent(in) :: n
integer, intent(in) :: at(n)
real(wp),intent(in) :: xyz(3,n)
real(wp),intent(inout) :: e
real(wp),intent(inout) :: g(3,n)
integer :: i,ii
real(wp) :: z0,dz
if (fix%n.eq.0) return
do i = 1, fix%n
ii = fix%atoms(i)
z0 = fix%val(i)
dz = xyz(3,ii) - z0
e = e + fix%fc*dz**2
g(3,ii) = g(3,ii) + 2.0d0*fix%fc*dz
enddo
end subroutine constrain_zaxis
subroutine constrain_pos(fix,n,at,xyz,g,e)
use xtb_mctc_accuracy, only : wp
use xtb_type_setvar
implicit none
type(fix_setvar),intent(in) :: fix
integer, intent(in) :: n
integer, intent(in) :: at(n)
real(wp),intent(in) :: xyz(3,n)
real(wp),intent(inout) :: e
real(wp),intent(inout) :: g(3,n)
integer :: i,j,ii,jj,k
real(wp) :: r,rij(3),tmp,d
if (fix%n.eq.0) return
k = 0
do i = 1, fix%n
ii = fix%atoms(i)
do j = 1, i-1
jj = fix%atoms(j)
k = k+1
rij = xyz(:,jj) - xyz(:,ii)
r = norm2(rij)
d = r - fix%val(k)
e = e + fix%fc * d**2
tmp = fix%fc * 2.0_wp * d
g(:,jj) = g(:,jj) + tmp*rij/r
g(:,ii) = g(:,ii) - tmp*rij/r
enddo
enddo
contains
pure elemental integer function lin(i1,i2)
integer,intent(in) :: i1,i2
integer :: idum1,idum2
idum1=max(i1,i2)
idum2=min(i1,i2)
lin=idum2+idum1*(idum1-1)/2
end function lin
end subroutine constrain_pos
subroutine qpothess2(fix,n,at,xyz,h)
use xtb_mctc_accuracy, only : wp
use xtb_type_setvar
implicit none
type(fix_setvar),intent(in) :: fix
integer, intent(in) :: n
integer, intent(in) :: at(n)
real(wp),intent(in) :: xyz(3,n)
real(wp),intent(inout) :: h(n*3*(n*3+1)/2)
real(wp) :: rij(3),dr,r0
real(wp) :: t1,t0,w0,w1,dx,dx2,dy,dy2,r,r2,r3
integer :: i,j,k,l,m,ii,jj,iik,iikl,ikjm,ijk,ij
if(fix%n.eq.0) return
! calculate hessian
do i = 1, fix%n !loop over all atoms
ii = (fix%atoms(i)-1)*3
do k = 1, 3 !loop diagonal elements (xyz components)
do j = 1, fix%n !inner loop for sum over all atoms
if (i.ne.j) then
rij = xyz(:,fix%atoms(j))-xyz(:,fix%atoms(i))
r = norm2(rij)
r2 = r*r
r3 = r2*r
ij = lin(i-1,j-1)+1
r0 = fix%val(ij)
dr = r-r0
dx = xyz(k,fix%atoms(i))-xyz(k,fix%atoms(j))
dx2 = dx*dx
iik = lin(ii+k,ii+k)
h(iik) = h(iik) + 2.0_wp*fix%fc*(1.0_wp+(dx2/r2)-(dx2*dr/r3)-(r0/r))
do l = k+1, 3 !loop same-atom block-diagonal elements
dy = xyz(l,fix%atoms(i))-xyz(l,fix%atoms(j))
iikl = lin(ii+k,ii+l)
h(iikl) = h(iikl) + 2.0_wp*fix%fc*r0*dx*dy/r3
enddo !end loop same-atom block-diagonal elements
endif
enddo !end inner loop for sum over all atoms
do j = i+1, fix%n !loop over the rest (mixed atoms)
rij = xyz(:,fix%atoms(j))-xyz(:,fix%atoms(i))
r = norm2(rij)
r2 = r*r
r3 = r2*r
ij = lin(i-1,j-1)+1
r0 = fix%val(ij)
dr = r-r0
jj = (fix%atoms(j)-1)*3
do m = 1, 3
if (k.eq.m) then !same component case
dx = xyz(k,fix%atoms(i))-xyz(k,fix%atoms(j))
dx2 = dx*dx
ijk = lin(ii+k,jj+k)
h(ijk) = h(ijk) - 2.0_wp*fix%fc*(1.0_wp+dx2/r2-dx2*dr/r3-r0/r)
else !different component case
dx = xyz(k,fix%atoms(i))-xyz(k,fix%atoms(j))
dy = xyz(m,fix%atoms(i))-xyz(m,fix%atoms(j))
ikjm = lin(ii+k,jj+m)
h(ikjm) = h(ikjm) - 2.0_wp*fix%fc*r0*dx*dy/r3
endif
enddo
enddo
enddo !end loop diagonal elements (xyz components)
enddo !end loop atoms
contains
pure elemental integer function lin(i1,i2)
integer,intent(in) :: i1,i2
integer :: idum1,idum2
idum1=max(i1,i2)
idum2=min(i1,i2)
lin=idum2+idum1*(idum1-1)/2
end function lin
end subroutine qpothess2
subroutine constrain_dist(fix,n,at,xyz,g,e)
use xtb_mctc_accuracy, only : wp
use xtb_type_setvar
implicit none
type(fix_setvar),intent(in) :: fix
integer, intent(in) :: n
integer, intent(in) :: at(n)
real(wp),intent(in) :: xyz(3,n)
real(wp),intent(inout) :: e
real(wp),intent(inout) :: g(3,n)
integer i,j,k,l,m,mm
real(wp)rij(3),dum,r0,r,vp(3),ra(3),rb(3)
real(wp)va(3),vb(3),vc(3),vab(3),vcb(3),deda(3),dedc(3),dedb(3)
real(wp)dda(3),ddb(3),ddc(3),ddd(3)
real(wp)c0,rab2,rcb2,theta,dt,rmul1,rmul2,deddt,rp,cosa,ea,vlen,d
real(wp)c1,phi0,phi,dphi1,x1cos,x1sin,dij,valijkl,ff,dum1,dum2
real(wp)dx,dy,dz,termx,termy,termz,abcx,abcy,abcz,a,z0,expo,expom1
if(fix%n.eq.0) return
do m = 1, fix%n
mm = 2*m-1
i = fix%atoms(mm)
j = fix%atoms(mm+1)
r0= fix%val(m)
rij=xyz(:,j)-xyz(:,i)
r = norm2(rij)
d=r-r0
! e=e+fix%fc*d*d
! ff=fix%fc*2.0d0*d
dum= d**fix%expo(m)
dum2=d**(fix%expo(m)-1.0_wp)
e=e+fix%fc*dum
ff=fix%fc*fix%expo(m)*dum2
dum=ff/r
g(:,j)=g(:,j)+dum*rij
g(:,i)=g(:,i)-dum*rij
enddo
end subroutine constrain_dist
subroutine constrain_angle(fix,n,at,xyz,g,e)
use xtb_mctc_accuracy, only : wp
use xtb_type_setvar
use xtb_basic_geo
implicit none
type(fix_setvar),intent(in) :: fix
integer, intent(in) :: n
integer, intent(in) :: at(n)
real(wp),intent(in) :: xyz(3,n)
real(wp),intent(inout) :: e
real(wp),intent(inout) :: g(3,n)
integer i,j,k,l,m,mm
real(wp)rij(3),dum,r0,ffc,vp(3),ra(3),rb(3)
real(wp)va(3),vb(3),vc(3),vab(3),vcb(3),deda(3),dedc(3),dedb(3)
real(wp)dda(3),ddb(3),ddc(3),ddd(3)
real(wp)c0,rab2,rcb2,theta,dt,rmul1,rmul2,deddt,rp,cosa,ea,vlen,d
real(wp)dx,dy,dz,termx,termy,termz,abcx,abcy,abcz,a,z0,expo,expom1
if(fix%n.eq.0) return
do m = 1, fix%n
mm = 3*m-2
i = fix%atoms(mm)
j = fix%atoms(mm+1)
k = fix%atoms(mm+2)
c0 = fix%val(m)
va = xyz(1:3,i)
vb = xyz(1:3,j)
vc = xyz(1:3,k)
vab = va-vb
vcb = vc-vb
rab2 = vab(1)*vab(1) + vab(2)*vab(2) + vab(3)*vab(3)
rcb2 = vcb(1)*vcb(1) + vcb(2)*vcb(2) + vcb(3)*vcb(3)
call crprod(vcb,vab,vp)
rp = norm2(vp)+1.d-14
call impsc(vab,vcb,cosa)
cosa = dble(min(1.0d0,max(-1.0d0,cosa)))
theta= dacos(cosa)
dt = theta - c0
ea = fix%fc* dt**2
deddt = 2.d0 * fix%fc * dt
e = e + ea
call crprod(vab,vp,deda)
rmul1 = -deddt / (rab2*rp)
deda = deda*rmul1
call crprod(vcb,vp,dedc)
rmul2 = deddt / (rcb2*rp)
dedc = dedc*rmul2
dedb = deda+dedc
g(:,i) = g(:,i) + deda
g(:,j) = g(:,j) - dedb
g(:,k) = g(:,k) + dedc
enddo
end subroutine constrain_angle
subroutine constrain_dihedral(fix,n,at,xyz,g,e)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_constants
use xtb_type_setvar
use xtb_basic_geo
implicit none
type(fix_setvar),intent(in) :: fix
integer, intent(in) :: n
integer, intent(in) :: at(n)
real(wp),intent(in) :: xyz(3,n)
real(wp),intent(inout) :: e
real(wp),intent(inout) :: g(3,n)
integer i,j,k,l,m,mm
real(wp)rij(3),dum,r0,ffc,vp(3),ra(3),rb(3)
real(wp)va(3),vb(3),vc(3),vab(3),vcb(3),deda(3),dedc(3),dedb(3)
real(wp)dda(3),ddb(3),ddc(3),ddd(3)
real(wp)c0,rab2,rcb2,theta,dt,rmul1,rmul2,deddt,rp,cosa,ea,vlen,d
real(wp)c1,phi0,phi,dphi1,x1cos,x1sin,dij,ff,dum1,dum2
real(wp)dx,dy,dz,termx,termy,termz,abcx,abcy,abcz,a,z0,expo,expom1
if(fix%n.eq.0) return
do m = 1, fix%n
mm = 4*m-3
i= fix%atoms(mm)
j= fix%atoms(mm+1)
k= fix%atoms(mm+2)
l= fix%atoms(mm+3)
phi0 =fix%val(m)
phi=valijkl(n,xyz,i,j,k,l)
if(abs(phi-pi).lt.1.d-8.or.abs(phi).lt.1.d-8) phi=phi+1.d-8
call dphidr(n,xyz,i,j,k,l,phi,dda,ddb,ddc,ddd)
dphi1=phi0-phi+pi
x1cos=cos(dphi1)
x1sin=sin(dphi1)
dij =fix%fc*x1sin
g(:,i)=g(:,i)+dij*dda
g(:,j)=g(:,j)+dij*ddb
g(:,k)=g(:,k)+dij*ddc
g(:,l)=g(:,l)+dij*ddd
e=e+fix%fc*(1.0_wp+x1cos)
enddo
end subroutine constrain_dihedral
subroutine constrain_pot(fix,n,at,xyz,g,e)
use xtb_mctc_accuracy, only : wp
use xtb_type_setvar
implicit none
type(constr_setvar),intent(in) :: fix
integer, intent(in) :: n
integer, intent(in) :: at(n)
real(wp),intent(in) :: xyz(3,n)
real(wp),intent(inout) :: e
real(wp),intent(inout) :: g(3,n)
call constrain_pos (fix%pos, n,at,xyz,g,e)
call constrain_dist (fix%dist, n,at,xyz,g,e)
call constrain_angle (fix%angle, n,at,xyz,g,e)
call constrain_dihedral(fix%dihedral,n,at,xyz,g,e)
end subroutine constrain_pot
subroutine constrain_hess(fix,n,at,xyz0,Hess)
use xtb_mctc_accuracy, only : wp
use xtb_type_setvar
implicit none
type(constr_setvar),intent(in) :: fix
integer, intent(in) :: n
integer, intent(in) :: at(n)
real(wp),intent(in) :: xyz0(3,n)
real(wp),intent(inout) :: Hess((n*3)*((n*3)+1)/2)
integer ia,ic,ja,jc,i,j,k,n3,ii,jj
real(wp) step,step2,e
real(wp),allocatable :: xyz(:,:)
real(wp),allocatable :: h(:,:),gr(:,:),gl(:,:)
if(fix%n.eq.0) return
allocate( h(n*3,n*3),gr(3,n),gl(3,n),xyz(3,n), source = 0.0_wp )
xyz = xyz0
n3=3*n
step =0.0001_wp
step2=0.5_wp/step
e=0
do ia = 1, n
do ic = 1, 3
ii = (ia-1)*3+ic
xyz(ic,ia)=xyz0(ic,ia)+step
gr=0.0_wp
call constrpot(n,at,xyz,gr,e)
xyz(ic,ia)=xyz0(ic,ia)-step
gl=0.0_wp
call constrpot(n,at,xyz,gl,e)
xyz(ic,ia)=xyz0(ic,ia)
do ja = 1, n
do jc = 1, 3
jj = (ja-1)*3 + jc
h(jj,ii) =(gr(jc,ja) - gl(jc,ja)) * step2
enddo
enddo
enddo
enddo
! call prmat(6,h,3*n,3*n,'H')
k=0
do i=1,n3
do j=1,i
k=k+1
hess(k)=hess(k)+0.5_wp*(h(j,i)+h(i,j))
enddo
enddo
end subroutine constrain_hess
end module xtb_constrainpot
xtb-6.7.1/src/coulomb/ 0000775 0000000 0000000 00000000000 14650006642 0014554 5 ustar 00root root 0000000 0000000 xtb-6.7.1/src/coulomb/CMakeLists.txt 0000664 0000000 0000000 00000001544 14650006642 0017320 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
set(dir "${CMAKE_CURRENT_SOURCE_DIR}")
list(APPEND srcs
"${dir}/ewald.f90"
"${dir}/gaussian.f90"
"${dir}/klopmanohno.f90"
)
set(srcs ${srcs} PARENT_SCOPE)
xtb-6.7.1/src/coulomb/ewald.f90 0000664 0000000 0000000 00000032765 14650006642 0016205 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> Implementation of Ewald summation specific tasks.
!
! Part of this code originates from the DFTB+ codebase.
module xtb_coulomb_ewald
use xtb_mctc_accuracy, only : wp
use xtb_mctc_constants
use xtb_type_environment, only : TEnvironment
implicit none
private
public :: ewaldMatPBC3D, ewaldDerivPBC3D, ewaldDerivPBC3D_alp
public :: getOptimalAlpha, getMaxG, getMaxR
!> Nr. of max. bisection steps
integer, parameter :: nSearchIter = 30
abstract interface
!> Returns the max. value of a term in the reciprocal space part of the Ewald
! summation for a given vector length.
pure function getGTermGen(gg, alpha, vol) result(gTerm)
import :: wp
!> Length of the reciprocal space vector
real(wp), intent(in) :: gg
!> Parameter of the Ewald summation
real(wp), intent(in) :: alpha
!> Volume of the real space unit cell
real(wp), intent(in) :: vol
!> Reciprocal term
real(wp) :: gTerm
end function getGTermGen
end interface
contains
pure function ewaldMatPBC3D(vec, gTrans, qpc, volume, alpha, scale) result(Amat)
!> Distance from i to WSC atom
real(wp), intent(in) :: vec(:)
!> Reciprocal lattice
real(wp), intent(in) :: gTrans(:, :)
!> Pseudo-quadrupole charge
real(wp), intent(in) :: qpc
!> Direct cell volume
real(wp), intent(in) :: volume
!> Convergence factor
real(wp), intent(in) :: alpha
!> Additional scaling factor
real(wp), intent(in) :: scale
!> Element of interaction matrix
real(wp) :: Amat
integer :: iG
real(wp) :: rik2, rik(3), expterm
Amat = 0.0_wp
do iG = 1, size(gTrans, dim=2)
rik(:) = gTrans(:, iG)
rik2 = dot_product(rik, rik)
expterm = exp(-rik2/(4.0_wp*alpha**2))/rik2
Amat = Amat + cos(dot_product(rik, vec)) * expterm * (1.0_wp + 2*rik2*qpc**2)
end do
Amat = Amat * 4.0_wp*pi/volume * scale
end function ewaldMatPBC3D
pure subroutine ewaldDerivPBC3D_alp(vec, gTrans, qpc, volume, alpha, scale, &
& dAmat, sigma)
!> Distance from i to WSC atom
real(wp),intent(in) :: vec(:)
!> Reciprocal lattice
real(wp),intent(in) :: gTrans(:, :)
!> Pseudo-quadrupole charge
real(wp), intent(in) :: qpc
!> Direct cell volume
real(wp),intent(in) :: volume
!> Convergence factor
real(wp),intent(in) :: alpha
!> Additional scaling factor
real(wp), intent(in) :: scale
!> Derivative of interaction matrix
real(wp),intent(out) :: dAmat(:)
!> Strain of interaction matrix
real(wp),intent(out) :: sigma(:, :)
integer :: iG
real(wp) :: rik2, rik(3), dtmp, expterm, arg
real(wp) :: fqpc, falp, dS(3, 3)
real(wp), parameter :: unity(3, 3) = reshape(&
& [1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp], &
& [3, 3])
dAmat = 0.0_wp
sigma = 0.0_wp
fqpc = 2*qpc**2
falp = 2.0_wp/3.0_wp/(4.0_wp*alpha**2)
do iG = 1, size(gTrans, dim=2)
rik = gTrans(:, iG)
rik2 = dot_product(rik,rik)
expterm = exp(-rik2/(4.0_wp*alpha**2))/rik2
arg = dot_product(rik,vec)
dtmp = -sin(arg) * expterm
dAmat = dAmat + rik*dtmp
dS = spread(rik,1,3)*spread(rik,2,3)
sigma = sigma + expterm * cos(arg) * ( &
& - unity * (1.0_wp + rik2*falp + rik2*fqpc) &
& + (2.0_wp/rik2 + 0.5_wp/alpha**2 + 0.5_wp*fqpc) * dS)
end do
dAmat = dAmat * 4.0_wp*pi/volume * scale
sigma = sigma * 4.0_wp*pi/volume * scale
end subroutine ewaldDerivPBC3D_alp
pure subroutine ewaldDerivPBC3D(vec, gTrans, qpc, volume, alpha, scale, &
& dAmat, sigma)
!> Distance from i to WSC atom
real(wp),intent(in) :: vec(:)
!> Reciprocal lattice
real(wp),intent(in) :: gTrans(:, :)
!> Pseudo-quadrupole charge
real(wp), intent(in) :: qpc
!> Direct cell volume
real(wp),intent(in) :: volume
!> Convergence factor
real(wp),intent(in) :: alpha
!> Additional scaling factor
real(wp), intent(in) :: scale
!> Derivative of interaction matrix
real(wp),intent(out) :: dAmat(:)
!> Strain of interaction matrix
real(wp),intent(out) :: sigma(:, :)
integer :: iG
real(wp) :: rik2, rik(3), dtmp, expterm, arg
real(wp) :: fqpc, dS(3, 3)
real(wp), parameter :: unity(3, 3) = reshape(&
& [1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp], &
& [3, 3])
dAmat = 0.0_wp
sigma = 0.0_wp
fqpc = 2*qpc**2
do iG = 1, size(gTrans, dim=2)
rik = gTrans(:, iG)
rik2 = dot_product(rik,rik)
expterm = exp(-rik2/(4.0_wp*alpha**2))/rik2
arg = dot_product(rik,vec)
dtmp = -sin(arg) * expterm
dAmat = dAmat + rik*dtmp
dS = spread(rik,1,3)*spread(rik,2,3)
sigma = sigma + 0.5_wp * expterm * cos(arg) * ( &
& - unity * (1.0_wp + rik2*fqpc) &
& + (2.0_wp/rik2 + 0.5_wp/alpha**2 + 0.5_wp*fqpc) * dS)
end do
dAmat = dAmat * 4.0_wp*pi/volume * scale
sigma = sigma * 4.0_wp*pi/volume * scale
end subroutine ewaldDerivPBC3D
!> Get optimal alpha-parameter for the Ewald summation by finding alpha, where
! decline of real and reciprocal part of Ewald are equal.
subroutine getOptimalAlpha(env, latVec, recVec, volume, tolerance, alpha)
!> Source of the generated error
character(len=*), parameter :: source = 'coulomb_ewald_getOptimalAlpha'
!> Calculation environment
type(TEnvironment), intent(inout) :: env
!> Lattice vectors
real(wp), intent(in) :: latVec(:,:)
!> Reciprocal vectors
real(wp), intent(in) :: recVec(:,:)
!> Volume of the unit cell
real(wp), intent(in) :: volume
!> Tolerance for difference in real and rec. part
real(wp), intent(in) :: tolerance
!> Optimal alpha
real(wp) :: alpha
real(wp) :: alphaLeft, alphaRight
real(wp), parameter :: alphaInit = 1.0e-8_wp
real(wp) :: minG, minR, diff
integer :: iIter
integer :: iError
character(len=100) :: errorString
minG = sqrt(minval(sum(recVec(:,:)**2, dim=1)))
minR = sqrt(minval(sum(latVec(:,:)**2, dim=1)))
iError = 0
alpha = alphaInit
diff = diffRecReal(alpha, getGTermPBC3D, minG, minR, volume)
do while (diff < -tolerance .and. alpha <= huge(1.0_wp))
alpha = 2.0_wp * alpha
diff = diffRecReal(alpha, getGTermPBC3D, minG, minR, volume)
end do
if (alpha > huge(1.0_wp)) then
iError = 1
elseif (alpha == alphaInit) then
iError = 2
end if
if (iError == 0) then
alphaLeft = 0.5_wp * alpha
do while (diff < tolerance .and. alpha <= huge(1.0_wp))
alpha = 2.0_wp * alpha
diff = diffRecReal(alpha, getGTermPBC3D, minG, minR, volume)
end do
if (alpha > huge(1.0_wp)) then
iError = 3
end if
end if
if (iError == 0) then
alphaRight = alpha
alpha = (alphaLeft + alphaRight) / 2.0
iIter = 0
diff = diffRecReal(alpha, getGTermPBC3D, minG, minR, volume)
do while (abs(diff) > tolerance .and. iIter <= nSearchIter)
if (diff < 0) then
alphaLeft = alpha
else
alphaRight = alpha
end if
alpha = (alphaLeft + alphaRight) / 2.0
diff = diffRecReal(alpha, getGTermPBC3D, minG, minR, volume)
iIter = iIter + 1
end do
if (iIter > nSearchIter) then
iError = 4
end if
end if
if (iError /= 0) then
!alpha = exp(-0.310104 * log(volume) + 0.786382) / 2.0
call env%error('Failed to determine the optimal alpha for Ewald sum', source)
end if
end subroutine getOptimalAlpha
!> Returns the longest reciprocal vector which gives a bigger contribution to
! the Ewald sum than a certain tolerance.
subroutine getMaxG(env, alpha, volume, minValue, maxG)
!> Source of the generated error
character(len=*), parameter :: source = 'coulomb_ewald_getMaxG'
!> Calculation environment
type(TEnvironment), intent(inout) :: env
!> Parameter of the ewald summation
real(wp), intent(in) :: alpha
!> Volume of the unit cell
real(wp), intent(in) :: volume
!> Tolerance value
real(wp), intent(in) :: minValue
!> Magnitude of reciprocal vector
real(wp) :: maxG
real(wp), parameter :: gInit = 1.0e-8_wp
real(wp) :: xLeft, xRight, yLeft, yRight, yy
integer :: iError, iIter
character(len=100) :: errorString
iError = 0
maxG = gInit
yy = getGTermPBC3D(maxG, alpha, volume)
do while (yy > minValue .and. maxG <= huge(1.0_wp))
maxG = 2.0_wp * maxG
yy = getGTermPBC3D(maxG, alpha, volume)
end do
if (maxG > huge(1.0_wp)) then
iError = 1
elseif (maxG == gInit) then
iError = 2
end if
if (iError == 0) then
xLeft = 0.5_wp * maxG
yLeft = getGTermPBC3D(xLeft, alpha, volume)
xRight = maxG
yRight = yy
iIter = 1
do while (yLeft - yRight > minValue .and. iIter <= nSearchIter)
maxG = 0.5_wp * (xLeft + xRight)
yy = getGTermPBC3D(maxG, alpha, volume)
if (yy >= minValue) then
xLeft = maxG
yLeft = yy
else
xRight = maxG
yRight = yy
end if
iIter = iIter + 1
end do
if (iIter > nSearchIter) then
iError = 3
end if
end if
if (iError /= 0) then
call env%error('Failed to determine max. reciprocal lattice vector', source)
end if
end subroutine getMaxG
!> Returns the longest real space vector which gives a bigger contribution to
! the Ewald sum than a certain tolerance.
subroutine getMaxR(env, alpha, minValue, maxR)
!> Source of the generated error
character(len=*), parameter :: source = 'coulomb_ewald_getMaxR'
!> Calculation environment
type(TEnvironment), intent(inout) :: env
!> Parameter of the ewald summation
real(wp), intent(in) :: alpha
!> Tolerance value
real(wp), intent(in) :: minValue
!> Magnitude of real space vector
real(wp) :: maxR
real(wp), parameter :: rInit = 1.0e-8_wp
real(wp) :: xLeft, xRight, yLeft, yRight, yy
integer :: iError, iIter
character(len=100) :: errorString
iError = 0
maxR = rInit
yy = getRTerm(maxR, alpha)
do while (yy > minValue .and. maxR <= huge(1.0_wp))
maxR = 2.0_wp * maxR
yy = getRTerm(maxR, alpha)
end do
if (maxR > huge(1.0_wp)) then
iError = 1
elseif (maxR == rInit) then
iError = 2
end if
if (iError == 0) then
xLeft = 0.5_wp * maxR
yLeft = getRTerm(xLeft, alpha)
xRight = maxR
yRight = yy
iIter = 1
do while (yLeft - yRight > minValue .and. iIter <= nSearchIter)
maxR = 0.5_wp * (xLeft + xRight)
yy = getRTerm(maxR, alpha)
if (yy >= minValue) then
xLeft = maxR
yLeft = yy
else
xRight = maxR
yRight = yy
end if
iIter = iIter + 1
end do
if (iIter > nSearchIter) then
iError = 3
end if
end if
if (iError /= 0) then
call env%error('Failed to determine max. real lattice vector', source)
end if
end subroutine getMaxR
!> Returns the difference in the decrease of the real and reciprocal parts of the
! Ewald sum. In order to make the real space part shorter than the reciprocal
! space part, the values are taken at different distances for the real and the
! reciprocal space parts.
pure function diffRecReal(alpha, getGTerm, minG, minR, volume) result(diff)
!> Parameter for the Ewald summation
real(wp), intent(in) :: alpha
!> Procedure pointer to reciprocal routine
procedure(getGTermGen) :: getGTerm
!> Length of the shortest reciprocal space vector in the sum
real(wp), intent(in) :: minG
!> Length of the shortest real space vector in the sum
real(wp), intent(in) :: minR
!> Volume of the real space unit cell
real(wp), intent(in) :: volume
!> Difference between changes in the two terms
real(wp) :: diff
diff = ((getGTerm(4.0_wp*minG, alpha, volume) &
& - getGTerm(5.0_wp*minG, alpha, volume))) &
& - (getRTerm(2.0_wp*minR, alpha) - getRTerm(3.0_wp*minR, alpha))
end function diffRecReal
!> Returns the max. value of a term in the reciprocal space part of the Ewald
! summation for a given vector length.
pure function getGTermPBC3D(gg, alpha, vol) result(gTerm)
!> Length of the reciprocal space vector
real(wp), intent(in) :: gg
!> Parameter of the Ewald summation
real(wp), intent(in) :: alpha
!> Volume of the real space unit cell
real(wp), intent(in) :: vol
!> Reciprocal term
real(wp) :: gTerm
gTerm = 4.0_wp*pi*(exp(-0.25_wp*gg**2/(alpha**2))/(vol*gg**2))
end function getGTermPBC3D
!> Returns the max. value of a term in the real space part of the Ewald summation
! for a given vector length.
pure function getRTerm(rr, alpha) result(rTerm)
!> Length of the real space vector
real(wp), intent(in) :: rr
!> Parameter of the Ewald summation
real(wp), intent(in) :: alpha
!> Real space term
real(wp) :: rTerm
rTerm = erfc(alpha*rr)/rr
end function getRTerm
end module xtb_coulomb_ewald
xtb-6.7.1/src/coulomb/gaussian.f90 0000664 0000000 0000000 00000044405 14650006642 0016715 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> TODO
module xtb_coulomb_gaussian
use xtb_mctc_accuracy, only : wp
use xtb_mctc_boundaryconditions, only : boundaryCondition
use xtb_mctc_constants, only : pi, sqrtpi
use xtb_mctc_math, only : matInv3x3, matDet3x3
use xtb_coulomb_ewald
use xtb_type_coulomb, only : TCoulomb, setupBoundaryConditions, setupIndexTable
use xtb_type_environment, only : TEnvironment
use xtb_type_molecule, only : TMolecule, len
use xtb_type_latticepoint, only : TLatticePoint, init_l
use xtb_type_wignerseitzcell, only : TWignerSeitzCell, init
use xtb_mctc_constants, only : pi, sqrtpi
implicit none
private
public :: TGaussianSmeared, init
type, extends(TCoulomb) :: TGaussianSmeared
real(wp), allocatable :: rad(:, :)
contains
!> Returns full Coulomb matrix
procedure :: getCoulombMatrix
!> Returns derivatives of Coulomb matrix
procedure :: getCoulombDerivs
end type TGaussianSmeared
interface init
module procedure :: initFromMolecule
module procedure :: initGaussianSmeared
end interface init
contains
subroutine initFromMolecule(self, env, mol, rad, num, nshell, alpha, &
& tolerance)
!> Source of the generated error
character(len=*), parameter :: source = 'coulomb_gaussian_initFromMolecule'
!> Instance of the Coulomb evaluator
type(TGaussianSmeared), intent(out) :: self
!> Calculation environment
type(TEnvironment), intent(inout) :: env
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: rad(:, :)
!> Atomic number for each id
integer, intent(in), optional :: num(:)
!> Number of shell for each species
integer, intent(in), optional :: nshell(:)
!> Convergence factor
real(wp), intent(in), optional :: alpha
!> Tolerance for the Ewald sum
real(wp), intent(in), optional :: tolerance
logical :: exitRun
call init(self, env, mol%id, mol%lattice, mol%boundaryCondition, &
& rad, num, nshell, alpha, tolerance)
call env%check(exitRun)
if (exitRun) return
call self%update(env, mol)
call env%check(exitRun)
if (exitRun) then
call env%error("Initializing internal state of evaluator failed", source)
end if
end subroutine initFromMolecule
subroutine initGaussianSmeared(self, env, id, lattice, boundaryCond, rad, &
& num, nshell, alpha, tolerance)
!> Source of the generated error
character(len=*), parameter :: source = 'coulomb_gaussian_initGaussianSmeared'
!> Instance of the Coulomb evaluator
type(TGaussianSmeared), intent(out) :: self
!> Identity of each atom
integer, intent(in) :: id(:)
!> Calculation environment
type(TEnvironment), intent(inout) :: env
!> Lattice parameters
real(wp), intent(in) :: lattice(:, :)
!> Boundary conditions for this evaluator
integer, intent(in) :: boundaryCond
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: rad(:, :)
!> Atomic number for each id
integer, intent(in), optional :: num(:)
!> Number of shell for each species
integer, intent(in), optional :: nshell(:)
!> Convergence factor
real(wp), intent(in), optional :: alpha
!> Tolerance for the Ewald sum
real(wp), intent(in), optional :: tolerance
logical :: exitRun
integer :: ii
self%boundaryCondition = boundaryCond
self%natom = size(id, dim=1)
call setupIndexTable(self%natom, self%itbl, id, num, nshell)
if (present(num)) then
allocate(self%rad(size(rad, dim=1), size(num)))
do ii = 1, size(num)
self%rad(:, ii) = rad(:, num(ii))
end do
else
self%rad = rad
end if
call setupBoundaryConditions(self, env, lattice, alpha, tolerance)
end subroutine initGaussianSmeared
subroutine getCoulombMatrix(self, mol, jmat)
!> Instance of the Coulomb evaluator
class(TGaussianSmeared), intent(inout) :: self
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Coulomb matrix
real(wp), intent(out) :: jmat(:, :)
select case(self%boundaryCondition)
case(boundaryCondition%cluster)
call getCoulombMatrixCluster(mol, self%itbl, self%rad, jmat)
case(boundaryCondition%pbc3d)
call getCoulombMatrixPBC3D(self%wsCell, mol%id, self%itbl, self%rad, &
& self%alpha, mol%volume, self%rTrans, self%gTrans(:, 2:), jmat)
end select
end subroutine getCoulombMatrix
subroutine getCoulombMatrixCluster(mol, itbl, rad, jmat)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Index table
integer, intent(in) :: itbl(:, :)
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: rad(:, :)
!> Coulomb matrix
real(wp), intent(out) :: jmat(:, :)
integer :: iat, jat, ish, jsh, ii, jj, iid, jid
real(wp) :: r1, rterm, gij
jmat(:, :) = 0.0_wp
!$omp parallel do default(none) shared(mol, itbl, rad, jmat) &
!$omp private(iat, jat, ish, jsh, ii, jj, iid, jid, r1, rterm, gij)
do iat = 1, len(mol)
ii = itbl(1, iat)
iid = mol%id(iat)
do jat = 1, iat-1
jj = itbl(1, jat)
jid = mol%id(jat)
r1 = sqrt(sum((mol%xyz(:, jat) - mol%xyz(:, iat))**2))
do ish = 1, itbl(2, iat)
do jsh = 1, itbl(2, jat)
gij = 1.0_wp/sqrt(rad(ish, iid)**2 + rad(jsh, jid)**2)
rterm = erf(gij*r1)/r1
jmat(jj+jsh, ii+ish) = rterm
jmat(ii+ish, jj+jsh) = rterm
end do
end do
end do
do ish = 1, itbl(2, iat)
do jsh = 1, ish-1
gij = 1.0_wp/sqrt(rad(ish, iid)**2 + rad(jsh, iid)**2)
jmat(ii+jsh, ii+ish) = 2.0_wp/sqrtpi*gij
jmat(ii+ish, ii+jsh) = 2.0_wp/sqrtpi*gij
end do
gij = sqrt(0.5_wp)/rad(ish, iid)
jmat(ii+ish, ii+ish) = 2.0_wp/sqrtpi*gij
end do
end do
!$omp end parallel do
end subroutine getCoulombMatrixCluster
subroutine getCoulombMatrixPBC3D(wsCell, id, itbl, rad, alpha, volume, rTrans, &
& gTrans, jmat)
!> Wigner-Seitz cell
type(TWignerSeitzCell), intent(in) :: wsCell
!> Identity
integer, intent(in) :: id(:)
!> Index table
integer, intent(in) :: itbl(:, :)
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: rad(:, :)
!> Cell volume
real(wp), intent(in) :: volume
!> Convergence factor
real(wp), intent(in) :: alpha
!> Real space lattice translations
real(wp), intent(in) :: rTrans(:, :)
!> Reciprocal space lattice translations
real(wp), intent(in) :: gTrans(:, :)
!> Coulomb matrix
real(wp), intent(out) :: jmat(:, :)
integer :: iat, ineigh, img, jat, ish, jsh, ii, jj, iid, jid
real(wp) :: vec(3), rterm, gterm, weight, gij
real(wp), parameter :: zero(3) = 0.0_wp
jmat(:, :) = 0.0_wp
!$omp parallel do default(none) reduction(+:jmat) &
!$omp shared(wsCell, id, itbl, alpha, volume, gTrans, rTrans, rad) &
!$omp private(iat, ineigh, img, jat, ish, jsh, ii, jj, iid, jid, rterm, &
!$omp& gterm, vec, weight, gij)
do iat = 1, size(wsCell%neighs)
ii = itbl(1, iat)
iid = id(iat)
do ineigh = 1, wsCell%neighs(iat)
img = wsCell%ineigh(ineigh, iat)
jat = wsCell%image(img)
jj = itbl(1, jat)
jid = id(jat)
weight = wsCell%weight(ineigh, iat)
vec(:) = wsCell%coords(:, img) - wsCell%coords(:, iat)
gterm = ewaldMatPBC3D(vec, gTrans, 0.0_wp, volume, alpha, weight) &
& - pi / (volume * alpha**2) * weight
if (iat /= jat) then
do ish = 1, itbl(2, iat)
do jsh = 1, itbl(2, jat)
gij = 1.0_wp/sqrt(rad(ish, iid)**2 + rad(jsh, jid)**2)
rterm = gterm + getRTerm(vec, gij, rTrans, alpha, weight)
jmat(jj+jsh, ii+ish) = jmat(jj+jsh, ii+ish) + rterm
jmat(ii+ish, jj+jsh) = jmat(ii+ish, jj+jsh) + rterm
end do
end do
else
do ish = 1, itbl(2, iat)
do jsh = 1, ish-1
gij = 1.0_wp/sqrt(rad(ish, iid)**2 + rad(jsh, iid)**2)
rterm = gterm + getRTerm(vec, gij, rTrans, alpha, weight)
jmat(ii+jsh, ii+ish) = jmat(ii+jsh, ii+ish) + rterm
jmat(ii+ish, ii+jsh) = jmat(ii+ish, ii+jsh) + rterm
end do
gij = sqrt(0.5_wp)/rad(ish, iid)
rterm = gterm + getRTerm(vec, gij, rTrans, alpha, weight)
jmat(ii+ish, ii+ish) = jmat(ii+ish, ii+ish) + rterm
end do
end if
end do
do ish = 1, itbl(2, iat)
do jsh = 1, ish-1
gij = 1.0_wp/sqrt(rad(ish, iid)**2 + rad(jsh, iid)**2)
jmat(ii+jsh, ii+ish) = jmat(ii+jsh, ii+ish) + 2.0_wp/sqrtpi*gij
jmat(ii+ish, ii+jsh) = jmat(ii+ish, ii+jsh) + 2.0_wp/sqrtpi*gij
end do
gij = sqrt(0.5_wp)/rad(ish, iid)
jmat(ii+ish, ii+ish) = jmat(ii+ish, ii+ish) + 2.0_wp/sqrtpi*gij
end do
end do
!$omp end parallel do
end subroutine getCoulombMatrixPBC3D
pure function getRTerm(vec, gam, rTrans, alpha, scale) result(rTerm)
real(wp),intent(in) :: vec(3)
real(wp),intent(in) :: gam
real(wp),intent(in) :: rTrans(:,:)
real(wp),intent(in) :: alpha
real(wp),intent(in) :: scale
real(wp) :: rTerm
real(wp),parameter :: eps = 1.0e-9_wp
integer :: itr
real(wp) :: r1, rij(3)
rTerm = 0.0_wp
do itr = 1, size(rTrans, dim=2)
rij = vec + rTrans(:, itr)
r1 = sqrt(sum(rij**2))
! self-interaction correction
if(r1 < eps) then
rTerm = rTerm - 2.0_wp*alpha/sqrtpi
else
rterm = rTerm + erf(gam*r1)/r1 - erf(alpha*r1)/r1
end if
end do
rTerm = rTerm * scale
end function getRTerm
subroutine getCoulombDerivs(self, mol, qvec, djdr, djdtr, djdL)
!> Instance of the Coulomb evaluator
class(TGaussianSmeared), intent(inout) :: self
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Charges
real(wp), intent(in) :: qvec(:)
!> Derivative of Coulomb matrix w.r.t. Cartesian coordinates
real(wp), intent(out) :: djdr(:, :, :)
!> Trace derivative of Coulomb matrix
real(wp), intent(out) :: djdtr(:, :)
!> Derivative of Coulomb matrix w.r.t. strain deformations
real(wp), intent(out) :: djdL(:, :, :)
select case(self%boundaryCondition)
case(boundaryCondition%cluster)
call getCoulombDerivsCluster(mol, self%itbl, self%rad, qvec, djdr, &
& djdtr, djdL)
case(boundaryCondition%pbc3d)
call getCoulombDerivsPBC3D(self%wsCell, mol%id, self%itbl, self%rad, &
& self%alpha, mol%volume, self%rTrans, self%gTrans(:, 2:), qvec, &
& djdr, djdtr, djdL)
end select
end subroutine getCoulombDerivs
subroutine getCoulombDerivsCluster(mol, itbl, rad, qvec, djdr, djdtr, djdL)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Index table
integer, intent(in) :: itbl(:, :)
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: rad(:, :)
!> Charges
real(wp), intent(in) :: qvec(:)
!> Derivative of Coulomb matrix w.r.t. Cartesian coordinates
real(wp), intent(out) :: djdr(:, :, :)
!> Trace derivative of Coulomb matrix
real(wp), intent(out) :: djdtr(:, :)
!> Derivative of Coulomb matrix w.r.t. strain deformations
real(wp), intent(out) :: djdL(:, :, :)
integer :: iat, jat, ish, jsh, ii, jj, iid, jid
real(wp) :: r2, g1, gij, vec(3), dG(3), dS(3, 3)
djdr(:, :, :) = 0.0_wp
djdtr(:, :) = 0.0_wp
djdL(:, :, :) = 0.0_wp
!$omp parallel do default(none) reduction(+:djdr, djdtr, djdL) &
!$omp shared(mol, itbl, qvec, rad) &
!$omp private(iat, jat, ish, jsh, ii, jj, iid, jid, r2, g1, gij, vec, dG, dS)
do iat = 1, len(mol)
ii = itbl(1, iat)
iid = mol%id(iat)
do jat = 1, iat-1
jj = itbl(1, jat)
jid = mol%id(jat)
vec(:) = mol%xyz(:, jat) - mol%xyz(:, iat)
r2 = sum(vec**2)
do ish = 1, itbl(2, iat)
do jsh = 1, itbl(2, jat)
gij = 1.0_wp/(rad(ish, iid)**2 + rad(jsh, jid)**2)
g1 = erf(sqrt(gij*r2))/sqrt(r2)
dG(:) = (2*sqrt(gij)*exp(-gij*r2)/sqrtpi - g1) * vec/r2
dS(:, :) = 0.5_wp * spread(dG, 1, 3) * spread(vec, 2, 3)
djdr(:, iat, jj+jsh) = djdr(:, iat, jj+jsh) - dG*qvec(ii+ish)
djdr(:, jat, ii+ish) = djdr(:, jat, ii+ish) + dG*qvec(jj+jsh)
djdtr(:, jj+jsh) = djdtr(:, jj+jsh) + dG*qvec(ii+ish)
djdtr(:, ii+ish) = djdtr(:, ii+ish) - dG*qvec(jj+jsh)
djdL(:, :, jj+jsh) = djdL(:, :, jj+jsh) + dS*qvec(ii+ish)
djdL(:, :, ii+ish) = djdL(:, :, ii+ish) + dS*qvec(jj+jsh)
end do
end do
end do
end do
!$omp end parallel do
end subroutine getCoulombDerivsCluster
subroutine getCoulombDerivsPBC3D(wsCell, id, itbl, rad, alpha, volume, rTrans, &
& gTrans, qvec, djdr, djdtr, djdL)
!> Wigner-Seitz cell
type(TWignerSeitzCell), intent(in) :: wsCell
!> Identity
integer, intent(in) :: id(:)
!> Radii of charge densities
real(wp), intent(in) :: rad(:, :)
!> Cell volume
real(wp), intent(in) :: volume
!> Convergence factor
real(wp), intent(in) :: alpha
!> Real space lattice translations
real(wp), intent(in) :: rTrans(:, :)
!> Reciprocal space lattice translations
real(wp), intent(in) :: gTrans(:, :)
!> Index table
integer, intent(in) :: itbl(:, :)
!> Charges
real(wp), intent(in) :: qvec(:)
!> Derivative of Coulomb matrix w.r.t. Cartesian coordinates
real(wp), intent(out) :: djdr(:, :, :)
!> Trace derivative of Coulomb matrix
real(wp), intent(out) :: djdtr(:, :)
!> Derivative of Coulomb matrix w.r.t. strain deformations
real(wp), intent(out) :: djdL(:, :, :)
integer :: iat, jat, ish, jsh, ii, jj, ineigh, img, iid, jid
real(wp) :: weight, gij, vec(3), dG(3), dS(3, 3), dGg(3), dGr(3), dSg(3, 3)
real(wp) :: dSr(3, 3)
real(wp), parameter :: unity(3, 3) = reshape(&
& [1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp], &
& [3, 3])
djdr(:, :, :) = 0.0_wp
djdtr(:, :) = 0.0_wp
djdL(:, :, :) = 0.0_wp
dGr = 0.0_wp
dSr = 0.0_wp
!$omp parallel do default(none) reduction(+:djdr, djdtr, djdL) &
!$omp shared(wsCell, id, itbl, rad, qvec, alpha, volume, gTrans, rTrans) &
!$omp private(iat, ineigh, img, jat, ish, jsh, ii, jj, iid, jid, vec, weight, &
!$omp& gij, dG, dS, dGg, dGr, dSg, dSr)
do iat = 1, size(wsCell%neighs)
ii = itbl(1, iat)
iid = id(iat)
do ineigh = 1, wsCell%neighs(iat)
img = wsCell%ineigh(ineigh, iat)
jat = wsCell%image(img)
jj = itbl(1, jat)
jid = id(jat)
weight = wsCell%weight(ineigh, iat)
vec(:) = wsCell%coords(:, img) - wsCell%coords(:, iat)
call ewaldDerivPBC3D(vec, gTrans, 0.0_wp, volume, alpha, weight, dGg, dSg)
if (iat /= jat) then
do ish = 1, itbl(2, iat)
do jsh = 1, itbl(2, jat)
gij = 1.0_wp/sqrt(rad(ish, iid)**2 + rad(jsh, jid)**2)
call getRDeriv(vec, gij, rTrans, alpha, weight, dGr, dSr)
dG(:) = dGg + dGr
dS(:, :) = dSg + dSr + pi / (volume * alpha**2) * weight * unity
djdr(:, iat, jj+jsh) = djdr(:, iat, jj+jsh) - dG*qvec(ii+ish)
djdr(:, jat, ii+ish) = djdr(:, jat, ii+ish) + dG*qvec(jj+jsh)
djdtr(:, jj+jsh) = djdtr(:, jj+jsh) + dG*qvec(ii+ish)
djdtr(:, ii+ish) = djdtr(:, ii+ish) - dG*qvec(jj+jsh)
djdL(:, :, jj+jsh) = djdL(:, :, jj+jsh) + dS*qvec(ii+ish)
djdL(:, :, ii+ish) = djdL(:, :, ii+ish) + dS*qvec(jj+jsh)
end do
end do
else
do ish = 1, itbl(2, iat)
do jsh = 1, ish-1
gij = 1.0_wp/sqrt(rad(ish, iid)**2 + rad(jsh, iid)**2)
call getRDeriv(vec, gij, rTrans, alpha, weight, dGr, dSr)
dS(:, :) = dSg + dSr + pi / (volume * alpha**2) * weight * unity
djdL(:, :, ii+jsh) = djdL(:, :, ii+jsh) + dS*qvec(ii+ish)
djdL(:, :, ii+ish) = djdL(:, :, ii+ish) + dS*qvec(ii+jsh)
end do
gij = sqrt(0.5_wp)/rad(ish, iid)
call getRDeriv(vec, gij, rTrans, alpha, weight, dGr, dSr)
dS(:, :) = dSg + dSr + pi / (volume * alpha**2) * weight * unity
djdL(:, :, ii+ish) = djdL(:, :, ii+ish) + dS*qvec(ii+ish)
end do
end if
end do
end do
!$omp end parallel do
end subroutine getCoulombDerivsPBC3D
pure subroutine getRDeriv(vec, gij, rTrans, alpha, scale, dG, dS)
real(wp), intent(in) :: vec(:)
real(wp), intent(in) :: gij
real(wp), intent(in) :: rTrans(:,:)
real(wp), intent(in) :: alpha
real(wp), intent(in) :: scale
real(wp), intent(out) :: dG(:)
real(wp), intent(out) :: dS(:,:)
real(wp), parameter :: eps = 1.0e-9_wp
integer :: itr
real(wp) :: r1, rij(3), arg, dd
real(wp), parameter :: unity(3, 3) = reshape(&
& [1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp], &
& [3, 3])
dG = 0.0_wp
dS = 0.0_wp
do itr = 1, size(rTrans, dim=2)
! real contributions
rij = vec + rTrans(:, itr)
r1 = sqrt(sum(rij**2))
if (r1 < eps) cycle
arg = alpha**2*r1**2
dd = + 2*gij*exp(-gij**2*r1**2)/(sqrtpi*r1**2) - erf(gij*r1)/(r1**3) &
& - 2*alpha*exp(-arg)/(sqrtpi*r1**2) + erf(alpha*r1)/(r1**3)
dG = dG + rij*dd
dS = dS + 0.5_wp * dd*spread(rij, 1, 3)*spread(rij, 2, 3)
enddo
dG = dG * scale
dS = dS * scale
end subroutine getRDeriv
end module xtb_coulomb_gaussian
xtb-6.7.1/src/coulomb/klopmanohno.f90 0000664 0000000 0000000 00000053547 14650006642 0017437 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> Generalized Klopman-Ohno electrostatics
module xtb_coulomb_klopmanohno
use xtb_mctc_accuracy, only : wp
use xtb_mctc_boundaryconditions, only : boundaryCondition
use xtb_mctc_constants, only : pi, sqrtpi
use xtb_mctc_math, only : matInv3x3, matDet3x3
use xtb_coulomb_ewald
use xtb_type_coulomb, only : TCoulomb, setupBoundaryConditions, setupIndexTable
use xtb_type_environment, only : TEnvironment
use xtb_type_molecule, only : TMolecule, len
use xtb_type_latticepoint, only : TLatticePoint, init_l
use xtb_type_wignerseitzcell, only : TWignerSeitzCell, init
implicit none
private
public :: TKlopmanOhno, init
public :: gamAverage
!> Possible averaging functions for hardnesses
type :: TGamAverageEnum
!> Harmonic average used in GFN1-xTB
integer :: harmonic = 1
!> Arithmetic average used in GFN2-xTB
integer :: arithmetic = 2
!> Geometric average
integer :: geometric = 3
end type TGamAverageEnum
!> Actual enumerator for hardnesses
type(TGamAverageEnum), parameter :: gamAverage = TGamAverageEnum()
type, extends(TCoulomb) :: TKlopmanOhno
!> Shell/Atomic hardnesses for each species
real(wp), allocatable :: hardness(:, :)
!> Generalized exponent
real(wp) :: gExp
!> Averaging function for the hardnesses
procedure(funcAverage), nopass, pointer :: gamAverage => null()
contains
!> Returns full Coulomb matrix
procedure :: getCoulombMatrix
!> Returns derivatives of Coulomb matrix
procedure :: getCoulombDerivs
end type TKlopmanOhno
interface init
module procedure :: initFromMolecule
module procedure :: initKlopmanOhno
end interface init
abstract interface
pure function funcAverage(gi, gj) result(gam)
import :: wp
!> Hardness of shell i
real(wp), intent(in) :: gi
!> Hardness of shell j
real(wp), intent(in) :: gj
!> Averaged hardness
real(wp) :: gam
end function funcAverage
end interface
contains
subroutine initFromMolecule(self, env, mol, gav, hardness, gExp, num, nshell, &
& alpha, tolerance)
!> Source of the generated error
character(len=*), parameter :: source = 'type_coulomb_initFromMolecule'
!> Instance of the Coulomb evaluator
type(TKlopmanOhno), intent(out) :: self
!> Calculation environment
type(TEnvironment), intent(inout) :: env
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Averaging function
integer, intent(in) :: gav
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: hardness(:, :)
!> Generalized exponent
real(wp), intent(in) :: gExp
!> Atomic number for each id
integer, intent(in), optional :: num(:)
!> Number of shell for each species
integer, intent(in), optional :: nshell(:)
!> Convergence factor
real(wp), intent(in), optional :: alpha
!> Tolerance for the Ewald sum
real(wp), intent(in), optional :: tolerance
logical :: exitRun
call init(self, env, mol%id, mol%lattice, mol%boundaryCondition, gav, &
& hardness, gExp, num, nshell, alpha, tolerance)
call env%check(exitRun)
if (exitRun) return
call self%update(env, mol)
call env%check(exitRun)
if (exitRun) then
call env%error("Initializing internal state of evaluator failed", source)
end if
end subroutine initFromMolecule
subroutine initKlopmanOhno(self, env, id, lattice, boundaryCond, gav, hardness, &
& gExp, num, nshell, alpha, tolerance)
!> Source of the generated error
character(len=*), parameter :: source = 'type_coulomb_initCoulomb'
!> Instance of the Coulomb evaluator
type(TKlopmanOhno), intent(out) :: self
!> Identity of each atom
integer, intent(in) :: id(:)
!> Calculation environment
type(TEnvironment), intent(inout) :: env
!> Lattice parameters
real(wp), intent(in) :: lattice(:, :)
!> Boundary conditions for this evaluator
integer, intent(in) :: boundaryCond
!> Averaging function
integer, intent(in) :: gav
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: hardness(:, :)
!> Generalized exponent
real(wp), intent(in) :: gExp
!> Atomic number for each id
integer, intent(in), optional :: num(:)
!> Number of shell for each species
integer, intent(in), optional :: nshell(:)
!> Convergence factor
real(wp), intent(in), optional :: alpha
!> Tolerance for the Ewald sum
real(wp), intent(in), optional :: tolerance
logical :: exitRun
integer :: ii
self%boundaryCondition = boundaryCond
self%gExp = gExp
self%natom = size(id, dim=1)
call setupIndexTable(self%natom, self%itbl, id, num, nshell)
if (present(num)) then
allocate(self%hardness(size(hardness, dim=1), size(num)))
do ii = 1, size(num)
self%hardness(:, ii) = hardness(:, num(ii))
end do
else
self%hardness = hardness
end if
select case(gav)
case default
call env%error("Unknown averaging function specified", source)
return
case(gamAverage%harmonic)
self%gamAverage => harmonicAverage
case(gamAverage%arithmetic)
self%gamAverage => arithmeticAverage
case(gamAverage%geometric)
self%gamAverage => geometricAverage
end select
call setupBoundaryConditions(self, env, lattice, alpha, tolerance)
end subroutine initKlopmanOhno
subroutine getCoulombMatrix(self, mol, jmat)
!> Instance of the Coulomb evaluator
class(TKlopmanOhno), intent(inout) :: self
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Coulomb matrix
real(wp), intent(out) :: jmat(:, :)
select case(self%boundaryCondition)
case(boundaryCondition%cluster)
call getCoulombMatrixCluster(mol, self%itbl, self%gamAverage, self%gExp, &
& self%hardness, jmat)
case(boundaryCondition%pbc3d)
call getCoulombMatrixPBC3D(self%wsCell, mol%id, self%itbl, self%gamAverage, &
& self%gExp, self%hardness, self%alpha, mol%volume, self%rTrans, &
& self%gTrans(:, 2:), jmat)
end select
end subroutine getCoulombMatrix
subroutine getCoulombMatrixCluster(mol, itbl, gamAverage, gExp, hardness, jmat)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Index table
integer, intent(in) :: itbl(:, :)
!> Averaging function for the hardnesses
procedure(funcAverage) :: gamAverage
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: hardness(:, :)
!> Generalized exponent
real(wp), intent(in) :: gExp
!> Coulomb matrix
real(wp), intent(out) :: jmat(:, :)
integer :: iat, jat, ish, jsh, ii, jj, iid, jid
real(wp) :: r1, rterm, gij
jmat(:, :) = 0.0_wp
!$omp parallel do default(none) shared(mol, itbl, hardness, gExp, jmat) &
!$omp private(iat, jat, ish, jsh, ii, jj, iid, jid, r1, rterm, gij)
do iat = 1, len(mol)
ii = itbl(1, iat)
iid = mol%id(iat)
do jat = 1, iat-1
jj = itbl(1, jat)
jid = mol%id(jat)
r1 = sqrt(sum((mol%xyz(:, jat) - mol%xyz(:, iat))**2))
rterm = 1.0_wp/r1
do ish = 1, itbl(2, iat)
do jsh = 1, itbl(2, jat)
gij = gamAverage(hardness(ish, iid), hardness(jsh, jid))
rterm = 1.0_wp/(r1**gExp + gij**(-gExp))**(1.0_wp/gExp)
jmat(jj+jsh, ii+ish) = rterm
jmat(ii+ish, jj+jsh) = rterm
end do
end do
end do
do ish = 1, itbl(2, iat)
do jsh = 1, ish-1
gij = gamAverage(hardness(ish, iid), hardness(jsh, iid))
jmat(ii+jsh, ii+ish) = gij
jmat(ii+ish, ii+jsh) = gij
end do
jmat(ii+ish, ii+ish) = hardness(ish, iid)
end do
end do
!$omp end parallel do
end subroutine getCoulombMatrixCluster
subroutine getCoulombMatrixPBC3D(wsCell, id, itbl, gamAverage, gExp, hardness, &
& alpha, volume, rTrans, gTrans, jmat)
!> Wigner-Seitz cell
type(TWignerSeitzCell), intent(in) :: wsCell
!> Identity
integer, intent(in) :: id(:)
!> Index table
integer, intent(in) :: itbl(:, :)
!> Averaging function for the hardnesses
procedure(funcAverage) :: gamAverage
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: hardness(:, :)
!> Generalized exponent
real(wp), intent(in) :: gExp
!> Cell volume
real(wp), intent(in) :: volume
!> Convergence factor
real(wp), intent(in) :: alpha
!> Real space lattice translations
real(wp), intent(in) :: rTrans(:, :)
!> Reciprocal space lattice translations
real(wp), intent(in) :: gTrans(:, :)
!> Coulomb matrix
real(wp), intent(out) :: jmat(:, :)
integer :: iat, ineigh, img, jat, ish, jsh, ii, jj, iid, jid
real(wp) :: vec(3), rterm, gterm, weight, gij
real(wp), parameter :: zero(3) = 0.0_wp
jmat(:, :) = 0.0_wp
!$omp parallel do default(none) reduction(+:jmat) &
!$omp shared(wsCell, id, itbl, alpha, volume, gTrans, rTrans, hardness, gExp) &
!$omp private(iat, ineigh, img, jat, ish, jsh, ii, jj, iid, jid, rterm, &
!$omp& gterm, vec, weight, gij)
do iat = 1, size(wsCell%neighs)
ii = itbl(1, iat)
iid = id(iat)
do ineigh = 1, wsCell%neighs(iat)
img = wsCell%ineigh(ineigh, iat)
jat = wsCell%image(img)
jj = itbl(1, jat)
jid = id(jat)
weight = wsCell%weight(ineigh, iat)
vec(:) = wsCell%coords(:, img) - wsCell%coords(:, iat)
gterm = ewaldMatPBC3D(vec, gTrans, 0.0_wp, volume, alpha, weight) &
& - pi / (volume * alpha**2) * weight
if (iat /= jat) then
do ish = 1, itbl(2, iat)
do jsh = 1, itbl(2, jat)
gij = gamAverage(hardness(ish, iid), hardness(jsh, jid))
rterm = gterm + getRTerm(vec, gij, gExp, rTrans, alpha, weight)
jmat(jj+jsh, ii+ish) = jmat(jj+jsh, ii+ish) + rterm
jmat(ii+ish, jj+jsh) = jmat(ii+ish, jj+jsh) + rterm
end do
end do
else
do ish = 1, itbl(2, iat)
do jsh = 1, ish-1
gij = gamAverage(hardness(ish, iid), hardness(jsh, iid))
rterm = gterm + getRTerm(vec, gij, gExp, rTrans, alpha, weight)
jmat(ii+jsh, ii+ish) = jmat(ii+jsh, ii+ish) + rterm
jmat(ii+ish, ii+jsh) = jmat(ii+ish, ii+jsh) + rterm
end do
gij = hardness(ish, iid)
rterm = gterm + getRTerm(vec, gij, gExp, rTrans, alpha, weight)
jmat(ii+ish, ii+ish) = jmat(ii+ish, ii+ish) + rterm
end do
end if
end do
do ish = 1, itbl(2, iat)
do jsh = 1, ish-1
gij = gamAverage(hardness(ish, iid), hardness(jsh, iid))
jmat(ii+jsh, ii+ish) = jmat(ii+jsh, ii+ish) + gij
jmat(ii+ish, ii+jsh) = jmat(ii+ish, ii+jsh) + gij
end do
gij = hardness(ish, iid)
jmat(ii+ish, ii+ish) = jmat(ii+ish, ii+ish) + gij
end do
end do
!$omp end parallel do
end subroutine getCoulombMatrixPBC3D
pure function getRTerm(vec, gam, gExp, rTrans, alpha, scale) result(rTerm)
real(wp),intent(in) :: vec(3)
real(wp),intent(in) :: gam
real(wp),intent(in) :: gExp
real(wp),intent(in) :: rTrans(:,:)
real(wp),intent(in) :: alpha
real(wp),intent(in) :: scale
real(wp) :: rTerm
real(wp),parameter :: eps = 1.0e-9_wp
integer :: itr
real(wp) :: r1, rij(3)
rTerm = 0.0_wp
do itr = 1, size(rTrans, dim=2)
rij = vec + rTrans(:, itr)
r1 = sqrt(sum(rij**2))
! self-interaction correction
if(r1 < eps) then
rTerm = rTerm - 2.0_wp*alpha/sqrtpi
else
rterm = rTerm + 1.0_wp/(r1**gExp + gam**(-gExp))**(1.0_wp/gExp) &
& - erf(alpha*r1)/r1
end if
end do
rTerm = rTerm * scale
end function getRTerm
subroutine getCoulombDerivs(self, mol, qvec, djdr, djdtr, djdL)
!> Instance of the Coulomb evaluator
class(TKlopmanOhno), intent(inout) :: self
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Charges
real(wp), intent(in) :: qvec(:)
!> Derivative of Coulomb matrix w.r.t. Cartesian coordinates
real(wp), intent(out) :: djdr(:, :, :)
!> Trace derivative of Coulomb matrix
real(wp), intent(out) :: djdtr(:, :)
!> Derivative of Coulomb matrix w.r.t. strain deformations
real(wp), intent(out) :: djdL(:, :, :)
select case(self%boundaryCondition)
case(boundaryCondition%cluster)
call getCoulombDerivsCluster(mol, self%itbl, self%gamAverage, self%gExp, &
& self%hardness, qvec, djdr, djdtr, djdL)
case(boundaryCondition%pbc3d)
call getCoulombDerivsPBC3D(self%wsCell, mol%id, self%itbl, &
& self%gamAverage, self%gExp, self%hardness, self%alpha, mol%volume, &
& self%rTrans, self%gTrans(:, 2:), qvec, djdr, djdtr, djdL)
end select
end subroutine getCoulombDerivs
subroutine getCoulombDerivsCluster(mol, itbl, gamAverage, gExp, hardness, &
& qvec, djdr, djdtr, djdL)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Index table
integer, intent(in) :: itbl(:, :)
!> Averaging function for the hardnesses
procedure(funcAverage) :: gamAverage
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: hardness(:, :)
!> Generalized exponent
real(wp), intent(in) :: gExp
!> Charges
real(wp), intent(in) :: qvec(:)
!> Derivative of Coulomb matrix w.r.t. Cartesian coordinates
real(wp), intent(out) :: djdr(:, :, :)
!> Trace derivative of Coulomb matrix
real(wp), intent(out) :: djdtr(:, :)
!> Derivative of Coulomb matrix w.r.t. strain deformations
real(wp), intent(out) :: djdL(:, :, :)
integer :: iat, jat, ish, jsh, ii, jj, iid, jid
real(wp) :: r1, g1, gij, vec(3), dG(3), dS(3, 3)
djdr(:, :, :) = 0.0_wp
djdtr(:, :) = 0.0_wp
djdL(:, :, :) = 0.0_wp
!$omp parallel do default(none) reduction(+:djdr, djdtr, djdL) &
!$omp shared(mol, itbl, qvec, gExp, hardness) &
!$omp private(iat, jat, ish, jsh, ii, jj, iid, jid, r1, g1, gij, vec, dG, dS)
do iat = 1, len(mol)
ii = itbl(1, iat)
iid = mol%id(iat)
do jat = 1, iat-1
jj = itbl(1, jat)
jid = mol%id(jat)
vec(:) = mol%xyz(:, jat) - mol%xyz(:, iat)
r1 = sqrt(sum(vec**2))
do ish = 1, itbl(2, iat)
do jsh = 1, itbl(2, jat)
gij = gamAverage(hardness(ish, iid), hardness(jsh, jid))
g1 = 1.0_wp / (r1**gExp + gij**(-gExp))
dG(:) = -vec*r1**(gExp-2.0_wp) * g1 * g1**(1.0_wp/gExp)
dS(:, :) = 0.5_wp * spread(dG, 1, 3) * spread(vec, 2, 3)
djdr(:, iat, jj+jsh) = djdr(:, iat, jj+jsh) - dG*qvec(ii+ish)
djdr(:, jat, ii+ish) = djdr(:, jat, ii+ish) + dG*qvec(jj+jsh)
djdtr(:, jj+jsh) = djdtr(:, jj+jsh) + dG*qvec(ii+ish)
djdtr(:, ii+ish) = djdtr(:, ii+ish) - dG*qvec(jj+jsh)
djdL(:, :, jj+jsh) = djdL(:, :, jj+jsh) + dS*qvec(ii+ish)
djdL(:, :, ii+ish) = djdL(:, :, ii+ish) + dS*qvec(jj+jsh)
end do
end do
end do
end do
!$omp end parallel do
end subroutine getCoulombDerivsCluster
subroutine getCoulombDerivsPBC3D(wsCell, id, itbl, gamAverage, gExp, hardness, &
& alpha, volume, rTrans, gTrans, qvec, djdr, djdtr, djdL)
!> Wigner-Seitz cell
type(TWignerSeitzCell), intent(in) :: wsCell
!> Identity
integer, intent(in) :: id(:)
!> Averaging function for the hardnesses
procedure(funcAverage) :: gamAverage
!> Shell/Atomic hardnesses for each species
real(wp), intent(in) :: hardness(:, :)
!> Generalized exponent
real(wp), intent(in) :: gExp
!> Cell volume
real(wp), intent(in) :: volume
!> Convergence factor
real(wp), intent(in) :: alpha
!> Real space lattice translations
real(wp), intent(in) :: rTrans(:, :)
!> Reciprocal space lattice translations
real(wp), intent(in) :: gTrans(:, :)
!> Index table
integer, intent(in) :: itbl(:, :)
!> Charges
real(wp), intent(in) :: qvec(:)
!> Derivative of Coulomb matrix w.r.t. Cartesian coordinates
real(wp), intent(out) :: djdr(:, :, :)
!> Trace derivative of Coulomb matrix
real(wp), intent(out) :: djdtr(:, :)
!> Derivative of Coulomb matrix w.r.t. strain deformations
real(wp), intent(out) :: djdL(:, :, :)
integer :: iat, jat, ish, jsh, ii, jj, ineigh, img, iid, jid
real(wp) :: weight, gij, vec(3), dG(3), dS(3, 3), dGg(3), dGr(3), dSg(3, 3)
real(wp) :: dSr(3, 3)
real(wp), parameter :: unity(3, 3) = reshape(&
& [1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp], &
& [3, 3])
djdr(:, :, :) = 0.0_wp
djdtr(:, :) = 0.0_wp
djdL(:, :, :) = 0.0_wp
dGr = 0.0_wp
dSr = 0.0_wp
!$omp parallel do default(none) reduction(+:djdr, djdtr, djdL) &
!$omp shared(wsCell, id, itbl, hardness, gExp, qvec, alpha, volume, gTrans, &
!$omp& rTrans) &
!$omp private(iat, ineigh, img, jat, ish, jsh, ii, jj, iid, jid, vec, weight, &
!$omp& gij, dG, dS, dGg, dGr, dSg, dSr)
do iat = 1, size(wsCell%neighs)
ii = itbl(1, iat)
iid = id(iat)
do ineigh = 1, wsCell%neighs(iat)
img = wsCell%ineigh(ineigh, iat)
jat = wsCell%image(img)
jj = itbl(1, jat)
jid = id(jat)
weight = wsCell%weight(ineigh, iat)
vec(:) = wsCell%coords(:, img) - wsCell%coords(:, iat)
call ewaldDerivPBC3D(vec, gTrans, 0.0_wp, volume, alpha, weight, dGg, dSg)
if (iat /= jat) then
do ish = 1, itbl(2, iat)
do jsh = 1, itbl(2, jat)
gij = gamAverage(hardness(ish, iid), hardness(jsh, jid))
call getRDeriv(vec, gij, gExp, rTrans, alpha, weight, dGr, dSr)
dG(:) = dGg + dGr
dS(:, :) = dSg + dSr + pi / (volume * alpha**2) * weight * unity
djdr(:, iat, jj+jsh) = djdr(:, iat, jj+jsh) - dG*qvec(ii+ish)
djdr(:, jat, ii+ish) = djdr(:, jat, ii+ish) + dG*qvec(jj+jsh)
djdtr(:, jj+jsh) = djdtr(:, jj+jsh) + dG*qvec(ii+ish)
djdtr(:, ii+ish) = djdtr(:, ii+ish) - dG*qvec(jj+jsh)
djdL(:, :, jj+jsh) = djdL(:, :, jj+jsh) + dS*qvec(ii+ish)
djdL(:, :, ii+ish) = djdL(:, :, ii+ish) + dS*qvec(jj+jsh)
end do
end do
else
do ish = 1, itbl(2, iat)
do jsh = 1, ish-1
gij = gamAverage(hardness(ish, iid), hardness(jsh, iid))
call getRDeriv(vec, gij, gExp, rTrans, alpha, weight, dGr, dSr)
dS(:, :) = dSg + dSr + pi / (volume * alpha**2) * weight * unity
djdL(:, :, ii+jsh) = djdL(:, :, ii+jsh) + dS*qvec(ii+ish)
djdL(:, :, ii+ish) = djdL(:, :, ii+ish) + dS*qvec(ii+jsh)
end do
gij = hardness(ish, iid)
call getRDeriv(vec, gij, gExp, rTrans, alpha, weight, dGr, dSr)
dS(:, :) = dSg + dSr + pi / (volume * alpha**2) * weight * unity
djdL(:, :, ii+ish) = djdL(:, :, ii+ish) + dS*qvec(ii+ish)
end do
end if
end do
end do
!$omp end parallel do
end subroutine getCoulombDerivsPBC3D
pure subroutine getRDeriv(vec, gij, gExp, rTrans, alpha, scale, dG, dS)
real(wp), intent(in) :: vec(:)
real(wp), intent(in) :: gij
real(wp), intent(in) :: gExp
real(wp), intent(in) :: rTrans(:,:)
real(wp), intent(in) :: alpha
real(wp), intent(in) :: scale
real(wp), intent(out) :: dG(:)
real(wp), intent(out) :: dS(:,:)
real(wp), parameter :: eps = 1.0e-9_wp
integer :: itr
real(wp) :: r1, g1, rij(3), arg, dd
real(wp), parameter :: unity(3, 3) = reshape(&
& [1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp], &
& [3, 3])
dG = 0.0_wp
dS = 0.0_wp
do itr = 1, size(rTrans, dim=2)
! real contributions
rij = vec + rTrans(:, itr)
r1 = sqrt(sum(rij**2))
if (r1 < eps) cycle
arg = alpha**2*r1**2
g1 = 1.0_wp / (r1**gExp + gij**(-gExp))
dd = -r1**(gExp-2.0_wp) * g1 * g1**(1.0_wp/gExp) &
& - 2*alpha*exp(-arg)/(sqrtpi*r1**2) + erf(alpha*r1)/(r1**3)
dG = dG + rij*dd
dS = dS + 0.5_wp * dd*spread(rij, 1, 3)*spread(rij, 2, 3)
enddo
dG = dG * scale
dS = dS * scale
end subroutine getRDeriv
!> Harmonic averaging functions for hardnesses in GFN1-xTB
pure function harmonicAverage(gi, gj) result(gam)
!> Hardness of shell i
real(wp), intent(in) :: gi
!> Hardness of shell j
real(wp), intent(in) :: gj
!> Averaged hardness
real(wp) :: gam
gam = 2.0_wp/(1.0_wp/gi+1.0_wp/gj)
end function harmonicAverage
!> Arithmetic averaging functions for hardnesses in GFN2-xTB
pure function arithmeticAverage(gi, gj) result(gam)
!> Hardness of shell i
real(wp), intent(in) :: gi
!> Hardness of shell j
real(wp), intent(in) :: gj
!> Averaged hardness
real(wp) :: gam
gam = 0.5_wp*(gi+gj)
end function arithmeticAverage
!> Geometric averaging functions for hardnesses
pure function geometricAverage(gi, gj) result(gam)
!> Hardness of shell i
real(wp), intent(in) :: gi
!> Hardness of shell j
real(wp), intent(in) :: gj
!> Averaged hardness
real(wp) :: gam
gam = sqrt(gi*gj)
end function geometricAverage
end module xtb_coulomb_klopmanohno
xtb-6.7.1/src/coulomb/meson.build 0000664 0000000 0000000 00000001410 14650006642 0016712 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
srcs += files(
'ewald.f90',
'gaussian.f90',
'klopmanohno.f90',
)
xtb-6.7.1/src/cqpath.f90 0000664 0000000 0000000 00000043770 14650006642 0014727 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_cqpath
contains
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Repositionierung entlang des Reaktionspfads
!
! Methoden:
! m_repos
! 1 - symmetrische Verteilung
! 2 - unsymmetrische Verteilung, höhere Dichte am pot. TS punkten
! m_spline
! 1 - cubischer spline
! 2 - gedämpfter cubischer spline (constrained cubic spline)
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
subroutine cqpath_spline_repos(nat,sn,m_repos,m_spline,xyz,e,g)
implicit none
integer nat,sn,m_repos,m_spline
real*8 xyz(3,nat,sn)
real*8 e(sn)
real*8 g(sn)
integer :: i,j,k,l
real(8), allocatable, dimension(:) :: strecke_X
real(8), allocatable, dimension(:) :: strecke_N
real(8), allocatable, dimension(:,:) :: sp_atom
real(8), allocatable, dimension(:) :: xyz_0,xyz_1,xyz_diff
real(8), allocatable, dimension(:) :: x,y,x2,y2
real(8) :: strecke_X_inc, temp_strecke_X
allocate (strecke_X(sn))
allocate (strecke_N(sn))
allocate (sp_atom(3,sn))
allocate (xyz_0(3))
allocate (xyz_1(3))
allocate (xyz_diff(3))
allocate (x(sn))
allocate (y(sn))
allocate (x2(sn))
allocate (y2(sn))
! print *,'cqpath_spline_repos'
! print *,'repos : ',m_repos
! print *,'spline : ',m_spline
! loop über alle atome um ein array der punte eines atoms entlang des pfads zu bekommen
do i=1,nat
! loop über den pfad
do j=1,sn
sp_atom(1,j) = xyz(1,i,j)
sp_atom(2,j) = xyz(2,i,j)
sp_atom(3,j) = xyz(3,i,j)
end do
! X-Achse für den Spline generieren = Strecke
xyz_0(1) = sp_atom(1,1)
xyz_0(2) = sp_atom(2,1)
xyz_0(3) = sp_atom(3,1)
strecke_X(1) = 0.0
do j=2,sn
xyz_1(1) = sp_atom(1,j)
xyz_1(2) = sp_atom(2,j)
xyz_1(3) = sp_atom(3,j)
xyz_diff = xyz_1 - xyz_0
xyz_0 = xyz_1
strecke_X(j) = strecke_X(j-1) + sqrt(sum(xyz_diff**2))
end do
! Für x,y,z in abh. von strecke_X einen cube Spline machen
do k=1,3
! X = strecke_X , Y = [x|y|z]
do l=1,sn
x(l) = strecke_X(l)
y(l) = sp_atom(k,l)
end do
! Repositionieren auf x
call cqpath_repos(sn,m_repos,x,e,g,x2)
! y2-Werte auf dem spline an den repositionierten Punkten x2 bestimmen.
if (m_spline == 1) then
call cqpath_cube_spline(sn,x,y,x2,y2)
end if
if (m_spline == 2) then
call cqpath_damped_cube_spline(sn,x,y,x2,y2)
end if
do l=1,sn
sp_atom(k,l) = y2(l)
end do
end do
! Neuen Punkte übertragen
do j=2,sn-1
xyz(1,i,j) = sp_atom(1,j)
xyz(2,i,j) = sp_atom(2,j)
xyz(3,i,j) = sp_atom(3,j)
end do
end do
deallocate (strecke_X)
deallocate (strecke_N)
deallocate (sp_atom)
deallocate (xyz_0)
deallocate (xyz_1)
deallocate (xyz_diff)
deallocate (x)
deallocate (y)
deallocate (x2)
deallocate (y2)
end
!!!!!!!!!!!!!! REPOSITIONIERUNG AUF DEM PFAD !!!!!!!!!!!!!!!!
subroutine cqpath_repos(n,m_repos,x,e,g,x2)
! in n - dimension von array x,y
! x - array x
! e - energien entlang des pfades
! g - gradienten entlang des pfades
! out x2 - symmetrisch Punkte aus array x
!
! Methoden:
! m_repos
! 1 - symmetrische Verteilung
! 2 - unsymmetrische Verteilung, höhere Dichte am pot. TS punkten
!
!
!
implicit none
integer, intent(in) :: n
integer, intent(in) :: m_repos
real(8), intent(in) :: x(n)
real(8), intent(in) :: e(n)
real(8), intent(in) :: g(n)
real(8), intent(out) :: x2(n)
real(8), allocatable :: e2(:)
real(8) x_wert, x_anfang, x_ende, x_schritt
real(8) emin,e2sum,temp_wert
integer :: i
! Symmetrisch verteilen
! dx(i) = strecke/punkte
if (m_repos == 1) then
x_anfang = x(1)
x_ende = x(n)
x_schritt = (x_ende-x_anfang)/(REAL(n,8)-1.0)
x_wert = x_anfang
x2(1) = x_anfang
do i=2,n-1
x_wert = x_wert + x_schritt
x2(i) = x_wert
end do
x2(n) = x_ende
end if
! Asymmetrisch verteilen, in Abh. von e
! 1. e -> e' = -1.0*e ! umkehren
! 2. e' -> e'' = e' - e_min * 0.99 ! verschieben damit e_ts nicht = 0 ergibt
! 3. dx(i) = e''(i)/e''_summe ! normieren
if (m_repos == 2) then
allocate(e2(n))
x_anfang = x(1)
x_ende = x(n)
x2(1) = x_anfang
x2(n) = x_ende
x_schritt = x_ende-x_anfang
emin = minval(e)*0.99
do i=1,n
e2(i) = (-1.0)*e(i)-emin
end do
e2sum = sum(e2)
do i=1,n
e2(i) = e2(i)/e2sum
end do
do i=2,n-1
! x2(i) = x_anfang+x_schritt*e2(i)
x_wert = x_wert + x_schritt*e2(i)
x2(i) = x_wert
end do
deallocate(e2)
end if
! Asymmetrisch verteilen, in Abh. von e
! 1. e -> e' = e*e ! umkehren
! 2. e' -> e'' = e' - e_min * 0.99 ! verschieben damit e_ts nicht = 0 ergibt
! 3. dx(i) = e''(i)/e''_summe ! normieren
if (m_repos == 3) then
allocate(e2(n))
x_anfang = x(1)
x_ende = x(n)
x2(1) = x_anfang
x2(n) = x_ende
x_schritt = x_ende-x_anfang
emin = minval(e)*0.99
do i=1,n
e2(i) = e(i)*e(i)-emin
end do
e2sum = sum(e2)
do i=1,n
e2(i) = e2(i)/e2sum
end do
do i=2,n-1
! x2(i) = x_anfang+x_schritt*e2(i)
x_wert = x_wert + x_schritt*e2(i)
x2(i) = x_wert
end do
deallocate(e2)
end if
! Asymmetrisch verteilen, in Abh. von e
! 1. e -> e' = -1.0*e ! umkehren
! 2. e' -> e'' = (e' - e_min * 0.99)**2 ! verschieben damit e_ts nicht = 0 ergibt
! 3. dx(i) = e''(i)/e''_summe ! normieren
if (m_repos == 4) then
allocate(e2(n))
x_anfang = x(1)
x_ende = x(n)
x2(1) = x_anfang
x2(n) = x_ende
x_schritt = x_ende-x_anfang
emin = minval(e)*0.99
do i=1,n
temp_wert = (-1.0)*e(i)-emin
e2(i) = temp_wert*temp_wert
end do
e2sum = sum(e2)
do i=1,n
e2(i) = e2(i)/e2sum
end do
do i=2,n-1
! x2(i) = x_anfang+x_schritt*e2(i)
x_wert = x_wert + x_schritt*e2(i)
x2(i) = x_wert
end do
deallocate(e2)
end if
end
!!!!!!!!!!!!!! Y-Werte entlang der Repositionierung !!!!!!!!!!!!!!!!!!!!
subroutine cqpath_cube_spline(n,x,y,x2,y2)
! in n - dimension von array x,y
! x - array x
! y - array y
! out x2 - symmetrisch Punkte aus array xx (eigentlich überflüssig)
! y2 - symmetrische Punkte aus array yy
implicit none
integer, intent(in) :: n
real(8), intent(in) :: x(n),y(n),x2(n)
real(8), intent(out) :: y2(n)
real(8), dimension(:), allocatable :: ypp
real(8) y_wert, y_wert_ypval, y_wert_yppval
integer :: i
allocate (ypp(n))
call spline_cubic_set ( n, x, y, 0, 0.0d0, 0, 0.0d0, ypp )
y2(1) = y(1)
do i=2,n-1
call spline_cubic_val ( n, x, y, ypp, x2(i), y_wert, y_wert_ypval, y_wert_yppval )
y2(i) = y_wert
end do
y2(n) = y(n)
deallocate (ypp)
return
end
subroutine cqpath_damped_cube_spline(n,x,y,x2,y2)
! in n - dimension von array x,y
! x - array x
! y - array y
! out x2 - symmetrisch Punkte aus array xx (eigentlich überflüssig)
! y2 - symmetrische Punkte aus array yy
implicit none
integer, intent(in) :: n
real(8), intent(in) :: x(n),y(n),x2(n)
real(8), intent(out) :: y2(n)
real(8), dimension(:,:), allocatable :: abcd
real(8) y_wert
integer :: i
allocate (abcd(n,4))
call cqpath_damped_cube_spline_set(n,x,y,abcd)
y2(1) = y(1)
do i=2,n-1
call cqpath_damped_cube_spline_val(n,abcd,x,x2(i),y_wert)
y2(i) = y_wert
end do
y2(n) = y(n)
deallocate (abcd)
return
end
!!!!!!!!!!!!!!!!!!! SPLINE FUNKTIONEN !!!!!!!!!!!!!!!!!!!!!!!!
subroutine cqpath_damped_cube_spline_set(n,x,y,abcd)
! in n - dimension von array x,y
! x - array x
! y - array y
! out abcd - array of polynom coefficients
!
! Based on Constrained Cubic Spline Interpolation for Chemical Engineering Application
! by CJC Kruger
!
! Rewritten and optimized in fortran
implicit none
integer, intent(in) :: n
real(8), intent(in) :: x(n)
real(8), intent(in) :: y(n)
real(8), intent(out) :: abcd(n,4)
real(8) fs_x0,fs_x1,fss_x0,fss_x1
real(8) x0,x1,x2,y0,y1,y2
real(8) x1_x0,y1_y0,x0_2,x0_3,x1_x0_2,x1_2
real(8) steigung
real(8), dimension(:), allocatable :: dx,dy,f1
integer :: i,j,nf
nf = n-1
allocate (dx(nf))
allocate (dy(nf))
allocate (f1(n))
do i=1,nf
dx(i) = x(i+1)-x(i)
dy(i) = y(i+1)-y(i)
end do
do i=2,nf
steigung = dy(i-1)*dy(i)
if (steigung > 0.0) then
f1(i) = 2.0/(dx(i)/dy(i)+dx(i-1)/dy(i-1))
else if (steigung <= 0.0) then
f1(i) = 0.0
end if
end do
f1(1) = 3.0*dy(1)/(2.0*dx(1)) - f1(2)/2.0
f1(n) = 3.0*dy(n-1)/(2.0*dx(n-1)) - f1(n-1)/2.0
do i=2,n
x1_x0 = dx(i-1)
y1_y0 = dy(i-1)
x0_2 = x(i-1)*x(i-1)
x0_3 = x0_2*x(i-1)
x1_x0_2 = x1_x0*x1_x0
x1_2 = x(i)*x(i)
fss_x0 = -2.0*(f1(i) + 2.0*f1(i-1))/(x1_x0)+6.0*(y1_y0)/x1_x0_2
fss_x1 = 2.0*(2.0*f1(i) + f1(i-1))/(x1_x0)-6.0*(y1_y0)/x1_x0_2
abcd(i,4) = (fss_x1 - fss_x0)/(6.0*(x1_x0))
abcd(i,3) = (x(i)*fss_x0-x(i-1)*fss_x1)/(2.0*x1_x0)
abcd(i,2) = ((y1_y0)-abcd(i,3)*(x1_2-x0_2)-abcd(i,4)*(x1_2*x(i)-x0_3))/(x1_x0)
abcd(i,1) = y(i-1) - abcd(i,2)*x(i-1) - abcd(i,3) * x0_2 - abcd(i,4) * x0_3
end do
deallocate(dx)
deallocate(dy)
deallocate(f1)
return
end
subroutine cqpath_damped_cube_spline_val(n,abcd,x,x1,y1)
! in n - dimension von array x,y
! abcd - array of polynom coefficients
! x - x
! out y - f(x,abcd)
!
! Based on Constrained Cubic Spline Interpolation for Chemical Engineering Application
! by CJC Kruger
!
! Rewritten and optimized in fortran
integer, intent(in) :: n
real(8), intent(in) :: abcd(n,4)
real(8), intent(in) :: x(n)
real(8), intent(in) :: x1
real(8), intent(out) :: y1
integer :: j
real(8) :: xx
do j=2,n
if (x1 < x(j)) then
if (x1 >= x(j-1)) then
xx = x1*x1
y1 = abcd(j,1)+abcd(j,2)*x1+abcd(j,3)*xx+abcd(j,4)*xx*x1
end if
end if
end do
return
end
subroutine cqpath_interpolate_nm(k,von,bis,nat,nstr,file_xyz,pn,xyz)
! Generierung der Strukturen zwischen Start und Zielstruktur
! Linerare interpolation
implicit none
integer, intent(in) :: k,von,bis
integer, intent(in) :: nat,nstr,pn
real(8), dimension(:,:,:), intent(in) :: file_xyz(3,nat,nstr)
real(8), dimension(:,:,:), intent(inout) :: xyz(3,nat,pn)
real(8), allocatable, dimension(:,:) :: xyz_diff,xyz_temp,xyz_start,xyz_ziel
integer :: i,j
allocate (xyz_diff(3,nat))
allocate (xyz_temp(3,nat))
allocate (xyz_start(3,nat))
allocate (xyz_ziel(3,nat))
do j=1,nat
xyz_start(1,j) = file_xyz(1,j,k-1)
xyz_start(2,j) = file_xyz(2,j,k-1)
xyz_start(3,j) = file_xyz(3,j,k-1)
xyz_ziel(1,j) = file_xyz(1,j,k)
xyz_ziel(2,j) = file_xyz(2,j,k)
xyz_ziel(3,j) = file_xyz(3,j,k)
end do
xyz_diff = xyz_ziel - xyz_start
xyz_diff = xyz_diff / (bis-von)
xyz_temp = xyz_start
do j=1,nat
xyz(1,j,von) = xyz_start(1,j)
xyz(2,j,von) = xyz_start(2,j)
xyz(3,j,von) = xyz_start(3,j)
end do
do i=von+1,bis-1
xyz_temp = xyz_temp + xyz_diff
do j=1,nat
xyz(1,j,i) = xyz_temp(1,j)
xyz(2,j,i) = xyz_temp(2,j)
xyz(3,j,i) = xyz_temp(3,j)
end do
end do
do j=1,nat
xyz(1,j,bis) = xyz_ziel(1,j)
xyz(2,j,bis) = xyz_ziel(2,j)
xyz(3,j,bis) = xyz_ziel(3,j)
end do
deallocate (xyz_diff)
deallocate (xyz_temp)
deallocate (xyz_start)
deallocate (xyz_ziel)
end
subroutine cqpath_read_pathfile_parameter(fn,nl,nat,nstr)
implicit none
character*20, intent(in) :: fn
integer, intent(out) :: nl,nat,nstr
integer :: u
integer :: i,so,sr
character*100 :: a
character*20 :: fn2
real(8) :: b,c,d
fn2 = TRIM(adjustl(fn))
! print *,'#',TRIM(fn2),'#'
call open_file(u,trim(fn2),'r')
if (u.eq.-1) return
read (u,*,iostat=sr) nat
i = 1
do
read (u,fmt='(A)',iostat=sr) a
if (sr<0) exit
if (sr>0) stop 'error in cqpath_read_pathfile_parameter'
i = i + 1
end do
nl = i
nstr = nl/(nat+2)
call close_file (u)
return
end
subroutine cqpath_read_pathfile(fn,nl,nat,nstr,file_xyz,iat,energy)
implicit none
character*20, intent(in) :: fn
integer, intent(in) :: nat,nl,nstr
real(8), dimension(:,:,:), intent(inout) :: file_xyz(3,nat,nstr)
real(8), dimension(:,:,:), intent(inout) :: energy(nstr)
integer, dimension(:), intent(out) :: iat(nat)
integer :: u
integer :: i,j,k,sr,so,x,nn
real*8 :: xx(10)
character*100 :: a
character*2 :: b
character*20 :: fn2
fn2 = TRIM(adjustl(fn))
! print *,'*',TRIM(fn2),'*',nl,nat,nstr
call open_file(u,TRIM(fn2),'r')
if (u.eq.-1) return
read (u,*,iostat=sr) x
read (u,fmt='(A)',iostat=sr) a
call readl(a,xx,nn)
k=1
energy(k)=xx(1)
do j=1,nat
read (u,*) b,file_xyz(1,j,k),file_xyz(2,j,k),file_xyz(3,j,k)
iat(j) = cqpathe2i( b )
! print *, iat(j),file_xyz(1,j,k),file_xyz(2,j,k),file_xyz(3,j,k)
end do
do k=2,nstr
read (u,*,iostat=sr) x
read (u,fmt='(A)',iostat=sr) a
call readl(a,xx,nn)
energy(k)=xx(1)
do j=1,nat
read (u,*) b,file_xyz(1,j,k),file_xyz(2,j,k),file_xyz(3,j,k)
! print *, iat(j),file_xyz(1,j,k),file_xyz(2,j,k),file_xyz(3,j,k)
end do
end do
call close_file (u)
return
end
character(2) function cqpathtohigher( s )
! wandelt Kleinbuchstaben in Großbuchstaben um
implicit none
character(2), intent(in) :: s
character(2) :: sout
integer :: ic, i
character(26), Parameter :: high = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
character(26), Parameter :: low = 'abcdefghijklmnopqrstuvwxyz'
sout = s
do i = 1, LEN_TRIM(s)
ic = INDEX(low, s(i:i))
if (ic > 0) sout(i:i) = high(ic:ic)
end do
cqpathtohigher = sout
end function cqpathtohigher
integer function cqpathe2i( cin )
! wandelt eine Zeichenkette in iat um
implicit none
character(2), intent(in) :: cin
character(2) :: c
integer :: iout
c = cqpathtohigher(cin)
if (c == 'H') iout = 1
if (c == 'HE') iout = 2
if (c == 'LI') iout = 3
if (c == 'BE') iout = 4
if (c == 'B') iout = 5
if (c == 'C') iout = 6
if (c == 'N') iout = 7
if (c == 'O') iout = 8
if (c == 'F') iout = 9
if (c == 'NE') iout = 10
if (c == 'NA') iout = 11
if (c == 'MG') iout = 12
if (c == 'AL') iout = 13
if (c == 'SI') iout = 14
if (c == 'P') iout = 15
if (c == 'S') iout = 16
if (c == 'CL') iout = 17
if (c == 'AR') iout = 18
if (c == 'K') iout = 19
if (c == 'CA') iout = 20
if (c == 'SC') iout = 21
if (c == 'TI') iout = 22
if (c == 'V') iout = 23
if (c == 'CR') iout = 24
if (c == 'MN') iout = 25
if (c == 'FE') iout = 26
if (c == 'CO') iout = 27
if (c == 'NI') iout = 28
if (c == 'CU') iout = 29
if (c == 'ZN') iout = 30
if (c == 'GA') iout = 31
if (c == 'GE') iout = 32
if (c == 'AS') iout = 33
if (c == 'SE') iout = 34
if (c == 'BR') iout = 35
if (c == 'KR') iout = 36
if (c == 'RB') iout = 37
if (c == 'SR') iout = 38
if (c == 'Y') iout = 39
if (c == 'ZR') iout = 40
if (c == 'NB') iout = 41
if (c == 'MO') iout = 42
if (c == 'TC') iout = 43
if (c == 'RU') iout = 44
if (c == 'RH') iout = 45
if (c == 'PD') iout = 46
if (c == 'AG') iout = 47
if (c == 'CD') iout = 48
if (c == 'IN') iout = 49
if (c == 'SN') iout = 50
if (c == 'SB') iout = 51
if (c == 'TE') iout = 52
if (c == 'I') iout = 53
if (c == 'XE') iout = 54
if (c == 'CS') iout = 55
if (c == 'BA') iout = 56
if (c == 'LA') iout = 57
if (c == 'CE') iout = 58
if (c == 'PR') iout = 59
if (c == 'ND') iout = 60
if (c == 'PM') iout = 61
if (c == 'SM') iout = 62
if (c == 'EU') iout = 63
if (c == 'GD') iout = 64
if (c == 'TB') iout = 65
if (c == 'DY') iout = 66
if (c == 'HO') iout = 67
if (c == 'ER') iout = 68
if (c == 'TM') iout = 69
if (c == 'YB') iout = 70
if (c == 'LU') iout = 71
if (c == 'HF') iout = 72
if (c == 'TA') iout = 73
if (c == 'W') iout = 74
if (c == 'RE') iout = 75
if (c == 'OS') iout = 76
if (c == 'IR') iout = 77
if (c == 'PT') iout = 78
if (c == 'AU') iout = 79
if (c == 'HG') iout = 80
if (c == 'TL') iout = 81
if (c == 'PB') iout = 82
if (c == 'BI') iout = 83
if (c == 'PO') iout = 84
if (c == 'AT') iout = 85
if (c == 'RN') iout = 86
cqpathe2i = iout
return
end function cqpathe2i
end module xtb_cqpath
xtb-6.7.1/src/cube.f90 0000664 0000000 0000000 00000023035 14650006642 0014355 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_cube
contains
!cccccccccccccccccccccccccccccccc
! write out cube file c
!cccccccccccccccccccccccccccccccc
! ncent : # atoms
! nmo : # MOs
! nbf : # AOs
! nprims : # primitives (in total)
! xyz(4,ncent) : Cartesian coordinates & nuclear charge
! cxip(nprims) : contraction coefficients of primitives
! exip(nprims) : exponents of primitives
! cmo(nbf,nmo) : LCAO-MO coefficients
! eval(nmo) : orbital eigenvalues
! occ(nmo) : occupation # of MO
! ipty(nprims) : angular momentum of primitive function
! ipao(nbf) : # primitives in contracted AO
! ibf(ncent) : # of contracted AOs on atom
subroutine cube(n,nmo,nbf,xyz,at,cmo,eval,occ,fname,basis)
use xtb_type_basisset
use xtb_setparam
use xtb_mctc_blas, only : blas_gemm
implicit none
type(TBasisset), intent(in) :: basis
real*8, intent ( in ) :: xyz(3,n)
real*8, intent ( in ) :: eval(nmo)
real*8, intent ( in ) :: occ (nmo)
real*8, intent ( in ) :: cmo(nbf,nmo)
integer, intent( in ) :: at(n)
integer, intent( in ) :: n,nmo,nbf
character*(*) fname
real*8 ,allocatable ::Ptmp (:,:)
real*8 ,allocatable ::P (:,:)
real*8 ,allocatable ::C (:,:)
real*4 ,allocatable ::cb (:,:,:)
real*8 ,allocatable ::array(:)
integer,allocatable ::matlist (:,:)
integer i,j,k,m,nm,ii,jj,iii,jjj,npri,nprj,primstart(nbf),nexp
integer iat,jat,xst,yst,zst,cou,iprimcount,jprimcount,iiii,jjjj
real*8 thr,thr3,intcut,intcut2,boff
real*8 w0,w1,t0,t1,r,r2,val,rab,ccc,gridp(3),xyza(3),xyzb(3),dr3
real*8 step,px,py,pz,xinc,yinc,zinc,nx,ny,nz,vv(1),v,est,nfod
real*8 f1,f2,dx1,dy1,dz1,dx2,dy2,dz2,r1,dum,r1xy,r2xy
real*8 dxx1,dyy1,dzz1,dxx2,dyy2,dzz2,ar1,ar2,cc
integer ifile
call timing(t0,w0)
write(*,*)
write(*,*)'cube file module (SG, 7/16)'
thr = set%cube_pthr ! Dmat pre-screen
step= set%cube_step ! grid step (Bohr)
boff= set%cube_boff ! bound offset
intcut=8.00d0 ! primitive cut
intcut2=2.0d0*intcut
nexp=100*int(intcut2) ! size of exp array ie arguments 0:nexp
allocate(array(0:nexp))
do i=0,nexp
dum=float(i)/100.0
array(i)=exp(-dum)
enddo
! do i=0,160
! dum=float(i)/10.0
! write(*,*) int(10*dum)
! write(*,*) exp(-dum),array(int(10*dum)),fastexp(nexp,array,dum)
! enddo
! stop
allocate(Ptmp(nbf,nbf),P(nbf,nbf),C(nbf,nbf),matlist(2,nbf*(nbf+1)/2))
C(1:nbf,1:nmo) = cmo(1:nbf,1:nmo)
do m=1,nmo
do i=1,nbf
Ptmp(i,m)=cmo(i,m)*occ(m)
enddo
enddo
if(nmo.ne.nbf)then
Ptmp(1:nbf,nmo+1:nbf)=0
C (1:nbf,nmo+1:nbf)=0
endif
call blas_gemm('N','T',nbf,nbf,nbf, 1.0d0,C,nbf,Ptmp,nbf,0.0d0,P,nbf)
deallocate(Ptmp,C)
nm=0
npri=0
do i=1,nbf
primstart(i)=npri ! start index for prims of AO i
npri=npri+basis%nprim(i)
do j=1,i
if(abs(P(j,i)).gt.thr)then
nm=nm+1
matlist(1,nm)=i
matlist(2,nm)=j
if(i.ne.j) P(j,i)=2.0d0*P(j,i)
endif
enddo
enddo
write(*,'('' cube_pthr : '',f7.3)')set%cube_pthr
write(*,'('' cube_step : '',f7.3)')set%cube_step
write(*,'('' cube_boundoffset : '',f7.3)')set%cube_boff
write(*,'('' non-zero P (%): '',f7.3,'' nmat:'',i8)') &
& 100.*float(nm)/float(nbf*(nbf+1)/2),nm
px=maxval(xyz(1,1:n))+boff
py=maxval(xyz(2,1:n))+boff
pz=maxval(xyz(3,1:n))+boff
nx=minval(xyz(1,1:n))-boff
ny=minval(xyz(2,1:n))-boff
nz=minval(xyz(3,1:n))-boff
write(*,*)'Grid Boundaries (x y z) :'
write(*,*)px,py,pz
write(*,*)nx,ny,nz
! calculate step size and number of steps (step size approx 0.2-0.5)
xst=floor(abs(px-nx)/step)
xinc=abs(px-nx)/xst
yst=floor(abs(py-ny)/step)
yinc=abs(py-ny)/yst
zst=floor(abs(pz-nz)/step)
zinc=abs(pz-nz)/zst
write(*,*)'Total # of points', (xst+1)*(yst+1)*(zst+1)
dr3=xinc*yinc*zinc
write(*,*)'writing ',trim(fname)
call open_file(ifile,fname,'w')
write(ifile,*)'xtb spin/fo density'
write(ifile,*)'By S.G.'
write(ifile,101)n,nx,ny,nz
write(ifile,101)xst+1,xinc,0.0,0.0
write(ifile,101)yst+1,0.0,yinc,0.0
write(ifile,101)zst+1,0.0,0.0,zinc
do i=1,n
write(ifile,102)at(i),0.0,xyz(1,i),xyz(2,i),xyz(3,i)
enddo
allocate(cb(0:zst,0:yst,0:xst))
nfod=0
cb =0
! Dmat loop -----------------------------------
do m=1,nm
ii=matlist(1,m)
jj=matlist(2,m)
iat=basis%aoat(ii)
jat=basis%aoat(jj)
xyza(1:3)=xyz(1:3,iat)
xyzb(1:3)=xyz(1:3,jat)
npri=basis%nprim(ii)
nprj=basis%nprim(jj)
iprimcount=primstart(ii)
jprimcount=primstart(jj)
rab=(xyza(1)-xyzb(1))**2 &
& +(xyza(2)-xyzb(2))**2 &
& +(xyza(3)-xyzb(3))**2
! prim loop
do iiii=1,npri
iii=iprimcount+iiii
ccc=P(jj,ii)*basis%cont(iii)
dum=rab*basis%alp(iii)
do jjjj=1,nprj
jjj=jprimcount+jjjj
est=dum*basis%alp(jjj)/(basis%alp(iii)+basis%alp(jjj))
if(est.lt.intcut)then
cc=ccc*basis%cont(jjj)
! grid loops
gridp(1)=nx
do i=0,xst
gridp(1)=nx+(xinc*i)
dx1=xyza(1)-gridp(1)
dx2=xyzb(1)-gridp(1)
dxx1=dx1*dx1
dxx2=dx2*dx2
gridp(2)=ny
do j=0,yst
gridp(2)=ny+(yinc*j)
dy1=xyza(2)-gridp(2)
dy2=xyzb(2)-gridp(2)
dyy1=dy1*dy1
dyy2=dy2*dy2
gridp(3)=nz
r1xy=dxx1+dyy1
r2xy=dxx2+dyy2
do k=0,zst
gridp(3)=nz+(zinc*k)
dz1=xyza(3)-gridp(3)
dz2=xyzb(3)-gridp(3)
dzz1=dz1*dz1
dzz2=dz2*dz2
r1=r1xy+dzz1
! primitive function value
ar1=basis%alp(iii)*r1
if(ar1.lt.intcut2)then ! exp(-16) < 1.d-7 i.e. zero
call primvalf(dx1,dy1,dz1,dxx1,dyy1,dzz1,ar1, &
& basis%lao(ii),nexp,array,f1)
r2=r2xy+dzz2
ar2=basis%alp(jjj)*r2
if(ar2.lt.intcut2)then
call primvalf(dx2,dy2,dz2,dxx2,dyy2,dzz2,ar2, &
& basis%lao(jj),nexp,array,f2)
cb(k,j,i)=cb(k,j,i)+cc*f1*f2
endif
endif
enddo
enddo
enddo
endif
enddo
enddo
enddo
! Dmat loop end -----------------------------------
! write
cou=1
do i=0,xst
do j=0,yst
do k=0,zst
if (cou.lt.6) then
write(ifile,'(E14.8,1X)',advance='no')cb(k,j,i)
cou=cou+1
else
write(ifile,'(E14.8)')cb(k,j,i)
cou=1
endif
nfod=nfod+cb(k,j,i)*dr3
enddo
enddo
enddo
call close_file(ifile)
101 format(I5,3F16.6)
102 format(I5,4F16.6)
write(*,'('' N (numint) : '',f6.3)')nfod
call timing(t1,w1)
call prtime(6,t1-t0,w1-w0,'cube')
end subroutine cube
subroutine primval(dx,dy,dz,dx2,dy2,dz2,alpr2,lao,f)
implicit none
integer lao
real*8 f,dx2,dy2,dz2
real*8 dx,dy,dz,alpr2
goto (100,201,202,203,301,302,303,304,305,306) lao
100 f=exp(-alpr2)
return
201 f=exp(-alpr2)*dx
return
202 f=exp(-alpr2)*dy
return
203 f=exp(-alpr2)*dz
return
301 f=exp(-alpr2)*dx2
return
302 f=exp(-alpr2)*dy2
return
303 f=exp(-alpr2)*dz2
return
304 f=exp(-alpr2)*dx*dy
return
305 f=exp(-alpr2)*dx*dz
return
306 f=exp(-alpr2)*dy*dz
return
end subroutine primval
! routine with exp table lookup
subroutine primvalf(dx,dy,dz,dx2,dy2,dz2,alpr2,lao,nexp,a,f)
implicit none
integer lao,nexp
real*8 a(0:nexp)
real*8 f,dx2,dy2,dz2
real*8 dx,dy,dz,alpr2
goto (100,201,202,203,301,302,303,304,305,306) lao
100 f=fastexp(nexp,a,alpr2)
return
201 f=fastexp(nexp,a,alpr2)*dx
return
202 f=fastexp(nexp,a,alpr2)*dy
return
203 f=fastexp(nexp,a,alpr2)*dz
return
301 f=fastexp(nexp,a,alpr2)*dx2
return
302 f=fastexp(nexp,a,alpr2)*dy2
return
303 f=fastexp(nexp,a,alpr2)*dz2
return
304 f=fastexp(nexp,a,alpr2)*dx*dy
return
305 f=fastexp(nexp,a,alpr2)*dx*dz
return
306 f=fastexp(nexp,a,alpr2)*dy*dz
return
end subroutine primvalf
real*8 function fastexp(nexp,array,arg)
integer nexp
real*8 arg
real*8 array(0:nexp)
fastexp=array(int(100.0d0*arg))
end function fastexp
end module xtb_cube
xtb-6.7.1/src/david.f 0000664 0000000 0000000 00000046434 14650006642 0014365 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
c--------1---------2---------3---------4---------5---------6---------7--
c reference : g. cisneros, m .berrondo, c. f. bunge
c computers and chemistry vol. 4, p 281 (1986)
c for ibm rs6000:
c s. grimme, uni bonn, 9.92
c erweitert auf gleichzeitige behandlung mehrerer wurzeln
c nach einem verfahren von
c b. liu
c numerical algorithms in chemistry:algebraic methods,
c lbl-8158 lawrence berkeley laboratory
c eds.: c. moler and i. shavitt
c b. engels, uni bonn, 12.93
c direct version and several modifications s.grimme, 6.2.99
c new general (BLAS) version SG, 12/18
c note: the current version only works for the LOWEST root i.e. nr=1 !!!
c-----------------------------------------------------------------------
subroutine ddavid(pr,ini,n,nr,crite,H,C,e)
use xtb_mctc_lapack, only : lapack_syevd
use xtb_mctc_blas, only : blas_copy, blas_axpy, blas_dot,
& blas_spmv
implicit none
logical pr ! print logical
logical ini ! initialize start vector if .true., if false starts from previous vector
integer n ! dimension
integer nr ! # roots
real*8 crite ! eigenvalue convergence threshold
real*8 H(n,n) ! matrix to be diagonalized
real*8 C(n,nr) ! eigenvectors
real*8 e(nr) ! eigenvalues
c local
integer maxiter ! maximum # of iterations
parameter (maxiter=100)
integer iter,iconf(nr),ineue(nr),janf,jneu1,lun1,lun2
integer iideks(nr*maxiter),mx2,idum,j,jalt,ilauf,jneu,nneue
integer lauf,l1,l2,k,LWORK,LIWORK,INFO,ianf,i,ien,ico,ialt,memlun2
integer,allocatable :: iwork(:)
real*8 valn(nr),uim,s,one,zero,denerg
real*8, allocatable :: adiag(:),vecf1(:),vecf2(:),w(:)
real*8, allocatable :: Uaug(:,:),d(:),aux(:)
real*8, allocatable :: AB(:,:),av(:),tmpav(:,:)
real*8, allocatable :: HP(:)
parameter (one =1)
parameter (zero=0)
mx2=nr*maxiter
if(pr)then
write(*,'(/,10x,''******************************************'')')
write(*,'(10x,''* multi-root davidson (R8) *'')')
write(*,'(10x,''******************************************'',/)')
write(*,*) 'dim ',n,' # roots ',nr
endif
allocate(adiag(n),vecf1(n*nr),vecf2(n*nr),w(n),av(mx2*(mx2+1)/2),
. HP(n*(n+1)/2))
c IO
lun1=86
lun2=87
open(unit=lun1,recl=n*8,access='direct',
. file='david1.tmp',
. form='unformatted')
open(unit=lun2,recl=n*8,access='direct',
. file='david2.tmp',
. form='unformatted')
k=0
do i=1,n
do j=1,i
k=k+1
HP(k)=H(j,i)
enddo
enddo
C H * C for initialization
ianf = 1
do i = 1,nr
if(ini) then
do k=1,n
call random_number(s)
C(k,i)=s
enddo
s=blas_dot(n,C(:,i),1,C(:,i),1)
C(1:n,i)=C(1:n,i)/sqrt(s)
endif
call dmwrite(n,lun1,C(1,i),i)
c call dgemv('N',n,n,ONE,H,n,C(1,i),1,ZERO,vecf2(ianf),1)
call blas_spmv('U',n,ONE,HP,C(:,i),1,ZERO,vecf2(ianf:),1)
call dmwrite(n,lun2,vecf2(ianf),i)
ianf = ianf + n
enddo
c aufbau des iideks feldes
iideks(1) = 1
do idum = 2,mx2
iideks(idum) = iideks(idum - 1) + idum
enddo
valn = 0
iconf= 0
e = 0
do i=1,n
adiag(i)=H(i,i)
enddo
if(nr.eq.1)then
av(1)=blas_dot(n,C(:,1),1,vecf2,1)
else
error stop '# roots > 1 not implemented'
c aufbau der startmatrix av = bi*a*bj mit bi, bj startvektoren
c allocate(tmpav(nr,nr),AB(n,nr))
c k=0
c do l1=1,nr
c do l2=1,l1
c k=k+1
c av(k)=tmpav(l2,l1)
c enddo
c enddo
c deallocate(tmpav,AB)
endif
c done
j = nr
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
c eigentliche schleife im davidson
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
do iter = 1, maxiter
lwork = 1 + 6*j + 2*j**2
liwork = 8*j
allocate(Uaug(j,j),d(j),iwork(liwork),aux(lwork))
k=0
do l1=1,j
do l2=1,l1
k=k+1
Uaug(l2,l1) = av(k)
Uaug(l1,l2) = av(k)
enddo
enddo
call lapack_syevd('V','U',j,Uaug,j,d,aux,LWORK,IWORK,LIWORK,INFO)
valn(1:nr) = d(1:nr)
c aufbau der eigentlichen vektoren, die stehen dann auf vecf1
c multiplikation der vorherigen entwicklungsvektoren mit den entwicklungskoeffizienten
vecf1=0
do i=1,j
call dmread(n,lun1,w,i)
ianf = 1
do lauf = 1,nr
uim = Uaug(i,lauf)
call blas_axpy(n,uim,w,1,vecf1(ianf:),1)
ianf = ianf + n
enddo
enddo
c aufbau -E*bi: vecf1 ist bi; vecf2 dann E*bi
ianf = 1
do lauf = 1,nr
ien = ianf + n -1
vecf2(ianf:ien) = -valn(lauf) * vecf1(ianf:ien)
ianf = ianf + n
enddo
c aufbau des residuen vektors (h*bi-e*bi)
c steht dann auf vecf2 ueberschreibt also -e*bi
c h*bi-e*bi steht jetzt auf vecf2
do i=1,j
call dmread(n,lun2,w,i)
memlun2 = i
ianf = 1
do lauf = 1,nr
uim = Uaug(i,lauf)
call blas_axpy(n,uim,w,1,vecf2(ianf:),1)
ianf = ianf + n
enddo
enddo
deallocate(Uaug,d,iwork,aux)
ianf = 1
do lauf = 1,nr
C(1:n,lauf)=vecf1(ianf:ianf+n-1)
ianf = ianf + n
enddo
c aufbau (h*bi - e*bi)/(e - haa); steht danach auf vecf2
ianf = 1
do lauf = 1,nr
call dvdssvd(n,valn(lauf),vecf2(ianf),adiag,vecf1(ianf))
ianf = ianf + n
enddo
denerg = 0.0d0
do lauf = 1,nr
denerg = denerg + abs(valn(lauf) - e(lauf))
if ( abs(valn(lauf) - e(lauf)) .lt. crite) iconf(lauf) = 1
enddo
denerg = denerg / nr
ico = sum(iconf)
if(pr) write(*,*) iter,ico,denerg,valn(1:nr)
if (ico .eq. nr) then
if(pr) write(*,*) 'all roots converged'
go to 9999
endif
if(j.gt.0) then
c-- mit allen alten
nneue = 0
ialt = j
ianf = 1
do lauf = 1,nr
c orthogonaliesung des betrachteten auf die alten
do jalt = 1,ialt
call dmread(n,lun1,w,jalt)
s=-blas_dot(n,w,1,vecf1(ianf:),1)
call blas_axpy(n,s,w,1,vecf1(ianf:),1)
enddo
c normierung dessen was vom betrachteten uebrig bleibt
s=blas_dot(n,vecf1(ianf:),1,vecf1(ianf:),1)
if (s.gt.0.00000001)then
c neuer wird mitgenommen
s = ONE /sqrt(s)
vecf1(ianf:ianf+n-1)= vecf1(ianf:ianf+n-1) * s
ialt = ialt + 1
nneue = nneue + 1
ineue(nneue) = ianf
c wegschreiben des neuen zu den alten
call dmwrite(n,lun1,vecf1(ianf),jalt)
else
goto 9999
endif
ianf = ianf + n
enddo
endif
c umspeichern der ueberlebenden vektoren auf vecf1
ianf = 1
do lauf = 1,nneue
call blas_copy(n,vecf1(ineue(lauf):),1,vecf1(ianf:),1)
ianf = ianf + n
enddo
C H * C
ianf = 1
do i = 1,nneue
c call dgemv('N',n,n,ONE,H,n,vecf1(ianf),1,ZERO,vecf2(ianf),1)
call blas_spmv('U',n,ONE,HP,vecf1(ianf:),1,ZERO,vecf2(ianf:),1)
ianf = ianf + n
enddo
ianf = 1
do i = 1,nneue
call dmwrite(n,lun2,vecf2(ianf),memlun2+i)
ianf = ianf + n
enddo
c berechnung der neuen matrixelemente der davidson-matrix
c zunaechst mit den alten
do jalt = 1,j
call dmread(n,lun1,w,jalt)
ianf = 1
ilauf = iideks(j) + jalt
do jneu = 1,nneue
av(ilauf) = blas_dot(n,w,1,vecf2(ianf:),1)
ilauf = ilauf + jneu + j
ianf = ianf + n
enddo
enddo
c dann mit den neuen
ianf = 1
do jneu = 1,nneue
janf = 1
ilauf = iideks(j+jneu) - jneu + 1
do jneu1 = 1,jneu
av(ilauf) = blas_dot(n,vecf2(ianf:),1,vecf1(janf:),1)
janf = janf + n
ilauf = ilauf + 1
enddo
ianf = ianf + n
enddo
c increase expansion space and iterate further
e = valn
j = j + nneue
enddo
if(pr) write(*,*) 'Warning: davidson not properly converged'
c exit
9999 continue
deallocate(adiag,vecf1,vecf2,w,av,HP)
close (lun1,status='delete')
close (lun2,status='delete')
end
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine dvdssvd(n,sl,v1,v2,v)
implicit none
real*8 sl, v1(*), v(*), v2(*)
integer n
integer i,m,mp1
do i = 1,n
v(i)=v1(i)/(sl-v2(i))
enddo
return
end
***********************************************************************
subroutine dmwrite(n,iwo,v,irec)
implicit none
real*8 v(n)
integer n,iwo,irec
write(iwo,rec=irec) v
return
end
subroutine dmread(n,iwo,v,irec)
implicit none
real*8 v(n)
integer n,iwo,irec
read(iwo,rec=irec) v
return
end
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c real*4 version
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine sdavid(pr,ini,n,nr,crite,H,C,e)
use xtb_mctc_lapack, only : lapack_syevd
use xtb_mctc_blas, only : blas_copy, blas_axpy, blas_dot,
& blas_spmv
implicit none
logical pr ! print logical
logical ini ! initialize start vector if .true., if false starts from previous vector
integer n ! dimension
integer nr ! # roots
real*4 crite ! eigenvalue convergence threshold
real*4 H(n,n) ! matrix to be diagonalized
real*4 C(n,nr) ! eigenvectors
real*4 e(nr) ! eigenvalues
c local
integer maxiter ! maximum # of iterations
parameter (maxiter=100)
integer iter,iconf(nr),ineue(nr),janf,jneu1,lun1,lun2
integer iideks(nr*maxiter),mx2,idum,j,jalt,ilauf,jneu,nneue
integer lauf,l1,l2,k,LWORK,LIWORK,INFO,ianf,i,ien,ico,ialt,memlun2
integer,allocatable :: iwork(:)
real*4 valn(nr),uim,s,one,zero,denerg
real*4, allocatable :: adiag(:),vecf1(:),vecf2(:),w(:)
real*4, allocatable :: Uaug(:,:),d(:),aux(:)
real*4, allocatable :: AB(:,:),av(:),tmpav(:,:)
real*4, allocatable :: HP(:)
parameter (one =1)
parameter (zero=0)
mx2=nr*maxiter
if(pr)then
write(*,'(/,10x,''******************************************'')')
write(*,'(10x,''* multi-root davidson (R4) *'')')
write(*,'(10x,''******************************************'',/)')
write(*,*) 'dim ',n,' # roots ',nr
endif
allocate(adiag(n),vecf1(n*nr),vecf2(n*nr),w(n),av(mx2*(mx2+1)/2),
. HP(n*(n+1)/2))
c IO
lun1=86
lun2=87
open(unit=lun1,recl=n*4,access='direct',
. file='david1.tmp',
. form='unformatted')
open(unit=lun2,recl=n*4,access='direct',
. file='david2.tmp',
. form='unformatted')
k=0
do i=1,n
do j=1,i
k=k+1
HP(k)=H(j,i)
enddo
enddo
C H * C for initialization
ianf = 1
do i = 1,nr
if(ini) then
do k=1,n
call random_number(s)
C(k,i)=s
enddo
s=blas_dot(n,C(:,i),1,C(:,i),1)
C(1:n,i)=C(1:n,i)/sqrt(s)
endif
call smwrite(n,lun1,C(1,i),i)
c call sgemv('N',n,n,ONE,H,n,C(1,i),1,ZERO,vecf2(ianf),1)
call blas_spmv('U',n,ONE,HP, C(:,i),1,ZERO,vecf2(ianf:),1)
call smwrite(n,lun2,vecf2(ianf),i)
ianf = ianf + n
enddo
c aufbau des iideks feldes
iideks(1) = 1
do idum = 2,mx2
iideks(idum) = iideks(idum - 1) + idum
enddo
valn = 0
iconf= 0
e = 0
do i=1,n
adiag(i)=H(i,i)
enddo
if(nr.eq.1)then
av(1)=blas_dot(n,C(:,1),1,vecf2,1)
else
error stop '# roots > 1 not implemented'
c aufbau der startmatrix av = bi*a*bj mit bi, bj startvektoren
c allocate(tmpav(nr,nr),AB(n,nr))
c k=0
c do l1=1,nr
c do l2=1,l1
c k=k+1
c av(k)=tmpav(l2,l1)
c enddo
c enddo
c deallocate(tmpav,AB)
endif
c done
j = nr
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
c eigentliche schleife im davidson
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
do iter = 1, maxiter
lwork = 1 + 6*j + 2*j**2
liwork = 8*j
allocate(Uaug(j,j),d(j),iwork(liwork),aux(lwork))
k=0
do l1=1,j
do l2=1,l1
k=k+1
Uaug(l2,l1) = av(k)
Uaug(l1,l2) = av(k)
enddo
enddo
call lapack_syevd('V','U',j,Uaug,j,d,aux,LWORK,IWORK,LIWORK,INFO)
valn(1:nr) = d(1:nr)
c aufbau der eigentlichen vektoren, die stehen dann auf vecf1
c multiplikation der vorherigen entwicklungsvektoren mit den entwicklungskoeffizienten
vecf1=0
do i=1,j
call smread(n,lun1,w,i)
ianf = 1
do lauf = 1,nr
uim = Uaug(i,lauf)
call blas_axpy(n,uim,w,1,vecf1(ianf:),1)
ianf = ianf + n
enddo
enddo
c aufbau -E*bi: vecf1 ist bi; vecf2 dann E*bi
ianf = 1
do lauf = 1,nr
ien = ianf + n -1
vecf2(ianf:ien) = -valn(lauf) * vecf1(ianf:ien)
ianf = ianf + n
enddo
c aufbau des residuen vektors (h*bi-e*bi)
c steht dann auf vecf2 ueberschreibt also -e*bi
c h*bi-e*bi steht jetzt auf vecf2
do i=1,j
call smread(n,lun2,w,i)
memlun2 = i
ianf = 1
do lauf = 1,nr
uim = Uaug(i,lauf)
call blas_axpy(n,uim,w,1,vecf2(ianf:),1)
ianf = ianf + n
enddo
enddo
deallocate(Uaug,d,iwork,aux)
ianf = 1
do lauf = 1,nr
C(1:n,lauf)=vecf1(ianf:ianf+n-1)
ianf = ianf + n
enddo
c aufbau (h*bi - e*bi)/(e - haa); steht danach auf vecf2
ianf = 1
do lauf = 1,nr
call svdssvd(n,valn(lauf),vecf2(ianf),adiag,vecf1(ianf))
ianf = ianf + n
enddo
denerg = 0.0d0
do lauf = 1,nr
denerg = denerg + abs(valn(lauf) - e(lauf))
if ( abs(valn(lauf) - e(lauf)) .lt. crite) iconf(lauf) = 1
enddo
denerg = denerg / nr
ico = sum(iconf)
if(pr) write(*,*) iter,ico,denerg,valn(1:nr)
if (ico .eq. nr) then
if(pr) write(*,*) 'all roots converged'
go to 9999
endif
if(j.gt.0) then
c-- mit allen alten
nneue = 0
ialt = j
ianf = 1
do lauf = 1,nr
c orthogonaliesung des betrachteten auf die alten
do jalt = 1,ialt
call smread(n,lun1,w,jalt)
s=-blas_dot(n,w,1,vecf1(ianf:),1)
call blas_axpy(n,s,w,1,vecf1(ianf:),1)
enddo
c normierung dessen was vom betrachteten uebrig bleibt
s=blas_dot(n,vecf1(ianf:),1,vecf1(ianf:),1)
if (s.gt.0.00000001)then
c neuer wird mitgenommen
s = ONE /sqrt(s)
vecf1(ianf:ianf+n-1)= vecf1(ianf:ianf+n-1) * s
ialt = ialt + 1
nneue = nneue + 1
ineue(nneue) = ianf
c wegschreiben des neuen zu den alten
call smwrite(n,lun1,vecf1(ianf),jalt)
else
goto 9999
endif
ianf = ianf + n
enddo
endif
c umspeichern der ueberlebenden vektoren auf vecf1
ianf = 1
do lauf = 1,nneue
call blas_copy(n,vecf1(ineue(lauf):),1,vecf1(ianf:),1)
ianf = ianf + n
enddo
C H * C
ianf = 1
do i = 1,nneue
c call sgemv('N',n,n,ONE,H,n,vecf1(ianf),1,ZERO,vecf2(ianf),1)
call blas_spmv('U',n,ONE,HP,vecf1(ianf:),1,ZERO,vecf2(ianf:),1)
ianf = ianf + n
enddo
ianf = 1
do i = 1,nneue
call smwrite(n,lun2,vecf2(ianf),memlun2+i)
ianf = ianf + n
enddo
c berechnung der neuen matrixelemente der davidson-matrix
c zunaechst mit den alten
do jalt = 1,j
call smread(n,lun1,w,jalt)
ianf = 1
ilauf = iideks(j) + jalt
do jneu = 1,nneue
av(ilauf) = blas_dot(n,w,1,vecf2(ianf:),1)
ilauf = ilauf + jneu + j
ianf = ianf + n
enddo
enddo
c dann mit den neuen
ianf = 1
do jneu = 1,nneue
janf = 1
ilauf = iideks(j+jneu) - jneu + 1
do jneu1 = 1,jneu
av(ilauf) = blas_dot(n,vecf2(ianf:),1,vecf1(janf:),1)
janf = janf + n
ilauf = ilauf + 1
enddo
ianf = ianf + n
enddo
c increase expansion space and iterate further
e = valn
j = j + nneue
enddo
if(pr) write(*,*) 'Warning: davidson not properly converged'
c exit
9999 continue
deallocate(adiag,vecf1,vecf2,w,av,HP)
close (lun1,status='delete')
close (lun2,status='delete')
end
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine svdssvd(n,sl,v1,v2,v)
implicit none
real*4 sl, v1(*), v(*), v2(*)
integer n
integer i,m,mp1
do i = 1,n
v(i)=v1(i)/(sl-v2(i))
enddo
return
end
***********************************************************************
subroutine smwrite(n,iwo,v,irec)
implicit none
real*4 v(n)
integer n,iwo,irec
write(iwo,rec=irec) v
return
end
subroutine smread(n,iwo,v,irec)
implicit none
real*4 v(n)
integer n,iwo,irec
read(iwo,rec=irec) v
return
end
xtb-6.7.1/src/david2.f90 0000664 0000000 0000000 00000030344 14650006642 0014611 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_david2
contains
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! real*4 version
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine sdavid2(n,crite,H,C,e,fail)
use xtb_mctc_accuracy, only : wp => sp
use xtb_mctc_lapack, only : lapack_syevd
use xtb_mctc_blas, only : blas_copy, blas_axpy, blas_dot, blas_spmv
implicit none
logical,parameter :: pr = .false.
logical,parameter :: ini = .false.
integer n ! dimension
integer,parameter :: nr = 1
real(wp) crite ! eigenvalue convergence threshold
real(wp) H(n,n) ! matrix to be diagonalized
real(wp) C(n,nr) ! eigenvectors
real(wp) e(nr) ! eigenvalues
logical,intent(out) :: fail
! local
integer maxiter ! maximum # of iterations
parameter (maxiter=100)
integer iter,ineue(1),janf,lun1,lun2
integer iideks(maxiter),idum,j,jalt,ilauf,jneu
integer l1,l2,k,LWORK,LIWORK,INFO,i,ien,ialt,memlun2
integer,allocatable :: iwork(:)
logical lconf
real(wp) valn(1),uim,s,one,zero,denerg
real(wp), allocatable :: adiag(:),vecf1(:),vecf2(:),w(:)
real(wp), allocatable :: Uaug(:,:),d(:),aux(:)
real(wp), allocatable :: AB(:,:),av(:),tmpav(:,:)
real(wp), allocatable :: HP(:)
parameter (one =1)
parameter (zero=0)
fail = .true.
if(pr)then
write(*,'(/,10x,''******************************************'')')
write(*,'(10x,''* multi-root davidson (R4) *'')')
write(*,'(10x,''******************************************'',/)')
write(*,*) 'dim ',n,' # roots ',1
endif
allocate(adiag(n),vecf1(n),vecf2(n),w(n),av(maxiter*(maxiter+1)/2), &
& HP(n*(n+1)/2))
! IO
lun1=86
lun2=87
open(unit=lun1,recl=n*4,access='direct',file='david1.tmp',form='unformatted')
open(unit=lun2,recl=n*4,access='direct',file='david2.tmp',form='unformatted')
k=0
do i=1,n
do j=1,i
k=k+1
HP(k)=H(j,i)
enddo
enddo
! H * C for initialization
call smwrite(n,lun1,C(1,1),1)
call blas_spmv('U',n, ONE,HP, C(:,1),1,ZERO,vecf2,1)
call smwrite(n,lun2,vecf2,1)
! aufbau des iideks feldes
iideks(1) = 1
do idum = 2,maxiter
iideks(idum) = iideks(idum - 1) + idum
enddo
valn = 0
lconf= .false.
e = 0
do i=1,n
adiag(i)=H(i,i)
enddo
av(1)=blas_dot(n,C(:,1),1,vecf2,1)
! done
j = 1
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
! eigentliche schleife im davidson
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
do iter = 1, maxiter-1
lwork = 1 + 6*j + 2*j**2
liwork = 8*j
allocate(Uaug(j,j),d(j),iwork(liwork),aux(lwork))
k=0
do l1=1,j
do l2=1,l1
k=k+1
Uaug(l2,l1) = av(k)
Uaug(l1,l2) = av(k)
enddo
enddo
call lapack_syevd('V','U',j,Uaug,j,d,aux,LWORK,IWORK,LIWORK,INFO)
valn(1:1) = d(1:1)
! aufbau der eigentlichen vektoren, die stehen dann auf vecf1
! multiplikation der vorherigen entwicklungsvektoren mit den entwicklungskoeffizienten
vecf1=0.0_wp
do i=1,j
call smread(n,lun1,w,i)
uim = Uaug(i,1)
call blas_axpy(n,uim,w,1,vecf1,1)
enddo
! aufbau -E*bi: vecf1 ist bi; vecf2 dann E*bi
vecf2 = -valn(1) * vecf1
! aufbau des residuen vektors (h*bi-e*bi)
! steht dann auf vecf2 ueberschreibt also -e*bi
! h*bi-e*bi steht jetzt auf vecf2
do i=1,j
call smread(n,lun2,w,i)
memlun2 = i
uim = Uaug(i,1)
call blas_axpy(n,uim,w,1,vecf2,1)
enddo
deallocate(Uaug,d,iwork,aux)
C(1:n,1)=vecf1
! aufbau (h*bi - e*bi)/(e - haa); steht danach auf vecf2
vecf1=vecf2/(valn(1)-adiag)
denerg = abs(valn(1) - e(1))
lconf = abs(valn(1) - e(1)) .lt. crite
if (pr) write(*,*) iter,lconf,denerg,valn(1:1)
if (lconf) then
if (pr) write(*,*) 'all roots converged'
fail = .false.
go to 99
endif
if (j.gt.0) then
!-- mit allen alten
ialt = j
! orthogonaliesung des betrachteten auf die alten
do jalt = 1,ialt
call smread(n,lun1,w,jalt)
s=-blas_dot(n,w,1,vecf1,1)
call blas_axpy(n,s,w,1,vecf1,1)
enddo
! normierung dessen was vom betrachteten uebrig bleibt
s=blas_dot(n,vecf1,1,vecf1,1)
if (s.gt.0.00000001) then
! neuer wird mitgenommen
s = ONE /sqrt(s)
vecf1= vecf1 * s
ialt = ialt + 1
! wegschreiben des neuen zu den alten
call smwrite(n,lun1,vecf1,jalt)
else
fail = .false.
goto 99
endif
endif
! H * C
call blas_spmv('U',n, ONE,HP, vecf1,1,ZERO,vecf2,1)
call smwrite(n,lun2,vecf2,memlun2+1)
! berechnung der neuen matrixelemente der davidson-matrix
! zunaechst mit den alten
do jalt = 1,j
call smread(n,lun1,w,jalt)
ilauf = iideks(j) + jalt
av(ilauf) = blas_dot(n,w,1,vecf2,1)
ilauf = ilauf + 1 + j
enddo
! dann mit den neuen
av(iideks(j+1)) = blas_dot(n,vecf2,1,vecf1,1)
! increase expansion space and iterate further
e = valn
j = j + 1
enddo
if(pr) write(*,*) 'Warning: davidson not properly converged'
! exit
99 continue
deallocate(adiag,vecf1,vecf2,w,av,HP)
close (lun1,status='delete')
close (lun2,status='delete')
end subroutine sdavid2
subroutine solver_sdavidson(n,crite,Hp,C,e,fail,pr)
use xtb_mctc_accuracy, only : wp => sp
use xtb_mctc_lapack, only : lapack_syevd
use xtb_mctc_blas, only : blas_copy, blas_axpy, blas_dot, mctc_spmv
implicit none
logical, intent(in) :: pr
logical,parameter :: ini = .false.
integer n ! dimension
integer,parameter :: nr = 1
real(wp) crite ! eigenvalue convergence threshold
real(wp) Hp(n*(n+1)/2) ! matrix to be diagonalized
real(wp) C(n,nr) ! eigenvectors
real(wp) e(nr) ! eigenvalues
logical,intent(out) :: fail
! local
integer maxiter ! maximum # of iterations
parameter (maxiter=100)
integer iter,ineue(1),janf!,lun1,lun2
integer iideks(maxiter),idum,j,jalt,ilauf,jneu
integer l1,l2,k,LWORK,LIWORK,INFO,i,ien,ialt,memlun2
integer,allocatable :: iwork(:)
logical lconf
real(wp), allocatable :: lun1(:,:),lun2(:,:)
integer, parameter :: initial_dyn_array_size = 10
real(wp) valn(1),uim,s,denerg
real(wp), allocatable :: adiag(:),vecf1(:),vecf2(:),w(:)
real(wp), allocatable :: Uaug(:,:),d(:),aux(:)
real(wp), allocatable :: AB(:,:),av(:),tmpav(:,:)
fail = .true.
if (pr) then
write(*,'(/,10x,''******************************************'')')
write(*,'(10x,''* multi-root davidson (R4) *'')')
write(*,'(10x,''******************************************'',/)')
write(*,*) 'dim ',n,' # roots ',1
endif
allocate(adiag(n),vecf1(n),vecf2(n),w(n),av(maxiter*(maxiter+1)/2))
allocate(lun1(n,initial_dyn_array_size), lun2(n,initial_dyn_array_size), &
& source = 0.0_wp)
! IO
!lun1=86
!lun2=87
!open(unit=lun1,recl=n*4,access='direct',status='scratch',form='unformatted')
!open(unit=lun2,recl=n*4,access='direct',status='scratch',form='unformatted')
! H * C for initialization
call smwrite(n,lun1,C(1,1),1)
call mctc_spmv(HP, C(:,1), vecf2)
call smwrite(n,lun2,vecf2,1)
! aufbau des iideks feldes
iideks(1) = 1
do idum = 2,maxiter
iideks(idum) = iideks(idum - 1) + idum
enddo
valn = 0
lconf= .false.
e = 0
do i=1,n
adiag(i)=HP(i*(i+1)/2)
enddo
av(1)=blas_dot(n,C(:,1),1,vecf2,1)
! done
j = 1
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
! eigentliche schleife im davidson
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
do iter = 1, maxiter-1
lwork = 1 + 6*j + 2*j**2
liwork = 8*j
allocate(Uaug(j,j),d(j),iwork(liwork),aux(lwork))
k=0
do l1=1,j
do l2=1,l1
k=k+1
Uaug(l2,l1) = av(k)
Uaug(l1,l2) = av(k)
enddo
enddo
call lapack_syevd('V','U',j,Uaug,j,d,aux,LWORK,IWORK,LIWORK,INFO)
valn(1:1) = d(1:1)
! aufbau der eigentlichen vektoren, die stehen dann auf vecf1
! multiplikation der vorherigen entwicklungsvektoren mit den entwicklungskoeffizienten
vecf1=0.0_wp
do i=1,j
call smread(n,lun1,w,i)
uim = Uaug(i,1)
call blas_axpy(n,uim,w,1,vecf1,1)
enddo
! aufbau -E*bi: vecf1 ist bi; vecf2 dann E*bi
vecf2 = -valn(1) * vecf1
! aufbau des residuen vektors (h*bi-e*bi)
! steht dann auf vecf2 ueberschreibt also -e*bi
! h*bi-e*bi steht jetzt auf vecf2
do i=1,j
call smread(n,lun2,w,i)
memlun2 = i
uim = Uaug(i,1)
call blas_axpy(n,uim,w,1,vecf2,1)
enddo
deallocate(Uaug,d,iwork,aux)
C(1:n,1)=vecf1
! aufbau (h*bi - e*bi)/(e - haa); steht danach auf vecf2
vecf1=vecf2/(valn(1)-adiag)
denerg = abs(valn(1) - e(1))
lconf = abs(valn(1) - e(1)) .lt. crite
if (pr) write(*,*) iter,lconf,denerg,valn(1:1)
if (lconf) then
if (pr) write(*,*) 'all roots converged'
fail = .false.
go to 99
endif
if (j.gt.0) then
!-- mit allen alten
ialt = j
! orthogonaliesung des betrachteten auf die alten
do jalt = 1,ialt
call smread(n,lun1,w,jalt)
s=-blas_dot(n,w,1,vecf1,1)
call blas_axpy(n,s,w,1,vecf1,1)
enddo
! normierung dessen was vom betrachteten uebrig bleibt
s=blas_dot(n,vecf1,1,vecf1,1)
if (s.gt.0.00000001) then
! neuer wird mitgenommen
s = 1.0_wp /sqrt(s)
vecf1= vecf1 * s
ialt = ialt + 1
! wegschreiben des neuen zu den alten
call smwrite(n,lun1,vecf1,jalt)
else
fail = .false.
goto 99
endif
endif
! H * C
call mctc_spmv(HP, vecf1, vecf2)
call smwrite(n,lun2,vecf2,memlun2+1)
! berechnung der neuen matrixelemente der davidson-matrix
! zunaechst mit den alten
do jalt = 1,j
call smread(n,lun1,w,jalt)
ilauf = iideks(j) + jalt
av(ilauf) = blas_dot(n,w,1,vecf2,1)
ilauf = ilauf + 1 + j
enddo
! dann mit den neuen
av(iideks(j+1)) = blas_dot(n,vecf2,1,vecf1,1)
! increase expansion space and iterate further
e = valn
j = j + 1
enddo
if(pr) write(*,*) 'Warning: davidson not properly converged'
! exit
99 continue
deallocate(adiag,vecf1,vecf2,w,av,lun1,lun2)
!close (lun1,status='delete')
!close (lun2,status='delete')
contains
subroutine smwrite(n,iwo,v,irec)
implicit none
real(wp), intent(inout), allocatable :: iwo(:,:)
real(wp), intent(in) :: v(n)
integer, intent(in) :: n,irec
real(wp), allocatable :: tmp(:,:)
integer :: d2,dn
d2 = size(iwo,2)
if (irec > d2) then
dn = d2 + d2/2 + 1
allocate(tmp(n,dn))
tmp(:,:d2) = iwo
deallocate(iwo)
call move_alloc(tmp,iwo)
endif
iwo(:,irec) = v
!write(iwo,rec=irec) v
!return
end subroutine smwrite
subroutine smread(n,iwo,v,irec)
implicit none
real(wp), intent(out) :: v(n)
real(wp), intent(in) :: iwo(:,:)
integer, intent(in) :: n,irec
v = iwo(:,irec)
!read(iwo,rec=irec) v
!return
end subroutine smread
end subroutine solver_sdavidson
end module xtb_david2
xtb-6.7.1/src/define.f90 0000664 0000000 0000000 00000002131 14650006642 0014663 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
subroutine eval_define(verbose)
use, intrinsic :: iso_fortran_env, only : id => output_unit
use xtb_mctc_global, only : msgid, name
implicit none
logical,intent(in) :: verbose
integer :: save_i
if (verbose) then
name = 'define'
call definebanner
endif
save_i = msgid
call raise('F','Your input has following faults:')
call terminate(save_i)
end subroutine eval_define
xtb-6.7.1/src/detrotra.f90 0000664 0000000 0000000 00000010205 14650006642 0015256 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_detrotra
implicit none
private
public :: detrotra4, detrotra8
contains
subroutine detrotra4(linear,mol,h,eig)
use xtb_mctc_accuracy, only : sp, wp
use xtb_type_molecule
implicit none
type(TMolecule), intent(in) :: mol
real(sp), intent(in) :: h(3*mol%n,3*mol%n) ! values from projected Lindh diag
real(sp), intent(inout) :: eig(3*mol%n) ! eigenvectors from projected Lindh diag
logical, intent(in) :: linear
integer :: i,j,k,kk,ii,nn,n3,nend
integer,allocatable :: ind(:)
real(wp), allocatable :: tmp(:,:)
real(wp), allocatable :: e(:)
real(wp) :: a0,b0,c0
n3 = 3*mol%n
allocate(tmp(3,mol%n),e(n3),ind(n3))
nn = 0
do ii=1, n3
if(eig(ii).gt.0.05) cycle ! only lowest checked
kk=0
do j=1,mol%n
do k=1,3
kk=kk+1
tmp(k,j)=mol%xyz(k,j)+h(kk,ii) ! distort along mode ii
enddo
enddo
c0=0 ! compared all interatomic distances of original and distortet geom.
do i=2,mol%n
do j=1,i-1
a0 = sqrt((mol%xyz(1,i)-mol%xyz(1,j))**2+(mol%xyz(2,i)-mol%xyz(2,j))**2+(mol%xyz(3,i)-mol%xyz(3,j))**2)
b0 = sqrt((tmp(1,i)-tmp(1,j))**2+(tmp(2,i)-tmp(2,j))**2+(tmp(3,i)-tmp(3,j))**2)
c0 = c0+(a0-b0)**2
enddo
enddo
nn = nn + 1
e(nn)=sqrt(c0/mol%n)*abs(eig(ii)) ! weight by Lindh eigenvalue
ind(nn)=nn
enddo
call qsort(e, 1, nn, ind) ! sort
nend = 6
if (linear) nend = 5
do i=1,nend
eig(ind(i)) = 0.0 ! identifier for rot/tra
enddo
end subroutine detrotra4
!> determine rotational and translational modes
subroutine detrotra8(linear,n,xyz,h,eig)
use xtb_mctc_accuracy, only : wp
use xtb_type_molecule
implicit none
integer, intent(in) :: n
real(wp), intent(in) :: xyz(3,n) ! values from projected Lindh diag
real(wp), intent(in) :: h(3*n,3*n) ! values from projected Lindh diag
real(wp), intent(inout) :: eig(3*n) ! eigenvalues from projected Lindh diag
logical, intent(in) :: linear
integer :: i,j,k,kk,ii,nn,n3,nend
integer,allocatable :: ind(:)
real(wp), allocatable :: tmpxyz(:,:)
real(wp), allocatable :: e(:)
real(wp) :: a0,b0,c0
n3 = 3*n
allocate(tmpxyz(3,n),e(n3),ind(n3))
nn = 0
do ii=1, n3
if(eig(ii).gt.0.05) cycle ! check only low-lying modes
! distort initial geometry along ii-th mode !
kk=0
do j=1,n
do k=1,3
kk=kk+1
tmpxyz(k,j)=xyz(k,j)+h(kk,ii)
enddo
enddo
! compare all interatomic distances of original and distortet geom. !
c0=0
do i=2,n
do j=1,i-1
a0 = sqrt((xyz(1,i)-xyz(1,j))**2+(xyz(2,i)-xyz(2,j))**2+(xyz(3,i)-xyz(3,j))**2)
b0 = sqrt((tmpxyz(1,i)-tmpxyz(1,j))**2+(tmpxyz(2,i)-tmpxyz(2,j))**2+(tmpxyz(3,i)-tmpxyz(3,j))**2)
c0 = c0+(a0-b0)**2 ! sum of squared differences
enddo
enddo
nn = nn + 1
e(nn)=sqrt(c0/n)*abs(eig(ii)) ! weight by Lindh eigenvalue
ind(nn)=nn
enddo
! sort in ascending order !
call qsort(e,1,nn,ind)
nend = 6
if (linear) nend = 5
! set lowest eigenvalues to zero !
do i=1,nend
eig(ind(i)) = 0.0
enddo
end subroutine detrotra8
end module xtb_detrotra
xtb-6.7.1/src/dipole.f90 0000664 0000000 0000000 00000007072 14650006642 0014716 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_dipole
contains
subroutine Dints(n,nbf,xyz,S1,S2,S3,basis)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_constants
use xtb_type_basisset
use xtb_intpack, only : opab1,propa
implicit none
type(TBasisset), intent(in) :: basis
integer, intent(in) :: n
integer, intent(in) :: nbf
real(wp),intent(out) :: S1(nbf*(nbf+1)/2)
real(wp),intent(out) :: S2(nbf*(nbf+1)/2)
real(wp),intent(out) :: S3(nbf*(nbf+1)/2)
real(wp),intent(in) :: xyz(3,n)
integer :: i,j,k,l
integer :: iprimcount,jprimcount
integer :: npri,nprj
integer :: ii,iii,jj,jjj,ll,m,li,lj,mm,nn
real(wp) :: xyza(3),xyzb(3),rab,est,ss,sss,lmnfak(84),gama,arg
real(wp) :: point(3),gm2,ttt(3),tt1,tt2,tt3,intcut
intcut=20.0_wp
point=0.0_wp
s1=0.0_wp
s2=0.0_wp
s3=0.0_wp
k=0
iprimcount=0
do i=1,nbf
! aufpunkt i
xyza(1:3)=xyz(1:3,basis%aoat(i))
! #prims
npri=basis%nprim(i)
jprimcount=0
do j=1,i
k=k+1
nprj=basis%nprim(j)
! aufpunkt j
xyzb(1:3)=xyz(1:3,basis%aoat(j))
rab=sum((xyza-xyzb)**2)
if(rab.gt.200) goto 42 ! cut-off gives crambin dipole accurate to 1d-3 Deb
!prim loop
tt1=0.0_wp
tt2=0.0_wp
tt3=0.0_wp
do ii=1,npri
iii=iprimcount+ii
do jj=1,nprj
jjj=jprimcount+jj
gama=1.0_wp/(basis%alp(iii)+basis%alp(jjj))
est=rab*basis%alp(iii)*basis%alp(jjj)*gama
! cutoff
if(est.lt.intcut)then
ttt=0
call propa(opab1,xyza,xyzb,point,basis%alp(iii),basis%alp(jjj),&
& basis%lao(i),basis%lao(j),ttt,3)
tt1=tt1+ttt(1)*basis%cont(iii)*basis%cont(jjj)
tt2=tt2+ttt(2)*basis%cont(iii)*basis%cont(jjj)
tt3=tt3+ttt(3)*basis%cont(iii)*basis%cont(jjj)
endif
enddo
enddo
s1(k)=tt1
s2(k)=tt2
s3(k)=tt3
42 jprimcount=jprimcount+nprj
enddo
iprimcount=iprimcount+npri
enddo
end subroutine Dints
subroutine calc_dipole(n,at,xyz,z,nao,P,dpint,dip,d)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_convert
implicit none
integer, intent(in) :: n
integer, intent(in) :: at(n)
real(wp),intent(in) :: xyz(3,n)
real(wp),intent(in) :: z(n)
integer, intent(in) :: nao
real(wp),intent(in) :: P(nao,nao)
real(wp),intent(in) :: dpint(3,nao,nao)
integer :: i,j,k
real(wp),intent(out) :: d(3),dip
! core part
d = 0.0_wp
do i = 1, n
d = d + xyz(:,i)*z(i)
enddo
! contraction with P
k = 0
do i = 1, nao
do j = 1, i-1
k = k+1
d = d - 2.0_wp*P(j,i)*dpint(:,i,j)
enddo
k = k+1
d = d - P(i,i)*dpint(:,i,i)
enddo
dip = norm2(d)
end subroutine calc_dipole
end module xtb_dipole
xtb-6.7.1/src/dipro.F90 0000664 0000000 0000000 00000046765 14650006642 0014533 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
! SPDX-Identifier: LGPL-3.0-or-later
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
#ifndef WITH_TBLITE
#define WITH_TBLITE 0
#endif
!> Implementation of the dimer projection method for extended tight binding methods.
module xtb_dipro
use mctc_env, only : error_type, fatal_error, get_argument, wp
use mctc_io, only : structure_type, new
use mctc_io_convert, only : autoev
use xtb_type_environment, only : TEnvironment
use xtb_type_molecule, only : TMolecule, assignment(=)
use xtb_type_calculator, only : TCalculator
use xtb_tblite_calculator, only : TTBLiteCalculator, TTBLiteInput, newTBLiteCalculator
use xtb_setparam
#if WITH_TBLITE
use xtb_dipro_bondorder, only : get_wiberg_bondorder
use xtb_dipro_fragment, only : get_wiberg_fragment
use xtb_dipro_output, only : format_list, to_string
use xtb_dipro_xtb, only : get_calculator
use tblite_basis_type, only : get_cutoff, basis_type
use tblite_blas, only : dot, gemv, gemm
use tblite_context_type, only : context_type
use tblite_cutoff, only : get_lattice_points
use tblite_integral_overlap, only : get_overlap
use tblite_output_format, only : format_string
use tblite_wavefunction_type, only : wavefunction_type, new_wavefunction, &
& get_density_matrix
use tblite_xtb_calculator, only : xtb_calculator
use tblite_xtb_singlepoint, only : xtb_singlepoint
#endif
implicit none
private
public :: get_jab, jab_input
!> Configuration data for calculation
type :: jab_input
!> Flag for evoking DIPRO
logical :: diprocalc
!>Orbital degeneracy threshold
real(wp) :: othr
!> Name of the requested tight binding method
character(len=:), allocatable :: method
!> List of fragments, generated if not given here
integer, allocatable :: fragment(:)
!> Threshold for generating fragments from bond orders
real(wp) :: thr = 0.1_wp
!> Calculation accuracy
real(wp) :: accuracy = 1.0_wp
!> Output verbosity
integer :: verbosity = 2
!> total j_ab,eff in eV for test module
real(wp) :: totjab(3)
end type jab_input
character(len=*), parameter :: source = 'xtb_dipro'
!> Conversion factor from temperature to energy (Boltzmann's constant in atomic units)
real(wp), parameter :: ktoau = 3.166808578545117e-06_wp
contains
!> Entry point for calculation of dimer projection (DIPRO) related properties
subroutine get_jab(env, tblite, mol, fragment, dipro)
use, intrinsic :: iso_fortran_env, only : output_unit
implicit none
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!requested gfn method for calculations Input
type(TTBLiteInput), intent(inout) :: tblite
type(jab_input),intent(inout) :: dipro
type(TEnvironment),intent(inout) :: env
integer, allocatable, intent(inout) :: fragment(:)
#if WITH_TBLITE
!> structure_type /= molecular structure
type(structure_type) :: struc
type(error_type),allocatable :: error
type(context_type) :: ctx
type(basis_type) :: bas
!> fcalc is =xcalc just for fragments
type(xtb_calculator) :: xcalc
type(xtb_calculator), allocatable :: fcalc(:)
!> mfrag is =struc just for fragments
type(structure_type), allocatable :: mfrag(:)
type(wavefunction_type) :: wfn
!> wfx is =wfn just for fragments
type(wavefunction_type), allocatable :: wfx(:)
!> Molecular gradient, strain derivatives
real(wp), allocatable :: gradient(:, :), sigma(:,:), nel(:)
real(wp), allocatable :: overlap(:, :), trans(:, :), wbo(:, :), chrg(:), p2mat(:,:), coeff2(:,:),loc(:,:)
real(wp), allocatable :: orbital(:, :, :), scmat(:, :), fdim(:, :), scratch(:), efrag(:),y(:,:),Edim(:,:)
integer, allocatable :: spinfrag(:), start_index(:),end_index(:),orbprint(:)
integer :: charge, stat, unit, ifr, nfrag, nao, i, j, k
logical :: exist
character(3) :: adv='NO '
real(wp) :: energy, cutoff, jab, sab, jeff, Vtot(3)
!======================================================================================
struc=mol
if ( tblite%method == '' ) then
tblite%method = 'gfn2'
call env%warning("No method provided, falling back to default GFN2-xTB.", source)
end if
!=========================set up calculator===========================================
call get_calculator(xcalc, struc, tblite%method, error)
call new_wavefunction(wfn, struc%nat, xcalc%bas%nsh, xcalc%bas%nao, &
& 1, set%etemp * ktoau)
wfn%nspin=1
!=========================print Header===============================================
call generic_header(6,'D I P R O',49,10)
!=========================calculation for dimer======================================
write(*,'(A)') "Calculation for dimer "
write(*,'(A)') "--------------------- "
write(*,'(A)') " "
write(*,'(A,F4.0)') "charge of dimer : ", mol%chrg
write(*,'(A,I2)') "unpaired e- of dimer : ", set%nalphabeta
call xtb_singlepoint(ctx, struc, xcalc, wfn, tblite%accuracy, energy,gradient,sigma,2)
if (ctx%failed()) then
call env%error("Single point calculation for dimer failed.", source)
return
end if
allocate(overlap(xcalc%bas%nao, xcalc%bas%nao),y(xcalc%bas%nao,2))
cutoff = get_cutoff(xcalc%bas)
call get_lattice_points(struc%periodic, struc%lattice, cutoff, trans)
call get_overlap(struc, trans, cutoff, xcalc%bas, overlap)
!==================set up fragments if not given by xcontrol=========================
if (allocated(fragment)) then
else
!> wfn%density is [nao,nao,spin], pmat in wiberg bondorder is [nao,nao], thus pmat2 is introduced here
allocate(wbo(struc%nat, struc%nat),p2mat(xcalc%bas%nao,xcalc%bas%nao))
do i=1,xcalc%bas%nao
do j=1,xcalc%bas%nao
p2mat(i,j)=wfn%density(i,j,1)
end do
end do
call get_wiberg_bondorder(xcalc%bas, overlap, p2mat, wbo)
allocate(fragment(struc%nat))
call get_wiberg_fragment(fragment, wbo, 0.1_wp)
end if
nfrag = maxval(fragment)
select case(nfrag)
case(:1)
call ctx%message("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ERROR!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!")
call ctx%message("Found no fragments in the input structure.")
call ctx%message("Aborting...")
call env%error("Found no fragments in input structure.", source)
return
case(2:)
call ctx%message("Found "//to_string(nfrag)//" fragments!")
do ifr = 1, nfrag
call ctx%message("Fragment "//to_string(ifr)//": "//format_list(fragment == ifr))
end do
call ctx%message("")
if (nfrag > 2) then
call ctx%message("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ERROR!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!")
call ctx%message("Found "//to_string(nfrag)// &
& " fragments in the input structure, too many fragments.")
call ctx%message("Aborting...")
call env%error("Found too many fragments in input structure.", source)
return
end if
end select
nao = size(wfn%emo)
allocate(orbital(nao, nfrag,nao), efrag(nfrag), scmat(nao, nao), fdim(nao, nao), &
& scratch(nao), mfrag(nfrag), wfx(nfrag), chrg(nfrag), spinfrag(nfrag), &
& start_index(nfrag),end_index(nfrag),orbprint(nfrag),nel(nfrag))
!==================================external files CHRG & UHF read-in====================================
inquire(file='.UHFfrag', exist=exist)
if (exist) then
open(file='.UHFfrag', newunit=unit)
write(output_unit, '(a)') "[Info] Fragment spin read from .UHFfrag"
read(unit,*,iostat=stat) spinfrag(1),spinfrag(2)
close(unit)
else if (set%nalphabeta .ne. 0) then
call ctx%message("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ERROR!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!")
call ctx%message("Total spin specified but no fragment spins. Spins are not determined &
&automatically by xtb. Please set up .UHFfrag or use total spin =0." )
call ctx%message("Aborting...")
call env%error("Total spin specified but no fragment spins.", source)
return
else
spinfrag=0
end if
inquire(file='.CHRGfrag', exist=exist)
if (exist) then
open(file='.CHRGfrag', newunit=unit)
write(output_unit, '(a)') "[Info] Fragment charge read from .CHRGfrag"
read(unit,*,iostat=stat) chrg(1),chrg(2)
close(unit)
else
chrg=0
end if
!=================================fragment calculations=============================================
allocate(fcalc(nfrag))
do ifr = 1, nfrag
call ctx%message("Calculation for fragment "//to_string(ifr))
write(*,*) "------------------------------"
write(*,*) " "
call get_structure_fragment(mfrag(ifr), struc, fragment == ifr)
!> summation of fragment charges stored in chrg(nfrag)
if ( all(chrg.eq.0) ) then
chrg(ifr)=0
!> fragment mask generated on the fly
chrg(ifr)=sum(pack(wfn%qat(:,1), fragment == ifr)) !> wfn%qat is [nat,nspin=1]
mfrag(ifr)%charge=nint(chrg(ifr))
else
mfrag(ifr)%charge=nint(chrg(ifr))
end if
write(*,'(A,F4.0)') "charge of fragment : ", mfrag(ifr)%charge
!> uhf fragments spins
mfrag(ifr)%uhf = spinfrag(ifr)
write(*,'(A,I2)') "unpaired e- of fragment : ", mfrag(ifr)%uhf
call get_calculator(fcalc(ifr), mfrag(ifr), tblite%method, error)
!> mol%charge is updated automatically from wfn by tblite library
call new_wavefunction(wfx(ifr), mfrag(ifr)%nat, fcalc(ifr)%bas%nsh, fcalc(ifr)%bas%nao, &
& 1, set%etemp * ktoau)
!> mol%type (dimer) == mfrag%type (fragments), wfn (dimer) == wfx (fragments), calc (dimer)==fcalc(fragments)
wfx%nspin=1
call xtb_singlepoint(ctx, mfrag(ifr), fcalc(ifr), wfx(ifr), tblite%accuracy, energy)
if (ctx%failed()) then
call env%error("Single point calculation for fragment failed.", source)
return
end if
nel(ifr)=wfx(ifr)%nel(1)+wfx(ifr)%nel(2)
!==================================DIPRO==================================================
do j = 1, fcalc(ifr)%bas%nao
!> coeff is [nao,nao,spin=1]
call unpack_coeff(xcalc%bas, fcalc(ifr)%bas, orbital(:, ifr, j), &
& wfx(ifr)%coeff(:, j,1), fragment == ifr)
end do
end do
allocate(coeff2(nao,nao),Edim(nao,nao))
Edim=0
do i=1,nao
Edim(i,i)=wfn%emo(i,1)
do j=1,nao
coeff2(i,j)=wfn%coeff(i,j,1)
end do
end do
start_index = -1
end_index = -1
!> find out which orbitals are within [HOMO-othr,LUMO+othr] and should be considered for DIPRO
write(*,*) " "
write(*,*) " ::::::::::::::::::::::::::::::::::::::::::::::"
write(*,*) " :: D I P R O C O U P L I N G S ::"
write(*,*) " ::::::::::::::::::::::::::::::::::::::::::::::"
write(*,*) " "
call ctx%message("energy threshhold for near-degenerate orbitals near HOMO and LUMO &
&considered for DIPRO: "//format_string(dipro%othr, '(f6.3)')//" eV")
do ifr=1,nfrag
do j = 1, fcalc(ifr)%bas%nao
if (wfx(ifr)%emo(j,1) .ge. (wfx(ifr)%emo(wfx(ifr)%homo(2),1) - dipro%othr/autoev) .and.&
& wfx(ifr)%emo(j,1) .le. (wfx(ifr)%emo(wfx(ifr)%homo(2)+1,1) + dipro%othr/autoev)) then
if (start_index(ifr).eq.-1) then
start_index(ifr) = j
end if
end_index(ifr) = j
endif
end do
write(*,'(A, I2, I10)') "no. of orbitals within energy window of frag", ifr, end_index(ifr)-start_index(ifr)+1
end do
write(*,*) " "
!========================================DIPRO equations===========================================
!> equations after B. Baumeier, J. Kirkpatrick, D. Andrienko, PCCP 2010, 12, 11103.
!> y_A^i = C_A^i * S_AB * C_AB orbital projection of monomer A onto dimer
!> y_B^j = C_B^j * S_AB * C_AB orbital projection of monomer B onto dimer
!> S_ab^ij = y_A^i * y_B^j projected overlap
!> E_A^i = y_A^i * E_AB * y_A^i site energy monomeCALL execute_command_line('wc -l < file.txt > wc.txt' )r A
!> E_B^j = y_B^j * E_AB * y_B^j site energy monomer B
!> J_AB^ij = y_A^i * E_AB * y_B^j coupling integral J_AB
!> J_AB^ij effective = (J_AB^ij - (E_A^i + E_B^j) / 2 * S_ab^ij) / (1 - S_ab^ij * S_ab^ij)
!> A,B: monomers AB: dimer
!> i,j: orbitals of the monomers
!> C: orbital coefficients S: overlap matrix E: orbital energy of the dimer
Vtot=0
!> gemm(amat,bmat,cmat,transa,transb,a1,a2): X=a1*Amat*Bmat+a2*Cmat
!> scmat=S_dim*C_dim
call gemm(overlap, coeff2, scmat)
do j = start_index(1), end_index(1)
orbprint(1)=wfx(1)%homo(max(2,1))-j
y(:,1)=0
!> gemv(amat, xvec,yvec,a1,a2,transa): X=a1*Amat*xvec+a2*yvec
!> y_mon1(ifr)=C_mon1(j)*S_dim*C_dim
call gemv( scmat, orbital(:, 1, j), y(:,1), trans="t" )
!> scratch=E_dim*y1(j)
call gemv( Edim, y(:,1), scratch )
!> E_mon=y1(j)*E_dim*y1(j)
efrag(1)=dot( y(:,1), scratch)
do k = start_index(2), end_index(2)
orbprint(2)=wfx(2)%homo(max(2,1))-k
y(:,2)=0
!> y_mon2(ifr)=C_mon2(k)*S_dim*C_dim
call gemv( scmat, orbital(:, 2, k), y(:,2), trans="t" )
!> scratch=E_dim*y2(k)
call gemv( Edim, y(:,2), scratch )
!> E_mon=y(ifr)*E_dim*y2(k)
efrag(2)=dot( y(:,2), scratch)
!> sab=y1(j)*y2(k)
sab=dot( y(:,1), y(:,2) )
!> jab=y1(j)*E_dim*y2(k)
jab=dot( y(:,1), scratch )
jeff = (jab - sum(efrag) / nfrag * sab) / (1.0_wp - sab**2)
!=======================================Printout============================================
do ifr=1,2
!> both coupling monomer orbitals are printed in the same line
if (ifr.eq.2) then
adv='YES'
else
adv='NO '
end if
!> if the number of electrons is odd, the SOMO is the new HOMO
if (mod(nint(nel(ifr)),2).eq.1) then
if (orbprint(ifr).gt.0) then
write(*, '( " Fragment ", I1, " SOMO-", I1 )', ADVANCE=adv ) ifr, orbprint(ifr)
else if (orbprint(ifr).eq.0) then
write(*, '( " Fragment ", I1, " SOMO ")', ADVANCE=adv ) ifr
else if (orbprint(ifr).eq.-1) then
write(*, '( " Fragment ", I1, " LUMO ")', ADVANCE=adv ) ifr
else if (orbprint(ifr).lt.-1) then
write(*, '( " Fragment ", I1, " LUMO+", I1 )', ADVANCE=adv ) ifr, abs(orbprint(ifr))-1
end if
else if (mod(nint(nel(ifr)),2).eq.0) then
if (orbprint(ifr).gt.0) then
write(*, '( " Fragment ", I1, " HOMO-", I1 )', ADVANCE=adv ) ifr, orbprint(ifr)
else if (orbprint(ifr).eq.0) then
write(*, '( " Fragment ", I1, " HOMO ")', ADVANCE=adv ) ifr
else if (orbprint(ifr).eq.-1) then
write(*, '( " Fragment ", I1, " LUMO ")', ADVANCE=adv ) ifr
else if (orbprint(ifr).lt.-1) then
write(*, '( " Fragment ", I1, " LUMO+", I1 )', ADVANCE=adv ) ifr, abs(orbprint(ifr))-1
end if
end if
end do
write(*,'(A)') "--------------------------------------"
call ctx%message("E_mon(orb) frag1 frag2"//format_string(efrag(1)*autoev, '(f20.3)')// &
&format_string(efrag(2)*autoev, '(f10.3)')//" eV")
call ctx%message("J(AB): "//format_string(jab*autoev, '(f20.3)')//" eV")
call ctx%message("S(AB): "//format_string(sab, '(f22.8)')//" Eh")
call ctx%message("|J(AB,eff)|: "//format_string(abs(jeff)*autoev, '(f16.3)')//" eV")
write(*,*) " "
!> Vtotal=sqrt(sum(jeff^2)) for 1. occ-->occ; 2. virt-->virt; 3. occ-->virt/virt-->occ transitions
if(orbprint(1).ge.0.and.orbprint(2).ge.0) then
Vtot(1)=Vtot(1)+jeff**2
else if (orbprint(1).le.-1.and.orbprint(2).le.-1) then
Vtot(2)=Vtot(2)+jeff**2
else
Vtot(3)=Vtot(3)+jeff**2
end if
end do
end do
dipro%totjab(1)=sqrt(Vtot(1))*autoev
dipro%totjab(2)=sqrt(Vtot(2))*autoev
dipro%totjab(3)=sqrt(Vtot(3))*autoev
write(*,'(A)') ".............................................................................."
call ctx%message(": total |J(AB,eff)| for hole transport (occ. MOs) :"//format_string(sqrt(Vtot(1))*autoev, '(f20.3)')//" eV :")
call ctx%message(": total |J(AB,eff)| for charge transport (unocc. MOs) :"//format_string(sqrt(Vtot(2))*autoev,&
&'(f16.3)')//" eV :")
call ctx%message(": total |J(AB,eff)| for charge transfer (CT) :"//format_string(sqrt(Vtot(3))*autoev, '(f25.3)')//" eV :")
write(*,'(A)') ".............................................................................."
write(*,*) " "
write(*,*) "Please remember, DIPRO is not available for restart!"
write(*,*) " "
write(*,'(A)') "normal termination of dipro"
#else
Call env%error("DIPRO is not available without TBLite.", source)
#endif
end subroutine get_jab
#if WITH_TBLITE
!> Unpack coefficients from a fragment orbital space in the full orbital space
subroutine unpack_coeff(full_bas, frag_bas, full, frag, mask)
!> Basis set information for full system
type(basis_type), intent(in) :: full_bas
!> Basis set information for fragment
type(basis_type), intent(in) :: frag_bas
!> Quantity in full orbital space
real(wp), intent(out) :: full(:)
!> Quantity in fragment orbital space
real(wp), intent(in) :: frag(:)
!> Atom resolved mask for this fragment
logical, intent(in) :: mask(:)
integer :: iat, jat, ish, ii, jj, iao, jao, nao
jat = 0
do iat = 1, size(mask)
if (mask(iat)) then
jat = jat + 1
ii = full_bas%ish_at(iat)
jj = frag_bas%ish_at(jat)
do ish = 1, full_bas%nsh_at(iat)
iao = full_bas%iao_sh(ii+ish)
jao = frag_bas%iao_sh(jj+ish)
nao = full_bas%nao_sh(ii+ish)
full(iao+1:iao+nao) = frag(jao+1:jao+nao)
end do
else
ii = full_bas%ish_at(iat)
do ish = 1, full_bas%nsh_at(iat)
iao = full_bas%iao_sh(ii+ish)
nao = full_bas%nao_sh(ii+ish)
full(iao+1:iao+nao) = 0.0_wp
end do
end if
end do
end subroutine unpack_coeff
!> Extract a the fragment structure from the full structure
subroutine get_structure_fragment(frag, struc, mask) !mol
!> Molecular structure data of the fragment
type(structure_type), intent(out) :: frag
!> Molecular structure data of the full system
type(structure_type), intent(in) :: struc !mol
!> Atom resolved mask for this fragment
logical, intent(in) :: mask(:)
integer :: nat
integer, allocatable :: num(:)
real(wp), allocatable :: xyz(:, :)
nat = count(mask)
num = pack(struc%num(struc%id), mask)
xyz = reshape(pack(struc%xyz, spread(mask, 1, 3)), [3, nat])
call new(frag, num, xyz)
end subroutine get_structure_fragment
#endif
end module xtb_dipro
xtb-6.7.1/src/dipro/ 0000775 0000000 0000000 00000000000 14650006642 0014231 5 ustar 00root root 0000000 0000000 xtb-6.7.1/src/dipro/CMakeLists.txt 0000664 0000000 0000000 00000001624 14650006642 0016774 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2022 Sebastian Ehlert, Julia Kohn
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
set(dir "${CMAKE_CURRENT_SOURCE_DIR}")
list(APPEND srcs
"${dir}/bondorder.F90"
"${dir}/fragment.f90"
"${dir}/output.f90"
"${dir}/version.f90"
"${dir}/xtb.F90"
)
set(srcs ${srcs} PARENT_SCOPE)
xtb-6.7.1/src/dipro/bondorder.F90 0000664 0000000 0000000 00000003455 14650006642 0016476 0 ustar 00root root 0000000 0000000 ! This file is part of dipro.
! SPDX-Identifier: Apache-2.0
!
! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at
!
! http://www.apache.org/licenses/LICENSE-2.0
!
! Unless required by applicable law or agreed to in writing, software
! distributed under the License is distributed on an "AS IS" BASIS,
! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
! See the License for the specific language governing permissions and
! limitations under the License.
#ifndef WITH_TBLITE
#define WITH_TBLITE 0
#endif
!> Calculation of Wiberg/Mayer type bond orders
module xtb_dipro_bondorder
use mctc_env, only : wp
#if WITH_TBLITE
use tblite_basis_type, only : basis_type
use tblite_blas, only : gemm
implicit none
public :: get_wiberg_bondorder
contains
!> Calculate Wiberg/Mayer type bond orders from density and overlap matrices
subroutine get_wiberg_bondorder(bas, smat, pmat, wbo)
!> Basis set information
type(basis_type), intent(in) :: bas
!> Overlap matrix
real(wp), intent(in) :: smat(:, :)
!> Density matrix
real(wp), intent(in) :: pmat(:, :)
!> Wiberg/Mayer type bond orders
real(wp), intent(out) :: wbo(:, :)
real(wp), allocatable :: spmat(:, :)
integer :: iao, jao, iat, jat
allocate(spmat(bas%nao,bas%nao)) !XXXX (mold=pmat)
call gemm(pmat, smat, spmat)
wbo(:, :) = 0.0_wp
do iao = 1, bas%nao
iat = bas%ao2at(iao)
do jao = 1, bas%nao
jat = bas%ao2at(jao)
wbo(jat, iat) = wbo(jat, iat) + spmat(iao, jao) * spmat(jao, iao)
end do
end do
do iat = 1, size(wbo, 2)
wbo(iat, iat) = 0.0_wp
end do
end subroutine get_wiberg_bondorder
#endif
end module xtb_dipro_bondorder
xtb-6.7.1/src/dipro/fragment.f90 0000664 0000000 0000000 00000005461 14650006642 0016362 0 ustar 00root root 0000000 0000000 ! This file is part of dipro.
! SPDX-Identifier: Apache-2.0
!
! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at
!
! http://www.apache.org/licenses/LICENSE-2.0
!
! Unless required by applicable law or agreed to in writing, software
! distributed under the License is distributed on an "AS IS" BASIS,
! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
! See the License for the specific language governing permissions and
! limitations under the License.
!> Fragmentation based on bond orders found for a system
module xtb_dipro_fragment
use mctc_env, only : wp
implicit none
private
public :: get_wiberg_fragment
contains
!> Obtain fragment information from Wiberg/Mayer type bond orders
subroutine get_wiberg_fragment(fragment,wbo,thr)
!> Fragment information
integer, intent(out) :: fragment(:)
!> Bond orders
real(wp),intent(in) :: wbo(:, :)
!> Threshold to count bond orders as actual bond
real(wp),intent(in) :: thr
real(wp),allocatable :: bond(:, :)
logical, allocatable :: taken(:)
integer :: i, nfrag, nat
real(wp) :: xsum
nat = size(fragment)
fragment(:) = 0
allocate(taken(nat), source=.false.)
allocate(bond(nat, nat), source=0.0_wp)
where(wbo > thr)
bond = min(wbo, 1.0_wp) !filtert kleinsten Wert aus wbo und setzt den an die richtige
!nat,nat stell in wbo, falls wbo < 1.0 wird =1 gesetzt
elsewhere
bond = 0.0_wp !sollte in einer symmetrischen Matrix mit 0/1/>1 resultieren
endwhere
nfrag = 0
do i = 1, nat
if(taken(i)) cycle
nfrag=nfrag+1
fragment(i)=nfrag
taken(i)=.true.
call find_neighbours(i, sum(ceiling(bond(:,:)), 1), taken, bond, fragment, nfrag)
end do !ceiling(-63.2234)=-63, ceiling(63.2234)=63 . Aufrunden-FUnktion
end subroutine get_wiberg_fragment
!> Worker routine to transverse the graph recursively
recursive subroutine find_neighbours(i, cn, taken, bond, fragment, this_fragment)
!> Current node in the graph
integer, intent(in) :: i
!> Number of edges for every node
integer, intent(in) :: cn(:)
!> Status of nodes
logical, intent(inout) :: taken(:)
!> Weights of the graph edges, destroyed while transversing the graph
real(wp), intent(inout) :: bond(:,:)
!> Fragments found
integer, intent(inout) :: fragment(:)
!> Index of the current fragmant
integer, intent(inout) :: this_fragment
integer :: j, k
do k = 1, cn(i)
j = maxloc(bond(:, i), 1)
bond(j, i) = 0
if (i == j .or. taken(j)) cycle
fragment(j) = this_fragment
taken(j) = .true.
call find_neighbours(j, cn, taken, bond, fragment, this_fragment)
end do
end subroutine find_neighbours
end module xtb_dipro_fragment
xtb-6.7.1/src/dipro/meson.build 0000664 0000000 0000000 00000001456 14650006642 0016401 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2022 Sebastian Ehlert, Julia Kohn
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
srcs += files(
'bondorder.F90',
'fragment.f90',
'version.f90',
'xtb.F90',
'output.f90',
)
xtb-6.7.1/src/dipro/output.f90 0000664 0000000 0000000 00000006547 14650006642 0016125 0 ustar 00root root 0000000 0000000 ! This file is part of the dipro module in xtb.
! SPDX-Identifier: LGPL-3.0-or-later
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> Helper routines to for output generation
module xtb_dipro_output
implicit none
private
public :: format_list, to_string
contains
!> Format a list of logicals as integer ranges
function format_list(list, default, delimiter, skip) result(string)
!> Generated string representation of the list
character(len=:), allocatable :: string
!> Actual list to format as string
logical, intent(in) :: list(:)
!> Default value of the list
logical, intent(in), optional :: default
!> Delimiter between two ranges
character(len=*), intent(in), optional :: delimiter
!> Symbol to represent skipping integers in a range
character(len=*), intent(in), optional :: skip
integer :: i, last
logical :: state, first
logical :: default_
character(len=:), allocatable :: delimiter_
character(len=:), allocatable :: skip_
if (present(default)) then
default_ = default
else
default_ = .false.
end if
if (present(delimiter)) then
delimiter_ = delimiter
else
delimiter_ = ", "
end if
if (present(skip)) then
skip_ = skip
else
skip_ = "-"
end if
last = -1
first = .true.
state = .not.default_
do i = 1, size(list)
if (state.eqv.list(i)) then
state = .not.state
if (state.eqv.default_) then
last = i
if (first) then
first = .false.
string = to_string(i)
else
string = string // delimiter_ // to_string(i)
endif
else
if (i-1 .ne. last) then
string = string // skip_ // to_string(i-1)
endif
endif
endif
enddo
if (state.eqv.default_ .and.last.ne.size(list)) then
string = string // skip_ // to_string(size(list))
endif
end function format_list
!> Format an integer as string without using internal IO
pure function to_string(val) result(string)
!> Integer value to format
integer, intent(in) :: val
!> Resulting string representation
character(len=:), allocatable :: string
character(len=1), parameter :: numbers(0:9) = &
["0", "1", "2", "3", "4", "5", "6", "7", "8", "9"]
integer, parameter :: buffer_len = range(val)+2
character(len=buffer_len) :: buffer
integer :: pos
integer :: n
if (val == 0) then
string = numbers(0)
return
end if
n = abs(val)
buffer = ""
pos = buffer_len + 1
do while (n > 0)
pos = pos - 1
buffer(pos:pos) = numbers(mod(n, 10))
n = n/10
end do
if (val < 0) then
pos = pos - 1
buffer(pos:pos) = '-'
end if
string = buffer(pos:)
end function to_string
end module xtb_dipro_output
xtb-6.7.1/src/dipro/version.f90 0000664 0000000 0000000 00000003721 14650006642 0016241 0 ustar 00root root 0000000 0000000 ! This file is part of the dipro module in xtb.
! SPDX-Identifier: LGPL-3.0-or-later
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> Version information for this project
module xtb_dipro_version
implicit none
private
public :: dipro_version_string, dipro_version_compact
public :: get_dipro_version
!> String representation of the dipro version
character(len=*), parameter :: dipro_version_string = "0.1.0"
!> Numeric representation of the dipro version
integer, parameter :: dipro_version_compact(3) = [0, 1, 0]
contains
!> Getter function to retrieve dipro version
subroutine get_dipro_version(major, minor, patch, string)
!> Major version number of the dipro version
integer, intent(out), optional :: major
!> Minor version number of the dipro version
integer, intent(out), optional :: minor
!> Patch version number of the dipro version
integer, intent(out), optional :: patch
!> String representation of the dipro version
character(len=:), allocatable, intent(out), optional :: string
if (present(major)) then
major = dipro_version_compact(1)
end if
if (present(minor)) then
minor = dipro_version_compact(2)
end if
if (present(patch)) then
patch = dipro_version_compact(3)
end if
if (present(string)) then
string = dipro_version_string
end if
end subroutine get_dipro_version
end module xtb_dipro_version
xtb-6.7.1/src/dipro/xtb.F90 0000664 0000000 0000000 00000003766 14650006642 0015322 0 ustar 00root root 0000000 0000000 ! This file is part of the dipro module in xtb.
! SPDX-Identifier: LGPL-3.0-or-later
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
#ifndef WITH_TBLITE
#define WITH_TBLITE 0
#endif
!> Helper routines to handle calculations with the tblite library
module xtb_dipro_xtb
use mctc_env, only : error_type, fatal_error, wp
use mctc_io, only : structure_type
#if WITH_TBLITE
use tblite_xtb_calculator, only : xtb_calculator
use tblite_xtb_gfn2, only : new_gfn2_calculator
use tblite_xtb_gfn1, only : new_gfn1_calculator
use tblite_xtb_ipea1, only : new_ipea1_calculator
implicit none
private
public :: get_calculator
contains
!> Create a new calculator for a given method string
subroutine get_calculator(xcalc, mol, method, error)
!> Instance of the new calculator
type(xtb_calculator), intent(out) :: xcalc
!> Molecular structure data
type(structure_type), intent(in) :: mol
!> Name of the requested method
character(len=*), intent(in) :: method
!> Error handling
type(error_type), allocatable, intent(out) :: error
select case(method)
case default
call fatal_error(error, "Unknown method '"//method//"' requested")
! error stop
case("gfn2")
call new_gfn2_calculator(xcalc, mol)
case("gfn1")
call new_gfn1_calculator(xcalc, mol)
case("ipea1")
call new_ipea1_calculator(xcalc, mol)
end select
end subroutine get_calculator
#endif
end module xtb_dipro_xtb
xtb-6.7.1/src/disp/ 0000775 0000000 0000000 00000000000 14650006642 0014053 5 ustar 00root root 0000000 0000000 xtb-6.7.1/src/disp/CMakeLists.txt 0000664 0000000 0000000 00000001752 14650006642 0016620 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
set(dir "${CMAKE_CURRENT_SOURCE_DIR}")
list(APPEND srcs
"${dir}/coordinationnumber.f90"
"${dir}/dftd3.f"
"${dir}/dftd3.f90"
"${dir}/dftd3_parameters.f90"
"${dir}/dftd4.F90"
"${dir}/dftd4_parameters.f90"
"${dir}/encharges.f90"
"${dir}/ncoord.f90"
)
set(srcs ${srcs} PARENT_SCOPE)
xtb-6.7.1/src/disp/coordinationnumber.f90 0000664 0000000 0000000 00000043465 14650006642 0020310 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> TODO
module xtb_disp_coordinationnumber
use xtb_mctc_accuracy, only : wp
use xtb_mctc_constants, only : pi
use xtb_param_covalentradd3, only : covalentRadD3
use xtb_param_paulingen, only : paulingEN
use xtb_type_environment, only : TEnvironment
use xtb_type_molecule, only : TMolecule, len
use xtb_type_neighbourlist, only : TNeighbourList
use xtb_type_latticepoint, only : TLatticePoint, init_l
implicit none
private
public :: cnType, getCoordinationNumber, cutCoordinationNumber
interface getCoordinationNumber
module procedure :: getCoordinationNumberWrap
module procedure :: getCoordinationNumberNL
module procedure :: getCoordinationNumberLP
end interface getCoordinationNumber
!> Possible counting functions for calculating coordination numbers
type :: TCNTypeEnum
!> Counting function not specified
integer :: invalid = 0
!> Original DFT-D3 coordination number
integer :: exp = 1
!> Faster decaying error function CN, better for dense systems
integer :: erf = 2
!> Error function CN with covalency correction
integer :: cov = 3
!> Particular long-ranged version of the DFT-D3 coordination number
integer :: gfn = 4
end type TCNTypeEnum
!> Enumerator for different coordination number types
type(TCNTypeEnum), parameter :: cnType = TCNTypeEnum()
abstract interface
!> Abstract interface for the counting function (and its derivative)
pure function countingFunction(k, r, r0)
import :: wp
!> Constant for counting function
real(wp), intent(in) :: k
!> Actual distance
real(wp), intent(in) :: r
!> Critical distance
real(wp), intent(in) :: r0
!> Value of the counting function in the range of [0,1]
real(wp) :: countingFunction
end function countingFunction
end interface
!> Parameter for electronegativity scaling
real(wp),parameter :: k4=4.10451_wp
!> Parameter for electronegativity scaling
real(wp),parameter :: k5=19.08857_wp
!> Parameter for electronegativity scaling
real(wp),parameter :: k6=2*11.28174_wp**2
contains
!> Geometric fractional coordination number, supports both error function
! and exponential counting functions.
subroutine getCoordinationNumberWrap(env, mol, cf, cn, dcndr, dcndL, cutoff)
!> Source for error creation
character(len=*), parameter :: source = &
& 'disp_coordinationnumber_getCoordinationNumberWrap'
!> Computational Environment
type(TEnvironment), intent(inout) :: env
!> Molecular structure information
type(TMolecule), intent(in) :: mol
!> Coordination number type (by counting function)
integer, intent(in) :: cf
!> Error function coordination number
real(wp), intent(out) :: cn(:)
!> Derivative of the CN with respect to the Cartesian coordinates
real(wp), intent(out) :: dcndr(:, :, :)
!> Derivative of the CN with respect to strain deformations
real(wp), intent(out) :: dcndL(:, :, :)
!> Real space cutoff for the coordination number
real(wp), intent(in), optional :: cutoff
logical :: exitRun
real(wp) :: rCutoff
real(wp), allocatable :: trans(:, :)
type(TLatticePoint) :: latp
if (present(cutoff)) then
rCutoff = cutoff
else
rCutoff = 40.0_wp
end if
!> Initialize lattice point generator, this might fail
call init_l(latp, env, mol, rCutoff)
call env%check(exitRun)
if (exitRun) then
call env%error("Setup of lattice point generator failed", source)
return
end if
!> Generate a new batch of lattice points
call latp%getLatticePoints(trans, rCutoff)
!> Actual call to the lattice point version of the CN evaluation
call getCoordinationNumber(mol, trans, rCutoff, cf, cn, dcndr, dcndL)
end subroutine getCoordinationNumberWrap
!> Geometric fractional coordination number, supports both error function
! and exponential counting functions.
subroutine getCoordinationNumberNL(mol, neighs, neighlist, cf, cn, dcndr, dcndL)
!> Molecular structure information
type(TMolecule), intent(in) :: mol
!> Number of interacting neighbours
integer, intent(in) :: neighs(:)
!> Neighbourlist
type(TNeighbourList), intent(in) :: neighlist
!> Coordination number type (by counting function)
integer, intent(in) :: cf
!> Error function coordination number
real(wp), intent(out) :: cn(:)
!> Derivative of the CN with respect to the Cartesian coordinates
real(wp), intent(out) :: dcndr(:, :, :)
!> Derivative of the CN with respect to strain deformations
real(wp), intent(out) :: dcndL(:, :, :)
real(wp), parameter :: kcn_exp = 16.0_wp
real(wp), parameter :: kcn_erf = 7.5_wp
real(wp), parameter :: kcn_gfn = 10.0_wp
select case(cf)
case(cnType%exp)
call ncoordNeighs(mol, neighs, neighlist, kcn_exp, expCount, dexpCount, &
& .false., covalentRadD3, paulingEN, cn, dcndr, dcndL)
case(cnType%erf)
call ncoordNeighs(mol, neighs, neighlist, kcn_erf, erfCount, derfCount, &
& .false., covalentRadD3, paulingEN, cn, dcndr, dcndL)
case(cnType%cov)
call ncoordNeighs(mol, neighs, neighlist, kcn_erf, erfCount, derfCount, &
& .true., covalentRadD3, paulingEN, cn, dcndr, dcndL)
case(cnType%gfn)
call ncoordNeighs(mol, neighs, neighlist, kcn_gfn, gfnCount, dgfnCount, &
& .false., covalentRadD3, paulingEN, cn, dcndr, dcndL)
end select
end subroutine getCoordinationNumberNL
!> Actual implementation of the coordination number, takes a generic counting
! function to return the respective CN.
subroutine ncoordNeighs(mol, neighs, neighlist, kcn, cfunc, dfunc, enscale, &
& rcov, en, cn, dcndr, dcndL)
!> Molecular structure information
type(TMolecule), intent(in) :: mol
!> Number of interacting neighbours
integer, intent(in) :: neighs(:)
!> Neighbourlist
type(TNeighbourList), target, intent(in) :: neighlist
!> Function implementing the counting function
procedure(countingFunction) :: cfunc
!> Function implementing the derivative of counting function w.r.t. distance
procedure(countingFunction) :: dfunc
!> Use a covalency criterium by Pauling EN's
logical, intent(in) :: enscale
!> Steepness of counting function
real(wp), intent(in) :: kcn
!> Covalent radius
real(wp), intent(in) :: rcov(:)
!> Electronegativity
real(wp), intent(in) :: en(:)
!> Error function coordination number
real(wp), intent(out) :: cn(:)
!> Derivative of the CN with respect to the Cartesian coordinates
real(wp), intent(out) :: dcndr(:, :, :)
!> Derivative of the CN with respect to strain deformations
real(wp), intent(out) :: dcndL(:, :, :)
integer :: iat, jat, ati, atj, ij, img
real(wp) :: r2, r1, rc, rij(3), countf, countd(3), stress(3, 3), den
cn = 0.0_wp
dcndr = 0.0_wp
dcndL = 0.0_wp
!$omp parallel do default(none) private(den) shared(enscale, rcov, en)&
!$omp reduction(+:cn, dcndr, dcndL) shared(mol, kcn, neighlist, neighs) &
!$omp private(ij, img, jat, ati, atj, r2, rij, r1, rc, countf, countd, stress)
do iat = 1, len(mol)
ati = mol%at(iat)
do ij = 1, neighs(iat)
img = neighlist%iNeigh(ij, iat)
r2 = neighlist%dist2(ij, iat)
rij = neighlist%coords(:, iat) - neighlist%coords(:, img)
jat = neighlist%image(img)
atj = mol%at(jat)
r1 = sqrt(r2)
rc = rcov(ati) + rcov(atj)
if (enscale) then
den = k4*exp(-(abs(en(ati)-en(atj)) + k5)**2/k6)
else
den = 1.0_wp
endif
countf = den * cfunc(kcn, r1, rc)
countd = den * dfunc(kcn, r1, rc) * rij/r1
cn(iat) = cn(iat) + countf
if (iat /= jat) then
cn(jat) = cn(jat) + countf
endif
dcndr(:, iat, iat) = dcndr(:, iat, iat) + countd
dcndr(:, jat, jat) = dcndr(:, jat, jat) - countd
dcndr(:, iat, jat) = dcndr(:, iat, jat) + countd
dcndr(:, jat, iat) = dcndr(:, jat, iat) - countd
stress = spread(countd, 1, 3) * spread(rij, 2, 3)
dcndL(:, :, iat) = dcndL(:, :, iat) + stress
if (iat /= jat) then
dcndL(:, :, jat) = dcndL(:, :, jat) + stress
endif
enddo
enddo
!$omp end parallel do
end subroutine ncoordNeighs
!> Geometric fractional coordination number, supports both error function
! and exponential counting functions.
subroutine getCoordinationNumberLP(mol, trans, cutoff, cf, cn, dcndr, dcndL)
!> Molecular structure information
type(TMolecule), intent(in) :: mol
!> Lattice points
real(wp), intent(in) :: trans(:, :)
!> Real space cutoff
real(wp), intent(in) :: cutoff
!> Coordination number type (by counting function)
integer, intent(in) :: cf
!> Error function coordination number
real(wp), intent(out) :: cn(:)
!> Derivative of the CN with respect to the Cartesian coordinates
real(wp), intent(out) :: dcndr(:, :, :)
!> Derivative of the CN with respect to strain deformations
real(wp), intent(out) :: dcndL(:, :, :)
real(wp), parameter :: kcn_exp = 16.0_wp
real(wp), parameter :: kcn_erf = 7.5_wp
real(wp), parameter :: kcn_gfn = 10.0_wp
select case(cf)
case(cnType%exp)
call ncoordLatP(mol, trans, cutoff, kcn_exp, expCount, dexpCount, &
& .false., covalentRadD3, paulingEN, cn, dcndr, dcndL)
case(cnType%erf)
call ncoordLatP(mol, trans, cutoff, kcn_erf, erfCount, derfCount, &
& .false., covalentRadD3, paulingEN, cn, dcndr, dcndL)
case(cnType%cov)
call ncoordLatP(mol, trans, cutoff, kcn_erf, erfCount, derfCount, &
& .true., covalentRadD3, paulingEN, cn, dcndr, dcndL)
case(cnType%gfn)
call ncoordLatP(mol, trans, cutoff, kcn_gfn, gfnCount, dgfnCount, &
& .false., covalentRadD3, paulingEN, cn, dcndr, dcndL)
end select
end subroutine getCoordinationNumberLP
!> Actual implementation of the coordination number, takes a generic counting
! function to return the respective CN.
subroutine ncoordLatP(mol, trans, cutoff, kcn, cfunc, dfunc, enscale, &
& rcov, en, cn, dcndr, dcndL)
!> Molecular structure information
type(TMolecule), intent(in) :: mol
!> Lattice points
real(wp), intent(in) :: trans(:, :)
!> Real space cutoff
real(wp), intent(in) :: cutoff
!> Function implementing the counting function
procedure(countingFunction) :: cfunc
!> Function implementing the derivative of counting function w.r.t. distance
procedure(countingFunction) :: dfunc
!> Use a covalency criterium by Pauling EN's
logical, intent(in) :: enscale
!> Steepness of counting function
real(wp), intent(in) :: kcn
!> Covalent radius
real(wp), intent(in) :: rcov(:)
!> Electronegativity
real(wp), intent(in) :: en(:)
!> Error function coordination number.
real(wp), intent(out) :: cn(:)
!> Derivative of the CN with respect to the Cartesian coordinates.
real(wp), intent(out) :: dcndr(:, :, :)
!> Derivative of the CN with respect to strain deformations.
real(wp), intent(out) :: dcndL(:, :, :)
integer :: iat, jat, ati, atj, itr
real(wp) :: r2, r1, rc, rij(3), countf, countd(3), stress(3, 3), den, cutoff2
cn = 0.0_wp
dcndr = 0.0_wp
dcndL = 0.0_wp
cutoff2 = cutoff**2
!$omp parallel do default(none) private(den) shared(enscale, rcov, en)&
!$omp reduction(+:cn, dcndr, dcndL) shared(mol, kcn, trans, cutoff2) &
!$omp private(jat, itr, ati, atj, r2, rij, r1, rc, countf, countd, stress)
do iat = 1, len(mol)
ati = mol%at(iat)
do jat = 1, iat
atj = mol%at(jat)
if (enscale) then
den = k4*exp(-(abs(en(ati)-en(atj)) + k5)**2/k6)
else
den = 1.0_wp
end if
do itr = 1, size(trans, dim=2)
rij = mol%xyz(:, iat) - (mol%xyz(:, jat) + trans(:, itr))
r2 = sum(rij**2)
if (r2 > cutoff2 .or. r2 < 1.0e-12_wp) cycle
r1 = sqrt(r2)
rc = rcov(ati) + rcov(atj)
countf = den * cfunc(kcn, r1, rc)
countd = den * dfunc(kcn, r1, rc) * rij/r1
cn(iat) = cn(iat) + countf
if (iat /= jat) then
cn(jat) = cn(jat) + countf
end if
dcndr(:, iat, iat) = dcndr(:, iat, iat) + countd
dcndr(:, jat, jat) = dcndr(:, jat, jat) - countd
dcndr(:, iat, jat) = dcndr(:, iat, jat) + countd
dcndr(:, jat, iat) = dcndr(:, jat, iat) - countd
stress = spread(countd, 1, 3) * spread(rij, 2, 3)
dcndL(:, :, iat) = dcndL(:, :, iat) + stress
if (iat /= jat) then
dcndL(:, :, jat) = dcndL(:, :, jat) + stress
end if
end do
end do
end do
!$omp end parallel do
end subroutine ncoordLatP
!> Error function counting function for coordination number contributions.
pure function erfCount(k, r, r0) result(count)
!> Steepness of the counting function.
real(wp), intent(in) :: k
!> Current distance.
real(wp), intent(in) :: r
!> Cutoff radius.
real(wp), intent(in) :: r0
real(wp) :: count
count = 0.5_wp * (1.0_wp + erf(-k*(r-r0)/r0))
end function erfCount
!> Derivative of the counting function w.r.t. the distance.
pure function derfCount(k, r, r0) result(count)
!> Steepness of the counting function.
real(wp), intent(in) :: k
!> Current distance.
real(wp), intent(in) :: r
!> Cutoff radius.
real(wp), intent(in) :: r0
real(wp), parameter :: sqrtpi = sqrt(pi)
real(wp) :: count
count = -k/sqrtpi/r0*exp(-k**2*(r-r0)**2/r0**2)
end function derfCount
!> Exponential counting function for coordination number contributions.
pure function expCount(k, r, r0) result(count)
!> Steepness of the counting function.
real(wp), intent(in) :: k
!> Current distance.
real(wp), intent(in) :: r
!> Cutoff radius.
real(wp), intent(in) :: r0
real(wp) :: count
count =1.0_wp/(1.0_wp+exp(-k*(r0/r-1.0_wp)))
end function expCount
!> Derivative of the counting function w.r.t. the distance.
pure function dexpCount(k, r, r0) result(count)
!> Steepness of the counting function.
real(wp), intent(in) :: k
!> Current distance.
real(wp), intent(in) :: r
!> Cutoff radius.
real(wp), intent(in) :: r0
real(wp) :: count
real(wp) :: expterm
expterm = exp(-k*(r0/r-1._wp))
count = (-k*r0*expterm)/(r**2*((expterm+1._wp)**2))
end function dexpCount
!> Exponential counting function for coordination number contributions.
pure function gfnCount(k, r, r0) result(count)
!> Steepness of the counting function.
real(wp), intent(in) :: k
!> Current distance.
real(wp), intent(in) :: r
!> Cutoff radius.
real(wp), intent(in) :: r0
real(wp) :: count
count = expCount(k, r, r0) * expCount(2*k, r, r0+2)
end function gfnCount
!> Derivative of the counting function w.r.t. the distance.
pure function dgfnCount(k, r, r0) result(count)
!> Steepness of the counting function.
real(wp), intent(in) :: k
!> Current distance.
real(wp), intent(in) :: r
!> Cutoff radius.
real(wp), intent(in) :: r0
real(wp) :: count
count = dexpCount(k, r, r0) * expCount(2*k, r, r0+2) &
& + expCount(k, r, r0) * dexpCount(2*k, r, r0+2)
end function dgfnCount
!> Cutoff function for large coordination numbers
pure subroutine cutCoordinationNumber(nAtom, cn, dcndr, dcndL, maxCN)
!> number of atoms
integer, intent(in) :: nAtom
!> on input coordination number, on output modified CN
real(wp), intent(inout) :: cn(:)
!> on input derivative of CN w.r.t. cartesian coordinates,
!> on output derivative of modified CN
real(wp), intent(inout), optional :: dcndr(:, :, :)
!> on input derivative of CN w.r.t. strain deformation,
!> on output derivative of modified CN
real(wp), intent(inout), optional :: dcndL(:, :, :)
!> maximum CN (not strictly obeyed)
real(wp), intent(in), optional :: maxCN
real(wp) :: cnmax
integer :: iAt
if (present(maxCN)) then
cnmax = maxCN
else
cnmax = 4.5_wp
end if
if (cnmax <= 0.0_wp) return
if (present(dcndL)) then
do iAt = 1, nAtom
dcndL(:, :, iAt) = dcndL(:, :, iAt) * dCutCN(cn(iAt), cnmax)
end do
end if
if (present(dcndr)) then
do iAt = 1, nAtom
dcndr(:, :, iAt) = dcndr(:, :, iAt) * dCutCN(cn(iAt), cnmax)
end do
end if
do iAt = 1, nAtom
cn(iAt) = cutCN(cn(iAt), cnmax)
end do
end subroutine cutCoordinationNumber
!> Cutting function for the coordination number.
elemental function cutCN(cn, cut) result(cnp)
!> Current coordination number.
real(wp), intent(in) :: cn
!> Cutoff for the CN, this is not the maximum value.
real(wp), intent(in) :: cut
!> Cuting function vlaue
real(wp) :: cnp
cnp = log(1.0_wp + exp(cut)) - log(1.0_wp + exp(cut - cn))
end function cutCN
!> Derivative of the cutting function w.r.t. coordination number
elemental function dCutCN(cn, cut) result(dcnpdcn)
!> Current coordination number.
real(wp), intent(in) :: cn
!> Cutoff for the CN, this is not the maximum value.
real(wp), intent(in) :: cut
!> Derivative of the cutting function
real(wp) :: dcnpdcn
dcnpdcn = exp(cut)/(exp(cut) + exp(cn))
end function dCutCn
end module xtb_disp_coordinationnumber
xtb-6.7.1/src/disp/dftd3.f 0000664 0000000 0000000 00000202705 14650006642 0015234 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
subroutine gdisp(n,iz,xyz,a1,a2,s8,abcscal,disp,g,cn,dcnij)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_convert, only : autokcal, autoang => autoaa
use xtb_mctc_param, only: r2r4 => sqrt_z_r4_over_r2,
& rcov => covalent_radius_d3
use xtb_disp_ncoord, only : ncoord_d3
use xtb_disp_dftd3param
implicit none
integer max_elem,maxc
parameter (max_elem=94)
parameter (maxc =5)
real(wp) k1,k3
parameter (k1 =16)
parameter (k3 =-4)
integer n,iz(*)
real(wp) xyz(3,*)
real(wp) g(3,*)
real(wp) gd(3,n)
real(wp) gnorm
real(wp) dcnij(3,n,n)
real(wp) cn(n)
real(wp) abcscal
logical echo
integer iat,jat,i,j,kat
real(wp) R0,C6,alp,R42,disp,y1,z1,x2,y2,z2,rr,e6abc
real(wp) dx,dy,dz,r2,r,r4,r6,r8,r10,r12,t6,t8,t10,damp1
real(wp) damp6,damp8,damp10,e6,e8,e10,e12,tmp1
real(wp) s10,gC6(3),term,step,dispr,displ,r235,tmp2
real(wp) gx1,gy1,gz1,gx2,gy2,gz2,rthr,c8,cn_thr
real(wp) rthr3,s6
! zerodamping stuff
real(wp) rs6,rs8
real(wp) rij(3),rik(3),rjk(3),r7,r9
real(wp) rik_dist,rjk_dist
real(wp) drij(n*(n+1)/2) !d(E)/d(r_ij) derivative wrt. dist. iat-jat
real(wp) drik,drjk
real(wp) rcovij
real(wp) dc6,c6chk !d(C6ij)/d(r_ij)
real(wp) expterm,dcni
real(wp) dcn !dCN(iat)/d(r_ij) is equal to
!dCN(jat)/d(r_ij)
real(wp) dc6_rest ! saves (1/r^6*f_dmp + 3*r4r2/r^8*f_dmp) for kat loop
integer,external :: lin
integer linij,linik,linjk
real(wp) vec(3),vec2(3)
real(wp) dc6ij(n,n) !dC6(iat,jat)/dCN(iat) in dc6ij(i,j)
!dC6(iat,jat)/cCN(jat) in dc6ij(j,i)
logical skip(n*(n+1)/2),noabc
c some more for new faster derivative
real(wp) dc6iji,dc6ijj,x1
real(wp) dc6i(n) ! dE_disp/dCN(iat) in dc6i(iat)
real(wp) a1,a2,s8
c for abccalc
c cut-off radii for all element pairs
real(wp) r0ab(max_elem,max_elem)
logical abccalc(n*(n+1)/2)
real(wp) abcthr
real(wp) labc,rabc
real(wp) c6abc(n*(n+1)/2)
real(wp) r2abc(n*(n+1)/2)
real(wp) r3abc(n*(n+1)/2)
real(wp) c9,rav,rav3,fdmp,ang,angr9,eabc,dc9,dfdmp,dang
real(wp) r2ij,r2jk,r2ik,mijk,imjk,ijmk,rijk3
integer mat,linim,linjm,linkm,kk
real(wp) alp6,alp8,alp10
disp=0
c EHJC start: set disp gradient to zero
gd=0
gnorm=0
c EHJC end
if(a2.lt.1.d-6) return
rthr=5000.d0
cn_thr=1000.d0
abcthr=1600.d0
s6=1.0d0
alp=14.
! for zero-damping
! rs6= a1
! rs8= a1
! alp =a2
dc6i=0.0d0
dc6ij=0.0d0
drij=0.0d0
dc6_rest=0.0d0
dcn=0.0d0
kat=0
skip=.true.
noabc=.true.
if(abcscal.gt.1.d-6) noabc=.false.
dcnij=0.0d0
dc6i=0.0d0
eabc=0.0d0
abccalc=.FALSE.
alp6 = alp
alp8 = alp+2.
alp10= alp8+2.
!JGB get r0 for abc
if(.not.noabc) then
call setr0ab(max_elem,autoang,r0ab)
endif
c BJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJ
c Becke-Johnson finite damping
call ncoord_d3(n,iz,xyz,cn,thr=cn_thr)
! if(echo) write(*,*)'initializing D3 ...'
! if(echo) write(*,'(a,4f10.4)')' s6,s8,a1,a2 ',s6,s8,a1,a2
do iat=1,n
do jat=1,iat-1
rij=xyz(:,jat)-xyz(:,iat)
r2=sum(rij*rij)
if (r2.gt.rthr) cycle
linij=lin(iat,jat)
r0=r0ab(iz(jat),iz(iat))
r42=r2r4(iz(iat))*r2r4(iz(jat))
!
! get_dC6_dCNij calculates the derivative dC6(iat,jat)/dCN(iat) and
! dC6(iat,jat)/dCN(jat).
!
call get_dC6_dCNij(number_of_references(iz(iat)),
& number_of_references(iz(jat)),cn(iat),cn(jat),
& iz(iat),iz(jat),iat,jat,c6,dc6iji,dc6ijj)
r=dsqrt(r2)
r4=r2*r2
r6=r4*r2
r7=r6*r
r8=r6*r2
r9=r8*r
if ((.not.noabc).and.(r2.lt.abcthr)) then
! if (.not.noabc) then
abccalc(linij)=.TRUE.
dc6ij(iat,jat)=dc6iji
dc6ij(jat,iat)=dc6ijj
c6abc(linij)=c6
r2abc(linij)=r2
r3abc(linij)=(r/r0)**(1.0/3.0)
endif !noabc
! *** zero damping version ***
! Calculates damping functions:
! t6 = (r/(rs6*r0))**(-alp6)
!
! damp6 =1.d0/( 1.d0+6.d0*t6 )
! t8 = (r/(rs8*r0))**(-alp8)
! damp8 =1.d0/( 1.d0+6.d0*t8 )
! tmp1=s6*6.d0*damp6*C6/r7
! tmp2=s8*6.d0*C6*r42*damp8/r9
! drij(linij)=drij(linij)-tmp1 ! d(r^(-6))/d(r_ij)
! . -4.d0*tmp2
! drij(linij)=drij(linij)
! . +tmp1*alp6*t6*damp6 !d(f_dmp)/d(r_ij)
! . +3.d0*tmp2*alp8*t8*damp8
! dc6_rest=s6/r6*damp6+3.d0*s8*r42/r8*damp8
! *** end zero damping ***
! **** BJ variant ***
!! use BJ radius
R0=a1*dsqrt(3.0d0*r42)+a2
t6=(r6+R0**6)
t8=(r8+R0**8)
drij(linij)=drij(linij)
. -s6*C6*6.0d0*r4*r/(t6*t6)
. -s8*C6*24.0d0*r42*r6*r/(t8*t8)
dc6_rest=s6/t6+3.d0*s8*r42/t8
! *** end BJ variant ***
! saving all (1/r^6...)* dC6/dCN(i) for each atom
disp=disp-dc6_rest*c6 ! calculate E_disp for sanity check
dc6i(iat)=dc6i(iat)+dc6_rest*dc6iji
dc6i(jat)=dc6i(jat)+dc6_rest*dc6ijj
enddo !jat
enddo !iat
if(.not.noabc)then
! write(*,*) 'doing analytical gradient O(N^3) ...'
! if(echo)write(*,*) 'doing analytical gradient O(N^3) ...'
do iat=1,n
do jat=1,iat-1
linij=lin(iat,jat)
if(.NOT.abccalc(linij))cycle
r2ij=r2abc(linij)
do kat=1,jat-1
linik=lin(iat,kat)
linjk=lin(jat,kat)
if(.NOT.(abccalc(linjk).AND.abccalc(linik)))cycle !cutoff crit
! calculating the 3body energy:
r2jk=r2abc(linjk)
r2ik=r2abc(linik)
c9=c6abc(linij)*c6abc(linjk)*c6abc(linik)
c9=abcscal*dsqrt(c9)
rav=r3abc(linij)*r3abc(linjk)*r3abc(linik)
fdmp=1.d0/(1.d0+6.d0*(0.75d0*rav)**(-alp8))
mijk=-r2ij+r2jk+r2ik
imjk= r2ij-r2jk+r2ik
ijmk= r2ij+r2jk-r2ik
rijk3=r2ij*r2jk*r2ik
rav3=rijk3**1.5
ang=0.375d0*ijmk*imjk*mijk/rijk3
angr9=(ang +1.0d0)
. /rav3
eabc=eabc+c9*angr9*fdmp
!end of 3body energy calculation
!start calculating the derivatives of each part w.r.t. r_ij
r=dsqrt(r2ij)
dfdmp=-2.d0*alp8*(0.75d0*rav)**(-alp8)*fdmp*fdmp
dang=-0.375d0*(r2ij**3+r2ij**2*(r2jk+r2ik)
. +r2ij*(3.0d0*r2jk**2+2.0*r2jk*r2ik+3.0*r2ik**2)
. -5.0*(r2jk-r2ik)**2*(r2jk+r2ik))
. /(r*rijk3*rav3)
tmp1=dfdmp/r*c9*angr9-dang*c9*fdmp
drij(linij)=drij(linij)+tmp1
!start calculating the derivatives of each part w.r.t. r_jk
r=dsqrt(r2jk)
dang=-0.375d0*(r2jk**3+r2jk**2*(r2ik+r2ij)
. +r2jk*(3.0d0*r2ik**2+2.0*r2ik*r2ij+3.0*r2ij**2)
. -5.0*(r2ik-r2ij)**2*(r2ik+r2ij))
. /(r*rijk3*rav3)
drij(linjk)=drij(linjk)
. +dfdmp/r*c9*angr9-dang*c9*fdmp
!start calculating the derivatives of each part w.r.t. r_ik
r=dsqrt(r2abc(linik))
dang=-0.375d0*(r2ik**3+r2ik**2*(r2jk+r2ij)
. +r2ik*(3.0d0*r2jk**2+2.0*r2jk*r2ij+3.0*r2ij**2)
. -5.0*(r2jk-r2ij)**2*(r2jk+r2ij))
. /(r*rijk3*rav3)
drij(linik)=drij(linik)
. +dfdmp/r*c9*angr9-dang*c9*fdmp
! calculate rest* dc9/dcn(iat) and sum it up for every atom ijk
dc6_rest=angr9*fdmp
dc9=dc6ij(iat,jat)/c6abc(linij)+dc6ij(iat,kat)/
. c6abc(linik)
dc9=-0.5d0*c9*dc9
dc6i(iat)=dc6i(iat)+dc6_rest*dc9
dc9=dc6ij(jat,iat)/c6abc(linij)+dc6ij(jat,kat)/c6abc(linjk)
dc9=-0.5d0*c9*dc9
dc6i(jat)=dc6i(jat)+dc6_rest*dc9
dc9=dc6ij(kat,iat)/c6abc(linik)+dc6ij(kat,jat)/c6abc(linjk)
dc9=-0.5d0*c9*dc9
dc6i(kat)=dc6i(kat)+dc6_rest*dc9
ENDDO !kat
ENDDO !jat
ENDDO !iat
c EHJC start: get ATM energy
disp=disp+eabc
c EHJC end
endif !noabc
! After calculating all derivatives dE/dr_ij w.r.t. distances,
! the grad w.r.t. the coordinates is calculated dE/dr_ij * dr_ij/dxyz_i
do iat=2,n
do jat=1,iat-1
linij=lin(iat,jat)
rij=xyz(:,jat)-xyz(:,iat)
r2=sum(rij*rij)
r=dsqrt(r2)
if (r2.lt.cn_thr) then
rcovij=rcov(iz(iat))+rcov(iz(jat))
expterm=exp(-k1*(rcovij/r-1.d0))
dcn=-k1*rcovij*expterm/
. (r*r*(expterm+1.d0)*(expterm+1.d0))
else
dcn=0.d0
endif
x1=drij(linij)+dcn*(dc6i(iat)+dc6i(jat))
g(:,iat)=g(:,iat)+x1*rij/r
g(:,jat)=g(:,jat)-x1*rij/r
! now dCN/dxyz
! dcn(1:3,j,i) : derivative of CN(j) for xyz-displacements of atom i
dcnij(:,jat,jat)=dcnij(:,jat,jat)+dcn*rij/r
dcnij(:,iat,jat)=dcn*rij/r
dcnij(:,jat,iat)=-dcn*rij/r
dcnij(:,iat,iat)=dcnij(:,iat,iat)-dcn*rij/r
enddo !iat
enddo !jat
999 continue
! write(*,'('' Edisp /kcal,au:'',f11.4,f12.8)') disp*autokcal,disp
c EHJC start: write disp gradient to file
c gnorm=sum(abs(g(1:3,1:n)))
c write(*,*)
c write(*,*)'|G|=',gnorm
c call outg(n,g,'dftd3_xec')
c EHJC end
end subroutine gdisp
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C The N E W gradC6 routine C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
!
subroutine get_dC6_dCNij(mxci,mxcj,cni,cnj,
. izi,izj,iat,jat,c6check,dc6i,dc6j)
use xtb_mctc_accuracy, only : wp
use xtb_disp_dftd3param
IMPLICIT NONE
real(wp) k1,k3
parameter (k1 =16)
parameter (k3 =-4)
integer mxci,mxcj !mxc(iz(iat))
real(wp) cni,cnj,term
integer iat,jat,izi,izj
real(wp) dc6i,dc6j,c6check
integer i,j,a,b
real(wp) zaehler,nenner,dzaehler_i,dnenner_i,dzaehler_j,dnenner_j
real(wp) expterm,cn_refi,cn_refj,c6ref,r
real(wp) c6mem,r_save
c6mem=-1.d99
r_save=9999.0
zaehler=0.0d0
nenner=0.0d0
dzaehler_i=0.d0
dnenner_i=0.d0
dzaehler_j=0.d0
dnenner_j=0.d0
DO a=1,mxci
DO b=1,mxcj
c6ref=get_c6(a,b,izi,izj)!c6ab(izi,izj,a,b,1)
if (c6ref.gt.0) then
! c6mem=c6ref
cn_refi=reference_cn(a,izi) !c6ab(izi,izj,a,b,2)
cn_refj=reference_cn(b,izj) !c6ab(izi,izj,a,b,3)
r=(cn_refi-cni)*(cn_refi-cni)+(cn_refj-cnj)*(cn_refj-cnj)
if (r.lt.r_save) then
r_save=r
c6mem=c6ref
endif
expterm=exp(k3*r)
zaehler=zaehler+c6ref*expterm
nenner=nenner+expterm
expterm=expterm*2.d0*k3
term=expterm*(cni-cn_refi)
dzaehler_i=dzaehler_i+c6ref*term
dnenner_i =dnenner_i + term
term=expterm*(cnj-cn_refj)
dzaehler_j=dzaehler_j+c6ref*term
dnenner_j =dnenner_j + term
endif
ENDDO !b
ENDDO !a
if (nenner.gt.1.0d-99) then
c6check=zaehler/nenner
dc6i=((dzaehler_i*nenner)-(dnenner_i*zaehler))
. /(nenner*nenner)
dc6j=((dzaehler_j*nenner)-(dnenner_j*zaehler))
. /(nenner*nenner)
else
c6check=c6mem
dc6i=0.0d0
dc6j=0.0d0
endif
end subroutine get_dC6_dCNij
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
subroutine abcdisp(n,iz,xyz,eabc)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_convert, only : autokcal, autoang => autoaa
use xtb_mctc_param, only : r2r4 => sqrt_z_r4_over_r2,
& rcov => covalent_radius_d3
use xtb_disp_ncoord, only : ncoord_d3
use xtb_disp_dftd3param
implicit none
integer max_elem,maxc
parameter (max_elem=94)
parameter (maxc =5)
real(wp) k1,k3
parameter (k1 =16)
parameter (k3 =-4)
integer n,iz(*)
real(wp) xyz(3,*)
integer iat,jat,i,j,kat
real(wp) R0,C6,alp,R42,disp,y1,z1,x2,y2,z2,rr,e6abc
real(wp) dx,dy,dz,r2,r,r4,r6,r8,r10,r12,t6,t8,t10,damp1
real(wp) damp6,damp8,damp10,e6,e8,e10,e12,tmp1
real(wp) s10,gC6(3),term,step,dispr,displ,r235,tmp2
real(wp) gx1,gy1,gz1,gx2,gy2,gz2,rthr,c8,cn_thr
real(wp) rthr3,s6
real(wp) cn(n)
real(wp) rij(3),rik(3),rjk(3),r7,r9
real(wp) rik_dist,rjk_dist
real(wp) drij(n*(n+1)/2) !d(E)/d(r_ij) derivative wrt. dist. iat-jat
real(wp) drik,drjk
real(wp) rcovij
real(wp) dc6,c6chk !d(C6ij)/d(r_ij)
real(wp) expterm,dcni
real(wp) dcn !dCN(iat)/d(r_ij) is equal to
!dCN(jat)/d(r_ij)
real(wp) dc6_rest ! saves (1/r^6*f_dmp + 3*r4r2/r^8*f_dmp) for kat loop
integer,external :: lin
integer linij,linik,linjk
real(wp) vec(3),vec2(3)
real(wp) dc6ij(n,n) !dC6(iat,jat)/dCN(iat) in dc6ij(i,j)
!dC6(iat,jat)/cCN(jat) in dc6ij(j,i)
c some more for new faster derivative
real(wp) dc6iji,dc6ijj,x1
real(wp) dc6i(n) ! dE_disp/dCN(iat) in dc6i(iat)
c for abccalc
c cut-off radii for all element pairs
real(wp) r0ab(max_elem,max_elem)
logical abccalc(n*(n+1)/2)
real(wp) abcthr
real(wp) labc,rabc
real(wp) c6abc(n*(n+1)/2)
real(wp) r2abc(n*(n+1)/2)
real(wp) r3abc(n*(n+1)/2)
real(wp) c9,rav,rav3,fdmp,ang,angr9,eabc,dc9,dfdmp,dang
real(wp) r2ij,r2jk,r2ik,mijk,imjk,ijmk,rijk3
integer mat,linim,linjm,linkm,kk
real(wp) alp6,alp8
eabc=0
rthr=4000.d0
cn_thr=1000.d0
abcthr= 600.d0
s6=1.0d0
alp=14.
dc6i=0.0d0
dc6ij=0.0d0
drij=0.0d0
dc6_rest=0.0d0
dcn=0.0d0
kat=0
dc6i=0.0d0
eabc=0.0d0
abccalc=.FALSE.
alp6 = alp
alp8 = alp+2.
call setr0ab(max_elem,autoang,r0ab)
c BJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJBJ
c Becke-Johnson finite damping
call ncoord_d3(n,iz,xyz,cn,thr=cn_thr)
! if(echo) write(*,*)'initializing D3 ...'
! if(echo) write(*,'(a,4f10.4)')' s6,s8,a1,a2 ',s6,s8,a1,a2
do iat=1,n
do jat=1,iat-1
rij=xyz(:,jat)-xyz(:,iat)
r2=sum(rij*rij)
if (r2.gt.rthr) cycle
linij=lin(iat,jat)
r0=r0ab(iz(jat),iz(iat))
!
! get_dC6_dCNij calculates the derivative dC6(iat,jat)/dCN(iat) and
! dC6(iat,jat)/dCN(jat).
!
call get_dC6_dCNij(number_of_references(iz(iat)),
& number_of_references(iz(jat)),cn(iat),cn(jat),
& iz(iat),iz(jat),iat,jat,c6,dc6iji,dc6ijj)
r=dsqrt(r2)
if (r2.lt.abcthr) then
abccalc(linij)=.TRUE.
c6abc(linij)=c6
r2abc(linij)=r2
r3abc(linij)=(r/r0)**(1.0/3.0)
endif
enddo !jat
enddo !iat
do iat=1,n
do jat=1,iat-1
linij=lin(iat,jat)
if(.NOT.abccalc(linij))cycle
r2ij=r2abc(linij)
do kat=1,jat-1
linik=lin(iat,kat)
linjk=lin(jat,kat)
if(.NOT.(abccalc(linjk).AND.abccalc(linik)))cycle !cutoff crit
! calculating the 3body energy:
r2jk=r2abc(linjk)
r2ik=r2abc(linik)
c9=c6abc(linij)*c6abc(linjk)*c6abc(linik)
c9=dsqrt(c9)
rav=(4./3.)/(r3abc(linij)*r3abc(linjk)*r3abc(linik))
write(*,*)'rav_ref', rav
fdmp=1.d0/(1.d0+6.d0*(rav)**(-alp8))
c EHJC: set alp8 to 101.0d0
c fdmp=1.d0/(1.d0+6.d0*(rav)**(101.d0))
mijk=-r2ij+r2jk+r2ik
imjk= r2ij-r2jk+r2ik
ijmk= r2ij+r2jk-r2ik
rijk3=r2ij*r2jk*r2ik
rav3=rijk3**1.5
ang=0.375d0*ijmk*imjk*mijk/rijk3
angr9=(ang +1.0d0)/rav3
eabc=eabc+c9*angr9*fdmp
ENDDO !kat
ENDDO !jat
ENDDO !iat
write(*,*)'Eatm', eabc
end
subroutine getc6(iat,jat,nci,ncj,c6)
use xtb_mctc_accuracy, only : wp
use xtb_disp_dftd3param
implicit none
integer iat,jat,i,j
real(wp) nci,ncj,c6,c6mem
c the exponential is sensitive to numerics
c when nci or ncj is much larger than cn1/cn2
real(wp) cn1,cn2,r,rsum,csum,tmp,tmp1
real(wp) r_save
real(wp) k1,k3
parameter (k1 =16)
parameter (k3 =-4)
c6mem=-1.d+99
rsum=0.0
csum=0.0
c6 =0.0
r_save=1000.0
do i=1,number_of_references(iat)
do j=1,number_of_references(jat)
c6=get_c6(i,j,iat,jat)
if(c6.gt.0)then
! c6mem=c6
cn1=reference_cn(i,iat)
cn2=reference_cn(j,jat)
c distance
r=(cn1-nci)**2+(cn2-ncj)**2
if (r.lt.r_save) then
r_save=r
c6mem=c6
endif
tmp1=exp(k3*r)
rsum=rsum+tmp1
csum=csum+tmp1*c6
endif
enddo
enddo
if(rsum.gt.1.0d-99)then
c6=csum/rsum
else
c6=c6mem
endif
end subroutine getc6
c integer function lin(i1,i2)
c integer i1,i2
c integer idum1,idum2
c idum1=max(i1,i2)
c idum2=min(i1,i2)
c lin=idum2+idum1*(idum1-1)/2
c return
c end
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C set cut-off radii
C in parts due to INTEL compiler bug
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
subroutine setr0ab(max_elem,autoang,r)
use xtb_mctc_accuracy, only : wp
implicit none
integer max_elem,i,j,k
real(wp) r(max_elem,max_elem),autoang
real(wp) r0ab(4465)
r0ab( 1: 70)=(/
. 2.1823, 1.8547, 1.7347, 2.9086, 2.5732, 3.4956, 2.3550
., 2.5095, 2.9802, 3.0982, 2.5141, 2.3917, 2.9977, 2.9484
., 3.2160, 2.4492, 2.2527, 3.1933, 3.0214, 2.9531, 2.9103
., 2.3667, 2.1328, 2.8784, 2.7660, 2.7776, 2.7063, 2.6225
., 2.1768, 2.0625, 2.6395, 2.6648, 2.6482, 2.5697, 2.4846
., 2.4817, 2.0646, 1.9891, 2.5086, 2.6908, 2.6233, 2.4770
., 2.3885, 2.3511, 2.2996, 1.9892, 1.9251, 2.4190, 2.5473
., 2.4994, 2.4091, 2.3176, 2.2571, 2.1946, 2.1374, 2.9898
., 2.6397, 3.6031, 3.1219, 3.7620, 3.2485, 2.9357, 2.7093
., 2.5781, 2.4839, 3.7082, 2.5129, 2.7321, 3.1052, 3.2962
./)
r0ab( 71: 140)=(/
. 3.1331, 3.2000, 2.9586, 3.0822, 2.8582, 2.7120, 3.2570
., 3.4839, 2.8766, 2.7427, 3.2776, 3.2363, 3.5929, 3.2826
., 3.0911, 2.9369, 2.9030, 2.7789, 3.3921, 3.3970, 4.0106
., 2.8884, 2.6605, 3.7513, 3.1613, 3.3605, 3.3325, 3.0991
., 2.9297, 2.8674, 2.7571, 3.8129, 3.3266, 3.7105, 3.7917
., 2.8304, 2.5538, 3.3932, 3.1193, 3.1866, 3.1245, 3.0465
., 2.8727, 2.7664, 2.6926, 3.4608, 3.2984, 3.5142, 3.5418
., 3.5017, 2.6190, 2.4797, 3.1331, 3.0540, 3.0651, 2.9879
., 2.9054, 2.8805, 2.7330, 2.6331, 3.2096, 3.5668, 3.3684
., 3.3686, 3.3180, 3.3107, 2.4757, 2.4019, 2.9789, 3.1468
./)
r0ab( 141: 210)=(/
. 2.9768, 2.8848, 2.7952, 2.7457, 2.6881, 2.5728, 3.0574
., 3.3264, 3.3562, 3.2529, 3.1916, 3.1523, 3.1046, 2.3725
., 2.3289, 2.8760, 2.9804, 2.9093, 2.8040, 2.7071, 2.6386
., 2.5720, 2.5139, 2.9517, 3.1606, 3.2085, 3.1692, 3.0982
., 3.0352, 2.9730, 2.9148, 3.2147, 2.8315, 3.8724, 3.4621
., 3.8823, 3.3760, 3.0746, 2.8817, 2.7552, 2.6605, 3.9740
., 3.6192, 3.6569, 3.9586, 3.6188, 3.3917, 3.2479, 3.1434
., 4.2411, 2.7597, 3.0588, 3.3474, 3.6214, 3.4353, 3.4729
., 3.2487, 3.3200, 3.0914, 2.9403, 3.4972, 3.7993, 3.6773
., 3.8678, 3.5808, 3.8243, 3.5826, 3.4156, 3.8765, 4.1035
./)
r0ab( 211: 280)=(/
. 2.7361, 2.9765, 3.2475, 3.5004, 3.4185, 3.4378, 3.2084
., 3.2787, 3.0604, 2.9187, 3.4037, 3.6759, 3.6586, 3.8327
., 3.5372, 3.7665, 3.5310, 3.3700, 3.7788, 3.9804, 3.8903
., 2.6832, 2.9060, 3.2613, 3.4359, 3.3538, 3.3860, 3.1550
., 3.2300, 3.0133, 2.8736, 3.4024, 3.6142, 3.5979, 3.5295
., 3.4834, 3.7140, 3.4782, 3.3170, 3.7434, 3.9623, 3.8181
., 3.7642, 2.6379, 2.8494, 3.1840, 3.4225, 3.2771, 3.3401
., 3.1072, 3.1885, 2.9714, 2.8319, 3.3315, 3.5979, 3.5256
., 3.4980, 3.4376, 3.6714, 3.4346, 3.2723, 3.6859, 3.8985
., 3.7918, 3.7372, 3.7211, 2.9230, 2.6223, 3.4161, 2.8999
./)
r0ab( 281: 350)=(/
. 3.0557, 3.3308, 3.0555, 2.8508, 2.7385, 2.6640, 3.5263
., 3.0277, 3.2990, 3.7721, 3.5017, 3.2751, 3.1368, 3.0435
., 3.7873, 3.2858, 3.2140, 3.1727, 3.2178, 3.4414, 2.5490
., 2.7623, 3.0991, 3.3252, 3.1836, 3.2428, 3.0259, 3.1225
., 2.9032, 2.7621, 3.2490, 3.5110, 3.4429, 3.3845, 3.3574
., 3.6045, 3.3658, 3.2013, 3.6110, 3.8241, 3.7090, 3.6496
., 3.6333, 3.0896, 3.5462, 2.4926, 2.7136, 3.0693, 3.2699
., 3.1272, 3.1893, 2.9658, 3.0972, 2.8778, 2.7358, 3.2206
., 3.4566, 3.3896, 3.3257, 3.2946, 3.5693, 3.3312, 3.1670
., 3.5805, 3.7711, 3.6536, 3.5927, 3.5775, 3.0411, 3.4885
./)
r0ab( 351: 420)=(/
. 3.4421, 2.4667, 2.6709, 3.0575, 3.2357, 3.0908, 3.1537
., 2.9235, 3.0669, 2.8476, 2.7054, 3.2064, 3.4519, 3.3593
., 3.2921, 3.2577, 3.2161, 3.2982, 3.1339, 3.5606, 3.7582
., 3.6432, 3.5833, 3.5691, 3.0161, 3.4812, 3.4339, 3.4327
., 2.4515, 2.6338, 3.0511, 3.2229, 3.0630, 3.1265, 2.8909
., 3.0253, 2.8184, 2.6764, 3.1968, 3.4114, 3.3492, 3.2691
., 3.2320, 3.1786, 3.2680, 3.1036, 3.5453, 3.7259, 3.6090
., 3.5473, 3.5327, 3.0018, 3.4413, 3.3907, 3.3593, 3.3462
., 2.4413, 2.6006, 3.0540, 3.1987, 3.0490, 3.1058, 2.8643
., 2.9948, 2.7908, 2.6491, 3.1950, 3.3922, 3.3316, 3.2585
./)
r0ab( 421: 490)=(/
. 3.2136, 3.1516, 3.2364, 3.0752, 3.5368, 3.7117, 3.5941
., 3.5313, 3.5164, 2.9962, 3.4225, 3.3699, 3.3370, 3.3234
., 3.3008, 2.4318, 2.5729, 3.0416, 3.1639, 3.0196, 3.0843
., 2.8413, 2.7436, 2.7608, 2.6271, 3.1811, 3.3591, 3.3045
., 3.2349, 3.1942, 3.1291, 3.2111, 3.0534, 3.5189, 3.6809
., 3.5635, 3.5001, 3.4854, 2.9857, 3.3897, 3.3363, 3.3027
., 3.2890, 3.2655, 3.2309, 2.8502, 2.6934, 3.2467, 3.1921
., 3.5663, 3.2541, 3.0571, 2.9048, 2.8657, 2.7438, 3.3547
., 3.3510, 3.9837, 3.6871, 3.4862, 3.3389, 3.2413, 3.1708
., 3.6096, 3.6280, 3.6860, 3.5568, 3.4836, 3.2868, 3.3994
./)
r0ab( 491: 560)=(/
. 3.3476, 3.3170, 3.2950, 3.2874, 3.2606, 3.9579, 2.9226
., 2.6838, 3.7867, 3.1732, 3.3872, 3.3643, 3.1267, 2.9541
., 2.8505, 2.7781, 3.8475, 3.3336, 3.7359, 3.8266, 3.5733
., 3.3959, 3.2775, 3.1915, 3.9878, 3.8816, 3.5810, 3.5364
., 3.5060, 3.8097, 3.3925, 3.3348, 3.3019, 3.2796, 3.2662
., 3.2464, 3.7136, 3.8619, 2.9140, 2.6271, 3.4771, 3.1774
., 3.2560, 3.1970, 3.1207, 2.9406, 2.8322, 2.7571, 3.5455
., 3.3514, 3.5837, 3.6177, 3.5816, 3.3902, 3.2604, 3.1652
., 3.7037, 3.6283, 3.5858, 3.5330, 3.4884, 3.5789, 3.4094
., 3.3473, 3.3118, 3.2876, 3.2707, 3.2521, 3.5570, 3.6496
./)
r0ab( 561: 630)=(/
. 3.6625, 2.7300, 2.5870, 3.2471, 3.1487, 3.1667, 3.0914
., 3.0107, 2.9812, 2.8300, 2.7284, 3.3259, 3.3182, 3.4707
., 3.4748, 3.4279, 3.4182, 3.2547, 3.1353, 3.5116, 3.9432
., 3.8828, 3.8303, 3.7880, 3.3760, 3.7218, 3.3408, 3.3059
., 3.2698, 3.2446, 3.2229, 3.4422, 3.5023, 3.5009, 3.5268
., 2.6026, 2.5355, 3.1129, 3.2863, 3.1029, 3.0108, 2.9227
., 2.8694, 2.8109, 2.6929, 3.1958, 3.4670, 3.4018, 3.3805
., 3.3218, 3.2815, 3.2346, 3.0994, 3.3937, 3.7266, 3.6697
., 3.6164, 3.5730, 3.2522, 3.5051, 3.4686, 3.4355, 3.4084
., 3.3748, 3.3496, 3.3692, 3.4052, 3.3910, 3.3849, 3.3662
./)
r0ab( 631: 700)=(/
. 2.5087, 2.4814, 3.0239, 3.1312, 3.0535, 2.9457, 2.8496
., 2.7780, 2.7828, 2.6532, 3.1063, 3.3143, 3.3549, 3.3120
., 3.2421, 3.1787, 3.1176, 3.0613, 3.3082, 3.5755, 3.5222
., 3.4678, 3.4231, 3.1684, 3.3528, 3.3162, 3.2827, 3.2527
., 3.2308, 3.2029, 3.3173, 3.3343, 3.3092, 3.2795, 3.2452
., 3.2096, 3.2893, 2.8991, 4.0388, 3.6100, 3.9388, 3.4475
., 3.1590, 2.9812, 2.8586, 2.7683, 4.1428, 3.7911, 3.8225
., 4.0372, 3.7059, 3.4935, 3.3529, 3.2492, 4.4352, 4.0826
., 3.9733, 3.9254, 3.8646, 3.9315, 3.7837, 3.7465, 3.7211
., 3.7012, 3.6893, 3.6676, 3.7736, 4.0660, 3.7926, 3.6158
./)
r0ab( 701: 770)=(/
. 3.5017, 3.4166, 4.6176, 2.8786, 3.1658, 3.5823, 3.7689
., 3.5762, 3.5789, 3.3552, 3.4004, 3.1722, 3.0212, 3.7241
., 3.9604, 3.8500, 3.9844, 3.7035, 3.9161, 3.6751, 3.5075
., 4.1151, 4.2877, 4.1579, 4.1247, 4.0617, 3.4874, 3.9848
., 3.9280, 3.9079, 3.8751, 3.8604, 3.8277, 3.8002, 3.9981
., 3.7544, 4.0371, 3.8225, 3.6718, 4.3092, 4.4764, 2.8997
., 3.0953, 3.4524, 3.6107, 3.6062, 3.5783, 3.3463, 3.3855
., 3.1746, 3.0381, 3.6019, 3.7938, 3.8697, 3.9781, 3.6877
., 3.8736, 3.6451, 3.4890, 3.9858, 4.1179, 4.0430, 3.9563
., 3.9182, 3.4002, 3.8310, 3.7716, 3.7543, 3.7203, 3.7053
./)
r0ab( 771: 840)=(/
. 3.6742, 3.8318, 3.7631, 3.7392, 3.9892, 3.7832, 3.6406
., 4.1701, 4.3016, 4.2196, 2.8535, 3.0167, 3.3978, 3.5363
., 3.5393, 3.5301, 3.2960, 3.3352, 3.1287, 2.9967, 3.6659
., 3.7239, 3.8070, 3.7165, 3.6368, 3.8162, 3.5885, 3.4336
., 3.9829, 4.0529, 3.9584, 3.9025, 3.8607, 3.3673, 3.7658
., 3.7035, 3.6866, 3.6504, 3.6339, 3.6024, 3.7708, 3.7283
., 3.6896, 3.9315, 3.7250, 3.5819, 4.1457, 4.2280, 4.1130
., 4.0597, 3.0905, 2.7998, 3.6448, 3.0739, 3.2996, 3.5262
., 3.2559, 3.0518, 2.9394, 2.8658, 3.7514, 3.2295, 3.5643
., 3.7808, 3.6931, 3.4723, 3.3357, 3.2429, 4.0280, 3.5589
./)
r0ab( 841: 910)=(/
. 3.4636, 3.4994, 3.4309, 3.6177, 3.2946, 3.2376, 3.2050
., 3.1847, 3.1715, 3.1599, 3.5555, 3.8111, 3.7693, 3.5718
., 3.4498, 3.3662, 4.1608, 3.7417, 3.6536, 3.6154, 3.8596
., 3.0301, 2.7312, 3.5821, 3.0473, 3.2137, 3.4679, 3.1975
., 2.9969, 2.8847, 2.8110, 3.6931, 3.2076, 3.4943, 3.5956
., 3.6379, 3.4190, 3.2808, 3.1860, 3.9850, 3.5105, 3.4330
., 3.3797, 3.4155, 3.6033, 3.2737, 3.2145, 3.1807, 3.1596
., 3.1461, 3.1337, 3.4812, 3.6251, 3.7152, 3.5201, 3.3966
., 3.3107, 4.1128, 3.6899, 3.6082, 3.5604, 3.7834, 3.7543
., 2.9189, 2.6777, 3.4925, 2.9648, 3.1216, 3.2940, 3.0975
./)
r0ab( 911: 980)=(/
. 2.9757, 2.8493, 2.7638, 3.6085, 3.1214, 3.4006, 3.4793
., 3.5147, 3.3806, 3.2356, 3.1335, 3.9144, 3.4183, 3.3369
., 3.2803, 3.2679, 3.4871, 3.1714, 3.1521, 3.1101, 3.0843
., 3.0670, 3.0539, 3.3890, 3.5086, 3.5895, 3.4783, 3.3484
., 3.2559, 4.0422, 3.5967, 3.5113, 3.4576, 3.6594, 3.6313
., 3.5690, 2.8578, 2.6334, 3.4673, 2.9245, 3.0732, 3.2435
., 3.0338, 2.9462, 2.8143, 2.7240, 3.5832, 3.0789, 3.3617
., 3.4246, 3.4505, 3.3443, 3.1964, 3.0913, 3.8921, 3.3713
., 3.2873, 3.2281, 3.2165, 3.4386, 3.1164, 3.1220, 3.0761
., 3.0480, 3.0295, 3.0155, 3.3495, 3.4543, 3.5260, 3.4413
./)
r0ab( 981:1050)=(/
. 3.3085, 3.2134, 4.0170, 3.5464, 3.4587, 3.4006, 3.6027
., 3.5730, 3.4945, 3.4623, 2.8240, 2.5960, 3.4635, 2.9032
., 3.0431, 3.2115, 2.9892, 2.9148, 2.7801, 2.6873, 3.5776
., 3.0568, 3.3433, 3.3949, 3.4132, 3.3116, 3.1616, 3.0548
., 3.8859, 3.3719, 3.2917, 3.2345, 3.2274, 3.4171, 3.1293
., 3.0567, 3.0565, 3.0274, 3.0087, 2.9939, 3.3293, 3.4249
., 3.4902, 3.4091, 3.2744, 3.1776, 4.0078, 3.5374, 3.4537
., 3.3956, 3.5747, 3.5430, 3.4522, 3.4160, 3.3975, 2.8004
., 2.5621, 3.4617, 2.9154, 3.0203, 3.1875, 2.9548, 2.8038
., 2.7472, 2.6530, 3.5736, 3.0584, 3.3304, 3.3748, 3.3871
./)
r0ab(1051:1120)=(/
. 3.2028, 3.1296, 3.0214, 3.8796, 3.3337, 3.2492, 3.1883
., 3.1802, 3.4050, 3.0756, 3.0478, 3.0322, 3.0323, 3.0163
., 3.0019, 3.3145, 3.4050, 3.4656, 3.3021, 3.2433, 3.1453
., 3.9991, 3.5017, 3.4141, 3.3520, 3.5583, 3.5251, 3.4243
., 3.3851, 3.3662, 3.3525, 2.7846, 2.5324, 3.4652, 2.8759
., 3.0051, 3.1692, 2.9273, 2.7615, 2.7164, 2.6212, 3.5744
., 3.0275, 3.3249, 3.3627, 3.3686, 3.1669, 3.0584, 2.9915
., 3.8773, 3.3099, 3.2231, 3.1600, 3.1520, 3.4023, 3.0426
., 3.0099, 2.9920, 2.9809, 2.9800, 2.9646, 3.3068, 3.3930
., 3.4486, 3.2682, 3.1729, 3.1168, 3.9952, 3.4796, 3.3901
./)
r0ab(1121:1190)=(/
. 3.3255, 3.5530, 3.5183, 3.4097, 3.3683, 3.3492, 3.3360
., 3.3308, 2.5424, 2.6601, 3.2555, 3.2807, 3.1384, 3.1737
., 2.9397, 2.8429, 2.8492, 2.7225, 3.3875, 3.4910, 3.4520
., 3.3608, 3.3036, 3.2345, 3.2999, 3.1487, 3.7409, 3.8392
., 3.7148, 3.6439, 3.6182, 3.1753, 3.5210, 3.4639, 3.4265
., 3.4075, 3.3828, 3.3474, 3.4071, 3.3754, 3.3646, 3.3308
., 3.4393, 3.2993, 3.8768, 3.9891, 3.8310, 3.7483, 3.3417
., 3.3019, 3.2250, 3.1832, 3.1578, 3.1564, 3.1224, 3.4620
., 2.9743, 2.8058, 3.4830, 3.3474, 3.6863, 3.3617, 3.1608
., 3.0069, 2.9640, 2.8427, 3.5885, 3.5219, 4.1314, 3.8120
./)
r0ab(1191:1260)=(/
. 3.6015, 3.4502, 3.3498, 3.2777, 3.8635, 3.8232, 3.8486
., 3.7215, 3.6487, 3.4724, 3.5627, 3.5087, 3.4757, 3.4517
., 3.4423, 3.4139, 4.1028, 3.8388, 3.6745, 3.5562, 3.4806
., 3.4272, 4.0182, 3.9991, 4.0007, 3.9282, 3.7238, 3.6498
., 3.5605, 3.5211, 3.5009, 3.4859, 3.4785, 3.5621, 4.2623
., 3.0775, 2.8275, 4.0181, 3.3385, 3.5379, 3.5036, 3.2589
., 3.0804, 3.0094, 2.9003, 4.0869, 3.5088, 3.9105, 3.9833
., 3.7176, 3.5323, 3.4102, 3.3227, 4.2702, 4.0888, 3.7560
., 3.7687, 3.6681, 3.6405, 3.5569, 3.4990, 3.4659, 3.4433
., 3.4330, 3.4092, 3.8867, 4.0190, 3.7961, 3.6412, 3.5405
./)
r0ab(1261:1330)=(/
. 3.4681, 4.3538, 4.2136, 3.9381, 3.8912, 3.9681, 3.7909
., 3.6774, 3.6262, 3.5999, 3.5823, 3.5727, 3.5419, 4.0245
., 4.1874, 3.0893, 2.7917, 3.7262, 3.3518, 3.4241, 3.5433
., 3.2773, 3.0890, 2.9775, 2.9010, 3.8048, 3.5362, 3.7746
., 3.7911, 3.7511, 3.5495, 3.4149, 3.3177, 4.0129, 3.8370
., 3.7739, 3.7125, 3.7152, 3.7701, 3.5813, 3.5187, 3.4835
., 3.4595, 3.4439, 3.4242, 3.7476, 3.8239, 3.8346, 3.6627
., 3.5479, 3.4639, 4.1026, 3.9733, 3.9292, 3.8667, 3.9513
., 3.8959, 3.7698, 3.7089, 3.6765, 3.6548, 3.6409, 3.5398
., 3.8759, 3.9804, 4.0150, 2.9091, 2.7638, 3.5066, 3.3377
./)
r0ab(1331:1400)=(/
. 3.3481, 3.2633, 3.1810, 3.1428, 2.9872, 2.8837, 3.5929
., 3.5183, 3.6729, 3.6596, 3.6082, 3.5927, 3.4224, 3.2997
., 3.8190, 4.1865, 4.1114, 4.0540, 3.6325, 3.5697, 3.5561
., 3.5259, 3.4901, 3.4552, 3.4315, 3.4091, 3.6438, 3.6879
., 3.6832, 3.7043, 3.5557, 3.4466, 3.9203, 4.2919, 4.2196
., 4.1542, 3.7573, 3.7039, 3.6546, 3.6151, 3.5293, 3.4849
., 3.4552, 3.5192, 3.7673, 3.8359, 3.8525, 3.8901, 2.7806
., 2.7209, 3.3812, 3.4958, 3.2913, 3.1888, 3.0990, 3.0394
., 2.9789, 2.8582, 3.4716, 3.6883, 3.6105, 3.5704, 3.5059
., 3.4619, 3.4138, 3.2742, 3.7080, 3.9773, 3.9010, 3.8409
./)
r0ab(1401:1470)=(/
. 3.7944, 3.4465, 3.7235, 3.6808, 3.6453, 3.6168, 3.5844
., 3.5576, 3.5772, 3.5959, 3.5768, 3.5678, 3.5486, 3.4228
., 3.8107, 4.0866, 4.0169, 3.9476, 3.6358, 3.5800, 3.5260
., 3.4838, 3.4501, 3.4204, 3.3553, 3.6487, 3.6973, 3.7398
., 3.7405, 3.7459, 3.7380, 2.6848, 2.6740, 3.2925, 3.3386
., 3.2473, 3.1284, 3.0301, 2.9531, 2.9602, 2.8272, 3.3830
., 3.5358, 3.5672, 3.5049, 3.4284, 3.3621, 3.3001, 3.2451
., 3.6209, 3.8299, 3.7543, 3.6920, 3.6436, 3.3598, 3.5701
., 3.5266, 3.4904, 3.4590, 3.4364, 3.4077, 3.5287, 3.5280
., 3.4969, 3.4650, 3.4304, 3.3963, 3.7229, 3.9402, 3.8753
./)
r0ab(1471:1540)=(/
. 3.8035, 3.5499, 3.4913, 3.4319, 3.3873, 3.3520, 3.3209
., 3.2948, 3.5052, 3.6465, 3.6696, 3.6577, 3.6388, 3.6142
., 3.5889, 3.3968, 3.0122, 4.2241, 3.7887, 4.0049, 3.5384
., 3.2698, 3.1083, 2.9917, 2.9057, 4.3340, 3.9900, 4.6588
., 4.1278, 3.8125, 3.6189, 3.4851, 3.3859, 4.6531, 4.3134
., 4.2258, 4.1309, 4.0692, 4.0944, 3.9850, 3.9416, 3.9112
., 3.8873, 3.8736, 3.8473, 4.6027, 4.1538, 3.8994, 3.7419
., 3.6356, 3.5548, 4.8353, 4.5413, 4.3891, 4.3416, 4.3243
., 4.2753, 4.2053, 4.1790, 4.1685, 4.1585, 4.1536, 4.0579
., 4.1980, 4.4564, 4.2192, 4.0528, 3.9489, 3.8642, 5.0567
./)
r0ab(1541:1610)=(/
. 3.0630, 3.3271, 4.0432, 4.0046, 4.1555, 3.7426, 3.5130
., 3.5174, 3.2884, 3.1378, 4.1894, 4.2321, 4.1725, 4.1833
., 3.8929, 4.0544, 3.8118, 3.6414, 4.6373, 4.6268, 4.4750
., 4.4134, 4.3458, 3.8582, 4.2583, 4.1898, 4.1562, 4.1191
., 4.1069, 4.0639, 4.1257, 4.1974, 3.9532, 4.1794, 3.9660
., 3.8130, 4.8160, 4.8272, 4.6294, 4.5840, 4.0770, 4.0088
., 3.9103, 3.8536, 3.8324, 3.7995, 3.7826, 4.2294, 4.3380
., 4.4352, 4.1933, 4.4580, 4.2554, 4.1072, 5.0454, 5.1814
., 3.0632, 3.2662, 3.6432, 3.8088, 3.7910, 3.7381, 3.5093
., 3.5155, 3.3047, 3.1681, 3.7871, 3.9924, 4.0637, 4.1382
./)
r0ab(1611:1680)=(/
. 3.8591, 4.0164, 3.7878, 3.6316, 4.1741, 4.3166, 4.2395
., 4.1831, 4.1107, 3.5857, 4.0270, 3.9676, 3.9463, 3.9150
., 3.9021, 3.8708, 4.0240, 4.1551, 3.9108, 4.1337, 3.9289
., 3.7873, 4.3666, 4.5080, 4.4232, 4.3155, 3.8461, 3.8007
., 3.6991, 3.6447, 3.6308, 3.5959, 3.5749, 4.0359, 4.3124
., 4.3539, 4.1122, 4.3772, 4.1785, 4.0386, 4.7004, 4.8604
., 4.6261, 2.9455, 3.2470, 3.6108, 3.8522, 3.6625, 3.6598
., 3.4411, 3.4660, 3.2415, 3.0944, 3.7514, 4.0397, 3.9231
., 4.0561, 3.7860, 3.9845, 3.7454, 3.5802, 4.1366, 4.3581
., 4.2351, 4.2011, 4.1402, 3.5381, 4.0653, 4.0093, 3.9883
./)
r0ab(1681:1750)=(/
. 3.9570, 3.9429, 3.9112, 3.8728, 4.0682, 3.8351, 4.1054
., 3.8928, 3.7445, 4.3415, 4.5497, 4.3833, 4.3122, 3.8051
., 3.7583, 3.6622, 3.6108, 3.5971, 3.5628, 3.5408, 4.0780
., 4.0727, 4.2836, 4.0553, 4.3647, 4.1622, 4.0178, 4.5802
., 4.9125, 4.5861, 4.6201, 2.9244, 3.2241, 3.5848, 3.8293
., 3.6395, 3.6400, 3.4204, 3.4499, 3.2253, 3.0779, 3.7257
., 4.0170, 3.9003, 4.0372, 3.7653, 3.9672, 3.7283, 3.5630
., 4.1092, 4.3347, 4.2117, 4.1793, 4.1179, 3.5139, 4.0426
., 3.9867, 3.9661, 3.9345, 3.9200, 3.8883, 3.8498, 4.0496
., 3.8145, 4.0881, 3.8756, 3.7271, 4.3128, 4.5242, 4.3578
./)
r0ab(1751:1820)=(/
. 4.2870, 3.7796, 3.7318, 3.6364, 3.5854, 3.5726, 3.5378
., 3.5155, 4.0527, 4.0478, 4.2630, 4.0322, 4.3449, 4.1421
., 3.9975, 4.5499, 4.8825, 4.5601, 4.5950, 4.5702, 2.9046
., 3.2044, 3.5621, 3.8078, 3.6185, 3.6220, 3.4019, 3.4359
., 3.2110, 3.0635, 3.7037, 3.9958, 3.8792, 4.0194, 3.7460
., 3.9517, 3.7128, 3.5474, 4.0872, 4.3138, 4.1906, 4.1593
., 4.0973, 3.4919, 4.0216, 3.9657, 3.9454, 3.9134, 3.8986
., 3.8669, 3.8289, 4.0323, 3.7954, 4.0725, 3.8598, 3.7113
., 4.2896, 4.5021, 4.3325, 4.2645, 3.7571, 3.7083, 3.6136
., 3.5628, 3.5507, 3.5155, 3.4929, 4.0297, 4.0234, 4.2442
./)
r0ab(1821:1890)=(/
. 4.0112, 4.3274, 4.1240, 3.9793, 4.5257, 4.8568, 4.5353
., 4.5733, 4.5485, 4.5271, 2.8878, 3.1890, 3.5412, 3.7908
., 3.5974, 3.6078, 3.3871, 3.4243, 3.1992, 3.0513, 3.6831
., 3.9784, 3.8579, 4.0049, 3.7304, 3.9392, 3.7002, 3.5347
., 4.0657, 4.2955, 4.1705, 4.1424, 4.0800, 3.4717, 4.0043
., 3.9485, 3.9286, 3.8965, 3.8815, 3.8500, 3.8073, 4.0180
., 3.7796, 4.0598, 3.8470, 3.6983, 4.2678, 4.4830, 4.3132
., 4.2444, 3.7370, 3.6876, 3.5935, 3.5428, 3.5314, 3.4958
., 3.4730, 4.0117, 4.0043, 4.2287, 3.9939, 4.3134, 4.1096
., 3.9646, 4.5032, 4.8356, 4.5156, 4.5544, 4.5297, 4.5083
./)
r0ab(1891:1960)=(/
. 4.4896, 2.8709, 3.1737, 3.5199, 3.7734, 3.5802, 3.5934
., 3.3724, 3.4128, 3.1877, 3.0396, 3.6624, 3.9608, 3.8397
., 3.9893, 3.7145, 3.9266, 3.6877, 3.5222, 4.0448, 4.2771
., 4.1523, 4.1247, 4.0626, 3.4530, 3.9866, 3.9310, 3.9115
., 3.8792, 3.8641, 3.8326, 3.7892, 4.0025, 3.7636, 4.0471
., 3.8343, 3.6854, 4.2464, 4.4635, 4.2939, 4.2252, 3.7169
., 3.6675, 3.5739, 3.5235, 3.5126, 3.4768, 3.4537, 3.9932
., 3.9854, 4.2123, 3.9765, 4.2992, 4.0951, 3.9500, 4.4811
., 4.8135, 4.4959, 4.5351, 4.5105, 4.4891, 4.4705, 4.4515
., 2.8568, 3.1608, 3.5050, 3.7598, 3.5665, 3.5803, 3.3601
./)
r0ab(1961:2030)=(/
. 3.4031, 3.1779, 3.0296, 3.6479, 3.9471, 3.8262, 3.9773
., 3.7015, 3.9162, 3.6771, 3.5115, 4.0306, 4.2634, 4.1385
., 4.1116, 4.0489, 3.4366, 3.9732, 3.9176, 3.8983, 3.8659
., 3.8507, 3.8191, 3.7757, 3.9907, 3.7506, 4.0365, 3.8235
., 3.6745, 4.2314, 4.4490, 4.2792, 4.2105, 3.7003, 3.6510
., 3.5578, 3.5075, 3.4971, 3.4609, 3.4377, 3.9788, 3.9712
., 4.1997, 3.9624, 4.2877, 4.0831, 3.9378, 4.4655, 4.7974
., 4.4813, 4.5209, 4.4964, 4.4750, 4.4565, 4.4375, 4.4234
., 2.6798, 3.0151, 3.2586, 3.5292, 3.5391, 3.4902, 3.2887
., 3.3322, 3.1228, 2.9888, 3.4012, 3.7145, 3.7830, 3.6665
./)
r0ab(2031:2100)=(/
. 3.5898, 3.8077, 3.5810, 3.4265, 3.7726, 4.0307, 3.9763
., 3.8890, 3.8489, 3.2706, 3.7595, 3.6984, 3.6772, 3.6428
., 3.6243, 3.5951, 3.7497, 3.6775, 3.6364, 3.9203, 3.7157
., 3.5746, 3.9494, 4.2076, 4.1563, 4.0508, 3.5329, 3.4780
., 3.3731, 3.3126, 3.2846, 3.2426, 3.2135, 3.7491, 3.9006
., 3.8332, 3.8029, 4.1436, 3.9407, 3.7998, 4.1663, 4.5309
., 4.3481, 4.2911, 4.2671, 4.2415, 4.2230, 4.2047, 4.1908
., 4.1243, 2.5189, 2.9703, 3.3063, 3.6235, 3.4517, 3.3989
., 3.2107, 3.2434, 3.0094, 2.8580, 3.4253, 3.8157, 3.7258
., 3.6132, 3.5297, 3.7566, 3.5095, 3.3368, 3.7890, 4.1298
./)
r0ab(2101:2170)=(/
. 4.0190, 3.9573, 3.9237, 3.2677, 3.8480, 3.8157, 3.7656
., 3.7317, 3.7126, 3.6814, 3.6793, 3.6218, 3.5788, 3.8763
., 3.6572, 3.5022, 3.9737, 4.3255, 4.1828, 4.1158, 3.5078
., 3.4595, 3.3600, 3.3088, 3.2575, 3.2164, 3.1856, 3.8522
., 3.8665, 3.8075, 3.7772, 4.1391, 3.9296, 3.7772, 4.2134
., 4.7308, 4.3787, 4.3894, 4.3649, 4.3441, 4.3257, 4.3073
., 4.2941, 4.1252, 4.2427, 3.0481, 2.9584, 3.6919, 3.5990
., 3.8881, 3.4209, 3.1606, 3.1938, 2.9975, 2.8646, 3.8138
., 3.7935, 3.7081, 3.9155, 3.5910, 3.4808, 3.4886, 3.3397
., 4.1336, 4.1122, 3.9888, 3.9543, 3.8917, 3.5894, 3.8131
./)
r0ab(2171:2240)=(/
. 3.7635, 3.7419, 3.7071, 3.6880, 3.6574, 3.6546, 3.9375
., 3.6579, 3.5870, 3.6361, 3.5039, 4.3149, 4.2978, 4.1321
., 4.1298, 3.8164, 3.7680, 3.7154, 3.6858, 3.6709, 3.6666
., 3.6517, 3.8174, 3.8608, 4.1805, 3.9102, 3.8394, 3.8968
., 3.7673, 4.5274, 4.6682, 4.3344, 4.3639, 4.3384, 4.3162
., 4.2972, 4.2779, 4.2636, 4.0253, 4.1168, 4.1541, 2.8136
., 3.0951, 3.4635, 3.6875, 3.4987, 3.5183, 3.2937, 3.3580
., 3.1325, 2.9832, 3.6078, 3.8757, 3.7616, 3.9222, 3.6370
., 3.8647, 3.6256, 3.4595, 3.9874, 4.1938, 4.0679, 4.0430
., 3.9781, 3.3886, 3.9008, 3.8463, 3.8288, 3.7950, 3.7790
./)
r0ab(2241:2310)=(/
. 3.7472, 3.7117, 3.9371, 3.6873, 3.9846, 3.7709, 3.6210
., 4.1812, 4.3750, 4.2044, 4.1340, 3.6459, 3.5929, 3.5036
., 3.4577, 3.4528, 3.4146, 3.3904, 3.9014, 3.9031, 4.1443
., 3.8961, 4.2295, 4.0227, 3.8763, 4.4086, 4.7097, 4.4064
., 4.4488, 4.4243, 4.4029, 4.3842, 4.3655, 4.3514, 4.1162
., 4.2205, 4.1953, 4.2794, 2.8032, 3.0805, 3.4519, 3.6700
., 3.4827, 3.5050, 3.2799, 3.3482, 3.1233, 2.9747, 3.5971
., 3.8586, 3.7461, 3.9100, 3.6228, 3.8535, 3.6147, 3.4490
., 3.9764, 4.1773, 4.0511, 4.0270, 3.9614, 3.3754, 3.8836
., 3.8291, 3.8121, 3.7780, 3.7619, 3.7300, 3.6965, 3.9253
./)
r0ab(2311:2380)=(/
. 3.6734, 3.9733, 3.7597, 3.6099, 4.1683, 4.3572, 4.1862
., 4.1153, 3.6312, 3.5772, 3.4881, 3.4429, 3.4395, 3.4009
., 3.3766, 3.8827, 3.8868, 4.1316, 3.8807, 4.2164, 4.0092
., 3.8627, 4.3936, 4.6871, 4.3882, 4.4316, 4.4073, 4.3858
., 4.3672, 4.3485, 4.3344, 4.0984, 4.2036, 4.1791, 4.2622
., 4.2450, 2.7967, 3.0689, 3.4445, 3.6581, 3.4717, 3.4951
., 3.2694, 3.3397, 3.1147, 2.9661, 3.5898, 3.8468, 3.7358
., 3.9014, 3.6129, 3.8443, 3.6054, 3.4396, 3.9683, 4.1656
., 4.0394, 4.0158, 3.9498, 3.3677, 3.8718, 3.8164, 3.8005
., 3.7662, 3.7500, 3.7181, 3.6863, 3.9170, 3.6637, 3.9641
./)
r0ab(2381:2450)=(/
. 3.7503, 3.6004, 4.1590, 4.3448, 4.1739, 4.1029, 3.6224
., 3.5677, 3.4785, 3.4314, 3.4313, 3.3923, 3.3680, 3.8698
., 3.8758, 4.1229, 3.8704, 4.2063, 3.9987, 3.8519, 4.3832
., 4.6728, 4.3759, 4.4195, 4.3952, 4.3737, 4.3551, 4.3364
., 4.3223, 4.0861, 4.1911, 4.1676, 4.2501, 4.2329, 4.2208
., 2.7897, 3.0636, 3.4344, 3.6480, 3.4626, 3.4892, 3.2626
., 3.3344, 3.1088, 2.9597, 3.5804, 3.8359, 3.7251, 3.8940
., 3.6047, 3.8375, 3.5990, 3.4329, 3.9597, 4.1542, 4.0278
., 4.0048, 3.9390, 3.3571, 3.8608, 3.8056, 3.7899, 3.7560
., 3.7400, 3.7081, 3.6758, 3.9095, 3.6552, 3.9572, 3.7436
./)
r0ab(2451:2520)=(/
. 3.5933, 4.1508, 4.3337, 4.1624, 4.0916, 3.6126, 3.5582
., 3.4684, 3.4212, 3.4207, 3.3829, 3.3586, 3.8604, 3.8658
., 4.1156, 3.8620, 4.1994, 3.9917, 3.8446, 4.3750, 4.6617
., 4.3644, 4.4083, 4.3840, 4.3625, 4.3439, 4.3253, 4.3112
., 4.0745, 4.1807, 4.1578, 4.2390, 4.2218, 4.2097, 4.1986
., 2.8395, 3.0081, 3.3171, 3.4878, 3.5360, 3.5145, 3.2809
., 3.3307, 3.1260, 2.9940, 3.4741, 3.6675, 3.7832, 3.6787
., 3.6156, 3.8041, 3.5813, 3.4301, 3.8480, 3.9849, 3.9314
., 3.8405, 3.8029, 3.2962, 3.7104, 3.6515, 3.6378, 3.6020
., 3.5849, 3.5550, 3.7494, 3.6893, 3.6666, 3.9170, 3.7150
./)
r0ab(2521:2590)=(/
. 3.5760, 4.0268, 4.1596, 4.1107, 3.9995, 3.5574, 3.5103
., 3.4163, 3.3655, 3.3677, 3.3243, 3.2975, 3.7071, 3.9047
., 3.8514, 3.8422, 3.8022, 3.9323, 3.7932, 4.2343, 4.4583
., 4.3115, 4.2457, 4.2213, 4.1945, 4.1756, 4.1569, 4.1424
., 4.0620, 4.0494, 3.9953, 4.0694, 4.0516, 4.0396, 4.0280
., 4.0130, 2.9007, 2.9674, 3.8174, 3.5856, 3.6486, 3.5339
., 3.2832, 3.3154, 3.1144, 2.9866, 3.9618, 3.8430, 3.9980
., 3.8134, 3.6652, 3.7985, 3.5756, 3.4207, 4.4061, 4.2817
., 4.1477, 4.0616, 3.9979, 3.6492, 3.8833, 3.8027, 3.7660
., 3.7183, 3.6954, 3.6525, 3.9669, 3.8371, 3.7325, 3.9160
./)
r0ab(2591:2660)=(/
. 3.7156, 3.5714, 4.6036, 4.4620, 4.3092, 4.2122, 3.8478
., 3.7572, 3.6597, 3.5969, 3.5575, 3.5386, 3.5153, 3.7818
., 4.1335, 4.0153, 3.9177, 3.8603, 3.9365, 3.7906, 4.7936
., 4.7410, 4.5461, 4.5662, 4.5340, 4.5059, 4.4832, 4.4604
., 4.4429, 4.2346, 4.4204, 4.3119, 4.3450, 4.3193, 4.3035
., 4.2933, 4.1582, 4.2450, 2.8559, 2.9050, 3.8325, 3.5442
., 3.5077, 3.4905, 3.2396, 3.2720, 3.0726, 2.9467, 3.9644
., 3.8050, 3.8981, 3.7762, 3.6216, 3.7531, 3.5297, 3.3742
., 4.3814, 4.2818, 4.1026, 4.0294, 3.9640, 3.6208, 3.8464
., 3.7648, 3.7281, 3.6790, 3.6542, 3.6117, 3.8650, 3.8010
./)
r0ab(2661:2730)=(/
. 3.6894, 3.8713, 3.6699, 3.5244, 4.5151, 4.4517, 4.2538
., 4.1483, 3.8641, 3.7244, 3.6243, 3.5589, 3.5172, 3.4973
., 3.4715, 3.7340, 4.0316, 3.9958, 3.8687, 3.8115, 3.8862
., 3.7379, 4.7091, 4.7156, 4.5199, 4.5542, 4.5230, 4.4959
., 4.4750, 4.4529, 4.4361, 4.1774, 4.3774, 4.2963, 4.3406
., 4.3159, 4.3006, 4.2910, 4.1008, 4.1568, 4.0980, 2.8110
., 2.8520, 3.7480, 3.5105, 3.4346, 3.3461, 3.1971, 3.2326
., 3.0329, 2.9070, 3.8823, 3.7928, 3.8264, 3.7006, 3.5797
., 3.7141, 3.4894, 3.3326, 4.3048, 4.2217, 4.0786, 3.9900
., 3.9357, 3.6331, 3.8333, 3.7317, 3.6957, 3.6460, 3.6197
./)
r0ab(2731:2800)=(/
. 3.5779, 3.7909, 3.7257, 3.6476, 3.5729, 3.6304, 3.4834
., 4.4368, 4.3921, 4.2207, 4.1133, 3.8067, 3.7421, 3.6140
., 3.5491, 3.5077, 3.4887, 3.4623, 3.6956, 3.9568, 3.8976
., 3.8240, 3.7684, 3.8451, 3.6949, 4.6318, 4.6559, 4.4533
., 4.4956, 4.4641, 4.4366, 4.4155, 4.3936, 4.3764, 4.1302
., 4.3398, 4.2283, 4.2796, 4.2547, 4.2391, 4.2296, 4.0699
., 4.1083, 4.0319, 3.9855, 2.7676, 2.8078, 3.6725, 3.4804
., 3.3775, 3.2411, 3.1581, 3.1983, 2.9973, 2.8705, 3.8070
., 3.7392, 3.7668, 3.6263, 3.5402, 3.6807, 3.4545, 3.2962
., 4.2283, 4.1698, 4.0240, 3.9341, 3.8711, 3.5489, 3.7798
./)
r0ab(2801:2870)=(/
. 3.7000, 3.6654, 3.6154, 3.5882, 3.5472, 3.7289, 3.6510
., 3.6078, 3.5355, 3.5963, 3.4480, 4.3587, 4.3390, 4.1635
., 4.0536, 3.7193, 3.6529, 3.5512, 3.4837, 3.4400, 3.4191
., 3.3891, 3.6622, 3.8934, 3.8235, 3.7823, 3.7292, 3.8106
., 3.6589, 4.5535, 4.6013, 4.3961, 4.4423, 4.4109, 4.3835
., 4.3625, 4.3407, 4.3237, 4.0863, 4.2835, 4.1675, 4.2272
., 4.2025, 4.1869, 4.1774, 4.0126, 4.0460, 3.9815, 3.9340
., 3.8955, 2.6912, 2.7604, 3.6037, 3.4194, 3.3094, 3.1710
., 3.0862, 3.1789, 2.9738, 2.8427, 3.7378, 3.6742, 3.6928
., 3.5512, 3.4614, 3.4087, 3.4201, 3.2607, 4.1527, 4.0977
./)
r0ab(2871:2940)=(/
. 3.9523, 3.8628, 3.8002, 3.4759, 3.7102, 3.6466, 3.6106
., 3.5580, 3.5282, 3.4878, 3.6547, 3.5763, 3.5289, 3.5086
., 3.5593, 3.4099, 4.2788, 4.2624, 4.0873, 3.9770, 3.6407
., 3.5743, 3.5178, 3.4753, 3.3931, 3.3694, 3.3339, 3.6002
., 3.8164, 3.7478, 3.7028, 3.6952, 3.7669, 3.6137, 4.4698
., 4.5488, 4.3168, 4.3646, 4.3338, 4.3067, 4.2860, 4.2645
., 4.2478, 4.0067, 4.2349, 4.0958, 4.1543, 4.1302, 4.1141
., 4.1048, 3.9410, 3.9595, 3.8941, 3.8465, 3.8089, 3.7490
., 2.7895, 2.5849, 3.6484, 3.0162, 3.1267, 3.2125, 3.0043
., 2.9572, 2.8197, 2.7261, 3.7701, 3.2446, 3.5239, 3.4696
./)
r0ab(2941:3010)=(/
. 3.4261, 3.3508, 3.1968, 3.0848, 4.1496, 3.6598, 3.5111
., 3.4199, 3.3809, 3.5382, 3.2572, 3.2100, 3.1917, 3.1519
., 3.1198, 3.1005, 3.5071, 3.5086, 3.5073, 3.4509, 3.3120
., 3.2082, 4.2611, 3.8117, 3.6988, 3.5646, 3.6925, 3.6295
., 3.5383, 3.4910, 3.4625, 3.4233, 3.4007, 3.2329, 3.6723
., 3.6845, 3.6876, 3.6197, 3.4799, 3.3737, 4.4341, 4.0525
., 3.9011, 3.8945, 3.8635, 3.8368, 3.8153, 3.7936, 3.7758
., 3.4944, 3.4873, 3.9040, 3.7110, 3.6922, 3.6799, 3.6724
., 3.5622, 3.6081, 3.5426, 3.4922, 3.4498, 3.3984, 3.4456
., 2.7522, 2.5524, 3.5742, 2.9508, 3.0751, 3.0158, 2.9644
./)
r0ab(3011:3080)=(/
. 2.8338, 2.7891, 2.6933, 3.6926, 3.1814, 3.4528, 3.4186
., 3.3836, 3.2213, 3.1626, 3.0507, 4.0548, 3.5312, 3.4244
., 3.3409, 3.2810, 3.4782, 3.1905, 3.1494, 3.1221, 3.1128
., 3.0853, 3.0384, 3.4366, 3.4562, 3.4638, 3.3211, 3.2762
., 3.1730, 4.1632, 3.6825, 3.5822, 3.4870, 3.6325, 3.5740
., 3.4733, 3.4247, 3.3969, 3.3764, 3.3525, 3.1984, 3.5989
., 3.6299, 3.6433, 3.4937, 3.4417, 3.3365, 4.3304, 3.9242
., 3.7793, 3.7623, 3.7327, 3.7071, 3.6860, 3.6650, 3.6476
., 3.3849, 3.3534, 3.8216, 3.5870, 3.5695, 3.5584, 3.5508
., 3.4856, 3.5523, 3.4934, 3.4464, 3.4055, 3.3551, 3.3888
./)
r0ab(3081:3150)=(/
. 3.3525, 2.7202, 2.5183, 3.4947, 2.8731, 3.0198, 3.1457
., 2.9276, 2.7826, 2.7574, 2.6606, 3.6090, 3.0581, 3.3747
., 3.3677, 3.3450, 3.1651, 3.1259, 3.0147, 3.9498, 3.3857
., 3.2917, 3.2154, 3.1604, 3.4174, 3.0735, 3.0342, 3.0096
., 3.0136, 2.9855, 2.9680, 3.3604, 3.4037, 3.4243, 3.2633
., 3.1810, 3.1351, 4.0557, 3.5368, 3.4526, 3.3699, 3.5707
., 3.5184, 3.4085, 3.3595, 3.3333, 3.3143, 3.3041, 3.1094
., 3.5193, 3.5745, 3.6025, 3.4338, 3.3448, 3.2952, 4.2158
., 3.7802, 3.6431, 3.6129, 3.5853, 3.5610, 3.5406, 3.5204
., 3.5036, 3.2679, 3.2162, 3.7068, 3.4483, 3.4323, 3.4221
./)
r0ab(3151:3220)=(/
. 3.4138, 3.3652, 3.4576, 3.4053, 3.3618, 3.3224, 3.2711
., 3.3326, 3.2950, 3.2564, 2.5315, 2.6104, 3.2734, 3.2299
., 3.1090, 2.9942, 2.9159, 2.8324, 2.8350, 2.7216, 3.3994
., 3.4475, 3.4354, 3.3438, 3.2807, 3.2169, 3.2677, 3.1296
., 3.7493, 3.8075, 3.6846, 3.6104, 3.5577, 3.2052, 3.4803
., 3.4236, 3.3845, 3.3640, 3.3365, 3.3010, 3.3938, 3.3624
., 3.3440, 3.3132, 3.4035, 3.2754, 3.8701, 3.9523, 3.8018
., 3.7149, 3.3673, 3.3199, 3.2483, 3.2069, 3.1793, 3.1558
., 3.1395, 3.4097, 3.5410, 3.5228, 3.5116, 3.4921, 3.4781
., 3.4690, 4.0420, 4.1759, 4.0078, 4.0450, 4.0189, 3.9952
./)
r0ab(3221:3290)=(/
. 3.9770, 3.9583, 3.9434, 3.7217, 3.8228, 3.7826, 3.8640
., 3.8446, 3.8314, 3.8225, 3.6817, 3.7068, 3.6555, 3.6159
., 3.5831, 3.5257, 3.2133, 3.1689, 3.1196, 3.3599, 2.9852
., 2.7881, 3.5284, 3.3493, 3.6958, 3.3642, 3.1568, 3.0055
., 2.9558, 2.8393, 3.6287, 3.5283, 4.1511, 3.8259, 3.6066
., 3.4527, 3.3480, 3.2713, 3.9037, 3.8361, 3.8579, 3.7311
., 3.6575, 3.5176, 3.5693, 3.5157, 3.4814, 3.4559, 3.4445
., 3.4160, 4.1231, 3.8543, 3.6816, 3.5602, 3.4798, 3.4208
., 4.0542, 4.0139, 4.0165, 3.9412, 3.7698, 3.6915, 3.6043
., 3.5639, 3.5416, 3.5247, 3.5153, 3.5654, 4.2862, 4.0437
./)
r0ab(3291:3360)=(/
. 3.8871, 3.7741, 3.6985, 3.6413, 4.2345, 4.3663, 4.3257
., 4.0869, 4.0612, 4.0364, 4.0170, 3.9978, 3.9834, 3.9137
., 3.8825, 3.8758, 3.9143, 3.8976, 3.8864, 3.8768, 3.9190
., 4.1613, 4.0566, 3.9784, 3.9116, 3.8326, 3.7122, 3.6378
., 3.5576, 3.5457, 4.3127, 3.1160, 2.8482, 4.0739, 3.3599
., 3.5698, 3.5366, 3.2854, 3.1039, 2.9953, 2.9192, 4.1432
., 3.5320, 3.9478, 4.0231, 3.7509, 3.5604, 3.4340, 3.3426
., 4.3328, 3.8288, 3.7822, 3.7909, 3.6907, 3.6864, 3.5793
., 3.5221, 3.4883, 3.4649, 3.4514, 3.4301, 3.9256, 4.0596
., 3.8307, 3.6702, 3.5651, 3.4884, 4.4182, 4.2516, 3.9687
./)
r0ab(3361:3430)=(/
. 3.9186, 3.9485, 3.8370, 3.7255, 3.6744, 3.6476, 3.6295
., 3.6193, 3.5659, 4.0663, 4.2309, 4.0183, 3.8680, 3.7672
., 3.6923, 4.5240, 4.4834, 4.1570, 4.3204, 4.2993, 4.2804
., 4.2647, 4.2481, 4.2354, 3.8626, 3.8448, 4.2267, 4.1799
., 4.1670, 3.8738, 3.8643, 3.8796, 4.0575, 4.0354, 3.9365
., 3.8611, 3.7847, 3.7388, 3.6826, 3.6251, 3.5492, 4.0889
., 4.2764, 3.1416, 2.8325, 3.7735, 3.3787, 3.4632, 3.5923
., 3.3214, 3.1285, 3.0147, 2.9366, 3.8527, 3.5602, 3.8131
., 3.8349, 3.7995, 3.5919, 3.4539, 3.3540, 4.0654, 3.8603
., 3.7972, 3.7358, 3.7392, 3.8157, 3.6055, 3.5438, 3.5089
./)
r0ab(3431:3500)=(/
. 3.4853, 3.4698, 3.4508, 3.7882, 3.8682, 3.8837, 3.7055
., 3.5870, 3.5000, 4.1573, 4.0005, 3.9568, 3.8936, 3.9990
., 3.9433, 3.8172, 3.7566, 3.7246, 3.7033, 3.6900, 3.5697
., 3.9183, 4.0262, 4.0659, 3.8969, 3.7809, 3.6949, 4.2765
., 4.2312, 4.1401, 4.0815, 4.0580, 4.0369, 4.0194, 4.0017
., 3.9874, 3.8312, 3.8120, 3.9454, 3.9210, 3.9055, 3.8951
., 3.8866, 3.8689, 3.9603, 3.9109, 3.9122, 3.8233, 3.7438
., 3.7436, 3.6981, 3.6555, 3.5452, 3.9327, 4.0658, 4.1175
., 2.9664, 2.8209, 3.5547, 3.3796, 3.3985, 3.3164, 3.2364
., 3.1956, 3.0370, 2.9313, 3.6425, 3.5565, 3.7209, 3.7108
./)
r0ab(3501:3570)=(/
. 3.6639, 3.6484, 3.4745, 3.3492, 3.8755, 4.2457, 3.7758
., 3.7161, 3.6693, 3.6155, 3.5941, 3.5643, 3.5292, 3.4950
., 3.4720, 3.4503, 3.6936, 3.7392, 3.7388, 3.7602, 3.6078
., 3.4960, 3.9800, 4.3518, 4.2802, 3.8580, 3.8056, 3.7527
., 3.7019, 3.6615, 3.5768, 3.5330, 3.5038, 3.5639, 3.8192
., 3.8883, 3.9092, 3.9478, 3.7995, 3.6896, 4.1165, 4.5232
., 4.4357, 4.4226, 4.4031, 4.3860, 4.3721, 4.3580, 4.3466
., 4.2036, 4.2037, 3.8867, 4.2895, 4.2766, 4.2662, 4.2598
., 3.8408, 3.9169, 3.8681, 3.8250, 3.7855, 3.7501, 3.6753
., 3.5499, 3.4872, 3.5401, 3.8288, 3.9217, 3.9538, 4.0054
./)
r0ab(3571:3640)=(/
. 2.8388, 2.7890, 3.4329, 3.5593, 3.3488, 3.2486, 3.1615
., 3.1000, 3.0394, 2.9165, 3.5267, 3.7479, 3.6650, 3.6263
., 3.5658, 3.5224, 3.4762, 3.3342, 3.7738, 4.0333, 3.9568
., 3.8975, 3.8521, 3.4929, 3.7830, 3.7409, 3.7062, 3.6786
., 3.6471, 3.6208, 3.6337, 3.6519, 3.6363, 3.6278, 3.6110
., 3.4825, 3.8795, 4.1448, 4.0736, 4.0045, 3.6843, 3.6291
., 3.5741, 3.5312, 3.4974, 3.4472, 3.4034, 3.7131, 3.7557
., 3.7966, 3.8005, 3.8068, 3.8015, 3.6747, 4.0222, 4.3207
., 4.2347, 4.2191, 4.1990, 4.1811, 4.1666, 4.1521, 4.1401
., 3.9970, 3.9943, 3.9592, 4.0800, 4.0664, 4.0559, 4.0488
./)
r0ab(3641:3710)=(/
. 3.9882, 4.0035, 3.9539, 3.9138, 3.8798, 3.8355, 3.5359
., 3.4954, 3.3962, 3.5339, 3.7595, 3.8250, 3.8408, 3.8600
., 3.8644, 2.7412, 2.7489, 3.3374, 3.3950, 3.3076, 3.1910
., 3.0961, 3.0175, 3.0280, 2.8929, 3.4328, 3.5883, 3.6227
., 3.5616, 3.4894, 3.4241, 3.3641, 3.3120, 3.6815, 3.8789
., 3.8031, 3.7413, 3.6939, 3.4010, 3.6225, 3.5797, 3.5443
., 3.5139, 3.4923, 3.4642, 3.5860, 3.5849, 3.5570, 3.5257
., 3.4936, 3.4628, 3.7874, 3.9916, 3.9249, 3.8530, 3.5932
., 3.5355, 3.4757, 3.4306, 3.3953, 3.3646, 3.3390, 3.5637
., 3.7053, 3.7266, 3.7177, 3.6996, 3.6775, 3.6558, 3.9331
./)
r0ab(3711:3780)=(/
. 4.1655, 4.0879, 4.0681, 4.0479, 4.0299, 4.0152, 4.0006
., 3.9883, 3.8500, 3.8359, 3.8249, 3.9269, 3.9133, 3.9025
., 3.8948, 3.8422, 3.8509, 3.7990, 3.7570, 3.7219, 3.6762
., 3.4260, 3.3866, 3.3425, 3.5294, 3.7022, 3.7497, 3.7542
., 3.7494, 3.7370, 3.7216, 3.4155, 3.0522, 4.2541, 3.8218
., 4.0438, 3.5875, 3.3286, 3.1682, 3.0566, 2.9746, 4.3627
., 4.0249, 4.6947, 4.1718, 3.8639, 3.6735, 3.5435, 3.4479
., 4.6806, 4.3485, 4.2668, 4.1690, 4.1061, 4.1245, 4.0206
., 3.9765, 3.9458, 3.9217, 3.9075, 3.8813, 3.9947, 4.1989
., 3.9507, 3.7960, 3.6925, 3.6150, 4.8535, 4.5642, 4.4134
./)
r0ab(3781:3850)=(/
. 4.3688, 4.3396, 4.2879, 4.2166, 4.1888, 4.1768, 4.1660
., 4.1608, 4.0745, 4.2289, 4.4863, 4.2513, 4.0897, 3.9876
., 3.9061, 5.0690, 5.0446, 4.6186, 4.6078, 4.5780, 4.5538
., 4.5319, 4.5101, 4.4945, 4.1912, 4.2315, 4.5534, 4.4373
., 4.4224, 4.4120, 4.4040, 4.2634, 4.7770, 4.6890, 4.6107
., 4.5331, 4.4496, 4.4082, 4.3095, 4.2023, 4.0501, 4.2595
., 4.5497, 4.3056, 4.1506, 4.0574, 3.9725, 5.0796, 3.0548
., 3.3206, 3.8132, 3.9720, 3.7675, 3.7351, 3.5167, 3.5274
., 3.3085, 3.1653, 3.9500, 4.1730, 4.0613, 4.1493, 3.8823
., 4.0537, 3.8200, 3.6582, 4.3422, 4.5111, 4.3795, 4.3362
./)
r0ab(3851:3920)=(/
. 4.2751, 3.7103, 4.1973, 4.1385, 4.1129, 4.0800, 4.0647
., 4.0308, 4.0096, 4.1619, 3.9360, 4.1766, 3.9705, 3.8262
., 4.5348, 4.7025, 4.5268, 4.5076, 3.9562, 3.9065, 3.8119
., 3.7605, 3.7447, 3.7119, 3.6916, 4.1950, 4.2110, 4.3843
., 4.1631, 4.4427, 4.2463, 4.1054, 4.7693, 5.0649, 4.7365
., 4.7761, 4.7498, 4.7272, 4.7076, 4.6877, 4.6730, 4.4274
., 4.5473, 4.5169, 4.5975, 4.5793, 4.5667, 4.5559, 4.3804
., 4.6920, 4.6731, 4.6142, 4.5600, 4.4801, 4.0149, 3.8856
., 3.7407, 4.1545, 4.2253, 4.4229, 4.1923, 4.5022, 4.3059
., 4.1591, 4.7883, 4.9294, 3.3850, 3.4208, 3.7004, 3.8800
./)
r0ab(3921:3990)=(/
. 3.9886, 3.9040, 3.6719, 3.6547, 3.4625, 3.3370, 3.8394
., 4.0335, 4.2373, 4.3023, 4.0306, 4.1408, 3.9297, 3.7857
., 4.1907, 4.3230, 4.2664, 4.2173, 4.1482, 3.6823, 4.0711
., 4.0180, 4.0017, 3.9747, 3.9634, 3.9383, 4.1993, 4.3205
., 4.0821, 4.2547, 4.0659, 3.9359, 4.3952, 4.5176, 4.3888
., 4.3607, 3.9583, 3.9280, 3.8390, 3.7971, 3.7955, 3.7674
., 3.7521, 4.1062, 4.3633, 4.2991, 4.2767, 4.4857, 4.3039
., 4.1762, 4.6197, 4.8654, 4.6633, 4.5878, 4.5640, 4.5422
., 4.5231, 4.5042, 4.4901, 4.3282, 4.3978, 4.3483, 4.4202
., 4.4039, 4.3926, 4.3807, 4.2649, 4.6135, 4.5605, 4.5232
./)
r0ab(3991:4060)=(/
. 4.4676, 4.3948, 4.0989, 3.9864, 3.8596, 4.0942, 4.2720
., 4.3270, 4.3022, 4.5410, 4.3576, 4.2235, 4.6545, 4.7447
., 4.7043, 3.0942, 3.2075, 3.5152, 3.6659, 3.8289, 3.7459
., 3.5156, 3.5197, 3.3290, 3.2069, 3.6702, 3.8448, 4.0340
., 3.9509, 3.8585, 3.9894, 3.7787, 3.6365, 4.1425, 4.1618
., 4.0940, 4.0466, 3.9941, 3.5426, 3.8952, 3.8327, 3.8126
., 3.7796, 3.7635, 3.7356, 4.0047, 3.9655, 3.9116, 4.1010
., 3.9102, 3.7800, 4.2964, 4.3330, 4.2622, 4.2254, 3.8195
., 3.7560, 3.6513, 3.5941, 3.5810, 3.5420, 3.5178, 3.8861
., 4.1459, 4.1147, 4.0772, 4.3120, 4.1207, 3.9900, 4.4733
./)
r0ab(4061:4130)=(/
. 4.6157, 4.4580, 4.4194, 4.3954, 4.3739, 4.3531, 4.3343
., 4.3196, 4.2140, 4.2339, 4.1738, 4.2458, 4.2278, 4.2158
., 4.2039, 4.1658, 4.3595, 4.2857, 4.2444, 4.1855, 4.1122
., 3.7839, 3.6879, 3.5816, 3.8633, 4.1585, 4.1402, 4.1036
., 4.3694, 4.1735, 4.0368, 4.5095, 4.5538, 4.5240, 4.4252
., 3.0187, 3.1918, 3.5127, 3.6875, 3.7404, 3.6943, 3.4702
., 3.4888, 3.2914, 3.1643, 3.6669, 3.8724, 3.9940, 4.0816
., 3.8054, 3.9661, 3.7492, 3.6024, 4.0428, 4.1951, 4.1466
., 4.0515, 4.0075, 3.5020, 3.9158, 3.8546, 3.8342, 3.8008
., 3.7845, 3.7549, 3.9602, 3.8872, 3.8564, 4.0793, 3.8835
./)
r0ab(4131:4200)=(/
. 3.7495, 4.2213, 4.3704, 4.3300, 4.2121, 3.7643, 3.7130
., 3.6144, 3.5599, 3.5474, 3.5093, 3.4853, 3.9075, 4.1115
., 4.0473, 4.0318, 4.2999, 4.1050, 3.9710, 4.4320, 4.6706
., 4.5273, 4.4581, 4.4332, 4.4064, 4.3873, 4.3684, 4.3537
., 4.2728, 4.2549, 4.2032, 4.2794, 4.2613, 4.2491, 4.2375
., 4.2322, 4.3665, 4.3061, 4.2714, 4.2155, 4.1416, 3.7660
., 3.6628, 3.5476, 3.8790, 4.1233, 4.0738, 4.0575, 4.3575
., 4.1586, 4.0183, 4.4593, 4.5927, 4.4865, 4.3813, 4.4594
., 2.9875, 3.1674, 3.4971, 3.6715, 3.7114, 3.6692, 3.4446
., 3.4676, 3.2685, 3.1405, 3.6546, 3.8579, 3.9637, 4.0581
./)
r0ab(4201:4270)=(/
. 3.7796, 3.9463, 3.7275, 3.5792, 4.0295, 4.1824, 4.1247
., 4.0357, 3.9926, 3.4827, 3.9007, 3.8392, 3.8191, 3.7851
., 3.7687, 3.7387, 3.9290, 3.8606, 3.8306, 4.0601, 3.8625
., 3.7269, 4.2062, 4.3566, 4.3022, 4.1929, 3.7401, 3.6888
., 3.5900, 3.5350, 3.5226, 3.4838, 3.4594, 3.8888, 4.0813
., 4.0209, 4.0059, 4.2810, 4.0843, 3.9486, 4.4162, 4.6542
., 4.5005, 4.4444, 4.4196, 4.3933, 4.3741, 4.3552, 4.3406
., 4.2484, 4.2413, 4.1907, 4.2656, 4.2474, 4.2352, 4.2236
., 4.2068, 4.3410, 4.2817, 4.2479, 4.1921, 4.1182, 3.7346
., 3.6314, 3.5168, 3.8582, 4.0927, 4.0469, 4.0313, 4.3391
./)
r0ab(4271:4340)=(/
. 4.1381, 3.9962, 4.4429, 4.5787, 4.4731, 4.3588, 4.4270
., 4.3957, 2.9659, 3.1442, 3.4795, 3.6503, 3.6814, 3.6476
., 3.4222, 3.4491, 3.2494, 3.1209, 3.6324, 3.8375, 3.9397
., 3.8311, 3.7581, 3.9274, 3.7085, 3.5598, 4.0080, 4.1641
., 4.1057, 4.0158, 3.9726, 3.4667, 3.8802, 3.8188, 3.7989
., 3.7644, 3.7474, 3.7173, 3.9049, 3.8424, 3.8095, 4.0412
., 3.8436, 3.7077, 4.1837, 4.3366, 4.2816, 4.1686, 3.7293
., 3.6709, 3.5700, 3.5153, 3.5039, 3.4684, 3.4437, 3.8663
., 4.0575, 4.0020, 3.9842, 4.2612, 4.0643, 3.9285, 4.3928
., 4.6308, 4.4799, 4.4244, 4.3996, 4.3737, 4.3547, 4.3358
./)
r0ab(4341:4410)=(/
. 4.3212, 4.2275, 4.2216, 4.1676, 4.2465, 4.2283, 4.2161
., 4.2045, 4.1841, 4.3135, 4.2562, 4.2226, 4.1667, 4.0932
., 3.7134, 3.6109, 3.4962, 3.8352, 4.0688, 4.0281, 4.0099
., 4.3199, 4.1188, 3.9768, 4.4192, 4.5577, 4.4516, 4.3365
., 4.4058, 4.3745, 4.3539, 2.8763, 3.1294, 3.5598, 3.7465
., 3.5659, 3.5816, 3.3599, 3.4024, 3.1877, 3.0484, 3.7009
., 3.9451, 3.8465, 3.9873, 3.7079, 3.9083, 3.6756, 3.5150
., 4.0829, 4.2780, 4.1511, 4.1260, 4.0571, 3.4865, 3.9744
., 3.9150, 3.8930, 3.8578, 3.8402, 3.8073, 3.7977, 4.0036
., 3.7604, 4.0288, 3.8210, 3.6757, 4.2646, 4.4558, 4.2862
./)
r0ab(4411:4465)=(/
. 4.2122, 3.7088, 3.6729, 3.5800, 3.5276, 3.5165, 3.4783
., 3.4539, 3.9553, 3.9818, 4.2040, 3.9604, 4.2718, 4.0689
., 3.9253, 4.4869, 4.7792, 4.4918, 4.5342, 4.5090, 4.4868
., 4.4680, 4.4486, 4.4341, 4.2023, 4.3122, 4.2710, 4.3587
., 4.3407, 4.3281, 4.3174, 4.1499, 4.3940, 4.3895, 4.3260
., 4.2725, 4.1961, 3.7361, 3.6193, 3.4916, 3.9115, 3.9914
., 3.9809, 3.9866, 4.3329, 4.1276, 3.9782, 4.5097, 4.6769
., 4.5158, 4.3291, 4.3609, 4.3462, 4.3265, 4.4341
./)
k=0
do i=1,max_elem
do j=1,i
k=k+1
r(i,j)=r0ab(k)/autoang
r(j,i)=r0ab(k)/autoang
enddo
enddo
end subroutine setr0ab
subroutine outg(nat,g,fname)
use xtb_mctc_accuracy, only : wp
implicit none
integer nat,i
real(wp) g(3,nat)
character(len=*) fname
open(unit=142,file=fname)
! write(*,*)'Gradient : ', fname
! write(*,*)
do i=1,nat
write(142,'(3E22.14)')g(1:3,i)
! write(*,'(3D22.14)')g(1:3,i)
enddo
close(142)
end subroutine outg
xtb-6.7.1/src/disp/dftd3.f90 0000664 0000000 0000000 00000072370 14650006642 0015410 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> Implementation of DFT-D3 with Becke-Johnson damping
module xtb_disp_dftd3
use xtb_mctc_accuracy, only : wp
use xtb_mctc_la, only : contract
use xtb_disp_dftd3param
use xtb_param_sqrtzr4r2, only : sqrtZr4r2
use xtb_type_molecule
use xtb_type_neighbourlist
use xtb_type_param
implicit none
private
public :: d3_gradient, d3_atm_gradient
interface d3_gradient
module procedure :: d3_full_gradient_neigh
module procedure :: d3_full_gradient_latp
module procedure :: d3_gradient_neigh
module procedure :: d3_gradient_latp
end interface d3_gradient
interface d3_atm_gradient
module procedure :: d3_atm_gradient_neigh
module procedure :: d3_atm_gradient_latp
end interface d3_atm_gradient
contains
!> Calculate the weights of the reference system and the derivatives w.r.t.
! coordination number for later use.
subroutine weight_references(nat, atoms, wf, cn, gwvec, gwdcn)
!> Nr. of atoms (without periodic images)
integer, intent(in) :: nat
!> Atomic numbers of every atom.
integer, intent(in) :: atoms(:)
!> Exponent for the Gaussian weighting.
real(wp), intent(in) :: wf
!> Coordination number of every atom.
real(wp), intent(in) :: cn(:)
!> weighting for the atomic reference systems
real(wp), intent(out) :: gwvec(:, :)
!> derivative of the weighting function w.r.t. the coordination number
real(wp), intent(out) :: gwdcn(:, :)
integer :: iat, ati, iref, icount
real(wp) :: norm, dnorm, gw, expw, expd, gwk, dgwk
gwvec = 0.0_wp
gwdcn = 0.0_wp
do iat = 1, nat
ati = atoms(iat)
norm = 0.0_wp
dnorm = 0.0_wp
do iref = 1, number_of_references(ati)
gw = weight_cn(wf, cn(iat), reference_cn(iref, ati))
norm = norm + gw
dnorm = dnorm + 2*wf*(reference_cn(iref, ati) - cn(iat)) * gw
end do
norm = 1.0_wp / norm
do iref = 1, number_of_references(ati)
expw = weight_cn(wf, cn(iat), reference_cn(iref, ati))
expd = 2*wf*(reference_cn(iref, ati) - cn(iat)) * expw
gwk = expw * norm
if (gwk /= gwk) then
if (maxval(reference_cn(:number_of_references(ati), ati)) &
& == reference_cn(iref, ati)) then
gwk = 1.0_wp
else
gwk = 0.0_wp
endif
endif
gwvec(iref, iat) = gwk
dgwk = expd*norm-expw*dnorm*norm**2
if (dgwk /= dgwk) then
dgwk = 0.0_wp
endif
gwdcn(iref, iat) = dgwk
end do
end do
end subroutine weight_references
!> calculate atomic dispersion coefficients and their derivatives w.r.t.
! the coordination number.
subroutine get_atomic_c6(nat, atoms, gwvec, gwdcn, c6, dc6dcn)
!> Nr. of atoms (without periodic images)
integer, intent(in) :: nat
!> numbers of every atom.
integer, intent(in) :: atoms(:)
!> weighting function for the atomic reference systems
real(wp), intent(in) :: gwvec(:, :)
!> derivative of the weighting function w.r.t. the coordination number
real(wp), intent(in) :: gwdcn(:, :)
!> C6 coefficients for all atom pairs.
real(wp), intent(out) :: c6(:, :)
!> derivative of the C6 w.r.t. the coordination number
real(wp), intent(out) :: dc6dcn(:, :)
integer :: iat, jat, ati, atj, iref, jref
real(wp) :: refc6, dc6, dc6dcni, dc6dcnj
c6 = 0.0_wp
dc6dcn = 0.0_wp
do iat = 1, nat
ati = atoms(iat)
do jat = 1, iat
atj = atoms(jat)
dc6 = 0.0_wp
dc6dcni = 0.0_wp
dc6dcnj = 0.0_wp
do iref = 1, number_of_references(ati)
do jref = 1, number_of_references(atj)
refc6 = get_c6(iref, jref, ati, atj)
dc6 = dc6 + gwvec(iref, iat) * gwvec(jref, jat) * refc6
dc6dcni = dc6dcni + gwdcn(iref, iat) * gwvec(jref, jat) * refc6
dc6dcnj = dc6dcnj + gwvec(iref, iat) * gwdcn(jref, jat) * refc6
end do
end do
c6(iat, jat) = dc6
c6(jat, iat) = dc6
dc6dcn(iat, jat) = dc6dcni
dc6dcn(jat, iat) = dc6dcnj
end do
end do
end subroutine get_atomic_c6
subroutine d3_full_gradient_latp &
& (mol, trans, par, weighting_factor, cutoff, cutoff3, &
& cn, dcndr, dcndL, energy, gradient, sigma, e2, e3)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Damping parameters
type(dftd_parameter), intent(in) :: par
real(wp), intent(in) :: trans(:, :)
real(wp), intent(in) :: weighting_factor
real(wp), intent(in) :: cutoff
real(wp), intent(in) :: cutoff3
real(wp), intent(in) :: cn(:)
real(wp), intent(in) :: dcndr(:, :, :)
real(wp), intent(in) :: dcndL(:, :, :)
real(wp), intent(inout) :: energy
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(out), optional :: e2
real(wp), intent(out), optional :: e3
integer :: nat, max_ref
real(wp), allocatable :: gw(:, :), dgwdcn(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :)
real(wp), allocatable :: energies(:), energies3(:), dEdcn(:)
nat = len(mol)
max_ref = maxval(number_of_references(mol%at))
allocate(gw(max_ref, nat), dgwdcn(max_ref, nat), c6(nat, nat), &
& dc6dcn(nat, nat), energies(nat), energies3(nat), &
& dEdcn(nat), source=0.0_wp)
call weight_references(nat, mol%at, weighting_factor, cn, gw, dgwdcn)
call get_atomic_c6(nat, mol%at, gw, dgwdcn, c6, dc6dcn)
call disp_gradient_latp(mol, trans, cutoff, par, sqrtZr4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
if (present(e2)) e2 = sum(energies)
if (par%s9 /= 0.0_wp) then
call atm_gradient_latp(mol, trans, cutoff3, par, sqrtZr4r2, c6, dc6dcn, &
& energies3, gradient, sigma, dEdcn)
end if
if (present(e3)) e3 = sum(energies3)
call contract(dcndr, dEdcn, gradient, beta=1.0_wp)
call contract(dcndL, dEdcn, sigma, beta=1.0_wp)
energy = energy + sum(energies) + sum(energies3)
end subroutine d3_full_gradient_latp
subroutine d3_gradient_latp &
& (mol, trans, par, weighting_factor, cutoff, &
& cn, dcndr, dcndL, energy, gradient, sigma)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Damping parameters
type(dftd_parameter), intent(in) :: par
real(wp), intent(in) :: trans(:, :)
real(wp), intent(in) :: weighting_factor
real(wp), intent(in) :: cutoff
real(wp), intent(in) :: cn(:)
real(wp), intent(in) :: dcndr(:, :, :)
real(wp), intent(in) :: dcndL(:, :, :)
real(wp), intent(inout) :: energy
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
integer :: nat, max_ref
real(wp), allocatable :: gw(:, :), dgwdcn(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :)
real(wp), allocatable :: energies(:), dEdcn(:)
nat = len(mol)
max_ref = maxval(number_of_references(mol%at))
allocate(gw(max_ref, nat), dgwdcn(max_ref, nat), c6(nat, nat), &
& dc6dcn(nat, nat), energies(nat), dEdcn(nat), source=0.0_wp)
call weight_references(nat, mol%at, weighting_factor, cn, gw, dgwdcn)
call get_atomic_c6(nat, mol%at, gw, dgwdcn, c6, dc6dcn)
call disp_gradient_latp(mol, trans, cutoff, par, sqrtZr4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
call contract(dcndr, dEdcn, gradient, beta=1.0_wp)
call contract(dcndL, dEdcn, sigma, beta=1.0_wp)
energy = energy + sum(energies)
end subroutine d3_gradient_latp
!> Implementation of the pairwise dispersion energy
subroutine disp_gradient_latp &
& (mol, trans, cutoff, par, r4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Damping parameters
type(dftd_parameter), intent(in) :: par
real(wp), intent(in) :: trans(:, :)
real(wp), intent(in) :: cutoff
real(wp), intent(in) :: r4r2(:)
real(wp), intent(in) :: c6(:, :)
real(wp), intent(in) :: dc6dcn(:, :)
real(wp), intent(inout) :: energies(:)
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(inout) :: dEdcn(:)
integer :: iat, jat, ati, atj, itr
real(wp) :: cutoff2
real(wp) :: r4r2ij, r0, rij(3), r2, t6, t8, t10, d6, d8, d10
real(wp) :: dE, dG(3), dS(3, 3), disp, ddisp
cutoff2 = cutoff**2
!$omp parallel do default(none) &
!$omp reduction(+:energies, gradient, sigma, dEdcn) &
!$omp shared(mol, trans, cutoff2, par, r4r2, c6, dc6dcn) &
!$omp private(iat, jat, itr, ati, atj, r2, rij, r4r2ij, r0, t6, t8, t10, &
!$omp& d6, d8, d10, disp, ddisp, dE, dG, dS)
do iat = 1, len(mol)
ati = mol%at(iat)
do jat = 1, iat
atj = mol%at(jat)
r4r2ij = 3*r4r2(ati)*r4r2(atj)
r0 = par%a1*sqrt(r4r2ij) + par%a2
do itr = 1, size(trans, dim=2)
rij = mol%xyz(:, iat) - mol%xyz(:, jat) - trans(:, itr)
r2 = sum(rij**2)
if (r2 > cutoff2 .or. r2 < 1.0e-10_wp) cycle
t6 = 1._wp/(r2**3+r0**6)
t8 = 1._wp/(r2**4+r0**8)
t10 = 1._wp/(r2**5+r0**10)
d6 = -6*r2**2*t6**2
d8 = -8*r2**3*t8**2
d10 = -10*r2**4*t10**2
disp = par%s6*t6 + par%s8*r4r2ij*t8 &
& + par%s10*49.0_wp/40.0_wp*r4r2ij**2*t10
ddisp= par%s6*d6 + par%s8*r4r2ij*d8 &
& + par%s10*49.0_wp/40.0_wp*r4r2ij**2*d10
dE = -c6(iat, jat)*disp * 0.5_wp
dG = -c6(iat, jat)*ddisp*rij
dS = spread(dG, 1, 3) * spread(rij, 2, 3) * 0.5_wp
energies(iat) = energies(iat) + dE
dEdcn(iat) = dEdcn(iat) - dc6dcn(iat, jat) * disp
sigma = sigma + dS
if (iat /= jat) then
energies(jat) = energies(jat) + dE
dEdcn(jat) = dEdcn(jat) - dc6dcn(jat, iat) * disp
gradient(:, iat) = gradient(:, iat) + dG
gradient(:, jat) = gradient(:, jat) - dG
sigma = sigma + dS
end if
end do
end do
end do
!$omp end parallel do
end subroutine disp_gradient_latp
subroutine d3_atm_gradient_latp &
& (mol, trans, par, weighting_factor, cutoff, &
& cn, dcndr, dcndL, energy, gradient, sigma)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Damping parameters
type(dftd_parameter), intent(in) :: par
real(wp), intent(in) :: trans(:, :)
real(wp), intent(in) :: weighting_factor
real(wp), intent(in) :: cutoff
real(wp), intent(in) :: cn(:)
real(wp), intent(in) :: dcndr(:, :, :)
real(wp), intent(in) :: dcndL(:, :, :)
real(wp), intent(inout) :: energy
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
integer :: nat, max_ref
real(wp), allocatable :: gw(:, :), dgwdcn(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :)
real(wp), allocatable :: energies(:), dEdcn(:)
nat = len(mol)
max_ref = maxval(number_of_references(mol%at))
allocate(gw(max_ref, nat), dgwdcn(max_ref, nat), c6(nat, nat), &
& dc6dcn(nat, nat), energies(nat), dEdcn(nat), source=0.0_wp)
call weight_references(nat, mol%at, weighting_factor, cn, gw, dgwdcn)
call get_atomic_c6(nat, mol%at, gw, dgwdcn, c6, dc6dcn)
call atm_gradient_latp(mol, trans, cutoff, par, sqrtZr4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
call contract(dcndr, dEdcn, gradient, beta=1.0_wp)
call contract(dcndL, dEdcn, sigma, beta=1.0_wp)
energy = energy + sum(energies)
end subroutine d3_atm_gradient_latp
subroutine atm_gradient_latp &
& (mol, trans, cutoff, par, r4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Damping parameters
type(dftd_parameter), intent(in) :: par
real(wp), intent(in) :: trans(:, :)
real(wp), intent(in) :: r4r2(:)
real(wp), intent(in) :: cutoff
real(wp), intent(in) :: c6(:, :)
real(wp), intent(in) :: dc6dcn(:, :)
real(wp), intent(inout) :: energies(:)
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(inout) :: dEdcn(:)
integer :: iat, jat, kat, ati, atj, atk, jtr, ktr
real(wp) :: cutoff2
real(wp) :: rij(3), rjk(3), rik(3), r2ij, r2jk, r2ik
real(wp) :: c6ij, c6jk, c6ik, cij, cjk, cik, scale
real(wp) :: dE, dG(3, 3), dS(3, 3), dCN(3)
real(wp), parameter :: sr = 4.0_wp/3.0_wp
cutoff2 = cutoff**2
do iat = 1, len(mol)
ati = mol%at(iat)
do jat = 1, iat
atj = mol%at(jat)
c6ij = c6(jat,iat)
!cij = par%a1*sqrt(3.0_wp*r4r2(ati)*r4r2(atj))+par%a2
cij = sr*get_vdwrad(ati, atj)
do kat = 1, jat
atk = mol%at(kat)
c6ik = c6(kat,iat)
c6jk = c6(kat,jat)
!cik = par%a1*sqrt(3.0_wp*r4r2(ati)*r4r2(atk))+par%a2
cik = sr*get_vdwrad(ati, atk)
!cjk = par%a1*sqrt(3.0_wp*r4r2(atj)*r4r2(atk))+par%a2
cjk = sr*get_vdwrad(atj, atk)
do jtr = 1, size(trans, dim=2)
rij = mol%xyz(:, jat) - mol%xyz(:, iat) + trans(:, jtr)
r2ij = sum(rij**2)
if (r2ij > cutoff2 .or. r2ij < 1.0e-14_wp) cycle
do ktr = 1, size(trans, dim=2)
if (jat == kat .and. jtr == ktr) cycle
rik = mol%xyz(:, kat) - mol%xyz(:, iat) + trans(:, ktr)
r2ik = sum(rik**2)
if (r2ik > cutoff2 .or. r2ik < 1.0e-14_wp) cycle
rjk = mol%xyz(:, kat) - mol%xyz(:, jat) + trans(:, ktr) &
& - trans(:, jtr)
r2jk = sum(rjk**2)
if (r2jk > cutoff2 .or. r2jk < 1.0e-14_wp) cycle
call deriv_atm_triple(c6ij, c6ik, c6jk, cij, cjk, cik, &
& r2ij, r2jk, r2ik, dc6dcn(iat,jat), dc6dcn(jat,iat), &
& dc6dcn(jat,kat), dc6dcn(kat,jat), dc6dcn(iat,kat), &
& dc6dcn(kat,iat), rij, rjk, rik, par%alp, dE, dG, dS, dCN)
scale = par%s9 * triple_scale(iat, jat, kat)
energies(iat) = energies(iat) + dE * scale/3
energies(jat) = energies(jat) + dE * scale/3
energies(kat) = energies(kat) + dE * scale/3
gradient(:, iat) = gradient(:, iat) + dG(:, 1) * scale
gradient(:, jat) = gradient(:, jat) + dG(:, 2) * scale
gradient(:, kat) = gradient(:, kat) + dG(:, 3) * scale
sigma(:, :) = sigma + dS * scale
dEdcn(iat) = dEdcn(iat) + dCN(1) * scale
dEdcn(jat) = dEdcn(jat) + dCN(2) * scale
dEdcn(kat) = dEdcn(kat) + dCN(3) * scale
end do
end do
end do
end do
end do
end subroutine atm_gradient_latp
subroutine d3_full_gradient_neigh &
& (mol, neighs, neighs3, neighlist, par, weighting_factor, &
& cn, dcndr, dcndL, energy, gradient, sigma, e2, e3)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Neighbour list
type(TNeighbourList), intent(in) :: neighlist
!> Damping parameters
type(dftd_parameter), intent(in) :: par
integer, intent(in) :: neighs(:)
integer, intent(in) :: neighs3(:)
real(wp), intent(in) :: weighting_factor
real(wp), intent(in) :: cn(:)
real(wp), intent(in) :: dcndr(:, :, :)
real(wp), intent(in) :: dcndL(:, :, :)
real(wp), intent(inout) :: energy
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(out), optional :: e2
real(wp), intent(out), optional :: e3
integer :: nat, max_ref
real(wp), allocatable :: gw(:, :), dgwdcn(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :)
real(wp), allocatable :: energies(:), energies3(:), dEdcn(:)
nat = len(mol)
max_ref = maxval(number_of_references(mol%at))
allocate(gw(max_ref, nat), dgwdcn(max_ref, nat), c6(nat, nat), &
& dc6dcn(nat, nat), energies(nat), energies3(nat), &
& dEdcn(nat), source=0.0_wp)
call weight_references(nat, mol%at, weighting_factor, cn, gw, dgwdcn)
call get_atomic_c6(nat, mol%at, gw, dgwdcn, c6, dc6dcn)
call disp_gradient_neigh(mol, neighs, neighlist, par, sqrtZr4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
if (present(e2)) e2 = sum(energies)
if (par%s9 /= 0.0_wp) then
call atm_gradient_neigh(mol, neighs, neighlist, par, sqrtZr4r2, c6, dc6dcn, &
& energies3, gradient, sigma, dEdcn)
end if
if (present(e3)) e3 = sum(energies3)
call contract(dcndr, dEdcn, gradient, beta=1.0_wp)
call contract(dcndL, dEdcn, sigma, beta=1.0_wp)
energy = energy + sum(energies) + sum(energies3)
end subroutine d3_full_gradient_neigh
subroutine d3_gradient_neigh &
& (mol, neighs, neighlist, par, weighting_factor, &
& cn, dcndr, dcndL, energy, gradient, sigma)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Neighbour list
type(TNeighbourList), intent(in) :: neighlist
!> Damping parameters
type(dftd_parameter), intent(in) :: par
integer, intent(in) :: neighs(:)
real(wp), intent(in) :: weighting_factor
real(wp), intent(in) :: cn(:)
real(wp), intent(in) :: dcndr(:, :, :)
real(wp), intent(in) :: dcndL(:, :, :)
real(wp), intent(inout) :: energy
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
integer :: nat, max_ref
real(wp), allocatable :: gw(:, :), dgwdcn(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :)
real(wp), allocatable :: energies(:), dEdcn(:)
nat = len(mol)
max_ref = maxval(number_of_references(mol%at))
allocate(gw(max_ref, nat), dgwdcn(max_ref, nat), c6(nat, nat), &
& dc6dcn(nat, nat), energies(nat), dEdcn(nat), source=0.0_wp)
call weight_references(nat, mol%at, weighting_factor, cn, gw, dgwdcn)
call get_atomic_c6(nat, mol%at, gw, dgwdcn, c6, dc6dcn)
call disp_gradient_neigh(mol, neighs, neighlist, par, sqrtZr4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
call contract(dcndr, dEdcn, gradient, beta=1.0_wp)
call contract(dcndL, dEdcn, sigma, beta=1.0_wp)
energy = energy + sum(energies)
end subroutine d3_gradient_neigh
subroutine disp_gradient_neigh &
& (mol, neighs, neighlist, par, r4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Neighbour list
type(TNeighbourList), intent(in) :: neighlist
!> Damping parameters
type(dftd_parameter), intent(in) :: par
integer, intent(in) :: neighs(:)
real(wp), intent(in) :: r4r2(:)
real(wp), intent(in) :: c6(:, :)
real(wp), intent(in) :: dc6dcn(:, :)
real(wp), intent(inout) :: energies(:)
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(inout) :: dEdcn(:)
integer :: iat, jat, ati, atj, ij, img
real(wp) :: r4r2ij, r0, rij(3), r2, t6, t8, t10, d6, d8, d10
real(wp) :: dE, dG(3), dS(3, 3), disp, ddisp
!$omp parallel do default(none) &
!$omp reduction(+:energies, gradient, sigma, dEdcn) &
!$omp shared(mol, neighs, neighlist, par, r4r2, c6, dc6dcn) &
!$omp private(ij, img, jat, ati, atj, r2, rij, r4r2ij, r0, t6, t8, t10, &
!$omp& d6, d8, d10, disp, ddisp, dE, dG, dS)
do iat = 1, len(mol)
ati = mol%at(iat)
do ij = 1, neighs(iat)
img = neighlist%ineigh(ij, iat)
r2 = neighlist%dist2(ij, iat)
rij = mol%xyz(:, iat) - neighlist%coords(:, img)
jat = neighlist%image(img)
atj = mol%at(jat)
r4r2ij = 3*r4r2(ati)*r4r2(atj)
r0 = par%a1*sqrt(r4r2ij) + par%a2
t6 = 1._wp/(r2**3+r0**6)
t8 = 1._wp/(r2**4+r0**8)
t10 = 1._wp/(r2**5+r0**10)
d6 = -6*r2**2*t6**2
d8 = -8*r2**3*t8**2
d10 = -10*r2**4*t10**2
disp = par%s6*t6 + par%s8*r4r2ij*t8 &
& + par%s10*49.0_wp/40.0_wp*r4r2ij**2*t10
ddisp= par%s6*d6 + par%s8*r4r2ij*d8 &
& + par%s10*49.0_wp/40.0_wp*r4r2ij**2*d10
dE = -c6(iat, jat)*disp * 0.5_wp
dG = -c6(iat, jat)*ddisp*rij
dS = spread(dG, 1, 3) * spread(rij, 2, 3) * 0.5_wp
energies(iat) = energies(iat) + dE
dEdcn(iat) = dEdcn(iat) - dc6dcn(iat, jat) * disp
sigma = sigma + dS
if (iat /= jat) then
energies(jat) = energies(jat) + dE
dEdcn(jat) = dEdcn(jat) - dc6dcn(jat, iat) * disp
gradient(:, iat) = gradient(:, iat) + dG
gradient(:, jat) = gradient(:, jat) - dG
sigma = sigma + dS
endif
enddo
enddo
!$omp end parallel do
end subroutine disp_gradient_neigh
subroutine d3_atm_gradient_neigh &
& (mol, neighs, neighlist, par, weighting_factor, &
& cn, dcndr, dcndL, energy, gradient, sigma)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Neighbour list
type(TNeighbourList), intent(in) :: neighlist
!> Damping parameters
type(dftd_parameter), intent(in) :: par
integer, intent(in) :: neighs(:)
real(wp), intent(in) :: weighting_factor
real(wp), intent(in) :: cn(:)
real(wp), intent(in) :: dcndr(:, :, :)
real(wp), intent(in) :: dcndL(:, :, :)
real(wp), intent(inout) :: energy
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
integer :: nat, max_ref
integer :: iat, jat, ati, atj, ij, img
real(wp) :: r4r2ij, r0, rij(3), r2, t6, t8, t10, d6, d8, d10
real(wp) :: dE, dG(3), dS(3, 3), disp, ddisp
real(wp), allocatable :: gw(:, :), dgwdcn(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :)
real(wp), allocatable :: energies(:), dEdcn(:)
nat = len(mol)
max_ref = maxval(number_of_references(mol%at))
allocate(gw(max_ref, nat), dgwdcn(max_ref, nat), c6(nat, nat), &
& dc6dcn(nat, nat), energies(nat), dEdcn(nat), source=0.0_wp)
call weight_references(nat, mol%at, weighting_factor, cn, gw, dgwdcn)
call get_atomic_c6(nat, mol%at, gw, dgwdcn, c6, dc6dcn)
call atm_gradient_neigh(mol, neighs, neighlist, par, sqrtZr4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
call contract(dcndr, dEdcn, gradient, beta=1.0_wp)
call contract(dcndL, dEdcn, sigma, beta=1.0_wp)
energy = energy + sum(energies)
end subroutine d3_atm_gradient_neigh
subroutine atm_gradient_neigh &
& (mol, neighs, neighlist, par, r4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Neighbour list
type(TNeighbourList), intent(in) :: neighlist
!> Damping parameters
type(dftd_parameter), intent(in) :: par
integer, intent(in) :: neighs(:)
real(wp), intent(in) :: r4r2(:)
real(wp), intent(in) :: c6(:, :)
real(wp), intent(in) :: dc6dcn(:, :)
real(wp), intent(inout) :: energies(:)
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(inout) :: dEdcn(:)
integer :: iat, jat, kat, ati, atj, atk, jtr, ktr, ij, jk, ik
real(wp) :: rij(3), rjk(3), rik(3), r2ij, r2jk, r2ik
real(wp) :: c6ij, c6jk, c6ik, cij, cjk, cik, scale
real(wp) :: dE, dG(3, 3), dS(3, 3), dCN(3)
real(wp), parameter :: sr = 4.0_wp/3.0_wp
do iat = 1, len(mol)
ati = mol%at(iat)
do ij = 1, neighs(iat)
jtr = neighlist%ineigh(ij, iat)
r2ij = neighlist%dist2(ij, iat)
rij = neighlist%coords(:, jtr) - neighlist%coords(:, iat)
jat = neighlist%image(jtr)
atj = mol%at(jat)
c6ij = c6(jat,iat)
!cij = par%a1*sqrt(3.0_wp*r4r2(ati)*r4r2(atj))+par%a2
cij = sr*get_vdwrad(ati, atj)
do ik = 1, ij-1
ktr = neighlist%ineigh(ik, iat)
rik = neighlist%coords(:, ktr) - neighlist%coords(:, iat)
r2ik = neighlist%dist2(ik, iat)
rjk = neighlist%coords(:, ktr) - neighlist%coords(:, jtr)
r2jk = sum(rjk**2)
kat = neighlist%image(ktr)
atk = mol%at(kat)
c6ik = c6(kat,iat)
c6jk = c6(kat,jat)
!cik = par%a1*sqrt(3.0_wp*r4r2(ati)*r4r2(atk))+par%a2
cik = sr*get_vdwrad(ati, atk)
!cjk = par%a1*sqrt(3.0_wp*r4r2(atj)*r4r2(atk))+par%a2
cjk = sr*get_vdwrad(atj, atk)
call deriv_atm_triple(c6ij, c6ik, c6jk, cij, cjk, cik, &
& r2ij, r2jk, r2ik, dc6dcn(iat,jat), dc6dcn(jat,iat), &
& dc6dcn(jat,kat), dc6dcn(kat,jat), dc6dcn(iat,kat), &
& dc6dcn(kat,iat), rij, rjk, rik, par%alp, dE, dG, dS, dCN)
scale = par%s9 * triple_scale(iat, jat, kat)
energies(iat) = energies(iat) + dE * scale/3
energies(jat) = energies(jat) + dE * scale/3
energies(kat) = energies(kat) + dE * scale/3
gradient(:, iat) = gradient(:, iat) + dG(:, 1) * scale
gradient(:, jat) = gradient(:, jat) + dG(:, 2) * scale
gradient(:, kat) = gradient(:, kat) + dG(:, 3) * scale
sigma(:, :) = sigma + dS * scale
dEdcn(iat) = dEdcn(iat) + dCN(1) * scale
dEdcn(jat) = dEdcn(jat) + dCN(2) * scale
dEdcn(kat) = dEdcn(kat) + dCN(3) * scale
end do
end do
end do
end subroutine atm_gradient_neigh
pure subroutine deriv_atm_triple(c6ij, c6ik, c6jk, cij, cjk, cik, &
& r2ij, r2jk, r2ik, dc6ij, dc6ji, dc6jk, dc6kj, dc6ik, dc6ki, &
& rij, rjk, rik, alp, dE, dG, dS, dCN)
real(wp), intent(in) :: c6ij, c6ik, c6jk
real(wp), intent(in) :: cij, cjk, cik
real(wp), intent(in) :: r2ij, r2jk, r2ik
real(wp), intent(in) :: dc6ij, dc6ji, dc6jk, dc6kj, dc6ik, dc6ki
real(wp), intent(in) :: rij(3), rjk(3), rik(3)
integer, intent(in) :: alp
real(wp), intent(out) :: dE, dG(3, 3), dS(3, 3), dCN(3)
real(wp) :: c9, dc9, ccc1, rrr1, rrr2, rrr3, ang, dang, fdmp, dfdmp, dGr, cr
c9 = -sqrt(c6ij*c6ik*c6jk)
ccc1 = cij*cjk*cik
rrr2 = r2ij*r2jk*r2ik
rrr1 = sqrt(rrr2)
rrr3 = rrr1*rrr2
ang = 0.375_wp * (r2ij+r2jk-r2ik)*(r2ij-r2jk+r2ik)*(-r2ij+r2jk+r2ik) &
& / (rrr3*rrr2) + 1.0_wp/(rrr3)
cr = (ccc1/rrr1)**(1.0_wp/3.0_wp)
fdmp = 1.0_wp/(1.0_wp + 6.0_wp*cr**alp)
dfdmp = -(2.0_wp*alp*cr**alp) * fdmp**2
! Energy contribution
dE = -fdmp*ang*c9
! Derivative w.r.t. i-j distance
dang = -0.375_wp*(r2ij**3+r2ij**2*(r2jk+r2ik) &
& +r2ij*(3.0_wp*r2jk**2+2.0_wp*r2jk*r2ik+3.0_wp*r2ik**2) &
& -5.0_wp*(r2jk-r2ik)**2*(r2jk+r2ik)) / (rrr3*rrr2)
dGr = (-dang*c9*fdmp + dfdmp*c9*ang)/r2ij
dG(:, 1) = -dGr * rij
dG(:, 2) = +dGr * rij
dS(:, :) = 0.5_wp * dGr * spread(rij, 1, 3) * spread(rij, 2, 3)
! Derivative w.r.t. i-k distance
dang = -0.375_wp*(r2ik**3+r2ik**2*(r2jk+r2ij) &
& +r2ik*(3.0_wp*r2jk**2+2.0*r2jk*r2ij+3.0_wp*r2ij**2) &
& -5.0_wp*(r2jk-r2ij)**2*(r2jk+r2ij)) / (rrr3*rrr2)
dGr = (-dang*c9*fdmp + dfdmp*c9*ang)/r2ik
dG(:, 1) = -dGr * rik + dG(:, 1)
dG(:, 3) = +dGr * rik
dS(:, :) = 0.5_wp * dGr * spread(rik, 1, 3) * spread(rik, 2, 3) + dS
! Derivative w.r.t. j-k distance
dang=-0.375_wp*(r2jk**3+r2jk**2*(r2ik+r2ij) &
& +r2jk*(3.0_wp*r2ik**2+2.0_wp*r2ik*r2ij+3.0_wp*r2ij**2) &
& -5.0_wp*(r2ik-r2ij)**2*(r2ik+r2ij)) / (rrr3*rrr2)
dGr = (-dang*c9*fdmp + dfdmp*c9*ang)/r2jk
dG(:, 2) = -dGr * rjk + dG(:, 2)
dG(:, 3) = +dGr * rjk + dG(:, 3)
dS(:, :) = 0.5_wp * dGr * spread(rjk, 1, 3) * spread(rjk, 2, 3) + dS
! CN derivative
dc9 = 0.5_wp*c9*(dc6ij/c6ij+dc6ik/c6ik)
dCN(1) = -ang*fdmp*dc9
dc9 = 0.5_wp*c9*(dc6ji/c6ij+dc6jk/c6jk)
dCN(2) = -ang*fdmp*dc9
dc9 = 0.5_wp*c9*(dc6ki/c6ik+dc6kj/c6jk)
dCN(3) = -ang*fdmp*dc9
end subroutine deriv_atm_triple
elemental function weight_cn(wf,cn,cnref) result(cngw)
real(wp),intent(in) :: wf, cn, cnref
real(wp) :: cngw
intrinsic :: exp
cngw = exp ( -wf * ( cn - cnref )**2 )
end function weight_cn
!> Correct counting of energy contributions for atomic pairs.
elemental function pair_scale(iat, jat) result(scale)
!> Atom indices
integer, intent(in) :: iat, jat
!> Fraction of energy
real(wp) :: scale
if (iat == jat) then
scale = 0.5_wp
else
scale = 1.0_wp
endif
end function pair_scale
!> Logic exercise to distribute a triple energy to atomwise energies.
elemental function triple_scale(ii, jj, kk) result(scale)
!> Atom indices
integer, intent(in) :: ii, jj, kk
!> Fraction of energy
real(wp) :: scale
if (ii == jj) then
if (ii == kk) then
! ii'i" -> 1/6
scale = 1.0_wp/6.0_wp
else
! ii'j -> 1/2
scale = 0.5_wp
end if
else
if (ii /= kk .and. jj /= kk) then
! ijk -> 1 (full)
scale = 1.0_wp
else
! ijj' and iji' -> 1/2
scale = 0.5_wp
end if
end if
end function triple_scale
end module xtb_disp_dftd3
xtb-6.7.1/src/disp/dftd3_parameters.f90 0000664 0000000 0000000 00007054626 14650006642 0017646 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_disp_dftd3param
use xtb_mctc_accuracy, only : wp
implicit none
public
integer, private, parameter :: max_elem = 94
integer, private, parameter :: max_ref = 5
integer, parameter :: number_of_references(max_elem) = [ &
& 2, 1, & ! H,He
& 2, 3, 5, 5, 4, 3, 2, 1, & ! Li-Ne
& 2, 3, 4, 5, 4, 3, 2, 1, & ! Na-Ar
& 2, 3, & ! K,Ca
& 3, 3, 3, 3, 3, 3, 4, 4, 2, 2, & ! Sc-Zn
& 4, 5, 4, 3, 2, 1, & ! Ga-Kr
& 2, 3, & ! Rb,Sr
& 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, & ! Y-Cd
& 4, 5, 4, 3, 2, 1, & ! In-Xe
& 2, 3, & ! Cs,Ba
& 3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! La-Eu
& 2, 3, 3, 3, 3, 3, 3, 3, 2, 2, & ! Lu-Hg
& 4, 5, 4, 3, 2, 1, & ! Tl-Rn
& 2, 3, & ! Fr,Ra
& 2, 2, 2, 2, 2, 2] ! Ac-Pu
real(wp), parameter :: reference_cn(max_ref, max_elem) = reshape([ &
& 0.9118_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! H
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! He
& 0.0000_wp, 0.9865_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Li
& 0.0000_wp, 0.9808_wp, 1.9697_wp, 0.0000_wp, 0.0000_wp, & ! Be
& 0.0000_wp, 0.9706_wp, 1.9441_wp, 2.9128_wp, 4.5856_wp, & ! B
& 0.0000_wp, 0.9868_wp, 1.9985_wp, 2.9987_wp, 3.9844_wp, & ! C
& 0.0000_wp, 0.9944_wp, 2.0143_wp, 2.9903_wp, 0.0000_wp, & ! N
& 0.0000_wp, 0.9925_wp, 1.9887_wp, 0.0000_wp, 0.0000_wp, & ! O
& 0.0000_wp, 0.9982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! F
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Ne
& 0.0000_wp, 0.9684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Na
& 0.0000_wp, 0.9628_wp, 1.9496_wp, 0.0000_wp, 0.0000_wp, & ! Mg
& 0.0000_wp, 0.9648_wp, 1.9311_wp, 2.9146_wp, 0.0000_wp, & ! Al
& 0.0000_wp, 0.9507_wp, 1.9435_wp, 2.9407_wp, 3.8677_wp, & ! Si
& 0.0000_wp, 0.9947_wp, 2.0102_wp, 2.9859_wp, 0.0000_wp, & ! P
& 0.0000_wp, 0.9948_wp, 1.9903_wp, 0.0000_wp, 0.0000_wp, & ! S
& 0.0000_wp, 0.9972_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Cl
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Ar
& 0.0000_wp, 0.9767_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! K
& 0.0000_wp, 0.9831_wp, 1.9349_wp, 0.0000_wp, 0.0000_wp, & ! Ca
& 0.0000_wp, 1.8627_wp, 2.8999_wp, 0.0000_wp, 0.0000_wp, & ! Sc
& 0.0000_wp, 1.8299_wp, 3.8675_wp, 0.0000_wp, 0.0000_wp, & ! Ti
& 0.0000_wp, 1.9138_wp, 2.9110_wp, 0.0000_wp, 0.0000_wp, & ! V
& 0.0000_wp, 1.8269_wp, 10.6191_wp, 0.0000_wp, 0.0000_wp, & ! Cr
& 0.0000_wp, 1.6406_wp, 9.8849_wp, 0.0000_wp, 0.0000_wp, & ! Mn
& 0.0000_wp, 1.6483_wp, 9.1376_wp, 0.0000_wp, 0.0000_wp, & ! Fe
& 0.0000_wp, 1.7149_wp, 2.9263_wp, 7.7785_wp, 0.0000_wp, & ! Co
& 0.0000_wp, 1.7937_wp, 6.5458_wp, 6.2918_wp, 0.0000_wp, & ! Ni
& 0.0000_wp, 0.9576_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Cu
& 0.0000_wp, 1.9419_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Zn
& 0.0000_wp, 0.9601_wp, 1.9315_wp, 2.9233_wp, 0.0000_wp, & ! Ga
& 0.0000_wp, 0.9434_wp, 1.9447_wp, 2.9186_wp, 3.8972_wp, & ! Ge
& 0.0000_wp, 0.9889_wp, 1.9793_wp, 2.9709_wp, 0.0000_wp, & ! As
& 0.0000_wp, 0.9901_wp, 1.9812_wp, 0.0000_wp, 0.0000_wp, & ! Se
& 0.0000_wp, 0.9974_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Br
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Kr
& 0.0000_wp, 0.9738_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Rb
& 0.0000_wp, 0.9801_wp, 1.9143_wp, 0.0000_wp, 0.0000_wp, & ! Sr
& 0.0000_wp, 1.9153_wp, 2.8903_wp, 0.0000_wp, 0.0000_wp, & ! Y
& 0.0000_wp, 1.9355_wp, 3.9106_wp, 0.0000_wp, 0.0000_wp, & ! Zr
& 0.0000_wp, 1.9545_wp, 2.9225_wp, 0.0000_wp, 0.0000_wp, & ! Nb
& 0.0000_wp, 1.9420_wp, 11.0556_wp, 0.0000_wp, 0.0000_wp, & ! Mo
& 0.0000_wp, 1.6682_wp, 9.5402_wp, 0.0000_wp, 0.0000_wp, & ! Tc
& 0.0000_wp, 1.8584_wp, 8.8895_wp, 0.0000_wp, 0.0000_wp, & ! Ru
& 0.0000_wp, 1.9003_wp, 2.9696_wp, 0.0000_wp, 0.0000_wp, & ! Rh
& 0.0000_wp, 1.8630_wp, 5.7095_wp, 0.0000_wp, 0.0000_wp, & ! Pd
& 0.0000_wp, 0.9679_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Ag
& 0.0000_wp, 1.9539_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Cd
& 0.0000_wp, 0.9633_wp, 1.9378_wp, 2.9353_wp, 0.0000_wp, & ! In
& 0.0000_wp, 0.9514_wp, 1.9505_wp, 2.9259_wp, 3.9123_wp, & ! Sn
& 0.0000_wp, 0.9749_wp, 1.9523_wp, 2.9315_wp, 0.0000_wp, & ! Sb
& 0.0000_wp, 0.9811_wp, 1.9639_wp, 0.0000_wp, 0.0000_wp, & ! Te
& 0.0000_wp, 0.9968_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! I
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Xe
& 0.0000_wp, 0.9909_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Cs
& 0.0000_wp, 0.9797_wp, 1.8467_wp, 0.0000_wp, 0.0000_wp, & ! Ba
& 0.0000_wp, 1.9373_wp, 2.9175_wp, 0.0000_wp, 0.0000_wp, & ! La
& 2.7991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Ce
& 0.0000_wp, 2.9425_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Pr
& 0.0000_wp, 2.9455_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Nd
& 0.0000_wp, 2.9413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Pm
& 0.0000_wp, 2.9300_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Sm
& 0.0000_wp, 1.8286_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Eu
& 0.0000_wp, 2.8732_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Gd
& 0.0000_wp, 2.9086_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Tb
& 0.0000_wp, 2.8965_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Dy
& 0.0000_wp, 2.9242_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Ho
& 0.0000_wp, 2.9282_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Er
& 0.0000_wp, 2.9246_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Tm
& 0.0000_wp, 2.8482_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Yb
& 0.0000_wp, 2.9219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Lu
& 0.0000_wp, 1.9254_wp, 3.8840_wp, 0.0000_wp, 0.0000_wp, & ! Hf
& 0.0000_wp, 1.9459_wp, 2.8988_wp, 0.0000_wp, 0.0000_wp, & ! Ta
& 0.0000_wp, 1.9292_wp, 10.9153_wp, 0.0000_wp, 0.0000_wp, & ! W
& 0.0000_wp, 1.8104_wp, 9.8054_wp, 0.0000_wp, 0.0000_wp, & ! Re
& 0.0000_wp, 1.8858_wp, 9.1527_wp, 0.0000_wp, 0.0000_wp, & ! Os
& 0.0000_wp, 1.8648_wp, 2.9424_wp, 0.0000_wp, 0.0000_wp, & ! Ir
& 0.0000_wp, 1.9188_wp, 6.6669_wp, 0.0000_wp, 0.0000_wp, & ! Pt
& 0.0000_wp, 0.9846_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Au
& 0.0000_wp, 1.9896_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Hg
& 0.0000_wp, 0.9267_wp, 1.9302_wp, 2.9420_wp, 0.0000_wp, & ! Tl
& 0.0000_wp, 0.9383_wp, 1.9356_wp, 2.9081_wp, 3.9098_wp, & ! Pb
& 0.0000_wp, 0.9820_wp, 1.9655_wp, 2.9500_wp, 0.0000_wp, & ! Bi
& 0.0000_wp, 0.9815_wp, 1.9639_wp, 0.0000_wp, 0.0000_wp, & ! Po
& 0.0000_wp, 0.9954_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! At
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Rn
& 0.0000_wp, 0.9705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Fr
& 0.0000_wp, 0.9662_wp, 1.8075_wp, 0.0000_wp, 0.0000_wp, & ! Ra
& 0.0000_wp, 2.9070_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Ac
& 0.0000_wp, 2.8844_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Th
& 0.0000_wp, 2.8738_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Pa
& 0.0000_wp, 2.8878_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! U
& 0.0000_wp, 2.9095_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, & ! Np
& 0.0000_wp, 1.9209_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],& ! Pu
& shape(reference_cn))
real(wp), parameter :: vdw_rad(max_elem*(1+max_elem)/2) = [&
& 2.1823_wp, 1.8547_wp, 1.7347_wp, 2.9086_wp, 2.5732_wp, &
& 3.4956_wp, 2.3550_wp, 2.5095_wp, 2.9802_wp, 3.0982_wp, &
& 2.5141_wp, 2.3917_wp, 2.9977_wp, 2.9484_wp, 3.2160_wp, &
& 2.4492_wp, 2.2527_wp, 3.1933_wp, 3.0214_wp, 2.9531_wp, &
& 2.9103_wp, 2.3667_wp, 2.1328_wp, 2.8784_wp, 2.7660_wp, &
& 2.7776_wp, 2.7063_wp, 2.6225_wp, 2.1768_wp, 2.0625_wp, &
& 2.6395_wp, 2.6648_wp, 2.6482_wp, 2.5697_wp, 2.4846_wp, &
& 2.4817_wp, 2.0646_wp, 1.9891_wp, 2.5086_wp, 2.6908_wp, &
& 2.6233_wp, 2.4770_wp, 2.3885_wp, 2.3511_wp, 2.2996_wp, &
& 1.9892_wp, 1.9251_wp, 2.4190_wp, 2.5473_wp, 2.4994_wp, &
& 2.4091_wp, 2.3176_wp, 2.2571_wp, 2.1946_wp, 2.1374_wp, &
& 2.9898_wp, 2.6397_wp, 3.6031_wp, 3.1219_wp, 3.7620_wp, &
& 3.2485_wp, 2.9357_wp, 2.7093_wp, 2.5781_wp, 2.4839_wp, &
& 3.7082_wp, 2.5129_wp, 2.7321_wp, 3.1052_wp, 3.2962_wp, &
& 3.1331_wp, 3.2000_wp, 2.9586_wp, 3.0822_wp, 2.8582_wp, &
& 2.7120_wp, 3.2570_wp, 3.4839_wp, 2.8766_wp, 2.7427_wp, &
& 3.2776_wp, 3.2363_wp, 3.5929_wp, 3.2826_wp, 3.0911_wp, &
& 2.9369_wp, 2.9030_wp, 2.7789_wp, 3.3921_wp, 3.3970_wp, &
& 4.0106_wp, 2.8884_wp, 2.6605_wp, 3.7513_wp, 3.1613_wp, &
& 3.3605_wp, 3.3325_wp, 3.0991_wp, 2.9297_wp, 2.8674_wp, &
& 2.7571_wp, 3.8129_wp, 3.3266_wp, 3.7105_wp, 3.7917_wp, &
& 2.8304_wp, 2.5538_wp, 3.3932_wp, 3.1193_wp, 3.1866_wp, &
& 3.1245_wp, 3.0465_wp, 2.8727_wp, 2.7664_wp, 2.6926_wp, &
& 3.4608_wp, 3.2984_wp, 3.5142_wp, 3.5418_wp, 3.5017_wp, &
& 2.6190_wp, 2.4797_wp, 3.1331_wp, 3.0540_wp, 3.0651_wp, &
& 2.9879_wp, 2.9054_wp, 2.8805_wp, 2.7330_wp, 2.6331_wp, &
& 3.2096_wp, 3.5668_wp, 3.3684_wp, 3.3686_wp, 3.3180_wp, &
& 3.3107_wp, 2.4757_wp, 2.4019_wp, 2.9789_wp, 3.1468_wp, &
& 2.9768_wp, 2.8848_wp, 2.7952_wp, 2.7457_wp, 2.6881_wp, &
& 2.5728_wp, 3.0574_wp, 3.3264_wp, 3.3562_wp, 3.2529_wp, &
& 3.1916_wp, 3.1523_wp, 3.1046_wp, 2.3725_wp, 2.3289_wp, &
& 2.8760_wp, 2.9804_wp, 2.9093_wp, 2.8040_wp, 2.7071_wp, &
& 2.6386_wp, 2.5720_wp, 2.5139_wp, 2.9517_wp, 3.1606_wp, &
& 3.2085_wp, 3.1692_wp, 3.0982_wp, 3.0352_wp, 2.9730_wp, &
& 2.9148_wp, 3.2147_wp, 2.8315_wp, 3.8724_wp, 3.4621_wp, &
& 3.8823_wp, 3.3760_wp, 3.0746_wp, 2.8817_wp, 2.7552_wp, &
& 2.6605_wp, 3.9740_wp, 3.6192_wp, 3.6569_wp, 3.9586_wp, &
& 3.6188_wp, 3.3917_wp, 3.2479_wp, 3.1434_wp, 4.2411_wp, &
& 2.7597_wp, 3.0588_wp, 3.3474_wp, 3.6214_wp, 3.4353_wp, &
& 3.4729_wp, 3.2487_wp, 3.3200_wp, 3.0914_wp, 2.9403_wp, &
& 3.4972_wp, 3.7993_wp, 3.6773_wp, 3.8678_wp, 3.5808_wp, &
& 3.8243_wp, 3.5826_wp, 3.4156_wp, 3.8765_wp, 4.1035_wp, &
& 2.7361_wp, 2.9765_wp, 3.2475_wp, 3.5004_wp, 3.4185_wp, &
& 3.4378_wp, 3.2084_wp, 3.2787_wp, 3.0604_wp, 2.9187_wp, &
& 3.4037_wp, 3.6759_wp, 3.6586_wp, 3.8327_wp, 3.5372_wp, &
& 3.7665_wp, 3.5310_wp, 3.3700_wp, 3.7788_wp, 3.9804_wp, &
& 3.8903_wp, 2.6832_wp, 2.9060_wp, 3.2613_wp, 3.4359_wp, &
& 3.3538_wp, 3.3860_wp, 3.1550_wp, 3.2300_wp, 3.0133_wp, &
& 2.8736_wp, 3.4024_wp, 3.6142_wp, 3.5979_wp, 3.5295_wp, &
& 3.4834_wp, 3.7140_wp, 3.4782_wp, 3.3170_wp, 3.7434_wp, &
& 3.9623_wp, 3.8181_wp, 3.7642_wp, 2.6379_wp, 2.8494_wp, &
& 3.1840_wp, 3.4225_wp, 3.2771_wp, 3.3401_wp, 3.1072_wp, &
& 3.1885_wp, 2.9714_wp, 2.8319_wp, 3.3315_wp, 3.5979_wp, &
& 3.5256_wp, 3.4980_wp, 3.4376_wp, 3.6714_wp, 3.4346_wp, &
& 3.2723_wp, 3.6859_wp, 3.8985_wp, 3.7918_wp, 3.7372_wp, &
& 3.7211_wp, 2.9230_wp, 2.6223_wp, 3.4161_wp, 2.8999_wp, &
& 3.0557_wp, 3.3308_wp, 3.0555_wp, 2.8508_wp, 2.7385_wp, &
& 2.6640_wp, 3.5263_wp, 3.0277_wp, 3.2990_wp, 3.7721_wp, &
& 3.5017_wp, 3.2751_wp, 3.1368_wp, 3.0435_wp, 3.7873_wp, &
& 3.2858_wp, 3.2140_wp, 3.1727_wp, 3.2178_wp, 3.4414_wp, &
& 2.5490_wp, 2.7623_wp, 3.0991_wp, 3.3252_wp, 3.1836_wp, &
& 3.2428_wp, 3.0259_wp, 3.1225_wp, 2.9032_wp, 2.7621_wp, &
& 3.2490_wp, 3.5110_wp, 3.4429_wp, 3.3845_wp, 3.3574_wp, &
& 3.6045_wp, 3.3658_wp, 3.2013_wp, 3.6110_wp, 3.8241_wp, &
& 3.7090_wp, 3.6496_wp, 3.6333_wp, 3.0896_wp, 3.5462_wp, &
& 2.4926_wp, 2.7136_wp, 3.0693_wp, 3.2699_wp, 3.1272_wp, &
& 3.1893_wp, 2.9658_wp, 3.0972_wp, 2.8778_wp, 2.7358_wp, &
& 3.2206_wp, 3.4566_wp, 3.3896_wp, 3.3257_wp, 3.2946_wp, &
& 3.5693_wp, 3.3312_wp, 3.1670_wp, 3.5805_wp, 3.7711_wp, &
& 3.6536_wp, 3.5927_wp, 3.5775_wp, 3.0411_wp, 3.4885_wp, &
& 3.4421_wp, 2.4667_wp, 2.6709_wp, 3.0575_wp, 3.2357_wp, &
& 3.0908_wp, 3.1537_wp, 2.9235_wp, 3.0669_wp, 2.8476_wp, &
& 2.7054_wp, 3.2064_wp, 3.4519_wp, 3.3593_wp, 3.2921_wp, &
& 3.2577_wp, 3.2161_wp, 3.2982_wp, 3.1339_wp, 3.5606_wp, &
& 3.7582_wp, 3.6432_wp, 3.5833_wp, 3.5691_wp, 3.0161_wp, &
& 3.4812_wp, 3.4339_wp, 3.4327_wp, 2.4515_wp, 2.6338_wp, &
& 3.0511_wp, 3.2229_wp, 3.0630_wp, 3.1265_wp, 2.8909_wp, &
& 3.0253_wp, 2.8184_wp, 2.6764_wp, 3.1968_wp, 3.4114_wp, &
& 3.3492_wp, 3.2691_wp, 3.2320_wp, 3.1786_wp, 3.2680_wp, &
& 3.1036_wp, 3.5453_wp, 3.7259_wp, 3.6090_wp, 3.5473_wp, &
& 3.5327_wp, 3.0018_wp, 3.4413_wp, 3.3907_wp, 3.3593_wp, &
& 3.3462_wp, 2.4413_wp, 2.6006_wp, 3.0540_wp, 3.1987_wp, &
& 3.0490_wp, 3.1058_wp, 2.8643_wp, 2.9948_wp, 2.7908_wp, &
& 2.6491_wp, 3.1950_wp, 3.3922_wp, 3.3316_wp, 3.2585_wp, &
& 3.2136_wp, 3.1516_wp, 3.2364_wp, 3.0752_wp, 3.5368_wp, &
& 3.7117_wp, 3.5941_wp, 3.5313_wp, 3.5164_wp, 2.9962_wp, &
& 3.4225_wp, 3.3699_wp, 3.3370_wp, 3.3234_wp, 3.3008_wp, &
& 2.4318_wp, 2.5729_wp, 3.0416_wp, 3.1639_wp, 3.0196_wp, &
& 3.0843_wp, 2.8413_wp, 2.7436_wp, 2.7608_wp, 2.6271_wp, &
& 3.1811_wp, 3.3591_wp, 3.3045_wp, 3.2349_wp, 3.1942_wp, &
& 3.1291_wp, 3.2111_wp, 3.0534_wp, 3.5189_wp, 3.6809_wp, &
& 3.5635_wp, 3.5001_wp, 3.4854_wp, 2.9857_wp, 3.3897_wp, &
& 3.3363_wp, 3.3027_wp, 3.2890_wp, 3.2655_wp, 3.2309_wp, &
& 2.8502_wp, 2.6934_wp, 3.2467_wp, 3.1921_wp, 3.5663_wp, &
& 3.2541_wp, 3.0571_wp, 2.9048_wp, 2.8657_wp, 2.7438_wp, &
& 3.3547_wp, 3.3510_wp, 3.9837_wp, 3.6871_wp, 3.4862_wp, &
& 3.3389_wp, 3.2413_wp, 3.1708_wp, 3.6096_wp, 3.6280_wp, &
& 3.6860_wp, 3.5568_wp, 3.4836_wp, 3.2868_wp, 3.3994_wp, &
& 3.3476_wp, 3.3170_wp, 3.2950_wp, 3.2874_wp, 3.2606_wp, &
& 3.9579_wp, 2.9226_wp, 2.6838_wp, 3.7867_wp, 3.1732_wp, &
& 3.3872_wp, 3.3643_wp, 3.1267_wp, 2.9541_wp, 2.8505_wp, &
& 2.7781_wp, 3.8475_wp, 3.3336_wp, 3.7359_wp, 3.8266_wp, &
& 3.5733_wp, 3.3959_wp, 3.2775_wp, 3.1915_wp, 3.9878_wp, &
& 3.8816_wp, 3.5810_wp, 3.5364_wp, 3.5060_wp, 3.8097_wp, &
& 3.3925_wp, 3.3348_wp, 3.3019_wp, 3.2796_wp, 3.2662_wp, &
& 3.2464_wp, 3.7136_wp, 3.8619_wp, 2.9140_wp, 2.6271_wp, &
& 3.4771_wp, 3.1774_wp, 3.2560_wp, 3.1970_wp, 3.1207_wp, &
& 2.9406_wp, 2.8322_wp, 2.7571_wp, 3.5455_wp, 3.3514_wp, &
& 3.5837_wp, 3.6177_wp, 3.5816_wp, 3.3902_wp, 3.2604_wp, &
& 3.1652_wp, 3.7037_wp, 3.6283_wp, 3.5858_wp, 3.5330_wp, &
& 3.4884_wp, 3.5789_wp, 3.4094_wp, 3.3473_wp, 3.3118_wp, &
& 3.2876_wp, 3.2707_wp, 3.2521_wp, 3.5570_wp, 3.6496_wp, &
& 3.6625_wp, 2.7300_wp, 2.5870_wp, 3.2471_wp, 3.1487_wp, &
& 3.1667_wp, 3.0914_wp, 3.0107_wp, 2.9812_wp, 2.8300_wp, &
& 2.7284_wp, 3.3259_wp, 3.3182_wp, 3.4707_wp, 3.4748_wp, &
& 3.4279_wp, 3.4182_wp, 3.2547_wp, 3.1353_wp, 3.5116_wp, &
& 3.9432_wp, 3.8828_wp, 3.8303_wp, 3.7880_wp, 3.3760_wp, &
& 3.7218_wp, 3.3408_wp, 3.3059_wp, 3.2698_wp, 3.2446_wp, &
& 3.2229_wp, 3.4422_wp, 3.5023_wp, 3.5009_wp, 3.5268_wp, &
& 2.6026_wp, 2.5355_wp, 3.1129_wp, 3.2863_wp, 3.1029_wp, &
& 3.0108_wp, 2.9227_wp, 2.8694_wp, 2.8109_wp, 2.6929_wp, &
& 3.1958_wp, 3.4670_wp, 3.4018_wp, 3.3805_wp, 3.3218_wp, &
& 3.2815_wp, 3.2346_wp, 3.0994_wp, 3.3937_wp, 3.7266_wp, &
& 3.6697_wp, 3.6164_wp, 3.5730_wp, 3.2522_wp, 3.5051_wp, &
& 3.4686_wp, 3.4355_wp, 3.4084_wp, 3.3748_wp, 3.3496_wp, &
& 3.3692_wp, 3.4052_wp, 3.3910_wp, 3.3849_wp, 3.3662_wp, &
& 2.5087_wp, 2.4814_wp, 3.0239_wp, 3.1312_wp, 3.0535_wp, &
& 2.9457_wp, 2.8496_wp, 2.7780_wp, 2.7828_wp, 2.6532_wp, &
& 3.1063_wp, 3.3143_wp, 3.3549_wp, 3.3120_wp, 3.2421_wp, &
& 3.1787_wp, 3.1176_wp, 3.0613_wp, 3.3082_wp, 3.5755_wp, &
& 3.5222_wp, 3.4678_wp, 3.4231_wp, 3.1684_wp, 3.3528_wp, &
& 3.3162_wp, 3.2827_wp, 3.2527_wp, 3.2308_wp, 3.2029_wp, &
& 3.3173_wp, 3.3343_wp, 3.3092_wp, 3.2795_wp, 3.2452_wp, &
& 3.2096_wp, 3.2893_wp, 2.8991_wp, 4.0388_wp, 3.6100_wp, &
& 3.9388_wp, 3.4475_wp, 3.1590_wp, 2.9812_wp, 2.8586_wp, &
& 2.7683_wp, 4.1428_wp, 3.7911_wp, 3.8225_wp, 4.0372_wp, &
& 3.7059_wp, 3.4935_wp, 3.3529_wp, 3.2492_wp, 4.4352_wp, &
& 4.0826_wp, 3.9733_wp, 3.9254_wp, 3.8646_wp, 3.9315_wp, &
& 3.7837_wp, 3.7465_wp, 3.7211_wp, 3.7012_wp, 3.6893_wp, &
& 3.6676_wp, 3.7736_wp, 4.0660_wp, 3.7926_wp, 3.6158_wp, &
& 3.5017_wp, 3.4166_wp, 4.6176_wp, 2.8786_wp, 3.1658_wp, &
& 3.5823_wp, 3.7689_wp, 3.5762_wp, 3.5789_wp, 3.3552_wp, &
& 3.4004_wp, 3.1722_wp, 3.0212_wp, 3.7241_wp, 3.9604_wp, &
& 3.8500_wp, 3.9844_wp, 3.7035_wp, 3.9161_wp, 3.6751_wp, &
& 3.5075_wp, 4.1151_wp, 4.2877_wp, 4.1579_wp, 4.1247_wp, &
& 4.0617_wp, 3.4874_wp, 3.9848_wp, 3.9280_wp, 3.9079_wp, &
& 3.8751_wp, 3.8604_wp, 3.8277_wp, 3.8002_wp, 3.9981_wp, &
& 3.7544_wp, 4.0371_wp, 3.8225_wp, 3.6718_wp, 4.3092_wp, &
& 4.4764_wp, 2.8997_wp, 3.0953_wp, 3.4524_wp, 3.6107_wp, &
& 3.6062_wp, 3.5783_wp, 3.3463_wp, 3.3855_wp, 3.1746_wp, &
& 3.0381_wp, 3.6019_wp, 3.7938_wp, 3.8697_wp, 3.9781_wp, &
& 3.6877_wp, 3.8736_wp, 3.6451_wp, 3.4890_wp, 3.9858_wp, &
& 4.1179_wp, 4.0430_wp, 3.9563_wp, 3.9182_wp, 3.4002_wp, &
& 3.8310_wp, 3.7716_wp, 3.7543_wp, 3.7203_wp, 3.7053_wp, &
& 3.6742_wp, 3.8318_wp, 3.7631_wp, 3.7392_wp, 3.9892_wp, &
& 3.7832_wp, 3.6406_wp, 4.1701_wp, 4.3016_wp, 4.2196_wp, &
& 2.8535_wp, 3.0167_wp, 3.3978_wp, 3.5363_wp, 3.5393_wp, &
& 3.5301_wp, 3.2960_wp, 3.3352_wp, 3.1287_wp, 2.9967_wp, &
& 3.6659_wp, 3.7239_wp, 3.8070_wp, 3.7165_wp, 3.6368_wp, &
& 3.8162_wp, 3.5885_wp, 3.4336_wp, 3.9829_wp, 4.0529_wp, &
& 3.9584_wp, 3.9025_wp, 3.8607_wp, 3.3673_wp, 3.7658_wp, &
& 3.7035_wp, 3.6866_wp, 3.6504_wp, 3.6339_wp, 3.6024_wp, &
& 3.7708_wp, 3.7283_wp, 3.6896_wp, 3.9315_wp, 3.7250_wp, &
& 3.5819_wp, 4.1457_wp, 4.2280_wp, 4.1130_wp, 4.0597_wp, &
& 3.0905_wp, 2.7998_wp, 3.6448_wp, 3.0739_wp, 3.2996_wp, &
& 3.5262_wp, 3.2559_wp, 3.0518_wp, 2.9394_wp, 2.8658_wp, &
& 3.7514_wp, 3.2295_wp, 3.5643_wp, 3.7808_wp, 3.6931_wp, &
& 3.4723_wp, 3.3357_wp, 3.2429_wp, 4.0280_wp, 3.5589_wp, &
& 3.4636_wp, 3.4994_wp, 3.4309_wp, 3.6177_wp, 3.2946_wp, &
& 3.2376_wp, 3.2050_wp, 3.1847_wp, 3.1715_wp, 3.1599_wp, &
& 3.5555_wp, 3.8111_wp, 3.7693_wp, 3.5718_wp, 3.4498_wp, &
& 3.3662_wp, 4.1608_wp, 3.7417_wp, 3.6536_wp, 3.6154_wp, &
& 3.8596_wp, 3.0301_wp, 2.7312_wp, 3.5821_wp, 3.0473_wp, &
& 3.2137_wp, 3.4679_wp, 3.1975_wp, 2.9969_wp, 2.8847_wp, &
& 2.8110_wp, 3.6931_wp, 3.2076_wp, 3.4943_wp, 3.5956_wp, &
& 3.6379_wp, 3.4190_wp, 3.2808_wp, 3.1860_wp, 3.9850_wp, &
& 3.5105_wp, 3.4330_wp, 3.3797_wp, 3.4155_wp, 3.6033_wp, &
& 3.2737_wp, 3.2145_wp, 3.1807_wp, 3.1596_wp, 3.1461_wp, &
& 3.1337_wp, 3.4812_wp, 3.6251_wp, 3.7152_wp, 3.5201_wp, &
& 3.3966_wp, 3.3107_wp, 4.1128_wp, 3.6899_wp, 3.6082_wp, &
& 3.5604_wp, 3.7834_wp, 3.7543_wp, 2.9189_wp, 2.6777_wp, &
& 3.4925_wp, 2.9648_wp, 3.1216_wp, 3.2940_wp, 3.0975_wp, &
& 2.9757_wp, 2.8493_wp, 2.7638_wp, 3.6085_wp, 3.1214_wp, &
& 3.4006_wp, 3.4793_wp, 3.5147_wp, 3.3806_wp, 3.2356_wp, &
& 3.1335_wp, 3.9144_wp, 3.4183_wp, 3.3369_wp, 3.2803_wp, &
& 3.2679_wp, 3.4871_wp, 3.1714_wp, 3.1521_wp, 3.1101_wp, &
& 3.0843_wp, 3.0670_wp, 3.0539_wp, 3.3890_wp, 3.5086_wp, &
& 3.5895_wp, 3.4783_wp, 3.3484_wp, 3.2559_wp, 4.0422_wp, &
& 3.5967_wp, 3.5113_wp, 3.4576_wp, 3.6594_wp, 3.6313_wp, &
& 3.5690_wp, 2.8578_wp, 2.6334_wp, 3.4673_wp, 2.9245_wp, &
& 3.0732_wp, 3.2435_wp, 3.0338_wp, 2.9462_wp, 2.8143_wp, &
& 2.7240_wp, 3.5832_wp, 3.0789_wp, 3.3617_wp, 3.4246_wp, &
& 3.4505_wp, 3.3443_wp, 3.1964_wp, 3.0913_wp, 3.8921_wp, &
& 3.3713_wp, 3.2873_wp, 3.2281_wp, 3.2165_wp, 3.4386_wp, &
& 3.1164_wp, 3.1220_wp, 3.0761_wp, 3.0480_wp, 3.0295_wp, &
& 3.0155_wp, 3.3495_wp, 3.4543_wp, 3.5260_wp, 3.4413_wp, &
& 3.3085_wp, 3.2134_wp, 4.0170_wp, 3.5464_wp, 3.4587_wp, &
& 3.4006_wp, 3.6027_wp, 3.5730_wp, 3.4945_wp, 3.4623_wp, &
& 2.8240_wp, 2.5960_wp, 3.4635_wp, 2.9032_wp, 3.0431_wp, &
& 3.2115_wp, 2.9892_wp, 2.9148_wp, 2.7801_wp, 2.6873_wp, &
& 3.5776_wp, 3.0568_wp, 3.3433_wp, 3.3949_wp, 3.4132_wp, &
& 3.3116_wp, 3.1616_wp, 3.0548_wp, 3.8859_wp, 3.3719_wp, &
& 3.2917_wp, 3.2345_wp, 3.2274_wp, 3.4171_wp, 3.1293_wp, &
& 3.0567_wp, 3.0565_wp, 3.0274_wp, 3.0087_wp, 2.9939_wp, &
& 3.3293_wp, 3.4249_wp, 3.4902_wp, 3.4091_wp, 3.2744_wp, &
& 3.1776_wp, 4.0078_wp, 3.5374_wp, 3.4537_wp, 3.3956_wp, &
& 3.5747_wp, 3.5430_wp, 3.4522_wp, 3.4160_wp, 3.3975_wp, &
& 2.8004_wp, 2.5621_wp, 3.4617_wp, 2.9154_wp, 3.0203_wp, &
& 3.1875_wp, 2.9548_wp, 2.8038_wp, 2.7472_wp, 2.6530_wp, &
& 3.5736_wp, 3.0584_wp, 3.3304_wp, 3.3748_wp, 3.3871_wp, &
& 3.2028_wp, 3.1296_wp, 3.0214_wp, 3.8796_wp, 3.3337_wp, &
& 3.2492_wp, 3.1883_wp, 3.1802_wp, 3.4050_wp, 3.0756_wp, &
& 3.0478_wp, 3.0322_wp, 3.0323_wp, 3.0163_wp, 3.0019_wp, &
& 3.3145_wp, 3.4050_wp, 3.4656_wp, 3.3021_wp, 3.2433_wp, &
& 3.1453_wp, 3.9991_wp, 3.5017_wp, 3.4141_wp, 3.3520_wp, &
& 3.5583_wp, 3.5251_wp, 3.4243_wp, 3.3851_wp, 3.3662_wp, &
& 3.3525_wp, 2.7846_wp, 2.5324_wp, 3.4652_wp, 2.8759_wp, &
& 3.0051_wp, 3.1692_wp, 2.9273_wp, 2.7615_wp, 2.7164_wp, &
& 2.6212_wp, 3.5744_wp, 3.0275_wp, 3.3249_wp, 3.3627_wp, &
& 3.3686_wp, 3.1669_wp, 3.0584_wp, 2.9915_wp, 3.8773_wp, &
& 3.3099_wp, 3.2231_wp, 3.1600_wp, 3.1520_wp, 3.4023_wp, &
& 3.0426_wp, 3.0099_wp, 2.9920_wp, 2.9809_wp, 2.9800_wp, &
& 2.9646_wp, 3.3068_wp, 3.3930_wp, 3.4486_wp, 3.2682_wp, &
& 3.1729_wp, 3.1168_wp, 3.9952_wp, 3.4796_wp, 3.3901_wp, &
& 3.3255_wp, 3.5530_wp, 3.5183_wp, 3.4097_wp, 3.3683_wp, &
& 3.3492_wp, 3.3360_wp, 3.3308_wp, 2.5424_wp, 2.6601_wp, &
& 3.2555_wp, 3.2807_wp, 3.1384_wp, 3.1737_wp, 2.9397_wp, &
& 2.8429_wp, 2.8492_wp, 2.7225_wp, 3.3875_wp, 3.4910_wp, &
& 3.4520_wp, 3.3608_wp, 3.3036_wp, 3.2345_wp, 3.2999_wp, &
& 3.1487_wp, 3.7409_wp, 3.8392_wp, 3.7148_wp, 3.6439_wp, &
& 3.6182_wp, 3.1753_wp, 3.5210_wp, 3.4639_wp, 3.4265_wp, &
& 3.4075_wp, 3.3828_wp, 3.3474_wp, 3.4071_wp, 3.3754_wp, &
& 3.3646_wp, 3.3308_wp, 3.4393_wp, 3.2993_wp, 3.8768_wp, &
& 3.9891_wp, 3.8310_wp, 3.7483_wp, 3.3417_wp, 3.3019_wp, &
& 3.2250_wp, 3.1832_wp, 3.1578_wp, 3.1564_wp, 3.1224_wp, &
& 3.4620_wp, 2.9743_wp, 2.8058_wp, 3.4830_wp, 3.3474_wp, &
& 3.6863_wp, 3.3617_wp, 3.1608_wp, 3.0069_wp, 2.9640_wp, &
& 2.8427_wp, 3.5885_wp, 3.5219_wp, 4.1314_wp, 3.8120_wp, &
& 3.6015_wp, 3.4502_wp, 3.3498_wp, 3.2777_wp, 3.8635_wp, &
& 3.8232_wp, 3.8486_wp, 3.7215_wp, 3.6487_wp, 3.4724_wp, &
& 3.5627_wp, 3.5087_wp, 3.4757_wp, 3.4517_wp, 3.4423_wp, &
& 3.4139_wp, 4.1028_wp, 3.8388_wp, 3.6745_wp, 3.5562_wp, &
& 3.4806_wp, 3.4272_wp, 4.0182_wp, 3.9991_wp, 4.0007_wp, &
& 3.9282_wp, 3.7238_wp, 3.6498_wp, 3.5605_wp, 3.5211_wp, &
& 3.5009_wp, 3.4859_wp, 3.4785_wp, 3.5621_wp, 4.2623_wp, &
& 3.0775_wp, 2.8275_wp, 4.0181_wp, 3.3385_wp, 3.5379_wp, &
& 3.5036_wp, 3.2589_wp, 3.0804_wp, 3.0094_wp, 2.9003_wp, &
& 4.0869_wp, 3.5088_wp, 3.9105_wp, 3.9833_wp, 3.7176_wp, &
& 3.5323_wp, 3.4102_wp, 3.3227_wp, 4.2702_wp, 4.0888_wp, &
& 3.7560_wp, 3.7687_wp, 3.6681_wp, 3.6405_wp, 3.5569_wp, &
& 3.4990_wp, 3.4659_wp, 3.4433_wp, 3.4330_wp, 3.4092_wp, &
& 3.8867_wp, 4.0190_wp, 3.7961_wp, 3.6412_wp, 3.5405_wp, &
& 3.4681_wp, 4.3538_wp, 4.2136_wp, 3.9381_wp, 3.8912_wp, &
& 3.9681_wp, 3.7909_wp, 3.6774_wp, 3.6262_wp, 3.5999_wp, &
& 3.5823_wp, 3.5727_wp, 3.5419_wp, 4.0245_wp, 4.1874_wp, &
& 3.0893_wp, 2.7917_wp, 3.7262_wp, 3.3518_wp, 3.4241_wp, &
& 3.5433_wp, 3.2773_wp, 3.0890_wp, 2.9775_wp, 2.9010_wp, &
& 3.8048_wp, 3.5362_wp, 3.7746_wp, 3.7911_wp, 3.7511_wp, &
& 3.5495_wp, 3.4149_wp, 3.3177_wp, 4.0129_wp, 3.8370_wp, &
& 3.7739_wp, 3.7125_wp, 3.7152_wp, 3.7701_wp, 3.5813_wp, &
& 3.5187_wp, 3.4835_wp, 3.4595_wp, 3.4439_wp, 3.4242_wp, &
& 3.7476_wp, 3.8239_wp, 3.8346_wp, 3.6627_wp, 3.5479_wp, &
& 3.4639_wp, 4.1026_wp, 3.9733_wp, 3.9292_wp, 3.8667_wp, &
& 3.9513_wp, 3.8959_wp, 3.7698_wp, 3.7089_wp, 3.6765_wp, &
& 3.6548_wp, 3.6409_wp, 3.5398_wp, 3.8759_wp, 3.9804_wp, &
& 4.0150_wp, 2.9091_wp, 2.7638_wp, 3.5066_wp, 3.3377_wp, &
& 3.3481_wp, 3.2633_wp, 3.1810_wp, 3.1428_wp, 2.9872_wp, &
& 2.8837_wp, 3.5929_wp, 3.5183_wp, 3.6729_wp, 3.6596_wp, &
& 3.6082_wp, 3.5927_wp, 3.4224_wp, 3.2997_wp, 3.8190_wp, &
& 4.1865_wp, 4.1114_wp, 4.0540_wp, 3.6325_wp, 3.5697_wp, &
& 3.5561_wp, 3.5259_wp, 3.4901_wp, 3.4552_wp, 3.4315_wp, &
& 3.4091_wp, 3.6438_wp, 3.6879_wp, 3.6832_wp, 3.7043_wp, &
& 3.5557_wp, 3.4466_wp, 3.9203_wp, 4.2919_wp, 4.2196_wp, &
& 4.1542_wp, 3.7573_wp, 3.7039_wp, 3.6546_wp, 3.6151_wp, &
& 3.5293_wp, 3.4849_wp, 3.4552_wp, 3.5192_wp, 3.7673_wp, &
& 3.8359_wp, 3.8525_wp, 3.8901_wp, 2.7806_wp, 2.7209_wp, &
& 3.3812_wp, 3.4958_wp, 3.2913_wp, 3.1888_wp, 3.0990_wp, &
& 3.0394_wp, 2.9789_wp, 2.8582_wp, 3.4716_wp, 3.6883_wp, &
& 3.6105_wp, 3.5704_wp, 3.5059_wp, 3.4619_wp, 3.4138_wp, &
& 3.2742_wp, 3.7080_wp, 3.9773_wp, 3.9010_wp, 3.8409_wp, &
& 3.7944_wp, 3.4465_wp, 3.7235_wp, 3.6808_wp, 3.6453_wp, &
& 3.6168_wp, 3.5844_wp, 3.5576_wp, 3.5772_wp, 3.5959_wp, &
& 3.5768_wp, 3.5678_wp, 3.5486_wp, 3.4228_wp, 3.8107_wp, &
& 4.0866_wp, 4.0169_wp, 3.9476_wp, 3.6358_wp, 3.5800_wp, &
& 3.5260_wp, 3.4838_wp, 3.4501_wp, 3.4204_wp, 3.3553_wp, &
& 3.6487_wp, 3.6973_wp, 3.7398_wp, 3.7405_wp, 3.7459_wp, &
& 3.7380_wp, 2.6848_wp, 2.6740_wp, 3.2925_wp, 3.3386_wp, &
& 3.2473_wp, 3.1284_wp, 3.0301_wp, 2.9531_wp, 2.9602_wp, &
& 2.8272_wp, 3.3830_wp, 3.5358_wp, 3.5672_wp, 3.5049_wp, &
& 3.4284_wp, 3.3621_wp, 3.3001_wp, 3.2451_wp, 3.6209_wp, &
& 3.8299_wp, 3.7543_wp, 3.6920_wp, 3.6436_wp, 3.3598_wp, &
& 3.5701_wp, 3.5266_wp, 3.4904_wp, 3.4590_wp, 3.4364_wp, &
& 3.4077_wp, 3.5287_wp, 3.5280_wp, 3.4969_wp, 3.4650_wp, &
& 3.4304_wp, 3.3963_wp, 3.7229_wp, 3.9402_wp, 3.8753_wp, &
& 3.8035_wp, 3.5499_wp, 3.4913_wp, 3.4319_wp, 3.3873_wp, &
& 3.3520_wp, 3.3209_wp, 3.2948_wp, 3.5052_wp, 3.6465_wp, &
& 3.6696_wp, 3.6577_wp, 3.6388_wp, 3.6142_wp, 3.5889_wp, &
& 3.3968_wp, 3.0122_wp, 4.2241_wp, 3.7887_wp, 4.0049_wp, &
& 3.5384_wp, 3.2698_wp, 3.1083_wp, 2.9917_wp, 2.9057_wp, &
& 4.3340_wp, 3.9900_wp, 4.6588_wp, 4.1278_wp, 3.8125_wp, &
& 3.6189_wp, 3.4851_wp, 3.3859_wp, 4.6531_wp, 4.3134_wp, &
& 4.2258_wp, 4.1309_wp, 4.0692_wp, 4.0944_wp, 3.9850_wp, &
& 3.9416_wp, 3.9112_wp, 3.8873_wp, 3.8736_wp, 3.8473_wp, &
& 4.6027_wp, 4.1538_wp, 3.8994_wp, 3.7419_wp, 3.6356_wp, &
& 3.5548_wp, 4.8353_wp, 4.5413_wp, 4.3891_wp, 4.3416_wp, &
& 4.3243_wp, 4.2753_wp, 4.2053_wp, 4.1790_wp, 4.1685_wp, &
& 4.1585_wp, 4.1536_wp, 4.0579_wp, 4.1980_wp, 4.4564_wp, &
& 4.2192_wp, 4.0528_wp, 3.9489_wp, 3.8642_wp, 5.0567_wp, &
& 3.0630_wp, 3.3271_wp, 4.0432_wp, 4.0046_wp, 4.1555_wp, &
& 3.7426_wp, 3.5130_wp, 3.5174_wp, 3.2884_wp, 3.1378_wp, &
& 4.1894_wp, 4.2321_wp, 4.1725_wp, 4.1833_wp, 3.8929_wp, &
& 4.0544_wp, 3.8118_wp, 3.6414_wp, 4.6373_wp, 4.6268_wp, &
& 4.4750_wp, 4.4134_wp, 4.3458_wp, 3.8582_wp, 4.2583_wp, &
& 4.1898_wp, 4.1562_wp, 4.1191_wp, 4.1069_wp, 4.0639_wp, &
& 4.1257_wp, 4.1974_wp, 3.9532_wp, 4.1794_wp, 3.9660_wp, &
& 3.8130_wp, 4.8160_wp, 4.8272_wp, 4.6294_wp, 4.5840_wp, &
& 4.0770_wp, 4.0088_wp, 3.9103_wp, 3.8536_wp, 3.8324_wp, &
& 3.7995_wp, 3.7826_wp, 4.2294_wp, 4.3380_wp, 4.4352_wp, &
& 4.1933_wp, 4.4580_wp, 4.2554_wp, 4.1072_wp, 5.0454_wp, &
& 5.1814_wp, 3.0632_wp, 3.2662_wp, 3.6432_wp, 3.8088_wp, &
& 3.7910_wp, 3.7381_wp, 3.5093_wp, 3.5155_wp, 3.3047_wp, &
& 3.1681_wp, 3.7871_wp, 3.9924_wp, 4.0637_wp, 4.1382_wp, &
& 3.8591_wp, 4.0164_wp, 3.7878_wp, 3.6316_wp, 4.1741_wp, &
& 4.3166_wp, 4.2395_wp, 4.1831_wp, 4.1107_wp, 3.5857_wp, &
& 4.0270_wp, 3.9676_wp, 3.9463_wp, 3.9150_wp, 3.9021_wp, &
& 3.8708_wp, 4.0240_wp, 4.1551_wp, 3.9108_wp, 4.1337_wp, &
& 3.9289_wp, 3.7873_wp, 4.3666_wp, 4.5080_wp, 4.4232_wp, &
& 4.3155_wp, 3.8461_wp, 3.8007_wp, 3.6991_wp, 3.6447_wp, &
& 3.6308_wp, 3.5959_wp, 3.5749_wp, 4.0359_wp, 4.3124_wp, &
& 4.3539_wp, 4.1122_wp, 4.3772_wp, 4.1785_wp, 4.0386_wp, &
& 4.7004_wp, 4.8604_wp, 4.6261_wp, 2.9455_wp, 3.2470_wp, &
& 3.6108_wp, 3.8522_wp, 3.6625_wp, 3.6598_wp, 3.4411_wp, &
& 3.4660_wp, 3.2415_wp, 3.0944_wp, 3.7514_wp, 4.0397_wp, &
& 3.9231_wp, 4.0561_wp, 3.7860_wp, 3.9845_wp, 3.7454_wp, &
& 3.5802_wp, 4.1366_wp, 4.3581_wp, 4.2351_wp, 4.2011_wp, &
& 4.1402_wp, 3.5381_wp, 4.0653_wp, 4.0093_wp, 3.9883_wp, &
& 3.9570_wp, 3.9429_wp, 3.9112_wp, 3.8728_wp, 4.0682_wp, &
& 3.8351_wp, 4.1054_wp, 3.8928_wp, 3.7445_wp, 4.3415_wp, &
& 4.5497_wp, 4.3833_wp, 4.3122_wp, 3.8051_wp, 3.7583_wp, &
& 3.6622_wp, 3.6108_wp, 3.5971_wp, 3.5628_wp, 3.5408_wp, &
& 4.0780_wp, 4.0727_wp, 4.2836_wp, 4.0553_wp, 4.3647_wp, &
& 4.1622_wp, 4.0178_wp, 4.5802_wp, 4.9125_wp, 4.5861_wp, &
& 4.6201_wp, 2.9244_wp, 3.2241_wp, 3.5848_wp, 3.8293_wp, &
& 3.6395_wp, 3.6400_wp, 3.4204_wp, 3.4499_wp, 3.2253_wp, &
& 3.0779_wp, 3.7257_wp, 4.0170_wp, 3.9003_wp, 4.0372_wp, &
& 3.7653_wp, 3.9672_wp, 3.7283_wp, 3.5630_wp, 4.1092_wp, &
& 4.3347_wp, 4.2117_wp, 4.1793_wp, 4.1179_wp, 3.5139_wp, &
& 4.0426_wp, 3.9867_wp, 3.9661_wp, 3.9345_wp, 3.9200_wp, &
& 3.8883_wp, 3.8498_wp, 4.0496_wp, 3.8145_wp, 4.0881_wp, &
& 3.8756_wp, 3.7271_wp, 4.3128_wp, 4.5242_wp, 4.3578_wp, &
& 4.2870_wp, 3.7796_wp, 3.7318_wp, 3.6364_wp, 3.5854_wp, &
& 3.5726_wp, 3.5378_wp, 3.5155_wp, 4.0527_wp, 4.0478_wp, &
& 4.2630_wp, 4.0322_wp, 4.3449_wp, 4.1421_wp, 3.9975_wp, &
& 4.5499_wp, 4.8825_wp, 4.5601_wp, 4.5950_wp, 4.5702_wp, &
& 2.9046_wp, 3.2044_wp, 3.5621_wp, 3.8078_wp, 3.6185_wp, &
& 3.6220_wp, 3.4019_wp, 3.4359_wp, 3.2110_wp, 3.0635_wp, &
& 3.7037_wp, 3.9958_wp, 3.8792_wp, 4.0194_wp, 3.7460_wp, &
& 3.9517_wp, 3.7128_wp, 3.5474_wp, 4.0872_wp, 4.3138_wp, &
& 4.1906_wp, 4.1593_wp, 4.0973_wp, 3.4919_wp, 4.0216_wp, &
& 3.9657_wp, 3.9454_wp, 3.9134_wp, 3.8986_wp, 3.8669_wp, &
& 3.8289_wp, 4.0323_wp, 3.7954_wp, 4.0725_wp, 3.8598_wp, &
& 3.7113_wp, 4.2896_wp, 4.5021_wp, 4.3325_wp, 4.2645_wp, &
& 3.7571_wp, 3.7083_wp, 3.6136_wp, 3.5628_wp, 3.5507_wp, &
& 3.5155_wp, 3.4929_wp, 4.0297_wp, 4.0234_wp, 4.2442_wp, &
& 4.0112_wp, 4.3274_wp, 4.1240_wp, 3.9793_wp, 4.5257_wp, &
& 4.8568_wp, 4.5353_wp, 4.5733_wp, 4.5485_wp, 4.5271_wp, &
& 2.8878_wp, 3.1890_wp, 3.5412_wp, 3.7908_wp, 3.5974_wp, &
& 3.6078_wp, 3.3871_wp, 3.4243_wp, 3.1992_wp, 3.0513_wp, &
& 3.6831_wp, 3.9784_wp, 3.8579_wp, 4.0049_wp, 3.7304_wp, &
& 3.9392_wp, 3.7002_wp, 3.5347_wp, 4.0657_wp, 4.2955_wp, &
& 4.1705_wp, 4.1424_wp, 4.0800_wp, 3.4717_wp, 4.0043_wp, &
& 3.9485_wp, 3.9286_wp, 3.8965_wp, 3.8815_wp, 3.8500_wp, &
& 3.8073_wp, 4.0180_wp, 3.7796_wp, 4.0598_wp, 3.8470_wp, &
& 3.6983_wp, 4.2678_wp, 4.4830_wp, 4.3132_wp, 4.2444_wp, &
& 3.7370_wp, 3.6876_wp, 3.5935_wp, 3.5428_wp, 3.5314_wp, &
& 3.4958_wp, 3.4730_wp, 4.0117_wp, 4.0043_wp, 4.2287_wp, &
& 3.9939_wp, 4.3134_wp, 4.1096_wp, 3.9646_wp, 4.5032_wp, &
& 4.8356_wp, 4.5156_wp, 4.5544_wp, 4.5297_wp, 4.5083_wp, &
& 4.4896_wp, 2.8709_wp, 3.1737_wp, 3.5199_wp, 3.7734_wp, &
& 3.5802_wp, 3.5934_wp, 3.3724_wp, 3.4128_wp, 3.1877_wp, &
& 3.0396_wp, 3.6624_wp, 3.9608_wp, 3.8397_wp, 3.9893_wp, &
& 3.7145_wp, 3.9266_wp, 3.6877_wp, 3.5222_wp, 4.0448_wp, &
& 4.2771_wp, 4.1523_wp, 4.1247_wp, 4.0626_wp, 3.4530_wp, &
& 3.9866_wp, 3.9310_wp, 3.9115_wp, 3.8792_wp, 3.8641_wp, &
& 3.8326_wp, 3.7892_wp, 4.0025_wp, 3.7636_wp, 4.0471_wp, &
& 3.8343_wp, 3.6854_wp, 4.2464_wp, 4.4635_wp, 4.2939_wp, &
& 4.2252_wp, 3.7169_wp, 3.6675_wp, 3.5739_wp, 3.5235_wp, &
& 3.5126_wp, 3.4768_wp, 3.4537_wp, 3.9932_wp, 3.9854_wp, &
& 4.2123_wp, 3.9765_wp, 4.2992_wp, 4.0951_wp, 3.9500_wp, &
& 4.4811_wp, 4.8135_wp, 4.4959_wp, 4.5351_wp, 4.5105_wp, &
& 4.4891_wp, 4.4705_wp, 4.4515_wp, 2.8568_wp, 3.1608_wp, &
& 3.5050_wp, 3.7598_wp, 3.5665_wp, 3.5803_wp, 3.3601_wp, &
& 3.4031_wp, 3.1779_wp, 3.0296_wp, 3.6479_wp, 3.9471_wp, &
& 3.8262_wp, 3.9773_wp, 3.7015_wp, 3.9162_wp, 3.6771_wp, &
& 3.5115_wp, 4.0306_wp, 4.2634_wp, 4.1385_wp, 4.1116_wp, &
& 4.0489_wp, 3.4366_wp, 3.9732_wp, 3.9176_wp, 3.8983_wp, &
& 3.8659_wp, 3.8507_wp, 3.8191_wp, 3.7757_wp, 3.9907_wp, &
& 3.7506_wp, 4.0365_wp, 3.8235_wp, 3.6745_wp, 4.2314_wp, &
& 4.4490_wp, 4.2792_wp, 4.2105_wp, 3.7003_wp, 3.6510_wp, &
& 3.5578_wp, 3.5075_wp, 3.4971_wp, 3.4609_wp, 3.4377_wp, &
& 3.9788_wp, 3.9712_wp, 4.1997_wp, 3.9624_wp, 4.2877_wp, &
& 4.0831_wp, 3.9378_wp, 4.4655_wp, 4.7974_wp, 4.4813_wp, &
& 4.5209_wp, 4.4964_wp, 4.4750_wp, 4.4565_wp, 4.4375_wp, &
& 4.4234_wp, 2.6798_wp, 3.0151_wp, 3.2586_wp, 3.5292_wp, &
& 3.5391_wp, 3.4902_wp, 3.2887_wp, 3.3322_wp, 3.1228_wp, &
& 2.9888_wp, 3.4012_wp, 3.7145_wp, 3.7830_wp, 3.6665_wp, &
& 3.5898_wp, 3.8077_wp, 3.5810_wp, 3.4265_wp, 3.7726_wp, &
& 4.0307_wp, 3.9763_wp, 3.8890_wp, 3.8489_wp, 3.2706_wp, &
& 3.7595_wp, 3.6984_wp, 3.6772_wp, 3.6428_wp, 3.6243_wp, &
& 3.5951_wp, 3.7497_wp, 3.6775_wp, 3.6364_wp, 3.9203_wp, &
& 3.7157_wp, 3.5746_wp, 3.9494_wp, 4.2076_wp, 4.1563_wp, &
& 4.0508_wp, 3.5329_wp, 3.4780_wp, 3.3731_wp, 3.3126_wp, &
& 3.2846_wp, 3.2426_wp, 3.2135_wp, 3.7491_wp, 3.9006_wp, &
& 3.8332_wp, 3.8029_wp, 4.1436_wp, 3.9407_wp, 3.7998_wp, &
& 4.1663_wp, 4.5309_wp, 4.3481_wp, 4.2911_wp, 4.2671_wp, &
& 4.2415_wp, 4.2230_wp, 4.2047_wp, 4.1908_wp, 4.1243_wp, &
& 2.5189_wp, 2.9703_wp, 3.3063_wp, 3.6235_wp, 3.4517_wp, &
& 3.3989_wp, 3.2107_wp, 3.2434_wp, 3.0094_wp, 2.8580_wp, &
& 3.4253_wp, 3.8157_wp, 3.7258_wp, 3.6132_wp, 3.5297_wp, &
& 3.7566_wp, 3.5095_wp, 3.3368_wp, 3.7890_wp, 4.1298_wp, &
& 4.0190_wp, 3.9573_wp, 3.9237_wp, 3.2677_wp, 3.8480_wp, &
& 3.8157_wp, 3.7656_wp, 3.7317_wp, 3.7126_wp, 3.6814_wp, &
& 3.6793_wp, 3.6218_wp, 3.5788_wp, 3.8763_wp, 3.6572_wp, &
& 3.5022_wp, 3.9737_wp, 4.3255_wp, 4.1828_wp, 4.1158_wp, &
& 3.5078_wp, 3.4595_wp, 3.3600_wp, 3.3088_wp, 3.2575_wp, &
& 3.2164_wp, 3.1856_wp, 3.8522_wp, 3.8665_wp, 3.8075_wp, &
& 3.7772_wp, 4.1391_wp, 3.9296_wp, 3.7772_wp, 4.2134_wp, &
& 4.7308_wp, 4.3787_wp, 4.3894_wp, 4.3649_wp, 4.3441_wp, &
& 4.3257_wp, 4.3073_wp, 4.2941_wp, 4.1252_wp, 4.2427_wp, &
& 3.0481_wp, 2.9584_wp, 3.6919_wp, 3.5990_wp, 3.8881_wp, &
& 3.4209_wp, 3.1606_wp, 3.1938_wp, 2.9975_wp, 2.8646_wp, &
& 3.8138_wp, 3.7935_wp, 3.7081_wp, 3.9155_wp, 3.5910_wp, &
& 3.4808_wp, 3.4886_wp, 3.3397_wp, 4.1336_wp, 4.1122_wp, &
& 3.9888_wp, 3.9543_wp, 3.8917_wp, 3.5894_wp, 3.8131_wp, &
& 3.7635_wp, 3.7419_wp, 3.7071_wp, 3.6880_wp, 3.6574_wp, &
& 3.6546_wp, 3.9375_wp, 3.6579_wp, 3.5870_wp, 3.6361_wp, &
& 3.5039_wp, 4.3149_wp, 4.2978_wp, 4.1321_wp, 4.1298_wp, &
& 3.8164_wp, 3.7680_wp, 3.7154_wp, 3.6858_wp, 3.6709_wp, &
& 3.6666_wp, 3.6517_wp, 3.8174_wp, 3.8608_wp, 4.1805_wp, &
& 3.9102_wp, 3.8394_wp, 3.8968_wp, 3.7673_wp, 4.5274_wp, &
& 4.6682_wp, 4.3344_wp, 4.3639_wp, 4.3384_wp, 4.3162_wp, &
& 4.2972_wp, 4.2779_wp, 4.2636_wp, 4.0253_wp, 4.1168_wp, &
& 4.1541_wp, 2.8136_wp, 3.0951_wp, 3.4635_wp, 3.6875_wp, &
& 3.4987_wp, 3.5183_wp, 3.2937_wp, 3.3580_wp, 3.1325_wp, &
& 2.9832_wp, 3.6078_wp, 3.8757_wp, 3.7616_wp, 3.9222_wp, &
& 3.6370_wp, 3.8647_wp, 3.6256_wp, 3.4595_wp, 3.9874_wp, &
& 4.1938_wp, 4.0679_wp, 4.0430_wp, 3.9781_wp, 3.3886_wp, &
& 3.9008_wp, 3.8463_wp, 3.8288_wp, 3.7950_wp, 3.7790_wp, &
& 3.7472_wp, 3.7117_wp, 3.9371_wp, 3.6873_wp, 3.9846_wp, &
& 3.7709_wp, 3.6210_wp, 4.1812_wp, 4.3750_wp, 4.2044_wp, &
& 4.1340_wp, 3.6459_wp, 3.5929_wp, 3.5036_wp, 3.4577_wp, &
& 3.4528_wp, 3.4146_wp, 3.3904_wp, 3.9014_wp, 3.9031_wp, &
& 4.1443_wp, 3.8961_wp, 4.2295_wp, 4.0227_wp, 3.8763_wp, &
& 4.4086_wp, 4.7097_wp, 4.4064_wp, 4.4488_wp, 4.4243_wp, &
& 4.4029_wp, 4.3842_wp, 4.3655_wp, 4.3514_wp, 4.1162_wp, &
& 4.2205_wp, 4.1953_wp, 4.2794_wp, 2.8032_wp, 3.0805_wp, &
& 3.4519_wp, 3.6700_wp, 3.4827_wp, 3.5050_wp, 3.2799_wp, &
& 3.3482_wp, 3.1233_wp, 2.9747_wp, 3.5971_wp, 3.8586_wp, &
& 3.7461_wp, 3.9100_wp, 3.6228_wp, 3.8535_wp, 3.6147_wp, &
& 3.4490_wp, 3.9764_wp, 4.1773_wp, 4.0511_wp, 4.0270_wp, &
& 3.9614_wp, 3.3754_wp, 3.8836_wp, 3.8291_wp, 3.8121_wp, &
& 3.7780_wp, 3.7619_wp, 3.7300_wp, 3.6965_wp, 3.9253_wp, &
& 3.6734_wp, 3.9733_wp, 3.7597_wp, 3.6099_wp, 4.1683_wp, &
& 4.3572_wp, 4.1862_wp, 4.1153_wp, 3.6312_wp, 3.5772_wp, &
& 3.4881_wp, 3.4429_wp, 3.4395_wp, 3.4009_wp, 3.3766_wp, &
& 3.8827_wp, 3.8868_wp, 4.1316_wp, 3.8807_wp, 4.2164_wp, &
& 4.0092_wp, 3.8627_wp, 4.3936_wp, 4.6871_wp, 4.3882_wp, &
& 4.4316_wp, 4.4073_wp, 4.3858_wp, 4.3672_wp, 4.3485_wp, &
& 4.3344_wp, 4.0984_wp, 4.2036_wp, 4.1791_wp, 4.2622_wp, &
& 4.2450_wp, 2.7967_wp, 3.0689_wp, 3.4445_wp, 3.6581_wp, &
& 3.4717_wp, 3.4951_wp, 3.2694_wp, 3.3397_wp, 3.1147_wp, &
& 2.9661_wp, 3.5898_wp, 3.8468_wp, 3.7358_wp, 3.9014_wp, &
& 3.6129_wp, 3.8443_wp, 3.6054_wp, 3.4396_wp, 3.9683_wp, &
& 4.1656_wp, 4.0394_wp, 4.0158_wp, 3.9498_wp, 3.3677_wp, &
& 3.8718_wp, 3.8164_wp, 3.8005_wp, 3.7662_wp, 3.7500_wp, &
& 3.7181_wp, 3.6863_wp, 3.9170_wp, 3.6637_wp, 3.9641_wp, &
& 3.7503_wp, 3.6004_wp, 4.1590_wp, 4.3448_wp, 4.1739_wp, &
& 4.1029_wp, 3.6224_wp, 3.5677_wp, 3.4785_wp, 3.4314_wp, &
& 3.4313_wp, 3.3923_wp, 3.3680_wp, 3.8698_wp, 3.8758_wp, &
& 4.1229_wp, 3.8704_wp, 4.2063_wp, 3.9987_wp, 3.8519_wp, &
& 4.3832_wp, 4.6728_wp, 4.3759_wp, 4.4195_wp, 4.3952_wp, &
& 4.3737_wp, 4.3551_wp, 4.3364_wp, 4.3223_wp, 4.0861_wp, &
& 4.1911_wp, 4.1676_wp, 4.2501_wp, 4.2329_wp, 4.2208_wp, &
& 2.7897_wp, 3.0636_wp, 3.4344_wp, 3.6480_wp, 3.4626_wp, &
& 3.4892_wp, 3.2626_wp, 3.3344_wp, 3.1088_wp, 2.9597_wp, &
& 3.5804_wp, 3.8359_wp, 3.7251_wp, 3.8940_wp, 3.6047_wp, &
& 3.8375_wp, 3.5990_wp, 3.4329_wp, 3.9597_wp, 4.1542_wp, &
& 4.0278_wp, 4.0048_wp, 3.9390_wp, 3.3571_wp, 3.8608_wp, &
& 3.8056_wp, 3.7899_wp, 3.7560_wp, 3.7400_wp, 3.7081_wp, &
& 3.6758_wp, 3.9095_wp, 3.6552_wp, 3.9572_wp, 3.7436_wp, &
& 3.5933_wp, 4.1508_wp, 4.3337_wp, 4.1624_wp, 4.0916_wp, &
& 3.6126_wp, 3.5582_wp, 3.4684_wp, 3.4212_wp, 3.4207_wp, &
& 3.3829_wp, 3.3586_wp, 3.8604_wp, 3.8658_wp, 4.1156_wp, &
& 3.8620_wp, 4.1994_wp, 3.9917_wp, 3.8446_wp, 4.3750_wp, &
& 4.6617_wp, 4.3644_wp, 4.4083_wp, 4.3840_wp, 4.3625_wp, &
& 4.3439_wp, 4.3253_wp, 4.3112_wp, 4.0745_wp, 4.1807_wp, &
& 4.1578_wp, 4.2390_wp, 4.2218_wp, 4.2097_wp, 4.1986_wp, &
& 2.8395_wp, 3.0081_wp, 3.3171_wp, 3.4878_wp, 3.5360_wp, &
& 3.5145_wp, 3.2809_wp, 3.3307_wp, 3.1260_wp, 2.9940_wp, &
& 3.4741_wp, 3.6675_wp, 3.7832_wp, 3.6787_wp, 3.6156_wp, &
& 3.8041_wp, 3.5813_wp, 3.4301_wp, 3.8480_wp, 3.9849_wp, &
& 3.9314_wp, 3.8405_wp, 3.8029_wp, 3.2962_wp, 3.7104_wp, &
& 3.6515_wp, 3.6378_wp, 3.6020_wp, 3.5849_wp, 3.5550_wp, &
& 3.7494_wp, 3.6893_wp, 3.6666_wp, 3.9170_wp, 3.7150_wp, &
& 3.5760_wp, 4.0268_wp, 4.1596_wp, 4.1107_wp, 3.9995_wp, &
& 3.5574_wp, 3.5103_wp, 3.4163_wp, 3.3655_wp, 3.3677_wp, &
& 3.3243_wp, 3.2975_wp, 3.7071_wp, 3.9047_wp, 3.8514_wp, &
& 3.8422_wp, 3.8022_wp, 3.9323_wp, 3.7932_wp, 4.2343_wp, &
& 4.4583_wp, 4.3115_wp, 4.2457_wp, 4.2213_wp, 4.1945_wp, &
& 4.1756_wp, 4.1569_wp, 4.1424_wp, 4.0620_wp, 4.0494_wp, &
& 3.9953_wp, 4.0694_wp, 4.0516_wp, 4.0396_wp, 4.0280_wp, &
& 4.0130_wp, 2.9007_wp, 2.9674_wp, 3.8174_wp, 3.5856_wp, &
& 3.6486_wp, 3.5339_wp, 3.2832_wp, 3.3154_wp, 3.1144_wp, &
& 2.9866_wp, 3.9618_wp, 3.8430_wp, 3.9980_wp, 3.8134_wp, &
& 3.6652_wp, 3.7985_wp, 3.5756_wp, 3.4207_wp, 4.4061_wp, &
& 4.2817_wp, 4.1477_wp, 4.0616_wp, 3.9979_wp, 3.6492_wp, &
& 3.8833_wp, 3.8027_wp, 3.7660_wp, 3.7183_wp, 3.6954_wp, &
& 3.6525_wp, 3.9669_wp, 3.8371_wp, 3.7325_wp, 3.9160_wp, &
& 3.7156_wp, 3.5714_wp, 4.6036_wp, 4.4620_wp, 4.3092_wp, &
& 4.2122_wp, 3.8478_wp, 3.7572_wp, 3.6597_wp, 3.5969_wp, &
& 3.5575_wp, 3.5386_wp, 3.5153_wp, 3.7818_wp, 4.1335_wp, &
& 4.0153_wp, 3.9177_wp, 3.8603_wp, 3.9365_wp, 3.7906_wp, &
& 4.7936_wp, 4.7410_wp, 4.5461_wp, 4.5662_wp, 4.5340_wp, &
& 4.5059_wp, 4.4832_wp, 4.4604_wp, 4.4429_wp, 4.2346_wp, &
& 4.4204_wp, 4.3119_wp, 4.3450_wp, 4.3193_wp, 4.3035_wp, &
& 4.2933_wp, 4.1582_wp, 4.2450_wp, 2.8559_wp, 2.9050_wp, &
& 3.8325_wp, 3.5442_wp, 3.5077_wp, 3.4905_wp, 3.2396_wp, &
& 3.2720_wp, 3.0726_wp, 2.9467_wp, 3.9644_wp, 3.8050_wp, &
& 3.8981_wp, 3.7762_wp, 3.6216_wp, 3.7531_wp, 3.5297_wp, &
& 3.3742_wp, 4.3814_wp, 4.2818_wp, 4.1026_wp, 4.0294_wp, &
& 3.9640_wp, 3.6208_wp, 3.8464_wp, 3.7648_wp, 3.7281_wp, &
& 3.6790_wp, 3.6542_wp, 3.6117_wp, 3.8650_wp, 3.8010_wp, &
& 3.6894_wp, 3.8713_wp, 3.6699_wp, 3.5244_wp, 4.5151_wp, &
& 4.4517_wp, 4.2538_wp, 4.1483_wp, 3.8641_wp, 3.7244_wp, &
& 3.6243_wp, 3.5589_wp, 3.5172_wp, 3.4973_wp, 3.4715_wp, &
& 3.7340_wp, 4.0316_wp, 3.9958_wp, 3.8687_wp, 3.8115_wp, &
& 3.8862_wp, 3.7379_wp, 4.7091_wp, 4.7156_wp, 4.5199_wp, &
& 4.5542_wp, 4.5230_wp, 4.4959_wp, 4.4750_wp, 4.4529_wp, &
& 4.4361_wp, 4.1774_wp, 4.3774_wp, 4.2963_wp, 4.3406_wp, &
& 4.3159_wp, 4.3006_wp, 4.2910_wp, 4.1008_wp, 4.1568_wp, &
& 4.0980_wp, 2.8110_wp, 2.8520_wp, 3.7480_wp, 3.5105_wp, &
& 3.4346_wp, 3.3461_wp, 3.1971_wp, 3.2326_wp, 3.0329_wp, &
& 2.9070_wp, 3.8823_wp, 3.7928_wp, 3.8264_wp, 3.7006_wp, &
& 3.5797_wp, 3.7141_wp, 3.4894_wp, 3.3326_wp, 4.3048_wp, &
& 4.2217_wp, 4.0786_wp, 3.9900_wp, 3.9357_wp, 3.6331_wp, &
& 3.8333_wp, 3.7317_wp, 3.6957_wp, 3.6460_wp, 3.6197_wp, &
& 3.5779_wp, 3.7909_wp, 3.7257_wp, 3.6476_wp, 3.5729_wp, &
& 3.6304_wp, 3.4834_wp, 4.4368_wp, 4.3921_wp, 4.2207_wp, &
& 4.1133_wp, 3.8067_wp, 3.7421_wp, 3.6140_wp, 3.5491_wp, &
& 3.5077_wp, 3.4887_wp, 3.4623_wp, 3.6956_wp, 3.9568_wp, &
& 3.8976_wp, 3.8240_wp, 3.7684_wp, 3.8451_wp, 3.6949_wp, &
& 4.6318_wp, 4.6559_wp, 4.4533_wp, 4.4956_wp, 4.4641_wp, &
& 4.4366_wp, 4.4155_wp, 4.3936_wp, 4.3764_wp, 4.1302_wp, &
& 4.3398_wp, 4.2283_wp, 4.2796_wp, 4.2547_wp, 4.2391_wp, &
& 4.2296_wp, 4.0699_wp, 4.1083_wp, 4.0319_wp, 3.9855_wp, &
& 2.7676_wp, 2.8078_wp, 3.6725_wp, 3.4804_wp, 3.3775_wp, &
& 3.2411_wp, 3.1581_wp, 3.1983_wp, 2.9973_wp, 2.8705_wp, &
& 3.8070_wp, 3.7392_wp, 3.7668_wp, 3.6263_wp, 3.5402_wp, &
& 3.6807_wp, 3.4545_wp, 3.2962_wp, 4.2283_wp, 4.1698_wp, &
& 4.0240_wp, 3.9341_wp, 3.8711_wp, 3.5489_wp, 3.7798_wp, &
& 3.7000_wp, 3.6654_wp, 3.6154_wp, 3.5882_wp, 3.5472_wp, &
& 3.7289_wp, 3.6510_wp, 3.6078_wp, 3.5355_wp, 3.5963_wp, &
& 3.4480_wp, 4.3587_wp, 4.3390_wp, 4.1635_wp, 4.0536_wp, &
& 3.7193_wp, 3.6529_wp, 3.5512_wp, 3.4837_wp, 3.4400_wp, &
& 3.4191_wp, 3.3891_wp, 3.6622_wp, 3.8934_wp, 3.8235_wp, &
& 3.7823_wp, 3.7292_wp, 3.8106_wp, 3.6589_wp, 4.5535_wp, &
& 4.6013_wp, 4.3961_wp, 4.4423_wp, 4.4109_wp, 4.3835_wp, &
& 4.3625_wp, 4.3407_wp, 4.3237_wp, 4.0863_wp, 4.2835_wp, &
& 4.1675_wp, 4.2272_wp, 4.2025_wp, 4.1869_wp, 4.1774_wp, &
& 4.0126_wp, 4.0460_wp, 3.9815_wp, 3.9340_wp, 3.8955_wp, &
& 2.6912_wp, 2.7604_wp, 3.6037_wp, 3.4194_wp, 3.3094_wp, &
& 3.1710_wp, 3.0862_wp, 3.1789_wp, 2.9738_wp, 2.8427_wp, &
& 3.7378_wp, 3.6742_wp, 3.6928_wp, 3.5512_wp, 3.4614_wp, &
& 3.4087_wp, 3.4201_wp, 3.2607_wp, 4.1527_wp, 4.0977_wp, &
& 3.9523_wp, 3.8628_wp, 3.8002_wp, 3.4759_wp, 3.7102_wp, &
& 3.6466_wp, 3.6106_wp, 3.5580_wp, 3.5282_wp, 3.4878_wp, &
& 3.6547_wp, 3.5763_wp, 3.5289_wp, 3.5086_wp, 3.5593_wp, &
& 3.4099_wp, 4.2788_wp, 4.2624_wp, 4.0873_wp, 3.9770_wp, &
& 3.6407_wp, 3.5743_wp, 3.5178_wp, 3.4753_wp, 3.3931_wp, &
& 3.3694_wp, 3.3339_wp, 3.6002_wp, 3.8164_wp, 3.7478_wp, &
& 3.7028_wp, 3.6952_wp, 3.7669_wp, 3.6137_wp, 4.4698_wp, &
& 4.5488_wp, 4.3168_wp, 4.3646_wp, 4.3338_wp, 4.3067_wp, &
& 4.2860_wp, 4.2645_wp, 4.2478_wp, 4.0067_wp, 4.2349_wp, &
& 4.0958_wp, 4.1543_wp, 4.1302_wp, 4.1141_wp, 4.1048_wp, &
& 3.9410_wp, 3.9595_wp, 3.8941_wp, 3.8465_wp, 3.8089_wp, &
& 3.7490_wp, 2.7895_wp, 2.5849_wp, 3.6484_wp, 3.0162_wp, &
& 3.1267_wp, 3.2125_wp, 3.0043_wp, 2.9572_wp, 2.8197_wp, &
& 2.7261_wp, 3.7701_wp, 3.2446_wp, 3.5239_wp, 3.4696_wp, &
& 3.4261_wp, 3.3508_wp, 3.1968_wp, 3.0848_wp, 4.1496_wp, &
& 3.6598_wp, 3.5111_wp, 3.4199_wp, 3.3809_wp, 3.5382_wp, &
& 3.2572_wp, 3.2100_wp, 3.1917_wp, 3.1519_wp, 3.1198_wp, &
& 3.1005_wp, 3.5071_wp, 3.5086_wp, 3.5073_wp, 3.4509_wp, &
& 3.3120_wp, 3.2082_wp, 4.2611_wp, 3.8117_wp, 3.6988_wp, &
& 3.5646_wp, 3.6925_wp, 3.6295_wp, 3.5383_wp, 3.4910_wp, &
& 3.4625_wp, 3.4233_wp, 3.4007_wp, 3.2329_wp, 3.6723_wp, &
& 3.6845_wp, 3.6876_wp, 3.6197_wp, 3.4799_wp, 3.3737_wp, &
& 4.4341_wp, 4.0525_wp, 3.9011_wp, 3.8945_wp, 3.8635_wp, &
& 3.8368_wp, 3.8153_wp, 3.7936_wp, 3.7758_wp, 3.4944_wp, &
& 3.4873_wp, 3.9040_wp, 3.7110_wp, 3.6922_wp, 3.6799_wp, &
& 3.6724_wp, 3.5622_wp, 3.6081_wp, 3.5426_wp, 3.4922_wp, &
& 3.4498_wp, 3.3984_wp, 3.4456_wp, 2.7522_wp, 2.5524_wp, &
& 3.5742_wp, 2.9508_wp, 3.0751_wp, 3.0158_wp, 2.9644_wp, &
& 2.8338_wp, 2.7891_wp, 2.6933_wp, 3.6926_wp, 3.1814_wp, &
& 3.4528_wp, 3.4186_wp, 3.3836_wp, 3.2213_wp, 3.1626_wp, &
& 3.0507_wp, 4.0548_wp, 3.5312_wp, 3.4244_wp, 3.3409_wp, &
& 3.2810_wp, 3.4782_wp, 3.1905_wp, 3.1494_wp, 3.1221_wp, &
& 3.1128_wp, 3.0853_wp, 3.0384_wp, 3.4366_wp, 3.4562_wp, &
& 3.4638_wp, 3.3211_wp, 3.2762_wp, 3.1730_wp, 4.1632_wp, &
& 3.6825_wp, 3.5822_wp, 3.4870_wp, 3.6325_wp, 3.5740_wp, &
& 3.4733_wp, 3.4247_wp, 3.3969_wp, 3.3764_wp, 3.3525_wp, &
& 3.1984_wp, 3.5989_wp, 3.6299_wp, 3.6433_wp, 3.4937_wp, &
& 3.4417_wp, 3.3365_wp, 4.3304_wp, 3.9242_wp, 3.7793_wp, &
& 3.7623_wp, 3.7327_wp, 3.7071_wp, 3.6860_wp, 3.6650_wp, &
& 3.6476_wp, 3.3849_wp, 3.3534_wp, 3.8216_wp, 3.5870_wp, &
& 3.5695_wp, 3.5584_wp, 3.5508_wp, 3.4856_wp, 3.5523_wp, &
& 3.4934_wp, 3.4464_wp, 3.4055_wp, 3.3551_wp, 3.3888_wp, &
& 3.3525_wp, 2.7202_wp, 2.5183_wp, 3.4947_wp, 2.8731_wp, &
& 3.0198_wp, 3.1457_wp, 2.9276_wp, 2.7826_wp, 2.7574_wp, &
& 2.6606_wp, 3.6090_wp, 3.0581_wp, 3.3747_wp, 3.3677_wp, &
& 3.3450_wp, 3.1651_wp, 3.1259_wp, 3.0147_wp, 3.9498_wp, &
& 3.3857_wp, 3.2917_wp, 3.2154_wp, 3.1604_wp, 3.4174_wp, &
& 3.0735_wp, 3.0342_wp, 3.0096_wp, 3.0136_wp, 2.9855_wp, &
& 2.9680_wp, 3.3604_wp, 3.4037_wp, 3.4243_wp, 3.2633_wp, &
& 3.1810_wp, 3.1351_wp, 4.0557_wp, 3.5368_wp, 3.4526_wp, &
& 3.3699_wp, 3.5707_wp, 3.5184_wp, 3.4085_wp, 3.3595_wp, &
& 3.3333_wp, 3.3143_wp, 3.3041_wp, 3.1094_wp, 3.5193_wp, &
& 3.5745_wp, 3.6025_wp, 3.4338_wp, 3.3448_wp, 3.2952_wp, &
& 4.2158_wp, 3.7802_wp, 3.6431_wp, 3.6129_wp, 3.5853_wp, &
& 3.5610_wp, 3.5406_wp, 3.5204_wp, 3.5036_wp, 3.2679_wp, &
& 3.2162_wp, 3.7068_wp, 3.4483_wp, 3.4323_wp, 3.4221_wp, &
& 3.4138_wp, 3.3652_wp, 3.4576_wp, 3.4053_wp, 3.3618_wp, &
& 3.3224_wp, 3.2711_wp, 3.3326_wp, 3.2950_wp, 3.2564_wp, &
& 2.5315_wp, 2.6104_wp, 3.2734_wp, 3.2299_wp, 3.1090_wp, &
& 2.9942_wp, 2.9159_wp, 2.8324_wp, 2.8350_wp, 2.7216_wp, &
& 3.3994_wp, 3.4475_wp, 3.4354_wp, 3.3438_wp, 3.2807_wp, &
& 3.2169_wp, 3.2677_wp, 3.1296_wp, 3.7493_wp, 3.8075_wp, &
& 3.6846_wp, 3.6104_wp, 3.5577_wp, 3.2052_wp, 3.4803_wp, &
& 3.4236_wp, 3.3845_wp, 3.3640_wp, 3.3365_wp, 3.3010_wp, &
& 3.3938_wp, 3.3624_wp, 3.3440_wp, 3.3132_wp, 3.4035_wp, &
& 3.2754_wp, 3.8701_wp, 3.9523_wp, 3.8018_wp, 3.7149_wp, &
& 3.3673_wp, 3.3199_wp, 3.2483_wp, 3.2069_wp, 3.1793_wp, &
& 3.1558_wp, 3.1395_wp, 3.4097_wp, 3.5410_wp, 3.5228_wp, &
& 3.5116_wp, 3.4921_wp, 3.4781_wp, 3.4690_wp, 4.0420_wp, &
& 4.1759_wp, 4.0078_wp, 4.0450_wp, 4.0189_wp, 3.9952_wp, &
& 3.9770_wp, 3.9583_wp, 3.9434_wp, 3.7217_wp, 3.8228_wp, &
& 3.7826_wp, 3.8640_wp, 3.8446_wp, 3.8314_wp, 3.8225_wp, &
& 3.6817_wp, 3.7068_wp, 3.6555_wp, 3.6159_wp, 3.5831_wp, &
& 3.5257_wp, 3.2133_wp, 3.1689_wp, 3.1196_wp, 3.3599_wp, &
& 2.9852_wp, 2.7881_wp, 3.5284_wp, 3.3493_wp, 3.6958_wp, &
& 3.3642_wp, 3.1568_wp, 3.0055_wp, 2.9558_wp, 2.8393_wp, &
& 3.6287_wp, 3.5283_wp, 4.1511_wp, 3.8259_wp, 3.6066_wp, &
& 3.4527_wp, 3.3480_wp, 3.2713_wp, 3.9037_wp, 3.8361_wp, &
& 3.8579_wp, 3.7311_wp, 3.6575_wp, 3.5176_wp, 3.5693_wp, &
& 3.5157_wp, 3.4814_wp, 3.4559_wp, 3.4445_wp, 3.4160_wp, &
& 4.1231_wp, 3.8543_wp, 3.6816_wp, 3.5602_wp, 3.4798_wp, &
& 3.4208_wp, 4.0542_wp, 4.0139_wp, 4.0165_wp, 3.9412_wp, &
& 3.7698_wp, 3.6915_wp, 3.6043_wp, 3.5639_wp, 3.5416_wp, &
& 3.5247_wp, 3.5153_wp, 3.5654_wp, 4.2862_wp, 4.0437_wp, &
& 3.8871_wp, 3.7741_wp, 3.6985_wp, 3.6413_wp, 4.2345_wp, &
& 4.3663_wp, 4.3257_wp, 4.0869_wp, 4.0612_wp, 4.0364_wp, &
& 4.0170_wp, 3.9978_wp, 3.9834_wp, 3.9137_wp, 3.8825_wp, &
& 3.8758_wp, 3.9143_wp, 3.8976_wp, 3.8864_wp, 3.8768_wp, &
& 3.9190_wp, 4.1613_wp, 4.0566_wp, 3.9784_wp, 3.9116_wp, &
& 3.8326_wp, 3.7122_wp, 3.6378_wp, 3.5576_wp, 3.5457_wp, &
& 4.3127_wp, 3.1160_wp, 2.8482_wp, 4.0739_wp, 3.3599_wp, &
& 3.5698_wp, 3.5366_wp, 3.2854_wp, 3.1039_wp, 2.9953_wp, &
& 2.9192_wp, 4.1432_wp, 3.5320_wp, 3.9478_wp, 4.0231_wp, &
& 3.7509_wp, 3.5604_wp, 3.4340_wp, 3.3426_wp, 4.3328_wp, &
& 3.8288_wp, 3.7822_wp, 3.7909_wp, 3.6907_wp, 3.6864_wp, &
& 3.5793_wp, 3.5221_wp, 3.4883_wp, 3.4649_wp, 3.4514_wp, &
& 3.4301_wp, 3.9256_wp, 4.0596_wp, 3.8307_wp, 3.6702_wp, &
& 3.5651_wp, 3.4884_wp, 4.4182_wp, 4.2516_wp, 3.9687_wp, &
& 3.9186_wp, 3.9485_wp, 3.8370_wp, 3.7255_wp, 3.6744_wp, &
& 3.6476_wp, 3.6295_wp, 3.6193_wp, 3.5659_wp, 4.0663_wp, &
& 4.2309_wp, 4.0183_wp, 3.8680_wp, 3.7672_wp, 3.6923_wp, &
& 4.5240_wp, 4.4834_wp, 4.1570_wp, 4.3204_wp, 4.2993_wp, &
& 4.2804_wp, 4.2647_wp, 4.2481_wp, 4.2354_wp, 3.8626_wp, &
& 3.8448_wp, 4.2267_wp, 4.1799_wp, 4.1670_wp, 3.8738_wp, &
& 3.8643_wp, 3.8796_wp, 4.0575_wp, 4.0354_wp, 3.9365_wp, &
& 3.8611_wp, 3.7847_wp, 3.7388_wp, 3.6826_wp, 3.6251_wp, &
& 3.5492_wp, 4.0889_wp, 4.2764_wp, 3.1416_wp, 2.8325_wp, &
& 3.7735_wp, 3.3787_wp, 3.4632_wp, 3.5923_wp, 3.3214_wp, &
& 3.1285_wp, 3.0147_wp, 2.9366_wp, 3.8527_wp, 3.5602_wp, &
& 3.8131_wp, 3.8349_wp, 3.7995_wp, 3.5919_wp, 3.4539_wp, &
& 3.3540_wp, 4.0654_wp, 3.8603_wp, 3.7972_wp, 3.7358_wp, &
& 3.7392_wp, 3.8157_wp, 3.6055_wp, 3.5438_wp, 3.5089_wp, &
& 3.4853_wp, 3.4698_wp, 3.4508_wp, 3.7882_wp, 3.8682_wp, &
& 3.8837_wp, 3.7055_wp, 3.5870_wp, 3.5000_wp, 4.1573_wp, &
& 4.0005_wp, 3.9568_wp, 3.8936_wp, 3.9990_wp, 3.9433_wp, &
& 3.8172_wp, 3.7566_wp, 3.7246_wp, 3.7033_wp, 3.6900_wp, &
& 3.5697_wp, 3.9183_wp, 4.0262_wp, 4.0659_wp, 3.8969_wp, &
& 3.7809_wp, 3.6949_wp, 4.2765_wp, 4.2312_wp, 4.1401_wp, &
& 4.0815_wp, 4.0580_wp, 4.0369_wp, 4.0194_wp, 4.0017_wp, &
& 3.9874_wp, 3.8312_wp, 3.8120_wp, 3.9454_wp, 3.9210_wp, &
& 3.9055_wp, 3.8951_wp, 3.8866_wp, 3.8689_wp, 3.9603_wp, &
& 3.9109_wp, 3.9122_wp, 3.8233_wp, 3.7438_wp, 3.7436_wp, &
& 3.6981_wp, 3.6555_wp, 3.5452_wp, 3.9327_wp, 4.0658_wp, &
& 4.1175_wp, 2.9664_wp, 2.8209_wp, 3.5547_wp, 3.3796_wp, &
& 3.3985_wp, 3.3164_wp, 3.2364_wp, 3.1956_wp, 3.0370_wp, &
& 2.9313_wp, 3.6425_wp, 3.5565_wp, 3.7209_wp, 3.7108_wp, &
& 3.6639_wp, 3.6484_wp, 3.4745_wp, 3.3492_wp, 3.8755_wp, &
& 4.2457_wp, 3.7758_wp, 3.7161_wp, 3.6693_wp, 3.6155_wp, &
& 3.5941_wp, 3.5643_wp, 3.5292_wp, 3.4950_wp, 3.4720_wp, &
& 3.4503_wp, 3.6936_wp, 3.7392_wp, 3.7388_wp, 3.7602_wp, &
& 3.6078_wp, 3.4960_wp, 3.9800_wp, 4.3518_wp, 4.2802_wp, &
& 3.8580_wp, 3.8056_wp, 3.7527_wp, 3.7019_wp, 3.6615_wp, &
& 3.5768_wp, 3.5330_wp, 3.5038_wp, 3.5639_wp, 3.8192_wp, &
& 3.8883_wp, 3.9092_wp, 3.9478_wp, 3.7995_wp, 3.6896_wp, &
& 4.1165_wp, 4.5232_wp, 4.4357_wp, 4.4226_wp, 4.4031_wp, &
& 4.3860_wp, 4.3721_wp, 4.3580_wp, 4.3466_wp, 4.2036_wp, &
& 4.2037_wp, 3.8867_wp, 4.2895_wp, 4.2766_wp, 4.2662_wp, &
& 4.2598_wp, 3.8408_wp, 3.9169_wp, 3.8681_wp, 3.8250_wp, &
& 3.7855_wp, 3.7501_wp, 3.6753_wp, 3.5499_wp, 3.4872_wp, &
& 3.5401_wp, 3.8288_wp, 3.9217_wp, 3.9538_wp, 4.0054_wp, &
& 2.8388_wp, 2.7890_wp, 3.4329_wp, 3.5593_wp, 3.3488_wp, &
& 3.2486_wp, 3.1615_wp, 3.1000_wp, 3.0394_wp, 2.9165_wp, &
& 3.5267_wp, 3.7479_wp, 3.6650_wp, 3.6263_wp, 3.5658_wp, &
& 3.5224_wp, 3.4762_wp, 3.3342_wp, 3.7738_wp, 4.0333_wp, &
& 3.9568_wp, 3.8975_wp, 3.8521_wp, 3.4929_wp, 3.7830_wp, &
& 3.7409_wp, 3.7062_wp, 3.6786_wp, 3.6471_wp, 3.6208_wp, &
& 3.6337_wp, 3.6519_wp, 3.6363_wp, 3.6278_wp, 3.6110_wp, &
& 3.4825_wp, 3.8795_wp, 4.1448_wp, 4.0736_wp, 4.0045_wp, &
& 3.6843_wp, 3.6291_wp, 3.5741_wp, 3.5312_wp, 3.4974_wp, &
& 3.4472_wp, 3.4034_wp, 3.7131_wp, 3.7557_wp, 3.7966_wp, &
& 3.8005_wp, 3.8068_wp, 3.8015_wp, 3.6747_wp, 4.0222_wp, &
& 4.3207_wp, 4.2347_wp, 4.2191_wp, 4.1990_wp, 4.1811_wp, &
& 4.1666_wp, 4.1521_wp, 4.1401_wp, 3.9970_wp, 3.9943_wp, &
& 3.9592_wp, 4.0800_wp, 4.0664_wp, 4.0559_wp, 4.0488_wp, &
& 3.9882_wp, 4.0035_wp, 3.9539_wp, 3.9138_wp, 3.8798_wp, &
& 3.8355_wp, 3.5359_wp, 3.4954_wp, 3.3962_wp, 3.5339_wp, &
& 3.7595_wp, 3.8250_wp, 3.8408_wp, 3.8600_wp, 3.8644_wp, &
& 2.7412_wp, 2.7489_wp, 3.3374_wp, 3.3950_wp, 3.3076_wp, &
& 3.1910_wp, 3.0961_wp, 3.0175_wp, 3.0280_wp, 2.8929_wp, &
& 3.4328_wp, 3.5883_wp, 3.6227_wp, 3.5616_wp, 3.4894_wp, &
& 3.4241_wp, 3.3641_wp, 3.3120_wp, 3.6815_wp, 3.8789_wp, &
& 3.8031_wp, 3.7413_wp, 3.6939_wp, 3.4010_wp, 3.6225_wp, &
& 3.5797_wp, 3.5443_wp, 3.5139_wp, 3.4923_wp, 3.4642_wp, &
& 3.5860_wp, 3.5849_wp, 3.5570_wp, 3.5257_wp, 3.4936_wp, &
& 3.4628_wp, 3.7874_wp, 3.9916_wp, 3.9249_wp, 3.8530_wp, &
& 3.5932_wp, 3.5355_wp, 3.4757_wp, 3.4306_wp, 3.3953_wp, &
& 3.3646_wp, 3.3390_wp, 3.5637_wp, 3.7053_wp, 3.7266_wp, &
& 3.7177_wp, 3.6996_wp, 3.6775_wp, 3.6558_wp, 3.9331_wp, &
& 4.1655_wp, 4.0879_wp, 4.0681_wp, 4.0479_wp, 4.0299_wp, &
& 4.0152_wp, 4.0006_wp, 3.9883_wp, 3.8500_wp, 3.8359_wp, &
& 3.8249_wp, 3.9269_wp, 3.9133_wp, 3.9025_wp, 3.8948_wp, &
& 3.8422_wp, 3.8509_wp, 3.7990_wp, 3.7570_wp, 3.7219_wp, &
& 3.6762_wp, 3.4260_wp, 3.3866_wp, 3.3425_wp, 3.5294_wp, &
& 3.7022_wp, 3.7497_wp, 3.7542_wp, 3.7494_wp, 3.7370_wp, &
& 3.7216_wp, 3.4155_wp, 3.0522_wp, 4.2541_wp, 3.8218_wp, &
& 4.0438_wp, 3.5875_wp, 3.3286_wp, 3.1682_wp, 3.0566_wp, &
& 2.9746_wp, 4.3627_wp, 4.0249_wp, 4.6947_wp, 4.1718_wp, &
& 3.8639_wp, 3.6735_wp, 3.5435_wp, 3.4479_wp, 4.6806_wp, &
& 4.3485_wp, 4.2668_wp, 4.1690_wp, 4.1061_wp, 4.1245_wp, &
& 4.0206_wp, 3.9765_wp, 3.9458_wp, 3.9217_wp, 3.9075_wp, &
& 3.8813_wp, 3.9947_wp, 4.1989_wp, 3.9507_wp, 3.7960_wp, &
& 3.6925_wp, 3.6150_wp, 4.8535_wp, 4.5642_wp, 4.4134_wp, &
& 4.3688_wp, 4.3396_wp, 4.2879_wp, 4.2166_wp, 4.1888_wp, &
& 4.1768_wp, 4.1660_wp, 4.1608_wp, 4.0745_wp, 4.2289_wp, &
& 4.4863_wp, 4.2513_wp, 4.0897_wp, 3.9876_wp, 3.9061_wp, &
& 5.0690_wp, 5.0446_wp, 4.6186_wp, 4.6078_wp, 4.5780_wp, &
& 4.5538_wp, 4.5319_wp, 4.5101_wp, 4.4945_wp, 4.1912_wp, &
& 4.2315_wp, 4.5534_wp, 4.4373_wp, 4.4224_wp, 4.4120_wp, &
& 4.4040_wp, 4.2634_wp, 4.7770_wp, 4.6890_wp, 4.6107_wp, &
& 4.5331_wp, 4.4496_wp, 4.4082_wp, 4.3095_wp, 4.2023_wp, &
& 4.0501_wp, 4.2595_wp, 4.5497_wp, 4.3056_wp, 4.1506_wp, &
& 4.0574_wp, 3.9725_wp, 5.0796_wp, 3.0548_wp, 3.3206_wp, &
& 3.8132_wp, 3.9720_wp, 3.7675_wp, 3.7351_wp, 3.5167_wp, &
& 3.5274_wp, 3.3085_wp, 3.1653_wp, 3.9500_wp, 4.1730_wp, &
& 4.0613_wp, 4.1493_wp, 3.8823_wp, 4.0537_wp, 3.8200_wp, &
& 3.6582_wp, 4.3422_wp, 4.5111_wp, 4.3795_wp, 4.3362_wp, &
& 4.2751_wp, 3.7103_wp, 4.1973_wp, 4.1385_wp, 4.1129_wp, &
& 4.0800_wp, 4.0647_wp, 4.0308_wp, 4.0096_wp, 4.1619_wp, &
& 3.9360_wp, 4.1766_wp, 3.9705_wp, 3.8262_wp, 4.5348_wp, &
& 4.7025_wp, 4.5268_wp, 4.5076_wp, 3.9562_wp, 3.9065_wp, &
& 3.8119_wp, 3.7605_wp, 3.7447_wp, 3.7119_wp, 3.6916_wp, &
& 4.1950_wp, 4.2110_wp, 4.3843_wp, 4.1631_wp, 4.4427_wp, &
& 4.2463_wp, 4.1054_wp, 4.7693_wp, 5.0649_wp, 4.7365_wp, &
& 4.7761_wp, 4.7498_wp, 4.7272_wp, 4.7076_wp, 4.6877_wp, &
& 4.6730_wp, 4.4274_wp, 4.5473_wp, 4.5169_wp, 4.5975_wp, &
& 4.5793_wp, 4.5667_wp, 4.5559_wp, 4.3804_wp, 4.6920_wp, &
& 4.6731_wp, 4.6142_wp, 4.5600_wp, 4.4801_wp, 4.0149_wp, &
& 3.8856_wp, 3.7407_wp, 4.1545_wp, 4.2253_wp, 4.4229_wp, &
& 4.1923_wp, 4.5022_wp, 4.3059_wp, 4.1591_wp, 4.7883_wp, &
& 4.9294_wp, 3.3850_wp, 3.4208_wp, 3.7004_wp, 3.8800_wp, &
& 3.9886_wp, 3.9040_wp, 3.6719_wp, 3.6547_wp, 3.4625_wp, &
& 3.3370_wp, 3.8394_wp, 4.0335_wp, 4.2373_wp, 4.3023_wp, &
& 4.0306_wp, 4.1408_wp, 3.9297_wp, 3.7857_wp, 4.1907_wp, &
& 4.3230_wp, 4.2664_wp, 4.2173_wp, 4.1482_wp, 3.6823_wp, &
& 4.0711_wp, 4.0180_wp, 4.0017_wp, 3.9747_wp, 3.9634_wp, &
& 3.9383_wp, 4.1993_wp, 4.3205_wp, 4.0821_wp, 4.2547_wp, &
& 4.0659_wp, 3.9359_wp, 4.3952_wp, 4.5176_wp, 4.3888_wp, &
& 4.3607_wp, 3.9583_wp, 3.9280_wp, 3.8390_wp, 3.7971_wp, &
& 3.7955_wp, 3.7674_wp, 3.7521_wp, 4.1062_wp, 4.3633_wp, &
& 4.2991_wp, 4.2767_wp, 4.4857_wp, 4.3039_wp, 4.1762_wp, &
& 4.6197_wp, 4.8654_wp, 4.6633_wp, 4.5878_wp, 4.5640_wp, &
& 4.5422_wp, 4.5231_wp, 4.5042_wp, 4.4901_wp, 4.3282_wp, &
& 4.3978_wp, 4.3483_wp, 4.4202_wp, 4.4039_wp, 4.3926_wp, &
& 4.3807_wp, 4.2649_wp, 4.6135_wp, 4.5605_wp, 4.5232_wp, &
& 4.4676_wp, 4.3948_wp, 4.0989_wp, 3.9864_wp, 3.8596_wp, &
& 4.0942_wp, 4.2720_wp, 4.3270_wp, 4.3022_wp, 4.5410_wp, &
& 4.3576_wp, 4.2235_wp, 4.6545_wp, 4.7447_wp, 4.7043_wp, &
& 3.0942_wp, 3.2075_wp, 3.5152_wp, 3.6659_wp, 3.8289_wp, &
& 3.7459_wp, 3.5156_wp, 3.5197_wp, 3.3290_wp, 3.2069_wp, &
& 3.6702_wp, 3.8448_wp, 4.0340_wp, 3.9509_wp, 3.8585_wp, &
& 3.9894_wp, 3.7787_wp, 3.6365_wp, 4.1425_wp, 4.1618_wp, &
& 4.0940_wp, 4.0466_wp, 3.9941_wp, 3.5426_wp, 3.8952_wp, &
& 3.8327_wp, 3.8126_wp, 3.7796_wp, 3.7635_wp, 3.7356_wp, &
& 4.0047_wp, 3.9655_wp, 3.9116_wp, 4.1010_wp, 3.9102_wp, &
& 3.7800_wp, 4.2964_wp, 4.3330_wp, 4.2622_wp, 4.2254_wp, &
& 3.8195_wp, 3.7560_wp, 3.6513_wp, 3.5941_wp, 3.5810_wp, &
& 3.5420_wp, 3.5178_wp, 3.8861_wp, 4.1459_wp, 4.1147_wp, &
& 4.0772_wp, 4.3120_wp, 4.1207_wp, 3.9900_wp, 4.4733_wp, &
& 4.6157_wp, 4.4580_wp, 4.4194_wp, 4.3954_wp, 4.3739_wp, &
& 4.3531_wp, 4.3343_wp, 4.3196_wp, 4.2140_wp, 4.2339_wp, &
& 4.1738_wp, 4.2458_wp, 4.2278_wp, 4.2158_wp, 4.2039_wp, &
& 4.1658_wp, 4.3595_wp, 4.2857_wp, 4.2444_wp, 4.1855_wp, &
& 4.1122_wp, 3.7839_wp, 3.6879_wp, 3.5816_wp, 3.8633_wp, &
& 4.1585_wp, 4.1402_wp, 4.1036_wp, 4.3694_wp, 4.1735_wp, &
& 4.0368_wp, 4.5095_wp, 4.5538_wp, 4.5240_wp, 4.4252_wp, &
& 3.0187_wp, 3.1918_wp, 3.5127_wp, 3.6875_wp, 3.7404_wp, &
& 3.6943_wp, 3.4702_wp, 3.4888_wp, 3.2914_wp, 3.1643_wp, &
& 3.6669_wp, 3.8724_wp, 3.9940_wp, 4.0816_wp, 3.8054_wp, &
& 3.9661_wp, 3.7492_wp, 3.6024_wp, 4.0428_wp, 4.1951_wp, &
& 4.1466_wp, 4.0515_wp, 4.0075_wp, 3.5020_wp, 3.9158_wp, &
& 3.8546_wp, 3.8342_wp, 3.8008_wp, 3.7845_wp, 3.7549_wp, &
& 3.9602_wp, 3.8872_wp, 3.8564_wp, 4.0793_wp, 3.8835_wp, &
& 3.7495_wp, 4.2213_wp, 4.3704_wp, 4.3300_wp, 4.2121_wp, &
& 3.7643_wp, 3.7130_wp, 3.6144_wp, 3.5599_wp, 3.5474_wp, &
& 3.5093_wp, 3.4853_wp, 3.9075_wp, 4.1115_wp, 4.0473_wp, &
& 4.0318_wp, 4.2999_wp, 4.1050_wp, 3.9710_wp, 4.4320_wp, &
& 4.6706_wp, 4.5273_wp, 4.4581_wp, 4.4332_wp, 4.4064_wp, &
& 4.3873_wp, 4.3684_wp, 4.3537_wp, 4.2728_wp, 4.2549_wp, &
& 4.2032_wp, 4.2794_wp, 4.2613_wp, 4.2491_wp, 4.2375_wp, &
& 4.2322_wp, 4.3665_wp, 4.3061_wp, 4.2714_wp, 4.2155_wp, &
& 4.1416_wp, 3.7660_wp, 3.6628_wp, 3.5476_wp, 3.8790_wp, &
& 4.1233_wp, 4.0738_wp, 4.0575_wp, 4.3575_wp, 4.1586_wp, &
& 4.0183_wp, 4.4593_wp, 4.5927_wp, 4.4865_wp, 4.3813_wp, &
& 4.4594_wp, 2.9875_wp, 3.1674_wp, 3.4971_wp, 3.6715_wp, &
& 3.7114_wp, 3.6692_wp, 3.4446_wp, 3.4676_wp, 3.2685_wp, &
& 3.1405_wp, 3.6546_wp, 3.8579_wp, 3.9637_wp, 4.0581_wp, &
& 3.7796_wp, 3.9463_wp, 3.7275_wp, 3.5792_wp, 4.0295_wp, &
& 4.1824_wp, 4.1247_wp, 4.0357_wp, 3.9926_wp, 3.4827_wp, &
& 3.9007_wp, 3.8392_wp, 3.8191_wp, 3.7851_wp, 3.7687_wp, &
& 3.7387_wp, 3.9290_wp, 3.8606_wp, 3.8306_wp, 4.0601_wp, &
& 3.8625_wp, 3.7269_wp, 4.2062_wp, 4.3566_wp, 4.3022_wp, &
& 4.1929_wp, 3.7401_wp, 3.6888_wp, 3.5900_wp, 3.5350_wp, &
& 3.5226_wp, 3.4838_wp, 3.4594_wp, 3.8888_wp, 4.0813_wp, &
& 4.0209_wp, 4.0059_wp, 4.2810_wp, 4.0843_wp, 3.9486_wp, &
& 4.4162_wp, 4.6542_wp, 4.5005_wp, 4.4444_wp, 4.4196_wp, &
& 4.3933_wp, 4.3741_wp, 4.3552_wp, 4.3406_wp, 4.2484_wp, &
& 4.2413_wp, 4.1907_wp, 4.2656_wp, 4.2474_wp, 4.2352_wp, &
& 4.2236_wp, 4.2068_wp, 4.3410_wp, 4.2817_wp, 4.2479_wp, &
& 4.1921_wp, 4.1182_wp, 3.7346_wp, 3.6314_wp, 3.5168_wp, &
& 3.8582_wp, 4.0927_wp, 4.0469_wp, 4.0313_wp, 4.3391_wp, &
& 4.1381_wp, 3.9962_wp, 4.4429_wp, 4.5787_wp, 4.4731_wp, &
& 4.3588_wp, 4.4270_wp, 4.3957_wp, 2.9659_wp, 3.1442_wp, &
& 3.4795_wp, 3.6503_wp, 3.6814_wp, 3.6476_wp, 3.4222_wp, &
& 3.4491_wp, 3.2494_wp, 3.1209_wp, 3.6324_wp, 3.8375_wp, &
& 3.9397_wp, 3.8311_wp, 3.7581_wp, 3.9274_wp, 3.7085_wp, &
& 3.5598_wp, 4.0080_wp, 4.1641_wp, 4.1057_wp, 4.0158_wp, &
& 3.9726_wp, 3.4667_wp, 3.8802_wp, 3.8188_wp, 3.7989_wp, &
& 3.7644_wp, 3.7474_wp, 3.7173_wp, 3.9049_wp, 3.8424_wp, &
& 3.8095_wp, 4.0412_wp, 3.8436_wp, 3.7077_wp, 4.1837_wp, &
& 4.3366_wp, 4.2816_wp, 4.1686_wp, 3.7293_wp, 3.6709_wp, &
& 3.5700_wp, 3.5153_wp, 3.5039_wp, 3.4684_wp, 3.4437_wp, &
& 3.8663_wp, 4.0575_wp, 4.0020_wp, 3.9842_wp, 4.2612_wp, &
& 4.0643_wp, 3.9285_wp, 4.3928_wp, 4.6308_wp, 4.4799_wp, &
& 4.4244_wp, 4.3996_wp, 4.3737_wp, 4.3547_wp, 4.3358_wp, &
& 4.3212_wp, 4.2275_wp, 4.2216_wp, 4.1676_wp, 4.2465_wp, &
& 4.2283_wp, 4.2161_wp, 4.2045_wp, 4.1841_wp, 4.3135_wp, &
& 4.2562_wp, 4.2226_wp, 4.1667_wp, 4.0932_wp, 3.7134_wp, &
& 3.6109_wp, 3.4962_wp, 3.8352_wp, 4.0688_wp, 4.0281_wp, &
& 4.0099_wp, 4.3199_wp, 4.1188_wp, 3.9768_wp, 4.4192_wp, &
& 4.5577_wp, 4.4516_wp, 4.3365_wp, 4.4058_wp, 4.3745_wp, &
& 4.3539_wp, 2.8763_wp, 3.1294_wp, 3.5598_wp, 3.7465_wp, &
& 3.5659_wp, 3.5816_wp, 3.3599_wp, 3.4024_wp, 3.1877_wp, &
& 3.0484_wp, 3.7009_wp, 3.9451_wp, 3.8465_wp, 3.9873_wp, &
& 3.7079_wp, 3.9083_wp, 3.6756_wp, 3.5150_wp, 4.0829_wp, &
& 4.2780_wp, 4.1511_wp, 4.1260_wp, 4.0571_wp, 3.4865_wp, &
& 3.9744_wp, 3.9150_wp, 3.8930_wp, 3.8578_wp, 3.8402_wp, &
& 3.8073_wp, 3.7977_wp, 4.0036_wp, 3.7604_wp, 4.0288_wp, &
& 3.8210_wp, 3.6757_wp, 4.2646_wp, 4.4558_wp, 4.2862_wp, &
& 4.2122_wp, 3.7088_wp, 3.6729_wp, 3.5800_wp, 3.5276_wp, &
& 3.5165_wp, 3.4783_wp, 3.4539_wp, 3.9553_wp, 3.9818_wp, &
& 4.2040_wp, 3.9604_wp, 4.2718_wp, 4.0689_wp, 3.9253_wp, &
& 4.4869_wp, 4.7792_wp, 4.4918_wp, 4.5342_wp, 4.5090_wp, &
& 4.4868_wp, 4.4680_wp, 4.4486_wp, 4.4341_wp, 4.2023_wp, &
& 4.3122_wp, 4.2710_wp, 4.3587_wp, 4.3407_wp, 4.3281_wp, &
& 4.3174_wp, 4.1499_wp, 4.3940_wp, 4.3895_wp, 4.3260_wp, &
& 4.2725_wp, 4.1961_wp, 3.7361_wp, 3.6193_wp, 3.4916_wp, &
& 3.9115_wp, 3.9914_wp, 3.9809_wp, 3.9866_wp, 4.3329_wp, &
& 4.1276_wp, 3.9782_wp, 4.5097_wp, 4.6769_wp, 4.5158_wp, &
& 4.3291_wp, 4.3609_wp, 4.3462_wp, 4.3265_wp, 4.4341_wp]
real(wp), allocatable :: reference_c6(:, :, :)
contains
real(wp) pure elemental function get_vdwrad(ati, atj) result(rad)
integer, intent(in) :: ati, atj
integer :: ic
if (ati > atj) then
ic = atj + ati*(ati-1)/2
rad = vdw_rad(ic)
else
ic = ati + atj*(atj-1)/2
rad = vdw_rad(ic)
endif
end function get_vdwrad
real(wp) pure elemental function get_c6(iref, jref, ati, atj) result(c6)
integer, intent(in) :: iref, jref, ati, atj
integer :: ic
if (ati > atj) then
ic = atj + ati*(ati-1)/2
c6 = reference_c6(iref, jref, ic)
else
ic = ati + atj*(atj-1)/2
c6 = reference_c6(jref, iref, ic)
endif
end function get_c6
subroutine print_c6(iunit)
integer, intent(in) :: iunit
integer :: ipair, ioffset, icn
if (.not.allocated(reference_c6)) call copy_c6(reference_c6)
do ipair = 1, max_elem*(1+max_elem)/2, 95
write(iunit, '(3x,"c6ab(:, :, ",i0,":",i0,") = reshape([ &")') &
& ipair, ipair+94
do ioffset = 0, 94
do icn = 1, 5
if (icn.eq.5 .and. ioffset.eq.94) then
write(iunit, '(6x,"&",4(f10.4,"_wp,"),f10.4,"_wp],&")') &
& reference_c6(:, icn, ipair+ioffset)
write(iunit, '(6x,"&",4x,"[max_ref, max_ref, 95])",/)')
else
write(iunit, '(6x,"&",5(f10.4,"_wp,"),1x,"&")') &
& reference_c6(:, icn, ipair+ioffset)
endif
enddo
enddo
enddo
end subroutine print_c6
pure subroutine copy_c6(c6ab)
real(wp), allocatable, intent(out) :: c6ab(:, :, :)
allocate(c6ab(max_ref, max_ref, (max_elem+1)*max_elem/2), source = 0.0_wp)
c6ab(:, :, 1:95) = reshape([ &
& 3.0267_wp, 4.7379_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4.7379_wp, 7.5916_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2.0835_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3.1287_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1.5583_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 38.9448_wp, 14.3165_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 68.9391_wp, 24.0573_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 22.1508_wp, 8.7773_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1163.4454_wp, 282.2106_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 282.2106_wp, 85.3197_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 24.4415_wp, 18.4656_wp, 12.5931_wp, 0.0000_wp, 0.0000_wp, &
& 41.3078_wp, 30.7866_wp, 20.4039_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 14.8246_wp, 11.4655_wp, 8.1628_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 494.6190_wp, 352.2160_wp, 194.7036_wp, 0.0000_wp, 0.0000_wp, &
& 148.1323_wp, 107.5083_wp, 66.2009_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 257.4863_wp, 186.3453_wp, 113.9677_wp, 0.0000_wp, 0.0000_wp, &
& 186.3453_wp, 135.8445_wp, 84.4000_wp, 0.0000_wp, 0.0000_wp, &
& 113.9677_wp, 84.4000_wp, 55.1364_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 17.3143_wp, 14.7237_wp, 12.4952_wp, 9.7472_wp, 9.2092_wp, &
& 28.2767_wp, 23.8412_wp, 20.0597_wp, 15.3531_wp, 14.4541_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 11.0975_wp, 9.5836_wp, 8.2586_wp, 6.6434_wp, 6.3181_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 283.7308_wp, 231.4209_wp, 188.7611_wp, 129.9875_wp, 120.6628_wp, &
& 93.6729_wp, 77.6633_wp, 64.2553_wp, 47.0338_wp, 43.9746_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 161.5971_wp, 133.7265_wp, 110.4185_wp, 80.4276_wp, 75.1311_wp, &
& 119.0815_wp, 98.9938_wp, 82.1430_wp, 60.5234_wp, 56.6527_wp, &
& 76.7230_wp, 64.4301_wp, 53.9919_wp, 40.9358_wp, 38.4745_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 107.1777_wp, 89.7429_wp, 74.9865_wp, 56.4116_wp, 52.9606_wp, &
& 89.7429_wp, 75.3686_wp, 63.1685_wp, 47.8580_wp, 44.9888_wp, &
& 74.9865_wp, 63.1685_wp, 53.1128_wp, 40.5192_wp, 38.1398_wp, &
& 56.4116_wp, 47.8580_wp, 40.5192_wp, 31.4436_wp, 29.6804_wp, &
& 52.9606_wp, 44.9888_wp, 38.1398_wp, 29.6804_wp, 28.0315_wp, &
& 12.1402_wp, 11.3932_wp, 9.4203_wp, 8.8210_wp, 7.3662_wp, &
& 19.2653_wp, 18.0575_wp, 14.7623_wp, 13.7992_wp, 11.3299_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 8.1841_wp, 7.7065_wp, 6.5027_wp, 6.1196_wp, 5.2567_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.9030_wp, 160.4590_wp, 123.7707_wp, 115.9498_wp, 87.8183_wp, &
& 60.0860_wp, 56.3468_wp, 44.9320_wp, 41.9713_wp, 33.2158_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 102.9560_wp, 96.5431_wp, 76.7552_wp, 71.6818_wp, 56.4662_wp, &
& 77.0951_wp, 72.3162_wp, 57.8805_wp, 54.0770_wp, 43.0620_wp, &
& 51.5628_wp, 48.3072_wp, 39.2814_wp, 36.6977_wp, 29.8819_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 71.2794_wp, 66.7986_wp, 54.0854_wp, 50.5303_wp, 40.8962_wp, &
& 60.2996_wp, 56.5295_wp, 45.9632_wp, 42.9646_wp, 34.9990_wp, &
& 50.9090_wp, 47.7462_wp, 38.9834_wp, 36.4604_wp, 29.8916_wp, &
& 39.2449_wp, 36.8166_wp, 30.3536_wp, 28.4121_wp, 23.6210_wp, &
& 37.0042_wp, 34.7226_wp, 28.6763_wp, 26.8506_wp, 22.3797_wp, &
& 49.1130_wp, 46.0681_wp, 37.8419_wp, 35.4129_wp, 29.2830_wp, &
& 46.0681_wp, 43.2452_wp, 35.5219_wp, 33.2540_wp, 27.5206_wp, &
& 37.8419_wp, 35.5219_wp, 29.3602_wp, 27.5063_wp, 22.9517_wp, &
& 35.4129_wp, 33.2540_wp, 27.5063_wp, 25.7809_wp, 21.5377_wp, &
& 29.2830_wp, 27.5206_wp, 22.9517_wp, 21.5377_wp, 18.2067_wp, &
& 8.7171_wp, 8.1417_wp, 7.6610_wp, 6.7746_wp, 0.0000_wp, &
& 13.5164_wp, 12.5980_wp, 11.8214_wp, 10.3987_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6.1380_wp, 5.7601_wp, 5.4559_wp, 4.8836_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 108.4854_wp, 101.2701_wp, 94.0060_wp, 81.9770_wp, 0.0000_wp, &
& 40.2944_wp, 37.4939_wp, 35.0194_wp, 30.6022_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 68.6458_wp, 63.8580_wp, 59.5983_wp, 52.0237_wp, 0.0000_wp, &
& 52.0852_wp, 48.4885_wp, 45.3164_wp, 39.6478_wp, 0.0000_wp, &
& 35.7902_wp, 33.3274_wp, 31.2407_wp, 27.4225_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 49.1132_wp, 45.7319_wp, 42.8348_wp, 37.5685_wp, 0.0000_wp, &
& 41.9015_wp, 39.0433_wp, 36.6063_wp, 32.1644_wp, 0.0000_wp, &
& 35.6778_wp, 33.2677_wp, 31.2221_wp, 27.4842_wp, 0.0000_wp, &
& 28.0129_wp, 26.1481_wp, 24.5919_wp, 21.7205_wp, 0.0000_wp, &
& 26.5083_wp, 24.7525_wp, 23.2900_wp, 20.5886_wp, 0.0000_wp, &
& 34.8146_wp, 32.4848_wp, 30.5305_wp, 26.9351_wp, 0.0000_wp, &
& 32.7009_wp, 30.5410_wp, 28.6938_wp, 25.3318_wp, 0.0000_wp, &
& 27.1704_wp, 25.3827_wp, 23.8965_wp, 21.1488_wp, 0.0000_wp, &
& 25.4799_wp, 23.8136_wp, 22.4279_wp, 19.8669_wp, 0.0000_wp, &
& 21.4199_wp, 20.0468_wp, 18.9172_wp, 16.8169_wp, 0.0000_wp, &
& 25.2685_wp, 23.6295_wp, 22.2794_wp, 19.7707_wp, 0.0000_wp, &
& 23.6295_wp, 22.1241_wp, 20.8501_wp, 18.5180_wp, 0.0000_wp, &
& 22.2794_wp, 20.8501_wp, 19.6768_wp, 17.4928_wp, 0.0000_wp, &
& 19.7707_wp, 18.5180_wp, 17.4928_wp, 15.5817_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6.7180_wp, 6.0575_wp, 5.3717_wp, 0.0000_wp, 0.0000_wp, &
& 10.2371_wp, 9.1812_wp, 8.0848_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4.8949_wp, 4.4593_wp, 4.0179_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 76.9613_wp, 67.9312_wp, 58.6703_wp, 0.0000_wp, 0.0000_wp, &
& 29.5575_wp, 26.2708_wp, 22.8930_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.1252_wp, 44.4968_wp, 38.7027_wp, 0.0000_wp, 0.0000_wp, &
& 38.4132_wp, 34.1983_wp, 29.8523_wp, 0.0000_wp, 0.0000_wp, &
& 26.8954_wp, 24.0592_wp, 21.1282_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 36.7247_wp, 32.8136_wp, 28.7713_wp, 0.0000_wp, 0.0000_wp, &
& 31.5354_wp, 28.2327_wp, 24.8185_wp, 0.0000_wp, 0.0000_wp, &
& 27.0247_wp, 24.2416_wp, 21.3648_wp, 0.0000_wp, 0.0000_wp, &
& 21.4989_wp, 19.3571_wp, 17.1424_wp, 0.0000_wp, 0.0000_wp, &
& 20.3998_wp, 18.3831_wp, 16.2987_wp, 0.0000_wp, 0.0000_wp, &
& 26.5929_wp, 23.9120_wp, 21.1428_wp, 0.0000_wp, 0.0000_wp, &
& 25.0097_wp, 22.5178_wp, 19.9090_wp, 0.0000_wp, 0.0000_wp, &
& 20.9597_wp, 18.9034_wp, 16.7855_wp, 0.0000_wp, 0.0000_wp, &
& 19.6943_wp, 17.7750_wp, 15.8009_wp, 0.0000_wp, 0.0000_wp, &
& 16.7544_wp, 15.1751_wp, 13.5525_wp, 0.0000_wp, 0.0000_wp, &
& 19.6546_wp, 17.7698_wp, 15.8364_wp, 0.0000_wp, 0.0000_wp, &
& 18.4128_wp, 16.6775_wp, 14.8600_wp, 0.0000_wp, 0.0000_wp, &
& 17.4093_wp, 15.7631_wp, 14.0807_wp, 0.0000_wp, 0.0000_wp, &
& 15.5249_wp, 14.0793_wp, 12.6077_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 15.5059_wp, 14.0764_wp, 12.6277_wp, 0.0000_wp, 0.0000_wp, &
& 14.0764_wp, 12.8161_wp, 11.5009_wp, 0.0000_wp, 0.0000_wp, &
& 12.6277_wp, 11.5009_wp, 10.3708_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5.1616_wp, 4.2672_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 7.7441_wp, 6.3000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3.8825_wp, 3.3077_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 55.0933_wp, 42.0627_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 21.7605_wp, 17.1733_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 36.7453_wp, 28.8615_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 28.4098_wp, 22.5413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 20.2083_wp, 16.3185_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 27.4821_wp, 22.0931_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 23.7369_wp, 19.2029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 20.4592_wp, 16.6531_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 16.4607_wp, 13.5581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 15.6578_wp, 12.9291_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 20.2827_wp, 16.6373_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 19.0974_wp, 15.6857_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 16.1312_wp, 13.3529_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 15.1883_wp, 12.5970_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 13.0546_wp, 10.9391_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 15.2418_wp, 12.7107_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 14.3015_wp, 11.9470_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 13.5613_wp, 11.3571_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 12.1511_wp, 10.2214_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 12.1834_wp, 10.2867_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 11.0994_wp, 9.4048_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 10.0222_wp, 8.5397_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 9.6916_wp, 8.2739_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 8.2739_wp, 7.1341_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4.0112_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5.9403_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3.1025_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 40.4731_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 16.3388_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 27.4867_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 21.4067_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 15.4176_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 20.9022_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 18.1424_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 15.7127_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 12.7577_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 12.1608_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 15.6740_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 14.7716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 12.5629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 11.8513_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 10.2716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 11.9479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 11.2243_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 10.6740_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 9.6050_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 9.6606_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 8.8252_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 8.0175_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 7.7691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6.6950_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6.2896_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 46.8232_wp, 20.7567_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 82.5641_wp, 34.9952_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 26.8628_wp, 12.7287_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1367.3272_wp, 425.7161_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 335.3450_wp, 125.8245_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.4563_wp, 218.6572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 418.6488_wp, 158.3268_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 232.8060_wp, 96.5125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 338.7212_wp, 136.9536_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 276.5671_wp, 113.4016_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 225.7843_wp, 93.7159_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 156.1138_wp, 68.2755_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 145.0020_wp, 63.8123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 203.7631_wp, 87.3956_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 192.3729_wp, 82.0144_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 148.7618_wp, 65.2739_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 139.3753_wp, 61.0174_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 105.9248_wp, 48.1622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 130.6563_wp, 58.4853_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 121.9601_wp, 54.4454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 113.3031_wp, 50.8672_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 98.8806_wp, 44.4924_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.0263_wp, 42.8911_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 82.1820_wp, 38.1227_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 71.0999_wp, 33.2636_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 66.8423_wp, 31.6060_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 51.2498_wp, 24.9560_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 49.2799_wp, 23.7745_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1608.0286_wp, 505.4363_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 505.4363_wp, 186.1052_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 38.3531_wp, 31.9913_wp, 21.8370_wp, 0.0000_wp, 0.0000_wp, &
& 65.3703_wp, 54.1021_wp, 35.9190_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 23.0320_wp, 19.4648_wp, 13.8496_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 830.8156_wp, 670.0330_wp, 370.8190_wp, 0.0000_wp, 0.0000_wp, &
& 240.1627_wp, 195.7057_wp, 120.7808_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 418.2164_wp, 340.2602_wp, 208.6769_wp, 0.0000_wp, 0.0000_wp, &
& 301.3777_wp, 246.2227_wp, 153.1575_wp, 0.0000_wp, 0.0000_wp, &
& 181.1653_wp, 149.3832_wp, 97.8101_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 258.1303_wp, 212.2180_wp, 136.9932_wp, 0.0000_wp, 0.0000_wp, &
& 212.9979_wp, 175.5646_wp, 114.4190_wp, 0.0000_wp, 0.0000_wp, &
& 175.3914_wp, 144.9783_wp, 95.3575_wp, 0.0000_wp, 0.0000_wp, &
& 126.5425_wp, 105.3054_wp, 71.3023_wp, 0.0000_wp, 0.0000_wp, &
& 118.0748_wp, 98.3724_wp, 66.8696_wp, 0.0000_wp, 0.0000_wp, &
& 162.6082_wp, 134.9227_wp, 90.3305_wp, 0.0000_wp, 0.0000_wp, &
& 152.6130_wp, 126.6657_wp, 84.6178_wp, 0.0000_wp, 0.0000_wp, &
& 120.7386_wp, 100.5817_wp, 68.2984_wp, 0.0000_wp, 0.0000_wp, &
& 112.8210_wp, 93.9978_wp, 63.7944_wp, 0.0000_wp, 0.0000_wp, &
& 88.2620_wp, 74.0028_wp, 51.3525_wp, 0.0000_wp, 0.0000_wp, &
& 107.6150_wp, 89.9646_wp, 61.8372_wp, 0.0000_wp, 0.0000_wp, &
& 100.1443_wp, 83.7703_wp, 57.5398_wp, 0.0000_wp, 0.0000_wp, &
& 93.4130_wp, 78.1760_wp, 53.8803_wp, 0.0000_wp, 0.0000_wp, &
& 81.5352_wp, 68.3141_wp, 47.2059_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 78.2250_wp, 65.7609_wp, 46.0347_wp, 0.0000_wp, 0.0000_wp, &
& 69.3675_wp, 58.4303_wp, 41.0605_wp, 0.0000_wp, 0.0000_wp, &
& 60.2983_wp, 50.8669_wp, 35.9665_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 57.1605_wp, 48.2865_wp, 34.3314_wp, 0.0000_wp, 0.0000_wp, &
& 44.7141_wp, 37.9884_wp, 27.4841_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.6771_wp, 36.1911_wp, 26.0533_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 985.1697_wp, 794.7597_wp, 442.4019_wp, 0.0000_wp, 0.0000_wp, &
& 355.9180_wp, 289.6082_wp, 176.8683_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 683.3758_wp, 554.5967_wp, 334.2493_wp, 0.0000_wp, 0.0000_wp, &
& 554.5967_wp, 451.2708_wp, 274.1590_wp, 0.0000_wp, 0.0000_wp, &
& 334.2493_wp, 274.1590_wp, 175.5616_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 36.2909_wp, 33.1048_wp, 26.3524_wp, 21.0584_wp, 0.0000_wp, &
& 60.8558_wp, 55.2636_wp, 43.3661_wp, 34.0700_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 22.3224_wp, 20.5158_wp, 16.7031_wp, 13.6982_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 705.8254_wp, 627.5309_wp, 456.3613_wp, 322.7925_wp, 0.0000_wp, &
& 214.7265_wp, 193.0707_wp, 146.4426_wp, 110.2136_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 372.6302_wp, 334.7335_wp, 253.0649_wp, 189.6605_wp, 0.0000_wp, &
& 270.7461_wp, 243.7612_wp, 185.7310_wp, 140.5632_wp, 0.0000_wp, &
& 167.2929_wp, 151.5931_wp, 118.1233_wp, 92.0126_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 236.4780_wp, 213.8848_wp, 165.5938_wp, 127.9645_wp, 0.0000_wp, &
& 196.2014_wp, 177.7254_wp, 138.2838_wp, 107.5158_wp, 0.0000_wp, &
& 162.4473_wp, 147.3766_wp, 115.2480_wp, 90.1440_wp, 0.0000_wp, &
& 119.1545_wp, 108.5517_wp, 86.0532_wp, 68.4330_wp, 0.0000_wp, &
& 111.4377_wp, 101.5889_wp, 80.7005_wp, 64.3332_wp, 0.0000_wp, &
& 152.0934_wp, 138.3254_wp, 109.0541_wp, 86.1605_wp, 0.0000_wp, &
& 142.6094_wp, 129.6922_wp, 102.2095_wp, 80.7111_wp, 0.0000_wp, &
& 113.8560_wp, 103.7907_wp, 82.4303_wp, 65.6968_wp, 0.0000_wp, &
& 106.3508_wp, 96.9560_wp, 77.0087_wp, 61.3829_wp, 0.0000_wp, &
& 84.3073_wp, 77.1362_wp, 61.9610_wp, 50.0397_wp, 0.0000_wp, &
& 102.2000_wp, 93.3542_wp, 74.6117_wp, 59.9074_wp, 0.0000_wp, &
& 95.0916_wp, 86.8728_wp, 69.4501_wp, 55.7793_wp, 0.0000_wp, &
& 88.8407_wp, 81.2026_wp, 65.0164_wp, 52.3136_wp, 0.0000_wp, &
& 77.6520_wp, 71.0231_wp, 56.9713_wp, 45.9399_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 75.0755_wp, 68.7983_wp, 55.5250_wp, 45.0876_wp, 0.0000_wp, &
& 66.7451_wp, 61.2175_wp, 49.5319_wp, 40.3374_wp, 0.0000_wp, &
& 58.1951_wp, 53.4365_wp, 43.3788_wp, 35.4602_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 55.3412_wp, 50.8577_wp, 41.3914_wp, 33.9334_wp, 0.0000_wp, &
& 43.7364_wp, 40.3220_wp, 33.1265_wp, 27.4436_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 41.5966_wp, 38.3154_wp, 31.3944_wp, 25.9335_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 838.9648_wp, 746.3419_wp, 543.9378_wp, 386.0980_wp, 0.0000_wp, &
& 316.4588_wp, 284.2251_wp, 214.6796_wp, 160.6594_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 603.4689_wp, 541.0285_wp, 406.0687_wp, 301.3307_wp, 0.0000_wp, &
& 492.0829_wp, 441.7322_wp, 333.0505_wp, 248.5692_wp, 0.0000_wp, &
& 304.7337_wp, 275.2609_wp, 212.1971_wp, 163.1100_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.5406_wp, 486.2365_wp, 369.3829_wp, 278.5639_wp, 0.0000_wp, &
& 486.2365_wp, 437.7575_wp, 333.5341_wp, 252.4953_wp, 0.0000_wp, &
& 369.3829_wp, 333.5341_wp, 256.7497_wp, 196.9411_wp, 0.0000_wp, &
& 278.5639_wp, 252.4953_wp, 196.9411_wp, 153.5945_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.5947_wp, 27.4989_wp, 25.7021_wp, 24.9833_wp, 21.0064_wp, &
& 48.5182_wp, 44.9030_wp, 41.8222_wp, 40.6972_wp, 33.7126_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 18.8500_wp, 17.6356_wp, 16.5806_wp, 16.1104_wp, 13.8547_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 495.3449_wp, 450.9583_wp, 412.4323_wp, 408.0802_wp, 308.7953_wp, &
& 162.0508_wp, 148.7478_wp, 137.4458_wp, 134.4490_wp, 107.2721_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 279.7863_wp, 256.5881_wp, 236.8991_wp, 231.8251_wp, 184.2566_wp, &
& 205.7544_wp, 189.1090_wp, 174.9315_wp, 171.0398_wp, 137.1783_wp, &
& 131.8920_wp, 121.8333_wp, 113.2820_wp, 110.3134_wp, 90.6956_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 96:190) = reshape([ &
& 184.5111_wp, 170.1891_wp, 158.0165_wp, 154.0388_wp, 125.7764_wp, &
& 154.2901_wp, 142.5123_wp, 132.4831_wp, 129.0898_wp, 105.9826_wp, &
& 128.7459_wp, 119.0889_wp, 110.8447_wp, 107.9647_wp, 89.1190_wp, &
& 96.5313_wp, 89.5948_wp, 83.6586_wp, 81.3478_wp, 68.1106_wp, &
& 90.5740_wp, 84.1158_wp, 78.5835_wp, 76.4038_wp, 64.1083_wp, &
& 122.1387_wp, 113.2046_wp, 105.5713_wp, 102.7202_wp, 85.5223_wp, &
& 114.4405_wp, 106.0806_wp, 98.9278_wp, 96.2872_wp, 80.1427_wp, &
& 92.4931_wp, 85.9068_wp, 80.2619_wp, 78.0574_wp, 65.4879_wp, &
& 86.3999_wp, 80.2618_wp, 74.9967_wp, 72.9530_wp, 61.2169_wp, &
& 69.7224_wp, 64.9672_wp, 60.8687_wp, 59.1583_wp, 50.2053_wp, &
& 83.8498_wp, 78.0190_wp, 73.0073_wp, 70.9761_wp, 59.9319_wp, &
& 78.0466_wp, 72.6373_wp, 67.9820_wp, 66.1052_wp, 55.8394_wp, &
& 73.0858_wp, 68.0504_wp, 63.7151_wp, 61.9530_wp, 52.4136_wp, &
& 64.0576_wp, 59.6887_wp, 55.9197_wp, 54.3857_wp, 46.1031_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 62.5349_wp, 58.3557_wp, 54.7443_wp, 53.2061_wp, 45.3688_wp, &
& 55.8175_wp, 52.1311_wp, 48.9391_wp, 47.5664_wp, 40.6635_wp, &
& 48.9066_wp, 45.7273_wp, 42.9679_wp, 41.7687_wp, 35.8247_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 46.6936_wp, 43.6855_wp, 41.0728_wp, 39.9172_wp, 34.3187_wp, &
& 37.4421_wp, 35.1290_wp, 33.1075_wp, 32.1730_wp, 27.9086_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.4550_wp, 33.2416_wp, 31.3107_wp, 30.4338_wp, 26.3358_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 591.0458_wp, 538.3412_wp, 492.6562_wp, 487.1761_wp, 369.7717_wp, &
& 237.1326_wp, 217.5049_wp, 200.8038_wp, 196.6526_wp, 156.1545_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 447.6423_wp, 409.9174_wp, 377.8360_wp, 370.3778_wp, 291.8716_wp, &
& 367.5811_wp, 337.0250_wp, 310.9897_wp, 304.6797_wp, 241.3903_wp, &
& 236.1388_wp, 217.5471_wp, 201.7758_wp, 196.7841_wp, 159.9115_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 408.9606_wp, 375.5233_wp, 347.1154_wp, 339.4502_wp, 271.3202_wp, &
& 369.6232_wp, 339.6516_wp, 314.1809_wp, 307.1015_wp, 246.3013_wp, &
& 285.4825_wp, 262.9770_wp, 243.8407_wp, 237.9434_wp, 193.0534_wp, &
& 219.9479_wp, 203.2226_wp, 189.0034_wp, 184.0291_wp, 151.4603_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 317.8574_wp, 292.9994_wp, 271.8844_wp, 265.1189_wp, 215.8998_wp, &
& 292.9994_wp, 270.2650_wp, 250.9376_wp, 244.6288_wp, 199.7530_wp, &
& 271.8844_wp, 250.9376_wp, 233.1254_wp, 227.1882_wp, 185.9996_wp, &
& 265.1189_wp, 244.6288_wp, 227.1882_wp, 221.5046_wp, 181.0237_wp, &
& 215.8998_wp, 199.7530_wp, 185.9996_wp, 181.0237_wp, 149.7734_wp, &
& 23.7604_wp, 23.0908_wp, 22.7429_wp, 21.2507_wp, 0.0000_wp, &
& 38.1397_wp, 37.0236_wp, 36.4936_wp, 33.9193_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 15.6689_wp, 15.2619_wp, 15.0245_wp, 14.1577_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 350.8030_wp, 339.6693_wp, 337.4662_wp, 304.7707_wp, 0.0000_wp, &
& 121.5067_wp, 117.7472_wp, 116.3941_wp, 106.8466_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 208.7331_wp, 202.2282_wp, 199.9576_wp, 183.3056_wp, 0.0000_wp, &
& 155.3644_wp, 150.6068_wp, 148.8194_wp, 136.8674_wp, 0.0000_wp, &
& 102.6176_wp, 99.5656_wp, 98.1859_wp, 91.0206_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 142.3481_wp, 138.0774_wp, 136.2402_wp, 126.0194_wp, 0.0000_wp, &
& 119.9353_wp, 116.3818_wp, 114.7968_wp, 106.3923_wp, 0.0000_wp, &
& 100.8432_wp, 97.8947_wp, 96.5324_wp, 89.6391_wp, 0.0000_wp, &
& 77.0429_wp, 74.8497_wp, 73.7397_wp, 68.8007_wp, 0.0000_wp, &
& 72.5145_wp, 70.4629_wp, 69.4115_wp, 64.8127_wp, 0.0000_wp, &
& 96.7503_wp, 93.9663_wp, 92.6080_wp, 86.2427_wp, 0.0000_wp, &
& 90.6767_wp, 88.0769_wp, 86.8128_wp, 80.8496_wp, 0.0000_wp, &
& 74.0784_wp, 71.9914_wp, 70.9269_wp, 66.2343_wp, 0.0000_wp, &
& 69.2515_wp, 67.3088_wp, 66.3194_wp, 61.9433_wp, 0.0000_wp, &
& 56.7852_wp, 55.2375_wp, 54.3941_wp, 51.0048_wp, 0.0000_wp, &
& 67.7873_wp, 65.9127_wp, 64.9209_wp, 60.7663_wp, 0.0000_wp, &
& 63.1669_wp, 61.4286_wp, 60.5085_wp, 56.6508_wp, 0.0000_wp, &
& 59.2859_wp, 57.6632_wp, 56.7981_wp, 53.2076_wp, 0.0000_wp, &
& 52.1509_wp, 50.7398_wp, 49.9818_wp, 46.8635_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 51.3098_wp, 49.9374_wp, 49.1729_wp, 46.1927_wp, 0.0000_wp, &
& 45.9937_wp, 44.7770_wp, 44.0904_wp, 41.4600_wp, 0.0000_wp, &
& 40.5167_wp, 39.4617_wp, 38.8578_wp, 36.5875_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 38.8084_wp, 37.8035_wp, 37.2205_wp, 35.0733_wp, 0.0000_wp, &
& 31.5577_wp, 30.7688_wp, 30.2894_wp, 28.6362_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.7767_wp, 29.0280_wp, 28.5805_wp, 26.9990_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 420.0064_wp, 406.7150_wp, 403.9802_wp, 365.2110_wp, 0.0000_wp, &
& 176.9205_wp, 171.4469_wp, 169.5698_wp, 155.4495_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 330.7801_wp, 320.4176_wp, 317.0824_wp, 289.9090_wp, 0.0000_wp, &
& 273.5268_wp, 265.0378_wp, 262.1696_wp, 240.1582_wp, 0.0000_wp, &
& 180.9843_wp, 175.5006_wp, 173.2227_wp, 159.9562_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 307.2965_wp, 297.8076_wp, 294.3403_wp, 270.3535_wp, 0.0000_wp, &
& 278.9272_wp, 270.3580_wp, 267.1404_wp, 245.6529_wp, 0.0000_wp, &
& 218.5302_wp, 211.9205_wp, 209.2061_wp, 193.1132_wp, 0.0000_wp, &
& 171.3557_wp, 166.2698_wp, 163.9565_wp, 152.0452_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 244.3546_wp, 236.9864_wp, 233.8752_wp, 216.1303_wp, 0.0000_wp, &
& 226.0657_wp, 219.2863_wp, 216.3693_wp, 200.1422_wp, 0.0000_wp, &
& 210.4840_wp, 204.1998_wp, 201.4465_wp, 186.5031_wp, 0.0000_wp, &
& 204.8770_wp, 198.7616_wp, 196.1196_wp, 181.4840_wp, 0.0000_wp, &
& 169.4356_wp, 164.4669_wp, 162.1289_wp, 150.6308_wp, 0.0000_wp, &
& 191.6887_wp, 186.0684_wp, 183.4322_wp, 170.4045_wp, 0.0000_wp, &
& 186.0684_wp, 180.6238_wp, 178.0622_wp, 165.4518_wp, 0.0000_wp, &
& 183.4322_wp, 178.0622_wp, 175.5534_wp, 163.0764_wp, 0.0000_wp, &
& 170.4045_wp, 165.4518_wp, 163.0764_wp, 151.6886_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 20.0948_wp, 19.8667_wp, 19.4729_wp, 0.0000_wp, 0.0000_wp, &
& 31.7713_wp, 31.4127_wp, 30.7747_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 13.6108_wp, 13.4598_wp, 13.2090_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 273.7867_wp, 271.3011_wp, 265.5464_wp, 0.0000_wp, 0.0000_wp, &
& 98.1249_wp, 97.0849_wp, 95.0531_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 167.9513_wp, 166.1807_wp, 162.6875_wp, 0.0000_wp, 0.0000_wp, &
& 126.0993_wp, 124.7512_wp, 122.1534_wp, 0.0000_wp, 0.0000_wp, &
& 84.8691_wp, 83.9181_wp, 82.1973_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 117.1121_wp, 115.8168_wp, 113.4324_wp, 0.0000_wp, 0.0000_wp, &
& 99.2159_wp, 98.1139_wp, 96.1100_wp, 0.0000_wp, 0.0000_wp, &
& 83.8847_wp, 82.9497_wp, 81.2693_wp, 0.0000_wp, 0.0000_wp, &
& 64.8918_wp, 64.1573_wp, 62.8783_wp, 0.0000_wp, 0.0000_wp, &
& 61.2184_wp, 60.5255_wp, 59.3239_wp, 0.0000_wp, 0.0000_wp, &
& 81.0919_wp, 80.1804_wp, 78.5729_wp, 0.0000_wp, 0.0000_wp, &
& 76.0552_wp, 75.2039_wp, 73.7006_wp, 0.0000_wp, 0.0000_wp, &
& 62.5953_wp, 61.8916_wp, 60.6690_wp, 0.0000_wp, 0.0000_wp, &
& 58.5776_wp, 57.9221_wp, 56.7826_wp, 0.0000_wp, 0.0000_wp, &
& 48.5681_wp, 48.0221_wp, 47.0943_wp, 0.0000_wp, 0.0000_wp, &
& 57.6734_wp, 57.0255_wp, 55.9136_wp, 0.0000_wp, 0.0000_wp, &
& 53.8107_wp, 53.2086_wp, 52.1753_wp, 0.0000_wp, 0.0000_wp, &
& 50.5946_wp, 50.0298_wp, 49.0629_wp, 0.0000_wp, 0.0000_wp, &
& 44.6529_wp, 44.1581_wp, 43.3130_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 44.1470_wp, 43.6548_wp, 42.8245_wp, 0.0000_wp, 0.0000_wp, &
& 39.7091_wp, 39.2683_wp, 38.5276_wp, 0.0000_wp, 0.0000_wp, &
& 35.1377_wp, 34.7510_wp, 34.1042_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 33.7264_wp, 33.3550_wp, 32.7365_wp, 0.0000_wp, 0.0000_wp, &
& 27.7137_wp, 27.4117_wp, 26.9163_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 26.0940_wp, 25.8107_wp, 25.3435_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 328.5990_wp, 325.5969_wp, 318.7120_wp, 0.0000_wp, 0.0000_wp, &
& 142.5430_wp, 141.0599_wp, 138.1166_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 264.6665_wp, 261.9437_wp, 256.4315_wp, 0.0000_wp, 0.0000_wp, &
& 219.9489_wp, 217.6629_wp, 213.1036_wp, 0.0000_wp, 0.0000_wp, &
& 148.2130_wp, 146.5849_wp, 143.5523_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 248.5008_wp, 245.8568_wp, 240.7165_wp, 0.0000_wp, 0.0000_wp, &
& 226.2156_wp, 223.7942_wp, 219.1285_wp, 0.0000_wp, 0.0000_wp, &
& 178.8926_wp, 176.9365_wp, 173.2779_wp, 0.0000_wp, 0.0000_wp, &
& 141.8517_wp, 140.2618_wp, 137.3907_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 200.5374_wp, 198.3266_wp, 194.2314_wp, 0.0000_wp, 0.0000_wp, &
& 186.0051_wp, 183.9483_wp, 180.1622_wp, 0.0000_wp, 0.0000_wp, &
& 173.5798_wp, 171.6537_wp, 168.1302_wp, 0.0000_wp, 0.0000_wp, &
& 168.8225_wp, 166.9597_wp, 163.5352_wp, 0.0000_wp, 0.0000_wp, &
& 140.9955_wp, 139.4086_wp, 136.5758_wp, 0.0000_wp, 0.0000_wp, &
& 159.4898_wp, 157.6971_wp, 154.4935_wp, 0.0000_wp, 0.0000_wp, &
& 154.9229_wp, 153.1823_wp, 150.0748_wp, 0.0000_wp, 0.0000_wp, &
& 152.6470_wp, 150.9364_wp, 147.8750_wp, 0.0000_wp, 0.0000_wp, &
& 142.2982_wp, 140.6958_wp, 137.8540_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 134.0066_wp, 132.4922_wp, 129.8413_wp, 0.0000_wp, 0.0000_wp, &
& 132.4922_wp, 130.9965_wp, 128.3764_wp, 0.0000_wp, 0.0000_wp, &
& 129.8413_wp, 128.3764_wp, 125.8109_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 16.7052_wp, 16.5273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 26.0170_wp, 25.7414_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 11.6302_wp, 11.5092_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 210.6626_wp, 208.7743_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 77.9865_wp, 77.2023_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 132.9808_wp, 131.6498_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 100.7212_wp, 99.6995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 69.0069_wp, 68.2806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 94.7612_wp, 93.7743_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 80.7272_wp, 79.8833_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 68.6331_wp, 67.9132_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 53.7343_wp, 53.1638_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.8102_wp, 50.2708_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 66.8407_wp, 66.1354_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 62.7465_wp, 62.0864_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 52.0208_wp, 51.4721_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 48.7448_wp, 48.2328_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 40.8516_wp, 40.4209_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 48.2624_wp, 47.7540_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 45.0952_wp, 44.6217_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.4816_wp, 42.0367_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 37.6295_wp, 37.2381_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 37.3688_wp, 36.9783_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 33.7313_wp, 33.3801_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.9918_wp, 29.6822_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 28.8445_wp, 28.5468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 23.9505_wp, 23.7059_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 22.5121_wp, 22.2832_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 253.5136_wp, 251.2326_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 113.1025_wp, 111.9829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 208.4978_wp, 206.4521_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 174.1399_wp, 172.4148_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 119.3911_wp, 118.1567_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 197.7594_wp, 195.7647_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 180.5430_wp, 178.7127_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 144.0669_wp, 142.5806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 115.4552_wp, 114.2405_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 161.8686_wp, 160.1879_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 150.5231_wp, 148.9559_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 140.7824_wp, 139.3125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 136.8460_wp, 135.4234_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 115.3542_wp, 114.1358_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 130.4725_wp, 129.0956_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 126.8312_wp, 125.4930_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.9162_wp, 123.6011_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 116.8355_wp, 115.6006_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 110.7006_wp, 109.5270_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 109.4486_wp, 108.2893_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 107.2964_wp, 106.1606_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 92.3460_wp, 91.3667_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.3667_wp, 90.3985_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 13.8700_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 21.3055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 9.9130_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 163.5497_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 62.2205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 105.7229_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 80.7174_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 56.1517_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 76.7949_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 65.7580_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 56.1926_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 44.4613_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.1324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 55.0898_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 51.7684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 43.2064_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 40.5441_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 34.3050_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 40.3435_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 37.7522_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.6334_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 31.6804_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 31.5783_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 28.6000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 25.5514_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 24.6178_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 20.6394_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 19.3774_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 197.3440_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 90.1735_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 165.1006_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 138.5190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 96.3813_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 157.9595_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 144.5798_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 116.2817_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 94.0428_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 130.8927_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 122.0012_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 114.3348_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 111.1044_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 94.4027_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 106.7698_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 103.8653_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 102.2701_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 95.9336_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.4014_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 90.3716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 88.6268_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 76.9383_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 76.1256_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 64.6462_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 76.2376_wp, 29.3000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 134.4441_wp, 48.4499_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 44.0411_wp, 18.6655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2387.1574_wp, 560.2954_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 555.1516_wp, 168.7412_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 972.3197_wp, 292.2224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 694.8596_wp, 213.4444_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 379.4225_wp, 132.4751_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 554.1980_wp, 186.9566_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 452.5193_wp, 155.7781_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.1535_wp, 129.5963_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.2237_wp, 95.8497_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 236.1802_wp, 89.8569_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 332.2694_wp, 121.9292_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 314.5800_wp, 114.5723_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 242.6366_wp, 92.0240_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 227.6600_wp, 86.1481_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 172.9685_wp, 69.0434_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 213.2001_wp, 83.2153_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 199.4405_wp, 77.6317_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 185.2181_wp, 72.6818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 162.0160_wp, 63.8686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 152.1420_wp, 61.9948_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 134.6508_wp, 55.4032_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 116.7069_wp, 48.6380_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 109.6439_wp, 46.3520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 84.3688_wp, 37.1982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 81.0861_wp, 35.2969_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2798.6124_wp, 666.0357_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 840.8299_wp, 249.2200_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1642.0587_wp, 473.7661_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1327.3176_wp, 387.3349_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 723.6346_wp, 240.1725_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1387.9361_wp, 424.8926_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1233.2237_wp, 382.6422_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 894.6228_wp, 291.6028_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 628.9537_wp, 220.7264_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 967.6283_wp, 322.8233_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 881.2624_wp, 296.9409_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 805.4924_wp, 274.8056_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 798.8390_wp, 268.9778_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 602.2116_wp, 215.8797_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 684.4968_wp, 244.5729_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 663.1184_wp, 237.2191_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 659.2394_wp, 234.4921_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 595.1033_wp, 215.8467_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 535.2384_wp, 199.4672_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.5192_wp, 197.3806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 519.3802_wp, 193.3412_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 413.1512_wp, 160.3304_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 409.5105_wp, 158.7330_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 322.1155_wp, 129.4283_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4983.5009_wp, 1112.2277_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1112.2277_wp, 338.0207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 191:285) = reshape([ &
& 65.8180_wp, 52.9871_wp, 30.6783_wp, 0.0000_wp, 0.0000_wp, &
& 113.4857_wp, 90.7927_wp, 50.2368_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 39.0701_wp, 31.8796_wp, 19.7247_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1614.4719_wp, 1310.0314_wp, 525.3196_wp, 0.0000_wp, 0.0000_wp, &
& 434.1576_wp, 345.6120_wp, 168.9009_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 757.9070_wp, 602.5661_wp, 291.7021_wp, 0.0000_wp, 0.0000_wp, &
& 543.5842_wp, 434.0284_wp, 214.3171_wp, 0.0000_wp, 0.0000_wp, &
& 316.5102_wp, 252.5778_wp, 136.5998_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 454.8439_wp, 362.6862_wp, 191.4135_wp, 0.0000_wp, 0.0000_wp, &
& 373.8815_wp, 298.7264_wp, 160.0734_wp, 0.0000_wp, 0.0000_wp, &
& 306.9078_wp, 245.9498_wp, 133.5995_wp, 0.0000_wp, 0.0000_wp, &
& 217.9457_wp, 175.1434_wp, 100.0610_wp, 0.0000_wp, 0.0000_wp, &
& 203.0679_wp, 163.3534_wp, 93.9194_wp, 0.0000_wp, 0.0000_wp, &
& 281.7035_wp, 225.9629_wp, 126.6836_wp, 0.0000_wp, 0.0000_wp, &
& 265.1206_wp, 212.8957_wp, 118.8255_wp, 0.0000_wp, 0.0000_wp, &
& 208.0223_wp, 167.4145_wp, 96.0553_wp, 0.0000_wp, 0.0000_wp, &
& 194.6719_wp, 156.7702_wp, 89.8285_wp, 0.0000_wp, 0.0000_wp, &
& 150.8203_wp, 122.0707_wp, 72.5524_wp, 0.0000_wp, 0.0000_wp, &
& 184.5498_wp, 148.9793_wp, 87.1906_wp, 0.0000_wp, 0.0000_wp, &
& 172.0455_wp, 139.0219_wp, 81.2525_wp, 0.0000_wp, 0.0000_wp, &
& 160.2750_wp, 129.5841_wp, 76.1365_wp, 0.0000_wp, 0.0000_wp, &
& 140.0273_wp, 113.4161_wp, 66.8706_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 133.3847_wp, 108.2718_wp, 65.2525_wp, 0.0000_wp, 0.0000_wp, &
& 118.2411_wp, 96.1584_wp, 58.3423_wp, 0.0000_wp, 0.0000_wp, &
& 102.7126_wp, 83.7279_wp, 51.2425_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 97.0824_wp, 79.2218_wp, 48.9331_wp, 0.0000_wp, 0.0000_wp, &
& 75.5850_wp, 62.0580_wp, 39.4048_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 72.3072_wp, 59.2779_wp, 37.3258_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1907.7081_wp, 1545.7064_wp, 626.5526_wp, 0.0000_wp, 0.0000_wp, &
& 648.3105_wp, 516.6917_wp, 247.8223_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1252.5932_wp, 997.2486_wp, 468.1527_wp, 0.0000_wp, 0.0000_wp, &
& 1013.7695_wp, 809.2182_wp, 384.1308_wp, 0.0000_wp, 0.0000_wp, &
& 590.8737_wp, 470.3059_wp, 245.0983_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1088.8420_wp, 866.9517_wp, 426.0568_wp, 0.0000_wp, 0.0000_wp, &
& 973.0493_wp, 775.0832_wp, 384.8555_wp, 0.0000_wp, 0.0000_wp, &
& 721.4089_wp, 575.4721_wp, 296.5572_wp, 0.0000_wp, 0.0000_wp, &
& 525.8367_wp, 419.7129_wp, 227.8108_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 790.6347_wp, 630.0456_wp, 329.8171_wp, 0.0000_wp, 0.0000_wp, &
& 722.5111_wp, 576.2962_wp, 303.9725_wp, 0.0000_wp, 0.0000_wp, &
& 664.0977_wp, 529.8946_wp, 281.9814_wp, 0.0000_wp, 0.0000_wp, &
& 653.4174_wp, 521.7535_wp, 275.2242_wp, 0.0000_wp, 0.0000_wp, &
& 507.2703_wp, 405.6765_wp, 223.6162_wp, 0.0000_wp, 0.0000_wp, &
& 575.4627_wp, 460.2635_wp, 253.1519_wp, 0.0000_wp, 0.0000_wp, &
& 557.4255_wp, 446.0170_wp, 245.5654_wp, 0.0000_wp, 0.0000_wp, &
& 552.4889_wp, 442.0702_wp, 242.4454_wp, 0.0000_wp, 0.0000_wp, &
& 502.9654_wp, 402.8286_wp, 223.9566_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 456.8443_wp, 366.7711_wp, 207.8531_wp, 0.0000_wp, 0.0000_wp, &
& 452.3745_wp, 363.1951_wp, 205.6006_wp, 0.0000_wp, 0.0000_wp, &
& 442.8735_wp, 355.6161_wp, 201.3895_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 357.4737_wp, 288.2182_wp, 168.0065_wp, 0.0000_wp, 0.0000_wp, &
& 354.0935_wp, 285.4905_wp, 166.2878_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 281.6823_wp, 228.0892_wp, 136.1638_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3240.4393_wp, 2661.0830_wp, 1030.5394_wp, 0.0000_wp, 0.0000_wp, &
& 860.1771_wp, 688.9911_wp, 337.7795_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2352.6862_wp, 1886.4221_wp, 832.2379_wp, 0.0000_wp, 0.0000_wp, &
& 1886.4221_wp, 1525.1891_wp, 664.0620_wp, 0.0000_wp, 0.0000_wp, &
& 832.2379_wp, 664.0620_wp, 343.3343_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 54.9669_wp, 29.9953_wp, 29.8615_wp, 0.0000_wp, 0.0000_wp, &
& 94.2083_wp, 48.9753_wp, 48.4929_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 32.8995_wp, 19.3841_wp, 19.4304_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1278.1183_wp, 504.8268_wp, 481.9586_wp, 0.0000_wp, 0.0000_wp, &
& 354.0317_wp, 163.6446_wp, 159.5715_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 617.3358_wp, 282.4420_wp, 275.0061_wp, 0.0000_wp, 0.0000_wp, &
& 443.7190_wp, 207.8107_wp, 203.0678_wp, 0.0000_wp, 0.0000_wp, &
& 261.9443_wp, 132.9868_wp, 131.2980_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 375.0418_wp, 186.1419_wp, 183.2413_wp, 0.0000_wp, 0.0000_wp, &
& 308.8721_wp, 155.8228_wp, 153.7050_wp, 0.0000_wp, 0.0000_wp, &
& 253.9534_wp, 130.1725_wp, 128.6716_wp, 0.0000_wp, 0.0000_wp, &
& 181.6834_wp, 97.7550_wp, 97.1632_wp, 0.0000_wp, 0.0000_wp, &
& 169.4186_wp, 91.7951_wp, 91.3072_wp, 0.0000_wp, 0.0000_wp, &
& 234.1950_wp, 123.6379_wp, 122.6115_wp, 0.0000_wp, 0.0000_wp, &
& 220.1854_wp, 115.9726_wp, 114.9710_wp, 0.0000_wp, 0.0000_wp, &
& 173.4630_wp, 93.8911_wp, 93.3603_wp, 0.0000_wp, 0.0000_wp, &
& 162.2609_wp, 87.8153_wp, 87.3048_wp, 0.0000_wp, 0.0000_wp, &
& 126.3491_wp, 71.0854_wp, 70.9670_wp, 0.0000_wp, 0.0000_wp, &
& 154.2947_wp, 85.3404_wp, 85.0464_wp, 0.0000_wp, 0.0000_wp, &
& 143.7658_wp, 79.5383_wp, 79.2586_wp, 0.0000_wp, 0.0000_wp, &
& 134.0314_wp, 74.5587_wp, 74.3297_wp, 0.0000_wp, 0.0000_wp, &
& 117.1112_wp, 65.5203_wp, 65.3415_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 111.9359_wp, 64.0072_wp, 63.9839_wp, 0.0000_wp, 0.0000_wp, &
& 99.2939_wp, 57.2611_wp, 57.2805_wp, 0.0000_wp, 0.0000_wp, &
& 86.3365_wp, 50.3373_wp, 50.3920_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 81.7242_wp, 48.0936_wp, 48.1892_wp, 0.0000_wp, 0.0000_wp, &
& 63.8564_wp, 38.8097_wp, 38.9899_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 61.0154_wp, 36.7468_wp, 36.8800_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1512.5338_wp, 602.4929_wp, 575.7400_wp, 0.0000_wp, 0.0000_wp, &
& 527.0917_wp, 239.9714_wp, 233.4674_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1015.5454_wp, 452.7600_wp, 439.2030_wp, 0.0000_wp, 0.0000_wp, &
& 822.8957_wp, 371.7768_wp, 361.4502_wp, 0.0000_wp, 0.0000_wp, &
& 486.4653_wp, 238.1540_wp, 234.0068_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 888.6025_wp, 412.9058_wp, 402.9357_wp, 0.0000_wp, 0.0000_wp, &
& 795.2206_wp, 373.1845_wp, 364.6668_wp, 0.0000_wp, 0.0000_wp, &
& 592.7050_wp, 288.0834_wp, 282.8628_wp, 0.0000_wp, 0.0000_wp, &
& 435.4205_wp, 221.8339_wp, 219.1014_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 651.2040_wp, 320.5896_wp, 315.2655_wp, 0.0000_wp, 0.0000_wp, &
& 595.6725_wp, 295.6101_wp, 291.0037_wp, 0.0000_wp, 0.0000_wp, &
& 548.2115_wp, 274.3493_wp, 270.3548_wp, 0.0000_wp, 0.0000_wp, &
& 538.5754_wp, 267.7120_wp, 263.5853_wp, 0.0000_wp, 0.0000_wp, &
& 420.8895_wp, 217.9628_wp, 215.7027_wp, 0.0000_wp, 0.0000_wp, &
& 477.2797_wp, 246.7358_wp, 244.1234_wp, 0.0000_wp, 0.0000_wp, &
& 462.3511_wp, 239.3701_wp, 236.8740_wp, 0.0000_wp, 0.0000_wp, &
& 457.9608_wp, 236.2965_wp, 233.7282_wp, 0.0000_wp, 0.0000_wp, &
& 417.7400_wp, 218.4319_wp, 216.4038_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 380.4107_wp, 202.9672_wp, 201.5466_wp, 0.0000_wp, 0.0000_wp, &
& 376.6142_wp, 200.7622_wp, 199.3322_wp, 0.0000_wp, 0.0000_wp, &
& 368.7131_wp, 196.6601_wp, 195.2671_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 298.7686_wp, 164.3655_wp, 163.7482_wp, 0.0000_wp, 0.0000_wp, &
& 295.9028_wp, 162.6806_wp, 162.0542_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 236.1417_wp, 133.4404_wp, 133.2865_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2549.9412_wp, 988.5881_wp, 943.3962_wp, 0.0000_wp, 0.0000_wp, &
& 700.7281_wp, 327.7092_wp, 320.0043_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1888.7902_wp, 803.2380_wp, 774.1368_wp, 0.0000_wp, 0.0000_wp, &
& 1510.1427_wp, 640.7076_wp, 618.1676_wp, 0.0000_wp, 0.0000_wp, &
& 683.8786_wp, 333.6780_wp, 327.6458_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1522.4676_wp, 660.6780_wp, 638.4869_wp, 0.0000_wp, 0.0000_wp, &
& 660.6780_wp, 324.5068_wp, 318.8004_wp, 0.0000_wp, 0.0000_wp, &
& 638.4869_wp, 318.8004_wp, 313.9846_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 53.6875_wp, 29.0009_wp, 30.2593_wp, 0.0000_wp, 0.0000_wp, &
& 91.3334_wp, 47.2755_wp, 49.0983_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 32.5316_wp, 18.8084_wp, 19.7205_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1192.9128_wp, 488.2931_wp, 486.2098_wp, 0.0000_wp, 0.0000_wp, &
& 337.3896_wp, 157.6667_wp, 161.3013_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.4898_wp, 272.0201_wp, 277.9371_wp, 0.0000_wp, 0.0000_wp, &
& 423.6217_wp, 200.3669_wp, 205.3134_wp, 0.0000_wp, 0.0000_wp, &
& 253.0543_wp, 128.2862_wp, 132.8881_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 361.0865_wp, 179.5077_wp, 185.4074_wp, 0.0000_wp, 0.0000_wp, &
& 298.0871_wp, 150.3520_wp, 155.5661_wp, 0.0000_wp, 0.0000_wp, &
& 245.6647_wp, 125.7017_wp, 130.2662_wp, 0.0000_wp, 0.0000_wp, &
& 177.0660_wp, 94.4758_wp, 98.4363_wp, 0.0000_wp, 0.0000_wp, &
& 165.2912_wp, 88.7389_wp, 92.5154_wp, 0.0000_wp, 0.0000_wp, &
& 227.5723_wp, 119.4376_wp, 124.1849_wp, 0.0000_wp, 0.0000_wp, &
& 213.8682_wp, 112.0523_wp, 116.4471_wp, 0.0000_wp, 0.0000_wp, &
& 169.2064_wp, 90.7838_wp, 94.6013_wp, 0.0000_wp, 0.0000_wp, &
& 158.2705_wp, 84.9253_wp, 88.4703_wp, 0.0000_wp, 0.0000_wp, &
& 124.0013_wp, 68.8297_wp, 71.9595_wp, 0.0000_wp, 0.0000_wp, &
& 151.0199_wp, 82.5834_wp, 86.2109_wp, 0.0000_wp, 0.0000_wp, &
& 140.7115_wp, 76.9834_wp, 80.3464_wp, 0.0000_wp, 0.0000_wp, &
& 131.3015_wp, 72.1828_wp, 75.3609_wp, 0.0000_wp, 0.0000_wp, &
& 114.8256_wp, 63.4645_wp, 66.2607_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 110.1452_wp, 62.0309_wp, 64.9037_wp, 0.0000_wp, 0.0000_wp, &
& 97.8345_wp, 55.5160_wp, 58.1127_wp, 0.0000_wp, 0.0000_wp, &
& 85.2219_wp, 48.8396_wp, 51.1410_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 80.7975_wp, 46.6765_wp, 48.9131_wp, 0.0000_wp, 0.0000_wp, &
& 63.4748_wp, 37.7222_wp, 39.6015_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 60.5594_wp, 35.7117_wp, 37.4554_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1413.1570_wp, 582.5270_wp, 580.9067_wp, 0.0000_wp, 0.0000_wp, &
& 501.2393_wp, 231.2612_wp, 235.9718_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 962.9831_wp, 436.1091_wp, 443.7557_wp, 0.0000_wp, 0.0000_wp, &
& 781.6993_wp, 358.3602_wp, 365.2736_wp, 0.0000_wp, 0.0000_wp, &
& 467.4506_wp, 229.5754_wp, 236.7246_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 847.4615_wp, 397.8618_wp, 407.3331_wp, 0.0000_wp, 0.0000_wp, &
& 759.4532_wp, 359.6497_wp, 368.7014_wp, 0.0000_wp, 0.0000_wp, &
& 568.9077_wp, 277.8074_wp, 286.1317_wp, 0.0000_wp, 0.0000_wp, &
& 420.8711_wp, 214.0193_wp, 221.7708_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 626.2353_wp, 309.1081_wp, 318.9550_wp, 0.0000_wp, 0.0000_wp, &
& 573.4988_wp, 285.0957_wp, 294.4479_wp, 0.0000_wp, 0.0000_wp, &
& 528.4593_wp, 264.6302_wp, 273.5887_wp, 0.0000_wp, 0.0000_wp, &
& 518.6333_wp, 258.2554_wp, 266.7243_wp, 0.0000_wp, 0.0000_wp, &
& 407.8160_wp, 210.3904_wp, 218.3896_wp, 0.0000_wp, 0.0000_wp, &
& 462.3247_wp, 238.1644_wp, 247.1603_wp, 0.0000_wp, 0.0000_wp, &
& 447.9590_wp, 231.0773_wp, 239.8294_wp, 0.0000_wp, 0.0000_wp, &
& 443.4723_wp, 228.1087_wp, 236.6374_wp, 0.0000_wp, 0.0000_wp, &
& 405.3462_wp, 210.9228_wp, 219.1391_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.2631_wp, 196.1128_wp, 204.1620_wp, 0.0000_wp, 0.0000_wp, &
& 366.5151_wp, 193.9845_wp, 201.9181_wp, 0.0000_wp, 0.0000_wp, &
& 358.8554_wp, 190.0290_wp, 197.8037_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 292.1853_wp, 158.9892_wp, 165.9632_wp, 0.0000_wp, 0.0000_wp, &
& 289.3512_wp, 157.3604_wp, 164.2459_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 231.9208_wp, 129.2180_wp, 135.1586_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2374.6690_wp, 960.3376_wp, 951.6268_wp, 0.0000_wp, 0.0000_wp, &
& 668.7546_wp, 316.2518_wp, 323.6190_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1779.5162_wp, 774.6863_wp, 781.7679_wp, 0.0000_wp, 0.0000_wp, &
& 1422.3244_wp, 619.4301_wp, 624.3036_wp, 0.0000_wp, 0.0000_wp, &
& 656.7474_wp, 321.8441_wp, 331.4851_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1438.2841_wp, 636.8706_wp, 644.9388_wp, 0.0000_wp, 0.0000_wp, &
& 635.0457_wp, 312.9202_wp, 322.5705_wp, 0.0000_wp, 0.0000_wp, &
& 615.2494_wp, 307.5913_wp, 317.7589_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1361.9185_wp, 612.2225_wp, 621.6228_wp, 0.0000_wp, 0.0000_wp, &
& 612.2225_wp, 301.9988_wp, 311.2408_wp, 0.0000_wp, 0.0000_wp, &
& 621.6228_wp, 311.2408_wp, 321.5890_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 49.4819_wp, 28.4067_wp, 27.6880_wp, 0.0000_wp, 0.0000_wp, &
& 83.8313_wp, 46.3089_wp, 44.8842_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 30.1851_wp, 18.4359_wp, 18.1127_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1069.0426_wp, 479.1402_wp, 448.2923_wp, 0.0000_wp, 0.0000_wp, &
& 306.5482_wp, 154.5762_wp, 147.6410_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.3499_wp, 266.7050_wp, 254.3767_wp, 0.0000_wp, 0.0000_wp, &
& 385.2754_wp, 196.4027_wp, 187.9531_wp, 0.0000_wp, 0.0000_wp, &
& 231.8065_wp, 125.6778_wp, 121.4601_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 330.1023_wp, 175.8909_wp, 169.5221_wp, 0.0000_wp, 0.0000_wp, &
& 272.8747_wp, 147.3153_wp, 142.2728_wp, 0.0000_wp, 0.0000_wp, &
& 225.1783_wp, 123.1529_wp, 119.1771_wp, 0.0000_wp, 0.0000_wp, &
& 162.9990_wp, 92.5451_wp, 90.0574_wp, 0.0000_wp, 0.0000_wp, &
& 152.2500_wp, 86.9264_wp, 84.6570_wp, 0.0000_wp, 0.0000_wp, &
& 209.1450_wp, 117.0098_wp, 113.6129_wp, 0.0000_wp, 0.0000_wp, &
& 196.4885_wp, 109.7797_wp, 106.5711_wp, 0.0000_wp, 0.0000_wp, &
& 155.8387_wp, 88.9429_wp, 86.6060_wp, 0.0000_wp, 0.0000_wp, &
& 145.7580_wp, 83.2111_wp, 81.0229_wp, 0.0000_wp, 0.0000_wp, &
& 114.5870_wp, 67.4383_wp, 65.9473_wp, 0.0000_wp, 0.0000_wp, &
& 139.3512_wp, 80.9144_wp, 78.9761_wp, 0.0000_wp, 0.0000_wp, &
& 129.8297_wp, 75.4303_wp, 73.6275_wp, 0.0000_wp, 0.0000_wp, &
& 121.2119_wp, 70.7347_wp, 69.0809_wp, 0.0000_wp, 0.0000_wp, &
& 106.0489_wp, 62.2020_wp, 60.7834_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 101.9325_wp, 60.7933_wp, 59.5445_wp, 0.0000_wp, 0.0000_wp, &
& 90.6007_wp, 54.4109_wp, 53.3400_wp, 0.0000_wp, 0.0000_wp, &
& 79.0003_wp, 47.8815_wp, 46.9875_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 74.9671_wp, 45.7630_wp, 44.9493_wp, 0.0000_wp, 0.0000_wp, &
& 59.0665_wp, 36.9962_wp, 36.4513_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 56.3108_wp, 35.0290_wp, 34.4789_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1267.3139_wp, 571.6455_wp, 535.4483_wp, 0.0000_wp, 0.0000_wp, &
& 454.8030_wp, 226.7886_wp, 216.1867_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 872.2579_wp, 427.7156_wp, 406.5642_wp, 0.0000_wp, 0.0000_wp, &
& 708.7684_wp, 351.3928_wp, 334.6783_wp, 0.0000_wp, 0.0000_wp, &
& 426.8815_wp, 224.9822_wp, 216.4395_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 770.3432_wp, 390.0432_wp, 372.8019_wp, 0.0000_wp, 0.0000_wp, &
& 690.9156_wp, 352.5575_wp, 337.4128_wp, 0.0000_wp, 0.0000_wp, &
& 519.1328_wp, 272.2496_wp, 261.7283_wp, 0.0000_wp, 0.0000_wp, &
& 385.6611_wp, 209.6742_wp, 202.7168_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 572.1129_wp, 302.8985_wp, 291.6318_wp, 0.0000_wp, 0.0000_wp, &
& 524.2808_wp, 279.3563_wp, 269.2413_wp, 0.0000_wp, 0.0000_wp, &
& 483.4599_wp, 259.2925_wp, 250.1591_wp, 0.0000_wp, 0.0000_wp, &
& 474.1585_wp, 253.0661_wp, 243.9654_wp, 0.0000_wp, 0.0000_wp, &
& 374.2069_wp, 206.1062_wp, 199.6661_wp, 0.0000_wp, 0.0000_wp, &
& 424.1470_wp, 233.3176_wp, 225.9849_wp, 0.0000_wp, 0.0000_wp, &
& 411.0121_wp, 226.3767_wp, 219.3033_wp, 0.0000_wp, 0.0000_wp, &
& 406.7672_wp, 223.4784_wp, 216.4101_wp, 0.0000_wp, 0.0000_wp, &
& 372.2326_wp, 206.6274_wp, 200.4053_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 340.6020_wp, 192.1113_wp, 186.7665_wp, 0.0000_wp, 0.0000_wp, &
& 337.1250_wp, 190.0299_wp, 184.7241_wp, 0.0000_wp, 0.0000_wp, &
& 330.0938_wp, 186.1576_wp, 180.9710_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 269.4863_wp, 155.7507_wp, 151.9416_wp, 0.0000_wp, 0.0000_wp, &
& 266.8557_wp, 154.1576_wp, 150.3757_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 214.4002_wp, 126.6027_wp, 123.8635_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2124.1985_wp, 941.9837_wp, 879.7445_wp, 0.0000_wp, 0.0000_wp, &
& 607.9951_wp, 310.1108_wp, 296.7431_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1604.9178_wp, 760.0718_wp, 718.1630_wp, 0.0000_wp, 0.0000_wp, &
& 1282.1610_wp, 607.5571_wp, 574.2351_wp, 0.0000_wp, 0.0000_wp, &
& 599.4521_wp, 315.4686_wp, 303.3970_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1299.5197_wp, 624.7801_wp, 591.8695_wp, 0.0000_wp, 0.0000_wp, &
& 579.9584_wp, 306.7389_wp, 295.2374_wp, 0.0000_wp, 0.0000_wp, &
& 562.7180_wp, 301.4420_wp, 290.7309_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1232.3235_wp, 600.5221_wp, 570.2282_wp, 0.0000_wp, 0.0000_wp, &
& 559.1157_wp, 296.0029_wp, 284.9497_wp, 0.0000_wp, 0.0000_wp, &
& 568.6316_wp, 305.0201_wp, 294.2417_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1116.0984_wp, 548.3908_wp, 521.4602_wp, 0.0000_wp, 0.0000_wp, &
& 548.3908_wp, 290.1436_wp, 279.2755_wp, 0.0000_wp, 0.0000_wp, &
& 521.4602_wp, 279.2755_wp, 269.3349_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 39.1221_wp, 28.0562_wp, 21.3134_wp, 0.0000_wp, 0.0000_wp, &
& 65.9837_wp, 45.8173_wp, 33.9427_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 24.1463_wp, 18.1754_wp, 14.4051_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 844.0936_wp, 480.5944_wp, 314.2807_wp, 0.0000_wp, 0.0000_wp, &
& 240.5033_wp, 153.7539_wp, 107.7527_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 418.1635_wp, 265.4088_wp, 184.9079_wp, 0.0000_wp, 0.0000_wp, &
& 302.6061_wp, 195.2317_wp, 137.8919_wp, 0.0000_wp, 0.0000_wp, &
& 182.1558_wp, 124.4645_wp, 91.0985_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 259.3021_wp, 174.3719_wp, 126.3736_wp, 0.0000_wp, 0.0000_wp, &
& 214.6360_wp, 145.9477_wp, 106.7244_wp, 0.0000_wp, 0.0000_wp, &
& 177.4000_wp, 121.9340_wp, 89.9610_wp, 0.0000_wp, 0.0000_wp, &
& 128.7233_wp, 91.4528_wp, 68.9958_wp, 0.0000_wp, 0.0000_wp, &
& 120.3278_wp, 85.8806_wp, 65.0349_wp, 0.0000_wp, 0.0000_wp, &
& 164.9882_wp, 115.7182_wp, 86.5464_wp, 0.0000_wp, 0.0000_wp, &
& 155.1171_wp, 108.5820_wp, 81.2335_wp, 0.0000_wp, 0.0000_wp, &
& 123.2591_wp, 87.8889_wp, 66.6131_wp, 0.0000_wp, 0.0000_wp, &
& 115.3697_wp, 82.2331_wp, 62.3963_wp, 0.0000_wp, 0.0000_wp, &
& 91.0233_wp, 66.5568_wp, 51.4610_wp, 0.0000_wp, 0.0000_wp, &
& 110.4861_wp, 79.9024_wp, 61.2471_wp, 0.0000_wp, 0.0000_wp, &
& 103.0189_wp, 74.4890_wp, 57.1766_wp, 0.0000_wp, 0.0000_wp, &
& 96.2547_wp, 69.8471_wp, 53.7726_wp, 0.0000_wp, 0.0000_wp, &
& 84.3631_wp, 61.4202_wp, 47.5033_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 81.2000_wp, 59.9829_wp, 46.8138_wp, 0.0000_wp, 0.0000_wp, &
& 72.2872_wp, 53.6733_wp, 42.1046_wp, 0.0000_wp, 0.0000_wp, &
& 63.1867_wp, 47.2297_wp, 37.3024_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 60.0099_wp, 45.1290_wp, 35.7811_wp, 0.0000_wp, 0.0000_wp, &
& 47.5318_wp, 36.4594_wp, 29.3923_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 286:380) = reshape([ &
& 45.2820_wp, 34.5350_wp, 27.7372_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1000.4652_wp, 573.1436_wp, 376.4906_wp, 0.0000_wp, 0.0000_wp, &
& 357.1508_wp, 225.7837_wp, 157.3830_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 684.4015_wp, 426.2276_wp, 293.6777_wp, 0.0000_wp, 0.0000_wp, &
& 556.6127_wp, 349.9328_wp, 243.0049_wp, 0.0000_wp, 0.0000_wp, &
& 335.0118_wp, 223.1855_wp, 160.5554_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 604.4071_wp, 387.8695_wp, 272.5015_wp, 0.0000_wp, 0.0000_wp, &
& 542.2459_wp, 350.4296_wp, 247.4372_wp, 0.0000_wp, 0.0000_wp, &
& 407.7288_wp, 270.1623_wp, 193.9815_wp, 0.0000_wp, 0.0000_wp, &
& 303.1266_wp, 207.6299_wp, 152.2308_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.2216_wp, 300.3928_wp, 216.8001_wp, 0.0000_wp, 0.0000_wp, &
& 411.8879_wp, 276.9512_wp, 200.7344_wp, 0.0000_wp, 0.0000_wp, &
& 379.9385_wp, 256.9682_wp, 187.0036_wp, 0.0000_wp, 0.0000_wp, &
& 372.7838_wp, 250.8827_wp, 182.1854_wp, 0.0000_wp, 0.0000_wp, &
& 294.5037_wp, 203.9633_wp, 150.8344_wp, 0.0000_wp, 0.0000_wp, &
& 333.8380_wp, 230.9090_wp, 170.6767_wp, 0.0000_wp, 0.0000_wp, &
& 323.5914_wp, 224.0303_wp, 165.7628_wp, 0.0000_wp, 0.0000_wp, &
& 320.2734_wp, 221.1986_wp, 163.4733_wp, 0.0000_wp, 0.0000_wp, &
& 293.2680_wp, 204.4081_wp, 152.0010_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 268.8029_wp, 189.9052_wp, 142.6795_wp, 0.0000_wp, 0.0000_wp, &
& 266.0762_wp, 187.8570_wp, 141.1092_wp, 0.0000_wp, 0.0000_wp, &
& 260.5647_wp, 184.0280_wp, 138.2944_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 213.3668_wp, 153.8057_wp, 117.4258_wp, 0.0000_wp, 0.0000_wp, &
& 211.2928_wp, 152.2383_wp, 116.2100_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 170.3465_wp, 124.9265_wp, 96.7593_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1683.6701_wp, 945.8700_wp, 617.0566_wp, 0.0000_wp, 0.0000_wp, &
& 478.9744_wp, 308.3901_wp, 218.9044_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1263.0809_wp, 759.3684_wp, 513.7768_wp, 0.0000_wp, 0.0000_wp, &
& 1011.5955_wp, 607.0700_wp, 412.0610_wp, 0.0000_wp, 0.0000_wp, &
& 471.3832_wp, 313.0538_wp, 225.6881_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1021.6871_wp, 623.5332_wp, 425.4745_wp, 0.0000_wp, 0.0000_wp, &
& 456.2023_wp, 304.3094_wp, 220.1013_wp, 0.0000_wp, 0.0000_wp, &
& 442.6736_wp, 298.8190_wp, 217.6494_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 968.8565_wp, 598.7981_wp, 412.1387_wp, 0.0000_wp, 0.0000_wp, &
& 440.0762_wp, 293.6598_wp, 212.6450_wp, 0.0000_wp, 0.0000_wp, &
& 447.3763_wp, 302.3474_wp, 220.4170_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 877.3855_wp, 546.5244_wp, 378.0660_wp, 0.0000_wp, 0.0000_wp, &
& 431.6683_wp, 287.8657_wp, 208.4094_wp, 0.0000_wp, 0.0000_wp, &
& 410.5661_wp, 276.8819_wp, 201.8641_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 690.7425_wp, 430.2353_wp, 298.4894_wp, 0.0000_wp, 0.0000_wp, &
& 430.2353_wp, 285.6905_wp, 206.3426_wp, 0.0000_wp, 0.0000_wp, &
& 298.4894_wp, 206.3426_wp, 153.3435_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 43.0028_wp, 26.1810_wp, 18.4694_wp, 0.0000_wp, 0.0000_wp, &
& 72.4111_wp, 42.3927_wp, 29.1208_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 26.4978_wp, 17.1526_wp, 12.6985_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 891.9756_wp, 416.0836_wp, 256.5689_wp, 0.0000_wp, 0.0000_wp, &
& 260.9019_wp, 138.7491_wp, 90.4231_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 453.3686_wp, 238.9606_wp, 154.7687_wp, 0.0000_wp, 0.0000_wp, &
& 328.4012_wp, 176.6817_wp, 116.1032_wp, 0.0000_wp, 0.0000_wp, &
& 199.6426_wp, 114.6465_wp, 77.7823_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 283.4744_wp, 159.8492_wp, 107.4866_wp, 0.0000_wp, 0.0000_wp, &
& 234.8000_wp, 134.2136_wp, 91.1091_wp, 0.0000_wp, 0.0000_wp, &
& 194.1378_wp, 112.4648_wp, 77.0812_wp, 0.0000_wp, 0.0000_wp, &
& 141.4071_wp, 85.1312_wp, 59.6313_wp, 0.0000_wp, 0.0000_wp, &
& 132.1984_wp, 80.0375_wp, 56.2921_wp, 0.0000_wp, 0.0000_wp, &
& 181.0035_wp, 107.3382_wp, 74.5511_wp, 0.0000_wp, 0.0000_wp, &
& 169.9796_wp, 100.6463_wp, 69.9883_wp, 0.0000_wp, 0.0000_wp, &
& 135.2994_wp, 81.8731_wp, 57.6893_wp, 0.0000_wp, 0.0000_wp, &
& 126.5416_wp, 76.5846_wp, 54.0676_wp, 0.0000_wp, 0.0000_wp, &
& 99.9768_wp, 62.3931_wp, 44.9179_wp, 0.0000_wp, 0.0000_wp, &
& 121.3233_wp, 74.6998_wp, 53.2828_wp, 0.0000_wp, 0.0000_wp, &
& 113.0248_wp, 69.6215_wp, 49.7698_wp, 0.0000_wp, 0.0000_wp, &
& 105.6080_wp, 65.3415_wp, 46.8681_wp, 0.0000_wp, 0.0000_wp, &
& 92.4636_wp, 57.4915_wp, 41.4862_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 89.1346_wp, 56.3622_wp, 41.0237_wp, 0.0000_wp, 0.0000_wp, &
& 79.3047_wp, 50.4858_wp, 36.9692_wp, 0.0000_wp, 0.0000_wp, &
& 69.2598_wp, 44.4888_wp, 32.8495_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 65.8112_wp, 42.5764_wp, 31.5582_wp, 0.0000_wp, 0.0000_wp, &
& 52.0780_wp, 34.5481_wp, 26.0926_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 49.5959_wp, 32.6806_wp, 24.5957_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1058.5103_wp, 497.3582_wp, 307.9557_wp, 0.0000_wp, 0.0000_wp, &
& 386.3426_wp, 202.9676_wp, 131.8257_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 739.0411_wp, 381.2968_wp, 244.7517_wp, 0.0000_wp, 0.0000_wp, &
& 601.4499_wp, 314.0119_wp, 203.2173_wp, 0.0000_wp, 0.0000_wp, &
& 366.0024_wp, 204.0446_wp, 136.1619_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 656.0738_wp, 350.4522_wp, 228.9125_wp, 0.0000_wp, 0.0000_wp, &
& 589.1475_wp, 317.3287_wp, 208.2902_wp, 0.0000_wp, 0.0000_wp, &
& 444.6283_wp, 246.5588_wp, 164.4045_wp, 0.0000_wp, 0.0000_wp, &
& 332.3156_wp, 191.3897_wp, 130.0809_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.8156_wp, 274.9257_wp, 184.0945_wp, 0.0000_wp, 0.0000_wp, &
& 450.2234_wp, 253.8800_wp, 170.7515_wp, 0.0000_wp, 0.0000_wp, &
& 415.6112_wp, 235.9676_wp, 159.3286_wp, 0.0000_wp, 0.0000_wp, &
& 407.2425_wp, 230.0182_wp, 155.1095_wp, 0.0000_wp, 0.0000_wp, &
& 323.0948_wp, 188.5834_wp, 129.3324_wp, 0.0000_wp, 0.0000_wp, &
& 366.1204_wp, 213.4101_wp, 146.3175_wp, 0.0000_wp, 0.0000_wp, &
& 354.8432_wp, 207.0995_wp, 142.1674_wp, 0.0000_wp, 0.0000_wp, &
& 351.0224_wp, 204.3319_wp, 140.1443_wp, 0.0000_wp, 0.0000_wp, &
& 321.7679_wp, 189.3102_wp, 130.6248_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 295.1737_wp, 176.5165_wp, 123.1170_wp, 0.0000_wp, 0.0000_wp, &
& 292.1257_wp, 174.5775_wp, 121.7541_wp, 0.0000_wp, 0.0000_wp, &
& 286.0527_wp, 171.0306_wp, 119.3486_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 234.4533_wp, 143.7001_wp, 101.9746_wp, 0.0000_wp, 0.0000_wp, &
& 232.1447_wp, 142.2151_wp, 100.9143_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 187.1728_wp, 117.2057_wp, 84.5107_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1768.0322_wp, 814.2468_wp, 503.8621_wp, 0.0000_wp, 0.0000_wp, &
& 518.0583_wp, 278.7259_wp, 184.8170_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1351.4785_wp, 670.8337_wp, 425.2382_wp, 0.0000_wp, 0.0000_wp, &
& 1079.1532_wp, 535.8149_wp, 341.7674_wp, 0.0000_wp, 0.0000_wp, &
& 513.6516_wp, 285.8068_wp, 191.6322_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1097.1539_wp, 553.7931_wp, 353.3283_wp, 0.0000_wp, 0.0000_wp, &
& 497.3474_wp, 278.1965_wp, 187.1364_wp, 0.0000_wp, 0.0000_wp, &
& 483.5993_wp, 274.1703_wp, 185.5544_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1042.6625_wp, 534.1266_wp, 343.4916_wp, 0.0000_wp, 0.0000_wp, &
& 479.4969_wp, 268.4657_wp, 180.9105_wp, 0.0000_wp, 0.0000_wp, &
& 488.7888_wp, 277.5005_wp, 187.9838_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 945.6072_wp, 488.7947_wp, 315.7492_wp, 0.0000_wp, 0.0000_wp, &
& 470.2529_wp, 263.1127_wp, 177.2993_wp, 0.0000_wp, 0.0000_wp, &
& 448.0698_wp, 253.9370_wp, 172.1980_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 743.3179_wp, 384.6931_wp, 249.6819_wp, 0.0000_wp, 0.0000_wp, &
& 468.2961_wp, 260.7773_wp, 175.3867_wp, 0.0000_wp, 0.0000_wp, &
& 326.3558_wp, 190.5528_wp, 131.8288_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 802.7484_wp, 420.4207_wp, 273.3937_wp, 0.0000_wp, 0.0000_wp, &
& 420.4207_wp, 239.5554_wp, 162.6844_wp, 0.0000_wp, 0.0000_wp, &
& 273.3937_wp, 162.6844_wp, 113.8463_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 33.9110_wp, 24.3452_wp, 18.0977_wp, 0.0000_wp, 0.0000_wp, &
& 56.7993_wp, 39.2742_wp, 28.5665_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 21.1750_wp, 16.0560_wp, 12.4277_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 698.4539_wp, 379.2117_wp, 253.2432_wp, 0.0000_wp, 0.0000_wp, &
& 203.6149_wp, 127.5492_wp, 88.9538_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 353.5358_wp, 219.4775_wp, 152.2986_wp, 0.0000_wp, 0.0000_wp, &
& 256.6043_wp, 162.6108_wp, 114.1613_wp, 0.0000_wp, 0.0000_wp, &
& 156.2845_wp, 106.0286_wp, 76.3494_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 221.7547_wp, 147.6298_wp, 105.5581_wp, 0.0000_wp, 0.0000_wp, &
& 183.9737_wp, 124.1170_wp, 89.4354_wp, 0.0000_wp, 0.0000_wp, &
& 152.3887_wp, 104.1437_wp, 75.6327_wp, 0.0000_wp, 0.0000_wp, &
& 111.3569_wp, 79.0832_wp, 58.4515_wp, 0.0000_wp, 0.0000_wp, &
& 104.1990_wp, 74.3930_wp, 55.1698_wp, 0.0000_wp, 0.0000_wp, &
& 142.3467_wp, 99.5880_wp, 73.1079_wp, 0.0000_wp, 0.0000_wp, &
& 133.7700_wp, 93.3848_wp, 68.6293_wp, 0.0000_wp, 0.0000_wp, &
& 106.7326_wp, 76.1132_wp, 56.5429_wp, 0.0000_wp, 0.0000_wp, &
& 99.9017_wp, 71.2110_wp, 52.9928_wp, 0.0000_wp, 0.0000_wp, &
& 79.2630_wp, 58.1776_wp, 43.9902_wp, 0.0000_wp, 0.0000_wp, &
& 95.9782_wp, 69.5638_wp, 52.2028_wp, 0.0000_wp, 0.0000_wp, &
& 89.4868_wp, 64.8468_wp, 48.7558_wp, 0.0000_wp, 0.0000_wp, &
& 83.6916_wp, 60.8920_wp, 45.9140_wp, 0.0000_wp, 0.0000_wp, &
& 73.4185_wp, 53.6171_wp, 40.6376_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.8942_wp, 52.6351_wp, 40.1709_wp, 0.0000_wp, 0.0000_wp, &
& 63.1865_wp, 47.1816_wp, 36.1919_wp, 0.0000_wp, 0.0000_wp, &
& 55.3356_wp, 41.6270_wp, 32.1584_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 52.6310_wp, 39.8628_wp, 30.8925_wp, 0.0000_wp, 0.0000_wp, &
& 41.8942_wp, 32.4321_wp, 25.5314_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 39.8659_wp, 30.6648_wp, 24.0741_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 828.8936_wp, 453.5444_wp, 303.9124_wp, 0.0000_wp, 0.0000_wp, &
& 301.7401_wp, 186.4669_wp, 129.7332_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 576.5121_wp, 349.7116_wp, 240.9962_wp, 0.0000_wp, 0.0000_wp, &
& 469.6437_wp, 288.3371_wp, 200.0041_wp, 0.0000_wp, 0.0000_wp, &
& 285.9969_wp, 188.2525_wp, 133.7853_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 512.0823_wp, 322.2781_wp, 225.1663_wp, 0.0000_wp, 0.0000_wp, &
& 460.0496_wp, 292.0247_wp, 204.8282_wp, 0.0000_wp, 0.0000_wp, &
& 347.6394_wp, 227.4327_wp, 161.5357_wp, 0.0000_wp, 0.0000_wp, &
& 260.2229_wp, 177.0542_wp, 127.6833_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.7445_wp, 253.7638_wp, 180.8346_wp, 0.0000_wp, 0.0000_wp, &
& 352.2408_wp, 234.4843_wp, 167.6917_wp, 0.0000_wp, 0.0000_wp, &
& 325.3117_wp, 218.0646_wp, 156.4437_wp, 0.0000_wp, 0.0000_wp, &
& 318.8589_wp, 212.5126_wp, 152.3164_wp, 0.0000_wp, 0.0000_wp, &
& 253.3965_wp, 174.6758_wp, 126.8932_wp, 0.0000_wp, 0.0000_wp, &
& 287.1606_wp, 197.6569_wp, 143.5585_wp, 0.0000_wp, 0.0000_wp, &
& 278.4020_wp, 191.8429_wp, 139.4802_wp, 0.0000_wp, 0.0000_wp, &
& 275.4138_wp, 189.2497_wp, 137.5043_wp, 0.0000_wp, 0.0000_wp, &
& 252.6740_wp, 175.4919_wp, 128.1271_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 232.2625_wp, 163.8794_wp, 120.7060_wp, 0.0000_wp, 0.0000_wp, &
& 229.8776_wp, 162.0750_wp, 119.3719_wp, 0.0000_wp, 0.0000_wp, &
& 225.1357_wp, 158.7933_wp, 117.0121_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 185.1823_wp, 133.7324_wp, 99.9119_wp, 0.0000_wp, 0.0000_wp, &
& 183.3661_wp, 132.3480_wp, 98.8747_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 148.4319_wp, 109.3155_wp, 82.7591_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1388.9522_wp, 742.2520_wp, 497.3105_wp, 0.0000_wp, 0.0000_wp, &
& 406.0876_wp, 256.7579_wp, 181.7040_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1056.5193_wp, 613.9233_wp, 419.0635_wp, 0.0000_wp, 0.0000_wp, &
& 845.4686_wp, 490.7481_wp, 336.7038_wp, 0.0000_wp, 0.0000_wp, &
& 402.1872_wp, 263.7930_wp, 188.2696_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 857.1730_wp, 507.3401_wp, 348.0642_wp, 0.0000_wp, 0.0000_wp, &
& 389.5974_wp, 256.8889_wp, 183.8257_wp, 0.0000_wp, 0.0000_wp, &
& 378.9366_wp, 253.4168_wp, 182.2062_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 814.8402_wp, 489.8996_wp, 338.2283_wp, 0.0000_wp, 0.0000_wp, &
& 375.8242_wp, 247.9636_wp, 177.7007_wp, 0.0000_wp, 0.0000_wp, &
& 383.0606_wp, 256.5291_wp, 184.5856_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 739.0542_wp, 448.6262_wp, 310.8375_wp, 0.0000_wp, 0.0000_wp, &
& 368.6136_wp, 243.0148_wp, 174.1594_wp, 0.0000_wp, 0.0000_wp, &
& 351.3939_wp, 234.7665_wp, 169.0900_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 581.8114_wp, 353.2709_wp, 245.7629_wp, 0.0000_wp, 0.0000_wp, &
& 367.0785_wp, 240.7834_wp, 172.3036_wp, 0.0000_wp, 0.0000_wp, &
& 256.8278_wp, 176.6607_wp, 129.3444_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 627.5403_wp, 386.2602_wp, 269.0494_wp, 0.0000_wp, 0.0000_wp, &
& 329.6273_wp, 221.5340_wp, 159.7402_wp, 0.0000_wp, 0.0000_wp, &
& 215.5738_wp, 151.0768_wp, 111.6491_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 491.3349_wp, 303.0480_wp, 212.1109_wp, 0.0000_wp, 0.0000_wp, &
& 303.0480_wp, 204.9925_wp, 148.3171_wp, 0.0000_wp, 0.0000_wp, &
& 212.1109_wp, 148.3171_wp, 109.5041_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 36.3234_wp, 23.2310_wp, 20.7741_wp, 18.7500_wp, 0.0000_wp, &
& 60.5746_wp, 37.4496_wp, 33.3307_wp, 29.7680_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 22.7233_wp, 15.3545_wp, 13.8804_wp, 12.7523_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 701.5324_wp, 362.3746_wp, 319.8448_wp, 270.7598_wp, 0.0000_wp, &
& 212.8978_wp, 121.6037_wp, 107.5582_wp, 93.8356_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 369.1928_wp, 209.2227_wp, 184.8938_wp, 160.8870_wp, 0.0000_wp, &
& 268.6284_wp, 155.0554_wp, 137.2998_wp, 120.1880_wp, 0.0000_wp, &
& 166.2166_wp, 101.0801_wp, 89.7891_wp, 79.7845_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 234.8693_wp, 140.7428_wp, 124.9087_wp, 110.5365_wp, 0.0000_wp, &
& 195.1731_wp, 118.3530_wp, 105.2019_wp, 93.4541_wp, 0.0000_wp, &
& 161.8720_wp, 99.3343_wp, 88.4405_wp, 78.8624_wp, 0.0000_wp, &
& 119.1091_wp, 75.4525_wp, 67.3932_wp, 60.6537_wp, 0.0000_wp, &
& 111.5063_wp, 70.9871_wp, 63.4543_wp, 57.1987_wp, 0.0000_wp, &
& 151.8703_wp, 95.0051_wp, 84.7552_wp, 76.0072_wp, 0.0000_wp, &
& 142.5140_wp, 89.0992_wp, 79.5273_wp, 71.3318_wp, 0.0000_wp, &
& 114.0913_wp, 72.6443_wp, 64.9856_wp, 58.6057_wp, 0.0000_wp, &
& 106.6917_wp, 67.9774_wp, 60.8513_wp, 54.9066_wp, 0.0000_wp, &
& 84.9547_wp, 55.5654_wp, 49.9148_wp, 45.3891_wp, 0.0000_wp, &
& 102.7503_wp, 66.4218_wp, 59.5628_wp, 53.9695_wp, 0.0000_wp, &
& 95.7051_wp, 61.9256_wp, 55.5685_wp, 50.3814_wp, 0.0000_wp, &
& 89.5345_wp, 58.1611_wp, 52.2322_wp, 47.4168_wp, 0.0000_wp, &
& 78.4696_wp, 51.2318_wp, 46.0841_wp, 41.9193_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 75.9912_wp, 50.3016_wp, 45.3066_wp, 41.3623_wp, 0.0000_wp, &
& 67.7117_wp, 45.1002_wp, 40.6799_wp, 37.2178_wp, 0.0000_wp, &
& 59.2688_wp, 39.8131_wp, 35.9892_wp, 33.0215_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 56.4307_wp, 38.1313_wp, 34.4935_wp, 31.6985_wp, 0.0000_wp, &
& 44.9407_wp, 31.0516_wp, 28.2122_wp, 26.1031_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.7270_wp, 29.3598_wp, 26.6627_wp, 24.6343_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 834.1826_wp, 433.3736_wp, 382.6821_wp, 324.6241_wp, 0.0000_wp, &
& 314.1718_wp, 177.8355_wp, 157.3578_wp, 136.9841_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 598.3302_wp, 333.4767_wp, 294.6091_wp, 255.1561_wp, 0.0000_wp, &
& 488.1715_wp, 274.9840_wp, 243.1809_wp, 211.3388_wp, 0.0000_wp, &
& 302.4518_wp, 179.4553_wp, 159.0980_wp, 140.3518_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 535.9706_wp, 307.2540_wp, 271.8226_wp, 237.3961_wp, 0.0000_wp, &
& 482.2990_wp, 278.4173_wp, 246.4539_wp, 215.7066_wp, 0.0000_wp, &
& 366.7236_wp, 216.8393_wp, 192.2755_wp, 169.4903_wp, 0.0000_wp, &
& 276.8948_wp, 168.8027_wp, 149.9951_wp, 133.3820_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 405.9907_wp, 241.9159_wp, 214.5726_wp, 189.5488_wp, 0.0000_wp, &
& 373.0125_wp, 223.5548_wp, 198.4174_wp, 175.5963_wp, 0.0000_wp, &
& 344.9479_wp, 207.9084_wp, 184.6285_wp, 163.6721_wp, 0.0000_wp, &
& 337.4624_wp, 202.6388_wp, 179.9690_wp, 159.4063_wp, 0.0000_wp, &
& 270.0881_wp, 166.5674_wp, 148.2259_wp, 132.2884_wp, 0.0000_wp, &
& 305.9256_wp, 188.4852_wp, 167.7356_wp, 149.6709_wp, 0.0000_wp, &
& 296.5789_wp, 182.9511_wp, 162.8541_wp, 145.3801_wp, 0.0000_wp, &
& 293.1661_wp, 180.4846_wp, 160.6578_wp, 143.3518_wp, 0.0000_wp, &
& 269.4807_wp, 167.3765_wp, 149.1158_wp, 133.3956_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 248.2116_wp, 156.3423_wp, 139.5430_wp, 125.3725_wp, 0.0000_wp, &
& 245.5988_wp, 154.6243_wp, 138.0159_wp, 123.9905_wp, 0.0000_wp, &
& 240.5175_wp, 151.4983_wp, 135.2456_wp, 121.5256_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 198.3570_wp, 127.6513_wp, 114.3091_wp, 103.3931_wp, 0.0000_wp, &
& 196.3755_wp, 126.3319_wp, 113.1318_wp, 102.3223_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 159.1957_wp, 104.4091_wp, 93.8084_wp, 85.3616_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1382.9771_wp, 710.1818_wp, 628.1238_wp, 531.3044_wp, 0.0000_wp, &
& 423.3809_wp, 245.0188_wp, 217.5967_wp, 190.9521_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1081.7690_wp, 585.9578_wp, 517.8769_wp, 445.0681_wp, 0.0000_wp, &
& 862.5036_wp, 468.6899_wp, 414.8338_wp, 357.0721_wp, 0.0000_wp, &
& 423.9523_wp, 251.5841_wp, 223.4273_wp, 197.3201_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 882.4503_wp, 484.0723_wp, 427.8866_wp, 369.0835_wp, 0.0000_wp, &
& 411.0572_wp, 245.0035_wp, 217.6909_wp, 192.5221_wp, 0.0000_wp, &
& 401.1295_wp, 241.6833_wp, 214.8399_wp, 190.5518_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 841.8335_wp, 467.3984_wp, 413.4479_wp, 357.9783_wp, 0.0000_wp, &
& 396.2748_wp, 236.5325_wp, 210.2464_wp, 186.0369_wp, 0.0000_wp, &
& 405.5809_wp, 244.6571_wp, 217.5178_wp, 193.0012_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 765.3178_wp, 427.9936_wp, 378.7327_wp, 328.6407_wp, 0.0000_wp, &
& 388.5729_wp, 231.8180_wp, 206.0757_wp, 182.3353_wp, 0.0000_wp, &
& 371.5149_wp, 223.9437_wp, 199.2038_wp, 176.7692_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 601.4178_wp, 337.1436_wp, 298.7169_wp, 259.5722_wp, 0.0000_wp, &
& 386.4486_wp, 229.7022_wp, 204.1750_wp, 180.4774_wp, 0.0000_wp, &
& 272.6301_wp, 168.5969_wp, 150.4863_wp, 134.6287_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 651.9688_wp, 368.4719_wp, 326.2603_wp, 284.0167_wp, 0.0000_wp, &
& 349.1941_wp, 211.3025_wp, 187.9564_wp, 166.9417_wp, 0.0000_wp, &
& 229.5077_wp, 144.2159_wp, 128.9628_wp, 115.9223_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 509.7764_wp, 289.1937_wp, 256.4238_wp, 223.6354_wp, 0.0000_wp, &
& 321.3448_wp, 195.5430_wp, 174.0536_wp, 154.8608_wp, 0.0000_wp, &
& 225.7346_wp, 141.5815_wp, 126.5885_wp, 113.7287_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 532.7794_wp, 306.4968_wp, 271.6288_wp, 237.6994_wp, 0.0000_wp, &
& 306.4968_wp, 186.5462_wp, 166.0911_wp, 147.8057_wp, 0.0000_wp, &
& 271.6288_wp, 166.0911_wp, 148.0657_wp, 132.0085_wp, 0.0000_wp, &
& 237.6994_wp, 147.8057_wp, 132.0085_wp, 118.2863_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 37.1596_wp, 22.6822_wp, 19.4648_wp, 20.1853_wp, 0.0000_wp, &
& 62.2532_wp, 36.5901_wp, 31.0981_wp, 32.5149_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 23.0792_wp, 14.9833_wp, 13.0979_wp, 13.4305_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 381:475) = reshape([ &
& 738.8580_wp, 355.9606_wp, 291.0488_wp, 320.6585_wp, 0.0000_wp, &
& 221.1739_wp, 119.0725_wp, 99.3454_wp, 106.1545_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.9140_wp, 204.9086_wp, 170.5936_wp, 182.6955_wp, 0.0000_wp, &
& 278.7116_wp, 151.7798_wp, 126.9812_wp, 135.2702_wp, 0.0000_wp, &
& 171.2043_wp, 98.8004_wp, 83.6030_wp, 87.7852_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 242.4174_wp, 137.6254_wp, 116.0923_wp, 122.3915_wp, 0.0000_wp, &
& 201.1351_wp, 115.7000_wp, 97.9268_wp, 102.9220_wp, 0.0000_wp, &
& 166.5614_wp, 97.0816_wp, 82.4474_wp, 86.3895_wp, 0.0000_wp, &
& 122.0144_wp, 73.6865_wp, 63.0740_wp, 65.5618_wp, 0.0000_wp, &
& 114.1506_wp, 69.3194_wp, 59.4247_wp, 61.6974_wp, 0.0000_wp, &
& 155.8507_wp, 92.8107_wp, 79.2056_wp, 82.5930_wp, 0.0000_wp, &
& 146.2711_wp, 87.0432_wp, 74.3149_wp, 77.5124_wp, 0.0000_wp, &
& 116.8072_wp, 70.9444_wp, 60.8678_wp, 63.2092_wp, 0.0000_wp, &
& 109.2305_wp, 66.3897_wp, 57.0046_wp, 59.1980_wp, 0.0000_wp, &
& 86.6601_wp, 54.2397_wp, 46.9071_wp, 48.4149_wp, 0.0000_wp, &
& 104.9834_wp, 64.8519_wp, 55.8954_wp, 57.8469_wp, 0.0000_wp, &
& 97.7761_wp, 60.4608_wp, 52.1532_wp, 53.9690_wp, 0.0000_wp, &
& 91.4295_wp, 56.7868_wp, 49.0511_wp, 50.7198_wp, 0.0000_wp, &
& 80.0853_wp, 50.0218_wp, 43.3096_wp, 44.7442_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 77.4010_wp, 49.0996_wp, 42.6462_wp, 43.9161_wp, 0.0000_wp, &
& 68.9086_wp, 44.0173_wp, 38.3194_wp, 39.4125_wp, 0.0000_wp, &
& 60.2575_wp, 38.8597_wp, 33.9427_wp, 34.8596_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 57.3248_wp, 37.2158_wp, 32.5553_wp, 33.3924_wp, 0.0000_wp, &
& 45.5155_wp, 30.3004_wp, 26.7000_wp, 27.2705_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 43.3129_wp, 28.6554_wp, 25.2210_wp, 25.7940_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 877.9354_wp, 425.6455_wp, 348.5798_wp, 383.3773_wp, 0.0000_wp, &
& 326.8271_wp, 174.2001_wp, 145.1854_wp, 155.5786_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 623.6305_wp, 326.7864_wp, 271.2223_wp, 291.9263_wp, 0.0000_wp, &
& 508.1585_wp, 269.3779_wp, 224.1812_wp, 240.5302_wp, 0.0000_wp, &
& 312.5862_wp, 175.5343_wp, 147.6912_wp, 156.1327_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 556.5389_wp, 300.8271_wp, 251.1877_wp, 268.1207_wp, 0.0000_wp, &
& 500.3525_wp, 272.5409_wp, 227.9565_wp, 242.8419_wp, 0.0000_wp, &
& 379.2280_wp, 212.1194_wp, 178.3984_wp, 188.7699_wp, 0.0000_wp, &
& 285.1174_wp, 164.9924_wp, 139.7108_wp, 146.6121_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 419.3593_wp, 236.5952_wp, 199.2855_wp, 210.4188_wp, 0.0000_wp, &
& 385.0048_wp, 218.6066_wp, 184.4175_wp, 194.4184_wp, 0.0000_wp, &
& 355.7641_wp, 203.2777_wp, 171.7269_wp, 180.7673_wp, 0.0000_wp, &
& 348.2477_wp, 198.1506_wp, 167.3173_wp, 176.3143_wp, 0.0000_wp, &
& 277.6794_wp, 162.7632_wp, 138.2635_wp, 144.6644_wp, 0.0000_wp, &
& 314.5698_wp, 184.1847_wp, 156.4432_wp, 163.7299_wp, 0.0000_wp, &
& 304.9145_wp, 178.7735_wp, 151.9152_wp, 158.9453_wp, 0.0000_wp, &
& 301.4974_wp, 176.3750_wp, 149.8328_wp, 156.8549_wp, 0.0000_wp, &
& 276.7985_wp, 163.5301_wp, 139.2201_wp, 145.4133_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.4683_wp, 152.7036_wp, 130.5102_wp, 135.8470_wp, 0.0000_wp, &
& 251.8097_wp, 151.0286_wp, 129.0763_wp, 134.3737_wp, 0.0000_wp, &
& 246.5864_wp, 147.9753_wp, 126.4947_wp, 131.6741_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 202.7705_wp, 124.6317_wp, 107.1976_wp, 111.0248_wp, 0.0000_wp, &
& 200.7571_wp, 123.3457_wp, 106.0905_wp, 109.8900_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 162.3264_wp, 101.9116_wp, 88.1829_wp, 90.9553_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1458.4501_wp, 697.7650_wp, 570.8659_wp, 630.1412_wp, 0.0000_wp, &
& 439.2845_wp, 239.8849_wp, 201.3799_wp, 214.4961_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1132.1074_wp, 574.7522_wp, 474.8225_wp, 515.5415_wp, 0.0000_wp, &
& 902.6014_wp, 459.6812_wp, 380.4201_wp, 412.6142_wp, 0.0000_wp, &
& 438.2482_wp, 246.1156_wp, 207.4440_wp, 219.3679_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 921.8990_wp, 474.6254_wp, 393.0487_wp, 425.1277_wp, 0.0000_wp, &
& 424.6693_wp, 239.6563_wp, 202.2392_wp, 213.6129_wp, 0.0000_wp, &
& 413.7841_wp, 236.3296_wp, 199.8502_wp, 210.4559_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 878.0939_wp, 458.1136_wp, 380.4377_wp, 410.0129_wp, 0.0000_wp, &
& 409.3555_wp, 231.3631_wp, 195.3516_wp, 206.2651_wp, 0.0000_wp, &
& 418.3113_wp, 239.2323_wp, 202.3746_wp, 213.0501_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 797.5195_wp, 419.4037_wp, 348.8510_wp, 375.1745_wp, 0.0000_wp, &
& 401.4329_wp, 226.7601_wp, 191.4715_wp, 202.2050_wp, 0.0000_wp, &
& 383.2557_wp, 218.9943_wp, 185.3265_wp, 195.1629_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 626.6472_wp, 330.3808_wp, 275.2551_wp, 295.8599_wp, 0.0000_wp, &
& 399.4530_wp, 224.7176_wp, 189.6203_wp, 200.4598_wp, 0.0000_wp, &
& 280.2977_wp, 164.7847_wp, 140.4748_wp, 146.9885_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 678.4531_wp, 360.9692_wp, 300.9640_wp, 322.6845_wp, 0.0000_wp, &
& 360.0172_wp, 206.6126_wp, 174.9529_wp, 184.0478_wp, 0.0000_wp, &
& 235.4499_wp, 140.9080_wp, 120.6249_wp, 125.7205_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.3221_wp, 283.3011_wp, 236.6842_wp, 253.5365_wp, 0.0000_wp, &
& 331.0614_wp, 191.1798_wp, 162.1293_wp, 170.3117_wp, 0.0000_wp, &
& 231.6422_wp, 138.3424_wp, 118.3800_wp, 123.4417_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 553.0834_wp, 300.1055_wp, 251.1837_wp, 267.9482_wp, 0.0000_wp, &
& 315.7713_wp, 182.3876_wp, 154.7198_wp, 162.5286_wp, 0.0000_wp, &
& 279.7052_wp, 162.3831_wp, 138.0223_wp, 144.8424_wp, 0.0000_wp, &
& 244.2053_wp, 144.4518_wp, 123.3171_wp, 128.8641_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 574.7436_wp, 309.2543_wp, 258.3888_wp, 276.2327_wp, 0.0000_wp, &
& 309.2543_wp, 178.3311_wp, 151.2409_wp, 158.9405_wp, 0.0000_wp, &
& 258.3888_wp, 151.2409_wp, 128.7820_wp, 134.8933_wp, 0.0000_wp, &
& 276.2327_wp, 158.9405_wp, 134.8933_wp, 141.8763_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 28.5940_wp, 22.1550_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 47.6499_wp, 35.9871_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 18.0216_wp, 14.5147_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 569.4526_wp, 367.4308_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 168.8075_wp, 119.4397_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 292.7955_wp, 205.9313_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.9797_wp, 151.8426_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 130.8012_wp, 97.5340_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 185.1741_wp, 136.3705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 153.8824_wp, 114.3466_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 127.6686_wp, 95.7007_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.7660_wp, 72.1216_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 87.8052_wp, 67.7835_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 119.6350_wp, 91.1025_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 112.3914_wp, 85.4731_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 89.9515_wp, 69.4058_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 84.2028_wp, 64.9641_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 67.0823_wp, 52.7984_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 81.0855_wp, 63.2709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 75.5987_wp, 58.9903_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.7639_wp, 55.3789_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 62.1299_wp, 48.7630_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 60.1335_wp, 47.7239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 53.6420_wp, 42.7458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 47.0585_wp, 37.7083_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 44.8098_wp, 36.0749_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.8100_wp, 29.2808_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 34.0544_wp, 27.7282_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 676.4773_wp, 438.7198_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.8197_wp, 175.2531_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 476.2426_wp, 330.0018_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 388.4209_wp, 271.2755_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 238.5370_wp, 174.3619_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 424.7723_wp, 301.4650_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 381.9923_wp, 272.6384_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 289.6824_wp, 210.9019_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 217.8958_wp, 162.8021_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 320.1913_wp, 234.7548_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.1406_wp, 216.6154_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 271.8911_wp, 201.1573_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 266.3120_wp, 196.2996_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.5281_wp, 160.1946_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 240.7974_wp, 181.3267_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 233.4898_wp, 175.9628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 230.9091_wp, 173.7006_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.1340_wp, 160.7225_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 195.4075_wp, 149.6421_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 193.3865_wp, 148.0244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 189.4122_wp, 145.0250_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 156.3161_wp, 121.6329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 154.7756_wp, 120.3927_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 125.6776_wp, 99.1398_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1129.9518_wp, 722.0002_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 337.1117_wp, 240.1791_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 868.3674_wp, 585.3704_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 694.5058_wp, 467.9156_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 335.3592_wp, 244.6716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 706.0720_wp, 481.6472_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.0850_wp, 238.0128_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 316.7102_wp, 234.0374_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 672.4128_wp, 463.3924_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 313.6026_wp, 229.7226_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 320.2198_wp, 236.8532_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 610.5700_wp, 423.4193_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 307.5763_wp, 225.2020_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.6816_wp, 216.9203_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 480.6938_wp, 333.5014_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 306.1181_wp, 223.4009_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 215.5023_wp, 162.3545_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 519.3078_wp, 363.4171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 275.7206_wp, 204.4480_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 181.3482_wp, 138.3572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 406.7268_wp, 285.1018_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 253.7038_wp, 188.9445_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 178.3924_wp, 135.9019_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 423.0877_wp, 300.7356_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 242.1030_wp, 180.2719_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 214.8093_wp, 160.4015_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 187.8440_wp, 142.1634_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 439.6365_wp, 310.5133_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 237.1200_wp, 176.3358_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 198.5202_wp, 149.1479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.1434_wp, 157.3396_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 337.1808_wp, 238.1207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 238.1207_wp, 174.9969_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.8689_wp, 21.2139_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 49.3469_wp, 34.0312_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 18.9695_wp, 14.1185_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.9160_wp, 317.8826_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.4949_wp, 109.0127_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.3106_wp, 187.3012_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 214.4256_wp, 139.2420_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 134.7933_wp, 91.6227_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 189.6293_wp, 127.2488_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 158.0848_wp, 107.2026_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 131.5252_wp, 90.1351_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 97.6845_wp, 68.8077_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.5728_wp, 64.7798_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.1032_wp, 86.4709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 116.3987_wp, 81.0686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.6870_wp, 66.2838_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 87.6124_wp, 62.0228_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.2820_wp, 50.8856_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 84.7311_wp, 60.7331_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 78.9183_wp, 56.6140_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 73.9210_wp, 53.2070_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 64.8633_wp, 46.8911_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 63.0774_wp, 46.1355_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 56.2884_wp, 41.3862_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 49.3897_wp, 36.5764_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 47.1122_wp, 35.0629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 37.7559_wp, 28.6291_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.8427_wp, 27.0524_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 644.3408_wp, 380.6568_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.3925_wp, 159.1228_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 472.9143_wp, 297.5440_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 386.8884_wp, 245.8054_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.5663_wp, 162.0032_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 427.1610_wp, 275.6299_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 385.1449_wp, 250.0730_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.9017_wp, 195.5973_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 224.7197_wp, 153.0776_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.2810_wp, 218.5282_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 301.1709_wp, 202.1306_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 278.9696_wp, 188.1613_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 272.5606_wp, 183.2556_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 219.8870_wp, 151.3141_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 248.9743_wp, 171.1889_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 241.4380_wp, 166.1887_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 238.5063_wp, 163.8884_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 219.8016_wp, 152.2000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 203.2427_wp, 142.4591_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 201.0704_wp, 140.8804_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 196.9331_wp, 138.0396_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 163.3848_wp, 116.6637_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 161.7337_wp, 115.4501_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 131.8119_wp, 95.6586_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1062.5928_wp, 621.4841_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 337.8986_wp, 219.9852_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 846.8527_wp, 519.5182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 675.0299_wp, 415.5638_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 341.1923_wp, 227.0118_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 693.6787_wp, 430.3675_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 331.2310_wp, 221.2467_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 324.2891_wp, 218.6603_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 664.1009_wp, 416.5328_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 319.3834_wp, 213.6191_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 328.0001_wp, 221.3943_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 605.0623_wp, 381.9629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 313.1286_wp, 209.3428_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 300.3130_wp, 202.5980_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 475.5594_wp, 300.9323_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 311.0603_wp, 207.2926_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 221.9656_wp, 153.1295_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.0910_wp, 329.5196_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 282.6667_wp, 191.3125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 187.7214_wp, 131.3100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 404.5558_wp, 258.7290_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 260.5341_wp, 177.2034_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 184.5403_wp, 128.8760_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 424.8790_wp, 275.0381_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 248.4855_wp, 169.0461_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 220.4525_wp, 150.5946_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 193.8570_wp, 134.3706_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.0900_wp, 282.9656_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.1960_wp, 165.2361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 204.3119_wp, 140.4552_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 216.9447_wp, 147.1597_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 336.6493_wp, 216.9570_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 242.6893_wp, 162.9236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 340.5213_wp, 223.6622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 223.6622_wp, 153.4528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.1697_wp, 33.2515_wp, 26.9562_wp, 22.5390_wp, 0.0000_wp, &
& 58.4207_wp, 54.9919_wp, 43.8881_wp, 36.1447_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 22.0458_wp, 20.9874_wp, 17.4392_wp, 14.9296_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 656.7441_wp, 602.8104_wp, 441.4888_wp, 332.3464_wp, 0.0000_wp, &
& 202.6900_wp, 188.7622_wp, 145.1043_wp, 115.1284_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 351.1141_wp, 326.6672_wp, 250.1889_wp, 197.7454_wp, 0.0000_wp, &
& 256.2049_wp, 238.9068_wp, 184.5744_wp, 147.1923_wp, 0.0000_wp, &
& 159.9273_wp, 150.2148_wp, 118.9619_wp, 97.2346_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 225.3933_wp, 211.2756_wp, 166.1525_wp, 134.8856_wp, 0.0000_wp, &
& 187.5797_wp, 176.0976_wp, 139.2546_wp, 113.6748_wp, 0.0000_wp, &
& 155.8080_wp, 146.4890_wp, 116.4830_wp, 95.6039_wp, 0.0000_wp, &
& 115.1706_wp, 108.7508_wp, 87.7688_wp, 73.0754_wp, 0.0000_wp, &
& 107.8705_wp, 101.9223_wp, 82.4447_wp, 68.7935_wp, 0.0000_wp, &
& 146.5544_wp, 138.1497_wp, 110.8384_wp, 91.7661_wp, 0.0000_wp, &
& 137.4723_wp, 129.5670_wp, 103.9180_wp, 86.0172_wp, 0.0000_wp, &
& 110.2770_wp, 104.1881_wp, 84.2691_wp, 70.3184_wp, 0.0000_wp, &
& 103.0738_wp, 97.3838_wp, 78.7812_wp, 65.7584_wp, 0.0000_wp, &
& 82.3248_wp, 78.0505_wp, 63.9117_wp, 53.9617_wp, 0.0000_wp, &
& 99.4407_wp, 94.1329_wp, 76.6641_wp, 64.3977_wp, 0.0000_wp, &
& 92.6025_wp, 87.6645_wp, 71.4234_wp, 60.0229_wp, 0.0000_wp, &
& 86.6194_wp, 82.0402_wp, 66.9550_wp, 56.3612_wp, 0.0000_wp, &
& 75.8800_wp, 71.9079_wp, 58.8126_wp, 49.6159_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 73.6253_wp, 69.9039_wp, 57.5425_wp, 48.8310_wp, 0.0000_wp, &
& 65.6214_wp, 62.3522_wp, 51.4705_wp, 43.7962_wp, 0.0000_wp, &
& 57.4016_wp, 54.5964_wp, 45.2336_wp, 38.6263_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 54.6782_wp, 52.0476_wp, 43.2385_wp, 37.0129_wp, 0.0000_wp, &
& 43.5685_wp, 41.5909_wp, 34.9008_wp, 30.1557_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 41.3681_wp, 39.4587_wp, 33.0228_wp, 28.4654_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 476:570) = reshape([ &
& 781.3524_wp, 717.7531_wp, 527.0671_wp, 398.0180_wp, 0.0000_wp, &
& 298.4007_wp, 277.5143_wp, 212.3618_wp, 167.7278_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 567.1638_wp, 526.4236_wp, 399.9263_wp, 313.4658_wp, 0.0000_wp, &
& 463.5691_wp, 430.8297_wp, 328.9697_wp, 259.2061_wp, 0.0000_wp, &
& 289.7425_wp, 271.2420_wp, 212.3044_wp, 171.5385_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 510.5854_wp, 475.7318_wp, 366.3371_wp, 291.1704_wp, 0.0000_wp, &
& 459.9544_wp, 428.9521_wp, 331.4055_wp, 264.2993_wp, 0.0000_wp, &
& 351.1192_wp, 328.5100_wp, 256.7121_wp, 207.0871_wp, 0.0000_wp, &
& 266.4534_wp, 250.3494_wp, 198.4813_wp, 162.4065_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.2656_wp, 364.6110_wp, 285.9761_wp, 231.5432_wp, 0.0000_wp, &
& 357.9411_wp, 335.5206_wp, 263.8740_wp, 214.2270_wp, 0.0000_wp, &
& 331.2849_wp, 310.7704_wp, 245.0585_wp, 199.4760_wp, 0.0000_wp, &
& 323.8179_wp, 303.5907_wp, 238.9624_wp, 194.1778_wp, 0.0000_wp, &
& 260.3091_wp, 244.9446_wp, 195.2461_wp, 160.6091_wp, 0.0000_wp, &
& 294.7925_wp, 277.3523_wp, 220.9763_wp, 181.6981_wp, 0.0000_wp, &
& 285.8072_wp, 268.9370_wp, 214.3903_wp, 176.3816_wp, 0.0000_wp, &
& 282.3871_wp, 265.6407_wp, 211.5571_wp, 173.8931_wp, 0.0000_wp, &
& 259.9184_wp, 244.7964_wp, 195.7667_wp, 161.5591_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 239.8183_wp, 226.2796_wp, 182.1380_wp, 151.2611_wp, 0.0000_wp, &
& 237.2563_wp, 223.8453_wp, 180.1361_wp, 149.5674_wp, 0.0000_wp, &
& 232.3409_wp, 219.2194_wp, 176.4499_wp, 146.5382_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 192.0578_wp, 181.7178_wp, 147.7169_wp, 123.8442_wp, 0.0000_wp, &
& 190.1139_wp, 179.8683_wp, 146.1873_wp, 122.5429_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 154.3423_wp, 146.3855_wp, 120.0234_wp, 101.4572_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1292.8121_wp, 1184.8327_wp, 865.1066_wp, 648.6879_wp, 0.0000_wp, &
& 403.0745_wp, 375.8495_wp, 290.5739_wp, 231.9989_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1019.8835_wp, 942.5828_wp, 706.2041_wp, 545.4548_wp, 0.0000_wp, &
& 813.4943_wp, 751.8144_wp, 564.1147_wp, 436.2844_wp, 0.0000_wp, &
& 405.6488_wp, 379.6650_wp, 297.1084_wp, 240.0800_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 833.7424_wp, 771.9763_wp, 581.9150_wp, 452.4148_wp, 0.0000_wp, &
& 393.5300_wp, 368.5417_wp, 288.9924_wp, 234.0165_wp, 0.0000_wp, &
& 384.8172_wp, 360.9196_wp, 284.4870_wp, 231.5184_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 796.8617_wp, 739.0281_wp, 560.2945_wp, 438.2812_wp, 0.0000_wp, &
& 379.4109_wp, 355.3498_wp, 278.8293_wp, 225.9136_wp, 0.0000_wp, &
& 389.1325_wp, 365.0239_wp, 287.8797_wp, 234.4093_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 725.2514_wp, 673.2823_wp, 512.2075_wp, 402.1202_wp, 0.0000_wp, &
& 371.9427_wp, 348.3293_wp, 273.2440_wp, 221.3382_wp, 0.0000_wp, &
& 356.2469_wp, 334.1078_wp, 263.3800_wp, 214.3808_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 569.7645_wp, 529.0006_wp, 402.8309_wp, 316.6134_wp, 0.0000_wp, &
& 369.6302_wp, 345.9796_wp, 270.9168_wp, 219.0704_wp, 0.0000_wp, &
& 262.1530_wp, 246.6796_wp, 196.7704_wp, 162.0547_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 618.8387_wp, 575.3229_wp, 439.8829_wp, 347.1545_wp, 0.0000_wp, &
& 335.0615_wp, 314.4244_wp, 248.3153_wp, 202.4740_wp, 0.0000_wp, &
& 221.1217_wp, 208.5110_wp, 167.5629_wp, 138.9928_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 483.7815_wp, 449.9040_wp, 344.5352_wp, 272.3998_wp, 0.0000_wp, &
& 308.5529_wp, 289.7588_wp, 229.4318_wp, 187.5580_wp, 0.0000_wp, &
& 217.4040_wp, 204.9523_wp, 164.5553_wp, 136.3818_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 507.1316_wp, 472.6401_wp, 364.4340_wp, 290.1268_wp, 0.0000_wp, &
& 294.2408_wp, 276.3130_wp, 218.7964_wp, 178.8774_wp, 0.0000_wp, &
& 260.7548_wp, 244.9914_wp, 194.3868_wp, 159.2584_wp, 0.0000_wp, &
& 228.6785_wp, 215.3374_wp, 172.2004_wp, 142.1634_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 525.8162_wp, 489.5499_wp, 376.1112_wp, 298.3141_wp, 0.0000_wp, &
& 288.0073_wp, 270.4023_wp, 213.9621_wp, 174.8058_wp, 0.0000_wp, &
& 241.3636_wp, 227.0001_wp, 180.7289_wp, 148.5642_wp, 0.0000_wp, &
& 256.7960_wp, 241.0016_wp, 190.4799_wp, 155.4813_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 401.9613_wp, 374.2537_wp, 287.7668_wp, 228.4811_wp, 0.0000_wp, &
& 287.8520_wp, 269.7344_wp, 212.0275_wp, 172.1215_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 405.4565_wp, 378.7329_wp, 294.3129_wp, 236.1661_wp, 0.0000_wp, &
& 264.4724_wp, 248.7003_wp, 197.8459_wp, 162.4735_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 483.7516_wp, 451.4003_wp, 349.5389_wp, 279.4346_wp, 0.0000_wp, &
& 451.4003_wp, 421.6497_wp, 327.6772_wp, 262.9134_wp, 0.0000_wp, &
& 349.5389_wp, 327.6772_wp, 257.8727_wp, 209.5130_wp, 0.0000_wp, &
& 279.4346_wp, 262.9134_wp, 209.5130_wp, 172.3153_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 31.8170_wp, 29.9527_wp, 28.6359_wp, 25.9255_wp, 23.1784_wp, &
& 51.9905_wp, 48.7247_wp, 46.4409_wp, 41.7323_wp, 36.9664_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 20.4318_wp, 19.3761_wp, 18.6186_wp, 17.0614_wp, 15.4801_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 527.9268_wp, 484.0165_wp, 454.1125_wp, 392.4109_wp, 330.5666_wp, &
& 172.9425_wp, 160.4502_wp, 151.8759_wp, 134.1408_wp, 116.2577_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 298.4220_wp, 276.5717_wp, 261.6034_wp, 230.6287_wp, 199.4034_wp, &
& 219.7375_wp, 204.1690_wp, 193.4457_wp, 171.2891_wp, 148.9411_wp, &
& 141.1489_wp, 131.9934_wp, 125.6209_wp, 112.4708_wp, 99.1700_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 197.3448_wp, 184.2055_wp, 175.0938_wp, 156.2783_wp, 137.2617_wp, &
& 165.1930_wp, 154.4409_wp, 146.9606_wp, 131.5234_wp, 115.9145_wp, &
& 137.9956_wp, 129.2227_wp, 123.0969_wp, 110.4653_wp, 97.6880_wp, &
& 103.6947_wp, 97.4953_wp, 93.1301_wp, 84.1398_wp, 75.0316_wp, &
& 97.3490_wp, 91.5895_wp, 87.5282_wp, 79.1656_wp, 70.6917_wp, &
& 131.0954_wp, 123.0574_wp, 117.4198_wp, 105.8004_wp, 94.0357_wp, &
& 122.8805_wp, 115.3488_wp, 110.0651_wp, 99.1763_wp, 88.1532_wp, &
& 99.4698_wp, 93.5893_wp, 89.4448_wp, 80.9084_wp, 72.2595_wp, &
& 92.9621_wp, 87.4781_wp, 83.6131_wp, 75.6514_wp, 67.5854_wp, &
& 75.2076_wp, 71.0143_wp, 68.0343_wp, 61.9038_wp, 55.6857_wp, &
& 90.3328_wp, 85.1621_wp, 81.5019_wp, 73.9675_wp, 66.3293_wp, &
& 84.1276_wp, 79.3278_wp, 75.9287_wp, 68.9323_wp, 61.8399_wp, &
& 78.8235_wp, 74.3627_wp, 71.2017_wp, 64.6946_wp, 58.0974_wp, &
& 69.1710_wp, 65.3041_wp, 62.5609_wp, 56.9134_wp, 51.1874_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 67.5932_wp, 63.9245_wp, 61.3099_wp, 55.9314_wp, 50.4741_wp, &
& 60.4041_wp, 57.1752_wp, 54.8693_wp, 50.1269_wp, 45.3141_wp, &
& 53.0110_wp, 50.2343_wp, 48.2476_wp, 44.1611_wp, 40.0132_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.6412_wp, 48.0233_wp, 46.1468_wp, 42.2879_wp, 38.3697_wp, &
& 40.7500_wp, 38.7583_wp, 37.3202_wp, 34.3642_wp, 31.3603_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 38.5746_wp, 36.6615_wp, 35.2842_wp, 32.4515_wp, 29.5740_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 630.1041_wp, 578.0882_wp, 542.6657_wp, 469.5496_wp, 396.2431_wp, &
& 253.1433_wp, 234.6048_wp, 221.9031_wp, 195.6231_wp, 169.1405_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 477.3744_wp, 441.5239_wp, 417.0307_wp, 366.3319_wp, 315.2720_wp, &
& 392.2533_wp, 363.3320_wp, 343.5106_wp, 302.5213_wp, 261.2272_wp, &
& 252.3964_wp, 235.2670_wp, 223.4249_wp, 198.9542_wp, 174.2312_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 436.5060_wp, 405.1611_wp, 383.6305_wp, 339.1034_wp, 294.1970_wp, &
& 394.6650_wp, 366.6561_wp, 347.3879_wp, 307.5504_wp, 267.3616_wp, &
& 305.1643_wp, 284.3739_wp, 269.9943_wp, 240.2935_wp, 210.2972_wp, &
& 235.4382_wp, 220.2317_wp, 209.6430_wp, 187.7933_wp, 165.6908_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 339.8328_wp, 316.9700_wp, 301.1380_wp, 268.4370_wp, 235.3944_wp, &
& 313.3911_wp, 292.5335_wp, 278.0671_wp, 248.1965_wp, 218.0074_wp, &
& 290.9092_wp, 271.7438_wp, 258.4338_wp, 230.9563_wp, 203.1783_wp, &
& 283.6909_wp, 264.8945_wp, 251.8482_wp, 224.9146_wp, 197.6946_wp, &
& 231.3302_wp, 216.7246_wp, 206.5206_wp, 185.4774_wp, 164.1811_wp, &
& 261.8235_wp, 245.2683_wp, 233.7044_wp, 209.8561_wp, 185.7226_wp, &
& 253.9744_wp, 237.9580_wp, 226.7660_wp, 203.6865_wp, 180.3305_wp, &
& 250.6401_wp, 234.7785_wp, 223.7008_wp, 200.8543_wp, 177.7373_wp, &
& 231.7564_wp, 217.3350_wp, 207.2390_wp, 186.4258_wp, 165.3571_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 215.3101_wp, 202.2863_wp, 193.1315_wp, 174.2716_wp, 155.1691_wp, &
& 212.9437_wp, 200.0526_wp, 190.9927_wp, 172.3272_wp, 153.4225_wp, &
& 208.5685_wp, 195.9558_wp, 187.0906_wp, 168.8263_wp, 150.3278_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 174.1969_wp, 164.1266_wp, 157.0031_wp, 142.3413_wp, 127.4785_wp, &
& 172.3933_wp, 162.4206_wp, 155.3672_wp, 140.8492_wp, 126.1326_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 141.2063_wp, 133.3794_wp, 127.8113_wp, 116.3589_wp, 104.7412_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1032.6651_wp, 946.5756_wp, 887.7075_wp, 766.5714_wp, 645.2973_wp, &
& 345.4434_wp, 321.1574_wp, 304.4222_wp, 269.8403_wp, 234.9742_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 843.3644_wp, 777.5361_wp, 732.6433_wp, 639.8000_wp, 546.4784_wp, &
& 672.6917_wp, 620.6735_wp, 585.0515_wp, 511.5374_wp, 437.6779_wp, &
& 352.9336_wp, 329.0554_wp, 312.5424_wp, 278.4205_wp, 243.9590_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 694.7024_wp, 641.4064_wp, 605.0343_wp, 529.7799_wp, 454.0771_wp, &
& 343.1679_wp, 320.1342_wp, 304.1902_wp, 271.2475_wp, 237.9706_wp, &
& 337.5761_wp, 315.3367_wp, 299.9014_wp, 268.0269_wp, 235.8103_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 668.3786_wp, 618.0401_wp, 583.6237_wp, 512.4274_wp, 440.7662_wp, &
& 330.9710_wp, 308.8304_wp, 293.4899_wp, 261.8074_wp, 229.8053_wp, &
& 341.5627_wp, 319.1099_wp, 303.5228_wp, 271.3354_wp, 238.8007_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 610.7639_wp, 565.2639_wp, 534.1256_wp, 469.7122_wp, 404.8543_wp, &
& 324.3435_wp, 302.6272_wp, 287.5851_wp, 256.5149_wp, 225.1326_wp, &
& 312.4130_wp, 291.8713_wp, 277.6090_wp, 248.1606_wp, 218.4003_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 479.9639_wp, 444.4196_wp, 420.0642_wp, 369.7049_wp, 319.0075_wp, &
& 321.6404_wp, 299.9706_wp, 284.9729_wp, 253.9905_wp, 222.7038_wp, &
& 232.7992_wp, 218.2207_wp, 208.0381_wp, 187.0285_wp, 165.7746_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 524.1848_wp, 485.7648_wp, 459.4314_wp, 404.9622_wp, 350.0882_wp, &
& 294.5184_wp, 275.2607_wp, 261.8866_wp, 234.2680_wp, 206.3483_wp, &
& 197.9394_wp, 185.9246_wp, 177.4973_wp, 160.1207_wp, 142.5295_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 410.2106_wp, 380.3853_wp, 359.9172_wp, 317.5943_wp, 274.9614_wp, &
& 271.9711_wp, 254.3735_wp, 242.1349_wp, 216.8675_wp, 191.3189_wp, &
& 194.4157_wp, 182.5691_wp, 174.2654_wp, 157.1410_wp, 139.8068_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 433.8508_wp, 402.9146_wp, 381.6588_wp, 337.6931_wp, 293.3577_wp, &
& 259.3224_wp, 242.5572_wp, 230.8956_wp, 206.8210_wp, 182.4798_wp, &
& 230.2133_wp, 215.4752_wp, 205.2122_wp, 184.0272_wp, 162.6068_wp, &
& 203.6278_wp, 191.0014_wp, 182.1731_wp, 163.9594_wp, 145.5291_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 447.9868_wp, 415.6439_wp, 393.4530_wp, 347.5445_wp, 301.2669_wp, &
& 253.6134_wp, 237.1737_wp, 225.7435_wp, 202.1442_wp, 178.2858_wp, &
& 213.9134_wp, 200.4003_wp, 190.9759_wp, 171.5246_wp, 151.8497_wp, &
& 225.7080_wp, 211.0440_wp, 200.8574_wp, 179.8178_wp, 158.5536_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 342.4261_wp, 317.8624_wp, 300.9874_wp, 266.0920_wp, 230.9258_wp, &
& 251.5386_wp, 234.8327_wp, 223.2574_wp, 199.3430_wp, 175.1844_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 349.9885_wp, 325.6928_wp, 308.9517_wp, 274.3339_wp, 239.3959_wp, &
& 234.3407_wp, 219.4508_wp, 209.0707_wp, 187.6481_wp, 165.9764_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 415.9530_wp, 386.7129_wp, 366.5742_wp, 324.9456_wp, 282.9469_wp, &
& 389.7370_wp, 362.6832_wp, 344.0232_wp, 305.4579_wp, 266.5350_wp, &
& 306.0934_wp, 285.8049_wp, 271.7272_wp, 242.6615_wp, 213.2887_wp, &
& 248.1866_wp, 232.5085_wp, 221.5612_wp, 198.9801_wp, 176.1294_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 363.5474_wp, 339.2404_wp, 322.3974_wp, 287.6103_wp, 252.4591_wp, &
& 339.2404_wp, 316.8521_wp, 301.3102_wp, 269.2215_wp, 236.7867_wp, &
& 322.3974_wp, 301.3102_wp, 286.6545_wp, 256.4009_wp, 225.8139_wp, &
& 287.6103_wp, 269.2215_wp, 256.4009_wp, 229.9498_wp, 203.1922_wp, &
& 252.4591_wp, 236.7867_wp, 225.8139_wp, 203.1922_wp, 180.2912_wp, &
& 27.7884_wp, 27.3574_wp, 26.7042_wp, 25.8144_wp, 0.0000_wp, &
& 44.6512_wp, 43.9067_wp, 42.7789_wp, 41.2434_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 18.3284_wp, 18.0816_wp, 17.7051_wp, 17.1900_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 415.1532_wp, 406.3427_wp, 392.4365_wp, 373.0901_wp, 0.0000_wp, &
& 142.8471_wp, 140.1353_wp, 135.9832_wp, 130.3034_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 245.4831_wp, 240.7559_wp, 233.5151_wp, 223.6099_wp, 0.0000_wp, &
& 182.5338_wp, 179.1390_wp, 173.9415_wp, 166.8295_wp, 0.0000_wp, &
& 120.2224_wp, 118.1520_wp, 115.0137_wp, 110.7405_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 166.9060_wp, 163.9655_wp, 159.4969_wp, 153.4055_wp, 0.0000_wp, &
& 140.5625_wp, 138.1446_wp, 134.4704_wp, 129.4615_wp, 0.0000_wp, &
& 118.1354_wp, 116.1535_wp, 113.1412_wp, 109.0331_wp, 0.0000_wp, &
& 90.1373_wp, 88.7108_wp, 86.5486_wp, 83.6036_wp, 0.0000_wp, &
& 84.8298_wp, 83.5023_wp, 81.4896_wp, 78.7478_wp, 0.0000_wp, &
& 113.2616_wp, 111.4257_wp, 108.6407_wp, 104.8462_wp, 0.0000_wp, &
& 106.1686_wp, 104.4532_wp, 101.8469_wp, 98.2930_wp, 0.0000_wp, &
& 86.6895_wp, 85.3379_wp, 83.2865_wp, 80.4902_wp, 0.0000_wp, &
& 81.0563_wp, 79.7986_wp, 77.8874_wp, 75.2808_wp, 0.0000_wp, &
& 66.4147_wp, 65.4414_wp, 63.9621_wp, 61.9438_wp, 0.0000_wp, &
& 79.3086_wp, 78.1138_wp, 76.2992_wp, 73.8246_wp, 0.0000_wp, &
& 73.9142_wp, 72.8073_wp, 71.1238_wp, 68.8264_wp, 0.0000_wp, &
& 69.3770_wp, 68.3477_wp, 66.7818_wp, 64.6446_wp, 0.0000_wp, &
& 61.0425_wp, 60.1519_wp, 58.7945_wp, 56.9398_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 60.0289_wp, 59.1764_wp, 57.8784_wp, 56.1057_wp, 0.0000_wp, &
& 53.8153_wp, 53.0645_wp, 51.9199_wp, 50.3555_wp, 0.0000_wp, &
& 47.4202_wp, 46.7753_wp, 45.7899_wp, 44.4417_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 45.4180_wp, 44.8079_wp, 43.8762_wp, 42.6013_wp, 0.0000_wp, &
& 36.9389_wp, 36.4728_wp, 35.7582_wp, 34.7785_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 34.8686_wp, 34.4226_wp, 33.7391_wp, 32.8021_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 496.9338_wp, 486.4638_wp, 469.9596_wp, 447.0179_wp, 0.0000_wp, &
& 208.1802_wp, 204.1937_wp, 198.0692_wp, 189.6770_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.4927_wp, 381.8396_wp, 370.0638_wp, 353.9178_wp, 0.0000_wp, &
& 321.8732_wp, 315.6688_wp, 306.1275_wp, 293.0440_wp, 0.0000_wp, &
& 212.3392_wp, 208.5236_wp, 202.7244_wp, 194.8198_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 361.1913_wp, 354.3706_wp, 343.9343_wp, 329.6624_wp, 0.0000_wp, &
& 327.7229_wp, 321.6043_wp, 312.2501_wp, 299.4628_wp, 0.0000_wp, &
& 256.4231_wp, 251.8127_wp, 244.7896_wp, 235.2041_wp, 0.0000_wp, &
& 200.7514_wp, 197.3088_wp, 192.0916_wp, 184.9886_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 286.5909_wp, 281.4893_wp, 273.7334_wp, 263.1595_wp, 0.0000_wp, &
& 265.0711_wp, 260.4044_wp, 253.3112_wp, 243.6410_wp, 0.0000_wp, &
& 246.7379_wp, 242.4359_wp, 235.9012_wp, 226.9949_wp, 0.0000_wp, &
& 240.2303_wp, 236.0287_wp, 229.6362_wp, 220.9165_wp, 0.0000_wp, &
& 198.4079_wp, 195.0844_wp, 190.0483_wp, 183.1915_wp, 0.0000_wp, &
& 224.4774_wp, 220.7146_wp, 215.0103_wp, 207.2419_wp, 0.0000_wp, &
& 217.8920_wp, 214.2514_wp, 208.7309_wp, 201.2119_wp, 0.0000_wp, &
& 214.8363_wp, 211.2380_wp, 205.7784_wp, 198.3402_wp, 0.0000_wp, &
& 199.5009_wp, 196.2122_wp, 191.2265_wp, 184.4364_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 186.6348_wp, 183.6462_wp, 179.1160_wp, 172.9456_wp, 0.0000_wp, &
& 184.5467_wp, 181.5905_wp, 177.1085_wp, 171.0030_wp, 0.0000_wp, &
& 180.8007_wp, 177.9088_wp, 173.5234_wp, 167.5491_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 152.6035_wp, 150.2742_wp, 146.7405_wp, 141.9245_wp, 0.0000_wp, &
& 150.9999_wp, 148.6943_wp, 145.1961_wp, 140.4282_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.8561_wp, 123.0358_wp, 120.2698_wp, 116.4964_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 810.6554_wp, 793.6306_wp, 766.5311_wp, 728.6195_wp, 0.0000_wp, &
& 287.5535_wp, 282.3070_wp, 274.2325_wp, 263.1547_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 679.0044_wp, 665.3221_wp, 644.0351_wp, 614.6705_wp, 0.0000_wp, &
& 543.0123_wp, 532.2461_wp, 515.4323_wp, 492.1704_wp, 0.0000_wp, &
& 297.1426_wp, 291.8601_wp, 283.8013_wp, 272.7959_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 562.6947_wp, 551.4999_wp, 534.1575_wp, 510.2912_wp, 0.0000_wp, &
& 289.5582_wp, 284.4516_wp, 276.6634_wp, 266.0294_wp, 0.0000_wp, &
& 286.3045_wp, 281.3331_wp, 273.7684_wp, 263.4496_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 544.6797_wp, 534.0266_wp, 517.5611_wp, 494.9276_wp, 0.0000_wp, &
& 279.4990_wp, 274.5929_wp, 267.1055_wp, 256.8763_wp, 0.0000_wp, &
& 289.8560_wp, 284.8345_wp, 277.1939_wp, 266.7717_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 499.4970_wp, 489.8210_wp, 474.8898_wp, 454.3822_wp, 0.0000_wp, &
& 273.8352_wp, 269.0270_wp, 261.6872_wp, 251.6587_wp, 0.0000_wp, &
& 265.0778_wp, 260.4970_wp, 253.5169_wp, 243.9879_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 393.1922_wp, 385.6577_wp, 374.0038_wp, 357.9757_wp, 0.0000_wp, &
& 271.0770_wp, 266.2939_wp, 258.9856_wp, 248.9955_wp, 0.0000_wp, &
& 200.0486_wp, 196.7631_wp, 191.7598_wp, 184.9307_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 430.9146_wp, 422.6874_wp, 410.0199_wp, 392.6408_wp, 0.0000_wp, &
& 250.2831_wp, 245.9713_wp, 239.4120_wp, 230.4659_wp, 0.0000_wp, &
& 171.4077_wp, 168.6780_wp, 164.5248_wp, 158.8578_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 338.0096_wp, 331.6389_wp, 321.8092_wp, 308.3075_wp, 0.0000_wp, &
& 231.7618_wp, 227.8113_wp, 221.8034_wp, 213.6098_wp, 0.0000_wp, &
& 168.1967_wp, 165.5084_wp, 161.4178_wp, 155.8359_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 359.7150_wp, 353.0074_wp, 342.7215_wp, 328.6403_wp, 0.0000_wp, &
& 221.0233_wp, 217.2635_wp, 211.5422_wp, 203.7369_wp, 0.0000_wp, &
& 196.7046_wp, 193.4021_wp, 188.3702_wp, 181.5005_wp, 0.0000_wp, &
& 175.4121_wp, 172.5578_wp, 168.2143_wp, 162.2878_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.0359_wp, 363.0566_wp, 352.3403_wp, 337.6607_wp, 0.0000_wp, &
& 216.0043_wp, 212.3221_wp, 206.7172_wp, 199.0695_wp, 0.0000_wp, &
& 183.4110_wp, 180.3695_wp, 175.7399_wp, 169.4227_wp, 0.0000_wp, &
& 192.1103_wp, 188.8450_wp, 183.8623_wp, 177.0557_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 283.3323_wp, 278.0578_wp, 269.9330_wp, 258.7830_wp, 0.0000_wp, &
& 212.8346_wp, 209.1322_wp, 203.4807_wp, 195.7595_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 292.5030_wp, 287.1778_wp, 279.0375_wp, 267.9108_wp, 0.0000_wp, &
& 200.6408_wp, 197.2771_wp, 192.1686_wp, 185.2060_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.3508_wp, 339.9625_wp, 330.1881_wp, 316.8201_wp, 0.0000_wp, &
& 325.7268_wp, 319.7871_wp, 310.7110_wp, 298.3060_wp, 0.0000_wp, &
& 259.1650_wp, 254.6359_wp, 247.7421_wp, 238.3364_wp, 0.0000_wp, &
& 212.8299_wp, 209.2695_wp, 203.8708_wp, 196.5179_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 307.1010_wp, 301.6800_wp, 293.4322_wp, 282.1828_wp, 0.0000_wp, &
& 287.5847_wp, 282.5717_wp, 274.9497_wp, 264.5566_wp, 0.0000_wp, &
& 273.9655_wp, 269.2308_wp, 262.0354_wp, 252.2261_wp, 0.0000_wp, &
& 245.8719_wp, 241.7135_wp, 235.4019_wp, 226.8019_wp, 0.0000_wp, &
& 217.4476_wp, 213.8707_wp, 208.4500_wp, 201.0683_wp, 0.0000_wp, &
& 262.9498_wp, 258.5263_wp, 251.8155_wp, 242.6736_wp, 0.0000_wp, &
& 258.5263_wp, 254.1924_wp, 247.6174_wp, 238.6601_wp, 0.0000_wp, &
& 251.8155_wp, 247.6174_wp, 241.2494_wp, 232.5744_wp, 0.0000_wp, &
& 242.6736_wp, 238.6601_wp, 232.5744_wp, 224.2851_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 25.3098_wp, 25.3149_wp, 25.1268_wp, 0.0000_wp, 0.0000_wp, &
& 40.2010_wp, 40.2117_wp, 39.8967_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 17.0243_wp, 17.0280_wp, 16.9157_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 354.5429_wp, 355.0450_wp, 351.8104_wp, 0.0000_wp, 0.0000_wp, &
& 125.4768_wp, 125.5564_wp, 124.4868_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 215.0238_wp, 215.1671_wp, 213.3149_wp, 0.0000_wp, 0.0000_wp, &
& 160.9687_wp, 161.0637_wp, 159.7099_wp, 0.0000_wp, 0.0000_wp, &
& 107.6371_wp, 107.6713_wp, 106.8086_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 148.8008_wp, 148.8590_wp, 147.6502_wp, 0.0000_wp, 0.0000_wp, &
& 125.8437_wp, 125.8888_wp, 124.8845_wp, 0.0000_wp, 0.0000_wp, &
& 106.2140_wp, 106.2491_wp, 105.4167_wp, 0.0000_wp, 0.0000_wp, &
& 81.8381_wp, 81.8564_wp, 81.2400_wp, 0.0000_wp, 0.0000_wp, &
& 77.1533_wp, 77.1700_wp, 76.5939_wp, 0.0000_wp, 0.0000_wp, &
& 102.4346_wp, 102.4620_wp, 101.6786_wp, 0.0000_wp, 0.0000_wp, &
& 96.0599_wp, 96.0872_wp, 95.3553_wp, 0.0000_wp, 0.0000_wp, &
& 78.8838_wp, 78.9029_wp, 78.3177_wp, 0.0000_wp, 0.0000_wp, &
& 73.8064_wp, 73.8257_wp, 73.2814_wp, 0.0000_wp, 0.0000_wp, &
& 60.9913_wp, 61.0041_wp, 60.5723_wp, 0.0000_wp, 0.0000_wp, &
& 72.5403_wp, 72.5567_wp, 72.0328_wp, 0.0000_wp, 0.0000_wp, &
& 67.6636_wp, 67.6796_wp, 67.1936_wp, 0.0000_wp, 0.0000_wp, &
& 63.5919_wp, 63.6074_wp, 63.1549_wp, 0.0000_wp, 0.0000_wp, &
& 56.0812_wp, 56.0962_wp, 55.7037_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 55.3627_wp, 55.3752_wp, 54.9943_wp, 0.0000_wp, 0.0000_wp, &
& 49.7552_wp, 49.7665_wp, 49.4291_wp, 0.0000_wp, 0.0000_wp, &
& 43.9819_wp, 43.9931_wp, 43.7022_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.1923_wp, 42.2027_wp, 41.9260_wp, 0.0000_wp, 0.0000_wp, &
& 34.5792_wp, 34.5882_wp, 34.3729_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 571:665) = reshape([ &
& 32.5843_wp, 32.5935_wp, 32.3892_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.1864_wp, 425.7733_wp, 421.9195_wp, 0.0000_wp, 0.0000_wp, &
& 182.4744_wp, 182.6062_wp, 181.0487_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 339.5742_wp, 339.8427_wp, 336.8869_wp, 0.0000_wp, 0.0000_wp, &
& 281.7173_wp, 281.9249_wp, 279.5035_wp, 0.0000_wp, 0.0000_wp, &
& 188.6214_wp, 188.7025_wp, 187.1504_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 317.6182_wp, 317.8133_wp, 315.1147_wp, 0.0000_wp, 0.0000_wp, &
& 288.8485_wp, 289.0163_wp, 286.5809_wp, 0.0000_wp, 0.0000_wp, &
& 227.6936_wp, 227.7982_wp, 225.9245_wp, 0.0000_wp, 0.0000_wp, &
& 179.8635_wp, 179.9198_wp, 178.4835_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 255.0099_wp, 255.1153_wp, 253.0289_wp, 0.0000_wp, 0.0000_wp, &
& 236.3323_wp, 236.4253_wp, 234.5066_wp, 0.0000_wp, 0.0000_wp, &
& 220.3806_wp, 220.4624_wp, 218.6853_wp, 0.0000_wp, 0.0000_wp, &
& 214.4121_wp, 214.4981_wp, 212.7679_wp, 0.0000_wp, 0.0000_wp, &
& 178.4799_wp, 178.5302_wp, 177.1287_wp, 0.0000_wp, 0.0000_wp, &
& 201.9019_wp, 201.9603_wp, 200.3747_wp, 0.0000_wp, 0.0000_wp, &
& 196.0806_wp, 196.1374_wp, 194.6017_wp, 0.0000_wp, 0.0000_wp, &
& 193.2410_wp, 193.2996_wp, 191.7848_wp, 0.0000_wp, 0.0000_wp, &
& 179.9374_wp, 179.9862_wp, 178.5907_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.1308_wp, 169.1712_wp, 167.8868_wp, 0.0000_wp, 0.0000_wp, &
& 167.2264_wp, 167.2672_wp, 165.9975_wp, 0.0000_wp, 0.0000_wp, &
& 163.8681_wp, 163.9083_wp, 162.6659_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 139.3163_wp, 139.3453_wp, 138.3253_wp, 0.0000_wp, 0.0000_wp, &
& 137.8443_wp, 137.8735_wp, 136.8644_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 114.7449_wp, 114.7677_wp, 113.9577_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 692.9116_wp, 693.9818_wp, 687.7370_wp, 0.0000_wp, 0.0000_wp, &
& 254.3670_wp, 254.5376_wp, 252.4498_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.9647_wp, 588.5763_wp, 583.4009_wp, 0.0000_wp, 0.0000_wp, &
& 471.4822_wp, 471.9821_wp, 467.8832_wp, 0.0000_wp, 0.0000_wp, &
& 264.3790_wp, 264.5072_wp, 262.3613_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 488.8715_wp, 489.3305_wp, 485.0594_wp, 0.0000_wp, 0.0000_wp, &
& 258.0084_wp, 258.1295_wp, 256.0474_wp, 0.0000_wp, 0.0000_wp, &
& 255.8702_wp, 255.9746_wp, 253.9272_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 475.0348_wp, 475.4453_wp, 471.3428_wp, 0.0000_wp, 0.0000_wp, &
& 249.2258_wp, 249.3437_wp, 247.3402_wp, 0.0000_wp, 0.0000_wp, &
& 259.1489_wp, 259.2539_wp, 257.1841_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 436.5718_wp, 436.9293_wp, 433.1830_wp, 0.0000_wp, 0.0000_wp, &
& 244.1554_wp, 244.2727_wp, 242.3111_wp, 0.0000_wp, 0.0000_wp, &
& 237.0577_wp, 237.1592_wp, 235.2729_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 344.2956_wp, 344.5858_wp, 341.6637_wp, 0.0000_wp, 0.0000_wp, &
& 241.4585_wp, 241.5803_wp, 239.6357_wp, 0.0000_wp, 0.0000_wp, &
& 180.4705_wp, 180.5365_wp, 179.1559_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 377.8276_wp, 378.1133_wp, 374.9026_wp, 0.0000_wp, 0.0000_wp, &
& 223.9857_wp, 224.0757_wp, 222.2961_wp, 0.0000_wp, 0.0000_wp, &
& 155.4154_wp, 155.4652_wp, 154.3023_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 297.0396_wp, 297.2697_wp, 294.7778_wp, 0.0000_wp, 0.0000_wp, &
& 207.7948_wp, 207.8748_wp, 206.2367_wp, 0.0000_wp, 0.0000_wp, &
& 152.4128_wp, 152.4629_wp, 151.3202_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 317.0174_wp, 317.2233_wp, 314.5706_wp, 0.0000_wp, 0.0000_wp, &
& 198.2213_wp, 198.2993_wp, 196.7403_wp, 0.0000_wp, 0.0000_wp, &
& 176.7844_wp, 176.8558_wp, 175.4826_wp, 0.0000_wp, 0.0000_wp, &
& 158.4907_wp, 158.5463_wp, 157.3426_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.3419_wp, 325.5667_wp, 322.8238_wp, 0.0000_wp, 0.0000_wp, &
& 193.6432_wp, 193.7213_wp, 192.1970_wp, 0.0000_wp, 0.0000_wp, &
& 165.1961_wp, 165.2584_wp, 163.9864_wp, 0.0000_wp, 0.0000_wp, &
& 172.2718_wp, 172.3493_wp, 171.0031_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.6385_wp, 249.8210_wp, 247.7460_wp, 0.0000_wp, 0.0000_wp, &
& 190.0771_wp, 190.1685_wp, 188.6560_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 259.0459_wp, 259.1916_wp, 257.0583_wp, 0.0000_wp, 0.0000_wp, &
& 180.4189_wp, 180.4812_wp, 179.0747_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 305.9501_wp, 306.1275_wp, 303.5764_wp, 0.0000_wp, 0.0000_wp, &
& 288.3934_wp, 288.5493_wp, 286.1624_wp, 0.0000_wp, 0.0000_wp, &
& 231.3353_wp, 231.4312_wp, 229.5690_wp, 0.0000_wp, 0.0000_wp, &
& 191.4849_wp, 191.5424_wp, 190.0442_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 273.6530_wp, 273.7680_wp, 271.5474_wp, 0.0000_wp, 0.0000_wp, &
& 256.8517_wp, 256.9523_wp, 254.8857_wp, 0.0000_wp, 0.0000_wp, &
& 245.0690_wp, 245.1604_wp, 243.2002_wp, 0.0000_wp, 0.0000_wp, &
& 220.7846_wp, 220.8565_wp, 219.1161_wp, 0.0000_wp, 0.0000_wp, &
& 196.1962_wp, 196.2489_wp, 194.7306_wp, 0.0000_wp, 0.0000_wp, &
& 236.3473_wp, 236.4206_wp, 234.5631_wp, 0.0000_wp, 0.0000_wp, &
& 232.5072_wp, 232.5784_wp, 230.7558_wp, 0.0000_wp, 0.0000_wp, &
& 226.6845_wp, 226.7519_wp, 224.9818_wp, 0.0000_wp, 0.0000_wp, &
& 218.7531_wp, 218.8149_wp, 217.1161_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 213.6738_wp, 213.7298_wp, 212.0915_wp, 0.0000_wp, 0.0000_wp, &
& 213.7298_wp, 213.7862_wp, 212.1475_wp, 0.0000_wp, 0.0000_wp, &
& 212.0915_wp, 212.1475_wp, 210.5231_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 22.4834_wp, 22.6230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.2740_wp, 35.5123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 15.4553_wp, 15.5387_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.7897_wp, 297.6835_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 107.3380_wp, 108.2048_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 183.3742_wp, 184.8832_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 138.2747_wp, 139.3617_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.8911_wp, 94.5515_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 129.2495_wp, 130.1881_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 109.8060_wp, 110.5802_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.1003_wp, 93.7374_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 72.4613_wp, 72.9221_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 68.4416_wp, 68.8714_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 90.3424_wp, 90.9343_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 84.7723_wp, 85.3265_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.0352_wp, 70.4744_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 65.5868_wp, 65.9967_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 54.6824_wp, 55.0029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 64.7632_wp, 65.1543_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 60.4728_wp, 60.8359_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 56.9187_wp, 57.2578_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.3344_wp, 50.6298_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 49.8795_wp, 50.1632_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 44.9510_wp, 45.2019_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 39.8821_wp, 40.1002_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 38.3225_wp, 38.5294_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 31.6699_wp, 31.8313_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.7958_wp, 29.9501_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 354.2869_wp, 357.7246_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 155.8202_wp, 157.1005_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 288.2736_wp, 290.7276_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 240.1565_wp, 242.1476_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 163.2221_wp, 164.4383_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 272.0098_wp, 274.1894_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 247.9692_wp, 249.9248_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 196.9743_wp, 198.4473_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 157.0191_wp, 158.1182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 221.0537_wp, 222.6812_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 205.2976_wp, 206.7880_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 191.7992_wp, 193.1738_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 186.4927_wp, 187.8378_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 156.4781_wp, 157.5423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 176.9930_wp, 178.1984_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 171.9910_wp, 173.1582_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.4313_wp, 170.5858_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 158.2104_wp, 159.2666_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 149.4563_wp, 150.4203_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 147.7679_wp, 148.7219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 144.8387_wp, 145.7724_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.0909_wp, 124.8495_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 122.7763_wp, 123.5274_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 102.9471_wp, 103.5467_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 577.2318_wp, 582.8914_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 219.4647_wp, 221.1642_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 495.9754_wp, 500.4152_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 399.0226_wp, 402.5380_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 229.3147_wp, 231.0107_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 413.7468_wp, 417.3648_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 224.1375_wp, 225.7784_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 222.9256_wp, 224.5209_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.6576_wp, 407.0970_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 216.6921_wp, 218.2711_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 225.8818_wp, 227.4937_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 371.8071_wp, 374.9283_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.2792_wp, 213.8276_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 206.7277_wp, 208.2022_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.9185_wp, 296.3607_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 209.7393_wp, 211.2809_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 158.8704_wp, 159.9362_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 322.8433_wp, 325.4945_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 195.4536_wp, 196.8395_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 137.5406_wp, 138.4296_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.5306_wp, 256.5939_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 181.6836_wp, 182.9550_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 134.8051_wp, 135.6806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 272.3053_wp, 274.4620_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 173.3793_wp, 174.5910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 155.0169_wp, 156.0859_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 139.7541_wp, 140.6812_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 278.7705_wp, 281.0154_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.3133_wp, 170.5004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 145.1828_wp, 146.1681_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 150.7426_wp, 151.8006_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 214.5059_wp, 216.2140_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 165.5860_wp, 166.7816_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 223.6348_wp, 225.3457_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 158.2213_wp, 159.3049_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 263.3458_wp, 265.3939_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 248.8211_wp, 250.7247_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 201.2706_wp, 202.7225_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 167.9500_wp, 169.0925_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 237.6295_wp, 239.3636_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 223.5744_wp, 225.1792_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 213.6651_wp, 215.1816_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 193.2591_wp, 194.5928_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 172.5823_wp, 173.7316_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 207.0772_wp, 208.4957_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 203.8400_wp, 205.2305_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 198.9308_wp, 200.2786_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 192.2421_wp, 193.5315_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 188.3605_wp, 189.5974_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 188.4031_wp, 189.6408_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 186.9994_wp, 188.2263_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 167.1297_wp, 168.1791_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 168.1791_wp, 169.2375_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 19.8182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 30.7261_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 13.9211_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 244.5554_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.3333_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 155.5616_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 118.1240_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 81.3306_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 111.5371_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 95.1763_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 81.0518_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 63.6768_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 60.2544_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 79.1080_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 74.2865_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 61.7254_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 57.8665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 48.6500_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 57.3895_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 53.6496_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.5746_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 44.8546_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 44.6003_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 40.3043_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.8961_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 34.5452_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 28.7800_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 27.0430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.5574_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 132.4348_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.5965_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 203.7473_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 140.3605_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 231.6904_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 211.6949_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.3547_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 136.1238_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 190.3934_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 177.1811_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 165.8230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 161.1703_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 136.2102_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 154.0575_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 149.7933_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 147.5193_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 138.1076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 131.0928_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 129.6123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 127.0791_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 109.6839_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 108.5226_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.6430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 480.2472_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 188.4819_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 416.9777_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 336.6483_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 197.7645_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.8474_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 193.5868_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 193.0224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 341.6273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 187.3231_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 195.6666_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 315.3251_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 183.5171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 179.1965_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.9413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 181.1819_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 138.9788_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.6419_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.5097_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 120.9219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 217.2071_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 157.8661_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 118.4578_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 232.7594_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 150.7190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 135.1147_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 122.4536_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 237.7447_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 147.1417_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 126.8094_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 131.1600_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 183.5347_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 143.4525_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 192.0484_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 137.8590_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 225.4537_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 213.4821_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 174.0230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 146.2910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 205.0598_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 193.3634_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 185.0751_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 168.0194_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 150.7260_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 180.1818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 177.4716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 173.3582_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 167.7505_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 164.8494_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 164.8833_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 163.6906_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 147.1830_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 148.0689_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 666:760) = reshape([ &
& 130.4017_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 85.9499_wp, 35.1963_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 150.9340_wp, 57.9039_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.0491_wp, 22.6231_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2647.3331_wp, 657.4076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 618.5681_wp, 199.6771_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1082.7052_wp, 345.4378_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 774.9656_wp, 252.9574_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.1704_wp, 157.9479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 620.0878_wp, 222.5081_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.9421_wp, 185.7206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 415.2201_wp, 154.7827_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 286.2486_wp, 114.9721_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 266.1018_wp, 107.8668_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 373.5384_wp, 145.9974_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 353.6302_wp, 137.2125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 273.3757_wp, 110.4856_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 256.5198_wp, 103.4559_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 195.5996_wp, 83.2418_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 240.6940_wp, 100.1418_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 225.1919_wp, 93.4584_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 209.2378_wp, 87.5447_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 183.1486_wp, 77.0040_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 172.3398_wp, 74.8868_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 152.6757_wp, 67.0045_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 132.4879_wp, 58.9015_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.5879_wp, 56.1779_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 96.2235_wp, 45.2489_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 92.3827_wp, 42.8957_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3104.1016_wp, 781.8527_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 936.3006_wp, 294.6795_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1826.4648_wp, 559.1337_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1477.6556_wp, 457.7831_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 808.8537_wp, 285.4219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1546.9229_wp, 502.9933_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1375.2558_wp, 453.3636_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 999.7400_wp, 346.4959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 704.9609_wp, 263.2439_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1082.0563_wp, 383.9084_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 986.0438_wp, 353.4142_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 901.7739_wp, 327.3080_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 894.0072_wp, 320.2665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 675.8635_wp, 257.9020_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 768.1335_wp, 292.1604_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 744.2475_wp, 283.4368_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 739.7269_wp, 280.1183_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 668.4401_wp, 258.1520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 602.2221_wp, 239.0572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 596.8763_wp, 236.5467_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 584.3784_wp, 231.7265_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 466.1565_wp, 192.7877_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 462.0252_wp, 190.8602_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 364.4067_wp, 156.1010_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5530.2806_wp, 1305.8840_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1240.8631_wp, 401.0371_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3599.4349_wp, 1013.0706_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2958.0410_wp, 812.3489_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1152.0197_wp, 401.6572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2834.0920_wp, 826.1041_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1105.4608_wp, 389.9057_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1056.1444_wp, 381.2151_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2641.2435_wp, 789.4117_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1074.1973_wp, 376.3919_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1065.4841_wp, 385.5830_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2363.7175_wp, 718.2125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1053.5834_wp, 369.0649_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 984.9504_wp, 353.5929_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1874.0326_wp, 566.1856_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1057.5718_wp, 366.8686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 692.7359_wp, 261.7869_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1968.7631_wp, 612.6444_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 911.9433_wp, 332.2215_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 566.7169_wp, 221.5102_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1547.1982_wp, 480.6236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 831.7960_wp, 306.2720_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 559.2177_wp, 217.7195_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1541.8997_wp, 501.5940_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 795.8859_wp, 292.2992_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 704.2730_wp, 259.8039_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 596.8306_wp, 228.5106_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1625.1034_wp, 519.9826_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 781.8441_wp, 286.1241_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 640.5782_wp, 240.6629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 705.9328_wp, 255.8512_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1259.4427_wp, 399.3534_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 807.8786_wp, 286.0131_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1186.2631_wp, 401.0548_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 697.2012_wp, 262.7332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1442.3807_wp, 477.9737_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1322.7322_wp, 446.0798_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 968.1682_wp, 345.9921_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 727.9978_wp, 277.1701_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1155.1526_wp, 411.0389_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1059.6044_wp, 382.5012_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 994.2046_wp, 362.8020_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 859.6583_wp, 322.1096_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 724.9394_wp, 281.0734_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 909.4257_wp, 343.3978_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 890.4931_wp, 337.2160_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 860.3672_wp, 327.7032_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 818.2247_wp, 314.6518_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 778.9204_wp, 304.5312_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 780.0986_wp, 304.7279_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 773.1255_wp, 302.2530_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 650.3606_wp, 263.4592_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 656.6574_wp, 265.4647_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 542.3160_wp, 226.8590_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6138.7755_wp, 1457.7817_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1457.7817_wp, 476.2591_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 78.3901_wp, 64.4065_wp, 36.8606_wp, 0.0000_wp, 0.0000_wp, &
& 135.0664_wp, 110.3275_wp, 60.1892_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 46.6658_wp, 38.8333_wp, 23.8401_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1944.2260_wp, 1618.2465_wp, 628.2399_wp, 0.0000_wp, 0.0000_wp, &
& 517.8393_wp, 421.4610_wp, 201.6900_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 903.9265_wp, 734.7926_wp, 348.1690_wp, 0.0000_wp, 0.0000_wp, &
& 648.6422_wp, 529.5494_wp, 256.1295_wp, 0.0000_wp, 0.0000_wp, &
& 376.6468_wp, 306.9433_wp, 163.4621_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 541.5729_wp, 441.1261_wp, 228.9512_wp, 0.0000_wp, 0.0000_wp, &
& 445.2608_wp, 363.3607_wp, 191.6429_wp, 0.0000_wp, 0.0000_wp, &
& 365.6571_wp, 299.2914_wp, 160.1098_wp, 0.0000_wp, 0.0000_wp, &
& 259.5279_wp, 212.8759_wp, 120.1300_wp, 0.0000_wp, 0.0000_wp, &
& 241.8504_wp, 198.5660_wp, 112.8093_wp, 0.0000_wp, 0.0000_wp, &
& 335.4597_wp, 274.7031_wp, 151.9745_wp, 0.0000_wp, 0.0000_wp, &
& 315.8923_wp, 258.9885_wp, 142.6113_wp, 0.0000_wp, 0.0000_wp, &
& 247.8285_wp, 203.5706_wp, 115.4107_wp, 0.0000_wp, 0.0000_wp, &
& 232.0032_wp, 190.6976_wp, 107.9688_wp, 0.0000_wp, 0.0000_wp, &
& 179.8395_wp, 148.5141_wp, 87.3891_wp, 0.0000_wp, 0.0000_wp, &
& 219.9608_wp, 181.1973_wp, 104.9004_wp, 0.0000_wp, 0.0000_wp, &
& 205.1574_wp, 169.1772_wp, 97.8085_wp, 0.0000_wp, 0.0000_wp, &
& 191.1268_wp, 157.6836_wp, 91.6725_wp, 0.0000_wp, 0.0000_wp, &
& 167.0865_wp, 138.0927_wp, 80.5868_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 159.1460_wp, 131.7846_wp, 78.6933_wp, 0.0000_wp, 0.0000_wp, &
& 141.1592_wp, 117.1018_wp, 70.4285_wp, 0.0000_wp, 0.0000_wp, &
& 122.6928_wp, 102.0116_wp, 61.9159_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 115.9647_wp, 96.5080_wp, 59.1415_wp, 0.0000_wp, 0.0000_wp, &
& 90.4081_wp, 75.6758_wp, 47.7411_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 86.4627_wp, 72.2703_wp, 45.1941_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2296.1906_wp, 1907.9592_wp, 749.3005_wp, 0.0000_wp, 0.0000_wp, &
& 773.9854_wp, 630.8304_wp, 296.0005_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1495.8141_wp, 1218.1274_wp, 558.7819_wp, 0.0000_wp, 0.0000_wp, &
& 1210.9593_wp, 988.7857_wp, 458.8001_wp, 0.0000_wp, 0.0000_wp, &
& 703.3906_wp, 571.9448_wp, 292.9174_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1298.5356_wp, 1057.0218_wp, 508.8061_wp, 0.0000_wp, 0.0000_wp, &
& 1160.2539_wp, 944.7535_wp, 459.7370_wp, 0.0000_wp, 0.0000_wp, &
& 859.5678_wp, 700.6746_wp, 354.5526_wp, 0.0000_wp, 0.0000_wp, &
& 625.6996_wp, 509.9927_wp, 272.6252_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 941.4121_wp, 766.3847_wp, 394.3455_wp, 0.0000_wp, 0.0000_wp, &
& 860.3421_wp, 701.0009_wp, 363.5872_wp, 0.0000_wp, 0.0000_wp, &
& 790.6765_wp, 644.4017_wp, 337.3757_wp, 0.0000_wp, 0.0000_wp, &
& 778.3539_wp, 634.9125_wp, 329.3386_wp, 0.0000_wp, 0.0000_wp, &
& 603.7134_wp, 492.9574_wp, 267.8525_wp, 0.0000_wp, 0.0000_wp, &
& 684.9632_wp, 559.3821_wp, 303.2521_wp, 0.0000_wp, 0.0000_wp, &
& 663.5656_wp, 542.1262_wp, 294.2134_wp, 0.0000_wp, 0.0000_wp, &
& 657.7877_wp, 537.4352_wp, 290.4761_wp, 0.0000_wp, 0.0000_wp, &
& 598.7498_wp, 489.5943_wp, 268.4526_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 543.9627_wp, 445.7860_wp, 249.4267_wp, 0.0000_wp, 0.0000_wp, &
& 538.6724_wp, 441.4719_wp, 246.7293_wp, 0.0000_wp, 0.0000_wp, &
& 527.3838_wp, 432.2783_wp, 241.6949_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.8997_wp, 350.4273_wp, 201.9997_wp, 0.0000_wp, 0.0000_wp, &
& 421.8867_wp, 347.1255_wp, 199.9353_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 335.8690_wp, 277.4759_wp, 164.0275_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3915.3529_wp, 3302.2504_wp, 1234.9320_wp, 0.0000_wp, 0.0000_wp, &
& 1027.9671_wp, 841.9983_wp, 404.3537_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2819.4935_wp, 2314.8420_wp, 994.4676_wp, 0.0000_wp, 0.0000_wp, &
& 2265.4155_wp, 1876.9417_wp, 794.5479_wp, 0.0000_wp, 0.0000_wp, &
& 991.9143_wp, 808.6909_wp, 410.7857_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2260.4217_wp, 1849.7319_wp, 816.9275_wp, 0.0000_wp, 0.0000_wp, &
& 957.2271_wp, 779.9488_wp, 399.3277_wp, 0.0000_wp, 0.0000_wp, &
& 922.1430_wp, 752.1641_wp, 392.1967_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2128.3951_wp, 1740.7410_wp, 784.6886_wp, 0.0000_wp, 0.0000_wp, &
& 923.6557_wp, 754.6753_wp, 385.2756_wp, 0.0000_wp, 0.0000_wp, &
& 931.2172_wp, 759.5978_wp, 396.8216_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1918.6941_wp, 1568.2263_wp, 716.2778_wp, 0.0000_wp, 0.0000_wp, &
& 906.2364_wp, 740.1763_wp, 377.6508_wp, 0.0000_wp, 0.0000_wp, &
& 855.9005_wp, 699.1302_wp, 363.3125_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1511.3043_wp, 1238.5036_wp, 563.7114_wp, 0.0000_wp, 0.0000_wp, &
& 905.6187_wp, 739.8315_wp, 374.7437_wp, 0.0000_wp, 0.0000_wp, &
& 612.3549_wp, 501.5114_wp, 270.7543_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1614.7190_wp, 1318.8096_wp, 613.8418_wp, 0.0000_wp, 0.0000_wp, &
& 799.0125_wp, 651.8405_wp, 342.1821_wp, 0.0000_wp, 0.0000_wp, &
& 506.8036_wp, 415.8340_wp, 230.1231_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1263.2327_wp, 1034.0602_wp, 481.0447_wp, 0.0000_wp, 0.0000_wp, &
& 731.2330_wp, 596.9767_wp, 315.9355_wp, 0.0000_wp, 0.0000_wp, &
& 499.4375_wp, 409.6773_wp, 226.0537_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1290.8718_wp, 1052.2336_wp, 506.7272_wp, 0.0000_wp, 0.0000_wp, &
& 698.0762_wp, 570.3024_wp, 301.3614_wp, 0.0000_wp, 0.0000_wp, &
& 617.2493_wp, 504.9905_wp, 267.8234_wp, 0.0000_wp, 0.0000_wp, &
& 530.3589_wp, 434.4503_wp, 236.7608_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1351.3702_wp, 1101.6666_wp, 523.7002_wp, 0.0000_wp, 0.0000_wp, &
& 684.7715_wp, 559.3883_wp, 294.8004_wp, 0.0000_wp, 0.0000_wp, &
& 565.7790_wp, 462.8902_wp, 248.7379_wp, 0.0000_wp, 0.0000_wp, &
& 614.6139_wp, 502.4634_wp, 262.8982_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1037.7284_wp, 848.7952_wp, 401.1714_wp, 0.0000_wp, 0.0000_wp, &
& 697.8623_wp, 569.9151_wp, 292.9783_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1009.6809_wp, 822.5167_wp, 407.9499_wp, 0.0000_wp, 0.0000_wp, &
& 618.5928_wp, 505.2608_wp, 271.9818_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1216.5138_wp, 991.9123_wp, 484.8813_wp, 0.0000_wp, 0.0000_wp, &
& 1123.9167_wp, 916.2312_wp, 453.9182_wp, 0.0000_wp, 0.0000_wp, &
& 841.3610_wp, 686.5985_wp, 355.5621_wp, 0.0000_wp, 0.0000_wp, &
& 649.2640_wp, 530.2448_wp, 287.6167_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1004.4824_wp, 818.4887_wp, 422.1813_wp, 0.0000_wp, 0.0000_wp, &
& 926.0025_wp, 755.0584_wp, 393.7660_wp, 0.0000_wp, 0.0000_wp, &
& 872.4465_wp, 711.5862_wp, 374.0975_wp, 0.0000_wp, 0.0000_wp, &
& 761.7364_wp, 621.9263_wp, 333.4648_wp, 0.0000_wp, 0.0000_wp, &
& 650.4849_wp, 531.8762_wp, 292.4289_wp, 0.0000_wp, 0.0000_wp, &
& 808.3370_wp, 660.0928_wp, 355.9394_wp, 0.0000_wp, 0.0000_wp, &
& 792.0816_wp, 647.0220_wp, 349.6598_wp, 0.0000_wp, 0.0000_wp, &
& 766.7421_wp, 626.5605_wp, 340.0688_wp, 0.0000_wp, 0.0000_wp, &
& 731.7462_wp, 598.2102_wp, 326.9624_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 700.0532_wp, 573.0850_wp, 317.0938_wp, 0.0000_wp, 0.0000_wp, &
& 700.8015_wp, 573.7135_wp, 317.2498_wp, 0.0000_wp, 0.0000_wp, &
& 694.6556_wp, 568.7416_wp, 314.6933_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 590.7326_wp, 485.0650_wp, 275.4476_wp, 0.0000_wp, 0.0000_wp, &
& 596.0214_wp, 489.3461_wp, 277.4689_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 496.9120_wp, 409.3761_wp, 237.9219_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4349.2577_wp, 3670.9261_wp, 1380.8411_wp, 0.0000_wp, 0.0000_wp, &
& 1210.8108_wp, 992.7970_wp, 481.0605_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3381.3672_wp, 2782.4577_wp, 1185.8018_wp, 0.0000_wp, 0.0000_wp, &
& 2782.4577_wp, 2312.6602_wp, 968.0787_wp, 0.0000_wp, 0.0000_wp, &
& 1185.8018_wp, 968.0787_wp, 491.7448_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.0570_wp, 51.2356_wp, 36.0543_wp, 0.0000_wp, 0.0000_wp, &
& 119.2961_wp, 85.6815_wp, 58.2755_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.4195_wp, 31.9889_wp, 23.6462_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1585.3950_wp, 1074.5875_wp, 567.3202_wp, 0.0000_wp, 0.0000_wp, &
& 442.9448_wp, 306.8862_wp, 189.8894_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 771.4844_wp, 532.5110_wp, 326.9186_wp, 0.0000_wp, 0.0000_wp, &
& 556.1503_wp, 387.6564_wp, 242.0080_wp, 0.0000_wp, 0.0000_wp, &
& 330.7190_wp, 235.5232_wp, 157.4277_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 472.4364_wp, 334.1351_wp, 219.3347_wp, 0.0000_wp, 0.0000_wp, &
& 389.8823_wp, 277.4050_wp, 184.2847_wp, 0.0000_wp, 0.0000_wp, &
& 321.2652_wp, 230.1384_wp, 154.5280_wp, 0.0000_wp, 0.0000_wp, &
& 231.1173_wp, 168.1354_wp, 117.1570_wp, 0.0000_wp, 0.0000_wp, &
& 215.7263_wp, 157.3598_wp, 110.1737_wp, 0.0000_wp, 0.0000_wp, &
& 297.2171_wp, 214.7760_wp, 147.6049_wp, 0.0000_wp, 0.0000_wp, &
& 279.4727_wp, 201.9744_wp, 138.4353_wp, 0.0000_wp, 0.0000_wp, &
& 220.8830_wp, 161.1115_wp, 112.6680_wp, 0.0000_wp, 0.0000_wp, &
& 206.6589_wp, 150.7894_wp, 105.3858_wp, 0.0000_wp, 0.0000_wp, &
& 161.7738_wp, 119.7654_wp, 85.9668_wp, 0.0000_wp, 0.0000_wp, &
& 197.0611_wp, 144.9207_wp, 102.8479_wp, 0.0000_wp, 0.0000_wp, &
& 183.6851_wp, 135.1839_wp, 95.8897_wp, 0.0000_wp, 0.0000_wp, &
& 171.3574_wp, 126.3470_wp, 89.9626_wp, 0.0000_wp, 0.0000_wp, &
& 149.8906_wp, 110.8238_wp, 79.1550_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 143.6602_wp, 107.0438_wp, 77.6335_wp, 0.0000_wp, 0.0000_wp, &
& 127.6282_wp, 95.4458_wp, 69.5806_wp, 0.0000_wp, 0.0000_wp, &
& 111.1606_wp, 83.5108_wp, 61.2796_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 105.3447_wp, 79.4076_wp, 58.6359_wp, 0.0000_wp, 0.0000_wp, &
& 82.7337_wp, 63.1889_wp, 47.5914_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 78.9316_wp, 60.0628_wp, 44.9753_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1876.8634_wp, 1272.7028_wp, 678.1726_wp, 0.0000_wp, 0.0000_wp, &
& 658.7963_wp, 454.9928_wp, 277.5701_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1266.7602_wp, 869.3739_wp, 521.1430_wp, 0.0000_wp, 0.0000_wp, &
& 1028.1365_wp, 709.6961_wp, 429.5059_wp, 0.0000_wp, 0.0000_wp, &
& 611.6961_wp, 430.3940_wp, 279.6834_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1112.2980_wp, 771.8606_wp, 479.6884_wp, 0.0000_wp, 0.0000_wp, &
& 996.3757_wp, 693.4732_wp, 434.5102_wp, 0.0000_wp, 0.0000_wp, &
& 745.1801_wp, 524.2267_wp, 338.0153_wp, 0.0000_wp, 0.0000_wp, &
& 549.9242_wp, 392.0660_wp, 262.7634_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 819.5418_wp, 578.0550_wp, 377.0639_wp, 0.0000_wp, 0.0000_wp, &
& 750.3817_wp, 530.8180_wp, 348.3162_wp, 0.0000_wp, 0.0000_wp, &
& 691.2029_wp, 490.2154_wp, 323.8305_wp, 0.0000_wp, 0.0000_wp, &
& 678.7577_wp, 480.7496_wp, 315.6210_wp, 0.0000_wp, 0.0000_wp, &
& 532.6876_wp, 382.0537_wp, 259.1062_wp, 0.0000_wp, 0.0000_wp, &
& 603.9916_wp, 433.0171_wp, 293.2324_wp, 0.0000_wp, 0.0000_wp, &
& 585.2467_wp, 419.8718_wp, 284.5819_wp, 0.0000_wp, 0.0000_wp, &
& 579.5105_wp, 415.3578_wp, 280.7471_wp, 0.0000_wp, 0.0000_wp, &
& 529.4213_wp, 381.1414_wp, 260.2254_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 483.3797_wp, 350.5775_wp, 242.8256_wp, 0.0000_wp, 0.0000_wp, &
& 478.5204_wp, 346.9710_wp, 240.1493_wp, 0.0000_wp, 0.0000_wp, &
& 468.5269_wp, 339.8082_wp, 235.2717_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 381.2462_wp, 279.7355_wp, 197.8796_wp, 0.0000_wp, 0.0000_wp, &
& 377.5642_wp, 276.9773_wp, 195.8267_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 302.5143_wp, 224.3126_wp, 161.5056_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3166.0625_wp, 2163.7031_wp, 1110.5426_wp, 0.0000_wp, 0.0000_wp, &
& 879.0346_wp, 613.8463_wp, 381.7778_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 761:855) = reshape([ &
& 2350.8018_wp, 1603.6362_wp, 916.0855_wp, 0.0000_wp, 0.0000_wp, &
& 1882.1338_wp, 1293.5159_wp, 732.1243_wp, 0.0000_wp, 0.0000_wp, &
& 860.3229_wp, 605.8453_wp, 391.8360_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1896.7809_wp, 1297.2964_wp, 756.5443_wp, 0.0000_wp, 0.0000_wp, &
& 831.6679_wp, 586.3135_wp, 381.4719_wp, 0.0000_wp, 0.0000_wp, &
& 805.0465_wp, 570.8618_wp, 376.1623_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1794.3180_wp, 1232.3433_wp, 730.0584_wp, 0.0000_wp, 0.0000_wp, &
& 802.0324_wp, 566.8670_wp, 368.1481_wp, 0.0000_wp, 0.0000_wp, &
& 813.3302_wp, 577.0286_wp, 380.7419_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1622.4689_wp, 1116.9531_wp, 668.2729_wp, 0.0000_wp, 0.0000_wp, &
& 786.7255_wp, 555.7215_wp, 360.7708_wp, 0.0000_wp, 0.0000_wp, &
& 746.4335_wp, 529.6824_wp, 348.3728_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1276.4352_wp, 880.6069_wp, 526.0324_wp, 0.0000_wp, 0.0000_wp, &
& 784.7489_wp, 553.4764_wp, 357.4837_wp, 0.0000_wp, 0.0000_wp, &
& 538.9029_wp, 387.0982_wp, 261.7042_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1371.4492_wp, 947.5834_wp, 575.0060_wp, 0.0000_wp, 0.0000_wp, &
& 698.6760_wp, 496.3331_wp, 328.6223_wp, 0.0000_wp, 0.0000_wp, &
& 448.7768_wp, 324.9751_wp, 223.5637_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1072.3265_wp, 742.6641_wp, 450.9120_wp, 0.0000_wp, 0.0000_wp, &
& 640.6641_wp, 456.3878_wp, 303.9644_wp, 0.0000_wp, 0.0000_wp, &
& 441.9258_wp, 319.6860_wp, 219.4714_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1105.3016_wp, 768.2107_wp, 477.8977_wp, 0.0000_wp, 0.0000_wp, &
& 611.3403_wp, 435.6701_wp, 289.9137_wp, 0.0000_wp, 0.0000_wp, &
& 540.8706_wp, 386.3776_wp, 257.9190_wp, 0.0000_wp, 0.0000_wp, &
& 467.8612_wp, 336.9173_wp, 229.2527_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1153.5737_wp, 799.3710_wp, 492.5198_wp, 0.0000_wp, 0.0000_wp, &
& 599.2652_wp, 426.7405_wp, 283.4424_wp, 0.0000_wp, 0.0000_wp, &
& 497.3996_wp, 356.4737_wp, 240.1326_wp, 0.0000_wp, 0.0000_wp, &
& 536.6745_wp, 381.7903_wp, 252.4245_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 884.1648_wp, 614.0983_wp, 377.2375_wp, 0.0000_wp, 0.0000_wp, &
& 606.8585_wp, 429.3743_wp, 280.2569_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 870.6935_wp, 609.0499_wp, 387.0821_wp, 0.0000_wp, 0.0000_wp, &
& 544.3140_wp, 389.5811_wp, 262.5735_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1045.5505_wp, 729.5813_wp, 458.9033_wp, 0.0000_wp, 0.0000_wp, &
& 969.0777_wp, 678.2590_wp, 430.7925_wp, 0.0000_wp, 0.0000_wp, &
& 733.3555_wp, 519.4437_wp, 340.6535_wp, 0.0000_wp, 0.0000_wp, &
& 572.5452_wp, 410.5273_wp, 278.1125_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 874.7836_wp, 617.9985_wp, 403.9646_wp, 0.0000_wp, 0.0000_wp, &
& 808.5991_wp, 573.2139_wp, 377.6930_wp, 0.0000_wp, 0.0000_wp, &
& 763.3410_wp, 542.3655_wp, 359.4274_wp, 0.0000_wp, 0.0000_wp, &
& 669.7473_wp, 478.7132_wp, 321.7190_wp, 0.0000_wp, 0.0000_wp, &
& 575.5731_wp, 414.6203_wp, 283.5949_wp, 0.0000_wp, 0.0000_wp, &
& 711.7506_wp, 509.5503_wp, 343.7975_wp, 0.0000_wp, 0.0000_wp, &
& 697.8037_wp, 500.0071_wp, 337.9057_wp, 0.0000_wp, 0.0000_wp, &
& 676.2036_wp, 485.2461_wp, 328.9431_wp, 0.0000_wp, 0.0000_wp, &
& 646.4774_wp, 464.9254_wp, 316.7189_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 620.3334_wp, 448.1381_wp, 307.9733_wp, 0.0000_wp, 0.0000_wp, &
& 620.8918_wp, 448.4872_wp, 308.0920_wp, 0.0000_wp, 0.0000_wp, &
& 615.5317_wp, 444.7322_wp, 305.6508_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.8299_wp, 384.2901_wp, 268.9880_wp, 0.0000_wp, 0.0000_wp, &
& 531.3426_wp, 387.3876_wp, 270.8810_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 445.7013_wp, 328.1316_wp, 233.4581_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3520.9466_wp, 2411.4577_wp, 1244.1578_wp, 0.0000_wp, 0.0000_wp, &
& 1037.4434_wp, 726.8613_wp, 455.2460_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2813.7007_wp, 1920.9295_wp, 1091.2408_wp, 0.0000_wp, 0.0000_wp, &
& 2305.6086_wp, 1586.5402_wp, 890.7440_wp, 0.0000_wp, 0.0000_wp, &
& 1028.2536_wp, 725.1809_wp, 469.2639_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2365.8925_wp, 1624.3636_wp, 955.0153_wp, 0.0000_wp, 0.0000_wp, &
& 1624.3636_wp, 1132.2983_wp, 679.4591_wp, 0.0000_wp, 0.0000_wp, &
& 955.0153_wp, 679.4591_wp, 451.0845_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 63.7801_wp, 39.6669_wp, 36.5405_wp, 0.0000_wp, 0.0000_wp, &
& 107.7306_wp, 64.7068_wp, 58.8625_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 39.1088_wp, 25.7037_wp, 24.0883_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1363.2842_wp, 678.4810_wp, 562.1583_wp, 0.0000_wp, 0.0000_wp, &
& 391.9179_wp, 216.7170_wp, 190.2283_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 681.5283_wp, 374.0135_wp, 327.2192_wp, 0.0000_wp, 0.0000_wp, &
& 493.0100_wp, 275.3644_wp, 242.7264_wp, 0.0000_wp, 0.0000_wp, &
& 297.4750_wp, 175.6564_wp, 158.7442_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 423.2302_wp, 246.0147_wp, 220.8361_wp, 0.0000_wp, 0.0000_wp, &
& 350.1970_wp, 206.0014_wp, 185.7762_wp, 0.0000_wp, 0.0000_wp, &
& 289.2869_wp, 172.1810_wp, 155.9706_wp, 0.0000_wp, 0.0000_wp, &
& 209.9066_wp, 129.2409_wp, 118.6243_wp, 0.0000_wp, 0.0000_wp, &
& 196.1543_wp, 121.3842_wp, 111.6080_wp, 0.0000_wp, 0.0000_wp, &
& 269.0490_wp, 163.4548_wp, 149.2658_wp, 0.0000_wp, 0.0000_wp, &
& 252.8213_wp, 153.4229_wp, 139.9877_wp, 0.0000_wp, 0.0000_wp, &
& 200.7817_wp, 124.1920_wp, 114.1335_wp, 0.0000_wp, 0.0000_wp, &
& 187.8203_wp, 116.1973_wp, 106.7629_wp, 0.0000_wp, 0.0000_wp, &
& 148.0069_wp, 94.1173_wp, 87.3116_wp, 0.0000_wp, 0.0000_wp, &
& 179.7777_wp, 112.9339_wp, 104.3380_wp, 0.0000_wp, 0.0000_wp, &
& 167.5501_wp, 105.3151_wp, 97.2881_wp, 0.0000_wp, 0.0000_wp, &
& 156.4540_wp, 98.7165_wp, 91.3072_wp, 0.0000_wp, 0.0000_wp, &
& 136.9578_wp, 86.8035_wp, 80.3758_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 131.7852_wp, 84.7876_wp, 78.9339_wp, 0.0000_wp, 0.0000_wp, &
& 117.2328_wp, 75.8994_wp, 70.7865_wp, 0.0000_wp, 0.0000_wp, &
& 102.2836_wp, 66.7498_wp, 62.3893_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 97.0977_wp, 63.7680_wp, 59.7299_wp, 0.0000_wp, 0.0000_wp, &
& 76.6712_wp, 51.5158_wp, 48.5769_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 73.0315_wp, 48.7600_wp, 45.8824_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1616.2863_wp, 808.9973_wp, 672.4303_wp, 0.0000_wp, 0.0000_wp, &
& 581.2480_wp, 318.1678_wp, 277.7936_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1113.8339_wp, 600.5511_wp, 520.6868_wp, 0.0000_wp, 0.0000_wp, &
& 905.7750_wp, 493.3057_wp, 429.6462_wp, 0.0000_wp, 0.0000_wp, &
& 546.7935_wp, 314.6402_wp, 281.2950_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 985.0494_wp, 546.7176_wp, 480.7313_wp, 0.0000_wp, 0.0000_wp, &
& 883.8541_wp, 494.0245_wp, 435.7814_wp, 0.0000_wp, 0.0000_wp, &
& 665.0386_wp, 381.0309_wp, 339.8622_wp, 0.0000_wp, 0.0000_wp, &
& 494.9507_wp, 292.9765_wp, 265.0243_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 733.1807_wp, 423.6992_wp, 379.4212_wp, 0.0000_wp, 0.0000_wp, &
& 672.1834_wp, 390.7192_wp, 350.7076_wp, 0.0000_wp, 0.0000_wp, &
& 620.0792_wp, 362.5672_wp, 326.2431_wp, 0.0000_wp, 0.0000_wp, &
& 608.0848_wp, 354.0018_wp, 317.8567_wp, 0.0000_wp, 0.0000_wp, &
& 480.7318_wp, 287.9444_wp, 261.6469_wp, 0.0000_wp, 0.0000_wp, &
& 544.8882_wp, 326.0087_wp, 296.0806_wp, 0.0000_wp, 0.0000_wp, &
& 528.0841_wp, 316.3169_wp, 287.3830_wp, 0.0000_wp, 0.0000_wp, &
& 522.5721_wp, 312.3050_wp, 283.4537_wp, 0.0000_wp, 0.0000_wp, &
& 478.5196_wp, 288.6637_wp, 262.9675_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 438.3890_wp, 268.3077_wp, 245.7286_wp, 0.0000_wp, 0.0000_wp, &
& 433.9036_wp, 265.4089_wp, 243.0089_wp, 0.0000_wp, 0.0000_wp, &
& 424.8748_wp, 259.9991_wp, 238.0843_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 347.5334_wp, 217.4322_wp, 200.6665_wp, 0.0000_wp, 0.0000_wp, &
& 344.1318_wp, 215.2101_wp, 198.5775_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 276.9908_wp, 176.6690_wp, 164.0761_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2711.1542_wp, 1335.9899_wp, 1099.8393_wp, 0.0000_wp, 0.0000_wp, &
& 778.5238_wp, 435.0649_wp, 383.0224_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2048.5251_wp, 1070.9104_wp, 912.5205_wp, 0.0000_wp, 0.0000_wp, &
& 1637.9667_wp, 856.7131_wp, 729.6211_wp, 0.0000_wp, 0.0000_wp, &
& 768.2000_wp, 441.4951_wp, 394.1110_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1659.1156_wp, 879.0165_wp, 754.6182_wp, 0.0000_wp, 0.0000_wp, &
& 743.4318_wp, 429.3019_wp, 383.8645_wp, 0.0000_wp, 0.0000_wp, &
& 721.7837_wp, 421.5388_wp, 378.9395_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1574.1401_wp, 844.1565_wp, 729.1622_wp, 0.0000_wp, 0.0000_wp, &
& 716.8609_wp, 414.2030_wp, 370.5158_wp, 0.0000_wp, 0.0000_wp, &
& 729.4243_wp, 426.5157_wp, 383.5999_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1426.0687_wp, 770.4185_wp, 667.9695_wp, 0.0000_wp, 0.0000_wp, &
& 703.0784_wp, 406.0223_wp, 363.0711_wp, 0.0000_wp, 0.0000_wp, &
& 668.9667_wp, 390.6056_wp, 350.9659_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1121.5489_wp, 606.7040_wp, 525.9535_wp, 0.0000_wp, 0.0000_wp, &
& 700.5432_wp, 402.9200_wp, 359.6267_wp, 0.0000_wp, 0.0000_wp, &
& 485.9447_wp, 291.2297_wp, 264.3347_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1208.7451_wp, 660.1005_wp, 575.3920_wp, 0.0000_wp, 0.0000_wp, &
& 627.0790_wp, 367.7937_wp, 331.1873_wp, 0.0000_wp, 0.0000_wp, &
& 406.3267_wp, 247.5981_wp, 226.1684_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 945.1713_wp, 517.5812_wp, 451.4130_wp, 0.0000_wp, 0.0000_wp, &
& 575.7752_wp, 339.6278_wp, 306.5124_wp, 0.0000_wp, 0.0000_wp, &
& 399.9295_wp, 243.2086_wp, 221.9858_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 978.9767_wp, 544.6643_wp, 479.1089_wp, 0.0000_wp, 0.0000_wp, &
& 549.3294_wp, 323.9921_wp, 292.3514_wp, 0.0000_wp, 0.0000_wp, &
& 486.3325_wp, 288.0243_wp, 260.2108_wp, 0.0000_wp, 0.0000_wp, &
& 422.5208_wp, 254.6698_wp, 231.6783_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1019.7589_wp, 562.9344_wp, 493.3692_wp, 0.0000_wp, 0.0000_wp, &
& 538.2480_wp, 316.9417_wp, 285.7823_wp, 0.0000_wp, 0.0000_wp, &
& 448.1600_wp, 267.4973_wp, 242.4422_wp, 0.0000_wp, 0.0000_wp, &
& 481.5000_wp, 282.7021_wp, 254.4567_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 781.1133_wp, 431.5544_wp, 377.9964_wp, 0.0000_wp, 0.0000_wp, &
& 542.9499_wp, 314.9908_wp, 282.1724_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 774.5871_wp, 438.4080_wp, 388.7295_wp, 0.0000_wp, 0.0000_wp, &
& 490.5097_wp, 292.4005_wp, 265.0402_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 928.1982_wp, 521.1802_wp, 460.4959_wp, 0.0000_wp, 0.0000_wp, &
& 862.0363_wp, 487.8759_wp, 432.6309_wp, 0.0000_wp, 0.0000_wp, &
& 656.8592_wp, 382.1952_wp, 343.0520_wp, 0.0000_wp, 0.0000_wp, &
& 516.5656_wp, 309.1964_wp, 280.8241_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 782.9442_wp, 453.6905_wp, 406.6196_wp, 0.0000_wp, 0.0000_wp, &
& 724.9805_wp, 423.2076_wp, 380.4575_wp, 0.0000_wp, 0.0000_wp, &
& 685.2716_wp, 402.0877_wp, 362.2407_wp, 0.0000_wp, 0.0000_wp, &
& 603.1519_wp, 358.4772_wp, 324.6431_wp, 0.0000_wp, 0.0000_wp, &
& 520.4592_wp, 314.4398_wp, 286.6200_wp, 0.0000_wp, 0.0000_wp, &
& 641.5564_wp, 382.6458_wp, 347.0371_wp, 0.0000_wp, 0.0000_wp, &
& 629.2190_wp, 375.9179_wp, 341.1482_wp, 0.0000_wp, 0.0000_wp, &
& 610.1761_wp, 365.6312_wp, 332.1968_wp, 0.0000_wp, 0.0000_wp, &
& 584.0160_wp, 351.5641_wp, 319.9916_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 561.5474_wp, 341.0338_wp, 311.4245_wp, 0.0000_wp, 0.0000_wp, &
& 562.0001_wp, 341.2040_wp, 311.5368_wp, 0.0000_wp, 0.0000_wp, &
& 557.2071_wp, 338.4610_wp, 309.0838_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 479.0040_wp, 296.3944_wp, 272.4910_wp, 0.0000_wp, 0.0000_wp, &
& 482.9873_wp, 298.5634_wp, 274.3837_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 406.8727_wp, 256.1501_wp, 236.8855_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3017.6856_wp, 1493.7993_wp, 1232.9252_wp, 0.0000_wp, 0.0000_wp, &
& 920.1358_wp, 517.6961_wp, 457.0717_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2449.4723_wp, 1277.5813_wp, 1086.8394_wp, 0.0000_wp, 0.0000_wp, &
& 2003.7829_wp, 1044.3401_wp, 887.4810_wp, 0.0000_wp, 0.0000_wp, &
& 918.2378_wp, 528.6574_wp, 472.1081_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2072.6170_wp, 1106.6630_wp, 953.4821_wp, 0.0000_wp, 0.0000_wp, &
& 1429.3576_wp, 780.8212_wp, 680.2683_wp, 0.0000_wp, 0.0000_wp, &
& 857.6527_wp, 504.4325_wp, 454.7356_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1822.7181_wp, 987.8257_wp, 857.6011_wp, 0.0000_wp, 0.0000_wp, &
& 987.8257_wp, 568.6789_wp, 507.5216_wp, 0.0000_wp, 0.0000_wp, &
& 857.6011_wp, 507.5216_wp, 458.6896_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 58.6768_wp, 40.0304_wp, 35.3152_wp, 0.0000_wp, 0.0000_wp, &
& 98.5183_wp, 65.3129_wp, 56.8466_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 36.3418_wp, 25.9534_wp, 23.3592_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1209.0304_wp, 684.1040_wp, 549.6114_wp, 0.0000_wp, 0.0000_wp, &
& 353.5008_wp, 218.9706_wp, 184.1222_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 613.9850_wp, 377.9693_wp, 316.7162_wp, 0.0000_wp, 0.0000_wp, &
& 445.3736_wp, 278.0881_wp, 234.9568_wp, 0.0000_wp, 0.0000_wp, &
& 271.2606_wp, 177.3357_wp, 153.2948_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 384.9072_wp, 248.4266_wp, 213.3735_wp, 0.0000_wp, 0.0000_wp, &
& 319.1151_wp, 207.9943_wp, 179.5291_wp, 0.0000_wp, 0.0000_wp, &
& 264.1285_wp, 173.7946_wp, 150.7698_wp, 0.0000_wp, 0.0000_wp, &
& 192.7765_wp, 130.4379_wp, 114.6328_wp, 0.0000_wp, 0.0000_wp, &
& 180.3042_wp, 122.5075_wp, 107.8711_wp, 0.0000_wp, 0.0000_wp, &
& 246.5241_wp, 164.9980_wp, 144.2558_wp, 0.0000_wp, 0.0000_wp, &
& 231.5976_wp, 154.8764_wp, 135.3493_wp, 0.0000_wp, 0.0000_wp, &
& 184.5477_wp, 125.3625_wp, 110.3639_wp, 0.0000_wp, 0.0000_wp, &
& 172.6395_wp, 117.3051_wp, 103.2775_wp, 0.0000_wp, 0.0000_wp, &
& 136.7050_wp, 95.0009_wp, 84.5041_wp, 0.0000_wp, 0.0000_wp, &
& 165.6943_wp, 113.9989_wp, 100.9460_wp, 0.0000_wp, 0.0000_wp, &
& 154.4356_wp, 106.3141_wp, 94.1631_wp, 0.0000_wp, 0.0000_wp, &
& 144.3122_wp, 99.6625_wp, 88.3944_wp, 0.0000_wp, 0.0000_wp, &
& 126.4307_wp, 87.6504_wp, 77.8681_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 121.9868_wp, 85.6024_wp, 76.4658_wp, 0.0000_wp, 0.0000_wp, &
& 108.6378_wp, 76.6347_wp, 68.6087_wp, 0.0000_wp, 0.0000_wp, &
& 94.9281_wp, 67.4128_wp, 60.5217_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 90.2234_wp, 64.4010_wp, 57.9467_wp, 0.0000_wp, 0.0000_wp, &
& 71.5493_wp, 52.0412_wp, 47.1941_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 68.0769_wp, 49.2635_wp, 44.5776_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1434.6641_wp, 816.0317_wp, 657.1151_wp, 0.0000_wp, 0.0000_wp, &
& 523.4058_wp, 321.5378_wp, 269.1778_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1000.5663_wp, 607.0073_wp, 504.6753_wp, 0.0000_wp, 0.0000_wp, &
& 814.9289_wp, 498.3486_wp, 416.4183_wp, 0.0000_wp, 0.0000_wp, &
& 496.4807_wp, 317.7923_wp, 271.7876_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 889.0302_wp, 552.3550_wp, 465.2259_wp, 0.0000_wp, 0.0000_wp, &
& 798.6094_wp, 499.0761_wp, 421.6461_wp, 0.0000_wp, 0.0000_wp, &
& 603.3575_wp, 384.7678_wp, 328.5727_wp, 0.0000_wp, 0.0000_wp, &
& 451.5308_wp, 295.7786_wp, 255.9320_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 666.1507_wp, 427.8837_wp, 366.6169_wp, 0.0000_wp, 0.0000_wp, &
& 611.3147_wp, 394.5403_wp, 338.8785_wp, 0.0000_wp, 0.0000_wp, &
& 564.4901_wp, 366.0984_wp, 315.2073_wp, 0.0000_wp, 0.0000_wp, &
& 553.1447_wp, 357.4612_wp, 307.2381_wp, 0.0000_wp, 0.0000_wp, &
& 439.4281_wp, 290.6641_wp, 252.7061_wp, 0.0000_wp, 0.0000_wp, &
& 497.9703_wp, 329.0947_wp, 285.9926_wp, 0.0000_wp, 0.0000_wp, &
& 482.7036_wp, 319.3099_wp, 277.6188_wp, 0.0000_wp, 0.0000_wp, &
& 477.4772_wp, 315.2763_wp, 273.8649_wp, 0.0000_wp, 0.0000_wp, &
& 437.9280_wp, 291.3813_wp, 254.0460_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 402.1974_wp, 270.8059_wp, 237.4448_wp, 0.0000_wp, 0.0000_wp, &
& 398.0419_wp, 267.8858_wp, 234.8321_wp, 0.0000_wp, 0.0000_wp, &
& 389.7889_wp, 262.4295_wp, 230.0871_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 320.0676_wp, 219.4462_wp, 194.0301_wp, 0.0000_wp, 0.0000_wp, &
& 316.9110_wp, 217.2078_wp, 192.0192_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 255.9769_wp, 178.3183_wp, 158.7915_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2400.6918_wp, 1343.3714_wp, 1078.8336_wp, 0.0000_wp, 0.0000_wp, &
& 703.3060_wp, 439.5228_wp, 371.4433_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1830.8523_wp, 1081.9930_wp, 887.6167_wp, 0.0000_wp, 0.0000_wp, &
& 1463.8890_wp, 864.1411_wp, 710.7573_wp, 0.0000_wp, 0.0000_wp, &
& 697.3148_wp, 445.9895_wp, 381.2592_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1486.0620_wp, 888.3356_wp, 733.0114_wp, 0.0000_wp, 0.0000_wp, &
& 675.3314_wp, 433.7865_wp, 371.3244_wp, 0.0000_wp, 0.0000_wp, &
& 656.9546_wp, 425.7299_wp, 366.3716_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1412.6818_wp, 853.0464_wp, 707.8111_wp, 0.0000_wp, 0.0000_wp, &
& 651.2847_wp, 418.3068_wp, 358.5232_wp, 0.0000_wp, 0.0000_wp, &
& 664.0452_wp, 430.7613_wp, 370.8800_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1281.3349_wp, 778.5266_wp, 648.1120_wp, 0.0000_wp, 0.0000_wp, &
& 638.7014_wp, 410.1033_wp, 351.3471_wp, 0.0000_wp, 0.0000_wp, &
& 608.8442_wp, 394.4854_wp, 339.4910_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1007.8571_wp, 613.0224_wp, 510.7385_wp, 0.0000_wp, 0.0000_wp, &
& 635.9639_wp, 406.9894_wp, 348.1021_wp, 0.0000_wp, 0.0000_wp, &
& 444.2328_wp, 294.1186_wp, 255.7658_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1087.9837_wp, 667.0305_wp, 557.9514_wp, 0.0000_wp, 0.0000_wp, &
& 571.1862_wp, 371.4691_wp, 320.2256_wp, 0.0000_wp, 0.0000_wp, &
& 372.5215_wp, 250.0266_wp, 218.8458_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 851.0634_wp, 523.0020_wp, 438.0603_wp, 0.0000_wp, 0.0000_wp, &
& 524.9588_wp, 343.0012_wp, 296.3749_wp, 0.0000_wp, 0.0000_wp, &
& 366.5329_wp, 245.6037_wp, 214.8053_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 883.8890_wp, 550.4092_wp, 464.0668_wp, 0.0000_wp, 0.0000_wp, &
& 500.8355_wp, 327.1995_wp, 282.7396_wp, 0.0000_wp, 0.0000_wp, &
& 443.7007_wp, 290.8988_wp, 251.7856_wp, 0.0000_wp, 0.0000_wp, &
& 386.6491_wp, 257.1961_wp, 224.1590_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 919.5354_wp, 568.9088_wp, 478.0372_wp, 0.0000_wp, 0.0000_wp, &
& 490.5973_wp, 320.0960_wp, 276.4113_wp, 0.0000_wp, 0.0000_wp, &
& 409.4287_wp, 270.1688_wp, 234.5558_wp, 0.0000_wp, 0.0000_wp, &
& 438.6502_wp, 285.5945_wp, 246.3077_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 704.3789_wp, 436.1042_wp, 366.6648_wp, 0.0000_wp, 0.0000_wp, &
& 493.6363_wp, 318.2136_wp, 273.1065_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 701.3549_wp, 442.9886_wp, 376.2399_wp, 0.0000_wp, 0.0000_wp, &
& 448.0328_wp, 295.2762_wp, 256.2171_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 839.2828_wp, 526.4964_wp, 445.7279_wp, 0.0000_wp, 0.0000_wp, &
& 780.4805_wp, 492.8316_wp, 418.6209_wp, 0.0000_wp, 0.0000_wp, &
& 597.4745_wp, 385.9385_wp, 331.6718_wp, 0.0000_wp, 0.0000_wp, &
& 472.1406_wp, 312.1568_wp, 271.3137_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 711.6823_wp, 458.1920_wp, 393.0366_wp, 0.0000_wp, 0.0000_wp, &
& 659.8039_wp, 427.3622_wp, 367.7137_wp, 0.0000_wp, 0.0000_wp, &
& 624.2061_wp, 406.0194_wp, 350.0801_wp, 0.0000_wp, 0.0000_wp, &
& 550.6011_wp, 361.9295_wp, 313.6909_wp, 0.0000_wp, 0.0000_wp, &
& 476.4489_wp, 317.4077_wp, 276.8993_wp, 0.0000_wp, 0.0000_wp, &
& 586.0084_wp, 386.3091_wp, 335.2921_wp, 0.0000_wp, 0.0000_wp, &
& 574.9009_wp, 379.5097_wp, 329.6139_wp, 0.0000_wp, 0.0000_wp, &
& 557.7850_wp, 369.1125_wp, 320.9667_wp, 0.0000_wp, 0.0000_wp, &
& 534.2915_wp, 354.8970_wp, 309.1643_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 514.5077_wp, 344.2425_wp, 300.9258_wp, 0.0000_wp, 0.0000_wp, &
& 514.8945_wp, 344.4169_wp, 301.0426_wp, 0.0000_wp, 0.0000_wp, &
& 510.5464_wp, 341.6492_wp, 298.6808_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.2999_wp, 299.1535_wp, 263.4034_wp, 0.0000_wp, 0.0000_wp, &
& 443.8848_wp, 301.3463_wp, 265.2340_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 856:950) = reshape([ &
& 375.1339_wp, 258.5304_wp, 229.1191_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2673.9344_wp, 1501.7789_wp, 1209.2081_wp, 0.0000_wp, 0.0000_wp, &
& 832.1368_wp, 522.9449_wp, 443.2682_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2188.2864_wp, 1290.4826_wp, 1057.8748_wp, 0.0000_wp, 0.0000_wp, &
& 1789.7638_wp, 1052.8629_wp, 865.2462_wp, 0.0000_wp, 0.0000_wp, &
& 833.7135_wp, 534.0203_wp, 456.8822_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1858.6377_wp, 1118.1402_wp, 926.1439_wp, 0.0000_wp, 0.0000_wp, &
& 1286.4770_wp, 787.4950_wp, 660.7377_wp, 0.0000_wp, 0.0000_wp, &
& 781.5377_wp, 509.4181_wp, 439.6548_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1638.4938_wp, 998.1224_wp, 832.1743_wp, 0.0000_wp, 0.0000_wp, &
& 896.7952_wp, 574.4591_wp, 491.3081_wp, 0.0000_wp, 0.0000_wp, &
& 782.3088_wp, 512.4995_wp, 443.4182_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1475.2500_wp, 906.0801_wp, 758.7789_wp, 0.0000_wp, 0.0000_wp, &
& 906.0801_wp, 580.5824_wp, 496.1127_wp, 0.0000_wp, 0.0000_wp, &
& 758.7789_wp, 496.1127_wp, 428.8962_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 46.0406_wp, 37.5478_wp, 31.6681_wp, 0.0000_wp, 0.0000_wp, &
& 76.3661_wp, 60.9773_wp, 50.4173_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.1617_wp, 24.5530_wp, 21.3516_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 890.5126_wp, 628.1817_wp, 461.5751_wp, 0.0000_wp, 0.0000_wp, &
& 267.3761_wp, 202.5173_wp, 159.4404_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 463.3065_wp, 349.1897_wp, 273.5446_wp, 0.0000_wp, 0.0000_wp, &
& 337.9035_wp, 257.6088_wp, 204.1519_wp, 0.0000_wp, 0.0000_wp, &
& 209.0959_wp, 165.2066_wp, 135.2428_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 295.3592_wp, 231.0449_wp, 187.4666_wp, 0.0000_wp, 0.0000_wp, &
& 245.8527_wp, 193.7557_wp, 158.3563_wp, 0.0000_wp, 0.0000_wp, &
& 204.3092_wp, 162.1983_wp, 133.5090_wp, 0.0000_wp, 0.0000_wp, &
& 150.7447_wp, 122.1941_wp, 102.4883_wp, 0.0000_wp, 0.0000_wp, &
& 141.2522_wp, 114.8462_wp, 96.6030_wp, 0.0000_wp, 0.0000_wp, &
& 191.9528_wp, 154.3288_wp, 128.4978_wp, 0.0000_wp, 0.0000_wp, &
& 180.3390_wp, 144.8738_wp, 120.5946_wp, 0.0000_wp, 0.0000_wp, &
& 144.6355_wp, 117.5524_wp, 98.8903_wp, 0.0000_wp, 0.0000_wp, &
& 135.3716_wp, 110.0255_wp, 92.5983_wp, 0.0000_wp, 0.0000_wp, &
& 108.2356_wp, 89.4229_wp, 76.3869_wp, 0.0000_wp, 0.0000_wp, &
& 130.6045_wp, 107.1304_wp, 90.9043_wp, 0.0000_wp, 0.0000_wp, &
& 121.8066_wp, 99.9381_wp, 84.8582_wp, 0.0000_wp, 0.0000_wp, &
& 114.0004_wp, 93.7434_wp, 79.7672_wp, 0.0000_wp, 0.0000_wp, &
& 100.1080_wp, 82.5251_wp, 70.4244_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 97.0675_wp, 80.7360_wp, 69.4181_wp, 0.0000_wp, 0.0000_wp, &
& 86.6803_wp, 72.3520_wp, 62.4324_wp, 0.0000_wp, 0.0000_wp, &
& 76.0239_wp, 63.7402_wp, 55.2484_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 72.4186_wp, 60.9414_wp, 52.9845_wp, 0.0000_wp, 0.0000_wp, &
& 57.9784_wp, 49.4166_wp, 43.4760_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 55.0487_wp, 46.7498_wp, 41.0035_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1058.3899_wp, 749.4974_wp, 553.0357_wp, 0.0000_wp, 0.0000_wp, &
& 395.0058_wp, 297.1713_wp, 232.5932_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 751.6628_wp, 559.8856_wp, 433.8278_wp, 0.0000_wp, 0.0000_wp, &
& 614.0265_wp, 460.4234_wp, 359.1888_wp, 0.0000_wp, 0.0000_wp, &
& 379.7626_wp, 295.1816_wp, 238.0169_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 673.1193_wp, 511.0810_wp, 403.2914_wp, 0.0000_wp, 0.0000_wp, &
& 605.9135_wp, 462.1678_wp, 366.3171_wp, 0.0000_wp, 0.0000_wp, &
& 461.0586_wp, 357.3576_wp, 287.5225_wp, 0.0000_wp, 0.0000_wp, &
& 348.3397_wp, 275.6435_wp, 225.9636_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 510.2352_wp, 397.6602_wp, 321.5163_wp, 0.0000_wp, 0.0000_wp, &
& 469.1092_wp, 366.9549_wp, 297.7436_wp, 0.0000_wp, 0.0000_wp, &
& 433.9678_wp, 340.7358_wp, 277.4312_wp, 0.0000_wp, 0.0000_wp, &
& 424.8072_wp, 332.5980_wp, 270.1899_wp, 0.0000_wp, 0.0000_wp, &
& 340.3478_wp, 271.2960_wp, 223.9586_wp, 0.0000_wp, 0.0000_wp, &
& 385.5895_wp, 307.1384_wp, 253.4123_wp, 0.0000_wp, 0.0000_wp, &
& 373.9427_wp, 298.0661_wp, 246.1086_wp, 0.0000_wp, 0.0000_wp, &
& 369.6794_wp, 294.2436_wp, 242.6676_wp, 0.0000_wp, 0.0000_wp, &
& 340.0592_wp, 272.2421_wp, 225.7030_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 313.8657_wp, 253.4985_wp, 211.9069_wp, 0.0000_wp, 0.0000_wp, &
& 310.5861_wp, 250.7573_wp, 209.5599_wp, 0.0000_wp, 0.0000_wp, &
& 304.2109_wp, 245.6719_wp, 205.3695_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 251.7723_wp, 206.0459_wp, 174.3920_wp, 0.0000_wp, 0.0000_wp, &
& 249.2671_wp, 203.9397_wp, 172.5758_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 202.8572_wp, 167.9014_wp, 143.6389_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1765.8946_wp, 1237.9643_wp, 905.0848_wp, 0.0000_wp, 0.0000_wp, &
& 534.6303_wp, 407.5906_wp, 323.6381_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1365.4837_wp, 996.0157_wp, 757.0858_wp, 0.0000_wp, 0.0000_wp, &
& 1092.6733_wp, 797.4773_wp, 607.0919_wp, 0.0000_wp, 0.0000_wp, &
& 533.7978_wp, 414.4811_wp, 334.3206_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1112.0098_wp, 818.5161_wp, 627.5560_wp, 0.0000_wp, 0.0000_wp, &
& 517.7340_wp, 403.1540_wp, 326.0787_wp, 0.0000_wp, 0.0000_wp, &
& 505.2346_wp, 396.3470_wp, 322.6655_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1060.6255_wp, 787.0565_wp, 608.3000_wp, 0.0000_wp, 0.0000_wp, &
& 499.5011_wp, 389.1787_wp, 314.9983_wp, 0.0000_wp, 0.0000_wp, &
& 510.8967_wp, 401.0919_wp, 326.7670_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 963.9434_wp, 718.8469_wp, 558.2324_wp, 0.0000_wp, 0.0000_wp, &
& 489.8160_wp, 381.4804_wp, 308.6801_wp, 0.0000_wp, 0.0000_wp, &
& 468.4059_wp, 367.3750_wp, 299.1495_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 758.9955_wp, 566.4300_wp, 440.5516_wp, 0.0000_wp, 0.0000_wp, &
& 487.1911_wp, 378.4474_wp, 305.5273_wp, 0.0000_wp, 0.0000_wp, &
& 344.8105_wp, 274.8422_wp, 227.2947_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 820.9313_wp, 616.5993_wp, 482.1362_wp, 0.0000_wp, 0.0000_wp, &
& 439.9326_wp, 346.0423_wp, 282.4334_wp, 0.0000_wp, 0.0000_wp, &
& 290.7494_wp, 234.1315_wp, 195.4456_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 643.1247_wp, 483.8537_wp, 379.2688_wp, 0.0000_wp, 0.0000_wp, &
& 405.0817_wp, 319.7637_wp, 261.8630_wp, 0.0000_wp, 0.0000_wp, &
& 285.8977_wp, 229.9399_wp, 191.7333_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 670.3490_wp, 509.6999_wp, 403.1484_wp, 0.0000_wp, 0.0000_wp, &
& 386.5245_wp, 305.0887_wp, 249.8695_wp, 0.0000_wp, 0.0000_wp, &
& 343.0710_wp, 271.4559_wp, 222.9546_wp, 0.0000_wp, 0.0000_wp, &
& 300.6753_wp, 240.5139_wp, 199.5325_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 695.8348_wp, 526.3795_wp, 414.3156_wp, 0.0000_wp, 0.0000_wp, &
& 378.4594_wp, 298.4129_wp, 244.1847_wp, 0.0000_wp, 0.0000_wp, &
& 317.3472_wp, 252.3281_wp, 208.1570_wp, 0.0000_wp, 0.0000_wp, &
& 338.3535_wp, 266.2568_wp, 217.6457_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.6535_wp, 403.8400_wp, 318.3239_wp, 0.0000_wp, 0.0000_wp, &
& 379.2299_wp, 296.1989_wp, 240.3673_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 534.5207_wp, 410.9866_wp, 328.4707_wp, 0.0000_wp, 0.0000_wp, &
& 346.8387_wp, 275.6055_wp, 227.0405_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 637.9233_wp, 487.9858_wp, 388.0446_wp, 0.0000_wp, 0.0000_wp, &
& 594.5765_wp, 457.1641_wp, 365.2802_wp, 0.0000_wp, 0.0000_wp, &
& 458.8906_wp, 359.1580_wp, 291.7241_wp, 0.0000_wp, 0.0000_wp, &
& 365.7390_wp, 291.3944_wp, 240.5109_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 545.7845_wp, 426.0703_wp, 345.1578_wp, 0.0000_wp, 0.0000_wp, &
& 507.1503_wp, 397.7592_wp, 323.6293_wp, 0.0000_wp, 0.0000_wp, &
& 480.5552_wp, 378.1231_wp, 308.5781_wp, 0.0000_wp, 0.0000_wp, &
& 425.5849_wp, 337.5775_wp, 277.5321_wp, 0.0000_wp, 0.0000_wp, &
& 370.1677_wp, 296.6250_wp, 246.1182_wp, 0.0000_wp, 0.0000_wp, &
& 453.4186_wp, 360.4496_wp, 296.9165_wp, 0.0000_wp, 0.0000_wp, &
& 445.0799_wp, 354.1868_wp, 292.0475_wp, 0.0000_wp, 0.0000_wp, &
& 432.2496_wp, 344.6133_wp, 284.6411_wp, 0.0000_wp, 0.0000_wp, &
& 414.6509_wp, 331.5230_wp, 274.5376_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 400.4998_wp, 321.9415_wp, 267.9623_wp, 0.0000_wp, 0.0000_wp, &
& 400.7722_wp, 322.0978_wp, 268.0526_wp, 0.0000_wp, 0.0000_wp, &
& 397.4644_wp, 319.5340_wp, 265.9986_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 344.9826_wp, 280.4702_wp, 235.9264_wp, 0.0000_wp, 0.0000_wp, &
& 347.6800_wp, 282.4933_wp, 237.5019_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 295.7994_wp, 242.9684_wp, 206.3637_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1969.4796_wp, 1385.1228_wp, 1016.3718_wp, 0.0000_wp, 0.0000_wp, &
& 633.9471_wp, 485.4129_wp, 387.1236_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1631.5424_wp, 1188.1982_wp, 902.1097_wp, 0.0000_wp, 0.0000_wp, &
& 1335.0700_wp, 972.1233_wp, 738.6401_wp, 0.0000_wp, 0.0000_wp, &
& 638.7768_wp, 496.5128_wp, 401.0541_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1394.0976_wp, 1031.4745_wp, 795.1764_wp, 0.0000_wp, 0.0000_wp, &
& 971.5959_wp, 730.1446_wp, 571.8530_wp, 0.0000_wp, 0.0000_wp, &
& 602.4253_wp, 474.6807_wp, 388.0718_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1233.9095_wp, 922.0660_wp, 717.6632_wp, 0.0000_wp, 0.0000_wp, &
& 687.1848_wp, 534.0108_wp, 431.3512_wp, 0.0000_wp, 0.0000_wp, &
& 604.1475_wp, 477.8870_wp, 392.0655_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1114.0924_wp, 837.9849_wp, 656.3774_wp, 0.0000_wp, 0.0000_wp, &
& 694.2983_wp, 539.3532_wp, 435.5692_wp, 0.0000_wp, 0.0000_wp, &
& 585.8126_wp, 462.6546_wp, 379.2075_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 845.8972_wp, 643.4721_wp, 509.7424_wp, 0.0000_wp, 0.0000_wp, &
& 643.4721_wp, 502.0073_wp, 407.0659_wp, 0.0000_wp, 0.0000_wp, &
& 509.7424_wp, 407.0659_wp, 337.1075_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 51.0527_wp, 41.3385_wp, 28.2627_wp, 0.0000_wp, 0.0000_wp, &
& 85.0800_wp, 67.8924_wp, 44.5963_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 32.0588_wp, 26.6217_wp, 19.3556_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1011.6099_wp, 763.7814_wp, 391.4255_wp, 0.0000_wp, 0.0000_wp, &
& 300.6533_wp, 232.9539_wp, 138.3613_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 521.4249_wp, 402.7727_wp, 236.8457_wp, 0.0000_wp, 0.0000_wp, &
& 379.5254_wp, 295.3816_wp, 177.6837_wp, 0.0000_wp, 0.0000_wp, &
& 233.4606_wp, 185.0244_wp, 119.1206_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 330.3257_wp, 260.3796_wp, 164.5777_wp, 0.0000_wp, 0.0000_wp, &
& 274.5334_wp, 217.4762_wp, 139.4763_wp, 0.0000_wp, 0.0000_wp, &
& 227.7959_wp, 181.3885_wp, 117.9758_wp, 0.0000_wp, 0.0000_wp, &
& 167.3783_wp, 134.9705_wp, 91.2518_wp, 0.0000_wp, 0.0000_wp, &
& 156.7256_wp, 126.6571_wp, 86.1276_wp, 0.0000_wp, 0.0000_wp, &
& 213.4799_wp, 171.2581_wp, 114.0774_wp, 0.0000_wp, 0.0000_wp, &
& 200.5464_wp, 160.9223_wp, 107.0906_wp, 0.0000_wp, 0.0000_wp, &
& 160.4520_wp, 129.7079_wp, 88.2158_wp, 0.0000_wp, 0.0000_wp, &
& 150.1398_wp, 121.4381_wp, 82.6496_wp, 0.0000_wp, 0.0000_wp, &
& 119.5995_wp, 97.8417_wp, 68.6237_wp, 0.0000_wp, 0.0000_wp, &
& 144.5697_wp, 117.6479_wp, 81.4217_wp, 0.0000_wp, 0.0000_wp, &
& 134.7887_wp, 109.7755_wp, 76.0532_wp, 0.0000_wp, 0.0000_wp, &
& 126.0801_wp, 102.8506_wp, 71.5723_wp, 0.0000_wp, 0.0000_wp, &
& 110.6119_wp, 90.4660_wp, 63.3081_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 107.0588_wp, 88.0609_wp, 62.5886_wp, 0.0000_wp, 0.0000_wp, &
& 95.4966_wp, 78.7920_wp, 56.3962_wp, 0.0000_wp, 0.0000_wp, &
& 83.6409_wp, 69.2838_wp, 50.0406_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 79.6121_wp, 66.1093_wp, 48.0540_wp, 0.0000_wp, 0.0000_wp, &
& 63.5079_wp, 53.2880_wp, 39.6668_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 60.3521_wp, 50.5087_wp, 37.3723_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1201.5234_wp, 908.4025_wp, 469.7696_wp, 0.0000_wp, 0.0000_wp, &
& 444.5269_wp, 343.5592_wp, 201.5403_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 847.3497_wp, 651.2564_wp, 374.2691_wp, 0.0000_wp, 0.0000_wp, &
& 691.4497_wp, 533.7085_wp, 310.8083_wp, 0.0000_wp, 0.0000_wp, &
& 425.2656_wp, 333.8166_wp, 208.4131_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 756.6195_wp, 586.9862_wp, 350.2804_wp, 0.0000_wp, 0.0000_wp, &
& 680.5427_wp, 529.3043_wp, 318.7388_wp, 0.0000_wp, 0.0000_wp, &
& 516.4766_wp, 405.2011_wp, 251.6421_wp, 0.0000_wp, 0.0000_wp, &
& 388.8226_wp, 308.4359_wp, 199.1588_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 571.0501_wp, 449.1191_wp, 281.8480_wp, 0.0000_wp, 0.0000_wp, &
& 524.6479_wp, 413.5991_wp, 261.4105_wp, 0.0000_wp, 0.0000_wp, &
& 485.0098_wp, 383.1734_wp, 243.9188_wp, 0.0000_wp, 0.0000_wp, &
& 474.9418_wp, 374.8284_wp, 237.4146_wp, 0.0000_wp, 0.0000_wp, &
& 379.3148_wp, 302.3644_wp, 197.9963_wp, 0.0000_wp, 0.0000_wp, &
& 429.7677_wp, 342.4883_wp, 224.0034_wp, 0.0000_wp, 0.0000_wp, &
& 416.7080_wp, 332.2783_wp, 217.6347_wp, 0.0000_wp, 0.0000_wp, &
& 412.0413_wp, 328.3317_wp, 214.5176_wp, 0.0000_wp, 0.0000_wp, &
& 378.6058_wp, 302.7493_wp, 199.9418_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.7744_wp, 280.5613_wp, 188.4044_wp, 0.0000_wp, 0.0000_wp, &
& 345.1434_wp, 277.6002_wp, 186.3093_wp, 0.0000_wp, 0.0000_wp, &
& 338.0296_wp, 271.9434_wp, 182.6170_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 278.9123_wp, 226.4833_wp, 155.9405_wp, 0.0000_wp, 0.0000_wp, &
& 276.1455_wp, 224.2095_wp, 154.3118_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 224.0794_wp, 183.5205_wp, 129.1105_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2007.6137_wp, 1518.8755_wp, 767.9339_wp, 0.0000_wp, 0.0000_wp, &
& 599.9302_wp, 468.0977_wp, 282.4384_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1543.4258_wp, 1178.3302_wp, 649.5000_wp, 0.0000_wp, 0.0000_wp, &
& 1234.9316_wp, 945.9943_wp, 521.8458_wp, 0.0000_wp, 0.0000_wp, &
& 597.4915_wp, 469.5752_wp, 293.1198_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1255.3446_wp, 961.3657_wp, 539.8662_wp, 0.0000_wp, 0.0000_wp, &
& 579.1623_wp, 455.9109_wp, 286.2241_wp, 0.0000_wp, 0.0000_wp, &
& 564.5560_wp, 446.1492_wp, 283.8784_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1195.8434_wp, 919.3099_wp, 524.9173_wp, 0.0000_wp, 0.0000_wp, &
& 558.7211_wp, 440.2561_wp, 276.6567_wp, 0.0000_wp, 0.0000_wp, &
& 570.7922_wp, 451.2866_wp, 287.5807_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1086.0231_wp, 836.7341_wp, 482.5622_wp, 0.0000_wp, 0.0000_wp, &
& 547.8906_wp, 431.6391_wp, 271.1001_wp, 0.0000_wp, 0.0000_wp, &
& 523.3223_wp, 413.8230_wp, 263.3409_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 854.7474_wp, 659.7201_wp, 381.4006_wp, 0.0000_wp, 0.0000_wp, &
& 545.1724_wp, 428.9662_wp, 268.1325_wp, 0.0000_wp, 0.0000_wp, &
& 383.9186_wp, 306.7585_wp, 201.4707_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 923.8743_wp, 714.1830_wp, 417.8614_wp, 0.0000_wp, 0.0000_wp, &
& 491.3210_wp, 388.9066_wp, 248.7895_wp, 0.0000_wp, 0.0000_wp, &
& 323.0552_wp, 259.8051_wp, 173.9292_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 723.3202_wp, 560.3648_wp, 329.3116_wp, 0.0000_wp, 0.0000_wp, &
& 452.0831_wp, 358.6562_wp, 231.0081_wp, 0.0000_wp, 0.0000_wp, &
& 317.7432_wp, 255.3330_wp, 170.5557_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 752.9678_wp, 585.2935_wp, 350.8564_wp, 0.0000_wp, 0.0000_wp, &
& 431.3478_wp, 342.2979_wp, 220.4802_wp, 0.0000_wp, 0.0000_wp, &
& 382.5646_wp, 304.2749_wp, 197.0680_wp, 0.0000_wp, 0.0000_wp, &
& 334.5583_wp, 267.8666_wp, 177.1019_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 782.2483_wp, 606.4740_wp, 359.9017_wp, 0.0000_wp, 0.0000_wp, &
& 422.4144_wp, 335.0287_wp, 215.4030_wp, 0.0000_wp, 0.0000_wp, &
& 353.5546_wp, 281.9707_wp, 184.3086_wp, 0.0000_wp, 0.0000_wp, &
& 377.6302_wp, 299.4461_wp, 192.0591_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 599.6192_wp, 465.8147_wp, 276.9970_wp, 0.0000_wp, 0.0000_wp, &
& 423.9154_wp, 334.5615_wp, 211.4238_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 599.3141_wp, 468.4529_wp, 286.9927_wp, 0.0000_wp, 0.0000_wp, &
& 386.6256_wp, 307.8815_wp, 200.7562_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 715.9811_wp, 558.1522_wp, 338.2627_wp, 0.0000_wp, 0.0000_wp, &
& 666.7601_wp, 521.1441_wp, 318.9968_wp, 0.0000_wp, 0.0000_wp, &
& 513.0410_wp, 404.9175_wp, 256.3933_wp, 0.0000_wp, 0.0000_wp, &
& 407.5902_wp, 324.9095_wp, 212.6937_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 610.5327_wp, 480.8926_wp, 302.9389_wp, 0.0000_wp, 0.0000_wp, &
& 566.8294_wp, 447.7131_wp, 284.5505_wp, 0.0000_wp, 0.0000_wp, &
& 536.7795_wp, 424.7791_wp, 271.6474_wp, 0.0000_wp, 0.0000_wp, &
& 474.6638_wp, 377.4276_wp, 245.0471_wp, 0.0000_wp, 0.0000_wp, &
& 412.0594_wp, 329.6696_wp, 218.1156_wp, 0.0000_wp, 0.0000_wp, &
& 505.5091_wp, 402.4540_wp, 262.3480_wp, 0.0000_wp, 0.0000_wp, &
& 496.1023_wp, 395.2472_wp, 258.1617_wp, 0.0000_wp, 0.0000_wp, &
& 481.6229_wp, 384.1644_wp, 251.7973_wp, 0.0000_wp, 0.0000_wp, &
& 461.7577_wp, 368.9607_wp, 243.1165_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 445.4778_wp, 357.2511_wp, 237.8235_wp, 0.0000_wp, 0.0000_wp, &
& 445.7916_wp, 357.4737_wp, 237.8953_wp, 0.0000_wp, 0.0000_wp, &
& 442.0786_wp, 354.5768_wp, 236.1084_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 382.7591_wp, 309.3530_wp, 210.3812_wp, 0.0000_wp, 0.0000_wp, &
& 385.7986_wp, 311.6901_wp, 211.7410_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.3827_wp, 266.5777_wp, 184.8477_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2237.9665_wp, 1696.1214_wp, 863.7655_wp, 0.0000_wp, 0.0000_wp, &
& 710.7779_wp, 556.1255_wp, 338.5014_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1844.3774_wp, 1408.3895_wp, 773.9463_wp, 0.0000_wp, 0.0000_wp, &
& 1509.2981_wp, 1156.2604_wp, 634.8168_wp, 0.0000_wp, 0.0000_wp, &
& 714.7188_wp, 562.4313_wp, 351.9564_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1572.3759_wp, 1207.9868_wp, 685.7489_wp, 0.0000_wp, 0.0000_wp, &
& 1093.2424_wp, 848.3727_wp, 496.6399_wp, 0.0000_wp, 0.0000_wp, &
& 672.5553_wp, 532.9719_wp, 342.0346_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1389.5979_wp, 1072.1935_wp, 621.0438_wp, 0.0000_wp, 0.0000_wp, &
& 768.8428_wp, 605.3389_wp, 378.6511_wp, 0.0000_wp, 0.0000_wp, &
& 674.0068_wp, 535.3153_wp, 346.0266_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1253.3465_wp, 970.2070_wp, 569.4159_wp, 0.0000_wp, 0.0000_wp, &
& 776.7368_wp, 611.2764_wp, 382.3225_wp, 0.0000_wp, 0.0000_wp, &
& 653.6028_wp, 519.0845_wp, 334.7174_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 949.6490_wp, 739.7915_wp, 444.3471_wp, 0.0000_wp, 0.0000_wp, &
& 719.3659_wp, 567.7670_wp, 357.9634_wp, 0.0000_wp, 0.0000_wp, &
& 567.4441_wp, 453.7197_wp, 298.8508_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1067.0169_wp, 829.2408_wp, 493.7430_wp, 0.0000_wp, 0.0000_wp, &
& 829.2408_wp, 649.7143_wp, 397.0367_wp, 0.0000_wp, 0.0000_wp, &
& 493.7430_wp, 397.0367_wp, 265.8654_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 39.5745_wp, 33.1875_wp, 26.8142_wp, 0.0000_wp, 0.0000_wp, &
& 65.0863_wp, 53.3648_wp, 42.1627_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 25.4622_wp, 22.0616_wp, 18.4864_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 730.5533_wp, 517.3330_wp, 364.4102_wp, 0.0000_wp, 0.0000_wp, &
& 223.8871_wp, 172.9708_wp, 129.8907_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 387.2681_wp, 297.5186_wp, 222.1489_wp, 0.0000_wp, 0.0000_wp, &
& 283.5695_wp, 220.6746_wp, 166.9872_wp, 0.0000_wp, 0.0000_wp, &
& 177.5174_wp, 143.8851_wp, 112.4391_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 951:1045) = reshape([ &
& 249.9382_wp, 200.3299_wp, 155.1628_wp, 0.0000_wp, 0.0000_wp, &
& 208.6362_wp, 168.5944_wp, 131.6650_wp, 0.0000_wp, 0.0000_wp, &
& 173.8767_wp, 141.6201_wp, 111.5108_wp, 0.0000_wp, 0.0000_wp, &
& 129.2726_wp, 107.7128_wp, 86.4986_wp, 0.0000_wp, 0.0000_wp, &
& 121.2876_wp, 101.3825_wp, 81.6853_wp, 0.0000_wp, 0.0000_wp, &
& 164.1279_wp, 135.5517_wp, 108.0200_wp, 0.0000_wp, 0.0000_wp, &
& 154.1938_wp, 127.2125_wp, 101.4184_wp, 0.0000_wp, 0.0000_wp, &
& 124.2389_wp, 103.7956_wp, 83.6946_wp, 0.0000_wp, 0.0000_wp, &
& 116.3247_wp, 97.1744_wp, 78.4368_wp, 0.0000_wp, 0.0000_wp, &
& 93.6269_wp, 79.5750_wp, 65.2905_wp, 0.0000_wp, 0.0000_wp, &
& 112.6378_wp, 95.0190_wp, 77.3772_wp, 0.0000_wp, 0.0000_wp, &
& 105.0905_wp, 88.6613_wp, 72.2950_wp, 0.0000_wp, 0.0000_wp, &
& 98.4728_wp, 83.2744_wp, 68.0720_wp, 0.0000_wp, 0.0000_wp, &
& 86.6163_wp, 73.4259_wp, 60.2641_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 84.2725_wp, 72.1173_wp, 59.6460_wp, 0.0000_wp, 0.0000_wp, &
& 75.3910_wp, 64.7448_wp, 53.7863_wp, 0.0000_wp, 0.0000_wp, &
& 66.3025_wp, 57.1928_wp, 47.7847_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 63.2599_wp, 54.7781_wp, 45.9133_wp, 0.0000_wp, 0.0000_wp, &
& 50.9770_wp, 44.7087_wp, 37.9961_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 48.3429_wp, 42.2432_wp, 35.7884_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 869.3774_wp, 618.6669_wp, 437.6491_wp, 0.0000_wp, 0.0000_wp, &
& 330.2273_wp, 253.0900_wp, 189.1300_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 626.2104_wp, 474.4180_wp, 350.6141_wp, 0.0000_wp, 0.0000_wp, &
& 512.6759_wp, 391.3606_wp, 291.4916_wp, 0.0000_wp, 0.0000_wp, &
& 320.6678_wp, 255.2289_wp, 196.3102_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 564.0716_wp, 437.0209_wp, 328.9434_wp, 0.0000_wp, 0.0000_wp, &
& 508.5289_wp, 396.0634_wp, 299.5256_wp, 0.0000_wp, 0.0000_wp, &
& 388.9956_wp, 308.5459_wp, 236.9854_wp, 0.0000_wp, 0.0000_wp, &
& 295.9256_wp, 240.2687_wp, 188.0446_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 431.2132_wp, 344.2113_wp, 265.5808_wp, 0.0000_wp, 0.0000_wp, &
& 396.9862_wp, 318.1795_wp, 246.4680_wp, 0.0000_wp, 0.0000_wp, &
& 367.7306_wp, 295.9631_wp, 230.0988_wp, 0.0000_wp, 0.0000_wp, &
& 359.6929_wp, 288.5406_wp, 223.9239_wp, 0.0000_wp, 0.0000_wp, &
& 289.9361_wp, 237.2798_wp, 187.1659_wp, 0.0000_wp, 0.0000_wp, &
& 328.4072_wp, 268.5416_wp, 211.7390_wp, 0.0000_wp, 0.0000_wp, &
& 318.5912_wp, 260.7012_wp, 205.7533_wp, 0.0000_wp, 0.0000_wp, &
& 314.8297_wp, 257.2059_wp, 202.7848_wp, 0.0000_wp, 0.0000_wp, &
& 290.2077_wp, 238.6014_wp, 189.1560_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 268.7824_wp, 223.0883_wp, 178.4935_wp, 0.0000_wp, 0.0000_wp, &
& 265.9528_wp, 220.6477_wp, 176.5078_wp, 0.0000_wp, 0.0000_wp, &
& 260.5335_wp, 216.2066_wp, 173.0241_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 216.8070_wp, 182.4721_wp, 148.0763_wp, 0.0000_wp, 0.0000_wp, &
& 214.6380_wp, 180.5916_wp, 146.5298_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 175.5876_wp, 149.5222_wp, 122.8625_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1447.3048_wp, 1015.7997_wp, 715.2376_wp, 0.0000_wp, 0.0000_wp, &
& 449.3030_wp, 349.4753_wp, 265.8033_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1131.1769_wp, 835.2692_wp, 607.2921_wp, 0.0000_wp, 0.0000_wp, &
& 905.7515_wp, 668.7646_wp, 488.3352_wp, 0.0000_wp, 0.0000_wp, &
& 450.9597_wp, 358.3732_wp, 276.2842_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 923.5811_wp, 689.6088_wp, 505.2854_wp, 0.0000_wp, 0.0000_wp, &
& 437.8432_wp, 349.0702_wp, 269.9059_wp, 0.0000_wp, 0.0000_wp, &
& 428.2629_wp, 344.2948_wp, 267.9088_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 883.1492_wp, 665.8143_wp, 491.8643_wp, 0.0000_wp, 0.0000_wp, &
& 422.5708_wp, 337.0553_wp, 260.9491_wp, 0.0000_wp, 0.0000_wp, &
& 433.1914_wp, 348.5490_wp, 271.4387_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 803.8807_wp, 609.6159_wp, 452.4755_wp, 0.0000_wp, 0.0000_wp, &
& 414.3575_wp, 330.3567_wp, 255.7125_wp, 0.0000_wp, 0.0000_wp, &
& 397.1558_wp, 319.1584_wp, 248.6021_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 633.4394_wp, 480.6382_wp, 357.8667_wp, 0.0000_wp, 0.0000_wp, &
& 411.8187_wp, 327.3553_wp, 252.8515_wp, 0.0000_wp, 0.0000_wp, &
& 294.2258_wp, 240.6605_wp, 190.7170_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 686.1772_wp, 524.7748_wp, 392.1922_wp, 0.0000_wp, 0.0000_wp, &
& 373.3442_wp, 301.0397_wp, 234.9229_wp, 0.0000_wp, 0.0000_wp, &
& 249.0737_wp, 206.0020_wp, 164.9015_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 538.1435_wp, 412.2468_wp, 309.3380_wp, 0.0000_wp, 0.0000_wp, &
& 344.2322_wp, 278.6526_wp, 218.2588_wp, 0.0000_wp, 0.0000_wp, &
& 244.8184_wp, 202.2130_wp, 161.6818_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 562.4800_wp, 436.4054_wp, 329.8121_wp, 0.0000_wp, 0.0000_wp, &
& 328.5015_wp, 265.8752_wp, 208.3381_wp, 0.0000_wp, 0.0000_wp, &
& 291.9635_wp, 236.9046_wp, 186.3559_wp, 0.0000_wp, 0.0000_wp, &
& 256.9295_wp, 210.9797_wp, 167.7448_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 582.9014_wp, 449.5806_wp, 338.0805_wp, 0.0000_wp, 0.0000_wp, &
& 321.5506_wp, 259.9472_wp, 203.5228_wp, 0.0000_wp, 0.0000_wp, &
& 270.5502_wp, 220.7203_wp, 174.4070_wp, 0.0000_wp, 0.0000_wp, &
& 287.4614_wp, 231.8285_wp, 181.5196_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 447.4259_wp, 345.1043_wp, 260.4199_wp, 0.0000_wp, 0.0000_wp, &
& 321.2502_wp, 256.9480_wp, 199.5641_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 450.1543_wp, 353.7880_wp, 270.1794_wp, 0.0000_wp, 0.0000_wp, &
& 295.4307_wp, 240.9124_wp, 189.8458_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 536.1093_wp, 418.8573_wp, 318.1224_wp, 0.0000_wp, 0.0000_wp, &
& 500.5162_wp, 393.3571_wp, 300.2053_wp, 0.0000_wp, 0.0000_wp, &
& 388.6043_wp, 311.5991_wp, 241.8646_wp, 0.0000_wp, 0.0000_wp, &
& 311.6254_wp, 254.8812_wp, 201.1040_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 461.6795_wp, 369.1734_wp, 285.6102_wp, 0.0000_wp, 0.0000_wp, &
& 429.6996_wp, 345.3872_wp, 268.4538_wp, 0.0000_wp, 0.0000_wp, &
& 407.6339_wp, 328.8341_wp, 256.3994_wp, 0.0000_wp, 0.0000_wp, &
& 362.0366_wp, 294.6634_wp, 231.5527_wp, 0.0000_wp, 0.0000_wp, &
& 316.0442_wp, 260.1176_wp, 206.3914_wp, 0.0000_wp, 0.0000_wp, &
& 385.9883_wp, 314.9253_wp, 247.9607_wp, 0.0000_wp, 0.0000_wp, &
& 379.0427_wp, 309.6035_wp, 244.0467_wp, 0.0000_wp, 0.0000_wp, &
& 368.3695_wp, 301.4924_wp, 238.0966_wp, 0.0000_wp, 0.0000_wp, &
& 353.7383_wp, 290.4181_wp, 229.9806_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 342.3814_wp, 282.7302_wp, 225.1670_wp, 0.0000_wp, 0.0000_wp, &
& 342.5970_wp, 282.8460_wp, 225.2330_wp, 0.0000_wp, 0.0000_wp, &
& 339.8157_wp, 280.6374_wp, 223.5555_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 296.2668_wp, 247.6203_wp, 199.5549_wp, 0.0000_wp, 0.0000_wp, &
& 298.5174_wp, 249.3404_wp, 200.8289_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 255.1516_wp, 215.5683_wp, 175.6524_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1615.8387_wp, 1138.5265_wp, 805.0065_wp, 0.0000_wp, 0.0000_wp, &
& 533.6135_wp, 417.0831_wp, 318.8041_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1351.1988_wp, 995.6116_wp, 723.6911_wp, 0.0000_wp, 0.0000_wp, &
& 1106.1259_wp, 814.1975_wp, 594.0387_wp, 0.0000_wp, 0.0000_wp, &
& 539.9639_wp, 429.5383_wp, 331.8687_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1159.9071_wp, 871.2600_wp, 642.4279_wp, 0.0000_wp, 0.0000_wp, &
& 812.6286_wp, 621.3058_wp, 466.5106_wp, 0.0000_wp, 0.0000_wp, &
& 511.4722_wp, 413.1903_wp, 323.0124_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1029.7665_wp, 782.7166_wp, 582.5544_wp, 0.0000_wp, 0.0000_wp, &
& 580.9007_wp, 461.9141_wp, 357.0819_wp, 0.0000_wp, 0.0000_wp, &
& 513.6197_wp, 416.7152_wp, 326.9477_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 931.7445_wp, 713.6477_wp, 534.6266_wp, 0.0000_wp, 0.0000_wp, &
& 586.8945_wp, 466.5358_wp, 360.5430_wp, 0.0000_wp, 0.0000_wp, &
& 497.9286_wp, 403.2032_wp, 316.2990_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 710.2837_wp, 551.1240_wp, 417.9889_wp, 0.0000_wp, 0.0000_wp, &
& 544.8075_wp, 435.1062_wp, 337.8186_wp, 0.0000_wp, 0.0000_wp, &
& 435.0888_wp, 356.6338_wp, 282.8832_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 796.1951_wp, 614.8185_wp, 464.1239_wp, 0.0000_wp, 0.0000_wp, &
& 623.1386_wp, 488.3264_wp, 374.0345_wp, 0.0000_wp, 0.0000_wp, &
& 380.5730_wp, 314.9171_wp, 252.0075_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 598.1988_wp, 468.5695_wp, 358.4840_wp, 0.0000_wp, 0.0000_wp, &
& 468.5695_wp, 379.2655_wp, 297.6676_wp, 0.0000_wp, 0.0000_wp, &
& 358.4840_wp, 297.6676_wp, 239.0071_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 43.1661_wp, 31.1024_wp, 26.9803_wp, 0.0000_wp, 0.0000_wp, &
& 71.1985_wp, 49.9090_wp, 42.7714_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 27.5745_wp, 20.7776_wp, 18.4026_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 794.2006_wp, 482.4342_wp, 390.2766_wp, 0.0000_wp, 0.0000_wp, &
& 245.2561_wp, 161.3499_wp, 134.6931_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 424.4120_wp, 277.4174_wp, 230.8996_wp, 0.0000_wp, 0.0000_wp, &
& 310.3781_wp, 205.9530_wp, 172.6021_wp, 0.0000_wp, 0.0000_wp, &
& 194.3984_wp, 134.4576_wp, 114.5587_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 273.7195_wp, 187.1327_wp, 158.7124_wp, 0.0000_wp, 0.0000_wp, &
& 228.2822_wp, 157.5949_wp, 134.2505_wp, 0.0000_wp, 0.0000_wp, &
& 190.0445_wp, 132.4776_wp, 113.3508_wp, 0.0000_wp, 0.0000_wp, &
& 141.1109_wp, 100.8958_wp, 87.2376_wp, 0.0000_wp, 0.0000_wp, &
& 132.3281_wp, 94.9987_wp, 82.2887_wp, 0.0000_wp, 0.0000_wp, &
& 179.2708_wp, 126.9085_wp, 109.2841_wp, 0.0000_wp, 0.0000_wp, &
& 168.3115_wp, 119.1265_wp, 102.6155_wp, 0.0000_wp, 0.0000_wp, &
& 135.4760_wp, 97.2961_wp, 84.3298_wp, 0.0000_wp, 0.0000_wp, &
& 126.7778_wp, 91.1171_wp, 79.0279_wp, 0.0000_wp, 0.0000_wp, &
& 101.8194_wp, 74.7287_wp, 65.3949_wp, 0.0000_wp, 0.0000_wp, &
& 122.6426_wp, 89.1659_wp, 77.7074_wp, 0.0000_wp, 0.0000_wp, &
& 114.3496_wp, 83.2227_wp, 72.5863_wp, 0.0000_wp, 0.0000_wp, &
& 107.1084_wp, 78.1976_wp, 68.3029_wp, 0.0000_wp, 0.0000_wp, &
& 94.1007_wp, 69.0005_wp, 60.4149_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.4959_wp, 67.8114_wp, 59.6194_wp, 0.0000_wp, 0.0000_wp, &
& 81.7640_wp, 60.9159_wp, 53.6934_wp, 0.0000_wp, 0.0000_wp, &
& 71.8071_wp, 53.8670_wp, 47.6422_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 68.4888_wp, 51.6117_wp, 45.7289_wp, 0.0000_wp, 0.0000_wp, &
& 55.0240_wp, 42.2084_wp, 37.6967_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 52.2072_wp, 39.8762_wp, 35.5563_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 945.4221_wp, 577.0181_wp, 467.8086_wp, 0.0000_wp, 0.0000_wp, &
& 361.4287_wp, 236.1444_wp, 196.6926_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 685.6628_wp, 442.3381_wp, 366.3245_wp, 0.0000_wp, 0.0000_wp, &
& 561.0010_wp, 365.0705_wp, 303.5312_wp, 0.0000_wp, 0.0000_wp, &
& 351.4302_wp, 238.3187_wp, 201.3988_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 617.9244_wp, 407.6999_wp, 340.7455_wp, 0.0000_wp, 0.0000_wp, &
& 557.0043_wp, 369.5814_wp, 309.6367_wp, 0.0000_wp, 0.0000_wp, &
& 425.9837_wp, 288.1291_wp, 243.3210_wp, 0.0000_wp, 0.0000_wp, &
& 324.0408_wp, 224.5657_wp, 191.4938_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 472.3738_wp, 321.4594_wp, 272.0913_wp, 0.0000_wp, 0.0000_wp, &
& 434.7251_wp, 297.2339_wp, 252.1101_wp, 0.0000_wp, 0.0000_wp, &
& 402.6239_wp, 276.5427_wp, 235.0108_wp, 0.0000_wp, 0.0000_wp, &
& 393.6613_wp, 269.6241_wp, 228.9329_wp, 0.0000_wp, 0.0000_wp, &
& 317.2064_wp, 221.9100_wp, 190.0213_wp, 0.0000_wp, 0.0000_wp, &
& 359.2547_wp, 251.1477_wp, 215.0145_wp, 0.0000_wp, 0.0000_wp, &
& 348.4449_wp, 243.8439_wp, 208.8723_wp, 0.0000_wp, 0.0000_wp, &
& 344.2987_wp, 240.5751_wp, 205.9678_wp, 0.0000_wp, 0.0000_wp, &
& 317.2629_wp, 223.2549_wp, 191.6962_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.5214_wp, 208.9067_wp, 180.2700_wp, 0.0000_wp, 0.0000_wp, &
& 290.4146_wp, 206.6258_wp, 178.2877_wp, 0.0000_wp, 0.0000_wp, &
& 284.4682_wp, 202.4803_wp, 174.7517_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 236.2750_wp, 171.1187_wp, 148.8148_wp, 0.0000_wp, 0.0000_wp, &
& 233.9031_wp, 169.3584_wp, 147.2755_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 190.9352_wp, 140.4273_wp, 122.9822_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1567.4954_wp, 948.5140_wp, 767.4205_wp, 0.0000_wp, 0.0000_wp, &
& 490.5807_wp, 326.5947_wp, 274.5928_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1234.6013_wp, 779.0547_wp, 640.1431_wp, 0.0000_wp, 0.0000_wp, &
& 986.3727_wp, 624.2850_wp, 514.1385_wp, 0.0000_wp, 0.0000_wp, &
& 493.3926_wp, 334.8827_wp, 283.4399_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1009.1933_wp, 643.1893_wp, 530.5111_wp, 0.0000_wp, 0.0000_wp, &
& 478.9598_wp, 326.2503_wp, 276.5669_wp, 0.0000_wp, 0.0000_wp, &
& 468.5358_wp, 321.8583_wp, 273.7179_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 965.2308_wp, 621.1807_wp, 514.4744_wp, 0.0000_wp, 0.0000_wp, &
& 462.0314_wp, 315.0982_wp, 267.2985_wp, 0.0000_wp, 0.0000_wp, &
& 473.8973_wp, 325.8582_wp, 277.2406_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 878.8027_wp, 568.8348_wp, 472.2401_wp, 0.0000_wp, 0.0000_wp, &
& 453.0262_wp, 308.8482_wp, 261.9807_wp, 0.0000_wp, 0.0000_wp, &
& 434.2176_wp, 298.4577_wp, 253.9853_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 691.6314_wp, 448.7527_wp, 373.2232_wp, 0.0000_wp, 0.0000_wp, &
& 450.1943_wp, 306.0340_wp, 259.3191_wp, 0.0000_wp, 0.0000_wp, &
& 321.1384_wp, 225.3888_wp, 193.5970_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 750.3251_wp, 489.7933_wp, 408.0411_wp, 0.0000_wp, 0.0000_wp, &
& 408.3677_wp, 281.5134_wp, 239.7905_wp, 0.0000_wp, 0.0000_wp, &
& 271.6188_wp, 193.0894_wp, 166.7533_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.7544_wp, 385.0153_wp, 321.4850_wp, 0.0000_wp, 0.0000_wp, &
& 376.4045_wp, 260.6567_wp, 222.4640_wp, 0.0000_wp, 0.0000_wp, &
& 267.0048_wp, 189.5285_wp, 163.5813_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 615.4364_wp, 407.4574_wp, 341.3760_wp, 0.0000_wp, 0.0000_wp, &
& 359.1057_wp, 248.7388_wp, 212.3500_wp, 0.0000_wp, 0.0000_wp, &
& 318.8732_wp, 221.7615_wp, 189.7380_wp, 0.0000_wp, 0.0000_wp, &
& 280.3953_wp, 197.6518_wp, 170.0773_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 637.7634_wp, 419.6709_wp, 350.7171_wp, 0.0000_wp, 0.0000_wp, &
& 351.4986_wp, 243.1909_wp, 207.5282_wp, 0.0000_wp, 0.0000_wp, &
& 295.4451_wp, 206.6729_wp, 177.2508_wp, 0.0000_wp, 0.0000_wp, &
& 313.9577_wp, 216.9806_wp, 185.2154_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 488.7501_wp, 322.3988_wp, 269.9886_wp, 0.0000_wp, 0.0000_wp, &
& 351.1222_wp, 240.3260_wp, 204.2511_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 492.6319_wp, 330.4713_wp, 278.3620_wp, 0.0000_wp, 0.0000_wp, &
& 322.9831_wp, 225.4398_wp, 193.0221_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 586.7732_wp, 391.0508_wp, 328.3978_wp, 0.0000_wp, 0.0000_wp, &
& 547.8346_wp, 367.3197_wp, 309.2352_wp, 0.0000_wp, 0.0000_wp, &
& 425.2069_wp, 291.2261_wp, 247.3262_wp, 0.0000_wp, 0.0000_wp, &
& 340.8328_wp, 238.4311_wp, 204.2277_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 505.4452_wp, 344.9100_wp, 292.3920_wp, 0.0000_wp, 0.0000_wp, &
& 470.3078_wp, 322.7816_wp, 274.2990_wp, 0.0000_wp, 0.0000_wp, &
& 446.0876_wp, 307.3740_wp, 261.6413_wp, 0.0000_wp, 0.0000_wp, &
& 396.0183_wp, 275.5707_wp, 235.5323_wp, 0.0000_wp, 0.0000_wp, &
& 345.5051_wp, 243.4182_wp, 209.1152_wp, 0.0000_wp, 0.0000_wp, &
& 422.1971_wp, 294.5421_wp, 252.0000_wp, 0.0000_wp, 0.0000_wp, &
& 414.5411_wp, 289.5934_wp, 247.9167_wp, 0.0000_wp, 0.0000_wp, &
& 402.8017_wp, 282.0464_wp, 241.6956_wp, 0.0000_wp, 0.0000_wp, &
& 386.7290_wp, 271.7387_wp, 233.2016_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 374.0632_wp, 264.6717_wp, 227.8311_wp, 0.0000_wp, 0.0000_wp, &
& 374.2900_wp, 264.7815_wp, 227.9132_wp, 0.0000_wp, 0.0000_wp, &
& 371.2277_wp, 262.7255_wp, 226.1893_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 323.1941_wp, 232.0580_wp, 201.0472_wp, 0.0000_wp, 0.0000_wp, &
& 325.6650_wp, 233.6608_wp, 202.3758_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 277.8680_wp, 202.2567_wp, 176.3002_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1749.7615_wp, 1063.3477_wp, 862.1222_wp, 0.0000_wp, 0.0000_wp, &
& 582.3742_wp, 389.9183_wp, 328.6889_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1473.5487_wp, 928.8255_wp, 763.1756_wp, 0.0000_wp, 0.0000_wp, &
& 1203.4301_wp, 760.2437_wp, 625.8949_wp, 0.0000_wp, 0.0000_wp, &
& 590.3744_wp, 401.5048_wp, 340.2392_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1266.8436_wp, 812.9338_wp, 672.6836_wp, 0.0000_wp, 0.0000_wp, &
& 886.2750_wp, 580.4145_wp, 484.7257_wp, 0.0000_wp, 0.0000_wp, &
& 559.3453_wp, 386.3915_wp, 329.4057_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1125.3403_wp, 730.4970_wp, 607.3080_wp, 0.0000_wp, 0.0000_wp, &
& 634.8024_wp, 431.8288_wp, 366.0539_wp, 0.0000_wp, 0.0000_wp, &
& 561.6169_wp, 389.7673_wp, 332.9103_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1018.2915_wp, 666.2259_wp, 555.7204_wp, 0.0000_wp, 0.0000_wp, &
& 641.4164_wp, 436.1440_wp, 369.6744_wp, 0.0000_wp, 0.0000_wp, &
& 544.0821_wp, 377.2249_wp, 322.2101_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 775.8353_wp, 514.9128_wp, 432.2782_wp, 0.0000_wp, 0.0000_wp, &
& 595.1503_wp, 406.9338_wp, 345.7600_wp, 0.0000_wp, 0.0000_wp, &
& 475.0273_wp, 333.9387_wp, 286.9340_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 869.8962_wp, 574.2456_wp, 480.9081_wp, 0.0000_wp, 0.0000_wp, &
& 680.0524_wp, 456.5618_wp, 385.2595_wp, 0.0000_wp, 0.0000_wp, &
& 415.1463_wp, 295.1012_wp, 254.7749_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 653.1775_wp, 438.0426_wp, 369.4328_wp, 0.0000_wp, 0.0000_wp, &
& 511.8315_wp, 354.9282_wp, 303.2934_wp, 0.0000_wp, 0.0000_wp, &
& 390.8937_wp, 279.0333_wp, 241.3497_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 713.9427_wp, 478.2848_wp, 402.9498_wp, 0.0000_wp, 0.0000_wp, &
& 478.2848_wp, 332.2425_wp, 284.1821_wp, 0.0000_wp, 0.0000_wp, &
& 402.9498_wp, 284.1821_wp, 244.6586_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 40.2372_wp, 28.9661_wp, 28.0631_wp, 0.0000_wp, 0.0000_wp, &
& 66.1211_wp, 46.3489_wp, 44.6498_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 25.8716_wp, 19.4689_wp, 19.0208_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 722.4294_wp, 443.9106_wp, 412.2171_wp, 0.0000_wp, 0.0000_wp, &
& 225.8042_wp, 149.1209_wp, 141.5639_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 390.4310_wp, 256.2327_wp, 242.8825_wp, 0.0000_wp, 0.0000_wp, &
& 286.0395_wp, 190.4826_wp, 181.1811_wp, 0.0000_wp, 0.0000_wp, &
& 180.2178_wp, 124.7151_wp, 119.7960_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 253.3425_wp, 173.4360_wp, 166.1533_wp, 0.0000_wp, 0.0000_wp, &
& 211.5559_wp, 146.2020_wp, 140.3599_wp, 0.0000_wp, 0.0000_wp, &
& 176.3381_wp, 123.0227_wp, 118.3487_wp, 0.0000_wp, 0.0000_wp, &
& 131.4019_wp, 93.8997_wp, 90.8284_wp, 0.0000_wp, 0.0000_wp, &
& 123.2913_wp, 88.4515_wp, 85.6281_wp, 0.0000_wp, 0.0000_wp, &
& 166.7111_wp, 118.0137_wp, 113.9126_wp, 0.0000_wp, 0.0000_wp, &
& 156.5006_wp, 110.7946_wp, 106.9320_wp, 0.0000_wp, 0.0000_wp, &
& 126.2362_wp, 90.6249_wp, 87.7320_wp, 0.0000_wp, 0.0000_wp, &
& 118.1427_wp, 84.8954_wp, 82.1930_wp, 0.0000_wp, 0.0000_wp, &
& 95.1612_wp, 69.7730_wp, 67.8363_wp, 0.0000_wp, 0.0000_wp, &
& 114.4763_wp, 83.1710_wp, 80.7118_wp, 0.0000_wp, 0.0000_wp, &
& 106.7438_wp, 77.6479_wp, 75.3636_wp, 0.0000_wp, 0.0000_wp, &
& 100.0370_wp, 72.9965_wp, 70.8909_wp, 0.0000_wp, 0.0000_wp, &
& 87.9430_wp, 64.4651_wp, 62.6532_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 85.6427_wp, 63.4125_wp, 61.7619_wp, 0.0000_wp, 0.0000_wp, &
& 76.5871_wp, 57.0049_wp, 55.5744_wp, 0.0000_wp, 0.0000_wp, &
& 67.3354_wp, 50.4709_wp, 49.2629_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 64.2707_wp, 48.3824_wp, 47.2645_wp, 0.0000_wp, 0.0000_wp, &
& 51.7740_wp, 39.6636_wp, 38.8697_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 49.0990_wp, 37.4647_wp, 36.6837_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1046:1140) = reshape([ &
& 860.6209_wp, 531.1676_wp, 493.9241_wp, 0.0000_wp, 0.0000_wp, &
& 332.4392_wp, 218.2333_wp, 206.7940_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 629.5912_wp, 408.3022_wp, 385.7118_wp, 0.0000_wp, 0.0000_wp, &
& 515.6457_wp, 337.2256_wp, 319.2176_wp, 0.0000_wp, 0.0000_wp, &
& 324.9551_wp, 220.7375_wp, 211.0831_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 569.1410_wp, 376.8776_wp, 358.0287_wp, 0.0000_wp, 0.0000_wp, &
& 513.4163_wp, 341.7946_wp, 325.1370_wp, 0.0000_wp, 0.0000_wp, &
& 393.6776_wp, 266.8484_wp, 254.9948_wp, 0.0000_wp, 0.0000_wp, &
& 300.4977_wp, 208.3470_wp, 200.2114_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 436.9463_wp, 297.8174_wp, 285.0138_wp, 0.0000_wp, 0.0000_wp, &
& 402.3662_wp, 275.4925_wp, 263.9234_wp, 0.0000_wp, 0.0000_wp, &
& 372.8898_wp, 256.4133_wp, 245.8989_wp, 0.0000_wp, 0.0000_wp, &
& 364.4241_wp, 249.9808_wp, 239.5605_wp, 0.0000_wp, 0.0000_wp, &
& 294.5220_wp, 206.0675_wp, 198.4222_wp, 0.0000_wp, 0.0000_wp, &
& 333.5219_wp, 233.2106_wp, 224.5211_wp, 0.0000_wp, 0.0000_wp, &
& 323.5276_wp, 226.4605_wp, 218.0675_wp, 0.0000_wp, 0.0000_wp, &
& 319.6077_wp, 223.4125_wp, 215.0564_wp, 0.0000_wp, 0.0000_wp, &
& 294.7986_wp, 207.4505_wp, 199.9979_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 273.1568_wp, 194.3373_wp, 187.8007_wp, 0.0000_wp, 0.0000_wp, &
& 270.2524_wp, 192.2172_wp, 185.7368_wp, 0.0000_wp, 0.0000_wp, &
& 264.7345_wp, 188.3752_wp, 182.0388_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 220.4099_wp, 159.4914_wp, 154.6693_wp, 0.0000_wp, 0.0000_wp, &
& 218.1903_wp, 157.8524_wp, 153.0708_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 178.5021_wp, 131.1338_wp, 127.5483_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1424.0271_wp, 873.2984_wp, 809.4255_wp, 0.0000_wp, 0.0000_wp, &
& 452.2464_wp, 302.4635_wp, 287.8260_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1129.6670_wp, 718.4983_wp, 674.5740_wp, 0.0000_wp, 0.0000_wp, &
& 902.4405_wp, 576.1374_wp, 541.0773_wp, 0.0000_wp, 0.0000_wp, &
& 456.2063_wp, 310.3909_wp, 296.8146_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 924.8556_wp, 593.4994_wp, 558.7593_wp, 0.0000_wp, 0.0000_wp, &
& 443.0816_wp, 302.4898_wp, 289.4965_wp, 0.0000_wp, 0.0000_wp, &
& 433.9484_wp, 298.5692_wp, 286.3025_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 885.7657_wp, 573.5972_wp, 541.3741_wp, 0.0000_wp, 0.0000_wp, &
& 427.4577_wp, 292.2135_wp, 279.7105_wp, 0.0000_wp, 0.0000_wp, &
& 438.9752_wp, 302.3112_wp, 289.9530_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 807.1258_wp, 525.4732_wp, 496.6905_wp, 0.0000_wp, 0.0000_wp, &
& 419.1134_wp, 286.4278_wp, 274.1490_wp, 0.0000_wp, 0.0000_wp, &
& 402.1750_wp, 276.9472_wp, 265.5767_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 635.3257_wp, 414.7918_wp, 392.2297_wp, 0.0000_wp, 0.0000_wp, &
& 416.3230_wp, 283.7785_wp, 271.4250_wp, 0.0000_wp, 0.0000_wp, &
& 298.3014_wp, 209.5976_wp, 201.9007_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 689.9647_wp, 452.7353_wp, 428.8509_wp, 0.0000_wp, 0.0000_wp, &
& 378.4295_wp, 261.2635_wp, 250.7187_wp, 0.0000_wp, 0.0000_wp, &
& 252.7595_wp, 179.7824_wp, 173.6495_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.6599_wp, 356.1344_wp, 337.5770_wp, 0.0000_wp, 0.0000_wp, &
& 349.0258_wp, 242.0147_wp, 232.4750_wp, 0.0000_wp, 0.0000_wp, &
& 248.4203_wp, 176.4513_wp, 170.3774_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 567.1044_wp, 376.9928_wp, 358.3743_wp, 0.0000_wp, 0.0000_wp, &
& 332.9896_wp, 230.9788_wp, 221.8767_wp, 0.0000_wp, 0.0000_wp, &
& 295.8366_wp, 206.0649_wp, 198.1008_wp, 0.0000_wp, 0.0000_wp, &
& 260.6337_wp, 183.8900_wp, 177.3010_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.1819_wp, 388.1200_wp, 368.4032_wp, 0.0000_wp, 0.0000_wp, &
& 325.8858_wp, 225.8165_wp, 216.8602_wp, 0.0000_wp, 0.0000_wp, &
& 274.3366_wp, 192.1416_wp, 184.9554_wp, 0.0000_wp, 0.0000_wp, &
& 291.0309_wp, 201.5536_wp, 193.4900_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 450.0559_wp, 298.3894_wp, 283.3292_wp, 0.0000_wp, 0.0000_wp, &
& 325.0466_wp, 223.0154_wp, 213.6379_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 454.8031_wp, 306.0633_wp, 291.8725_wp, 0.0000_wp, 0.0000_wp, &
& 299.8317_wp, 209.4546_wp, 201.5508_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 541.1501_wp, 361.8780_wp, 344.5686_wp, 0.0000_wp, 0.0000_wp, &
& 505.6698_wp, 340.0675_wp, 324.2726_wp, 0.0000_wp, 0.0000_wp, &
& 393.6370_wp, 270.0591_wp, 258.7879_wp, 0.0000_wp, 0.0000_wp, &
& 316.4721_wp, 221.4649_wp, 213.2345_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 467.7042_wp, 319.6946_wp, 306.1192_wp, 0.0000_wp, 0.0000_wp, &
& 435.5268_wp, 299.3280_wp, 286.9870_wp, 0.0000_wp, 0.0000_wp, &
& 413.3244_wp, 285.1360_wp, 273.6234_wp, 0.0000_wp, 0.0000_wp, &
& 367.4287_wp, 255.8441_wp, 246.0490_wp, 0.0000_wp, 0.0000_wp, &
& 321.1117_wp, 226.2274_wp, 218.1530_wp, 0.0000_wp, 0.0000_wp, &
& 391.8528_wp, 273.5010_wp, 263.1821_wp, 0.0000_wp, 0.0000_wp, &
& 384.8152_wp, 268.9427_wp, 258.8699_wp, 0.0000_wp, 0.0000_wp, &
& 374.0353_wp, 261.9897_wp, 252.3030_wp, 0.0000_wp, 0.0000_wp, &
& 359.2842_wp, 252.4918_wp, 243.3399_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 347.8393_wp, 246.0921_wp, 237.5192_wp, 0.0000_wp, 0.0000_wp, &
& 348.0402_wp, 246.1937_wp, 237.6065_wp, 0.0000_wp, 0.0000_wp, &
& 345.2124_wp, 244.2954_wp, 235.7943_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 301.1390_wp, 216.0945_wp, 209.1971_wp, 0.0000_wp, 0.0000_wp, &
& 303.4107_wp, 217.5738_wp, 210.5970_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 259.3964_wp, 188.6339_wp, 183.1095_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1590.4415_wp, 979.4032_wp, 908.8152_wp, 0.0000_wp, 0.0000_wp, &
& 537.2565_wp, 361.3047_wp, 344.2670_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1347.9007_wp, 856.7169_wp, 804.0036_wp, 0.0000_wp, 0.0000_wp, &
& 1100.5370_wp, 701.6550_wp, 658.5196_wp, 0.0000_wp, 0.0000_wp, &
& 545.9768_wp, 372.2612_wp, 356.1148_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1161.9289_wp, 750.5933_wp, 707.8343_wp, 0.0000_wp, 0.0000_wp, &
& 814.8402_wp, 536.8566_wp, 508.6839_wp, 0.0000_wp, 0.0000_wp, &
& 518.4374_wp, 358.6133_wp, 344.3053_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1033.8735_wp, 674.9929_wp, 638.4463_wp, 0.0000_wp, 0.0000_wp, &
& 587.0202_wp, 400.4209_wp, 383.0425_wp, 0.0000_wp, 0.0000_wp, &
& 520.8781_wp, 361.8771_wp, 347.7992_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 936.5528_wp, 615.9759_wp, 583.7653_wp, 0.0000_wp, 0.0000_wp, &
& 593.1414_wp, 404.4300_wp, 386.8574_wp, 0.0000_wp, 0.0000_wp, &
& 504.5037_wp, 350.2910_wp, 336.5535_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 714.9495_wp, 476.7090_wp, 453.3284_wp, 0.0000_wp, 0.0000_wp, &
& 550.7557_wp, 377.5535_wp, 361.5781_wp, 0.0000_wp, 0.0000_wp, &
& 441.3319_wp, 310.5005_wp, 299.2251_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 801.0442_wp, 531.3700_wp, 504.6607_wp, 0.0000_wp, 0.0000_wp, &
& 627.5810_wp, 423.1279_wp, 403.4188_wp, 0.0000_wp, 0.0000_wp, &
& 386.2986_wp, 274.6918_wp, 265.3352_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 602.7956_wp, 405.9398_wp, 386.9728_wp, 0.0000_wp, 0.0000_wp, &
& 474.6369_wp, 329.6826_wp, 316.7499_wp, 0.0000_wp, 0.0000_wp, &
& 363.9513_wp, 259.8584_wp, 251.2231_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 658.8753_wp, 443.0659_wp, 422.3203_wp, 0.0000_wp, 0.0000_wp, &
& 443.6280_wp, 308.7059_wp, 296.6934_wp, 0.0000_wp, 0.0000_wp, &
& 374.5394_wp, 264.4321_wp, 254.9713_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 608.5041_wp, 411.1361_wp, 392.3548_wp, 0.0000_wp, 0.0000_wp, &
& 411.1361_wp, 286.9519_wp, 275.9575_wp, 0.0000_wp, 0.0000_wp, &
& 392.3548_wp, 275.9575_wp, 265.8746_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 33.5413_wp, 27.9518_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 54.9658_wp, 44.7835_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 21.7896_wp, 18.7731_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 614.1477_wp, 432.6078_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 188.3374_wp, 144.6563_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.5775_wp, 248.6573_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 238.6962_wp, 184.6530_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 149.7198_wp, 120.5975_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 210.6811_wp, 167.8350_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 176.0603_wp, 141.4060_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 146.9017_wp, 118.9236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 109.4741_wp, 90.6508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 102.7753_wp, 85.3773_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 138.8758_wp, 113.9993_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 130.5144_wp, 107.0286_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 105.3572_wp, 87.4951_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 98.7032_wp, 81.9715_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 79.6657_wp, 67.3070_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 95.7137_wp, 80.2663_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 89.3419_wp, 74.9354_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 83.7875_wp, 70.4509_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 73.8057_wp, 62.2209_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 71.8926_wp, 61.1748_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 64.3880_wp, 54.9856_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 56.7511_wp, 48.6912_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 54.1903_wp, 46.6726_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 43.8480_wp, 38.2539_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 41.5780_wp, 36.1486_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 731.0832_wp, 517.5680_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 277.9428_wp, 211.8419_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.4776_wp, 396.6125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 431.2807_wp, 327.3509_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 270.1633_wp, 213.7477_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 474.5713_wp, 365.5269_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 427.9962_wp, 331.3832_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.7472_wp, 258.4065_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.6759_wp, 201.4661_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 363.3585_wp, 288.2863_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 334.6673_wp, 266.6008_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 310.1186_wp, 248.0750_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 303.3752_wp, 241.8989_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 244.8685_wp, 199.1553_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 277.3577_wp, 225.3945_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 269.1220_wp, 218.8617_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 265.9503_wp, 215.9419_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 245.2996_wp, 200.4348_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 227.5024_wp, 187.6597_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 225.1181_wp, 185.6197_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 220.5585_wp, 181.9100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 183.9876_wp, 153.9032_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 182.1547_wp, 152.3270_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 149.4269_wp, 126.4825_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1218.4699_wp, 851.0088_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 379.0836_wp, 293.2911_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 951.4935_wp, 698.8618_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 762.6174_wp, 560.1298_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 380.4283_wp, 300.6094_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 776.8914_wp, 576.9636_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 369.4933_wp, 292.9063_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 361.5057_wp, 288.9408_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 743.2041_wp, 557.2880_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 356.7245_wp, 282.9332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 365.7124_wp, 292.5514_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 676.6553_wp, 510.3644_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 349.8288_wp, 277.3525_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 335.4436_wp, 268.0353_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.6878_wp, 402.8383_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 347.6786_wp, 274.8452_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.1613_wp, 202.6684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 577.8127_wp, 439.5099_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 315.3482_wp, 252.8298_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 211.2390_wp, 173.7381_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 453.6327_wp, 345.6995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 290.9083_wp, 234.1511_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 207.6181_wp, 170.5403_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 473.9244_wp, 365.6925_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 277.6823_wp, 223.4805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 247.0487_wp, 199.3629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 217.7112_wp, 177.7934_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.9783_wp, 376.6281_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 271.8088_wp, 218.5075_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 229.0537_wp, 185.8430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.2009_wp, 195.0917_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 377.3531_wp, 289.5580_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 271.4634_wp, 215.9581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 379.5655_wp, 296.6728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.8348_wp, 202.5685_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 451.5887_wp, 350.8010_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 421.7420_wp, 329.5387_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.8852_wp, 261.3654_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 263.3258_wp, 214.0794_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.3075_wp, 309.4543_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 362.5076_wp, 289.6411_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 344.0065_wp, 275.8484_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 305.7755_wp, 247.3728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 267.2135_wp, 218.5854_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 326.0371_wp, 264.3957_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 320.2231_wp, 259.9706_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 311.2799_wp, 253.2180_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 299.0137_wp, 243.9926_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 289.6469_wp, 237.7217_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 289.8328_wp, 237.8238_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 287.5025_wp, 235.9871_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 251.1189_wp, 208.6044_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 253.0095_wp, 210.0411_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 216.7336_wp, 182.0016_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1360.7517_wp, 954.1320_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 450.4714_wp, 350.2295_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1136.9099_wp, 833.3168_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 931.6022_wp, 682.1817_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 455.7267_wp, 360.4891_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 976.2025_wp, 729.3316_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 684.9796_wp, 520.8724_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 431.9705_wp, 346.9360_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 867.0056_wp, 655.4329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.3817_wp, 387.7336_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 433.9278_wp, 349.9975_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 784.8188_wp, 597.8528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 495.4800_wp, 391.6637_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 420.8552_wp, 338.8335_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 599.0530_wp, 462.3383_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 460.2367_wp, 365.5261_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 368.2898_wp, 300.1493_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 671.1717_wp, 515.4953_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.0977_wp, 410.0667_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 322.5821_wp, 265.4033_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 505.0269_wp, 393.5088_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 396.2742_wp, 318.9665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 304.0550_wp, 251.0367_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 551.0802_wp, 429.5143_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.6378_wp, 298.6678_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 313.1143_wp, 255.6479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 508.7742_wp, 398.4662_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.6707_wp, 277.6023_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.8015_wp, 266.8459_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 426.7450_wp, 333.1583_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 333.1583_wp, 268.6130_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.6879_wp, 27.9281_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 58.3568_wp, 44.5006_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 23.1563_wp, 18.8607_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 621.0536_wp, 408.4429_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 197.0940_wp, 141.0901_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 340.4122_wp, 242.0950_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.9915_wp, 180.5207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 158.6937_wp, 119.4623_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 222.6273_wp, 165.6587_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 186.2199_wp, 139.8793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 155.4778_wp, 117.8843_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 116.3922_wp, 90.4277_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 109.2887_wp, 85.2274_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 147.4138_wp, 113.4369_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 138.3672_wp, 106.4332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 111.9252_wp, 87.2915_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 104.7692_wp, 81.7500_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 84.7139_wp, 67.4028_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 101.7377_wp, 80.2492_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 94.8770_wp, 74.8925_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 88.9858_wp, 70.4420_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 78.3016_wp, 62.2131_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 76.4092_wp, 61.3234_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 68.3943_wp, 55.1392_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 60.2334_wp, 48.8497_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 57.5500_wp, 46.8692_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 46.5340_wp, 38.4906_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 44.1062_wp, 36.3401_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 740.5787_wp, 489.5129_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 289.8474_wp, 205.9647_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 547.6721_wp, 384.1728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.1567_wp, 317.9002_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 285.2161_wp, 210.5498_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1141:1235) = reshape([ &
& 497.0337_wp, 356.8654_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 448.8071_wp, 324.0830_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 345.2997_wp, 254.2236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 264.7291_wp, 199.6670_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.6790_wp, 284.2139_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 353.5976_wp, 263.1438_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.9622_wp, 245.1614_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 320.3429_wp, 238.7691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 259.8815_wp, 197.7904_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.2465_wp, 223.7783_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 285.4802_wp, 217.3199_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 281.9469_wp, 214.2984_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 260.3892_wp, 199.2714_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 241.7614_wp, 187.0163_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 239.1784_wp, 184.9522_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 234.3154_wp, 181.2582_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 195.7044_wp, 153.8592_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 193.7273_wp, 152.2646_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 158.9650_wp, 126.7356_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1222.5553_wp, 800.2593_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 395.5135_wp, 286.2735_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 978.4251_wp, 670.2633_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 781.6600_wp, 537.0889_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 400.4535_wp, 295.6941_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 802.6020_wp, 555.6679_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.1859_wp, 288.3875_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 381.7298_wp, 285.2814_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 770.0303_wp, 538.5502_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 375.5261_wp, 278.5869_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 386.2241_wp, 288.9111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 702.4213_wp, 494.2237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 368.1871_wp, 273.0331_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 353.8227_wp, 264.5314_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 553.0919_wp, 389.9953_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 365.5531_wp, 270.2890_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 263.4511_wp, 200.9381_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 601.4053_wp, 426.8579_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 333.1518_wp, 249.8201_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 223.7644_wp, 172.7698_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 471.5329_wp, 335.7642_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 307.5209_wp, 231.6170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 219.8750_wp, 169.5246_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 495.6313_wp, 356.9172_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.4074_wp, 221.0248_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 260.8701_wp, 197.2313_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 230.4010_wp, 176.4697_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 512.6220_wp, 366.8668_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 287.0958_wp, 216.0211_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 242.1824_wp, 184.1433_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 256.3643_wp, 192.6099_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 393.0510_wp, 281.8675_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 285.8180_wp, 212.7468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 398.4572_wp, 290.7895_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 264.5716_wp, 200.8224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 473.4203_wp, 343.2943_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 442.8639_wp, 323.1080_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.0568_wp, 257.9007_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 279.2886_wp, 212.5148_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 410.9058_wp, 305.1468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.0204_wp, 286.0551_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 363.7536_wp, 272.7228_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 323.9292_wp, 245.2119_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 283.7237_wp, 217.3760_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 345.6085_wp, 262.2840_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 339.4814_wp, 257.9689_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 330.1075_wp, 251.4082_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 317.2880_wp, 242.4605_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 307.5539_wp, 236.5779_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 307.7214_wp, 236.6604_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 305.2454_wp, 234.8470_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 266.9700_wp, 208.2113_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 268.9491_wp, 209.6083_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 230.5493_wp, 182.0867_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1366.3938_wp, 898.5342_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 470.3119_wp, 342.3410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1167.0471_wp, 798.4528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 952.7533_wp, 653.2782_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 479.3797_wp, 354.6096_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1009.4418_wp, 703.7992_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 710.2172_wp, 505.6747_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 456.4875_wp, 342.9987_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 900.1154_wp, 635.1370_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 515.3861_wp, 381.3405_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 459.0164_wp, 346.4792_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 816.5495_wp, 580.8412_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 520.7629_wp, 385.1206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 444.4932_wp, 335.1312_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 624.9506_wp, 450.9776_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 484.0286_wp, 359.9059_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.8300_wp, 297.8478_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 699.5382_wp, 502.1168_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 549.6338_wp, 401.2382_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 341.9237_wp, 264.0201_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 527.9387_wp, 384.9436_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 418.2579_wp, 315.3365_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 322.4084_wp, 249.9360_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 577.0107_wp, 420.3746_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 391.0675_wp, 295.3036_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 331.0815_wp, 253.6663_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.4134_wp, 390.5770_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 362.6432_wp, 274.6154_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.6055_wp, 264.5941_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 445.8701_wp, 325.9662_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 351.3712_wp, 265.5450_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 468.1900_wp, 345.0599_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 345.0599_wp, 263.4508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 44.0417_wp, 42.2827_wp, 34.8931_wp, 30.3193_wp, 0.0000_wp, &
& 72.9076_wp, 69.6754_wp, 56.5189_wp, 48.4270_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 27.9586_wp, 27.0236_wp, 22.9076_wp, 20.3402_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 828.9673_wp, 769.2514_wp, 565.2654_wp, 444.6978_wp, 0.0000_wp, &
& 253.1370_wp, 239.0419_wp, 185.9170_wp, 153.8264_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 438.3396_wp, 413.4965_wp, 320.2807_wp, 264.0439_wp, 0.0000_wp, &
& 320.0912_wp, 302.6678_wp, 236.6771_wp, 196.7454_wp, 0.0000_wp, &
& 199.4111_wp, 190.1313_wp, 152.9239_wp, 130.1139_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 281.1737_wp, 267.4750_wp, 213.4484_wp, 180.4568_wp, 0.0000_wp, &
& 234.2171_wp, 223.1629_wp, 179.1755_wp, 152.2615_wp, 0.0000_wp, &
& 194.7649_wp, 185.8576_wp, 150.1267_wp, 128.2191_wp, 0.0000_wp, &
& 144.1259_wp, 138.1855_wp, 113.4826_wp, 98.2235_wp, 0.0000_wp, &
& 135.0814_wp, 129.5979_wp, 106.6946_wp, 92.5355_wp, 0.0000_wp, &
& 183.3368_wp, 175.4585_wp, 143.1602_wp, 123.2705_wp, 0.0000_wp, &
& 172.1229_wp, 164.6812_wp, 134.3014_wp, 115.6130_wp, 0.0000_wp, &
& 138.2831_wp, 132.6505_wp, 109.2000_wp, 94.7153_wp, 0.0000_wp, &
& 129.3853_wp, 124.1085_wp, 102.1877_wp, 88.6572_wp, 0.0000_wp, &
& 103.6198_wp, 99.7522_wp, 83.2270_wp, 72.9703_wp, 0.0000_wp, &
& 124.9798_wp, 120.1279_wp, 99.6435_wp, 86.9569_wp, 0.0000_wp, &
& 116.4959_wp, 111.9707_wp, 92.9086_wp, 81.1110_wp, 0.0000_wp, &
& 109.0825_wp, 104.8972_wp, 87.2076_wp, 76.2530_wp, 0.0000_wp, &
& 95.7727_wp, 92.1403_wp, 76.7798_wp, 67.2704_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 92.9968_wp, 89.6520_wp, 75.2351_wp, 66.2741_wp, 0.0000_wp, &
& 83.0278_wp, 80.0986_wp, 67.4193_wp, 59.5344_wp, 0.0000_wp, &
& 72.8571_wp, 70.3511_wp, 59.4511_wp, 52.6690_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 69.4558_wp, 67.1232_wp, 56.8922_wp, 50.5156_wp, 0.0000_wp, &
& 55.6589_wp, 53.9364_wp, 46.2082_wp, 41.3746_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 52.8517_wp, 51.1747_wp, 43.7215_wp, 39.0674_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 986.0999_wp, 915.9413_wp, 675.2268_wp, 532.8538_wp, 0.0000_wp, &
& 373.3794_wp, 352.0074_wp, 272.3735_wp, 224.4097_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 709.3565_wp, 667.2844_wp, 512.0902_wp, 418.8567_wp, 0.0000_wp, &
& 579.9234_wp, 546.2762_wp, 421.5573_wp, 346.4940_wp, 0.0000_wp, &
& 361.3835_wp, 343.3098_wp, 272.5677_wp, 229.4425_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 637.5832_wp, 602.4143_wp, 469.4540_wp, 389.0698_wp, 0.0000_wp, &
& 574.3420_wp, 543.2188_wp, 424.8967_wp, 353.2654_wp, 0.0000_wp, &
& 438.2474_wp, 416.0033_wp, 329.5920_wp, 276.9940_wp, 0.0000_wp, &
& 332.3410_wp, 316.9852_wp, 255.2803_wp, 217.4318_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 485.5392_wp, 461.5093_wp, 367.2028_wp, 309.6779_wp, 0.0000_wp, &
& 446.5937_wp, 424.8293_wp, 339.0315_wp, 286.6412_wp, 0.0000_wp, &
& 413.3754_wp, 393.5617_wp, 315.0177_wp, 266.9974_wp, 0.0000_wp, &
& 404.3294_wp, 384.6752_wp, 307.2515_wp, 259.9858_wp, 0.0000_wp, &
& 324.9345_wp, 310.4122_wp, 251.4716_wp, 215.2424_wp, 0.0000_wp, &
& 368.0275_wp, 351.5157_wp, 284.6146_wp, 243.5106_wp, 0.0000_wp, &
& 356.9069_wp, 340.9396_wp, 276.2154_wp, 236.4461_wp, 0.0000_wp, &
& 352.7247_wp, 336.8285_wp, 272.5864_wp, 233.1422_wp, 0.0000_wp, &
& 324.7346_wp, 310.5048_wp, 252.4456_wp, 216.7223_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 299.9853_wp, 287.3922_wp, 235.3301_wp, 203.2097_wp, 0.0000_wp, &
& 296.8214_wp, 284.3350_wp, 232.7649_wp, 200.9558_wp, 0.0000_wp, &
& 290.7255_wp, 278.5087_wp, 228.0473_wp, 196.9225_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 240.9104_wp, 231.4554_wp, 191.5816_wp, 166.8867_wp, 0.0000_wp, &
& 238.4988_wp, 229.1229_wp, 189.6139_wp, 165.1495_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 194.2646_wp, 187.0916_wp, 156.3179_wp, 137.2010_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1638.8153_wp, 1517.3687_wp, 1110.1907_wp, 869.9598_wp, 0.0000_wp, &
& 505.6838_wp, 478.0141_wp, 374.0585_wp, 311.3187_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1281.2612_wp, 1198.9287_wp, 905.1186_wp, 729.9594_wp, 0.0000_wp, &
& 1024.1614_wp, 957.9897_wp, 723.9814_wp, 584.4834_wp, 0.0000_wp, &
& 507.2605_wp, 481.6729_wp, 382.2720_wp, 321.8065_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1045.8401_wp, 980.8464_wp, 745.8282_wp, 605.3047_wp, 0.0000_wp, &
& 492.1904_wp, 467.6700_wp, 372.0117_wp, 313.7920_wp, 0.0000_wp, &
& 481.0066_wp, 457.8184_wp, 366.3017_wp, 310.4193_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 999.0971_wp, 938.7641_wp, 718.5537_wp, 586.5752_wp, 0.0000_wp, &
& 474.8112_wp, 451.1658_wp, 359.1057_wp, 303.0566_wp, 0.0000_wp, &
& 486.4497_wp, 463.0777_wp, 370.7390_wp, 314.3438_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 908.9753_wp, 855.0744_wp, 657.1002_wp, 538.2672_wp, 0.0000_wp, &
& 465.5647_wp, 442.3420_wp, 351.9807_wp, 296.9854_wp, 0.0000_wp, &
& 445.7766_wp, 424.2272_wp, 339.4399_wp, 287.7026_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 715.2799_wp, 672.8526_wp, 517.5497_wp, 424.4016_wp, 0.0000_wp, &
& 462.8304_wp, 439.4728_wp, 348.9930_wp, 293.9840_wp, 0.0000_wp, &
& 328.7836_wp, 314.0026_wp, 254.5781_wp, 218.1566_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 775.2736_wp, 730.5221_wp, 564.6362_wp, 464.8411_wp, 0.0000_wp, &
& 419.0707_wp, 399.1079_wp, 320.0431_wp, 271.7273_wp, 0.0000_wp, &
& 277.6350_wp, 265.7575_wp, 217.2467_wp, 187.4120_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 607.0964_wp, 572.1729_wp, 442.9855_wp, 365.3129_wp, 0.0000_wp, &
& 386.0628_wp, 367.9592_wp, 295.9209_wp, 251.8512_wp, 0.0000_wp, &
& 272.9769_wp, 261.2268_wp, 213.3373_wp, 183.8976_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 634.7263_wp, 599.8255_wp, 468.1580_wp, 388.6270_wp, 0.0000_wp, &
& 368.3224_wp, 351.0300_wp, 282.3130_wp, 240.2860_wp, 0.0000_wp, &
& 326.8852_wp, 311.6813_wp, 251.2206_wp, 214.2453_wp, 0.0000_wp, &
& 286.9299_wp, 274.2537_wp, 222.9925_wp, 191.5317_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 658.2526_wp, 621.3305_wp, 482.9577_wp, 399.5106_wp, 0.0000_wp, &
& 360.5731_wp, 343.5620_wp, 276.0871_wp, 234.8390_wp, 0.0000_wp, &
& 302.6341_wp, 288.8824_wp, 233.7477_wp, 199.9712_wp, 0.0000_wp, &
& 322.0771_wp, 306.7120_wp, 246.1570_wp, 209.2104_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 504.3802_wp, 476.0165_wp, 370.2813_wp, 306.5977_wp, 0.0000_wp, &
& 360.6626_wp, 342.8931_wp, 273.5167_wp, 231.2700_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 507.2452_wp, 480.5972_wp, 378.4634_wp, 316.5382_wp, 0.0000_wp, &
& 330.9585_wp, 315.9166_wp, 255.4101_wp, 218.3027_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 604.7183_wp, 572.2658_wp, 448.7448_wp, 373.9479_wp, 0.0000_wp, &
& 564.1564_wp, 534.5127_wp, 420.8557_wp, 351.9154_wp, 0.0000_wp, &
& 436.7407_wp, 415.4641_wp, 331.7913_wp, 280.7261_wp, 0.0000_wp, &
& 349.1330_wp, 333.4815_wp, 270.0988_wp, 231.1618_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 519.3501_wp, 493.7984_wp, 393.4823_wp, 332.2932_wp, 0.0000_wp, &
& 482.9115_wp, 459.6285_wp, 367.6282_wp, 311.4260_wp, 0.0000_wp, &
& 457.8119_wp, 436.0573_wp, 349.6800_wp, 296.8562_wp, 0.0000_wp, &
& 405.9303_wp, 387.3404_wp, 312.6183_wp, 266.7944_wp, 0.0000_wp, &
& 353.6035_wp, 338.1831_wp, 275.1658_wp, 236.3761_wp, 0.0000_wp, &
& 432.6167_wp, 413.0126_wp, 333.9114_wp, 285.3599_wp, 0.0000_wp, &
& 424.7008_wp, 405.5453_wp, 328.1518_wp, 280.6350_wp, 0.0000_wp, &
& 412.5541_wp, 394.1073_wp, 319.3719_wp, 273.4592_wp, 0.0000_wp, &
& 395.9157_wp, 378.4539_wp, 307.3832_wp, 263.6781_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 382.5968_wp, 366.1519_wp, 298.6933_wp, 257.1422_wp, 0.0000_wp, &
& 382.8381_wp, 366.3652_wp, 298.8244_wp, 257.2275_wp, 0.0000_wp, &
& 379.6844_wp, 363.3697_wp, 296.4552_wp, 255.2418_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 329.9250_wp, 316.5231_wp, 260.5925_wp, 226.0224_wp, 0.0000_wp, &
& 332.4791_wp, 318.9305_wp, 262.4494_wp, 227.5472_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 283.1269_wp, 272.2288_wp, 226.0215_wp, 197.3762_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1828.5696_wp, 1694.2091_wp, 1243.0036_wp, 976.6194_wp, 0.0000_wp, &
& 599.8987_wp, 567.6002_wp, 445.7605_wp, 372.1527_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1529.6862_wp, 1430.6640_wp, 1078.8447_wp, 869.2745_wp, 0.0000_wp, &
& 1250.1173_wp, 1168.5036_wp, 881.5739_wp, 710.6790_wp, 0.0000_wp, &
& 606.8145_wp, 576.2896_wp, 457.8102_wp, 385.7594_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1311.8922_wp, 1231.6979_wp, 940.6363_wp, 766.4059_wp, 0.0000_wp, &
& 916.1592_wp, 862.8833_wp, 667.6471_wp, 550.2164_wp, 0.0000_wp, &
& 573.8021_wp, 546.6690_wp, 438.9483_wp, 373.0875_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1163.5963_wp, 1095.0419_wp, 842.9594_wp, 691.5997_wp, 0.0000_wp, &
& 652.5654_wp, 619.6537_wp, 492.2291_wp, 414.7814_wp, 0.0000_wp, &
& 575.8020_wp, 549.0572_wp, 442.2260_wp, 376.8173_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1051.8917_wp, 991.4013_wp, 767.2243_wp, 632.3580_wp, 0.0000_wp, &
& 659.2865_wp, 626.0254_wp, 497.1382_wp, 418.8482_wp, 0.0000_wp, &
& 557.9340_wp, 531.7720_wp, 427.8632_wp, 364.3226_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 799.9994_wp, 755.8918_wp, 590.4050_wp, 490.5720_wp, 0.0000_wp, &
& 611.3911_wp, 581.0549_wp, 463.0670_wp, 391.2722_wp, 0.0000_wp, &
& 486.2116_wp, 464.5679_wp, 377.1375_wp, 323.4882_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 897.6451_wp, 847.3557_wp, 659.5747_wp, 546.3930_wp, 0.0000_wp, &
& 700.4229_wp, 663.0380_wp, 521.6978_wp, 436.2161_wp, 0.0000_wp, &
& 424.3145_wp, 406.2117_wp, 332.1088_wp, 286.5085_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 672.6516_wp, 636.7480_wp, 500.7277_wp, 418.4851_wp, 0.0000_wp, &
& 524.8236_wp, 500.1628_wp, 402.3825_wp, 342.6308_wp, 0.0000_wp, &
& 399.3109_wp, 382.5457_wp, 313.5888_wp, 271.1133_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 735.2525_wp, 696.1321_wp, 547.3300_wp, 457.2780_wp, 0.0000_wp, &
& 490.3325_wp, 467.3771_wp, 376.3625_wp, 320.7454_wp, 0.0000_wp, &
& 412.2889_wp, 394.0370_wp, 320.4011_wp, 275.2351_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 678.0996_wp, 642.6456_wp, 506.9866_wp, 424.7783_wp, 0.0000_wp, &
& 454.0576_wp, 432.9973_wp, 349.3149_wp, 298.1562_wp, 0.0000_wp, &
& 432.3183_wp, 412.9408_wp, 334.9874_wp, 287.2026_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 567.3303_wp, 537.2058_wp, 423.1021_wp, 354.1221_wp, 0.0000_wp, &
& 440.2733_wp, 419.6868_wp, 338.1165_wp, 288.2865_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 593.3574_wp, 563.0312_wp, 446.1184_wp, 375.1486_wp, 0.0000_wp, &
& 430.3607_wp, 411.1576_wp, 333.6408_wp, 286.0771_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 757.7397_wp, 716.7957_wp, 561.9006_wp, 468.2521_wp, 0.0000_wp, &
& 716.7957_wp, 678.9920_wp, 534.7248_wp, 447.3269_wp, 0.0000_wp, &
& 561.9006_wp, 534.7248_wp, 427.9140_wp, 362.7514_wp, 0.0000_wp, &
& 468.2521_wp, 447.3269_wp, 362.7514_wp, 310.8315_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 41.5334_wp, 39.0500_wp, 37.9122_wp, 34.5503_wp, 31.6020_wp, &
& 67.9430_wp, 63.5189_wp, 61.4868_wp, 55.5643_wp, 50.3940_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 26.7862_wp, 25.4105_wp, 24.7833_wp, 22.8875_wp, 21.2154_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 708.4597_wp, 642.4190_wp, 611.5612_wp, 527.1851_wp, 455.9199_wp, &
& 228.0814_wp, 210.3815_wp, 202.2053_wp, 179.0706_wp, 159.1376_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 393.7991_wp, 362.7434_wp, 348.3949_wp, 307.8814_wp, 273.0046_wp, &
& 289.4713_wp, 267.5036_wp, 257.3551_wp, 228.5584_wp, 203.7227_wp, &
& 184.6849_wp, 172.1767_wp, 166.4248_wp, 149.7680_wp, 135.2605_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 258.7146_wp, 240.5934_wp, 232.2513_wp, 208.2379_wp, 187.3808_wp, &
& 216.4276_wp, 201.6758_wp, 194.8895_wp, 175.2745_wp, 158.2137_wp, &
& 180.6996_wp, 168.7248_wp, 163.2184_wp, 147.2385_wp, 133.3214_wp, &
& 135.4439_wp, 127.1409_wp, 123.3340_wp, 112.1331_wp, 102.3247_wp, &
& 127.1521_wp, 119.4559_wp, 115.9286_wp, 105.5295_wp, 96.4179_wp, &
& 171.4367_wp, 160.5876_wp, 155.6083_wp, 141.0407_wp, 128.3113_wp, &
& 160.7910_wp, 150.6040_wp, 145.9274_wp, 132.2562_wp, 120.3190_wp, &
& 130.0766_wp, 122.2030_wp, 118.5942_wp, 107.9636_wp, 98.6540_wp, &
& 121.6598_wp, 114.3072_wp, 110.9372_wp, 101.0131_wp, 92.3260_wp, &
& 98.3431_wp, 92.8021_wp, 90.2683_wp, 82.7170_wp, 76.0810_wp, &
& 118.1509_wp, 111.2768_wp, 108.1299_wp, 98.8025_wp, 90.6184_wp, &
& 110.0951_wp, 103.7070_wp, 100.7826_wp, 92.1154_wp, 84.5138_wp, &
& 103.2113_wp, 97.2826_wp, 94.5696_wp, 86.5174_wp, 79.4522_wp, &
& 90.6876_wp, 85.5479_wp, 83.1968_wp, 76.2100_wp, 70.0800_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 88.5408_wp, 83.7120_wp, 81.5058_wp, 74.9029_wp, 69.0939_wp, &
& 79.1704_wp, 74.9289_wp, 72.9923_wp, 67.1811_wp, 62.0665_wp, &
& 69.6046_wp, 65.9635_wp, 64.3022_wp, 59.3029_wp, 54.9005_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 66.4996_wp, 63.0806_wp, 61.5214_wp, 56.8151_wp, 52.6661_wp, &
& 53.6243_wp, 51.0492_wp, 49.8778_wp, 46.3030_wp, 43.1432_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.8110_wp, 48.3258_wp, 47.1942_wp, 43.7556_wp, 40.7195_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1236:1330) = reshape([ &
& 845.1348_wp, 767.0955_wp, 730.6587_wp, 630.8687_wp, 546.5096_wp, &
& 334.7023_wp, 308.2470_wp, 296.0155_wp, 261.5400_wp, 231.9019_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 631.9434_wp, 580.4500_wp, 556.6241_wp, 489.7532_wp, 432.3765_wp, &
& 518.6518_wp, 477.2848_wp, 458.1425_wp, 404.2763_wp, 358.0089_wp, &
& 331.2828_wp, 307.5475_wp, 296.6147_wp, 265.2575_wp, 238.0549_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 575.4018_wp, 531.0794_wp, 510.6087_wp, 452.6192_wp, 402.6252_wp, &
& 519.8424_wp, 480.3735_wp, 462.1521_wp, 410.4176_wp, 365.7711_wp, &
& 400.7894_wp, 371.8779_wp, 358.5500_wp, 320.3924_wp, 287.3337_wp, &
& 308.0840_wp, 287.3337_wp, 277.7927_wp, 250.1421_wp, 226.0504_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 445.7623_wp, 414.1403_wp, 399.5774_wp, 357.7428_wp, 321.4363_wp, &
& 410.8960_wp, 382.1255_wp, 368.8796_wp, 330.7531_wp, 297.6403_wp, &
& 381.2230_wp, 354.8687_wp, 342.7407_wp, 307.7570_wp, 277.3459_wp, &
& 372.0785_wp, 346.1431_wp, 334.2022_wp, 299.8218_wp, 269.9679_wp, &
& 302.4879_wp, 282.6684_wp, 273.5628_wp, 247.0572_wp, 223.9283_wp, &
& 342.4169_wp, 319.9307_wp, 309.5992_wp, 279.5392_wp, 253.3166_wp, &
& 332.1722_wp, 310.4238_wp, 300.4318_wp, 271.3488_wp, 245.9773_wp, &
& 327.9460_wp, 306.3712_wp, 296.4572_wp, 267.6299_wp, 242.4940_wp, &
& 303.0033_wp, 283.4898_wp, 274.5293_wp, 248.3782_wp, 225.5418_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 281.3255_wp, 263.8277_wp, 255.8013_wp, 232.2434_wp, 211.6318_wp, &
& 278.2787_wp, 260.9497_wp, 253.0003_wp, 229.6756_wp, 209.2713_wp, &
& 272.5881_wp, 255.6336_wp, 247.8563_wp, 225.0338_wp, 205.0687_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 227.5635_wp, 214.1723_wp, 208.0402_wp, 189.8824_wp, 173.9517_wp, &
& 225.2381_wp, 211.9709_wp, 205.8954_wp, 187.9096_wp, 172.1318_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 184.5845_wp, 174.2639_wp, 169.5457_wp, 155.4627_wp, 143.0794_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1390.2912_wp, 1259.5964_wp, 1198.2993_wp, 1031.5350_wp, 891.2091_wp, &
& 456.4613_wp, 422.0055_wp, 406.0845_wp, 360.9675_wp, 322.1273_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1123.0616_wp, 1026.6097_wp, 981.8206_wp, 857.4537_wp, 751.4576_wp, &
& 896.4155_wp, 819.9926_wp, 784.4219_wp, 685.8003_wp, 601.8691_wp, &
& 464.1193_wp, 430.8853_wp, 415.5727_wp, 371.7123_wp, 333.7206_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 923.0182_wp, 845.5447_wp, 809.6247_wp, 709.4418_wp, 623.8277_wp, &
& 451.1340_wp, 419.1432_wp, 404.4096_wp, 362.1394_wp, 325.5023_wp, &
& 443.0605_wp, 412.3939_wp, 398.2795_wp, 357.6129_wp, 322.2908_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 886.6318_wp, 813.8964_wp, 780.2017_wp, 685.8851_wp, 605.1321_wp, &
& 435.1948_wp, 404.4378_wp, 390.2655_wp, 349.6106_wp, 314.3804_wp, &
& 448.2770_wp, 417.3325_wp, 403.0919_wp, 362.0440_wp, 326.3851_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 809.4134_wp, 743.9253_wp, 713.6060_wp, 628.5419_wp, 555.6200_wp, &
& 426.5933_wp, 396.4079_wp, 382.4997_wp, 342.6120_wp, 308.0520_wp, &
& 410.3518_wp, 381.9818_wp, 368.9209_wp, 331.3093_wp, 298.6591_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 636.6561_wp, 585.4069_wp, 561.6694_wp, 495.0936_wp, 438.0628_wp, &
& 423.3208_wp, 393.1215_wp, 379.2021_wp, 339.3449_wp, 304.8385_wp, &
& 305.5108_wp, 285.6107_wp, 276.4674_wp, 249.8939_wp, 226.7483_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 693.7442_wp, 638.7587_wp, 613.3230_wp, 541.7184_wp, 480.2245_wp, &
& 386.6184_wp, 360.1114_wp, 347.9151_wp, 312.7295_wp, 282.1503_wp, &
& 259.5584_wp, 243.2984_wp, 235.8366_wp, 214.0118_wp, 194.9556_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 543.3629_wp, 500.6304_wp, 480.8588_wp, 425.1904_wp, 377.4064_wp, &
& 356.9159_wp, 332.7595_wp, 321.6484_wp, 289.5301_wp, 261.5954_wp, &
& 255.0100_wp, 238.9587_wp, 231.5914_wp, 210.0623_wp, 191.2703_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 572.8169_wp, 528.9965_wp, 508.7598_wp, 451.4360_wp, 402.0434_wp, &
& 340.4265_wp, 317.3978_wp, 306.8041_wp, 276.1884_wp, 249.5667_wp, &
& 302.4131_wp, 282.1750_wp, 272.8668_wp, 245.9388_wp, 222.5235_wp, &
& 267.2082_wp, 250.0264_wp, 242.1351_wp, 219.1541_wp, 199.1182_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 592.0464_wp, 546.0473_wp, 524.7928_wp, 464.7381_wp, 413.0565_wp, &
& 333.0301_wp, 310.4237_wp, 300.0232_wp, 269.9857_wp, 243.8751_wp, &
& 280.8455_wp, 262.3696_wp, 253.8779_wp, 229.2387_wp, 207.7855_wp, &
& 296.8872_wp, 276.6393_wp, 267.3225_wp, 240.4605_wp, 217.1392_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 453.2089_wp, 418.1730_wp, 401.9752_wp, 356.2413_wp, 316.9274_wp, &
& 331.0063_wp, 307.8194_wp, 297.1406_wp, 266.4758_wp, 239.8928_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 461.1971_wp, 427.1025_wp, 411.3778_wp, 366.5785_wp, 327.8656_wp, &
& 307.2635_wp, 286.9464_wp, 277.6083_wp, 250.5077_wp, 226.8951_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 548.0549_wp, 506.8838_wp, 487.8786_wp, 433.8635_wp, 387.2413_wp, &
& 513.0315_wp, 475.1014_wp, 457.6031_wp, 407.7353_wp, 364.6366_wp, &
& 401.7251_wp, 373.7047_wp, 360.8017_wp, 323.6722_wp, 291.4396_wp, &
& 324.8229_wp, 303.5179_wp, 293.7290_wp, 265.2550_wp, 240.4178_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 477.1034_wp, 443.4892_wp, 428.0103_wp, 383.5189_wp, 344.9065_wp, &
& 444.9048_wp, 414.0613_wp, 399.8646_wp, 358.9520_wp, 323.4073_wp, &
& 422.6322_wp, 393.6595_wp, 380.3291_wp, 341.8407_wp, 308.3757_wp, &
& 376.6108_wp, 351.5201_wp, 339.9859_wp, 306.5241_wp, 277.3717_wp, &
& 330.1301_wp, 308.9411_wp, 299.2117_wp, 270.8052_wp, 245.9922_wp, &
& 401.9415_wp, 375.3694_wp, 363.1576_wp, 327.6790_wp, 296.7505_wp, &
& 394.8165_wp, 368.8196_wp, 356.8734_wp, 322.1450_wp, 291.8644_wp, &
& 383.9466_wp, 358.8398_wp, 347.3049_wp, 313.7342_wp, 284.4506_wp, &
& 369.1013_wp, 345.2176_wp, 334.2483_wp, 302.2666_wp, 274.3493_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 357.7871_wp, 335.1182_wp, 324.7135_wp, 294.2742_wp, 267.6724_wp, &
& 357.9609_wp, 335.2667_wp, 324.8502_wp, 294.3804_wp, 267.7542_wp, &
& 355.0652_wp, 332.5825_wp, 322.2635_wp, 292.0737_wp, 265.6909_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 310.5093_wp, 291.7179_wp, 283.1051_wp, 257.7196_wp, 235.4797_wp, &
& 312.7994_wp, 293.8239_wp, 285.1261_wp, 259.5011_wp, 237.0549_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 267.9532_wp, 252.4408_wp, 245.3409_wp, 224.2655_wp, 205.7618_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1554.3698_wp, 1409.5386_wp, 1341.6152_wp, 1156.6447_wp, 1000.9319_wp, &
& 542.8777_wp, 502.4986_wp, 483.8461_wp, 430.8811_wp, 385.2516_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1338.5665_wp, 1223.3073_wp, 1169.7495_wp, 1021.1992_wp, 894.7056_wp, &
& 1091.6636_wp, 998.1919_wp, 954.6446_wp, 834.0979_wp, 731.6257_wp, &
& 555.3233_wp, 515.7606_wp, 497.5316_wp, 445.2988_wp, 400.0650_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1161.3674_wp, 1065.4342_wp, 1020.9627_wp, 896.6822_wp, 790.3938_wp, &
& 818.4130_wp, 754.1146_wp, 724.2934_wp, 640.4740_wp, 568.6159_wp, &
& 529.9186_wp, 493.8129_wp, 477.2036_wp, 429.2279_wp, 387.5181_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1037.2812_wp, 953.9322_wp, 915.3455_wp, 806.9968_wp, 714.0953_wp, &
& 596.8919_wp, 554.4107_wp, 534.8274_wp, 478.7355_wp, 430.1818_wp, &
& 533.0732_wp, 497.2424_wp, 480.7668_wp, 433.0658_wp, 391.5532_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 941.7792_wp, 867.5475_wp, 833.2050_wp, 736.4802_wp, 653.4187_wp, &
& 602.9692_wp, 559.9850_wp, 540.1792_wp, 483.4478_wp, 434.3422_wp, &
& 515.7374_wp, 480.9564_wp, 464.9556_wp, 418.6918_wp, 378.4693_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 721.2906_wp, 666.4197_wp, 641.0643_wp, 569.2766_wp, 507.4919_wp, &
& 560.5104_wp, 521.1563_wp, 503.0236_wp, 450.9840_wp, 405.9028_wp, &
& 452.4616_wp, 423.1570_wp, 409.6963_wp, 370.5143_wp, 336.3592_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 807.2358_wp, 744.9993_wp, 716.2239_wp, 634.9209_wp, 565.0031_wp, &
& 634.7831_wp, 587.9355_wp, 566.2902_wp, 504.7650_wp, 451.7317_wp, &
& 396.8920_wp, 372.0410_wp, 360.6378_wp, 327.2637_wp, 298.1122_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 609.6152_wp, 564.4589_wp, 543.6104_wp, 484.3486_wp, 433.2544_wp, &
& 484.8855_wp, 452.1682_wp, 437.1184_wp, 393.6270_wp, 355.8286_wp, &
& 374.1870_wp, 351.0591_wp, 340.4508_wp, 309.3410_wp, 282.1480_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 666.8954_wp, 617.3791_wp, 594.5277_wp, 529.5371_wp, 473.4591_wp, &
& 453.1794_wp, 422.7438_wp, 408.7434_wp, 368.2710_wp, 333.0973_wp, &
& 383.7851_wp, 359.1380_wp, 347.8166_wp, 314.8522_wp, 286.1251_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 616.7522_wp, 571.5602_wp, 550.7159_wp, 491.3041_wp, 439.9855_wp, &
& 420.1268_wp, 392.1471_wp, 379.2791_wp, 342.0404_wp, 309.6665_wp, &
& 401.8433_wp, 375.7345_wp, 363.7391_wp, 328.8698_wp, 298.4950_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 514.4477_wp, 476.5966_wp, 459.1219_wp, 409.4318_wp, 366.5943_wp, &
& 406.9029_wp, 379.6335_wp, 367.0907_wp, 330.8354_wp, 299.3318_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 541.5490_wp, 502.5513_wp, 484.5759_wp, 433.1992_wp, 388.7621_wp, &
& 400.3474_wp, 374.3430_wp, 362.3966_wp, 327.6519_wp, 297.3658_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 685.6138_wp, 634.1195_wp, 610.3382_wp, 542.8413_wp, 484.6532_wp, &
& 651.1403_wp, 603.0965_wp, 580.9260_wp, 517.8029_wp, 463.2993_wp, &
& 517.1479_wp, 481.4185_wp, 464.9677_wp, 417.6093_wp, 376.5051_wp, &
& 435.6252_wp, 407.2275_wp, 394.1807_wp, 356.2359_wp, 323.1509_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 627.5677_wp, 582.7693_wp, 562.1276_wp, 502.9891_wp, 451.7578_wp, &
& 582.7693_wp, 542.0439_wp, 523.2910_wp, 469.3751_wp, 422.5950_wp, &
& 562.1276_wp, 523.2910_wp, 505.4148_wp, 453.9195_wp, 409.2008_wp, &
& 502.9891_wp, 469.3751_wp, 453.9195_wp, 409.1453_wp, 370.1674_wp, &
& 451.7578_wp, 422.5950_wp, 409.2008_wp, 370.1674_wp, 336.1020_wp, &
& 37.7681_wp, 37.1186_wp, 36.2277_wp, 35.0939_wp, 0.0000_wp, &
& 60.9470_wp, 59.7796_wp, 58.1962_wp, 56.1946_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 24.8583_wp, 24.5068_wp, 24.0141_wp, 23.3792_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 586.6888_wp, 569.5020_wp, 546.8547_wp, 518.6427_wp, 0.0000_wp, &
& 197.7698_wp, 193.0801_wp, 186.8353_wp, 179.0274_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 340.3030_wp, 332.0665_wp, 321.1170_wp, 307.4421_wp, 0.0000_wp, &
& 252.1649_wp, 246.3580_wp, 238.6037_wp, 228.8894_wp, 0.0000_wp, &
& 164.5348_wp, 161.2234_wp, 156.7541_wp, 151.1215_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 229.0421_wp, 224.2438_wp, 217.7905_wp, 209.6745_wp, 0.0000_wp, &
& 192.5542_wp, 188.6577_wp, 183.4000_wp, 176.7743_wp, 0.0000_wp, &
& 161.5570_wp, 158.4037_wp, 154.1335_wp, 148.7395_wp, 0.0000_wp, &
& 122.6873_wp, 120.5099_wp, 117.5338_wp, 113.7542_wp, 0.0000_wp, &
& 115.4018_wp, 113.3867_wp, 110.6276_wp, 107.1200_wp, 0.0000_wp, &
& 154.4851_wp, 151.6334_wp, 147.7519_wp, 142.8348_wp, 0.0000_wp, &
& 144.8462_wp, 142.1737_wp, 138.5349_wp, 133.9240_wp, 0.0000_wp, &
& 118.0337_wp, 115.9742_wp, 113.1548_wp, 109.5710_wp, 0.0000_wp, &
& 110.4089_wp, 108.4883_wp, 105.8584_wp, 102.5148_wp, 0.0000_wp, &
& 90.1797_wp, 88.7434_wp, 86.7574_wp, 84.2177_wp, 0.0000_wp, &
& 107.8436_wp, 106.0538_wp, 103.5908_wp, 100.4500_wp, 0.0000_wp, &
& 100.5182_wp, 98.8583_wp, 96.5724_wp, 93.6562_wp, 0.0000_wp, &
& 94.3654_wp, 92.8262_wp, 90.7043_wp, 87.9958_wp, 0.0000_wp, &
& 83.0577_wp, 81.7279_wp, 79.8912_wp, 77.5440_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 81.5358_wp, 80.2899_wp, 78.5600_wp, 76.3424_wp, 0.0000_wp, &
& 73.0718_wp, 71.9816_wp, 70.4634_wp, 68.5141_wp, 0.0000_wp, &
& 64.4291_wp, 63.4972_wp, 62.1954_wp, 60.5209_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 61.6912_wp, 60.8174_wp, 59.5937_wp, 58.0176_wp, 0.0000_wp, &
& 50.1473_wp, 49.4970_wp, 48.5766_wp, 47.3835_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 47.4073_wp, 46.7775_wp, 45.8894_wp, 44.7408_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 701.6903_wp, 681.3650_wp, 654.5716_wp, 621.1943_wp, 0.0000_wp, &
& 288.9888_wp, 281.9923_wp, 272.6893_wp, 261.0668_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 541.9826_wp, 528.3545_wp, 510.2824_wp, 487.7418_wp, 0.0000_wp, &
& 446.9230_wp, 435.9923_wp, 421.4626_wp, 403.3092_wp, 0.0000_wp, &
& 292.0246_wp, 285.7251_wp, 277.2781_wp, 266.6745_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 499.7292_wp, 487.9847_wp, 472.3352_wp, 452.7605_wp, 0.0000_wp, &
& 452.8494_wp, 442.3946_wp, 428.4437_wp, 410.9788_wp, 0.0000_wp, &
& 352.7849_wp, 345.1303_wp, 334.8650_wp, 321.9748_wp, 0.0000_wp, &
& 274.7333_wp, 269.2400_wp, 261.8224_wp, 252.4713_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 393.6899_wp, 385.3102_wp, 374.0566_wp, 359.9159_wp, 0.0000_wp, &
& 363.7846_wp, 356.1681_wp, 345.9236_wp, 333.0384_wp, 0.0000_wp, &
& 338.3189_wp, 331.3449_wp, 321.9519_wp, 310.1284_wp, 0.0000_wp, &
& 329.6625_wp, 322.8072_wp, 313.5794_wp, 301.9669_wp, 0.0000_wp, &
& 271.0387_wp, 265.8053_wp, 258.7140_wp, 249.7552_wp, 0.0000_wp, &
& 306.6912_wp, 300.7558_wp, 292.7145_wp, 282.5564_wp, 0.0000_wp, &
& 297.6598_wp, 291.9225_wp, 284.1462_wp, 274.3202_wp, 0.0000_wp, &
& 293.6168_wp, 287.9266_wp, 280.2178_wp, 270.4800_wp, 0.0000_wp, &
& 272.2813_wp, 267.1401_wp, 260.1578_wp, 251.3243_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.2418_wp, 249.6469_wp, 243.3785_wp, 235.4268_wp, 0.0000_wp, &
& 251.4344_wp, 246.8844_wp, 240.6781_wp, 232.8057_wp, 0.0000_wp, &
& 246.3350_wp, 241.8844_wp, 235.8128_wp, 228.1108_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 207.4043_wp, 203.9103_wp, 199.1082_wp, 192.9893_wp, 0.0000_wp, &
& 205.2512_wp, 201.7898_wp, 197.0330_wp, 190.9724_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.4533_wp, 166.7796_wp, 163.0783_wp, 158.3420_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1147.6700_wp, 1113.9369_wp, 1069.4211_wp, 1013.8323_wp, 0.0000_wp, &
& 397.8416_wp, 388.7844_wp, 376.6755_wp, 361.4928_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 950.6543_wp, 925.3266_wp, 891.8232_wp, 850.0618_wp, 0.0000_wp, &
& 759.7988_wp, 739.8380_wp, 713.3777_wp, 680.3184_wp, 0.0000_wp, &
& 409.0173_wp, 400.2337_wp, 388.4468_wp, 373.6423_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 785.8323_wp, 765.4303_wp, 738.4121_wp, 704.7245_wp, 0.0000_wp, &
& 398.3152_wp, 389.8645_wp, 378.5124_wp, 364.2456_wp, 0.0000_wp, &
& 393.0115_wp, 384.9081_wp, 373.9963_wp, 360.2627_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 758.9406_wp, 739.7751_wp, 714.3497_wp, 682.6170_wp, 0.0000_wp, &
& 384.4487_wp, 376.3336_wp, 365.4257_wp, 351.7089_wp, 0.0000_wp, &
& 397.8333_wp, 389.6578_wp, 378.6459_wp, 364.7838_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 695.0683_wp, 677.8014_wp, 654.8718_wp, 626.2392_wp, 0.0000_wp, &
& 376.7544_wp, 368.7908_wp, 358.0883_wp, 344.6316_wp, 0.0000_wp, &
& 364.0189_wp, 356.5349_wp, 346.4532_wp, 333.7597_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 547.1981_wp, 533.7253_wp, 515.8152_wp, 493.4310_wp, 0.0000_wp, &
& 373.2591_wp, 365.2940_wp, 354.5977_wp, 341.1548_wp, 0.0000_wp, &
& 273.8552_wp, 268.6291_wp, 261.5413_wp, 252.5817_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 598.5168_wp, 584.0079_wp, 564.7110_wp, 540.5946_wp, 0.0000_wp, &
& 343.5205_wp, 336.5178_wp, 327.0807_wp, 315.1977_wp, 0.0000_wp, &
& 234.1750_wp, 229.9158_wp, 224.1126_wp, 216.7567_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 469.4569_wp, 458.2135_wp, 443.2412_wp, 424.5124_wp, 0.0000_wp, &
& 317.8624_wp, 311.4859_wp, 302.8803_wp, 292.0345_wp, 0.0000_wp, &
& 229.8877_wp, 225.6812_wp, 219.9538_wp, 212.6969_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 498.0472_wp, 486.4645_wp, 471.0186_wp, 451.6893_wp, 0.0000_wp, &
& 303.1856_wp, 297.1110_wp, 288.9115_wp, 278.5760_wp, 0.0000_wp, &
& 269.8010_wp, 264.4748_wp, 257.2754_wp, 248.1924_wp, 0.0000_wp, &
& 240.0396_wp, 235.5276_wp, 229.4010_wp, 221.6512_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 513.0585_wp, 500.9011_wp, 484.7111_wp, 464.4665_wp, 0.0000_wp, &
& 296.4064_wp, 290.4433_wp, 282.3973_wp, 272.2578_wp, 0.0000_wp, &
& 251.3164_wp, 246.4555_wp, 239.8735_wp, 231.5614_wp, 0.0000_wp, &
& 263.9496_wp, 258.6194_wp, 251.4301_wp, 242.3721_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 393.0249_wp, 383.8010_wp, 371.5028_wp, 356.1095_wp, 0.0000_wp, &
& 292.8589_wp, 286.7436_wp, 278.5192_wp, 268.1748_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.8621_wp, 394.8434_wp, 382.7819_wp, 367.6637_wp, 0.0000_wp, &
& 274.7816_wp, 269.4208_wp, 262.1684_wp, 253.0149_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.3993_wp, 467.5119_wp, 452.9662_wp, 434.7417_wp, 0.0000_wp, &
& 449.3006_wp, 439.2692_wp, 425.8475_wp, 409.0175_wp, 0.0000_wp, &
& 355.8474_wp, 348.4425_wp, 338.4772_wp, 325.9378_wp, 0.0000_wp, &
& 290.9600_wp, 285.3363_wp, 277.7186_wp, 268.0968_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 421.8616_wp, 412.9661_wp, 401.0098_wp, 385.9785_wp, 0.0000_wp, &
& 394.5822_wp, 386.4260_wp, 375.4438_wp, 361.6218_wp, 0.0000_wp, &
& 375.6047_wp, 367.9463_wp, 357.6221_wp, 344.6189_wp, 0.0000_wp, &
& 336.4289_wp, 329.8047_wp, 320.8460_wp, 309.5410_wp, 0.0000_wp, &
& 296.8145_wp, 291.2302_wp, 283.6451_wp, 274.0484_wp, 0.0000_wp, &
& 359.5564_wp, 352.5427_wp, 343.0487_wp, 331.0618_wp, 0.0000_wp, &
& 353.4245_wp, 346.5656_wp, 337.2763_wp, 325.5439_wp, 0.0000_wp, &
& 344.1036_wp, 337.4828_wp, 328.5083_wp, 317.1679_wp, 0.0000_wp, &
& 331.3946_wp, 325.0999_wp, 316.5569_wp, 305.7538_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 322.3608_wp, 316.3984_wp, 308.2846_wp, 298.0072_wp, 0.0000_wp, &
& 322.4812_wp, 316.5125_wp, 308.3906_wp, 298.1033_wp, 0.0000_wp, &
& 319.9354_wp, 314.0234_wp, 305.9773_wp, 295.7851_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 281.8050_wp, 276.8856_wp, 270.1506_wp, 261.5889_wp, 0.0000_wp, &
& 283.7761_wp, 278.8076_wp, 272.0076_wp, 263.3649_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 244.7902_wp, 240.7515_wp, 235.1882_wp, 228.0904_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1286.1750_wp, 1248.8109_wp, 1199.4646_wp, 1137.8099_wp, 0.0000_wp, &
& 474.5641_wp, 463.9632_wp, 449.7669_wp, 431.9480_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1132.1713_wp, 1101.9644_wp, 1061.9947_wp, 1012.1518_wp, 0.0000_wp, &
& 924.1369_wp, 899.7796_wp, 867.4828_wp, 827.1106_wp, 0.0000_wp, &
& 489.8228_wp, 479.3863_wp, 465.3683_wp, 447.7500_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 992.4001_wp, 967.1672_wp, 933.6956_wp, 891.9140_wp, 0.0000_wp, &
& 707.0933_wp, 690.2435_wp, 667.7703_wp, 639.6032_wp, 0.0000_wp, &
& 471.4064_wp, 461.8766_wp, 449.0205_wp, 432.8219_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 892.0877_wp, 870.1334_wp, 840.9533_wp, 804.4937_wp, 0.0000_wp, &
& 526.5426_wp, 515.3541_wp, 500.3168_wp, 481.4071_wp, 0.0000_wp, &
& 475.3821_wp, 465.9289_wp, 453.1570_wp, 437.0500_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 813.4345_wp, 793.8771_wp, 767.8415_wp, 735.2812_wp, 0.0000_wp, &
& 531.7424_wp, 520.4182_wp, 505.2035_wp, 486.0786_wp, 0.0000_wp, &
& 459.5750_wp, 450.4159_wp, 438.0410_wp, 422.4320_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 627.6849_wp, 613.2470_wp, 593.9624_wp, 569.7978_wp, 0.0000_wp, &
& 495.6948_wp, 485.3374_wp, 471.3990_wp, 453.8578_wp, 0.0000_wp, &
& 406.0312_wp, 398.3318_wp, 387.8818_wp, 374.6663_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 700.5163_wp, 684.1292_wp, 662.2699_wp, 634.8991_wp, 0.0000_wp, &
& 555.7794_wp, 543.4822_wp, 527.0000_wp, 506.2976_wp, 0.0000_wp, &
& 358.1519_wp, 351.6390_wp, 342.7635_wp, 331.5119_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.3804_wp, 521.5071_wp, 505.6089_wp, 485.6592_wp, 0.0000_wp, &
& 431.9865_wp, 423.3751_wp, 411.7430_wp, 397.0742_wp, 0.0000_wp, &
& 338.3541_wp, 332.2995_wp, 324.0357_wp, 313.5500_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 583.3346_wp, 570.2790_wp, 552.8128_wp, 530.9113_wp, 0.0000_wp, &
& 404.0384_wp, 396.0359_wp, 385.2196_wp, 371.5740_wp, 0.0000_wp, &
& 344.8082_wp, 338.3472_wp, 329.5690_wp, 318.4602_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.9125_wp, 528.9954_wp, 513.0345_wp, 493.0084_wp, 0.0000_wp, &
& 375.0995_wp, 367.7493_wp, 357.8055_wp, 345.2533_wp, 0.0000_wp, &
& 360.3420_wp, 353.4857_wp, 344.1857_wp, 332.4291_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 450.6427_wp, 440.7041_wp, 427.3871_wp, 410.6685_wp, 0.0000_wp, &
& 362.8740_wp, 355.7080_wp, 346.0216_wp, 333.8012_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 476.5783_wp, 466.2941_wp, 452.4998_wp, 435.1777_wp, 0.0000_wp, &
& 359.0555_wp, 352.2132_wp, 342.9362_wp, 331.2119_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 598.2891_wp, 584.7110_wp, 566.5642_wp, 543.8198_wp, 0.0000_wp, &
& 570.3015_wp, 557.6272_wp, 540.6624_wp, 519.3820_wp, 0.0000_wp, &
& 458.7676_wp, 449.3448_wp, 436.6520_wp, 420.6714_wp, 0.0000_wp, &
& 390.5107_wp, 383.0280_wp, 372.8876_wp, 360.0757_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 553.3592_wp, 541.5209_wp, 525.6310_wp, 505.6697_wp, 0.0000_wp, &
& 515.9467_wp, 505.1900_wp, 490.7203_wp, 472.5189_wp, 0.0000_wp, &
& 498.7395_wp, 488.4839_wp, 474.6720_wp, 457.2860_wp, 0.0000_wp, &
& 448.9769_wp, 440.1085_wp, 428.1222_wp, 413.0024_wp, 0.0000_wp, &
& 405.6849_wp, 398.0011_wp, 387.5752_wp, 374.3929_wp, 0.0000_wp, &
& 492.9379_wp, 483.0596_wp, 469.7255_wp, 452.9187_wp, 0.0000_wp, &
& 483.0596_wp, 473.4703_wp, 460.5150_wp, 444.1770_wp, 0.0000_wp, &
& 469.7255_wp, 460.5150_wp, 448.0573_wp, 432.3357_wp, 0.0000_wp, &
& 452.9187_wp, 444.1770_wp, 432.3357_wp, 417.3790_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.4841_wp, 35.4861_wp, 35.2461_wp, 0.0000_wp, 0.0000_wp, &
& 56.7427_wp, 56.7156_wp, 56.2769_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 23.6911_wp, 23.7100_wp, 23.5851_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 521.2511_wp, 519.4518_wp, 512.7164_wp, 0.0000_wp, 0.0000_wp, &
& 180.3056_wp, 179.9812_wp, 178.1745_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 309.5439_wp, 308.9426_wp, 305.7629_wp, 0.0000_wp, 0.0000_wp, &
& 230.6309_wp, 230.2641_wp, 228.0340_wp, 0.0000_wp, 0.0000_wp, &
& 152.4956_wp, 152.3806_wp, 151.1275_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1331:1425) = reshape([ &
& 211.4898_wp, 211.2799_wp, 209.4559_wp, 0.0000_wp, 0.0000_wp, &
& 178.3919_wp, 178.2509_wp, 176.7765_wp, 0.0000_wp, 0.0000_wp, &
& 150.1754_wp, 150.0870_wp, 148.8998_wp, 0.0000_wp, 0.0000_wp, &
& 114.9752_wp, 114.9640_wp, 114.1553_wp, 0.0000_wp, 0.0000_wp, &
& 108.2922_wp, 108.2898_wp, 107.5434_wp, 0.0000_wp, 0.0000_wp, &
& 144.3032_wp, 144.2600_wp, 143.1947_wp, 0.0000_wp, 0.0000_wp, &
& 135.3122_wp, 135.2720_wp, 134.2742_wp, 0.0000_wp, 0.0000_wp, &
& 110.7747_wp, 110.7711_wp, 110.0087_wp, 0.0000_wp, 0.0000_wp, &
& 103.6503_wp, 103.6477_wp, 102.9373_wp, 0.0000_wp, 0.0000_wp, &
& 85.2343_wp, 85.2657_wp, 84.7425_wp, 0.0000_wp, 0.0000_wp, &
& 101.6124_wp, 101.6315_wp, 100.9745_wp, 0.0000_wp, 0.0000_wp, &
& 94.7508_wp, 94.7705_wp, 94.1622_wp, 0.0000_wp, 0.0000_wp, &
& 89.0359_wp, 89.0582_wp, 88.4953_wp, 0.0000_wp, 0.0000_wp, &
& 78.4819_wp, 78.5067_wp, 78.0224_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 77.2970_wp, 77.3365_wp, 76.8863_wp, 0.0000_wp, 0.0000_wp, &
& 69.3901_wp, 69.4317_wp, 69.0399_wp, 0.0000_wp, 0.0000_wp, &
& 61.3159_wp, 61.3585_wp, 61.0258_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 58.7881_wp, 58.8332_wp, 58.5223_wp, 0.0000_wp, 0.0000_wp, &
& 48.0535_wp, 48.1037_wp, 47.8771_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 45.3613_wp, 45.4044_wp, 45.1836_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 624.4076_wp, 622.3099_wp, 614.3523_wp, 0.0000_wp, 0.0000_wp, &
& 262.8846_wp, 262.3697_wp, 259.6698_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.8760_wp, 489.7820_wp, 484.5038_wp, 0.0000_wp, 0.0000_wp, &
& 406.0728_wp, 405.2529_wp, 401.0304_wp, 0.0000_wp, 0.0000_wp, &
& 268.8595_wp, 268.5418_wp, 266.1377_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 456.0400_wp, 455.2477_wp, 450.7267_wp, 0.0000_wp, 0.0000_wp, &
& 414.0544_wp, 413.3856_wp, 409.3685_wp, 0.0000_wp, 0.0000_wp, &
& 324.6278_wp, 324.2349_wp, 321.3129_wp, 0.0000_wp, 0.0000_wp, &
& 254.7805_wp, 254.5963_wp, 252.5189_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 362.9518_wp, 362.5561_wp, 359.3640_wp, 0.0000_wp, 0.0000_wp, &
& 335.9240_wp, 335.5914_wp, 332.6960_wp, 0.0000_wp, 0.0000_wp, &
& 312.8750_wp, 312.5939_wp, 309.9478_wp, 0.0000_wp, 0.0000_wp, &
& 304.6285_wp, 304.3388_wp, 301.7357_wp, 0.0000_wp, 0.0000_wp, &
& 252.1604_wp, 252.0272_wp, 250.0579_wp, 0.0000_wp, 0.0000_wp, &
& 285.2779_wp, 285.1239_wp, 282.8902_wp, 0.0000_wp, 0.0000_wp, &
& 276.9809_wp, 276.8372_wp, 274.6795_wp, 0.0000_wp, 0.0000_wp, &
& 273.0920_wp, 272.9417_wp, 270.8005_wp, 0.0000_wp, 0.0000_wp, &
& 253.8269_wp, 253.7228_wp, 251.7949_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 237.9018_wp, 237.8571_wp, 236.1456_wp, 0.0000_wp, 0.0000_wp, &
& 235.2519_wp, 235.2059_wp, 233.5109_wp, 0.0000_wp, 0.0000_wp, &
& 230.5137_wp, 230.4702_wp, 228.8128_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 195.1861_wp, 195.2131_wp, 193.9269_wp, 0.0000_wp, 0.0000_wp, &
& 193.1449_wp, 193.1704_wp, 191.8960_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 160.2674_wp, 160.3331_wp, 159.3608_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1019.3121_wp, 1015.7738_wp, 1002.5559_wp, 0.0000_wp, 0.0000_wp, &
& 364.4090_wp, 363.8482_wp, 360.3799_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 855.1882_wp, 852.9036_wp, 843.0540_wp, 0.0000_wp, 0.0000_wp, &
& 684.7073_wp, 682.9621_wp, 675.2096_wp, 0.0000_wp, 0.0000_wp, &
& 376.8093_wp, 376.3706_wp, 373.0245_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 709.1303_wp, 707.3769_wp, 699.4586_wp, 0.0000_wp, 0.0000_wp, &
& 367.3908_wp, 366.9900_wp, 363.7755_wp, 0.0000_wp, 0.0000_wp, &
& 363.4777_wp, 363.1446_wp, 360.0716_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 687.1235_wp, 685.5687_wp, 678.1485_wp, 0.0000_wp, 0.0000_wp, &
& 354.7793_wp, 354.4029_wp, 351.3179_wp, 0.0000_wp, 0.0000_wp, &
& 368.0557_wp, 367.7252_wp, 364.6262_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 630.4901_wp, 629.1390_wp, 622.4635_wp, 0.0000_wp, 0.0000_wp, &
& 347.6374_wp, 347.2648_wp, 344.2372_wp, 0.0000_wp, 0.0000_wp, &
& 336.7719_wp, 336.4671_wp, 333.6308_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 496.9143_wp, 495.8801_wp, 490.6786_wp, 0.0000_wp, 0.0000_wp, &
& 344.0982_wp, 343.7087_wp, 340.6774_wp, 0.0000_wp, 0.0000_wp, &
& 255.1077_wp, 254.9795_wp, 253.0195_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 544.4156_wp, 543.3438_wp, 537.7470_wp, 0.0000_wp, 0.0000_wp, &
& 318.0485_wp, 317.7750_wp, 315.1229_wp, 0.0000_wp, 0.0000_wp, &
& 219.0427_wp, 218.9858_wp, 217.3993_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 427.6439_wp, 426.8361_wp, 422.5068_wp, 0.0000_wp, 0.0000_wp, &
& 294.7348_wp, 294.5079_wp, 292.0979_wp, 0.0000_wp, 0.0000_wp, &
& 214.9236_wp, 214.8607_wp, 213.2923_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 455.0836_wp, 454.3170_wp, 449.8664_wp, 0.0000_wp, 0.0000_wp, &
& 281.1633_wp, 280.9482_wp, 278.6529_wp, 0.0000_wp, 0.0000_wp, &
& 250.5626_wp, 250.3896_wp, 248.3821_wp, 0.0000_wp, 0.0000_wp, &
& 223.8964_wp, 223.7999_wp, 222.1108_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 467.8493_wp, 467.0009_wp, 462.3208_wp, 0.0000_wp, 0.0000_wp, &
& 274.7751_wp, 274.5580_wp, 272.3038_wp, 0.0000_wp, 0.0000_wp, &
& 233.8236_wp, 233.6876_wp, 231.8603_wp, 0.0000_wp, 0.0000_wp, &
& 244.6310_wp, 244.4292_wp, 242.4149_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.8167_wp, 358.1870_wp, 354.6423_wp, 0.0000_wp, 0.0000_wp, &
& 270.5526_wp, 270.2783_wp, 267.9569_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.5936_wp, 370.0674_wp, 366.6162_wp, 0.0000_wp, 0.0000_wp, &
& 255.4289_wp, 255.2713_wp, 253.2520_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 438.1102_wp, 437.4417_wp, 433.2665_wp, 0.0000_wp, 0.0000_wp, &
& 412.2793_wp, 411.7018_wp, 407.8626_wp, 0.0000_wp, 0.0000_wp, &
& 328.8076_wp, 328.4905_wp, 325.6786_wp, 0.0000_wp, 0.0000_wp, &
& 270.6774_wp, 270.5297_wp, 268.4136_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.2997_wp, 388.8946_wp, 385.5109_wp, 0.0000_wp, 0.0000_wp, &
& 364.8243_wp, 364.4882_wp, 361.3931_wp, 0.0000_wp, 0.0000_wp, &
& 347.7286_wp, 347.4358_wp, 344.5346_wp, 0.0000_wp, 0.0000_wp, &
& 312.4631_wp, 312.2619_wp, 309.7636_wp, 0.0000_wp, 0.0000_wp, &
& 276.7786_wp, 276.6685_wp, 274.5751_wp, 0.0000_wp, 0.0000_wp, &
& 334.2234_wp, 334.0263_wp, 331.3844_wp, 0.0000_wp, 0.0000_wp, &
& 328.6756_wp, 328.4909_wp, 325.9092_wp, 0.0000_wp, 0.0000_wp, &
& 320.2529_wp, 320.0878_wp, 317.5986_wp, 0.0000_wp, 0.0000_wp, &
& 308.7739_wp, 308.6359_wp, 306.2735_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 301.0545_wp, 300.9617_wp, 298.7331_wp, 0.0000_wp, 0.0000_wp, &
& 301.1506_wp, 301.0567_wp, 298.8255_wp, 0.0000_wp, 0.0000_wp, &
& 298.8156_wp, 298.7247_wp, 296.5153_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 264.4516_wp, 264.4446_wp, 262.6226_wp, 0.0000_wp, 0.0000_wp, &
& 266.2386_wp, 266.2278_wp, 264.3868_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 230.7426_wp, 230.7947_wp, 229.3135_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1144.1913_wp, 1140.3397_wp, 1125.7134_wp, 0.0000_wp, 0.0000_wp, &
& 435.5555_wp, 434.9391_wp, 430.8890_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1018.3413_wp, 1015.6122_wp, 1003.8665_wp, 0.0000_wp, 0.0000_wp, &
& 832.5060_wp, 830.3661_wp, 820.9055_wp, 0.0000_wp, 0.0000_wp, &
& 451.6295_wp, 451.1258_wp, 447.1555_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 897.8043_wp, 895.7304_wp, 885.9576_wp, 0.0000_wp, 0.0000_wp, &
& 644.4494_wp, 643.2697_wp, 636.7834_wp, 0.0000_wp, 0.0000_wp, &
& 436.8022_wp, 436.4520_wp, 432.8478_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 810.1028_wp, 808.4252_wp, 799.9471_wp, 0.0000_wp, 0.0000_wp, &
& 485.6176_wp, 485.0856_wp, 480.8308_wp, 0.0000_wp, 0.0000_wp, &
& 441.1513_wp, 440.8392_wp, 437.2712_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 740.6211_wp, 739.2097_wp, 731.6741_wp, 0.0000_wp, 0.0000_wp, &
& 490.3206_wp, 489.7750_wp, 485.4685_wp, 0.0000_wp, 0.0000_wp, &
& 426.4202_wp, 426.1118_wp, 422.6552_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 574.2932_wp, 573.3700_wp, 567.8341_wp, 0.0000_wp, 0.0000_wp, &
& 457.9302_wp, 457.4717_wp, 453.5417_wp, 0.0000_wp, 0.0000_wp, &
& 378.4312_wp, 378.2579_wp, 375.3725_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 639.7465_wp, 638.6462_wp, 632.3502_wp, 0.0000_wp, 0.0000_wp, &
& 510.5682_wp, 509.8781_wp, 505.1830_wp, 0.0000_wp, 0.0000_wp, &
& 335.0059_wp, 334.9230_wp, 332.4971_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 489.6956_wp, 489.0100_wp, 484.4740_wp, 0.0000_wp, 0.0000_wp, &
& 400.8319_wp, 400.5365_wp, 397.2874_wp, 0.0000_wp, 0.0000_wp, &
& 316.9123_wp, 316.8578_wp, 314.6082_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 535.2189_wp, 534.4511_wp, 529.4579_wp, 0.0000_wp, 0.0000_wp, &
& 375.1303_wp, 374.8656_wp, 371.8493_wp, 0.0000_wp, 0.0000_wp, &
& 321.7225_wp, 321.5899_wp, 319.1735_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 497.0959_wp, 496.4313_wp, 491.8812_wp, 0.0000_wp, 0.0000_wp, &
& 348.6074_wp, 348.3802_wp, 345.6140_wp, 0.0000_wp, 0.0000_wp, &
& 335.7605_wp, 335.5949_wp, 333.0245_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 414.1512_wp, 413.5913_wp, 409.7995_wp, 0.0000_wp, 0.0000_wp, &
& 337.0131_wp, 336.7771_wp, 334.0775_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 438.8861_wp, 438.3534_wp, 434.4358_wp, 0.0000_wp, 0.0000_wp, &
& 334.4917_wp, 334.3241_wp, 331.7567_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 548.1267_wp, 547.2913_wp, 542.0891_wp, 0.0000_wp, 0.0000_wp, &
& 523.6131_wp, 522.8863_wp, 518.0408_wp, 0.0000_wp, 0.0000_wp, &
& 424.4718_wp, 424.0862_wp, 420.5155_wp, 0.0000_wp, 0.0000_wp, &
& 363.5974_wp, 363.4077_wp, 360.5967_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 509.9698_wp, 509.3849_wp, 504.8763_wp, 0.0000_wp, 0.0000_wp, &
& 476.6811_wp, 476.2087_wp, 472.1243_wp, 0.0000_wp, 0.0000_wp, &
& 461.3868_wp, 460.9671_wp, 457.0793_wp, 0.0000_wp, 0.0000_wp, &
& 416.8945_wp, 416.6107_wp, 413.2653_wp, 0.0000_wp, 0.0000_wp, &
& 378.0963_wp, 377.9250_wp, 375.0423_wp, 0.0000_wp, 0.0000_wp, &
& 457.1057_wp, 456.7589_wp, 453.0254_wp, 0.0000_wp, 0.0000_wp, &
& 448.3333_wp, 448.0173_wp, 444.3975_wp, 0.0000_wp, 0.0000_wp, &
& 436.4430_wp, 436.1655_wp, 432.6941_wp, 0.0000_wp, 0.0000_wp, &
& 421.4187_wp, 421.1871_wp, 417.8991_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.5355_wp, 425.3152_wp, 422.0187_wp, 0.0000_wp, 0.0000_wp, &
& 425.3152_wp, 425.1015_wp, 421.8178_wp, 0.0000_wp, 0.0000_wp, &
& 422.0187_wp, 421.8178_wp, 418.5789_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 32.5171_wp, 32.8151_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 51.4656_wp, 51.9496_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 22.0813_wp, 22.2717_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.8512_wp, 454.3954_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 159.8670_wp, 161.4303_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 273.7398_wp, 276.4309_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 205.2237_wp, 207.2185_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 137.6192_wp, 138.9273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 190.1094_wp, 191.9273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 160.9679_wp, 162.4939_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 136.0239_wp, 137.3020_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 105.0660_wp, 106.0350_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 99.1109_wp, 100.0210_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 131.4051_wp, 132.6251_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 123.2538_wp, 124.3958_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 101.4216_wp, 102.3489_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 94.9489_wp, 95.8139_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 78.6686_wp, 79.3716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.4562_wp, 94.2991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 87.2028_wp, 87.9869_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 82.0374_wp, 82.7713_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 72.4531_wp, 73.0954_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 71.6059_wp, 72.2358_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 64.4141_wp, 64.9764_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 57.0738_wp, 57.5655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 54.7990_wp, 55.2689_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 45.0848_wp, 45.4618_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.4954_wp, 42.8512_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 539.8536_wp, 545.2855_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 232.6053_wp, 234.8776_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 432.1792_wp, 436.4452_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.8052_wp, 362.3258_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 240.8943_wp, 243.2097_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 404.7631_wp, 408.7149_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 368.2792_wp, 371.8615_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 290.7378_wp, 293.5337_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 230.0798_wp, 232.2617_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.6912_wp, 328.8157_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 301.9852_wp, 304.8715_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 281.7256_wp, 284.4096_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.1045_wp, 276.7161_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 228.5370_wp, 230.6872_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 258.5121_wp, 260.9446_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 251.1081_wp, 253.4677_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 247.4732_wp, 249.7992_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 230.5860_wp, 232.7426_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 217.0337_wp, 219.0430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 214.6002_wp, 216.5866_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 210.3176_wp, 212.2628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 179.2306_wp, 180.8604_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 177.3458_wp, 178.9581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 148.0216_wp, 149.3430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.1741_wp, 889.0026_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.1068_wp, 328.2207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 747.9306_wp, 755.3478_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 600.2698_wp, 606.1859_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 338.0494_wp, 341.2732_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 622.1841_wp, 628.3317_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 330.0418_wp, 333.1801_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.4340_wp, 330.5365_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 605.0508_wp, 610.9949_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 318.9171_wp, 321.9433_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 331.6800_wp, 334.8197_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 556.3166_wp, 561.7643_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 312.4714_wp, 315.4349_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 303.5459_wp, 306.4123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 439.1660_wp, 443.4401_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 309.0063_wp, 311.9395_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 231.7484_wp, 233.8940_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 481.8077_wp, 486.5025_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 286.8720_wp, 289.5784_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 199.8924_wp, 201.7229_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 379.2212_wp, 382.8900_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 266.2910_wp, 268.7934_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 196.0288_wp, 197.8251_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 404.6929_wp, 408.6064_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.0877_wp, 256.4721_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 226.8510_wp, 228.9654_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 203.6855_wp, 205.5633_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 415.1303_wp, 419.1592_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 248.2237_wp, 250.5536_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.1168_wp, 214.0853_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 221.0250_wp, 223.0896_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 318.9642_wp, 322.0346_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.5475_wp, 245.8435_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 331.0651_wp, 334.2414_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 231.4006_wp, 233.5632_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 390.4542_wp, 394.2289_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 368.2183_wp, 371.7655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 295.8817_wp, 298.6948_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 245.3469_wp, 247.6485_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 349.7760_wp, 353.1156_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 328.4750_wp, 331.5987_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 313.5280_wp, 316.5011_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 282.7195_wp, 285.3820_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 251.5229_wp, 253.8712_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 302.6743_wp, 305.5214_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 297.8064_wp, 300.6043_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 290.4211_wp, 293.1445_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 280.3577_wp, 282.9800_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.0630_wp, 276.6109_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.1377_wp, 276.6862_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 272.0583_wp, 274.5862_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 242.0556_wp, 244.2752_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.6296_wp, 245.8647_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.2820_wp, 214.2004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 989.8921_wp, 999.7871_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.4684_wp, 393.1809_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 890.6723_wp, 899.4930_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 729.7176_wp, 736.9021_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 405.6158_wp, 409.4712_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 790.0257_wp, 797.7901_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 571.8432_wp, 577.3805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 394.3185_wp, 398.0382_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 715.7318_wp, 722.7240_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 436.3046_wp, 440.4474_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 398.8895_wp, 402.6413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 656.2276_wp, 662.6068_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.4599_wp, 444.6402_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 385.5923_wp, 389.2112_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 511.6772_wp, 516.5932_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 412.2275_wp, 416.1207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.9096_wp, 347.1000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 568.7909_wp, 574.2805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 456.9707_wp, 461.3223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 305.6667_wp, 308.4743_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 437.9992_wp, 442.1710_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 362.5374_wp, 365.9282_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 289.6001_wp, 292.2483_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.2481_wp, 482.8217_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 339.5620_wp, 342.7279_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 292.8227_wp, 295.5179_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 444.9662_wp, 449.2061_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 315.9288_wp, 318.8629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 305.1216_wp, 307.9410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.9344_wp, 374.4467_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 305.2122_wp, 308.0475_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1426:1520) = reshape([ &
& 393.7655_wp, 397.4979_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 303.8410_wp, 306.6549_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 488.9709_wp, 493.6625_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 468.1680_wp, 472.6441_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 382.6809_wp, 386.2858_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 330.0106_wp, 333.0801_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 457.7156_wp, 462.0716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 428.9963_wp, 433.0589_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 415.8173_wp, 419.7450_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 377.2255_wp, 380.7615_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.4912_wp, 346.6856_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 412.9852_wp, 416.8715_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 405.4400_wp, 409.2485_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 395.1626_wp, 398.8660_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 382.1376_wp, 385.7084_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 386.0997_wp, 389.7029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 385.9988_wp, 389.5996_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.1837_wp, 386.7550_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 351.9667_wp, 355.2175_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 355.2175_wp, 358.4995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.6055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 46.3794_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 20.4594_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 386.9969_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 140.9818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 240.7689_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 181.6260_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 123.4070_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.8578_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 144.3697_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 122.4634_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 95.3973_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 90.1296_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 118.9178_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 111.5923_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 92.2876_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 86.4581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 72.1617_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 85.4293_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 79.7773_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 75.1427_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 66.5081_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 65.9403_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 59.4468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 52.8269_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.7900_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.0634_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 39.5951_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 465.2817_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 204.7986_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 378.6134_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 315.4581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 214.5479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 357.2960_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.7625_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 258.8687_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 206.4581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 290.4985_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 269.8372_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 252.1337_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 245.1798_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 205.8095_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 232.7786_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 226.2211_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 222.8660_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 208.1507_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 196.7374_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 194.5237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 190.6822_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 163.5368_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 161.8119_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 135.8592_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 758.3253_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 288.7275_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 651.5392_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 524.3547_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 301.6273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 543.5631_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.8706_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.2741_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.4312_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 285.1325_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 297.1871_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 488.6522_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 279.3612_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 272.0795_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 386.5067_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 276.0406_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 209.3622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 424.4125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 257.2803_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 181.3837_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 334.8259_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 239.2190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 177.7905_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.0954_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 228.3256_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 204.2663_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 184.2665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 366.5597_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 222.9856_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 191.3621_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 198.6584_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 282.2888_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 218.0929_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.2138_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 208.4055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.1345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.0838_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 264.7126_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 221.0120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 312.4265_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.9966_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 281.0046_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.2458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 227.1324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 272.4110_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 268.1700_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 261.7361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 252.9678_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 247.9275_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 247.9867_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 246.1495_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 220.1581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 221.5367_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 194.0699_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 854.5223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.6791_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 776.0859_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 637.4660_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 362.3556_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 692.2386_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 505.2262_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 353.9178_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 629.5230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.9385_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.5675_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 578.7876_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 393.6121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.7063_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 453.7998_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 369.1531_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 310.7442_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 503.3811_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 407.0970_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 277.2771_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.9532_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 326.1157_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 263.1051_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.2684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 305.7201_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 265.0611_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 396.3468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 284.7964_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 275.7577_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 330.7646_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.9744_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 351.5285_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.4407_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 434.0932_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 416.5053_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.1281_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 297.7796_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 408.5952_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.9457_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 372.6480_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 339.3505_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 310.1806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.9572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 364.5064_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 355.6742_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 344.4458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.2239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.2164_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 345.8283_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 318.8905_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 321.8029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 290.2223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 105.0096_wp, 42.3058_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 184.0223_wp, 68.9537_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 61.3184_wp, 27.4695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3242.2404_wp, 732.9120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 752.3418_wp, 231.4165_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1316.2189_wp, 399.4020_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 943.8547_wp, 294.1459_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.8726_wp, 187.1318_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 754.9243_wp, 262.2387_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 617.6058_wp, 219.6387_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.5054_wp, 183.6568_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 349.4860_wp, 137.8005_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 324.9872_wp, 129.4461_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 455.6960_wp, 174.2718_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 431.5172_wp, 163.6715_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 333.8130_wp, 132.4662_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 313.2347_wp, 123.9803_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 239.2442_wp, 100.4742_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.1483_wp, 120.4982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 275.2567_wp, 112.4278_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 255.7499_wp, 105.3726_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 223.9076_wp, 92.7050_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 210.8672_wp, 90.5303_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 186.8791_wp, 81.0845_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 162.2001_wp, 71.3269_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 152.5672_wp, 68.1239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 117.9718_wp, 55.0786_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 113.1764_wp, 52.1041_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3798.9439_wp, 873.2665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1138.9256_wp, 340.0624_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2220.9652_wp, 642.1846_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1799.0180_wp, 527.5630_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 983.9584_wp, 335.2430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1881.7164_wp, 583.6850_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1673.1922_wp, 527.3282_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1217.3141_wp, 406.3724_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 858.6799_wp, 312.0540_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1317.0056_wp, 451.6171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1200.5803_wp, 416.4861_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1098.1239_wp, 386.4327_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1088.8566_wp, 377.4920_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 823.8201_wp, 306.7839_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 936.3069_wp, 347.4030_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 907.2993_wp, 337.1135_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 901.7293_wp, 332.8876_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 815.1518_wp, 307.6574_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 735.0061_wp, 286.0418_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 728.4653_wp, 282.9669_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 713.2229_wp, 277.2121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 569.6701_wp, 231.9483_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 564.6006_wp, 229.5837_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 445.8171_wp, 188.5950_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6808.3900_wp, 1449.5860_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1511.8898_wp, 465.5182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4387.1669_wp, 1149.8295_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3619.2660_wp, 921.7934_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1402.1290_wp, 471.0509_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3450.8369_wp, 942.2745_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1344.5274_wp, 457.9012_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1285.9957_wp, 449.4774_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3215.8544_wp, 904.2225_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1308.6418_wp, 442.0547_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1297.3700_wp, 454.7799_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2877.5279_wp, 824.7780_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1283.1193_wp, 433.3139_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1199.7581_wp, 416.6755_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2283.0674_wp, 650.0627_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1287.9616_wp, 430.1040_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 844.4635_wp, 310.7016_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2396.3445_wp, 706.1412_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1110.3588_wp, 392.0831_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 691.3086_wp, 264.1180_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1884.2824_wp, 554.0925_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1013.0459_wp, 362.0455_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 682.0579_wp, 259.4193_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1875.7209_wp, 581.8458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 969.5462_wp, 345.4470_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 858.1614_wp, 307.2297_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 727.5711_wp, 271.6004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1976.8609_wp, 601.5808_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 952.3401_wp, 337.9454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 780.5520_wp, 285.2553_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 859.7252_wp, 301.6400_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1533.4063_wp, 461.7019_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 983.5916_wp, 336.0821_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1443.0004_wp, 467.8731_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 849.3446_wp, 311.5800_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1755.5105_wp, 556.5016_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1609.8951_wp, 520.7490_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1179.2492_wp, 407.5724_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 887.2092_wp, 329.4410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1406.2206_wp, 483.7117_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1290.3249_wp, 451.1717_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1210.8497_wp, 428.6170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1047.5077_wp, 382.0562_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 883.9799_wp, 335.0524_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1108.3145_wp, 407.7958_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1085.3677_wp, 400.6439_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1048.8144_wp, 389.6837_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 997.6271_wp, 374.6769_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 950.1975_wp, 363.5286_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 951.6305_wp, 363.7202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 943.1487_wp, 360.8053_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 794.2184_wp, 316.0700_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 801.8614_wp, 318.3827_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1521:1615) = reshape([ &
& 662.9556_wp, 273.2999_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 7560.4361_wp, 1620.7604_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1776.8880_wp, 553.9780_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5305.1627_wp, 1372.8515_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4496.9846_wp, 1124.9345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1681.3249_wp, 564.3454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4289.6097_wp, 1186.3885_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2950.2475_wp, 837.6135_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1515.3755_wp, 537.9093_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3674.8556_wp, 1057.7660_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1819.0406_wp, 607.1951_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1502.0119_wp, 541.1259_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3256.3633_wp, 959.7908_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1826.4461_wp, 613.2010_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1473.7970_wp, 524.1562_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2398.7520_wp, 735.1498_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1687.7490_wp, 570.2621_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1239.1934_wp, 460.1263_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2726.0486_wp, 822.5829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2068.8557_wp, 647.6686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1053.7818_wp, 403.9077_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1968.3066_wp, 621.1968_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1387.1242_wp, 492.8301_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 982.3016_wp, 380.9010_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2129.9275_wp, 678.2767_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1295.8507_wp, 460.8194_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1051.3610_wp, 390.6048_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1935.8392_wp, 627.0057_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1193.7040_wp, 427.3247_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1107.7988_wp, 408.6188_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1657.7829_wp, 524.5075_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1162.5520_wp, 413.7796_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1663.0447_wp, 550.2565_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1094.9943_wp, 406.5459_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2226.4867_wp, 697.3745_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2062.6273_wp, 661.8423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1514.1166_wp, 525.0776_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1190.0927_wp, 442.0537_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1891.9207_wp, 636.7612_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1716.1526_wp, 591.2764_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1633.6348_wp, 570.2993_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1409.0375_wp, 510.2857_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1220.0459_wp, 458.3940_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1566.5042_wp, 561.2533_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1521.2386_wp, 549.3044_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1461.4083_wp, 533.2393_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1386.5806_wp, 513.0291_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1394.5709_wp, 517.5807_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1389.9562_wp, 517.0109_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1372.2422_wp, 512.4692_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1207.5672_wp, 465.0703_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1219.6272_wp, 469.4818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1043.3955_wp, 415.7690_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 9330.7294_wp, 1975.9738_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1975.9738_wp, 649.0924_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 99.4579_wp, 83.0141_wp, 44.8321_wp, 0.0000_wp, 0.0000_wp, &
& 171.7033_wp, 142.5680_wp, 72.9013_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 59.1141_wp, 49.9232_wp, 29.1864_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2551.5260_wp, 2180.4015_wp, 750.3227_wp, 0.0000_wp, 0.0000_wp, &
& 664.5719_wp, 551.0792_wp, 242.2872_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1160.4419_wp, 961.1049_wp, 417.8652_wp, 0.0000_wp, 0.0000_wp, &
& 832.6251_wp, 692.8415_wp, 308.1410_wp, 0.0000_wp, 0.0000_wp, &
& 479.3661_wp, 397.2194_wp, 197.5839_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 690.6852_wp, 572.3002_wp, 276.3430_wp, 0.0000_wp, 0.0000_wp, &
& 567.5136_wp, 471.0503_wp, 231.6543_wp, 0.0000_wp, 0.0000_wp, &
& 465.9766_wp, 388.0268_wp, 193.8381_wp, 0.0000_wp, 0.0000_wp, &
& 329.4784_wp, 274.5914_wp, 145.9330_wp, 0.0000_wp, 0.0000_wp, &
& 306.9686_wp, 256.0547_wp, 137.1250_wp, 0.0000_wp, 0.0000_wp, &
& 426.3667_wp, 354.8466_wp, 184.3462_wp, 0.0000_wp, 0.0000_wp, &
& 401.8774_wp, 334.9207_wp, 173.0249_wp, 0.0000_wp, 0.0000_wp, &
& 314.6837_wp, 262.6181_wp, 140.2904_wp, 0.0000_wp, 0.0000_wp, &
& 294.7168_wp, 246.1256_wp, 131.2676_wp, 0.0000_wp, 0.0000_wp, &
& 228.0556_wp, 191.2494_wp, 106.5800_wp, 0.0000_wp, 0.0000_wp, &
& 279.0742_wp, 233.5006_wp, 127.7419_wp, 0.0000_wp, 0.0000_wp, &
& 260.4481_wp, 218.1596_wp, 119.1434_wp, 0.0000_wp, 0.0000_wp, &
& 242.5528_wp, 203.2396_wp, 111.7057_wp, 0.0000_wp, 0.0000_wp, &
& 212.1297_wp, 178.0536_wp, 98.2670_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 201.7411_wp, 169.6030_wp, 96.0950_wp, 0.0000_wp, 0.0000_wp, &
& 178.9549_wp, 150.7056_wp, 86.0773_wp, 0.0000_wp, 0.0000_wp, &
& 155.5437_wp, 131.2633_wp, 75.7417_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 146.9174_wp, 124.0802_wp, 72.3852_wp, 0.0000_wp, 0.0000_wp, &
& 114.4676_wp, 97.1926_wp, 58.5836_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 109.5000_wp, 92.8494_wp, 55.4092_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3009.7233_wp, 2565.9398_wp, 895.1626_wp, 0.0000_wp, 0.0000_wp, &
& 995.3660_wp, 826.9565_wp, 355.3439_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1926.3504_wp, 1599.6001_wp, 669.7642_wp, 0.0000_wp, 0.0000_wp, &
& 1559.5050_wp, 1298.9425_wp, 550.6761_wp, 0.0000_wp, 0.0000_wp, &
& 897.4029_wp, 742.3673_wp, 353.0531_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1665.7662_wp, 1381.4389_wp, 611.4261_wp, 0.0000_wp, 0.0000_wp, &
& 1487.2964_wp, 1233.5817_wp, 552.8634_wp, 0.0000_wp, 0.0000_wp, &
& 1098.7485_wp, 911.8321_wp, 427.3949_wp, 0.0000_wp, 0.0000_wp, &
& 796.1066_wp, 659.7476_wp, 329.5915_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1201.2021_wp, 994.8926_wp, 475.6506_wp, 0.0000_wp, 0.0000_wp, &
& 1097.3980_wp, 909.6567_wp, 438.8597_wp, 0.0000_wp, 0.0000_wp, &
& 1007.8503_wp, 835.4801_wp, 407.4620_wp, 0.0000_wp, 0.0000_wp, &
& 993.2763_wp, 824.3552_wp, 397.6803_wp, 0.0000_wp, 0.0000_wp, &
& 767.6095_wp, 637.1516_wp, 324.2955_wp, 0.0000_wp, 0.0000_wp, &
& 871.1647_wp, 723.2504_wp, 367.1449_wp, 0.0000_wp, 0.0000_wp, &
& 844.0120_wp, 700.9983_wp, 356.2697_wp, 0.0000_wp, 0.0000_wp, &
& 836.9970_wp, 695.2639_wp, 351.6844_wp, 0.0000_wp, 0.0000_wp, &
& 761.1433_wp, 632.6159_wp, 325.3328_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 690.8651_wp, 575.3317_wp, 302.7908_wp, 0.0000_wp, 0.0000_wp, &
& 684.2353_wp, 569.8509_wp, 299.5059_wp, 0.0000_wp, 0.0000_wp, &
& 669.9106_wp, 557.9918_wp, 293.4143_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.3160_wp, 451.5825_wp, 245.8635_wp, 0.0000_wp, 0.0000_wp, &
& 535.2678_wp, 447.3680_wp, 243.3421_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.7909_wp, 357.1935_wp, 200.1094_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5171.2978_wp, 4495.8369_wp, 1476.8694_wp, 0.0000_wp, 0.0000_wp, &
& 1322.2619_wp, 1104.1068_wp, 486.9346_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3659.1655_wp, 3070.4624_wp, 1190.5306_wp, 0.0000_wp, 0.0000_wp, &
& 2951.3362_wp, 2505.6537_wp, 952.5771_wp, 0.0000_wp, 0.0000_wp, &
& 1267.8490_wp, 1051.9461_wp, 495.4172_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2924.4395_wp, 2443.4277_wp, 978.5884_wp, 0.0000_wp, 0.0000_wp, &
& 1222.7426_wp, 1013.0298_wp, 481.8238_wp, 0.0000_wp, 0.0000_wp, &
& 1176.2602_wp, 975.9665_wp, 473.6984_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2748.9797_wp, 2294.6062_wp, 940.9324_wp, 0.0000_wp, 0.0000_wp, &
& 1180.9424_wp, 982.3638_wp, 465.0211_wp, 0.0000_wp, 0.0000_wp, &
& 1187.6789_wp, 985.4293_wp, 479.3449_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2475.1427_wp, 2064.0309_wp, 859.3730_wp, 0.0000_wp, 0.0000_wp, &
& 1158.6662_wp, 963.2725_wp, 455.7896_wp, 0.0000_wp, 0.0000_wp, &
& 1092.6689_wp, 908.1340_wp, 438.9190_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1952.1126_wp, 1632.7022_wp, 676.8113_wp, 0.0000_wp, 0.0000_wp, &
& 1158.6672_wp, 963.6534_wp, 452.1352_wp, 0.0000_wp, 0.0000_wp, &
& 780.0838_wp, 649.5624_wp, 328.0436_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2079.4950_wp, 1732.0375_wp, 737.0898_wp, 0.0000_wp, 0.0000_wp, &
& 1018.6688_wp, 845.2119_wp, 413.4328_wp, 0.0000_wp, 0.0000_wp, &
& 644.6600_wp, 537.5804_wp, 279.2953_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1628.4040_wp, 1359.6156_wp, 578.0899_wp, 0.0000_wp, 0.0000_wp, &
& 931.8610_wp, 773.6698_wp, 381.9591_wp, 0.0000_wp, 0.0000_wp, &
& 635.3811_wp, 529.7155_wp, 274.2873_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1656.9384_wp, 1375.9674_wp, 609.2865_wp, 0.0000_wp, 0.0000_wp, &
& 889.9346_wp, 739.5090_wp, 364.3760_wp, 0.0000_wp, 0.0000_wp, &
& 787.1393_wp, 654.9942_wp, 324.0498_wp, 0.0000_wp, 0.0000_wp, &
& 675.0933_wp, 562.1481_wp, 286.9784_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1736.3987_wp, 1442.5133_wp, 629.2493_wp, 0.0000_wp, 0.0000_wp, &
& 873.1622_wp, 725.5203_wp, 356.3892_wp, 0.0000_wp, 0.0000_wp, &
& 720.7044_wp, 599.5116_wp, 301.1629_wp, 0.0000_wp, 0.0000_wp, &
& 784.5252_wp, 652.3996_wp, 317.8255_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1335.7319_wp, 1113.8541_wp, 482.4149_wp, 0.0000_wp, 0.0000_wp, &
& 891.6885_wp, 740.9872_wp, 353.7227_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1292.6630_wp, 1072.0643_wp, 491.2073_wp, 0.0000_wp, 0.0000_wp, &
& 787.2771_wp, 653.7336_wp, 329.1343_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1559.7012_wp, 1295.4563_wp, 583.5203_wp, 0.0000_wp, 0.0000_wp, &
& 1439.3610_wp, 1194.8773_wp, 546.6402_wp, 0.0000_wp, 0.0000_wp, &
& 1073.9458_wp, 891.8106_wp, 429.3221_wp, 0.0000_wp, 0.0000_wp, &
& 825.7096_wp, 685.5002_wp, 348.1978_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1281.9152_wp, 1062.7315_wp, 509.4520_wp, 0.0000_wp, 0.0000_wp, &
& 1180.9729_wp, 979.5742_wp, 475.5382_wp, 0.0000_wp, 0.0000_wp, &
& 1112.0376_wp, 922.5046_wp, 452.0196_wp, 0.0000_wp, 0.0000_wp, &
& 969.6559_wp, 804.9599_wp, 403.4560_wp, 0.0000_wp, 0.0000_wp, &
& 826.6644_wp, 686.9957_wp, 354.4023_wp, 0.0000_wp, 0.0000_wp, &
& 1028.5424_wp, 853.9157_wp, 430.8021_wp, 0.0000_wp, 0.0000_wp, &
& 1007.7913_wp, 836.9364_wp, 423.2918_wp, 0.0000_wp, 0.0000_wp, &
& 975.3242_wp, 810.2357_wp, 411.8184_wp, 0.0000_wp, 0.0000_wp, &
& 930.3838_wp, 773.1293_wp, 396.1357_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 889.6147_wp, 740.1496_wp, 384.5873_wp, 0.0000_wp, 0.0000_wp, &
& 890.6264_wp, 741.0220_wp, 384.7697_wp, 0.0000_wp, 0.0000_wp, &
& 882.8069_wp, 734.5865_wp, 381.6942_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 749.8475_wp, 625.5504_wp, 334.8115_wp, 0.0000_wp, 0.0000_wp, &
& 756.6271_wp, 631.1397_wp, 337.2327_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 630.2436_wp, 527.3521_wp, 289.7981_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5743.5673_wp, 4997.9230_wp, 1652.2832_wp, 0.0000_wp, 0.0000_wp, &
& 1556.9958_wp, 1301.3999_wp, 579.7980_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4394.3607_wp, 3697.6569_wp, 1419.9417_wp, 0.0000_wp, 0.0000_wp, &
& 3631.4540_wp, 3095.7594_wp, 1160.9040_wp, 0.0000_wp, 0.0000_wp, &
& 1516.5369_wp, 1260.1619_wp, 593.3572_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3639.4735_wp, 3045.1620_wp, 1233.0006_wp, 0.0000_wp, 0.0000_wp, &
& 2485.6310_wp, 2101.0372_wp, 872.2882_wp, 0.0000_wp, 0.0000_wp, &
& 1391.1764_wp, 1154.9423_wp, 567.2445_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3160.1776_wp, 2637.6782_wp, 1102.2638_wp, 0.0000_wp, 0.0000_wp, &
& 1635.3622_wp, 1360.4000_wp, 638.0792_wp, 0.0000_wp, 0.0000_wp, &
& 1384.6011_wp, 1149.7163_wp, 571.0295_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2819.5147_wp, 2352.1278_wp, 1001.6660_wp, 0.0000_wp, 0.0000_wp, &
& 1650.9334_wp, 1369.3825_wp, 644.4515_wp, 0.0000_wp, 0.0000_wp, &
& 1349.3970_wp, 1122.7672_wp, 552.6718_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2098.4813_wp, 1750.3829_wp, 768.8382_wp, 0.0000_wp, 0.0000_wp, &
& 1520.1317_wp, 1266.0803_wp, 599.6614_wp, 0.0000_wp, 0.0000_wp, &
& 1148.5106_wp, 956.0229_wp, 486.0298_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2373.9131_wp, 1980.9508_wp, 859.6392_wp, 0.0000_wp, 0.0000_wp, &
& 1811.0626_wp, 1516.2134_wp, 678.1232_wp, 0.0000_wp, 0.0000_wp, &
& 984.1861_wp, 820.4174_wp, 427.1818_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1735.4827_wp, 1447.6221_wp, 650.7128_wp, 0.0000_wp, 0.0000_wp, &
& 1270.1002_wp, 1056.4422_wp, 519.5738_wp, 0.0000_wp, 0.0000_wp, &
& 919.9110_wp, 767.3168_wp, 403.0280_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1890.1371_wp, 1572.3023_wp, 711.0892_wp, 0.0000_wp, 0.0000_wp, &
& 1185.1747_wp, 986.7643_wp, 485.8072_wp, 0.0000_wp, 0.0000_wp, &
& 972.1452_wp, 810.5895_wp, 412.5321_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1727.2738_wp, 1436.0400_wp, 657.9647_wp, 0.0000_wp, 0.0000_wp, &
& 1093.0044_wp, 910.5268_wp, 450.6082_wp, 0.0000_wp, 0.0000_wp, &
& 1024.0901_wp, 852.7680_wp, 431.4907_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1460.5858_wp, 1219.4904_wp, 549.4299_wp, 0.0000_wp, 0.0000_wp, &
& 1063.3544_wp, 885.4039_wp, 436.2139_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1493.7369_wp, 1241.2980_wp, 578.1096_wp, 0.0000_wp, 0.0000_wp, &
& 1016.1802_wp, 845.1580_wp, 429.5551_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1964.0913_wp, 1635.6158_wp, 730.5114_wp, 0.0000_wp, 0.0000_wp, &
& 1834.2595_wp, 1525.9278_wp, 694.2560_wp, 0.0000_wp, 0.0000_wp, &
& 1377.5185_wp, 1145.3931_wp, 553.0827_wp, 0.0000_wp, 0.0000_wp, &
& 1105.9339_wp, 919.0928_wp, 467.1608_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1710.8832_wp, 1420.0022_wp, 669.7960_wp, 0.0000_wp, 0.0000_wp, &
& 1561.8289_wp, 1296.6408_wp, 622.6826_wp, 0.0000_wp, 0.0000_wp, &
& 1492.4625_wp, 1239.0351_wp, 600.9779_wp, 0.0000_wp, 0.0000_wp, &
& 1300.6349_wp, 1080.2049_wp, 538.6735_wp, 0.0000_wp, 0.0000_wp, &
& 1137.6146_wp, 945.5274_wp, 484.6892_wp, 0.0000_wp, 0.0000_wp, &
& 1442.5135_wp, 1197.3790_wp, 592.2077_wp, 0.0000_wp, 0.0000_wp, &
& 1403.5743_wp, 1165.3603_wp, 579.8000_wp, 0.0000_wp, 0.0000_wp, &
& 1352.0527_wp, 1122.9068_wp, 563.1051_wp, 0.0000_wp, 0.0000_wp, &
& 1287.7738_wp, 1069.7955_wp, 542.0984_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1295.6354_wp, 1076.7503_wp, 546.9393_wp, 0.0000_wp, 0.0000_wp, &
& 1292.0505_wp, 1073.8698_wp, 546.3872_wp, 0.0000_wp, 0.0000_wp, &
& 1276.8973_wp, 1061.4185_wp, 541.6776_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1131.7221_wp, 942.2524_wp, 492.1377_wp, 0.0000_wp, 0.0000_wp, &
& 1142.9378_wp, 951.5410_wp, 496.7990_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 985.1266_wp, 822.0568_wp, 440.4668_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 7016.4917_wp, 6141.9784_wp, 2013.0282_wp, 0.0000_wp, 0.0000_wp, &
& 1760.0602_wp, 1469.0705_wp, 681.3467_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5726.9887_wp, 4845.1776_wp, 1816.0675_wp, 0.0000_wp, 0.0000_wp, &
& 4845.1776_wp, 4171.7842_wp, 1511.3430_wp, 0.0000_wp, 0.0000_wp, &
& 1816.0675_wp, 1511.3430_wp, 716.5475_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 89.1018_wp, 64.6906_wp, 46.8202_wp, 0.0000_wp, 0.0000_wp, &
& 152.1106_wp, 108.3059_wp, 75.8394_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 53.7982_wp, 40.3329_wp, 30.5886_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2085.0661_wp, 1384.1283_wp, 748.9052_wp, 0.0000_wp, 0.0000_wp, &
& 570.4266_wp, 389.9070_wp, 248.4867_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 994.0316_wp, 676.7374_wp, 428.0498_wp, 0.0000_wp, 0.0000_wp, &
& 716.0758_wp, 492.5824_wp, 316.4815_wp, 0.0000_wp, 0.0000_wp, &
& 422.2754_wp, 297.9018_wp, 205.0850_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 604.4915_wp, 423.0815_wp, 286.0290_wp, 0.0000_wp, 0.0000_wp, &
& 498.4534_wp, 351.1166_wp, 240.1361_wp, 0.0000_wp, 0.0000_wp, &
& 410.5123_wp, 291.2744_wp, 201.2083_wp, 0.0000_wp, 0.0000_wp, &
& 294.1692_wp, 212.3569_wp, 152.2250_wp, 0.0000_wp, 0.0000_wp, &
& 274.4932_wp, 198.7197_wp, 143.1068_wp, 0.0000_wp, 0.0000_wp, &
& 378.7928_wp, 271.4248_wp, 191.9355_wp, 0.0000_wp, 0.0000_wp, &
& 356.4610_wp, 255.3534_wp, 180.0326_wp, 0.0000_wp, 0.0000_wp, &
& 281.1504_wp, 203.4829_wp, 146.3330_wp, 0.0000_wp, 0.0000_wp, &
& 263.1381_wp, 190.4785_wp, 136.8686_wp, 0.0000_wp, 0.0000_wp, &
& 205.5407_wp, 151.1411_wp, 111.4633_wp, 0.0000_wp, 0.0000_wp, &
& 250.5577_wp, 182.9391_wp, 133.4410_wp, 0.0000_wp, 0.0000_wp, &
& 233.6619_wp, 170.6938_wp, 124.4124_wp, 0.0000_wp, 0.0000_wp, &
& 217.8948_wp, 159.4968_wp, 116.6803_wp, 0.0000_wp, 0.0000_wp, &
& 190.6370_wp, 139.9128_wp, 102.6251_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 182.4075_wp, 135.0322_wp, 100.5575_wp, 0.0000_wp, 0.0000_wp, &
& 162.0371_wp, 120.4004_wp, 90.0932_wp, 0.0000_wp, 0.0000_wp, &
& 141.0933_wp, 105.3236_wp, 79.2877_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 133.6123_wp, 100.1090_wp, 75.8298_wp, 0.0000_wp, 0.0000_wp, &
& 104.8095_wp, 79.6151_wp, 61.4499_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 100.0277_wp, 75.6791_wp, 58.0795_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2465.5965_wp, 1637.7878_wp, 894.7448_wp, 0.0000_wp, 0.0000_wp, &
& 850.0768_wp, 578.7007_wp, 363.4612_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1637.1586_wp, 1106.7221_wp, 683.2371_wp, 0.0000_wp, 0.0000_wp, &
& 1328.2510_wp, 903.4563_wp, 562.6808_wp, 0.0000_wp, 0.0000_wp, &
& 783.1302_wp, 545.0752_wp, 364.9162_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1431.7496_wp, 980.4376_wp, 627.5348_wp, 0.0000_wp, 0.0000_wp, &
& 1281.5229_wp, 880.4900_wp, 568.1457_wp, 0.0000_wp, 0.0000_wp, &
& 955.5488_wp, 664.5904_wp, 441.2004_wp, 0.0000_wp, 0.0000_wp, &
& 701.9398_wp, 495.8077_wp, 342.2242_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1049.1934_wp, 732.1211_wp, 491.8929_wp, 0.0000_wp, 0.0000_wp, &
& 960.2332_wp, 672.1591_wp, 454.2176_wp, 0.0000_wp, 0.0000_wp, &
& 883.8815_wp, 620.5160_wp, 422.1202_wp, 0.0000_wp, 0.0000_wp, &
& 868.8607_wp, 608.8756_wp, 411.5436_wp, 0.0000_wp, 0.0000_wp, &
& 679.3502_wp, 482.9601_wp, 337.2225_wp, 0.0000_wp, 0.0000_wp, &
& 770.4924_wp, 547.4653_wp, 381.6757_wp, 0.0000_wp, 0.0000_wp, &
& 746.5993_wp, 530.8573_wp, 370.3899_wp, 0.0000_wp, 0.0000_wp, &
& 739.5674_wp, 525.2515_wp, 365.4498_wp, 0.0000_wp, 0.0000_wp, &
& 674.9489_wp, 481.7395_wp, 338.5362_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 615.5559_wp, 442.8799_wp, 315.6193_wp, 0.0000_wp, 0.0000_wp, &
& 609.4420_wp, 438.3496_wp, 312.1500_wp, 0.0000_wp, 0.0000_wp, &
& 596.7186_wp, 429.3015_wp, 305.7996_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 484.7691_wp, 353.1467_wp, 256.8455_wp, 0.0000_wp, 0.0000_wp, &
& 480.1244_wp, 349.6764_wp, 254.1851_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 384.2306_wp, 283.0351_wp, 209.3707_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4185.8968_wp, 2800.9569_wp, 1467.2405_wp, 0.0000_wp, 0.0000_wp, &
& 1133.7749_wp, 780.6806_wp, 499.2067_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1616:1710) = reshape([ &
& 3059.8941_wp, 2050.4253_wp, 1204.1091_wp, 0.0000_wp, 0.0000_wp, &
& 2456.7601_wp, 1658.3459_wp, 962.2662_wp, 0.0000_wp, 0.0000_wp, &
& 1103.1556_wp, 767.9412_wp, 511.3063_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2461.7619_wp, 1655.7011_wp, 993.2805_wp, 0.0000_wp, 0.0000_wp, &
& 1065.8140_wp, 742.6398_wp, 497.6257_wp, 0.0000_wp, 0.0000_wp, &
& 1030.0975_wp, 722.8068_wp, 490.3181_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2324.7454_wp, 1571.2363_wp, 957.5700_wp, 0.0000_wp, 0.0000_wp, &
& 1028.4169_wp, 718.6782_wp, 480.2028_wp, 0.0000_wp, 0.0000_wp, &
& 1040.5570_wp, 730.5584_wp, 496.2446_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2099.5853_wp, 1423.1173_wp, 876.0050_wp, 0.0000_wp, 0.0000_wp, &
& 1008.8336_wp, 704.4731_wp, 470.5903_wp, 0.0000_wp, 0.0000_wp, &
& 955.7169_wp, 670.9208_wp, 454.0832_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1653.4435_wp, 1122.6576_wp, 689.4794_wp, 0.0000_wp, 0.0000_wp, &
& 1006.9636_wp, 701.8768_wp, 466.4241_wp, 0.0000_wp, 0.0000_wp, &
& 688.3433_wp, 489.6953_wp, 340.5132_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1771.7653_wp, 1206.1393_wp, 753.0932_wp, 0.0000_wp, 0.0000_wp, &
& 893.5056_wp, 628.2340_wp, 428.1805_wp, 0.0000_wp, 0.0000_wp, &
& 572.2667_wp, 410.7620_wp, 290.5610_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1386.3132_wp, 945.6808_wp, 590.4390_wp, 0.0000_wp, 0.0000_wp, &
& 818.8994_wp, 577.5263_wp, 395.8945_wp, 0.0000_wp, 0.0000_wp, &
& 563.6245_wp, 404.1026_wp, 285.2677_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1423.4023_wp, 975.9836_wp, 625.0103_wp, 0.0000_wp, 0.0000_wp, &
& 781.6350_wp, 551.4226_wp, 377.5895_wp, 0.0000_wp, 0.0000_wp, &
& 691.6368_wp, 489.0580_wp, 335.8153_wp, 0.0000_wp, 0.0000_wp, &
& 597.1154_wp, 426.0198_wp, 298.1443_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1487.1454_wp, 1016.1745_wp, 644.5028_wp, 0.0000_wp, 0.0000_wp, &
& 766.3677_wp, 540.1679_wp, 369.1952_wp, 0.0000_wp, 0.0000_wp, &
& 635.3561_wp, 450.9348_wp, 312.4878_wp, 0.0000_wp, 0.0000_wp, &
& 686.9902_wp, 483.4812_wp, 328.8388_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1141.4078_wp, 781.2881_wp, 493.6053_wp, 0.0000_wp, 0.0000_wp, &
& 777.7070_wp, 544.0661_wp, 365.3990_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1118.3973_wp, 772.6650_wp, 505.5837_wp, 0.0000_wp, 0.0000_wp, &
& 694.7959_wp, 492.6342_wp, 341.7316_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1344.7968_wp, 926.3723_wp, 599.8301_wp, 0.0000_wp, 0.0000_wp, &
& 1245.0382_wp, 860.6632_wp, 562.7686_wp, 0.0000_wp, 0.0000_wp, &
& 938.9286_wp, 657.9651_wp, 444.1573_wp, 0.0000_wp, 0.0000_wp, &
& 730.3259_wp, 518.9832_wp, 361.9337_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1120.0021_wp, 782.7401_wp, 526.8660_wp, 0.0000_wp, 0.0000_wp, &
& 1034.4900_wp, 725.7474_wp, 492.3604_wp, 0.0000_wp, 0.0000_wp, &
& 976.0066_wp, 686.4772_wp, 468.3886_wp, 0.0000_wp, 0.0000_wp, &
& 855.1298_wp, 605.4842_wp, 418.8957_wp, 0.0000_wp, 0.0000_wp, &
& 733.5714_wp, 523.9575_wp, 368.8682_wp, 0.0000_wp, 0.0000_wp, &
& 908.3670_wp, 644.3560_wp, 447.5546_wp, 0.0000_wp, 0.0000_wp, &
& 890.4764_wp, 632.2602_wp, 439.8384_wp, 0.0000_wp, 0.0000_wp, &
& 862.6780_wp, 613.5158_wp, 428.0906_wp, 0.0000_wp, 0.0000_wp, &
& 824.3488_wp, 587.6805_wp, 412.0610_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 790.4855_wp, 566.2920_wp, 400.4704_wp, 0.0000_wp, 0.0000_wp, &
& 791.2471_wp, 566.7513_wp, 400.6320_wp, 0.0000_wp, 0.0000_wp, &
& 784.4000_wp, 562.0006_wp, 397.4445_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 670.3843_wp, 485.2955_wp, 349.3710_wp, 0.0000_wp, 0.0000_wp, &
& 676.1930_wp, 489.2291_wp, 351.8502_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 566.5101_wp, 414.1664_wp, 302.8960_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4653.7454_wp, 3121.5559_wp, 1643.0879_wp, 0.0000_wp, 0.0000_wp, &
& 1337.5010_wp, 924.2203_wp, 594.9926_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3666.6556_wp, 2458.0845_wp, 1434.6583_wp, 0.0000_wp, 0.0000_wp, &
& 3014.0781_wp, 2036.5362_wp, 1171.1205_wp, 0.0000_wp, 0.0000_wp, &
& 1319.0312_wp, 919.4490_wp, 612.2994_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3069.3037_wp, 2072.7978_wp, 1253.1317_wp, 0.0000_wp, 0.0000_wp, &
& 2105.7491_wp, 1446.2394_wp, 889.9501_wp, 0.0000_wp, 0.0000_wp, &
& 1221.2152_wp, 860.0465_wp, 587.7222_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2682.0879_wp, 1821.2145_wp, 1124.0457_wp, 0.0000_wp, 0.0000_wp, &
& 1420.6192_wp, 990.1059_wp, 658.2098_wp, 0.0000_wp, 0.0000_wp, &
& 1218.3604_wp, 860.7503_wp, 592.2396_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2401.9326_wp, 1637.9243_wp, 1023.5000_wp, 0.0000_wp, 0.0000_wp, &
& 1434.8956_wp, 997.9222_wp, 664.7346_wp, 0.0000_wp, 0.0000_wp, &
& 1184.6610_wp, 836.5504_wp, 572.6815_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1798.1970_wp, 1235.6226_wp, 787.9045_wp, 0.0000_wp, 0.0000_wp, &
& 1323.2583_wp, 925.8359_wp, 619.0974_wp, 0.0000_wp, 0.0000_wp, &
& 1015.1154_wp, 723.2437_wp, 504.8956_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2029.6163_wp, 1390.9989_wp, 880.0314_wp, 0.0000_wp, 0.0000_wp, &
& 1557.0674_wp, 1078.7908_wp, 696.3752_wp, 0.0000_wp, 0.0000_wp, &
& 874.2449_wp, 627.7003_wp, 444.5757_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1493.8895_wp, 1032.5864_wp, 668.2859_wp, 0.0000_wp, 0.0000_wp, &
& 1114.5962_wp, 786.5886_wp, 538.1720_wp, 0.0000_wp, 0.0000_wp, &
& 818.6281_wp, 589.4768_wp, 419.6916_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1629.9126_wp, 1125.4492_wp, 730.8135_wp, 0.0000_wp, 0.0000_wp, &
& 1040.1066_wp, 734.8918_wp, 503.1910_wp, 0.0000_wp, 0.0000_wp, &
& 859.0221_wp, 613.1365_wp, 428.4259_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1493.4855_wp, 1034.1628_wp, 677.0271_wp, 0.0000_wp, 0.0000_wp, &
& 960.1346_wp, 679.6572_wp, 466.8855_wp, 0.0000_wp, 0.0000_wp, &
& 903.9928_wp, 643.4443_wp, 447.9267_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1257.4297_wp, 870.4102_wp, 564.2490_wp, 0.0000_wp, 0.0000_wp, &
& 933.1680_wp, 659.4710_wp, 451.7417_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1295.9364_wp, 900.7673_wp, 595.7322_wp, 0.0000_wp, 0.0000_wp, &
& 898.2092_wp, 639.3832_wp, 446.1765_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1689.4085_wp, 1164.0480_wp, 749.9911_wp, 0.0000_wp, 0.0000_wp, &
& 1583.8792_wp, 1095.4590_wp, 714.0617_wp, 0.0000_wp, 0.0000_wp, &
& 1204.5072_wp, 845.7173_wp, 572.0823_wp, 0.0000_wp, 0.0000_wp, &
& 977.8582_wp, 695.6184_wp, 485.3739_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1489.0440_wp, 1037.3050_wp, 691.3637_wp, 0.0000_wp, 0.0000_wp, &
& 1364.4290_wp, 955.2258_wp, 643.8177_wp, 0.0000_wp, 0.0000_wp, &
& 1306.5898_wp, 917.1231_wp, 621.9390_wp, 0.0000_wp, 0.0000_wp, &
& 1145.4236_wp, 810.2212_wp, 558.8413_wp, 0.0000_wp, 0.0000_wp, &
& 1007.8507_wp, 718.6770_wp, 504.0290_wp, 0.0000_wp, 0.0000_wp, &
& 1268.2622_wp, 894.7026_wp, 613.9793_wp, 0.0000_wp, 0.0000_wp, &
& 1235.5723_wp, 873.2287_wp, 601.4334_wp, 0.0000_wp, 0.0000_wp, &
& 1192.2239_wp, 844.5925_wp, 584.5218_wp, 0.0000_wp, 0.0000_wp, &
& 1138.1053_wp, 808.6931_wp, 563.2228_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1145.5595_wp, 814.8114_wp, 568.3523_wp, 0.0000_wp, 0.0000_wp, &
& 1142.8009_wp, 813.2828_wp, 567.8637_wp, 0.0000_wp, 0.0000_wp, &
& 1130.1276_wp, 805.0118_wp, 563.1134_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1006.5104_wp, 722.4932_wp, 512.5389_wp, 0.0000_wp, 0.0000_wp, &
& 1016.4155_wp, 729.4949_wp, 517.3851_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.8202_wp, 637.9590_wp, 459.5735_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5675.7434_wp, 3825.0881_wp, 2001.2557_wp, 0.0000_wp, 0.0000_wp, &
& 1524.9399_wp, 1063.3274_wp, 702.1148_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4754.4826_wp, 3186.2921_wp, 1830.2684_wp, 0.0000_wp, 0.0000_wp, &
& 3994.2273_wp, 2705.5816_wp, 1519.7933_wp, 0.0000_wp, 0.0000_wp, &
& 1581.4671_wp, 1105.9643_wp, 739.9160_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3990.6172_wp, 2690.9591_wp, 1603.5452_wp, 0.0000_wp, 0.0000_wp, &
& 2690.9591_wp, 1850.0003_wp, 1126.9136_wp, 0.0000_wp, 0.0000_wp, &
& 1603.5452_wp, 1126.9136_wp, 766.0202_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 44.5104_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 71.8830_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.3081_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 704.3345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 234.5271_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.7427_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 298.8782_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 194.1728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 270.6187_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 227.4189_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 190.7463_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 144.6238_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 136.0287_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 182.2164_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 170.9262_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 139.1811_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 130.2341_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 106.3035_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 127.1355_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 118.5470_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 111.2827_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 97.9882_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 96.1189_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 86.1665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 75.9910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 72.7359_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 59.1379_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 55.9048_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 841.8986_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.1382_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 644.2220_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.8650_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 345.1382_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 592.4047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 536.5626_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 417.2208_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 324.1533_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 465.2631_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 429.8074_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 399.5853_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.5669_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 319.6854_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 361.8015_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 351.1585_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.4675_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 321.1378_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 299.7447_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 296.4581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 290.4555_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 244.4468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 241.9223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 199.7138_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1381.0183_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 472.2455_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1134.6748_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 907.4012_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 483.9715_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 936.4068_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 471.1854_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 464.4600_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 903.3306_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 454.8200_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 470.1341_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 826.7047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 445.7570_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 430.3341_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 651.1440_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.7809_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 323.4660_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 711.1423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 405.8737_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 276.3955_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 558.0177_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 375.4568_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 271.3545_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 590.7387_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.1677_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 318.8026_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 283.4108_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 608.9242_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 350.2054_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 296.8236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 312.1102_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 466.8110_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.4374_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.3350_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 324.3365_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 566.8783_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 532.0683_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 420.5733_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.2601_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 498.6284_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 466.1880_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 443.6388_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 397.0824_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 350.0197_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 424.2906_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 417.0350_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 405.9846_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 390.9033_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 380.1606_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 380.3160_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 377.3149_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 332.1884_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 334.5262_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 288.5010_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1547.0780_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 563.1480_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1352.0803_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1104.4325_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 579.7357_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1182.0124_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 840.8410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 556.9697_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1060.9721_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 623.2841_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 561.4468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 966.6201_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 629.4977_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 543.0506_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 745.1176_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 586.6430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 479.4247_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 831.8360_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 659.2348_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 422.6628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 632.6639_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 510.5864_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 399.2351_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 691.5646_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 477.5945_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 407.2558_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 640.9611_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 443.3629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.6143_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 534.5993_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 428.9980_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 564.3910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 423.8910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 709.5009_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 675.7911_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 542.3835_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 460.8857_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 654.6723_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 610.0042_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 589.4528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.1369_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.5981_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 582.1618_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 570.3846_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 554.4976_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 534.4801_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 539.4167_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 538.9780_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 534.5244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 487.0333_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 491.6150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 437.2834_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1884.4554_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 664.8346_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1724.7415_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1433.0469_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 700.8041_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1512.2504_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1064.5933_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 725.6894_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1711:1805) = reshape([ &
& 688.0353_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 88.6877_wp, 43.2202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 152.4502_wp, 69.7341_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 53.1523_wp, 28.5060_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2210.3168_wp, 680.2479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 583.9797_wp, 227.0579_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1018.9540_wp, 390.7983_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 732.1642_wp, 289.4434_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 424.7883_wp, 188.2849_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 610.7615_wp, 262.3192_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 502.4967_wp, 220.5170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 413.1209_wp, 185.0194_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.4486_wp, 140.3959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 273.5743_wp, 132.0706_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 379.1038_wp, 176.8339_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 357.1399_wp, 165.8805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 280.4649_wp, 135.1380_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 262.6644_wp, 126.4572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 204.0039_wp, 103.2933_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.2633_wp, 123.4955_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 232.5783_wp, 115.1605_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 216.7820_wp, 108.1159_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 189.7084_wp, 95.2178_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 180.8383_wp, 93.4327_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 160.5233_wp, 83.7765_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 139.7472_wp, 73.9032_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 132.1584_wp, 70.7481_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 103.3616_wp, 57.5599_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 98.8220_wp, 54.4061_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2609.0440_wp, 813.2353_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 873.5134_wp, 332.1495_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1687.5419_wp, 623.3223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1367.2714_wp, 513.7956_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 792.9063_wp, 334.4652_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1464.4446_wp, 573.5902_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1308.6041_wp, 519.6165_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 969.7366_wp, 404.2910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 705.7873_wp, 314.3449_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1061.5213_wp, 450.9253_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 970.3957_wp, 416.6272_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 891.9042_wp, 387.3888_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 878.3222_wp, 377.6480_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 681.4251_wp, 310.1096_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 773.1721_wp, 350.9578_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 749.1438_wp, 340.6470_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 742.6702_wp, 336.0824_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 676.2031_wp, 311.5824_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 614.8652_wp, 290.9369_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 608.9119_wp, 287.7449_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 596.1986_wp, 281.9238_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.2509_wp, 237.4072_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 477.7197_wp, 234.9544_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 381.0503_wp, 194.0698_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4473.7784_wp, 1333.7958_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1162.2835_wp, 457.4338_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3190.2086_wp, 1097.1659_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2571.5319_wp, 877.5528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1119.4842_wp, 469.0498_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2554.7353_wp, 905.7241_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1079.9647_wp, 456.7087_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1040.8154_wp, 450.3076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2405.0561_wp, 874.0066_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1043.3187_wp, 440.8726_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1051.1001_wp, 455.8234_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2167.6325_wp, 800.0152_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1023.5395_wp, 432.0839_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 966.6619_wp, 417.2395_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1709.1137_wp, 630.1961_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1022.9773_wp, 428.1936_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 692.4667_wp, 313.8469_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1823.7858_wp, 688.3693_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 902.0482_wp, 393.5556_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 573.5714_wp, 268.2902_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1428.1039_wp, 540.2311_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 825.7735_wp, 364.1170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 565.2043_wp, 263.3851_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1457.0358_wp, 572.0738_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 788.5809_wp, 347.3566_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 697.7563_wp, 309.2299_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 599.8783_wp, 275.0230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1525.4141_wp, 589.5695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 773.5549_wp, 339.6232_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 639.6214_wp, 287.9649_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 694.6969_wp, 302.6820_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1172.9549_wp, 452.0342_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 788.3761_wp, 335.8606_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1139.4352_wp, 463.4148_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 698.7243_wp, 314.6193_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1372.8649_wp, 549.0692_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1268.2581_wp, 515.4512_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 949.6978_wp, 407.7143_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 733.0346_wp, 332.9869_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1133.1627_wp, 483.3174_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1044.8624_wp, 451.9571_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 984.5356_wp, 430.1513_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 859.9043_wp, 385.1320_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 734.6883_wp, 339.6203_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 912.5263_wp, 411.5533_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 894.2815_wp, 404.5340_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 865.7939_wp, 393.8448_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 826.4044_wp, 379.2572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 791.0214_wp, 368.9206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 791.8817_wp, 369.0697_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 784.9774_wp, 366.1629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 668.3328_wp, 322.5272_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 674.2876_wp, 324.7894_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 563.0156_wp, 280.2438_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4971.0778_wp, 1494.4074_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1369.5245_wp, 545.5917_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3828.9626_wp, 1307.3665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3162.1198_wp, 1068.0684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1338.9789_wp, 561.9076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3181.4405_wp, 1143.5524_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2178.3229_wp, 814.0637_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1231.9890_wp, 540.0992_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2767.9894_wp, 1026.8226_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1442.9680_wp, 604.1250_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1227.1618_wp, 544.5203_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2472.6905_wp, 935.7467_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1456.5113_wp, 610.1366_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1195.2654_wp, 526.6759_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1844.0715_wp, 721.6673_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1342.8116_wp, 568.7148_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1019.8084_wp, 465.1818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2084.5975_wp, 805.5111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1593.6331_wp, 638.7376_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 875.5927_wp, 410.2593_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1527.6056_wp, 612.9682_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1125.1127_wp, 495.2056_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 819.0425_wp, 387.5759_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1664.4640_wp, 669.9917_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1050.0763_wp, 463.2412_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 863.5344_wp, 395.2161_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1522.4806_wp, 621.0687_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 968.8758_wp, 430.0863_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 909.2919_wp, 412.9759_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1286.0441_wp, 518.0207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 942.3547_wp, 416.1281_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1318.2791_wp, 546.9938_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 902.6294_wp, 411.2941_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1728.2162_wp, 687.2667_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1615.9882_wp, 654.7497_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1218.8063_wp, 525.8956_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 982.2388_wp, 447.1551_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1511.0459_wp, 634.5156_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1381.1677_wp, 591.3671_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1320.7683_wp, 571.5166_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1153.3721_wp, 514.1941_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1010.9240_wp, 464.3765_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1278.3406_wp, 564.5753_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1244.3690_wp, 553.2005_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1199.3914_wp, 537.8508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1143.2636_wp, 518.5062_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1150.4200_wp, 523.3205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1147.3718_wp, 522.9067_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1134.1681_wp, 518.6075_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1007.0198_wp, 472.7004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1016.9588_wp, 477.1430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 878.3798_wp, 424.5915_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6073.8935_wp, 1820.4201_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1552.0845_wp, 644.3858_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4983.3126_wp, 1667.4685_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4213.9225_wp, 1385.6402_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1604.0906_wp, 679.3561_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4150.3203_wp, 1462.8142_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2790.9891_wp, 1030.6163_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1619.6684_wp, 703.6339_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1527.1461_wp, 667.2018_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4342.2386_wp, 1476.7389_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1476.7389_wp, 647.0250_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 85.4080_wp, 42.3343_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 146.5851_wp, 68.2931_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 51.2952_wp, 27.9324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2091.5068_wp, 665.5329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 558.6972_wp, 222.2883_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 974.6167_wp, 382.5760_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 700.4442_wp, 283.3715_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 408.1203_wp, 184.3805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 586.1896_wp, 256.8646_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.5077_wp, 215.9438_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 396.7581_wp, 181.1913_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 282.4641_wp, 137.5122_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 263.3886_wp, 129.3614_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 364.6519_wp, 173.1933_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.4153_wp, 162.4665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 269.9865_wp, 132.3691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 252.8197_wp, 123.8682_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 196.6165_wp, 101.1917_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 240.1139_wp, 120.9759_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 224.0040_wp, 112.8134_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 208.8357_wp, 105.9150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 182.7560_wp, 93.2841_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 174.3678_wp, 91.5407_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 154.8067_wp, 82.0849_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 134.8019_wp, 72.4156_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 127.5308_wp, 69.3261_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 99.8331_wp, 56.4117_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 95.4202_wp, 53.3201_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2470.6020_wp, 795.6873_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 834.9263_wp, 325.1636_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1611.7831_wp, 610.1625_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1305.9000_wp, 502.9655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 760.7352_wp, 327.4991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1401.3191_wp, 561.5498_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1252.6928_wp, 508.7250_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 929.6042_wp, 395.8577_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 678.1931_wp, 307.8310_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1018.5098_wp, 441.5369_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 931.2917_wp, 407.9629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 856.2817_wp, 379.3429_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 842.8268_wp, 369.7985_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 655.1209_wp, 303.6993_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 743.2407_wp, 343.7019_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 720.1450_wp, 333.6065_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 713.7913_wp, 329.1343_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 650.2639_wp, 305.1528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 591.6752_wp, 284.9529_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 585.9134_wp, 281.8265_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 573.6840_wp, 276.1263_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 464.5062_wp, 232.5513_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 460.1250_wp, 230.1488_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 367.3163_wp, 190.1224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4216.3998_wp, 1304.7563_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1111.2638_wp, 447.8636_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3036.3662_wp, 1073.8235_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2442.0495_wp, 858.8383_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1073.3952_wp, 459.2919_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2435.0889_wp, 886.5266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1036.2055_wp, 447.2220_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 998.9971_wp, 440.9674_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2294.2857_wp, 855.5354_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1000.2155_wp, 431.7097_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1008.9483_wp, 446.3717_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2068.9809_wp, 783.1386_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 981.3457_wp, 423.1055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 927.5254_wp, 408.5880_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1630.6018_wp, 616.9100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 980.4829_wp, 419.2898_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 665.3571_wp, 307.3826_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1742.1942_wp, 673.8862_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 866.0442_wp, 385.4043_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 551.6130_wp, 262.7854_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1363.8456_wp, 528.8780_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 793.0239_wp, 356.5850_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 543.5117_wp, 257.9795_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1394.0822_wp, 560.0917_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 757.1711_wp, 340.1719_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 669.9835_wp, 302.8447_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 576.6205_wp, 269.3672_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1458.7399_wp, 577.1994_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 742.6757_wp, 332.5971_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 614.5241_wp, 282.0297_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 666.7343_wp, 296.4247_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1120.9931_wp, 442.5579_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 756.1577_wp, 328.8954_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1091.5722_wp, 453.7462_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 671.4732_wp, 308.1251_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1314.2306_wp, 537.5790_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1214.7867_wp, 504.6830_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 911.1851_wp, 399.2448_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 704.6787_wp, 326.1098_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1087.2533_wp, 473.2673_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1002.9138_wp, 442.5728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 945.3065_wp, 421.2295_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 826.2471_wp, 377.1647_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 706.5967_wp, 332.6173_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 877.0066_wp, 403.0441_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 859.5248_wp, 396.1729_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 832.2670_wp, 385.7096_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 794.6136_wp, 371.4307_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 760.8949_wp, 361.3222_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 761.6998_wp, 361.4679_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 755.0713_wp, 358.6221_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 643.4305_wp, 315.9132_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 649.1282_wp, 318.1278_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1806:1900) = reshape([ &
& 542.4383_wp, 274.5224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4685.0846_wp, 1461.9055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1309.7014_wp, 534.1947_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3642.0492_wp, 1279.5273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2999.9283_wp, 1045.2541_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1283.6521_wp, 550.2241_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3032.9183_wp, 1119.3527_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2074.8807_wp, 796.8844_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1182.9141_wp, 528.9145_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2642.0526_wp, 1005.1742_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1383.2190_wp, 591.5630_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1178.7222_wp, 533.2574_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2361.6974_wp, 916.0648_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1397.0298_wp, 597.4603_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1147.4757_wp, 515.7797_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1763.1139_wp, 706.5573_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1287.2763_wp, 556.9066_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 980.1462_wp, 455.5995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1992.1534_wp, 788.6151_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1523.8714_wp, 625.3966_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 842.1651_wp, 401.8371_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1461.6458_wp, 600.1777_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1080.1628_wp, 484.9704_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 787.9846_wp, 379.6309_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1593.3696_wp, 656.0092_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1008.0521_wp, 453.6734_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 829.8526_wp, 387.0905_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1458.1671_wp, 608.1289_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 930.2250_wp, 421.2135_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 873.7547_wp, 404.4764_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1230.4969_wp, 507.2269_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 904.6688_wp, 407.5420_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1263.3482_wp, 535.6228_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 867.5938_wp, 402.8281_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1653.5039_wp, 672.8996_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1547.2492_wp, 641.0897_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1169.3656_wp, 514.9974_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 944.1820_wp, 437.9410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1448.8711_wp, 621.3216_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1325.1151_wp, 579.0951_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1267.6087_wp, 559.6696_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1107.9903_wp, 503.5686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 972.0426_wp, 454.8102_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1227.7455_wp, 552.8934_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1195.3394_wp, 541.7614_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1152.4260_wp, 526.7389_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1098.8818_wp, 507.8063_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1105.8143_wp, 512.5245_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1102.9411_wp, 512.1209_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1090.3536_wp, 507.9139_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 968.7947_wp, 462.9825_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 978.3471_wp, 467.3327_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 845.6703_wp, 415.8938_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5716.7999_wp, 1780.7379_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1486.4897_wp, 630.9699_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4733.4185_wp, 1631.8559_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3987.3600_wp, 1355.8874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1537.9273_wp, 665.2422_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3951.9956_wp, 1431.7796_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2655.1171_wp, 1008.8176_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1554.6376_wp, 689.0464_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1465.9695_wp, 653.3875_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4125.9023_wp, 1445.2611_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1417.6855_wp, 633.6333_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3924.4211_wp, 1387.5284_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1387.5284_wp, 620.5206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 83.3310_wp, 41.0356_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 142.9620_wp, 66.1439_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.0748_wp, 27.1150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2031.2740_wp, 642.1808_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 544.1232_wp, 214.9157_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 949.1255_wp, 369.8142_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 682.1901_wp, 274.0453_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 397.9479_wp, 178.5085_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 571.4113_wp, 248.6071_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 470.4029_wp, 209.0627_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 386.8363_wp, 175.4697_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 275.5610_wp, 133.2643_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 256.9654_wp, 125.3807_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 355.6712_wp, 167.7968_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 334.9245_wp, 157.4078_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 263.3922_wp, 128.3013_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 246.6348_wp, 120.0668_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 191.8733_wp, 98.1467_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 234.2913_wp, 117.3026_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 218.5611_wp, 109.3944_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 203.7729_wp, 102.7150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 178.3241_wp, 90.4807_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 170.1817_wp, 88.8159_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 151.0970_wp, 79.6566_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 131.5785_wp, 70.2898_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.4946_wp, 67.2999_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 97.4789_wp, 54.7947_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.1635_wp, 51.7860_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2399.8207_wp, 767.8676_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 812.9350_wp, 314.3316_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1568.9885_wp, 589.6141_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1271.2883_wp, 486.1582_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 741.4881_wp, 316.8969_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1364.8494_wp, 542.9683_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1220.2246_wp, 491.9700_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 905.8860_wp, 383.0238_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 661.3178_wp, 298.0452_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 992.7507_wp, 427.2858_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 907.7970_wp, 394.8501_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 834.7641_wp, 367.1968_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 821.5324_wp, 357.9364_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 638.9063_wp, 294.1261_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 724.8197_wp, 332.8624_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 702.2959_wp, 323.0966_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 696.0628_wp, 318.7539_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 634.2089_wp, 295.5871_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 577.1696_wp, 276.1129_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 571.5397_wp, 273.0819_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 559.6108_wp, 267.5627_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 453.2313_wp, 225.4562_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 448.9517_wp, 223.1261_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.4721_wp, 184.4110_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4092.0575_wp, 1259.0280_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1082.0865_wp, 433.2074_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2952.9794_wp, 1037.1340_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2374.0445_wp, 829.6408_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1046.0388_wp, 444.4629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2369.1244_wp, 856.4434_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1009.8893_wp, 432.8276_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 973.8228_wp, 426.8683_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2232.6503_wp, 826.7257_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 974.7227_wp, 417.8360_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 983.5427_wp, 432.1120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2013.7194_wp, 756.8843_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 956.3321_wp, 409.5058_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 904.0753_wp, 395.5412_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1586.8512_wp, 596.2971_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 955.4042_wp, 405.7835_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 648.7727_wp, 297.7522_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1696.0441_wp, 651.4438_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 844.2856_wp, 373.1223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 537.9977_wp, 254.6469_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1327.6064_wp, 511.3384_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 773.1575_wp, 345.2676_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.0826_wp, 249.9799_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1357.7395_wp, 541.6401_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 738.1748_wp, 329.3812_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 653.1705_wp, 293.2805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 562.3122_wp, 260.9610_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1420.5045_wp, 558.0904_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 724.0207_wp, 322.0375_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 599.1969_wp, 273.1670_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 649.9094_wp, 287.0163_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1091.4214_wp, 427.9630_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 736.9509_wp, 318.3642_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1063.4898_wp, 438.9546_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 654.7776_wp, 298.4106_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1280.1762_wp, 519.9536_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1183.4931_wp, 488.2162_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 888.1417_wp, 386.4453_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 687.2223_wp, 315.8374_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1059.7536_wp, 458.0385_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 977.6523_wp, 428.4016_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 921.5753_wp, 407.7871_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 805.6691_wp, 365.2295_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 689.1790_wp, 322.2035_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 855.2177_wp, 390.3161_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 838.1837_wp, 383.6775_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 811.6356_wp, 373.5692_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 774.9718_wp, 359.7752_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 742.1649_wp, 350.0554_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 742.9435_wp, 350.1952_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 736.4811_wp, 347.4428_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 627.7342_wp, 306.1959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 633.2835_wp, 308.3361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 529.3070_wp, 266.1893_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4547.0720_wp, 1410.8565_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1275.3968_wp, 516.8026_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3541.4930_wp, 1235.8086_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2915.7949_wp, 1009.7020_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1250.8766_wp, 532.4996_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2950.9303_wp, 1081.5963_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2018.9224_wp, 770.4895_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1153.2166_wp, 512.0867_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2571.4964_wp, 971.5644_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1347.7804_wp, 572.5226_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1149.2501_wp, 516.3573_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2299.0481_wp, 885.6282_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1361.3178_wp, 578.2213_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1118.6278_wp, 499.4343_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1716.8038_wp, 683.3681_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1254.4039_wp, 539.0640_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 955.7891_wp, 441.3364_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1939.6215_wp, 762.6134_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1483.9817_wp, 605.0829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 821.4043_wp, 389.3842_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1423.5531_wp, 580.6563_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1052.9974_wp, 469.6134_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 768.6159_wp, 367.9133_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1552.0522_wp, 634.6293_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 982.6875_wp, 439.3361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 809.2032_wp, 375.0228_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1420.5469_wp, 588.3919_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 906.8511_wp, 407.9420_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 851.9952_wp, 391.8190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1198.4194_wp, 490.7833_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 881.9071_wp, 394.6814_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1230.9598_wp, 518.3356_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 846.0616_wp, 390.2136_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1610.4142_wp, 650.8890_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1507.2236_wp, 620.2296_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1139.7842_wp, 498.5669_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 920.7728_wp, 424.1984_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1411.9588_wp, 601.2862_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1291.5707_wp, 560.5406_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1235.6389_wp, 541.7976_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1080.3308_wp, 487.6436_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 948.0215_wp, 440.5691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1197.0157_wp, 535.3426_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1165.4811_wp, 524.6028_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1123.7195_wp, 510.1049_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1071.6137_wp, 491.8297_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1078.3854_wp, 496.4206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1075.5989_wp, 496.0396_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1063.3516_wp, 491.9827_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 944.9814_wp, 448.6020_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 954.2967_wp, 452.8135_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 825.0473_wp, 403.1233_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5547.4900_wp, 1718.6565_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1448.1464_wp, 610.6517_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4601.2171_wp, 1575.9396_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3873.7284_wp, 1309.6071_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1498.6941_wp, 643.9008_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3844.0367_wp, 1383.3184_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2582.9722_wp, 975.3429_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1515.4611_wp, 667.0629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1429.0690_wp, 632.6069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4011.3635_wp, 1395.9648_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1382.0320_wp, 613.5022_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3816.1118_wp, 1340.2848_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1352.6449_wp, 600.8101_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3710.9375_wp, 1306.6123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1306.6123_wp, 581.7435_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 81.4123_wp, 41.1186_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 139.6254_wp, 66.4057_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 48.9406_wp, 27.0910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1976.6955_wp, 653.7125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.7909_wp, 216.8695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 925.8158_wp, 373.3538_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 665.4868_wp, 276.3828_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 388.5925_wp, 179.3900_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 557.8380_wp, 250.0690_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 459.2753_wp, 210.1448_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 377.7092_wp, 176.2659_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 269.1899_wp, 133.6061_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 251.0346_wp, 125.6675_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 347.3921_wp, 168.3507_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.0991_wp, 157.9406_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 257.3029_wp, 128.5963_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 240.9233_wp, 120.3408_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 187.4818_wp, 98.2270_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 228.9065_wp, 117.4740_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 213.5277_wp, 109.5523_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 199.0885_wp, 102.8398_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 174.2214_wp, 90.5682_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 166.3004_wp, 88.8332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 147.6552_wp, 79.6477_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 128.5846_wp, 70.2511_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 121.6727_wp, 67.2415_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 95.2846_wp, 54.6852_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1901:1995) = reshape([ &
& 91.0614_wp, 51.6977_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2335.6474_wp, 781.2050_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 792.8336_wp, 317.4096_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1529.9120_wp, 596.0022_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1239.6749_wp, 491.1385_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 723.8209_wp, 318.9485_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1331.4786_wp, 547.7742_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1190.5003_wp, 496.0959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 884.1322_wp, 385.6361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 645.7939_wp, 299.4728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 969.1026_wp, 429.9494_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 886.2193_wp, 397.1752_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 814.9918_wp, 369.2253_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 801.9751_wp, 360.0151_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 623.9763_wp, 295.3345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 707.8604_wp, 334.2517_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 685.8620_wp, 324.4246_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 679.7433_wp, 320.1057_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 619.4176_wp, 296.6816_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 563.7890_wp, 276.9116_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 558.2816_wp, 273.8804_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 546.6292_wp, 268.3382_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 442.8095_wp, 225.8370_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 438.6243_wp, 223.5079_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 350.2812_wp, 184.5332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3979.6309_wp, 1283.6315_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1055.3891_wp, 436.8854_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2877.0680_wp, 1050.9848_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2312.2147_wp, 841.0519_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1020.9351_wp, 447.3826_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2308.9962_wp, 866.9228_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 985.7264_wp, 435.5172_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 950.6909_wp, 429.2527_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2176.4184_wp, 836.0994_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 951.3257_wp, 420.4671_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 960.1954_wp, 434.4919_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1963.2723_wp, 765.0512_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 933.3738_wp, 412.0874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 882.5313_wp, 397.7647_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1546.9195_wp, 602.7113_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 932.3946_wp, 408.4460_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 633.5005_wp, 298.9583_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1653.8773_wp, 657.9635_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 824.2830_wp, 375.1051_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 525.4406_wp, 255.4370_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1294.4951_wp, 516.3770_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 754.8861_wp, 346.9868_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.6989_wp, 250.7830_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1324.4770_wp, 546.3363_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 720.7052_wp, 331.0282_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 637.7039_wp, 294.6745_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 549.1278_wp, 261.9299_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1385.5313_wp, 563.2255_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 706.8671_wp, 323.6772_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 585.0856_wp, 274.3346_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 634.4415_wp, 288.5206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1064.3798_wp, 431.9033_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 719.3118_wp, 320.2684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1037.7490_wp, 442.2545_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 639.4075_wp, 299.7092_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1248.9915_wp, 524.1676_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1154.8172_wp, 491.9157_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 866.9787_wp, 388.7055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 671.1482_wp, 317.1445_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1034.5024_wp, 460.8179_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 954.4431_wp, 430.8119_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 899.7622_wp, 409.9536_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 786.7340_wp, 366.8929_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 673.1287_wp, 323.3676_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 835.1622_wp, 392.0139_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 818.5381_wp, 385.3099_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 792.6385_wp, 375.0947_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 756.8785_wp, 361.1491_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 724.8987_wp, 351.2182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 725.6536_wp, 351.3644_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 719.3436_wp, 348.5929_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 613.2405_wp, 306.8959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 618.6540_wp, 309.0575_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.1617_wp, 266.5494_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4422.2696_wp, 1437.9300_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1243.9950_wp, 520.9703_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3449.9906_wp, 1252.6342_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2839.3501_wp, 1024.0101_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1220.8006_wp, 535.9497_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2876.1716_wp, 1094.2695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1967.8827_wp, 778.5614_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1125.9127_wp, 514.7308_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2507.0805_wp, 981.8553_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1315.2670_wp, 576.2453_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1122.1393_wp, 518.8345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2241.8085_wp, 894.3917_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1328.5415_wp, 581.9305_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1092.1025_wp, 501.9170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1674.4360_wp, 689.3091_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1224.2314_wp, 542.3803_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 933.3543_wp, 443.0547_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1891.5883_wp, 769.5990_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1447.4665_wp, 609.8655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 802.2571_wp, 390.5841_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1388.6668_wp, 585.2065_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1028.0158_wp, 471.9441_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 750.7432_wp, 368.9368_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1514.2016_wp, 639.5705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 959.3598_wp, 441.4769_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 790.1791_wp, 376.4231_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1386.0622_wp, 592.7151_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 885.3477_wp, 409.8444_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 831.9541_wp, 393.3803_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1169.0360_wp, 494.5443_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 860.9698_wp, 396.5804_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1201.2473_wp, 521.8571_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 826.2261_wp, 391.7491_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1570.9643_wp, 656.2319_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1470.5492_wp, 624.9431_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1112.6065_wp, 501.3687_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 899.2107_wp, 425.8977_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1378.0830_wp, 605.1903_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1260.7608_wp, 563.8386_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1206.2616_wp, 544.8078_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1054.8803_wp, 489.9104_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 925.8883_wp, 442.2254_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1168.7524_wp, 537.9899_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1138.0116_wp, 527.0919_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1097.2997_wp, 512.3917_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1046.5046_wp, 493.8687_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1053.1255_wp, 498.4291_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1050.4168_wp, 498.0193_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1038.4792_wp, 493.8976_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 923.0194_wp, 449.9920_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 932.1166_wp, 454.2236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 806.0002_wp, 404.0174_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5394.4846_wp, 1752.1410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1412.9908_wp, 614.7789_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4481.0449_wp, 1598.6396_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3770.6523_wp, 1329.7509_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1462.6834_wp, 647.8742_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3745.6921_wp, 1400.5068_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2517.2239_wp, 986.0439_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1479.4584_wp, 670.6863_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1395.1471_wp, 635.9157_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3907.1923_wp, 1415.2709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1349.2524_wp, 616.6572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3717.5407_wp, 1358.1904_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1320.5717_wp, 603.8868_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3615.2067_wp, 1323.9329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1275.6493_wp, 584.6788_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3522.0508_wp, 1292.4475_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1292.4475_wp, 587.7891_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 79.7138_wp, 39.2564_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 136.6695_wp, 63.7629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 47.9365_wp, 25.6913_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1928.0810_wp, 653.6846_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 518.9498_wp, 211.7400_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 905.1101_wp, 365.1112_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 650.6557_wp, 269.2305_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 380.3011_wp, 172.7866_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 545.8015_wp, 241.6343_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.4102_wp, 202.6148_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 369.6195_wp, 169.5824_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 263.5484_wp, 127.7725_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 245.7832_wp, 120.0875_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 340.0580_wp, 161.3933_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 320.1657_wp, 151.4713_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 251.9099_wp, 122.9404_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 235.8641_wp, 115.0733_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 183.5940_wp, 93.5193_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 224.1383_wp, 112.0512_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 209.0700_wp, 104.5097_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 194.9397_wp, 98.0628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 170.5870_wp, 86.3386_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 162.8638_wp, 84.4731_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 144.6075_wp, 75.6908_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 125.9329_wp, 66.7166_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 119.1734_wp, 63.7996_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.3410_wp, 51.7557_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 89.1988_wp, 48.9809_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2278.4898_wp, 780.2674_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 774.9719_wp, 310.6864_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1495.1792_wp, 585.2367_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1211.5825_wp, 481.1216_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 708.1495_wp, 308.8219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1301.8438_wp, 534.3757_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1164.1089_wp, 483.2415_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 864.8322_wp, 373.6925_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 632.0359_wp, 288.3313_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 948.1288_wp, 415.9150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 867.0844_wp, 383.7764_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 797.4609_wp, 356.3677_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 784.6310_wp, 347.8087_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 610.7486_wp, 283.7443_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 692.8338_wp, 321.2120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 671.3009_wp, 311.7158_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 665.2819_wp, 307.7168_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 606.3141_wp, 284.7085_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 551.9390_wp, 265.0869_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 546.5395_wp, 262.2219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 535.1318_wp, 256.9068_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 433.5831_wp, 215.4603_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 429.4810_wp, 213.2614_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.0307_wp, 175.5908_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3879.4729_wp, 1285.6965_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1031.6716_wp, 425.9370_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2809.5233_wp, 1039.4662_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2257.1993_wp, 831.2750_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 998.6585_wp, 433.5252_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2255.5157_wp, 854.8216_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 964.2855_wp, 421.6969_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 930.1750_wp, 414.5893_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2126.4190_wp, 822.1810_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 930.5654_wp, 407.0094_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 939.4890_wp, 419.5622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1918.4254_wp, 751.0893_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 913.0014_wp, 398.9816_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 863.4210_wp, 384.2576_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1511.4156_wp, 591.6660_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 911.9735_wp, 395.7987_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 619.9599_wp, 287.5236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1616.4023_wp, 644.4421_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 806.5432_wp, 362.0493_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 514.3112_wp, 244.9612_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1265.0643_wp, 505.6064_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 738.6836_wp, 334.5615_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.7226_wp, 240.5922_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1294.9313_wp, 533.0040_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 705.2129_wp, 319.1993_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 623.9865_wp, 284.0111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 537.4395_wp, 251.6701_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1354.4595_wp, 550.3952_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 691.6538_wp, 312.2221_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 572.5728_wp, 264.0373_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 620.7184_wp, 278.5957_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1040.3490_wp, 422.1376_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 703.6592_wp, 309.8959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1014.8959_wp, 429.9304_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 625.7820_wp, 288.4004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1221.3030_wp, 510.2157_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1129.3623_wp, 478.0396_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 848.2084_wp, 375.6249_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 656.9043_wp, 304.8174_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1012.1053_wp, 445.6375_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 933.8615_wp, 416.0190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.4215_wp, 395.4915_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 769.9512_wp, 353.0881_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 658.9099_wp, 310.2550_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 817.3888_wp, 376.9991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 801.1286_wp, 370.4418_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 775.8051_wp, 360.4255_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 740.8479_wp, 346.7365_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 709.6039_wp, 336.6910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 710.3376_wp, 336.8539_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 704.1627_wp, 334.1734_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 600.4064_wp, 293.3036_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 605.6994_wp, 295.4210_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.4098_wp, 254.0859_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4311.0961_wp, 1438.5445_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1216.1018_wp, 507.2285_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3368.5646_wp, 1239.5504_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2771.3234_wp, 1012.8078_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1194.1104_wp, 519.2271_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2809.6885_wp, 1077.0858_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1922.5226_wp, 762.0033_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1101.7008_wp, 496.5039_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2449.8188_wp, 963.2715_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1286.4106_wp, 558.2951_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1098.1031_wp, 499.8637_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2190.9387_wp, 875.5931_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1299.4488_wp, 563.9816_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1068.5805_wp, 483.8542_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1636.7956_wp, 672.4914_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1197.4564_wp, 524.9085_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 913.4679_wp, 425.7815_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 1996:2090) = reshape([ &
& 1848.9097_wp, 751.7567_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1415.0358_wp, 593.2386_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 785.2898_wp, 374.4473_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1357.6810_wp, 569.5060_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1005.8586_wp, 455.1389_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 734.9066_wp, 353.3996_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1480.5878_wp, 622.3214_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 938.6688_wp, 425.6722_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 773.3122_wp, 361.7114_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1355.4425_wp, 575.9965_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 866.2748_wp, 394.9658_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 814.1845_wp, 378.3019_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1142.9352_wp, 481.1524_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 842.3966_wp, 382.4279_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1174.8699_wp, 506.3303_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 808.6413_wp, 376.6190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1535.9254_wp, 639.2239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1437.9844_wp, 607.6149_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1088.4965_wp, 484.4102_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.0979_wp, 409.4190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1348.0216_wp, 586.3317_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1233.4280_wp, 545.1890_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1180.2039_wp, 526.2392_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1032.3159_wp, 471.8373_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 906.2740_wp, 424.6928_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1143.6919_wp, 518.5975_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1113.6574_wp, 507.7568_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1073.8792_wp, 493.1741_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1024.2500_wp, 474.8294_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1030.7380_wp, 479.0649_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1028.0990_wp, 478.5801_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1016.4371_wp, 474.4660_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 903.5630_wp, 431.2267_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 912.4671_wp, 435.2963_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 789.1320_wp, 386.1460_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5258.2068_wp, 1751.8319_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1381.7863_wp, 595.9499_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4374.0826_wp, 1584.5929_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3678.9146_wp, 1317.6067_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1430.7306_wp, 626.9684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3658.2120_wp, 1380.9239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2458.7886_wp, 965.8237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1447.5288_wp, 647.4730_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1365.0615_wp, 613.6537_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3814.4921_wp, 1400.3880_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1320.1809_wp, 594.9070_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3629.8268_wp, 1342.9247_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1292.1268_wp, 582.5641_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3530.0228_wp, 1308.7424_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1248.1896_wp, 563.9015_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3439.1601_wp, 1277.3568_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1264.5213_wp, 567.3171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3358.3122_wp, 1249.5054_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1249.5054_wp, 549.0281_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 64.1880_wp, 41.3275_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 108.3662_wp, 66.8235_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 39.5786_wp, 27.1595_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1407.7335_wp, 659.0924_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 396.7223_wp, 218.6195_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 689.9287_wp, 376.4610_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 499.1837_wp, 278.5080_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 299.3233_wp, 180.6115_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 426.4897_wp, 251.8424_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 352.9087_wp, 211.5485_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 291.6491_wp, 177.3613_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 211.2565_wp, 134.3264_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 197.4553_wp, 126.3205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 270.9183_wp, 169.3159_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.8122_wp, 158.8301_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 202.2978_wp, 129.2461_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 189.3824_wp, 120.9324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 149.2918_wp, 98.6213_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 181.2581_wp, 117.9977_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.0556_wp, 110.0265_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 157.9221_wp, 103.2648_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 138.4298_wp, 90.9100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 133.1438_wp, 89.1359_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 118.5388_wp, 79.8949_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 103.6007_wp, 70.4331_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 98.3573_wp, 67.4030_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 77.8742_wp, 54.7600_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 74.1912_wp, 51.7756_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1667.3895_wp, 787.6187_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 589.6821_wp, 319.9572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1130.8198_wp, 601.0384_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 919.6329_wp, 495.1147_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 551.1193_wp, 321.3077_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 996.7924_wp, 552.1545_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 893.9515_wp, 499.9820_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 671.2900_wp, 388.4558_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 498.0207_wp, 301.4874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 739.0200_wp, 433.0662_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 677.4806_wp, 399.9816_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 624.7321_wp, 371.7819_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 613.2627_wp, 362.5021_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 483.6888_wp, 297.2065_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 548.3633_wp, 336.3700_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 531.5424_wp, 326.4592_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.1827_wp, 322.1177_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 481.6031_wp, 298.4773_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.2303_wp, 278.4551_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 436.7785_wp, 275.4054_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 427.7338_wp, 269.8237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 350.0369_wp, 226.9109_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.6461_wp, 224.5698_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 279.3515_wp, 185.2621_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2817.6333_wp, 1292.7733_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 790.7854_wp, 439.9765_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2094.5326_wp, 1059.7192_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1680.6338_wp, 847.4486_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 776.0695_wp, 450.5280_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1691.7052_wp, 874.1314_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 750.7848_wp, 438.5550_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 728.1122_wp, 432.1441_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1602.8927_wp, 842.8840_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 724.5886_wp, 423.3069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 735.7972_wp, 437.4020_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1450.7174_wp, 771.1840_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 710.7237_wp, 414.8741_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 675.5150_wp, 400.3793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1142.7015_wp, 607.3487_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 708.5769_wp, 411.2230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.5998_wp, 300.6688_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1228.0426_wp, 663.1313_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 632.5743_wp, 377.5747_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 410.0863_wp, 256.7746_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 961.5600_wp, 520.2569_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 580.7773_wp, 349.2095_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.6739_wp, 252.1075_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 992.0673_wp, 550.5045_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 554.3462_wp, 333.1240_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 491.2047_wp, 296.4553_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 426.4723_wp, 263.3886_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1034.1932_wp, 567.6026_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 543.2742_wp, 325.7328_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 452.3968_wp, 275.9455_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 486.7180_wp, 290.3039_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 793.8763_wp, 435.0829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 548.9119_wp, 322.3728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 783.5114_wp, 445.4982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 494.4243_wp, 301.5583_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 939.3652_wp, 528.1305_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 871.6966_wp, 495.5668_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 662.7701_wp, 391.3632_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 520.0484_wp, 319.1288_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 789.6369_wp, 464.0671_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 730.9227_wp, 433.7675_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 690.6823_wp, 412.7144_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 607.5073_wp, 369.2466_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 523.7968_wp, 325.3103_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 645.9849_wp, 394.5033_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 633.5809_wp, 387.7336_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 614.3654_wp, 377.4212_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.9119_wp, 363.3458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 565.2991_wp, 353.2521_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 565.7914_wp, 353.3989_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 560.9891_wp, 350.6032_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.3172_wp, 308.4763_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 486.3444_wp, 310.6569_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 409.9803_wp, 267.7464_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3135.9242_wp, 1447.9360_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 934.6082_wp, 524.5374_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2507.7589_wp, 1262.8491_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2059.4692_wp, 1031.5808_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 928.2866_wp, 539.6227_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2113.2076_wp, 1103.0742_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1458.1969_wp, 784.0479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 865.0011_wp, 518.0912_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1854.4837_wp, 989.5940_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 999.3615_wp, 580.1629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 864.5896_wp, 522.1512_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1665.4372_wp, 901.2747_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1009.4419_wp, 585.9401_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 840.0098_wp, 505.0620_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1253.0730_wp, 694.2958_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 932.8332_wp, 545.9255_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 723.9342_wp, 445.6125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1411.6759_wp, 775.2973_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1088.9839_wp, 613.9817_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 626.3824_wp, 392.6667_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1045.0617_wp, 589.2413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 790.5176_wp, 474.8590_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.6156_wp, 370.8350_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1140.4525_wp, 644.1313_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 738.1317_wp, 444.1417_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 613.3959_wp, 378.4806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1047.1279_wp, 596.8654_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 682.2073_wp, 412.2532_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 644.6362_wp, 395.6090_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.5313_wp, 497.8410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 662.6029_wp, 398.9285_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 911.0796_wp, 525.4121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 640.7393_wp, 394.0161_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1179.9720_wp, 660.9815_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1109.2250_wp, 629.3894_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 851.5816_wp, 504.6237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 697.1742_wp, 428.4350_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1048.0976_wp, 609.4014_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 963.2234_wp, 567.6368_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 923.8826_wp, 548.4168_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 813.7102_wp, 492.9882_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 719.4208_wp, 444.8426_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 899.5162_wp, 541.4600_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 877.2337_wp, 530.4464_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 847.6165_wp, 515.5966_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 810.5952_wp, 496.8907_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 816.3047_wp, 501.4441_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 814.5718_wp, 501.0205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 805.9652_wp, 496.8526_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 720.9847_wp, 452.4916_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 728.0053_wp, 456.7532_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 634.2163_wp, 406.0479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3823.8426_wp, 1763.6917_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1071.5717_wp, 618.8508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3243.6561_wp, 1611.3765_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2720.7653_wp, 1339.0290_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1114.5114_wp, 652.1810_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2740.5478_wp, 1411.6458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1860.7370_wp, 992.8293_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1134.1326_wp, 675.1196_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1070.9597_wp, 639.9970_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2838.1357_wp, 1426.3405_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1036.4403_wp, 620.5881_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2705.6826_wp, 1368.9945_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1014.5593_wp, 607.7340_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2632.6657_wp, 1334.4823_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 980.6114_wp, 588.3813_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2566.0607_wp, 1302.7626_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 991.5176_wp, 591.5368_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2506.8352_wp, 1274.6283_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 974.0690_wp, 571.0450_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1891.6719_wp, 999.0617_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 999.0617_wp, 595.3628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.1794_wp, 38.9150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 120.4056_wp, 62.7971_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.3679_wp, 25.6695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1802.3852_wp, 612.8166_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 463.5442_wp, 204.5514_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 808.4866_wp, 352.0753_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 582.1224_wp, 260.7245_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 335.3665_wp, 169.5717_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.7977_wp, 236.2659_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 397.4499_wp, 198.6025_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.2333_wp, 166.6202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 232.1028_wp, 126.4184_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 216.4708_wp, 118.9198_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 299.8469_wp, 159.2422_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 282.8547_wp, 149.3811_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 222.0934_wp, 121.6899_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 208.1604_wp, 113.8754_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 161.9091_wp, 93.0070_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 197.6234_wp, 111.2043_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 184.5904_wp, 103.7034_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 172.0857_wp, 97.3591_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 150.8204_wp, 85.7475_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 143.7754_wp, 84.1363_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 127.7828_wp, 75.4465_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 111.4277_wp, 66.5559_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 105.3970_wp, 63.7152_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 82.7154_wp, 51.8414_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 79.0484_wp, 49.0050_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 2091:2185) = reshape([ &
& 2124.0831_wp, 732.6457_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 695.0211_wp, 299.2468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1343.3651_wp, 561.5991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1089.8214_wp, 462.8827_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 626.4637_wp, 301.2799_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1162.1560_wp, 516.7263_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1038.1047_wp, 468.0868_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 768.1313_wp, 364.1571_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 557.1841_wp, 283.1061_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 839.1776_wp, 406.1522_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 767.3055_wp, 375.2459_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 705.0006_wp, 348.9033_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 695.1617_wp, 340.1321_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 538.2012_wp, 279.2705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 610.8318_wp, 316.0555_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 592.0135_wp, 306.7678_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.0972_wp, 302.6610_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 534.4195_wp, 280.5856_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 486.2319_wp, 261.9772_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 481.5894_wp, 259.1043_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 471.5858_wp, 253.8632_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 381.9584_wp, 213.7617_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 378.3984_wp, 211.5547_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 302.4149_wp, 174.7380_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3687.6305_wp, 1201.3307_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 927.3672_wp, 412.0655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2564.1443_wp, 988.5095_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2081.6173_wp, 790.5227_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 887.0421_wp, 422.5156_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2045.4927_wp, 816.0391_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 855.1471_wp, 411.3969_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 823.6822_wp, 405.6040_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1922.8302_wp, 787.4378_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 827.7970_wp, 397.1190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 831.7726_wp, 410.5703_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1730.9890_wp, 720.7679_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 811.9905_wp, 389.2080_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 766.0776_wp, 375.8195_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1368.0049_wp, 567.7536_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 812.0495_wp, 385.7107_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 548.8466_wp, 282.6706_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1454.1614_wp, 620.1711_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 713.7552_wp, 354.4940_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 454.6351_wp, 241.6291_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1140.8713_wp, 486.6971_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 653.4752_wp, 327.9705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 447.9970_wp, 237.2164_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1157.9011_wp, 515.3839_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 624.4481_wp, 312.8735_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 553.1437_wp, 278.5319_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 475.3065_wp, 247.7080_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1213.2014_wp, 531.1595_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 612.6329_wp, 305.9112_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.6985_wp, 259.3743_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 550.9242_wp, 272.6492_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 935.7544_wp, 407.2414_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 625.2396_wp, 302.5447_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 903.5991_wp, 417.4763_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 552.5803_wp, 283.3765_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1090.0939_wp, 494.6170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1006.1273_wp, 464.3202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 752.0406_wp, 367.2307_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 579.2127_wp, 299.8930_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 896.4651_wp, 435.3339_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 826.5104_wp, 407.0718_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 778.5964_wp, 387.4235_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 679.7752_wp, 346.8564_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 580.5610_wp, 305.8457_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 721.2042_wp, 370.6421_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 706.8707_wp, 364.3169_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 684.3805_wp, 354.6851_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 653.1815_wp, 341.5412_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 625.4480_wp, 332.2173_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 626.1705_wp, 332.3519_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 620.7464_wp, 329.7337_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 528.9381_wp, 290.4179_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.6485_wp, 292.4564_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 446.2084_wp, 252.3325_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4098.5678_wp, 1345.9552_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1093.0934_wp, 491.4621_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3083.9899_wp, 1177.8523_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2566.8729_wp, 962.0972_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1062.1534_wp, 506.1454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2548.5911_wp, 1030.2577_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1752.1144_wp, 733.2622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 974.9708_wp, 486.4650_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2211.4907_wp, 925.0730_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1146.1276_wp, 544.1619_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 970.8551_wp, 490.4332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1973.5648_wp, 843.0014_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1155.3947_wp, 549.5950_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 947.3214_wp, 474.3613_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1470.5265_wp, 650.1095_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1066.7077_wp, 512.2607_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 807.7328_wp, 418.9542_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1663.1347_wp, 725.6560_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1272.7235_wp, 575.3515_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 693.6613_wp, 369.4767_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1217.3511_wp, 552.1793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 891.8764_wp, 446.0410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 648.9904_wp, 349.0479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1323.5223_wp, 603.5669_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 832.9670_wp, 417.2520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 684.9715_wp, 355.9594_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1209.6847_wp, 559.4921_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 768.7904_wp, 387.3909_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 720.7315_wp, 371.9667_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1025.6835_wp, 466.6597_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 747.7247_wp, 374.8322_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1046.5789_wp, 492.7625_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 714.6206_wp, 370.4592_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1375.6067_wp, 619.1366_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1284.5648_wp, 589.8300_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 966.3182_wp, 473.7077_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 777.0365_wp, 402.7499_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1197.5597_wp, 571.5751_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1094.0703_wp, 532.6855_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1045.8286_wp, 514.7943_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 912.5542_wp, 463.1355_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 799.4055_wp, 418.2405_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1011.2975_wp, 508.5171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 984.3669_wp, 498.2630_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 948.6782_wp, 484.4278_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 904.0756_wp, 466.9936_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 909.9127_wp, 471.3194_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 907.4929_wp, 470.9435_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 897.0258_wp, 467.0673_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 796.6995_wp, 425.6942_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 804.5343_wp, 429.6945_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 695.4350_wp, 382.3429_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5022.6967_wp, 1639.3995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1235.5701_wp, 580.3841_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4030.0910_wp, 1502.1922_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3441.9852_wp, 1248.0182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1273.3916_wp, 611.9003_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3335.7435_wp, 1317.8387_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2250.9654_wp, 928.2705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1282.3779_wp, 633.7528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1209.6287_wp, 600.9518_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3507.1716_wp, 1330.3810_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1169.6897_wp, 582.7773_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3325.0797_wp, 1277.2241_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1144.6770_wp, 570.7175_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3231.3241_wp, 1245.1109_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1105.6577_wp, 552.5843_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3146.1740_wp, 1215.5853_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1121.8549_wp, 555.4295_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3070.3853_wp, 1189.3991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1111.1877_wp, 535.8760_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2276.2532_wp, 933.7228_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1130.0310_wp, 558.9762_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2851.6677_wp, 1053.6587_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1053.6587_wp, 524.9195_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 67.9580_wp, 39.3967_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 116.3178_wp, 63.7816_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 41.1622_wp, 25.8658_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1720.7353_wp, 638.4850_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 445.0101_wp, 209.6685_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 775.7718_wp, 361.1822_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 559.2917_wp, 266.9922_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 323.5941_wp, 172.5188_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 465.2439_wp, 240.7836_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.2952_wp, 202.1595_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 315.8875_wp, 169.4228_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 224.5940_wp, 128.1009_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 209.5360_wp, 120.4474_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 289.8455_wp, 161.5691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 273.3375_wp, 151.5963_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 214.9399_wp, 123.2619_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 201.4294_wp, 115.3491_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 156.9831_wp, 93.9771_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 191.4550_wp, 112.4836_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 178.8074_wp, 104.8991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 166.7356_wp, 98.4445_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 146.1445_wp, 86.6740_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 139.4937_wp, 84.9288_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.0158_wp, 76.1209_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 108.1820_wp, 67.1060_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 102.3811_wp, 64.2056_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 80.4607_wp, 52.1454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 76.8557_wp, 49.3166_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2027.8568_wp, 762.5439_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 666.6515_wp, 307.1464_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1287.2471_wp, 577.4805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1045.1961_wp, 475.4827_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 603.2928_wp, 307.3477_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1116.0341_wp, 529.4209_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 997.3837_wp, 479.1923_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 739.4538_wp, 371.7482_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 537.7266_wp, 287.9502_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 808.3322_wp, 414.1717_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 739.3975_wp, 382.4286_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 679.6544_wp, 355.3534_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 669.8712_wp, 346.6120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 519.8201_wp, 283.7221_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 589.8941_wp, 321.1363_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 571.7481_wp, 311.6696_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 566.8734_wp, 307.5736_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 516.3864_wp, 284.8700_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 470.2977_wp, 265.6124_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 465.7758_wp, 262.7163_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 456.1062_wp, 257.3927_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 369.9833_wp, 216.2940_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 366.5166_wp, 214.0702_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.2905_wp, 176.5117_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3526.9705_wp, 1255.3434_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 890.5056_wp, 422.0535_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2451.7734_wp, 1021.3342_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1992.8728_wp, 817.4261_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 853.8199_wp, 431.1749_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1957.4581_wp, 841.3784_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 822.8420_wp, 419.5774_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 793.8541_wp, 413.1795_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1841.5883_wp, 810.5712_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 797.2364_wp, 405.0758_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 801.7112_wp, 418.1829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1658.7019_wp, 741.1995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 781.8272_wp, 397.0180_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 738.2489_wp, 382.8866_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1310.7538_wp, 583.8816_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 781.6260_wp, 393.6386_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 529.8069_wp, 287.2154_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1394.4853_wp, 636.8428_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 688.1125_wp, 360.9437_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 439.4052_wp, 245.1092_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1094.0016_wp, 499.7029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 630.2533_wp, 333.7444_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 432.9245_wp, 240.6788_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1111.8174_wp, 527.9435_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 602.2672_wp, 318.4010_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.5343_wp, 283.3520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 459.0336_wp, 251.5373_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1164.2755_wp, 544.6244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 590.7694_wp, 311.3689_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 489.0187_wp, 263.6377_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.9799_wp, 277.6170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 897.8373_wp, 417.6349_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 602.1416_wp, 308.4467_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 868.7577_wp, 426.7546_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.3938_wp, 288.0409_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1047.5640_wp, 506.1315_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 967.4193_wp, 474.6781_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 724.6816_wp, 374.2592_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 559.3590_wp, 304.6980_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 863.5860_wp, 443.8226_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 796.6299_wp, 414.6873_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 750.7323_wp, 394.4535_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 656.0889_wp, 352.6781_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 561.0491_wp, 310.4631_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 696.2760_wp, 376.7249_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 682.5126_wp, 370.2368_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 660.9421_wp, 360.3420_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 631.0316_wp, 346.8276_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 604.6048_wp, 337.0758_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 605.2828_wp, 337.2239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 600.0555_wp, 334.5522_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 511.9716_wp, 294.1510_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 516.4905_wp, 296.2434_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 432.3893_wp, 255.1809_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3921.6962_wp, 1405.6043_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1050.0925_wp, 503.0095_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2948.5688_wp, 1217.6072_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2457.8402_wp, 995.6332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1022.3708_wp, 516.4699_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2440.1762_wp, 1061.3052_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1683.0549_wp, 753.6872_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 940.1178_wp, 495.1913_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2119.4908_wp, 950.9922_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1102.5614_wp, 555.3166_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 936.5992_wp, 498.9051_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 2186:2280) = reshape([ &
& 1892.7858_wp, 865.5324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1110.6913_wp, 560.7912_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 913.6348_wp, 482.7380_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1411.7363_wp, 666.0895_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1027.1026_wp, 522.4406_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 779.9682_wp, 425.5550_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1596.2074_wp, 744.0872_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1223.2739_wp, 588.6854_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 670.5114_wp, 374.7726_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1169.6785_wp, 564.8984_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 859.9729_wp, 453.9296_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 627.5659_wp, 353.8700_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1271.8937_wp, 617.3535_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 803.2511_wp, 424.5778_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 661.4373_wp, 361.4953_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1163.0374_wp, 571.8202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 741.5149_wp, 394.0563_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 695.7803_wp, 377.9042_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 985.5697_wp, 477.2912_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 721.0103_wp, 381.3842_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1006.8382_wp, 503.1205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 690.0423_wp, 376.3121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1321.5257_wp, 633.7493_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1234.8582_wp, 603.0805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 931.2135_wp, 482.6219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 750.3549_wp, 409.1408_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1152.7975_wp, 583.2130_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1053.9748_wp, 542.9404_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1007.9093_wp, 524.3974_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.5098_wp, 471.0117_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 772.2715_wp, 424.6821_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 975.4435_wp, 517.4288_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 949.7160_wp, 506.8159_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 915.6032_wp, 492.5152_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 872.9520_wp, 474.5058_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 878.6753_wp, 478.8244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 876.4054_wp, 478.3961_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 866.4126_wp, 474.3763_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 770.2908_wp, 431.7667_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 777.8548_wp, 435.8349_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 673.1394_wp, 387.2187_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4812.3323_wp, 1712.8830_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1188.8012_wp, 592.5973_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3852.2949_wp, 1555.2120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3298.9422_wp, 1294.3501_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1226.1232_wp, 624.0645_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3192.4039_wp, 1359.3802_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2163.4599_wp, 954.9829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1236.0668_wp, 645.4413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1166.1633_wp, 611.8361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3355.8765_wp, 1375.8472_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1127.7999_wp, 593.2406_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3179.9629_wp, 1319.7747_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1103.6788_wp, 580.9422_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3090.4072_wp, 1286.3433_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1066.1553_wp, 562.4103_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3009.0778_wp, 1255.6329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1081.6001_wp, 565.5841_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2936.7065_wp, 1228.3897_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1069.9921_wp, 546.4196_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2181.0675_wp, 960.8995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1089.2614_wp, 569.2318_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2729.9739_wp, 1091.3776_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1015.8840_wp, 534.3480_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2617.3310_wp, 1051.8609_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1051.8609_wp, 544.4356_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 72.2203_wp, 37.0295_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 123.5220_wp, 59.6586_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 43.5711_wp, 24.4806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1704.9679_wp, 575.7499_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 465.4100_wp, 193.4738_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 811.3688_wp, 332.8646_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 583.7067_wp, 246.7464_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.2850_wp, 160.9616_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 491.8875_wp, 224.0856_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 405.3285_wp, 188.4765_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 333.5597_wp, 158.2170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 238.5984_wp, 120.2375_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 222.5870_wp, 113.1311_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 307.5198_wp, 151.3607_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 289.3920_wp, 141.9797_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 228.0857_wp, 115.7612_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 213.5146_wp, 108.3262_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 166.5380_wp, 88.5822_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 203.1554_wp, 105.8582_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 189.4531_wp, 98.7212_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 176.7026_wp, 92.6939_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 154.6287_wp, 81.6520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 147.8355_wp, 80.1704_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 131.3004_wp, 71.9104_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 114.3820_wp, 63.4527_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 108.3076_wp, 60.7598_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 84.9478_wp, 49.4793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 81.1416_wp, 46.7595_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2016.3392_wp, 688.5910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 694.0742_wp, 282.8651_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1337.4783_wp, 530.3870_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1084.2313_wp, 437.4255_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 637.8198_wp, 285.5962_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1167.9358_wp, 488.8472_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1045.0038_wp, 443.0078_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 778.1323_wp, 345.1182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 570.6508_wp, 268.7620_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 854.0740_wp, 385.0952_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 781.3748_wp, 355.8982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 719.0323_wp, 331.0143_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 706.9630_wp, 322.6156_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 551.8787_wp, 265.2733_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 625.9394_wp, 300.1974_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 606.4940_wp, 291.3907_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 600.8855_wp, 287.4557_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 548.0877_wp, 266.6113_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 499.4576_wp, 249.0984_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 494.5285_wp, 246.3593_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 484.2101_wp, 241.3800_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 392.9385_wp, 203.4529_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.1985_wp, 201.3478_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 311.2487_wp, 166.4466_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3419.5160_wp, 1127.9480_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 924.6197_wp, 389.9518_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2501.4164_wp, 931.7443_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2006.2958_wp, 745.1781_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 898.6515_wp, 400.4754_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2012.0352_wp, 769.8336_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 868.1104_wp, 390.0277_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 838.3710_wp, 384.7744_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1899.2044_wp, 743.4069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 837.4618_wp, 376.5089_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 846.8568_wp, 389.5084_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1714.8635_wp, 680.7697_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 821.6274_wp, 368.9941_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 777.8991_wp, 356.5084_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1350.2932_wp, 536.2731_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 820.3071_wp, 365.5972_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 559.7016_wp, 268.4867_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1446.6020_wp, 586.1315_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 727.2378_wp, 336.3582_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 464.9730_wp, 229.6866_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1131.7710_wp, 460.0415_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 666.3378_wp, 311.2798_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 458.0409_wp, 225.4697_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1161.4905_wp, 487.6202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 636.0357_wp, 296.9473_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 562.7864_wp, 264.4013_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 485.4961_wp, 235.3426_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1213.9348_wp, 502.3206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 623.6996_wp, 290.3139_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 516.8454_wp, 246.3103_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 559.3819_wp, 258.6987_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 931.6793_wp, 385.1327_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 633.5260_wp, 286.8927_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 912.0082_wp, 395.3654_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 565.0858_wp, 269.0965_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1096.4450_wp, 468.2277_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1014.7443_wp, 439.7399_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 764.1475_wp, 348.3079_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 593.5044_wp, 284.8492_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 911.7223_wp, 412.8162_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 841.7526_wp, 386.1634_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 793.9592_wp, 367.6206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 695.1305_wp, 329.3403_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 595.7532_wp, 290.6346_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 738.2129_wp, 351.9875_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 723.6013_wp, 346.0085_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 700.8927_wp, 336.9098_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 669.5829_wp, 324.4969_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 641.7452_wp, 315.7701_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 642.3795_wp, 315.8929_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 636.8114_wp, 313.4113_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 543.7162_wp, 276.2768_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 548.4629_wp, 278.2032_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 459.1205_wp, 240.2275_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3800.8304_wp, 1264.1518_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1090.3500_wp, 465.2606_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2997.0212_wp, 1110.0442_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2460.9470_wp, 906.7106_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1074.3220_wp, 479.7811_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2507.3572_wp, 972.3864_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1717.0123_wp, 693.0607_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 993.5143_wp, 461.6481_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2190.0272_wp, 873.8994_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1156.8729_wp, 515.8086_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 990.8440_wp, 465.5596_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1960.5194_wp, 796.8327_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1168.8393_wp, 520.9380_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 963.5525_wp, 450.2413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1466.8017_wp, 615.1052_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1077.4205_wp, 485.7214_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 825.0243_wp, 397.9983_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1655.9466_wp, 686.3381_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1268.9174_wp, 544.7906_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 710.0771_wp, 351.2333_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1218.0651_wp, 522.8164_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 906.9214_wp, 423.3418_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 664.7955_wp, 331.8942_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1329.1426_wp, 571.4828_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 846.3103_wp, 396.0475_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 698.3448_wp, 338.1899_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1217.6582_wp, 529.9388_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 781.2040_wp, 367.7646_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 735.1282_wp, 353.3208_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1025.3902_wp, 441.8976_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 759.5084_wp, 355.7893_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1056.3718_wp, 466.9433_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 730.4286_wp, 351.9076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1377.8901_wp, 586.0395_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1291.3513_wp, 558.5785_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 980.6060_wp, 449.3638_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 795.0694_wp, 382.5686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1213.1043_wp, 541.7910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1111.0005_wp, 505.1927_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1063.6161_wp, 488.3600_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 931.6850_wp, 439.6941_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 819.1008_wp, 397.3735_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1031.8071_wp, 482.6582_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1005.0059_wp, 473.0076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 969.4956_wp, 459.9774_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 925.1907_wp, 443.5507_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 931.1239_wp, 447.6960_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 928.8165_wp, 447.3606_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 918.4190_wp, 443.7162_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 817.3220_wp, 404.6813_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 825.3644_wp, 408.4793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 714.6477_wp, 363.7360_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4632.8428_wp, 1539.8453_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1241.6267_wp, 550.0548_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3885.5093_wp, 1414.9943_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3259.8698_wp, 1175.4332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1287.4672_wp, 580.1915_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3259.9132_wp, 1243.1883_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2193.8636_wp, 877.1478_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1304.7191_wp, 601.2846_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1230.5989_wp, 570.2451_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3391.5411_wp, 1253.7691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1190.2918_wp, 553.0414_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3229.8168_wp, 1203.9727_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1165.0450_wp, 541.6048_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3141.6098_wp, 1173.7842_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1125.5430_wp, 524.4310_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3061.2537_wp, 1146.0194_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1139.6825_wp, 527.0243_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2989.7660_wp, 1121.3978_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1124.6771_wp, 508.1297_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2237.9026_wp, 881.7549_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1148.8304_wp, 530.3616_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2724.3602_wp, 992.6267_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1072.3978_wp, 498.1319_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2606.5136_wp, 957.3153_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1106.4740_wp, 506.8895_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2664.1668_wp, 1011.4677_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1011.4677_wp, 472.7950_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.7154_wp, 36.0084_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 120.9302_wp, 57.9760_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.6658_wp, 23.8289_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 2281:2375) = reshape([ &
& 1664.7700_wp, 557.2454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 455.2827_wp, 187.7050_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 793.6877_wp, 322.8840_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 571.0039_wp, 239.4431_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 336.0507_wp, 156.3709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 481.4385_wp, 217.6279_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 396.7377_wp, 183.0885_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 326.4963_wp, 153.7302_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 233.6155_wp, 116.9007_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 217.9416_wp, 110.0016_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 301.0692_wp, 147.1244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 283.3001_wp, 138.0041_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 223.3166_wp, 112.5588_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 209.0416_wp, 105.3302_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 163.0702_wp, 86.1743_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 198.9185_wp, 102.9588_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 185.4931_wp, 96.0193_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 173.0120_wp, 90.1627_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 151.3924_wp, 79.4291_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 144.7587_wp, 78.0079_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 128.5666_wp, 69.9791_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 111.9978_wp, 61.7568_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 106.0552_wp, 59.1423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 83.1827_wp, 48.1805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 79.4539_wp, 45.5279_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1968.9928_wp, 666.5534_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 678.8486_wp, 274.3732_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1307.9814_wp, 514.2872_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1060.3386_wp, 424.2493_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 624.2488_wp, 277.3103_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1142.5656_wp, 474.3095_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1022.3674_wp, 429.8982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 761.4623_wp, 335.0783_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 558.6379_wp, 261.1100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 835.8969_wp, 373.9540_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 764.7668_wp, 345.6425_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 703.7881_wp, 321.5131_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 691.9095_wp, 313.3296_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.2901_wp, 257.7790_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 612.7809_wp, 291.7100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 593.7403_wp, 283.1587_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 588.2297_wp, 279.3232_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 536.5858_wp, 259.1140_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 489.0107_wp, 242.1588_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 484.1791_wp, 239.4936_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 474.0753_wp, 234.6551_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 384.7496_wp, 197.8642_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 381.0847_wp, 195.8155_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 304.7748_wp, 161.9300_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3337.2227_wp, 1091.5091_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 904.3257_wp, 378.4205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2444.6758_wp, 902.8445_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1960.2391_wp, 722.1111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 879.3887_wp, 388.8507_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1966.9050_wp, 746.1810_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 849.5394_wp, 378.7408_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 820.5423_wp, 373.7251_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1856.8743_wp, 720.7667_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 819.4973_wp, 365.6231_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 828.8555_wp, 378.3321_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1676.8129_wp, 660.1463_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 803.9989_wp, 358.3213_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 761.3040_wp, 346.2718_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1320.1912_wp, 520.0492_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 802.6609_wp, 354.9945_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 547.8503_wp, 260.9096_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1414.7048_wp, 568.5111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 711.8001_wp, 326.7279_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 455.1812_wp, 223.2746_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1106.7246_wp, 446.2432_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 652.2155_wp, 302.4017_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 448.3896_wp, 219.1675_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1136.1897_wp, 473.1486_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 622.5372_wp, 288.4783_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 550.8249_wp, 256.8824_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 475.2458_wp, 228.7263_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1187.3873_wp, 487.3312_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 610.4511_wp, 282.0254_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 505.9042_wp, 239.3413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 547.4456_wp, 251.2997_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 911.1707_wp, 373.6528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 619.9597_wp, 278.6211_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 892.3332_wp, 383.7696_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 553.1687_wp, 261.4745_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1072.6768_wp, 454.4189_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 992.8398_wp, 426.8411_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 747.8611_wp, 338.2814_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 581.0286_wp, 276.8003_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 892.3017_wp, 400.8971_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 823.8687_wp, 375.0691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 777.1265_wp, 357.0949_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 680.4664_wp, 319.9904_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 583.2649_wp, 282.4712_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 722.6654_wp, 342.0170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 708.3653_wp, 336.2183_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 686.1478_wp, 327.3956_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 655.5207_wp, 315.3605_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 628.2934_wp, 306.9300_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 628.9108_wp, 307.0478_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 623.4596_wp, 304.6384_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 532.3641_wp, 268.6347_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 537.0079_wp, 270.5030_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.5592_wp, 233.6551_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3709.4297_wp, 1223.4668_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1066.4469_wp, 451.5684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2928.7164_wp, 1075.5659_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2404.1111_wp, 878.5837_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1051.2437_wp, 465.8723_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2451.1775_wp, 942.6854_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1678.5781_wp, 672.2671_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 972.4302_wp, 448.4531_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2141.4202_wp, 847.4869_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1131.9421_wp, 500.8568_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 969.8725_wp, 452.3068_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1917.2203_wp, 772.9187_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1143.6857_wp, 505.8297_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 943.0626_wp, 437.4079_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1434.6130_wp, 596.8707_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1054.2484_wp, 471.7011_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 807.5992_wp, 386.7854_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1619.5186_wp, 665.8997_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1241.1151_wp, 528.8006_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 695.1436_wp, 341.4299_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1191.4716_wp, 507.4568_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 887.6202_wp, 411.2731_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 650.8338_wp, 322.6630_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1300.2637_wp, 554.6882_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 828.2826_wp, 384.7714_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 683.5612_wp, 328.6834_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1191.2962_wp, 514.4346_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 764.5705_wp, 357.3192_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 719.5693_wp, 343.3582_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1002.9797_wp, 428.9424_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 743.3221_wp, 345.6658_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1033.6009_wp, 453.3608_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 715.0198_wp, 341.9894_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1347.8497_wp, 568.7508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1263.3503_wp, 542.1999_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 959.6719_wp, 436.4645_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 778.3235_wp, 371.7768_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1187.1040_wp, 526.0806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1087.2901_wp, 490.6416_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1040.9736_wp, 474.3436_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 911.9836_wp, 427.2006_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 801.8905_wp, 386.1954_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1009.9583_wp, 468.8968_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 983.7511_wp, 459.5521_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 949.0275_wp, 446.9312_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 905.7052_wp, 431.0179_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 911.5137_wp, 435.0603_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 909.2616_wp, 434.7424_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 899.0951_wp, 431.2148_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 800.1918_wp, 393.3829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 808.0654_wp, 397.0728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 699.7231_wp, 353.6841_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4520.9645_wp, 1490.3329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1214.7181_wp, 534.0818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3796.0924_wp, 1370.8120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3183.6011_wp, 1138.7329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1259.8096_wp, 563.4346_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3186.2327_wp, 1205.0073_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2144.4704_wp, 850.7547_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1276.9567_wp, 584.0468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1204.4185_wp, 553.9356_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3313.8879_wp, 1214.8410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1164.9825_wp, 537.2399_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3156.1992_wp, 1166.6903_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1140.2779_wp, 526.1331_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3070.0842_wp, 1137.4645_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1101.6251_wp, 509.4631_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2991.6275_wp, 1110.5819_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1115.3978_wp, 511.9439_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2921.8310_wp, 1086.7437_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1100.5512_wp, 493.4684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2187.7803_wp, 855.0138_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1124.3657_wp, 515.1733_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2661.1461_wp, 961.7148_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1049.5999_wp, 483.8982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2546.1249_wp, 927.6008_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1082.8259_wp, 492.3380_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2603.9653_wp, 980.3403_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 990.0070_wp, 459.3155_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2545.1713_wp, 959.5536_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 959.5536_wp, 446.2314_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 69.3791_wp, 35.7480_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 118.6070_wp, 57.5937_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 41.8727_wp, 23.6297_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1627.0951_wp, 555.2598_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 446.0030_wp, 186.7210_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 777.4602_wp, 321.2393_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 559.3898_wp, 238.1420_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 329.5355_wp, 155.3867_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 471.9860_wp, 216.3099_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 388.9890_wp, 181.9383_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 320.1437_wp, 152.7300_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 229.1777_wp, 116.0754_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 213.8101_wp, 109.2144_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 295.3014_wp, 146.1173_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 277.8493_wp, 137.0581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 219.0722_wp, 111.7498_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 205.0594_wp, 104.5694_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 160.0071_wp, 85.5107_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 195.1630_wp, 102.1888_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 181.9823_wp, 95.2979_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.7429_wp, 89.4774_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 148.5273_wp, 78.8150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 142.0478_wp, 77.3874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 126.1614_wp, 69.4137_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 109.9031_wp, 61.2454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 104.0800_wp, 58.6465_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 81.6437_wp, 47.7551_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 77.9788_wp, 45.1298_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1924.6593_wp, 664.0994_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 664.8580_wp, 272.9668_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1280.7911_wp, 511.8009_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1038.3601_wp, 422.1177_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 611.9392_wp, 275.6811_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1119.3391_wp, 471.7945_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1001.6784_wp, 427.5655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 746.3210_wp, 333.1239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 547.8252_wp, 259.4546_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 819.4280_wp, 371.7271_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 749.7413_wp, 343.5475_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 690.0184_wp, 319.5322_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 678.2927_wp, 311.4138_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 529.8922_wp, 256.0890_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 600.9701_wp, 289.8009_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 582.2956_wp, 281.2978_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 576.8643_wp, 277.4949_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.2842_wp, 257.3786_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 479.6909_wp, 240.4740_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 474.9443_wp, 237.8283_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 465.0326_wp, 233.0206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 377.4873_wp, 196.4062_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 373.8878_wp, 194.3732_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 299.0622_wp, 160.6761_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3259.9368_wp, 1087.6970_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 885.7538_wp, 376.3047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2391.9954_wp, 898.8634_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1917.4640_wp, 718.8719_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 861.8975_wp, 386.5382_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1925.1263_wp, 742.7390_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 832.6961_wp, 376.4552_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 804.4238_wp, 371.4100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1817.7881_wp, 717.2897_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 803.2032_wp, 363.4076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 812.5860_wp, 375.9796_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1641.7354_wp, 656.8806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 788.0064_wp, 356.1503_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 746.2943_wp, 344.1155_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1292.4384_wp, 517.4322_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 786.6336_wp, 352.8632_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 537.2011_wp, 259.1578_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1385.3712_wp, 565.5959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 697.8565_wp, 324.6761_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 446.4219_wp, 221.7117_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1083.6957_wp, 443.9051_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 639.4782_wp, 300.4715_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 439.7506_wp, 217.6401_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1113.0259_wp, 470.5820_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 610.3600_wp, 286.6332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.0415_wp, 255.2100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 466.0487_wp, 227.1685_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1163.0369_wp, 484.7511_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 598.4935_wp, 280.2274_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 496.0618_wp, 237.7527_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 536.6581_wp, 249.6938_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 892.3516_wp, 371.6376_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 607.6633_wp, 276.9038_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 2376:2470) = reshape([ &
& 874.3961_wp, 381.5809_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 542.4516_wp, 259.7613_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1050.9705_wp, 451.9002_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 972.8753_wp, 424.4203_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 733.1234_wp, 336.2103_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 569.8286_wp, 274.9818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 874.7132_wp, 398.4787_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 807.7031_wp, 372.7595_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 761.9321_wp, 354.8650_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 667.2758_wp, 317.9241_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 572.0834_wp, 280.5719_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 708.6950_wp, 339.7906_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 694.6807_wp, 334.0190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 672.9150_wp, 325.2371_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 642.9169_wp, 313.2573_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 616.2658_wp, 304.8342_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 616.8666_wp, 304.9520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 611.5213_wp, 302.5558_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 522.2655_wp, 266.7093_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.8147_wp, 268.5684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.0932_wp, 231.9047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3623.6511_wp, 1219.0706_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1044.6045_wp, 448.9840_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2865.2613_wp, 1070.8351_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2351.2803_wp, 874.6707_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1030.2928_wp, 463.0740_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2399.2487_wp, 938.1873_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1643.2139_wp, 668.7656_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 953.4036_wp, 445.6186_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2096.6400_wp, 843.2361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1109.3035_wp, 497.8395_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 950.9799_wp, 449.4035_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1877.4174_wp, 768.9101_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1120.8436_wp, 502.7808_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 924.5841_wp, 434.6007_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1405.1352_wp, 593.5778_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1033.2364_wp, 468.8041_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 791.9602_wp, 384.1823_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1586.1100_wp, 662.3109_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1215.7298_wp, 525.7481_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 681.7920_wp, 339.0464_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1167.1878_wp, 504.5373_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 870.2063_wp, 408.6237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 638.3682_wp, 320.3788_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1273.9026_wp, 551.5239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 812.0214_wp, 382.2739_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 670.2940_wp, 326.4378_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1167.2707_wp, 511.4434_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 749.5779_wp, 354.9728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 705.5909_wp, 341.0443_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 982.5210_wp, 426.4375_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 728.7203_wp, 343.4086_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1012.8904_wp, 450.6589_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 701.1829_wp, 339.6919_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1320.3887_wp, 565.5647_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1237.8116_wp, 539.0868_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 940.7333_wp, 433.7382_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 763.2869_wp, 369.2991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1163.4988_wp, 522.9356_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1065.8196_wp, 487.6285_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1020.4995_wp, 471.3898_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 894.2426_wp, 424.4358_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 786.4597_wp, 383.6007_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 990.2588_wp, 465.9059_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 964.6052_wp, 456.5948_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 930.6131_wp, 444.0225_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 888.2036_wp, 428.1726_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 893.9080_wp, 432.1732_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 891.7106_wp, 431.8507_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 881.7600_wp, 428.3345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 784.8841_wp, 390.6589_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 792.6061_wp, 394.3257_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 686.4452_wp, 351.1344_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4415.9694_wp, 1484.9661_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1190.2611_wp, 530.8706_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3712.8812_wp, 1364.9240_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3112.5536_wp, 1133.8329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1234.7344_wp, 559.9910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3118.0001_wp, 1199.3874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2098.9702_wp, 846.3794_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1251.8739_wp, 580.3947_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1180.7776_wp, 550.4264_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3241.7266_wp, 1209.4663_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1142.1370_wp, 533.8225_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3087.8489_wp, 1161.4494_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1117.9234_wp, 522.7836_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3003.6922_wp, 1132.3365_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1080.0441_wp, 506.2081_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2927.0118_wp, 1105.5604_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1093.4602_wp, 508.7048_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2858.7977_wp, 1081.8160_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1078.6794_wp, 490.4334_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2141.5264_wp, 850.7546_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1102.2614_wp, 511.9281_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2602.3122_wp, 957.4948_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1029.0199_wp, 480.8218_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2489.9643_wp, 923.4785_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1061.4329_wp, 489.2608_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2548.1802_wp, 975.8085_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 970.6528_wp, 456.3728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2490.6989_wp, 955.1104_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 940.8140_wp, 443.3639_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2437.4539_wp, 936.4457_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 936.4457_wp, 440.5228_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 68.4949_wp, 37.3986_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 117.1811_wp, 60.4871_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 41.2866_wp, 24.5435_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1612.7581_wp, 592.3651_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.3220_wp, 197.5946_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 769.3983_wp, 340.2385_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 553.4266_wp, 251.7223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.6844_wp, 163.4855_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 466.6099_wp, 227.8802_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 384.4701_wp, 191.4109_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 316.3522_wp, 160.4620_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 226.3056_wp, 121.5617_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 211.1076_wp, 114.3083_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 291.6817_wp, 153.2146_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.4500_wp, 143.6930_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 216.3044_wp, 116.9313_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 202.4669_wp, 109.3879_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 157.8890_wp, 89.1915_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 192.6324_wp, 106.7340_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 179.6202_wp, 99.5059_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 167.5247_wp, 93.3808_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 146.5709_wp, 82.1806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 140.1300_wp, 80.5863_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.4402_wp, 72.2182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 108.3826_wp, 63.6396_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 102.6251_wp, 60.9031_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 80.4575_wp, 49.4502_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 76.8581_wp, 46.7569_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1907.5332_wp, 708.0629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 657.9922_wp, 289.0123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1267.8866_wp, 542.7763_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1027.7356_wp, 447.1652_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 605.0843_wp, 290.7410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1107.5215_wp, 499.1071_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 990.9808_wp, 452.0055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 738.0233_wp, 351.3735_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 541.3978_wp, 272.9068_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 810.1845_wp, 391.8451_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 741.2030_wp, 361.9140_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 682.0827_wp, 336.4239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 670.5479_wp, 327.9441_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 523.5513_wp, 269.0182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 593.7911_wp, 304.4460_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 575.3262_wp, 295.4611_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 569.9851_wp, 291.5055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 519.9103_wp, 270.1359_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 473.7390_wp, 251.9975_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 469.0567_wp, 249.2287_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 459.2634_wp, 244.1704_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 372.6267_wp, 205.2969_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 369.0769_wp, 203.1740_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 295.0836_wp, 167.5526_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3231.7117_wp, 1160.0767_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 876.2899_wp, 397.2856_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2369.0958_wp, 955.0787_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1899.1306_wp, 763.2645_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 852.2547_wp, 407.3976_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1906.2802_wp, 788.4325_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 823.3089_wp, 396.5845_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 795.1856_wp, 390.9216_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1799.6377_wp, 760.5639_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 794.1404_wp, 382.7505_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 803.2347_wp, 395.6779_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1625.1430_wp, 696.0633_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 779.1219_wp, 375.1083_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 737.7269_wp, 362.0987_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1279.3493_wp, 547.9588_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 777.8232_wp, 371.7528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.7581_wp, 271.9114_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1371.1198_wp, 598.7622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 689.7847_wp, 341.5632_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.9182_wp, 232.2310_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1072.4959_wp, 469.5788_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 632.0123_wp, 315.9092_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 434.3472_wp, 228.0072_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1101.2182_wp, 497.4063_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 603.2352_wp, 301.3273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.6923_wp, 268.0922_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 460.4063_wp, 238.2171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1150.8553_wp, 512.7473_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 591.5255_wp, 294.6262_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.1530_wp, 249.5747_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.4351_wp, 262.4692_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 882.9919_wp, 392.8083_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 600.7572_wp, 291.4639_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 864.8546_wp, 402.7269_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 536.0077_wp, 272.8496_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1039.6601_wp, 477.3755_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 962.2681_wp, 448.0328_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 724.7596_wp, 354.0246_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 563.0164_wp, 288.8264_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 864.7996_wp, 419.8297_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 798.4380_wp, 392.4501_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 753.1172_wp, 373.4254_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 659.3910_wp, 334.1439_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 565.1383_wp, 294.4333_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 700.2718_wp, 357.0217_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 686.4011_wp, 350.8906_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 664.8552_wp, 341.5611_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 635.1575_wp, 328.8344_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 608.7174_wp, 319.6852_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 609.3146_wp, 319.8129_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 604.0284_wp, 317.2786_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 515.6649_wp, 279.1274_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 520.1674_wp, 281.0990_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 435.3535_wp, 242.2147_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3592.0465_wp, 1299.4482_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1033.3196_wp, 473.6474_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2837.9423_wp, 1137.7525_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2328.9369_wp, 928.7123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1018.7310_wp, 487.8628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2375.4679_wp, 994.9869_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1626.3339_wp, 707.3910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 942.3249_wp, 468.6784_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2075.3417_wp, 893.1595_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1096.8681_wp, 524.4245_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 939.8169_wp, 472.3967_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1858.0353_wp, 813.6798_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1108.2791_wp, 529.6376_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 913.7740_wp, 456.7992_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1390.2059_wp, 626.9602_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1021.5311_wp, 493.4814_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 782.4179_wp, 403.0686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1569.4426_wp, 700.0676_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1202.5314_wp, 554.4782_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 673.3797_wp, 355.1823_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1154.5209_wp, 532.1955_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 860.0345_wp, 429.4167_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 630.4213_wp, 335.4266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1260.0764_wp, 581.9866_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 802.5026_wp, 401.5942_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 662.1785_wp, 342.2465_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1154.4639_wp, 539.3652_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 740.7392_wp, 372.7391_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 697.1131_wp, 357.7685_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 971.8093_wp, 449.5606_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 720.1654_wp, 360.6692_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1001.6214_wp, 474.8773_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 692.7504_wp, 356.4206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1306.2023_wp, 597.1466_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1224.3143_wp, 568.7674_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 929.9326_wp, 456.3409_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 754.1276_wp, 387.6342_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1150.4571_wp, 551.0566_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1053.6773_wp, 513.3804_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1008.7709_wp, 496.0454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 883.7052_wp, 446.0163_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 776.9549_wp, 402.5361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 978.6871_wp, 489.8686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 953.2696_wp, 479.9224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 919.5959_wp, 466.5120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 877.5875_wp, 449.6202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 883.1919_wp, 453.7243_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 881.0037_wp, 453.3459_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 871.1424_wp, 449.5817_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 775.2091_wp, 409.4407_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 782.8405_wp, 413.3002_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 677.7544_wp, 367.3841_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4377.4766_wp, 1582.5500_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1176.9746_wp, 559.1868_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 2471:2565) = reshape([ &
& 3677.9606_wp, 1450.7794_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3083.5002_wp, 1204.5119_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1220.7557_wp, 589.5932_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3087.5154_wp, 1272.5822_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2077.5774_wp, 895.4741_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1237.4305_wp, 610.6554_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1167.0799_wp, 578.8340_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3210.8489_wp, 1284.6682_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1128.8548_wp, 561.2873_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3058.2277_wp, 1233.3365_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1104.9164_wp, 549.6643_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2974.8238_wp, 1202.3371_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1067.4513_wp, 532.1653_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2898.8349_wp, 1173.8392_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1080.7974_wp, 534.9658_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2831.2344_wp, 1148.5655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1066.4387_wp, 516.2412_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2119.9794_wp, 901.1210_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1089.5200_wp, 538.4560_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2577.8005_wp, 1016.9049_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1017.0572_wp, 505.5690_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2466.3583_wp, 980.4326_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1049.2440_wp, 514.7303_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2523.3630_wp, 1035.6000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 959.3058_wp, 479.7320_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2466.4143_wp, 1013.6038_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 929.7929_wp, 466.0069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2413.6514_wp, 993.7415_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 925.4944_wp, 463.0696_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2390.1227_wp, 982.2266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 982.2266_wp, 487.0753_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 58.6519_wp, 34.6012_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 99.2984_wp, 55.7008_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.9516_wp, 22.8926_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1294.7583_wp, 533.4581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 364.7467_wp, 180.1292_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 634.5881_wp, 309.8245_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 458.6582_wp, 229.8095_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.5969_wp, 150.2119_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 391.4652_wp, 209.0059_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 323.6450_wp, 175.8502_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 267.2409_wp, 147.6636_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 193.1889_wp, 112.3244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 180.4856_wp, 105.6965_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 247.9557_wp, 141.3458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 233.1394_wp, 132.5755_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 184.8705_wp, 108.1430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 173.0176_wp, 101.1905_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 136.0882_wp, 82.7986_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 165.4184_wp, 98.9223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 154.2292_wp, 92.2512_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 144.0208_wp, 86.6202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 126.1445_wp, 76.3004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 121.2148_wp, 74.9451_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 107.8351_wp, 67.2308_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 94.1431_wp, 59.3224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 89.3405_wp, 56.8124_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.5522_wp, 46.2772_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 67.2575_wp, 43.7263_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1533.2675_wp, 638.1634_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 542.0872_wp, 263.2219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1040.1825_wp, 493.2883_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 845.5386_wp, 406.9926_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.2365_wp, 266.2926_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 916.3824_wp, 455.1960_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 821.6005_wp, 412.6170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 616.4715_wp, 321.7317_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 456.8325_wp, 250.8283_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 678.5541_wp, 359.1141_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 621.8169_wp, 331.9451_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 573.2433_wp, 308.7930_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 562.6706_wp, 300.9015_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 443.2950_wp, 247.6499_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 502.5517_wp, 280.2406_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 487.0619_wp, 272.0239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.1627_wp, 268.3264_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.0913_wp, 248.9375_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.6718_wp, 232.6687_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 399.5952_wp, 230.1040_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 391.2939_wp, 225.4533_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 319.6286_wp, 190.1219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 316.5327_wp, 188.1509_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.5979_wp, 155.5916_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2592.1299_wp, 1044.4701_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 725.6441_wp, 363.0799_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1925.5453_wp, 865.2829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1544.6852_wp, 692.0083_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 712.2608_wp, 373.3213_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1555.3939_wp, 715.3652_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 688.6242_wp, 363.6319_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 667.8924_wp, 358.8895_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1473.4091_wp, 691.1573_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 664.7727_wp, 351.0309_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 674.8890_wp, 363.3160_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1333.4027_wp, 633.1163_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 651.9794_wp, 344.0112_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 619.4515_wp, 332.4997_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1049.6142_wp, 498.7053_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 650.0572_wp, 340.7898_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.0817_wp, 250.5730_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1128.5309_wp, 545.3391_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 580.1287_wp, 313.7616_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 374.9975_wp, 214.4570_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 883.0217_wp, 428.0177_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 532.4410_wp, 290.4145_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 369.1840_wp, 210.5065_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 911.4150_wp, 454.0159_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 508.1631_wp, 277.0338_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.9922_wp, 246.6776_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 390.2937_wp, 219.6742_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 950.3278_wp, 467.5642_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 498.0253_wp, 270.8278_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 414.2968_wp, 229.8523_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 445.9999_wp, 241.2788_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 728.8926_wp, 358.4393_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 503.3841_wp, 267.4892_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 719.5241_wp, 368.3520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 453.0762_wp, 251.1407_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 862.9139_wp, 436.1455_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 800.5607_wp, 409.7279_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 608.0882_wp, 324.8481_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 476.5767_wp, 265.9055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 724.7513_wp, 384.9740_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 670.6097_wp, 360.2034_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 633.5308_wp, 342.9616_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 556.8769_wp, 307.3705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 479.7277_wp, 271.3793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 592.0587_wp, 328.5454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 580.6117_wp, 322.9784_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 562.8960_wp, 314.5113_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 538.5189_wp, 302.9635_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.4576_wp, 294.8812_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.9069_wp, 294.9920_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 513.4843_wp, 292.6768_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.8428_wp, 258.1129_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 444.5516_wp, 259.9055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 374.1402_wp, 224.5110_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2884.7585_wp, 1170.8400_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 857.2478_wp, 433.2923_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2304.8558_wp, 1030.7165_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1892.7447_wp, 841.8543_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 851.6022_wp, 447.2511_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1942.1387_wp, 903.8521_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1339.8149_wp, 644.8013_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 793.1059_wp, 430.6794_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1704.0440_wp, 812.8125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 916.2925_wp, 480.8236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 792.5089_wp, 434.4148_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1529.9721_wp, 741.4183_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 925.2266_wp, 485.5842_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 769.7801_wp, 420.0614_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1150.1604_wp, 572.6625_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 855.2457_wp, 452.8490_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 662.6977_wp, 371.5016_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1296.2701_wp, 638.8488_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 998.8614_wp, 507.4383_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 572.8558_wp, 327.9709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 958.6992_wp, 486.9465_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 724.2904_wp, 394.9305_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 537.1925_wp, 309.9502_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1046.7597_wp, 532.3185_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 676.1320_wp, 369.4718_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 561.1890_wp, 315.6639_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 960.9128_wp, 493.7318_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 624.7157_wp, 343.1104_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 590.0466_wp, 329.7526_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 807.4406_wp, 411.5822_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 606.8313_wp, 331.9016_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 835.8310_wp, 435.1594_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 586.6830_wp, 328.4628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1083.3008_wp, 545.7749_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1018.1407_wp, 520.3763_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 780.8531_wp, 419.0870_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 638.5760_wp, 357.0972_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 961.8402_wp, 505.0671_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 883.5921_wp, 471.1069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 847.3202_wp, 455.4901_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 745.7830_wp, 410.2985_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 658.8708_wp, 370.9807_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 824.6964_wp, 450.3294_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 804.1231_wp, 441.3725_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 776.7990_wp, 429.2735_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 742.6605_wp, 414.0167_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 747.7579_wp, 417.9025_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 746.1308_wp, 417.6022_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 738.1763_wp, 414.2217_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 659.7049_wp, 377.9207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 666.1479_wp, 381.4663_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 579.5911_wp, 339.8125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3519.5236_wp, 1426.2370_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 982.4304_wp, 512.6658_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2980.6436_wp, 1313.3618_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2501.9262_wp, 1090.8422_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1021.9725_wp, 540.9402_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2518.2192_wp, 1155.1299_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1710.3545_wp, 815.9104_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1039.9691_wp, 560.8653_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 981.7531_wp, 531.9325_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2608.9193_wp, 1164.0997_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 950.0421_wp, 515.9075_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2486.1931_wp, 1118.0647_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 929.9632_wp, 505.2428_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2419.1164_wp, 1090.0872_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 898.7788_wp, 489.2407_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2357.9439_wp, 1064.3505_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 908.9619_wp, 491.5959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2303.5540_wp, 1041.5296_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 893.1687_wp, 473.7482_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1737.6565_wp, 819.8468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 915.9380_wp, 494.7008_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2091.9380_wp, 921.3341_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 855.9031_wp, 464.6828_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2005.9243_wp, 888.7453_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 881.0613_wp, 472.7345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2056.5310_wp, 939.6888_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 808.1903_wp, 441.0999_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2010.5203_wp, 919.7818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 783.6461_wp, 428.5425_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1968.0474_wp, 901.8411_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 779.7959_wp, 425.7852_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1948.3102_wp, 891.2608_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 826.2851_wp, 447.5158_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1597.4796_wp, 751.4308_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 751.4308_wp, 411.5665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 58.8504_wp, 45.3466_wp, 35.2195_wp, 0.0000_wp, 0.0000_wp, &
& 98.5136_wp, 74.6292_wp, 56.4513_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 36.5749_wp, 28.9986_wp, 23.4106_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1177.2268_wp, 833.4475_wp, 525.3124_wp, 0.0000_wp, 0.0000_wp, &
& 350.0617_wp, 255.9208_wp, 180.3567_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 607.5859_wp, 442.5636_wp, 309.8467_wp, 0.0000_wp, 0.0000_wp, &
& 441.3789_wp, 324.4323_wp, 230.5206_wp, 0.0000_wp, 0.0000_wp, &
& 270.8085_wp, 203.4999_wp, 151.8710_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.5084_wp, 286.2831_wp, 210.8417_wp, 0.0000_wp, 0.0000_wp, &
& 318.2872_wp, 238.9767_wp, 177.6918_wp, 0.0000_wp, 0.0000_wp, &
& 263.6848_wp, 199.1929_wp, 149.4557_wp, 0.0000_wp, 0.0000_wp, &
& 193.1702_wp, 148.1225_wp, 114.1794_wp, 0.0000_wp, 0.0000_wp, &
& 180.7434_wp, 138.9431_wp, 107.5053_wp, 0.0000_wp, 0.0000_wp, &
& 246.6826_wp, 187.9882_wp, 143.4200_wp, 0.0000_wp, 0.0000_wp, &
& 231.6334_wp, 176.5408_wp, 134.5100_wp, 0.0000_wp, 0.0000_wp, &
& 184.9362_wp, 142.1837_wp, 109.9534_wp, 0.0000_wp, 0.0000_wp, &
& 172.9593_wp, 133.0363_wp, 102.8724_wp, 0.0000_wp, 0.0000_wp, &
& 137.2924_wp, 107.0183_wp, 84.4451_wp, 0.0000_wp, 0.0000_wp, &
& 166.2472_wp, 128.7982_wp, 100.7419_wp, 0.0000_wp, 0.0000_wp, &
& 154.9102_wp, 120.1068_wp, 93.9569_wp, 0.0000_wp, 0.0000_wp, &
& 144.7985_wp, 112.4717_wp, 88.2333_wp, 0.0000_wp, 0.0000_wp, &
& 126.8521_wp, 98.8025_wp, 77.7379_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 122.5913_wp, 96.1424_wp, 76.4842_wp, 0.0000_wp, 0.0000_wp, &
& 109.2042_wp, 85.9370_wp, 68.6555_wp, 0.0000_wp, 0.0000_wp, &
& 95.4506_wp, 75.4412_wp, 60.5927_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 90.7784_wp, 71.9597_wp, 58.0567_wp, 0.0000_wp, 0.0000_wp, &
& 72.0887_wp, 57.8272_wp, 47.3702_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 2566:2660) = reshape([ &
& 68.5505_wp, 54.8167_wp, 44.7120_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1398.1254_wp, 991.3402_wp, 628.9308_wp, 0.0000_wp, 0.0000_wp, &
& 517.4295_wp, 376.9954_wp, 263.0701_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 987.5239_wp, 714.7572_wp, 491.8846_wp, 0.0000_wp, 0.0000_wp, &
& 805.0014_wp, 585.7053_wp, 406.5820_wp, 0.0000_wp, 0.0000_wp, &
& 494.2290_wp, 367.1079_wp, 268.1594_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.7902_wp, 644.9282_wp, 456.0290_wp, 0.0000_wp, 0.0000_wp, &
& 791.8456_wp, 581.5718_wp, 413.8249_wp, 0.0000_wp, 0.0000_wp, &
& 600.0308_wp, 445.3815_wp, 323.8740_wp, 0.0000_wp, 0.0000_wp, &
& 450.8979_wp, 339.1942_wp, 253.6433_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 663.3314_wp, 493.8480_wp, 361.9455_wp, 0.0000_wp, 0.0000_wp, &
& 609.0608_wp, 454.7127_wp, 334.8490_wp, 0.0000_wp, 0.0000_wp, &
& 562.7866_wp, 421.2426_wp, 311.7468_wp, 0.0000_wp, 0.0000_wp, &
& 551.0457_wp, 411.8870_wp, 303.5984_wp, 0.0000_wp, 0.0000_wp, &
& 439.2791_wp, 332.3458_wp, 250.8445_wp, 0.0000_wp, 0.0000_wp, &
& 497.7015_wp, 376.4065_wp, 283.8239_wp, 0.0000_wp, 0.0000_wp, &
& 482.4616_wp, 365.1235_wp, 275.5427_wp, 0.0000_wp, 0.0000_wp, &
& 477.0759_wp, 360.7292_wp, 271.7071_wp, 0.0000_wp, 0.0000_wp, &
& 438.0080_wp, 332.5812_wp, 252.3861_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 402.7947_wp, 307.9813_wp, 236.3271_wp, 0.0000_wp, 0.0000_wp, &
& 398.5915_wp, 304.7056_wp, 233.6999_wp, 0.0000_wp, 0.0000_wp, &
& 390.3288_wp, 298.4642_wp, 228.9830_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 321.1145_wp, 248.2122_wp, 193.6020_wp, 0.0000_wp, 0.0000_wp, &
& 317.9239_wp, 245.7048_wp, 191.5796_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 257.1651_wp, 200.7343_wp, 158.7463_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2330.0562_wp, 1653.9476_wp, 1027.4537_wp, 0.0000_wp, 0.0000_wp, &
& 696.1831_wp, 512.8153_wp, 364.0815_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1797.1024_wp, 1289.4650_wp, 858.7351_wp, 0.0000_wp, 0.0000_wp, &
& 1435.1503_wp, 1034.1456_wp, 687.2356_wp, 0.0000_wp, 0.0000_wp, &
& 693.4471_wp, 515.5477_wp, 375.8352_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1461.9589_wp, 1053.0789_wp, 711.4013_wp, 0.0000_wp, 0.0000_wp, &
& 671.9258_wp, 500.4528_wp, 366.3074_wp, 0.0000_wp, 0.0000_wp, &
& 654.6200_wp, 489.9850_wp, 362.1428_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1391.9848_wp, 1007.3778_wp, 688.6652_wp, 0.0000_wp, 0.0000_wp, &
& 647.8746_wp, 483.1691_wp, 353.6686_wp, 0.0000_wp, 0.0000_wp, &
& 661.7665_wp, 495.5985_wp, 366.6628_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1263.8660_wp, 917.1452_wp, 631.5437_wp, 0.0000_wp, 0.0000_wp, &
& 635.2996_wp, 473.6414_wp, 346.5441_wp, 0.0000_wp, 0.0000_wp, &
& 606.4479_wp, 454.1931_wp, 335.4749_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 993.6282_wp, 722.3849_wp, 497.5754_wp, 0.0000_wp, 0.0000_wp, &
& 632.2099_wp, 470.6076_wp, 343.0870_wp, 0.0000_wp, 0.0000_wp, &
& 443.5762_wp, 336.2445_wp, 253.6388_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1074.7287_wp, 783.0802_wp, 544.8626_wp, 0.0000_wp, 0.0000_wp, &
& 569.4056_wp, 426.9978_wp, 316.7157_wp, 0.0000_wp, 0.0000_wp, &
& 372.5965_wp, 284.6108_wp, 217.5174_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 840.4537_wp, 613.7862_wp, 427.8056_wp, 0.0000_wp, 0.0000_wp, &
& 523.6122_wp, 393.7053_wp, 293.3646_wp, 0.0000_wp, 0.0000_wp, &
& 366.5303_wp, 279.7124_wp, 213.4398_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 875.4336_wp, 642.1929_wp, 454.8427_wp, 0.0000_wp, 0.0000_wp, &
& 499.4701_wp, 375.6522_wp, 279.8339_wp, 0.0000_wp, 0.0000_wp, &
& 442.5145_wp, 333.6302_wp, 249.2727_wp, 0.0000_wp, 0.0000_wp, &
& 386.3350_wp, 293.5672_wp, 222.4774_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 909.8407_wp, 665.3265_wp, 467.8560_wp, 0.0000_wp, 0.0000_wp, &
& 489.1525_wp, 367.6414_wp, 273.4930_wp, 0.0000_wp, 0.0000_wp, &
& 408.7169_wp, 309.1510_wp, 232.4905_wp, 0.0000_wp, 0.0000_wp, &
& 437.0033_wp, 328.2318_wp, 243.4937_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 696.4283_wp, 510.2862_wp, 358.6850_wp, 0.0000_wp, 0.0000_wp, &
& 491.2212_wp, 366.9348_wp, 269.5315_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 696.2135_wp, 514.1902_wp, 369.9201_wp, 0.0000_wp, 0.0000_wp, &
& 447.4432_wp, 337.9629_wp, 254.0293_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 832.3249_wp, 612.8702_wp, 437.6841_wp, 0.0000_wp, 0.0000_wp, &
& 774.7949_wp, 572.3227_wp, 411.6506_wp, 0.0000_wp, 0.0000_wp, &
& 595.0976_wp, 444.8023_wp, 327.6728_wp, 0.0000_wp, 0.0000_wp, &
& 471.8684_wp, 356.9509_wp, 269.2401_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 708.6971_wp, 528.4721_wp, 388.1085_wp, 0.0000_wp, 0.0000_wp, &
& 657.5565_wp, 491.9738_wp, 363.5188_wp, 0.0000_wp, 0.0000_wp, &
& 622.4382_wp, 466.7476_wp, 346.3606_wp, 0.0000_wp, 0.0000_wp, &
& 549.8188_wp, 414.6636_wp, 310.9606_wp, 0.0000_wp, 0.0000_wp, &
& 476.6268_wp, 362.1217_wp, 275.1466_wp, 0.0000_wp, 0.0000_wp, &
& 585.4250_wp, 442.1870_wp, 332.5587_wp, 0.0000_wp, 0.0000_wp, &
& 574.4090_wp, 434.2287_wp, 326.9981_wp, 0.0000_wp, 0.0000_wp, &
& 557.4729_wp, 422.0150_wp, 318.5520_wp, 0.0000_wp, 0.0000_wp, &
& 534.2546_wp, 405.2771_wp, 307.0393_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 514.8784_wp, 392.2456_wp, 299.1967_wp, 0.0000_wp, 0.0000_wp, &
& 515.2388_wp, 392.4775_wp, 299.2958_wp, 0.0000_wp, 0.0000_wp, &
& 510.9034_wp, 389.2745_wp, 296.9628_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.3377_wp, 339.2853_wp, 262.4889_wp, 0.0000_wp, 0.0000_wp, &
& 444.8851_wp, 341.8557_wp, 264.2782_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 376.5287_wp, 291.9645_wp, 228.7578_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2596.4033_wp, 1846.9699_wp, 1152.8150_wp, 0.0000_wp, 0.0000_wp, &
& 824.2050_wp, 609.1048_wp, 434.9443_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2146.4040_wp, 1540.3424_wp, 1022.6698_wp, 0.0000_wp, 0.0000_wp, &
& 1752.9565_wp, 1263.2459_wp, 835.7270_wp, 0.0000_wp, 0.0000_wp, &
& 828.9803_wp, 617.1707_wp, 450.4096_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1829.7515_wp, 1323.0311_wp, 900.1084_wp, 0.0000_wp, 0.0000_wp, &
& 1268.9492_wp, 929.1165_wp, 644.7928_wp, 0.0000_wp, 0.0000_wp, &
& 779.3004_wp, 585.2116_wp, 435.0222_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1616.4737_wp, 1175.0345_wp, 811.3033_wp, 0.0000_wp, 0.0000_wp, &
& 891.4100_wp, 664.0037_wp, 484.2582_wp, 0.0000_wp, 0.0000_wp, &
& 780.6270_wp, 587.7889_wp, 439.1688_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1457.2492_wp, 1063.4756_wp, 741.1601_wp, 0.0000_wp, 0.0000_wp, &
& 900.6808_wp, 670.4019_wp, 488.9632_wp, 0.0000_wp, 0.0000_wp, &
& 756.6313_wp, 569.5935_wp, 424.5140_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1102.5669_wp, 810.6552_wp, 573.9237_wp, 0.0000_wp, 0.0000_wp, &
& 833.4523_wp, 622.6203_wp, 456.4149_wp, 0.0000_wp, 0.0000_wp, &
& 655.7541_wp, 497.5872_wp, 376.2853_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1239.5201_wp, 908.8421_wp, 639.6388_wp, 0.0000_wp, 0.0000_wp, &
& 961.3192_wp, 711.7424_wp, 509.6654_wp, 0.0000_wp, 0.0000_wp, &
& 569.6644_wp, 435.1558_wp, 332.7662_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 923.4198_wp, 682.6807_wp, 488.8736_wp, 0.0000_wp, 0.0000_wp, &
& 711.4779_wp, 535.5402_wp, 398.9804_wp, 0.0000_wp, 0.0000_wp, &
& 535.1160_wp, 409.8023_wp, 314.6598_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1009.7527_wp, 745.6550_wp, 534.3847_wp, 0.0000_wp, 0.0000_wp, &
& 664.1953_wp, 500.5042_wp, 373.3141_wp, 0.0000_wp, 0.0000_wp, &
& 555.1063_wp, 422.0471_wp, 319.7331_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 929.4676_wp, 688.1448_wp, 496.0739_wp, 0.0000_wp, 0.0000_wp, &
& 614.2531_wp, 463.6824_wp, 346.8008_wp, 0.0000_wp, 0.0000_wp, &
& 582.9509_wp, 442.1134_wp, 333.7879_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 777.7995_wp, 575.9550_wp, 413.2739_wp, 0.0000_wp, 0.0000_wp, &
& 595.9852_wp, 449.3082_wp, 335.2999_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 811.2040_wp, 602.6451_wp, 437.6803_wp, 0.0000_wp, 0.0000_wp, &
& 580.2796_wp, 439.9774_wp, 332.4942_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1042.2993_wp, 768.0103_wp, 547.4380_wp, 0.0000_wp, 0.0000_wp, &
& 983.5647_wp, 727.2164_wp, 522.6366_wp, 0.0000_wp, 0.0000_wp, &
& 764.1181_wp, 572.3997_wp, 422.7552_wp, 0.0000_wp, 0.0000_wp, &
& 631.8504_wp, 478.6548_wp, 361.4878_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 936.6361_wp, 696.8105_wp, 508.4799_wp, 0.0000_wp, 0.0000_wp, &
& 863.8075_wp, 645.4042_wp, 474.9574_wp, 0.0000_wp, 0.0000_wp, &
& 830.1410_wp, 621.6569_wp, 459.5520_wp, 0.0000_wp, 0.0000_wp, &
& 735.0657_wp, 554.1022_wp, 414.8066_wp, 0.0000_wp, 0.0000_wp, &
& 653.2934_wp, 495.8235_wp, 375.8148_wp, 0.0000_wp, 0.0000_wp, &
& 811.4869_wp, 610.2527_wp, 454.9967_wp, 0.0000_wp, 0.0000_wp, &
& 792.2720_wp, 596.7311_wp, 446.1604_wp, 0.0000_wp, 0.0000_wp, &
& 766.6701_wp, 578.6131_wp, 434.1959_wp, 0.0000_wp, 0.0000_wp, &
& 734.6407_wp, 555.8612_wp, 419.0873_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 740.0669_wp, 560.4812_wp, 423.1347_wp, 0.0000_wp, 0.0000_wp, &
& 738.7354_wp, 559.7227_wp, 422.8902_wp, 0.0000_wp, 0.0000_wp, &
& 731.3413_wp, 554.5564_wp, 419.5653_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 656.8171_wp, 501.3621_wp, 383.4911_wp, 0.0000_wp, 0.0000_wp, &
& 663.1920_wp, 506.1568_wp, 387.0805_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 580.1377_wp, 446.2641_wp, 345.4999_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3160.6446_wp, 2252.8586_wp, 1404.8971_wp, 0.0000_wp, 0.0000_wp, &
& 953.2721_wp, 710.0379_wp, 516.2527_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2760.9094_wp, 1978.9909_wp, 1301.7488_wp, 0.0000_wp, 0.0000_wp, &
& 2298.7008_wp, 1655.1217_wp, 1081.5338_wp, 0.0000_wp, 0.0000_wp, &
& 996.3785_wp, 743.9419_wp, 545.2609_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2360.9186_wp, 1704.0270_wp, 1149.0950_wp, 0.0000_wp, 0.0000_wp, &
& 1614.0907_wp, 1181.1130_wp, 815.4833_wp, 0.0000_wp, 0.0000_wp, &
& 1019.9809_wp, 764.5954_wp, 566.2392_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 963.4773_wp, 723.4456_wp, 537.1200_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2424.0491_wp, 1742.0729_wp, 1155.0423_wp, 0.0000_wp, 0.0000_wp, &
& 932.8506_wp, 700.9255_wp, 521.0382_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2317.0514_wp, 1666.1615_wp, 1109.9829_wp, 0.0000_wp, 0.0000_wp, &
& 913.2638_wp, 686.2763_wp, 510.2804_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2256.0584_wp, 1622.6978_wp, 1082.3751_wp, 0.0000_wp, 0.0000_wp, &
& 883.0338_wp, 663.9586_wp, 494.2011_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2200.2906_wp, 1582.9071_wp, 1056.9604_wp, 0.0000_wp, 0.0000_wp, &
& 891.2789_wp, 669.1728_wp, 496.3249_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2150.7417_wp, 1547.5750_wp, 1034.4333_wp, 0.0000_wp, 0.0000_wp, &
& 871.1007_wp, 650.5999_wp, 477.4175_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1640.6567_wp, 1192.0226_wp, 817.6123_wp, 0.0000_wp, 0.0000_wp, &
& 898.1280_wp, 673.8022_wp, 499.3872_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1930.9949_wp, 1389.4684_wp, 913.6454_wp, 0.0000_wp, 0.0000_wp, &
& 840.3884_wp, 631.3597_wp, 469.2695_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1852.9581_wp, 1336.0613_wp, 881.9839_wp, 0.0000_wp, 0.0000_wp, &
& 861.9439_wp, 645.8704_wp, 476.9556_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1926.5925_wp, 1388.4173_wp, 934.0964_wp, 0.0000_wp, 0.0000_wp, &
& 794.7163_wp, 597.8735_wp, 445.6595_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1884.3048_wp, 1358.1065_wp, 914.3896_wp, 0.0000_wp, 0.0000_wp, &
& 770.9874_wp, 580.3335_wp, 433.0449_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1845.5050_wp, 1330.4473_wp, 896.6775_wp, 0.0000_wp, 0.0000_wp, &
& 766.9085_wp, 577.0039_wp, 430.2033_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1826.2149_wp, 1315.9859_wp, 886.0025_wp, 0.0000_wp, 0.0000_wp, &
& 811.1571_wp, 608.7142_wp, 451.8405_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1507.2441_wp, 1093.9351_wp, 749.1105_wp, 0.0000_wp, 0.0000_wp, &
& 739.6916_wp, 556.9572_wp, 415.9525_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1441.2394_wp, 1054.3108_wp, 740.2521_wp, 0.0000_wp, 0.0000_wp, &
& 1054.3108_wp, 780.3872_wp, 559.5455_wp, 0.0000_wp, 0.0000_wp, &
& 740.2521_wp, 559.5455_wp, 420.9766_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 54.4015_wp, 42.5991_wp, 36.5951_wp, 0.0000_wp, 0.0000_wp, &
& 90.2858_wp, 69.5172_wp, 58.8038_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 34.2834_wp, 27.6208_wp, 24.2814_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1027.3577_wp, 738.8089_wp, 566.1059_wp, 0.0000_wp, 0.0000_wp, &
& 314.2483_wp, 233.6075_wp, 189.8611_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 544.4355_wp, 403.2239_wp, 326.4469_wp, 0.0000_wp, 0.0000_wp, &
& 397.1312_wp, 296.8173_wp, 242.4429_wp, 0.0000_wp, 0.0000_wp, &
& 247.1551_wp, 188.7818_wp, 158.4438_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.6285_wp, 264.5808_wp, 220.4197_wp, 0.0000_wp, 0.0000_wp, &
& 290.1801_wp, 221.5085_wp, 185.5749_wp, 0.0000_wp, 0.0000_wp, &
& 241.0799_wp, 185.1452_wp, 155.9549_wp, 0.0000_wp, 0.0000_wp, &
& 178.1249_wp, 138.8171_wp, 118.7315_wp, 0.0000_wp, 0.0000_wp, &
& 166.8741_wp, 130.3755_wp, 111.7577_wp, 0.0000_wp, 0.0000_wp, &
& 226.7159_wp, 175.6268_wp, 149.3290_wp, 0.0000_wp, 0.0000_wp, &
& 212.8041_wp, 164.8922_wp, 140.1249_wp, 0.0000_wp, 0.0000_wp, &
& 170.7285_wp, 133.4248_wp, 114.3514_wp, 0.0000_wp, 0.0000_wp, &
& 159.6769_wp, 124.8613_wp, 107.0216_wp, 0.0000_wp, 0.0000_wp, &
& 127.6207_wp, 101.1019_wp, 87.6809_wp, 0.0000_wp, 0.0000_wp, &
& 154.0696_wp, 121.3232_wp, 104.6769_wp, 0.0000_wp, 0.0000_wp, &
& 143.5763_wp, 113.1600_wp, 97.6568_wp, 0.0000_wp, 0.0000_wp, &
& 134.3399_wp, 106.0746_wp, 91.6935_wp, 0.0000_wp, 0.0000_wp, &
& 117.8208_wp, 93.3008_wp, 80.8052_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 114.2967_wp, 91.1025_wp, 79.3968_wp, 0.0000_wp, 0.0000_wp, &
& 101.9734_wp, 81.5610_wp, 71.2644_wp, 0.0000_wp, 0.0000_wp, &
& 89.3142_wp, 71.7524_wp, 62.8991_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 85.0814_wp, 68.5425_wp, 60.2393_wp, 0.0000_wp, 0.0000_wp, &
& 67.9590_wp, 55.3905_wp, 49.1219_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 64.5238_wp, 52.4358_wp, 46.3878_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1222.0335_wp, 880.3532_wp, 676.8713_wp, 0.0000_wp, 0.0000_wp, &
& 463.2724_wp, 343.2801_wp, 277.5361_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.8469_wp, 648.2981_wp, 519.9846_wp, 0.0000_wp, 0.0000_wp, &
& 719.7152_wp, 532.4766_wp, 429.3240_wp, 0.0000_wp, 0.0000_wp, &
& 448.1992_wp, 338.4615_wp, 280.6157_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 791.4135_wp, 589.2301_wp, 479.7941_wp, 0.0000_wp, 0.0000_wp, &
& 712.7422_wp, 532.2864_wp, 434.9778_wp, 0.0000_wp, 0.0000_wp, &
& 543.4462_wp, 410.1206_wp, 339.2839_wp, 0.0000_wp, 0.0000_wp, &
& 411.7737_wp, 314.8567_wp, 264.5600_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 602.1347_wp, 455.7565_wp, 378.6269_wp, 0.0000_wp, 0.0000_wp, &
& 553.6542_wp, 420.2326_wp, 350.0849_wp, 0.0000_wp, 0.0000_wp, &
& 512.3504_wp, 389.8713_wp, 325.7067_wp, 0.0000_wp, 0.0000_wp, &
& 501.0728_wp, 380.8064_wp, 317.4639_wp, 0.0000_wp, 0.0000_wp, &
& 402.3253_wp, 309.3879_wp, 261.3808_wp, 0.0000_wp, 0.0000_wp, &
& 455.6970_wp, 350.3154_wp, 295.8053_wp, 0.0000_wp, 0.0000_wp, &
& 441.8616_wp, 339.9122_wp, 287.1696_wp, 0.0000_wp, 0.0000_wp, &
& 436.6757_wp, 335.6479_wp, 283.2719_wp, 0.0000_wp, 0.0000_wp, &
& 401.8555_wp, 310.1525_wp, 262.8722_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.8723_wp, 288.2197_wp, 245.8675_wp, 0.0000_wp, 0.0000_wp, &
& 366.9477_wp, 285.1197_wp, 243.1608_wp, 0.0000_wp, 0.0000_wp, &
& 359.3797_wp, 279.3141_wp, 238.2558_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 297.2839_wp, 233.5360_wp, 201.1396_wp, 0.0000_wp, 0.0000_wp, &
& 294.2982_wp, 231.1571_wp, 199.0537_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 239.2291_wp, 189.7641_wp, 164.7805_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2026.6698_wp, 1460.4707_wp, 1112.6264_wp, 0.0000_wp, 0.0000_wp, &
& 626.3442_wp, 469.4105_wp, 383.5190_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1589.4883_wp, 1159.7504_wp, 914.4703_wp, 0.0000_wp, 0.0000_wp, &
& 1268.7518_wp, 929.4379_wp, 732.9927_wp, 0.0000_wp, 0.0000_wp, &
& 628.5566_wp, 475.2624_wp, 393.7862_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1297.7826_wp, 950.6862_wp, 755.2519_wp, 0.0000_wp, 0.0000_wp, &
& 609.7515_wp, 461.9376_wp, 383.5932_wp, 0.0000_wp, 0.0000_wp, &
& 595.7700_wp, 453.4554_wp, 378.6235_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1239.5033_wp, 912.3291_wp, 729.5649_wp, 0.0000_wp, 0.0000_wp, &
& 587.9813_wp, 445.9579_wp, 370.4544_wp, 0.0000_wp, 0.0000_wp, &
& 602.4592_wp, 458.7957_wp, 383.3036_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1127.5812_wp, 832.2331_wp, 668.1599_wp, 0.0000_wp, 0.0000_wp, &
& 576.4946_wp, 437.1397_wp, 363.0328_wp, 0.0000_wp, 0.0000_wp, &
& 551.8530_wp, 420.3192_wp, 350.9096_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 886.5880_wp, 655.7091_wp, 526.7674_wp, 0.0000_wp, 0.0000_wp, &
& 573.0945_wp, 433.9122_wp, 359.6452_wp, 0.0000_wp, 0.0000_wp, &
& 406.2841_wp, 313.2187_wp, 264.6919_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 961.5194_wp, 712.5928_wp, 575.3875_wp, 0.0000_wp, 0.0000_wp, &
& 518.7905_wp, 395.6116_wp, 331.0001_wp, 0.0000_wp, 0.0000_wp, &
& 342.6995_wp, 266.1950_wp, 226.6492_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 752.3104_wp, 558.9541_wp, 451.9544_wp, 0.0000_wp, 0.0000_wp, &
& 477.7397_wp, 365.2742_wp, 306.4315_wp, 0.0000_wp, 0.0000_wp, &
& 336.9544_wp, 261.4925_wp, 222.4463_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 787.0327_wp, 587.2474_wp, 478.7837_wp, 0.0000_wp, 0.0000_wp, &
& 455.6866_wp, 348.5157_wp, 292.3568_wp, 0.0000_wp, 0.0000_wp, &
& 404.1174_wp, 309.8782_wp, 260.4422_wp, 0.0000_wp, 0.0000_wp, &
& 354.3804_wp, 273.8542_wp, 232.0332_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 816.3455_wp, 607.1928_wp, 493.0665_wp, 0.0000_wp, 0.0000_wp, &
& 446.0916_wp, 340.9580_wp, 285.7997_wp, 0.0000_wp, 0.0000_wp, &
& 374.0020_wp, 287.7037_wp, 242.6850_wp, 0.0000_wp, 0.0000_wp, &
& 398.2274_wp, 304.2647_wp, 254.6976_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 624.8408_wp, 465.8069_wp, 378.3878_wp, 0.0000_wp, 0.0000_wp, &
& 446.2955_wp, 339.1050_wp, 282.2514_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 628.6741_wp, 472.2547_wp, 388.3794_wp, 0.0000_wp, 0.0000_wp, &
& 409.3369_wp, 314.3617_wp, 265.0166_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 749.9776_wp, 561.6079_wp, 459.9876_wp, 0.0000_wp, 0.0000_wp, &
& 699.5482_wp, 525.5040_wp, 432.1249_wp, 0.0000_wp, 0.0000_wp, &
& 541.0622_wp, 411.2050_wp, 342.7253_wp, 0.0000_wp, 0.0000_wp, &
& 432.1085_wp, 332.2796_wp, 280.6384_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 643.7301_wp, 488.0790_wp, 406.0097_wp, 0.0000_wp, 0.0000_wp, &
& 598.3678_wp, 455.1833_wp, 379.9737_wp, 0.0000_wp, 0.0000_wp, &
& 567.1420_wp, 432.3917_wp, 361.8268_wp, 0.0000_wp, 0.0000_wp, &
& 502.5834_wp, 385.3383_wp, 324.3889_wp, 0.0000_wp, 0.0000_wp, &
& 437.4673_wp, 337.8356_wp, 286.5355_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 2661:2755) = reshape([ &
& 535.6015_wp, 411.2565_wp, 346.7690_wp, 0.0000_wp, 0.0000_wp, &
& 525.7375_wp, 404.0189_wp, 340.9276_wp, 0.0000_wp, 0.0000_wp, &
& 510.6138_wp, 392.9377_wp, 332.0294_wp, 0.0000_wp, 0.0000_wp, &
& 489.9092_wp, 377.7713_wp, 319.8816_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 473.1685_wp, 366.4067_wp, 311.4923_wp, 0.0000_wp, 0.0000_wp, &
& 473.4619_wp, 366.5983_wp, 311.6121_wp, 0.0000_wp, 0.0000_wp, &
& 469.5352_wp, 363.6525_wp, 309.1767_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 407.4691_wp, 318.3752_wp, 272.9038_wp, 0.0000_wp, 0.0000_wp, &
& 410.6430_wp, 320.7130_wp, 274.7891_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 349.1305_wp, 275.1274_wp, 237.5951_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2260.8400_wp, 1632.8526_wp, 1247.3944_wp, 0.0000_wp, 0.0000_wp, &
& 742.7397_wp, 558.4919_wp, 457.8458_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1896.9799_wp, 1384.3496_wp, 1090.1054_wp, 0.0000_wp, 0.0000_wp, &
& 1547.9897_wp, 1133.9963_wp, 892.5336_wp, 0.0000_wp, 0.0000_wp, &
& 751.6662_wp, 569.1975_wp, 472.0061_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1627.2670_wp, 1196.7064_wp, 954.6796_wp, 0.0000_wp, 0.0000_wp, &
& 1134.6407_wp, 844.7234_wp, 682.1282_wp, 0.0000_wp, 0.0000_wp, &
& 710.4790_wp, 542.5268_wp, 454.5024_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1443.1973_wp, 1067.0698_wp, 858.1082_wp, 0.0000_wp, 0.0000_wp, &
& 808.1066_wp, 612.3192_wp, 507.6612_wp, 0.0000_wp, 0.0000_wp, &
& 712.7902_wp, 545.7275_wp, 458.5024_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1304.3213_wp, 968.2344_wp, 782.6849_wp, 0.0000_wp, 0.0000_wp, &
& 816.4974_wp, 618.3328_wp, 512.5695_wp, 0.0000_wp, 0.0000_wp, &
& 690.3939_wp, 528.5265_wp, 443.5425_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 991.1657_wp, 741.4202_wp, 604.7166_wp, 0.0000_wp, 0.0000_wp, &
& 756.7532_wp, 575.0447_wp, 478.1928_wp, 0.0000_wp, 0.0000_wp, &
& 601.0596_wp, 463.7843_wp, 392.4448_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1112.4511_wp, 829.7617_wp, 674.5116_wp, 0.0000_wp, 0.0000_wp, &
& 867.0054_wp, 653.0406_wp, 536.2636_wp, 0.0000_wp, 0.0000_wp, &
& 524.0213_wp, 407.0101_wp, 346.6274_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 832.8191_wp, 626.4527_wp, 514.2669_wp, 0.0000_wp, 0.0000_wp, &
& 649.1471_wp, 496.9704_wp, 416.9904_wp, 0.0000_wp, 0.0000_wp, &
& 492.9016_wp, 383.8019_wp, 327.6381_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 910.8426_wp, 684.2653_wp, 561.7599_wp, 0.0000_wp, 0.0000_wp, &
& 606.2463_wp, 464.6638_wp, 390.1903_wp, 0.0000_wp, 0.0000_wp, &
& 509.1475_wp, 393.7048_wp, 333.5709_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 839.8351_wp, 632.5574_wp, 521.0045_wp, 0.0000_wp, 0.0000_wp, &
& 561.1517_wp, 430.8712_wp, 362.4056_wp, 0.0000_wp, 0.0000_wp, &
& 534.0983_wp, 411.9669_wp, 348.3184_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 701.9284_wp, 528.9288_wp, 434.7817_wp, 0.0000_wp, 0.0000_wp, &
& 544.0985_wp, 417.2647_wp, 350.5137_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 734.5659_wp, 555.1674_wp, 459.1663_wp, 0.0000_wp, 0.0000_wp, &
& 531.7924_wp, 410.0279_wp, 346.8043_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 938.7702_wp, 703.6560_wp, 575.9720_wp, 0.0000_wp, 0.0000_wp, &
& 887.9251_wp, 667.8087_wp, 549.0979_wp, 0.0000_wp, 0.0000_wp, &
& 695.3446_wp, 529.7480_wp, 442.2857_wp, 0.0000_wp, 0.0000_wp, &
& 578.9036_wp, 445.8975_wp, 376.9496_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 849.2579_wp, 642.5725_wp, 532.7389_wp, 0.0000_wp, 0.0000_wp, &
& 785.1771_wp, 596.6150_wp, 497.0041_wp, 0.0000_wp, 0.0000_wp, &
& 755.5917_wp, 575.4163_wp, 480.5632_wp, 0.0000_wp, 0.0000_wp, &
& 671.6175_wp, 514.7835_wp, 432.9981_wp, 0.0000_wp, 0.0000_wp, &
& 599.2111_wp, 462.3439_wp, 391.6387_wp, 0.0000_wp, 0.0000_wp, &
& 740.5101_wp, 566.2395_wp, 475.1601_wp, 0.0000_wp, 0.0000_wp, &
& 723.5937_wp, 554.1499_wp, 465.7586_wp, 0.0000_wp, 0.0000_wp, &
& 700.9976_wp, 537.9048_wp, 453.0459_wp, 0.0000_wp, 0.0000_wp, &
& 672.6897_wp, 517.4749_wp, 437.0018_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 677.9430_wp, 521.9983_wp, 441.1736_wp, 0.0000_wp, 0.0000_wp, &
& 676.8865_wp, 521.4107_wp, 440.8725_wp, 0.0000_wp, 0.0000_wp, &
& 670.4007_wp, 516.8114_wp, 437.3278_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 604.1918_wp, 468.8257_wp, 399.2387_wp, 0.0000_wp, 0.0000_wp, &
& 610.0143_wp, 473.2751_wp, 402.9787_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 535.7773_wp, 418.9139_wp, 359.2542_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2751.6509_wp, 1990.6514_wp, 1520.9786_wp, 0.0000_wp, 0.0000_wp, &
& 863.4581_wp, 654.2488_wp, 541.6856_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2434.4207_wp, 1774.2433_wp, 1390.8237_wp, 0.0000_wp, 0.0000_wp, &
& 2023.7991_wp, 1480.6088_wp, 1158.6256_wp, 0.0000_wp, 0.0000_wp, &
& 904.6021_wp, 686.9912_wp, 571.1614_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2094.8531_wp, 1537.7374_wp, 1221.2713_wp, 0.0000_wp, 0.0000_wp, &
& 1441.3394_wp, 1072.2142_wp, 863.7277_wp, 0.0000_wp, 0.0000_wp, &
& 928.8454_wp, 708.0568_wp, 591.9397_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 878.1098_wp, 670.5445_wp, 561.4420_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2141.7667_wp, 1565.0227_wp, 1232.1348_wp, 0.0000_wp, 0.0000_wp, &
& 850.5162_wp, 649.9097_wp, 544.5480_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2049.6125_wp, 1498.8909_wp, 1182.7756_wp, 0.0000_wp, 0.0000_wp, &
& 832.7229_wp, 636.3801_wp, 533.2855_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1996.2879_wp, 1460.2740_wp, 1153.0265_wp, 0.0000_wp, 0.0000_wp, &
& 805.4167_wp, 615.8784_wp, 516.4163_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1947.4669_wp, 1424.8668_wp, 1125.6719_wp, 0.0000_wp, 0.0000_wp, &
& 812.0825_wp, 620.0622_wp, 518.9341_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1904.1085_wp, 1393.4393_wp, 1101.4151_wp, 0.0000_wp, 0.0000_wp, &
& 791.1814_wp, 601.0845_wp, 500.0591_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1462.3131_wp, 1080.7361_wp, 866.4353_wp, 0.0000_wp, 0.0000_wp, &
& 818.1189_wp, 624.2011_wp, 522.1286_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1702.6705_wp, 1245.4654_wp, 977.2208_wp, 0.0000_wp, 0.0000_wp, &
& 766.1883_wp, 585.3921_wp, 490.4487_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1635.5752_wp, 1198.5562_wp, 942.6309_wp, 0.0000_wp, 0.0000_wp, &
& 784.3347_wp, 597.7144_wp, 499.0339_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1708.4912_wp, 1252.2798_wp, 993.1490_wp, 0.0000_wp, 0.0000_wp, &
& 725.1773_wp, 554.7982_wp, 465.5582_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1671.3110_wp, 1225.1780_wp, 972.0151_wp, 0.0000_wp, 0.0000_wp, &
& 703.7521_wp, 538.6874_wp, 452.3080_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1637.3225_wp, 1200.5428_wp, 952.9641_wp, 0.0000_wp, 0.0000_wp, &
& 699.8511_wp, 535.4599_wp, 449.3857_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1619.7710_wp, 1187.1547_wp, 941.7869_wp, 0.0000_wp, 0.0000_wp, &
& 739.2221_wp, 564.1072_wp, 472.2105_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1342.8697_wp, 991.1575_wp, 793.8369_wp, 0.0000_wp, 0.0000_wp, &
& 675.3532_wp, 517.0982_wp, 434.3741_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1292.5836_wp, 961.7880_wp, 780.5354_wp, 0.0000_wp, 0.0000_wp, &
& 951.1851_wp, 716.0992_wp, 588.3364_wp, 0.0000_wp, 0.0000_wp, &
& 677.3750_wp, 520.5842_wp, 439.1141_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1163.8241_wp, 871.1517_wp, 712.5324_wp, 0.0000_wp, 0.0000_wp, &
& 871.1517_wp, 659.7501_wp, 546.1603_wp, 0.0000_wp, 0.0000_wp, &
& 712.5324_wp, 546.1603_wp, 458.7677_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 46.4813_wp, 39.3530_wp, 34.4352_wp, 0.0000_wp, 0.0000_wp, &
& 76.4150_wp, 63.6550_wp, 54.7934_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.8206_wp, 25.8916_wp, 23.2301_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 842.4123_wp, 642.2239_wp, 499.4807_wp, 0.0000_wp, 0.0000_wp, &
& 261.3833_wp, 209.4301_wp, 172.9883_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 451.9861_wp, 360.7558_wp, 296.7361_wp, 0.0000_wp, 0.0000_wp, &
& 331.2124_wp, 266.7623_wp, 221.5526_wp, 0.0000_wp, 0.0000_wp, &
& 208.2905_wp, 172.1206_wp, 146.9377_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 292.9015_wp, 240.2982_wp, 203.6120_wp, 0.0000_wp, 0.0000_wp, &
& 244.5675_wp, 201.8058_wp, 172.0316_wp, 0.0000_wp, 0.0000_wp, &
& 203.8567_wp, 169.1811_wp, 145.0689_wp, 0.0000_wp, 0.0000_wp, &
& 151.7946_wp, 127.9252_wp, 111.4262_wp, 0.0000_wp, 0.0000_wp, &
& 142.4140_wp, 120.3020_wp, 105.0350_wp, 0.0000_wp, 0.0000_wp, &
& 192.5984_wp, 161.3287_wp, 139.6713_wp, 0.0000_wp, 0.0000_wp, &
& 180.8462_wp, 151.4399_wp, 131.0744_wp, 0.0000_wp, 0.0000_wp, &
& 145.7774_wp, 123.1362_wp, 107.5164_wp, 0.0000_wp, 0.0000_wp, &
& 136.4210_wp, 115.2606_wp, 100.6727_wp, 0.0000_wp, 0.0000_wp, &
& 109.8377_wp, 93.9601_wp, 83.0805_wp, 0.0000_wp, 0.0000_wp, &
& 132.1410_wp, 112.4138_wp, 98.8541_wp, 0.0000_wp, 0.0000_wp, &
& 123.2302_wp, 104.8796_wp, 92.2761_wp, 0.0000_wp, 0.0000_wp, &
& 115.4406_wp, 98.4199_wp, 86.7443_wp, 0.0000_wp, 0.0000_wp, &
& 101.4561_wp, 86.6909_wp, 76.5852_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 98.7666_wp, 84.9428_wp, 75.5088_wp, 0.0000_wp, 0.0000_wp, &
& 88.3156_wp, 76.1747_wp, 67.9119_wp, 0.0000_wp, 0.0000_wp, &
& 77.5895_wp, 67.1687_wp, 60.1013_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 74.0309_wp, 64.2604_wp, 57.6438_wp, 0.0000_wp, 0.0000_wp, &
& 59.5758_wp, 52.2335_wp, 47.3086_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 56.4767_wp, 49.3830_wp, 44.6145_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1002.9508_wp, 766.7477_wp, 598.5348_wp, 0.0000_wp, 0.0000_wp, &
& 384.9091_wp, 306.9894_wp, 252.2899_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 729.3352_wp, 577.3002_wp, 470.4046_wp, 0.0000_wp, 0.0000_wp, &
& 597.4344_wp, 475.3884_wp, 389.5721_wp, 0.0000_wp, 0.0000_wp, &
& 375.5975_wp, 306.6214_wp, 258.4639_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 658.7471_wp, 528.7559_wp, 437.5983_wp, 0.0000_wp, 0.0000_wp, &
& 594.1616_wp, 478.5546_wp, 397.5411_wp, 0.0000_wp, 0.0000_wp, &
& 455.3313_wp, 371.0891_wp, 312.1979_wp, 0.0000_wp, 0.0000_wp, &
& 347.2309_wp, 287.2588_wp, 245.5149_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 505.1890_wp, 413.3044_wp, 349.1691_wp, 0.0000_wp, 0.0000_wp, &
& 465.1942_wp, 381.6600_wp, 323.3890_wp, 0.0000_wp, 0.0000_wp, &
& 431.0518_wp, 354.6271_wp, 301.3608_wp, 0.0000_wp, 0.0000_wp, &
& 421.3667_wp, 346.0161_wp, 293.4671_wp, 0.0000_wp, 0.0000_wp, &
& 340.3120_wp, 283.1217_wp, 243.3863_wp, 0.0000_wp, 0.0000_wp, &
& 385.4109_wp, 320.4932_wp, 275.3876_wp, 0.0000_wp, 0.0000_wp, &
& 373.8654_wp, 311.0737_wp, 267.4548_wp, 0.0000_wp, 0.0000_wp, &
& 369.3512_wp, 307.0136_wp, 263.7024_wp, 0.0000_wp, 0.0000_wp, &
& 340.6238_wp, 284.3515_wp, 245.3082_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 315.5632_wp, 265.2113_wp, 230.3666_wp, 0.0000_wp, 0.0000_wp, &
& 312.2081_wp, 262.3293_wp, 227.8118_wp, 0.0000_wp, 0.0000_wp, &
& 305.8261_wp, 257.0235_wp, 223.2570_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.5287_wp, 216.1034_wp, 189.6418_wp, 0.0000_wp, 0.0000_wp, &
& 251.9616_wp, 213.8855_wp, 187.6647_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 206.0286_wp, 176.4763_wp, 156.2347_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1664.4321_wp, 1265.2105_wp, 979.1991_wp, 0.0000_wp, 0.0000_wp, &
& 523.6892_wp, 422.2410_wp, 351.1876_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1311.7641_wp, 1023.7513_wp, 820.2766_wp, 0.0000_wp, 0.0000_wp, &
& 1049.3296_wp, 820.1982_wp, 657.8095_wp, 0.0000_wp, 0.0000_wp, &
& 527.4527_wp, 430.5842_wp, 363.0051_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1072.8050_wp, 842.4987_wp, 680.1597_wp, 0.0000_wp, 0.0000_wp, &
& 512.2105_wp, 419.0383_wp, 354.0876_wp, 0.0000_wp, 0.0000_wp, &
& 501.5307_wp, 412.4826_wp, 350.4674_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1026.9214_wp, 811.2804_wp, 659.4850_wp, 0.0000_wp, 0.0000_wp, &
& 494.2357_wp, 404.5918_wp, 342.0626_wp, 0.0000_wp, 0.0000_wp, &
& 507.3155_wp, 417.4793_wp, 354.9301_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 935.3859_wp, 741.5955_wp, 605.3105_wp, 0.0000_wp, 0.0000_wp, &
& 484.5583_wp, 396.5636_wp, 335.1953_wp, 0.0000_wp, 0.0000_wp, &
& 464.8433_wp, 382.3628_wp, 324.9190_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 736.5063_wp, 584.5767_wp, 477.7116_wp, 0.0000_wp, 0.0000_wp, &
& 481.3814_wp, 393.2421_wp, 331.7429_wp, 0.0000_wp, 0.0000_wp, &
& 344.5387_wp, 286.9156_wp, 246.9804_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 799.1758_wp, 636.8972_wp, 522.9278_wp, 0.0000_wp, 0.0000_wp, &
& 437.2088_wp, 360.3043_wp, 306.7902_wp, 0.0000_wp, 0.0000_wp, &
& 291.8077_wp, 244.8688_wp, 212.4317_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 626.3380_wp, 500.0445_wp, 411.3725_wp, 0.0000_wp, 0.0000_wp, &
& 403.1860_wp, 333.1637_wp, 284.4755_wp, 0.0000_wp, 0.0000_wp, &
& 286.7836_wp, 240.4309_wp, 208.3891_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 656.2260_wp, 527.5583_wp, 437.4383_wp, 0.0000_wp, 0.0000_wp, &
& 384.6723_wp, 317.8847_wp, 271.4443_wp, 0.0000_wp, 0.0000_wp, &
& 341.7207_wp, 283.0005_wp, 242.2155_wp, 0.0000_wp, 0.0000_wp, &
& 300.9128_wp, 251.2320_wp, 216.8346_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 679.6314_wp, 544.3315_wp, 449.4776_wp, 0.0000_wp, 0.0000_wp, &
& 376.4665_wp, 310.8748_wp, 265.2596_wp, 0.0000_wp, 0.0000_wp, &
& 316.7847_wp, 263.2796_wp, 226.1706_wp, 0.0000_wp, 0.0000_wp, &
& 336.1845_wp, 277.3159_wp, 236.4040_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 521.0822_wp, 417.7679_wp, 345.3340_wp, 0.0000_wp, 0.0000_wp, &
& 375.6084_wp, 308.0717_wp, 261.0312_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 525.8894_wp, 426.2047_wp, 356.5405_wp, 0.0000_wp, 0.0000_wp, &
& 346.2360_wp, 287.4876_wp, 246.6960_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 626.2203_wp, 505.6085_wp, 421.1500_wp, 0.0000_wp, 0.0000_wp, &
& 585.0069_wp, 474.0968_wp, 396.5106_wp, 0.0000_wp, 0.0000_wp, &
& 455.0721_wp, 373.6329_wp, 316.8461_wp, 0.0000_wp, 0.0000_wp, &
& 365.5874_wp, 304.0791_wp, 261.3625_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.6984_wp, 442.9999_wp, 374.8540_wp, 0.0000_wp, 0.0000_wp, &
& 503.4431_wp, 413.9172_wp, 351.5243_wp, 0.0000_wp, 0.0000_wp, &
& 477.7197_wp, 393.7121_wp, 335.2083_wp, 0.0000_wp, 0.0000_wp, &
& 424.5693_wp, 352.0045_wp, 301.5558_wp, 0.0000_wp, 0.0000_wp, &
& 370.9397_wp, 309.8655_wp, 267.5021_wp, 0.0000_wp, 0.0000_wp, &
& 452.7837_wp, 375.9984_wp, 322.6401_wp, 0.0000_wp, 0.0000_wp, &
& 444.6486_wp, 369.5395_wp, 317.3585_wp, 0.0000_wp, 0.0000_wp, &
& 432.1746_wp, 359.6738_wp, 309.3265_wp, 0.0000_wp, 0.0000_wp, &
& 415.0939_wp, 346.1880_wp, 298.3709_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 401.8429_wp, 336.5240_wp, 291.2663_wp, 0.0000_wp, 0.0000_wp, &
& 402.0778_wp, 336.6777_wp, 291.3625_wp, 0.0000_wp, 0.0000_wp, &
& 398.8063_wp, 334.0177_wp, 289.1318_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 347.7963_wp, 293.7958_wp, 256.5170_wp, 0.0000_wp, 0.0000_wp, &
& 350.4234_wp, 295.8832_wp, 258.2257_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 299.4880_wp, 255.0068_wp, 224.4260_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1858.7683_wp, 1416.5256_wp, 1099.7481_wp, 0.0000_wp, 0.0000_wp, &
& 622.0977_wp, 503.2886_wp, 420.1356_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1565.9413_wp, 1221.1434_wp, 977.3503_wp, 0.0000_wp, 0.0000_wp, &
& 1280.4929_wp, 999.6018_wp, 800.2836_wp, 0.0000_wp, 0.0000_wp, &
& 631.3639_wp, 515.9599_wp, 435.4733_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1347.8163_wp, 1062.8100_wp, 861.9972_wp, 0.0000_wp, 0.0000_wp, &
& 945.4099_wp, 754.6966_wp, 620.2744_wp, 0.0000_wp, 0.0000_wp, &
& 599.1342_wp, 494.4099_wp, 421.5613_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1198.3202_wp, 951.6708_wp, 778.2433_wp, 0.0000_wp, 0.0000_wp, &
& 679.0458_wp, 554.9737_wp, 468.3741_wp, 0.0000_wp, 0.0000_wp, &
& 601.8801_wp, 498.0917_wp, 425.9507_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1085.0878_wp, 865.8895_wp, 711.9449_wp, 0.0000_wp, 0.0000_wp, &
& 685.9856_wp, 560.4734_wp, 472.9418_wp, 0.0000_wp, 0.0000_wp, &
& 583.0888_wp, 482.1480_wp, 411.9567_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 827.8625_wp, 666.2938_wp, 553.0964_wp, 0.0000_wp, 0.0000_wp, &
& 636.9077_wp, 522.0897_wp, 442.0491_wp, 0.0000_wp, 0.0000_wp, &
& 509.8157_wp, 425.0630_wp, 366.3303_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 927.7407_wp, 744.2951_wp, 615.6258_wp, 0.0000_wp, 0.0000_wp, &
& 726.7066_wp, 588.9330_wp, 492.4594_wp, 0.0000_wp, 0.0000_wp, &
& 446.0838_wp, 374.3879_wp, 324.8319_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 697.6346_wp, 564.9808_wp, 472.2143_wp, 0.0000_wp, 0.0000_wp, &
& 548.4212_wp, 453.4263_wp, 387.4171_wp, 0.0000_wp, 0.0000_wp, &
& 420.1970_wp, 353.5293_wp, 307.5001_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 762.2660_wp, 617.0747_wp, 515.5680_wp, 0.0000_wp, 0.0000_wp, &
& 512.5656_wp, 424.1709_wp, 362.7696_wp, 0.0000_wp, 0.0000_wp, &
& 432.5391_wp, 361.1971_wp, 311.8089_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 703.7619_wp, 571.4589_wp, 479.0590_wp, 0.0000_wp, 0.0000_wp, &
& 474.9493_wp, 393.7124_wp, 337.3247_wp, 0.0000_wp, 0.0000_wp, &
& 453.0906_wp, 377.5050_wp, 325.1416_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 588.7029_wp, 477.4647_wp, 399.7262_wp, 0.0000_wp, 0.0000_wp, &
& 460.2670_wp, 381.0495_wp, 326.0586_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 616.6410_wp, 502.6948_wp, 423.2230_wp, 0.0000_wp, 0.0000_wp, &
& 450.9360_wp, 375.7548_wp, 323.6569_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 784.7096_wp, 633.5061_wp, 527.6514_wp, 0.0000_wp, 0.0000_wp, &
& 743.4035_wp, 602.6649_wp, 504.2597_wp, 0.0000_wp, 0.0000_wp, &
& 585.8808_wp, 481.9745_wp, 409.6194_wp, 0.0000_wp, 0.0000_wp, &
& 490.4774_wp, 408.4278_wp, 351.5242_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 712.9494_wp, 582.3842_wp, 491.2965_wp, 0.0000_wp, 0.0000_wp, &
& 660.5539_wp, 542.1055_wp, 459.5686_wp, 0.0000_wp, 0.0000_wp, &
& 636.3750_wp, 523.5547_wp, 444.9961_wp, 0.0000_wp, 0.0000_wp, &
& 567.5078_wp, 470.1838_wp, 402.5544_wp, 0.0000_wp, 0.0000_wp, &
& 508.0568_wp, 423.9005_wp, 365.5482_wp, 0.0000_wp, 0.0000_wp, &
& 624.9010_wp, 516.4949_wp, 441.1051_wp, 0.0000_wp, 0.0000_wp, &
& 611.1029_wp, 505.9003_wp, 432.7691_wp, 0.0000_wp, 0.0000_wp, &
& 592.6175_wp, 491.6191_wp, 421.4512_wp, 0.0000_wp, 0.0000_wp, &
& 569.4157_wp, 473.6285_wp, 407.1354_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 574.1584_wp, 477.9825_wp, 411.2390_wp, 0.0000_wp, 0.0000_wp, &
& 573.3887_wp, 477.5563_wp, 411.0585_wp, 0.0000_wp, 0.0000_wp, &
& 568.1201_wp, 473.5452_wp, 407.9357_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 513.8315_wp, 431.0943_wp, 373.8314_wp, 0.0000_wp, 0.0000_wp, &
& 518.7353_wp, 435.1515_wp, 377.2983_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 457.5853_wp, 386.7440_wp, 337.8640_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 2756:2850) = reshape([ &
& 2263.9013_wp, 1726.4733_wp, 1340.9193_wp, 0.0000_wp, 0.0000_wp, &
& 725.6991_wp, 592.5618_wp, 499.5885_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2008.7751_wp, 1561.2112_wp, 1244.0756_wp, 0.0000_wp, 0.0000_wp, &
& 1673.2640_wp, 1300.7753_wp, 1035.5821_wp, 0.0000_wp, 0.0000_wp, &
& 760.9816_wp, 623.5870_wp, 527.8013_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1733.9129_wp, 1362.4276_wp, 1100.2138_wp, 0.0000_wp, 0.0000_wp, &
& 1200.5662_wp, 956.5997_wp, 784.4115_wp, 0.0000_wp, 0.0000_wp, &
& 782.6068_wp, 644.5293_wp, 548.4216_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 740.6863_wp, 610.9907_wp, 520.7789_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1769.4139_wp, 1380.2768_wp, 1104.8675_wp, 0.0000_wp, 0.0000_wp, &
& 717.6672_wp, 592.4190_wp, 505.3205_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1693.8988_wp, 1323.6943_wp, 1061.9928_wp, 0.0000_wp, 0.0000_wp, &
& 702.6966_wp, 580.1353_wp, 494.9131_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1650.0004_wp, 1290.0298_wp, 1035.6282_wp, 0.0000_wp, 0.0000_wp, &
& 679.8696_wp, 561.6319_wp, 479.4301_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1609.7798_wp, 1259.1135_wp, 1011.3417_wp, 0.0000_wp, 0.0000_wp, &
& 684.9903_wp, 564.8524_wp, 481.2612_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1574.0661_wp, 1231.6839_wp, 989.8151_wp, 0.0000_wp, 0.0000_wp, &
& 665.8317_wp, 545.9102_wp, 462.3737_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1214.4448_wp, 962.3975_wp, 784.9307_wp, 0.0000_wp, 0.0000_wp, &
& 689.7737_wp, 568.4533_wp, 484.0311_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1407.8390_wp, 1096.2341_wp, 875.0019_wp, 0.0000_wp, 0.0000_wp, &
& 646.4749_wp, 533.5946_wp, 455.1002_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1353.3433_wp, 1056.0748_wp, 845.0238_wp, 0.0000_wp, 0.0000_wp, &
& 660.9578_wp, 543.7951_wp, 462.2071_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1413.2821_wp, 1108.8832_wp, 894.1053_wp, 0.0000_wp, 0.0000_wp, &
& 612.2640_wp, 506.1324_wp, 432.3645_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1382.5761_wp, 1085.0974_wp, 875.2348_wp, 0.0000_wp, 0.0000_wp, &
& 594.3280_wp, 491.5905_wp, 420.1936_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1354.5779_wp, 1063.5675_wp, 858.3052_wp, 0.0000_wp, 0.0000_wp, &
& 590.8890_wp, 488.5154_wp, 417.3584_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1339.7711_wp, 1051.3822_wp, 847.9418_wp, 0.0000_wp, 0.0000_wp, &
& 623.2250_wp, 513.8984_wp, 437.8351_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1114.3056_wp, 882.0688_wp, 718.5066_wp, 0.0000_wp, 0.0000_wp, &
& 570.3969_wp, 471.9859_wp, 403.5986_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1076.3807_wp, 861.8734_wp, 711.3924_wp, 0.0000_wp, 0.0000_wp, &
& 796.7662_wp, 645.8228_wp, 540.1000_wp, 0.0000_wp, 0.0000_wp, &
& 573.1085_wp, 476.1701_wp, 408.8706_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 971.9524_wp, 783.9075_wp, 652.2724_wp, 0.0000_wp, 0.0000_wp, &
& 731.9144_wp, 597.4746_wp, 503.5600_wp, 0.0000_wp, 0.0000_wp, &
& 602.2024_wp, 498.4810_wp, 426.3547_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 814.3622_wp, 660.7636_wp, 553.3851_wp, 0.0000_wp, 0.0000_wp, &
& 660.7636_wp, 543.4036_wp, 461.6567_wp, 0.0000_wp, 0.0000_wp, &
& 553.3851_wp, 461.6567_wp, 398.0973_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 47.4814_wp, 39.3902_wp, 31.5928_wp, 0.0000_wp, 0.0000_wp, &
& 77.8793_wp, 64.1643_wp, 49.8616_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 30.5492_wp, 25.6614_wp, 21.6210_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 840.3029_wp, 677.9021_wp, 437.5796_wp, 0.0000_wp, 0.0000_wp, &
& 264.3697_wp, 215.0782_wp, 154.7098_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 456.8687_wp, 371.1348_wp, 264.8378_wp, 0.0000_wp, 0.0000_wp, &
& 335.2261_wp, 273.3273_wp, 198.6764_wp, 0.0000_wp, 0.0000_wp, &
& 212.0183_wp, 174.1266_wp, 133.1934_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 297.6936_wp, 243.9489_wp, 184.0194_wp, 0.0000_wp, 0.0000_wp, &
& 248.7775_wp, 204.3487_wp, 155.9432_wp, 0.0000_wp, 0.0000_wp, &
& 207.5237_wp, 170.8918_wp, 131.8957_wp, 0.0000_wp, 0.0000_wp, &
& 154.9564_wp, 128.3062_wp, 102.0081_wp, 0.0000_wp, 0.0000_wp, &
& 145.4248_wp, 120.5408_wp, 96.2759_wp, 0.0000_wp, 0.0000_wp, &
& 196.4073_wp, 162.2579_wp, 127.5271_wp, 0.0000_wp, 0.0000_wp, &
& 184.3586_wp, 152.3577_wp, 119.7110_wp, 0.0000_wp, 0.0000_wp, &
& 148.8321_wp, 123.4063_wp, 98.6019_wp, 0.0000_wp, 0.0000_wp, &
& 139.2585_wp, 115.5178_wp, 92.3748_wp, 0.0000_wp, 0.0000_wp, &
& 112.3274_wp, 93.6672_wp, 76.6867_wp, 0.0000_wp, 0.0000_wp, &
& 135.0406_wp, 112.3265_wp, 90.9958_wp, 0.0000_wp, 0.0000_wp, &
& 125.9121_wp, 104.7918_wp, 84.9906_wp, 0.0000_wp, 0.0000_wp, &
& 117.9845_wp, 98.2720_wp, 79.9790_wp, 0.0000_wp, 0.0000_wp, &
& 103.6967_wp, 86.4983_wp, 70.7353_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 101.0669_wp, 84.5094_wp, 69.9289_wp, 0.0000_wp, 0.0000_wp, &
& 90.3918_wp, 75.7020_wp, 63.0032_wp, 0.0000_wp, 0.0000_wp, &
& 79.4398_wp, 66.6682_wp, 55.8946_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 75.8337_wp, 63.7099_wp, 53.6738_wp, 0.0000_wp, 0.0000_wp, &
& 61.0949_wp, 51.5881_wp, 44.2933_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 57.8970_wp, 48.8329_wp, 41.7310_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1001.1833_wp, 808.1000_wp, 525.1483_wp, 0.0000_wp, 0.0000_wp, &
& 388.7971_wp, 316.0786_wp, 225.3330_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 735.6553_wp, 596.5347_wp, 418.4768_wp, 0.0000_wp, 0.0000_wp, &
& 603.0907_wp, 490.0563_wp, 347.5163_wp, 0.0000_wp, 0.0000_wp, &
& 381.4793_wp, 311.9868_wp, 233.0361_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 666.5308_wp, 542.5411_wp, 391.6700_wp, 0.0000_wp, 0.0000_wp, &
& 601.5780_wp, 490.2212_wp, 356.3985_wp, 0.0000_wp, 0.0000_wp, &
& 462.1194_wp, 377.9737_wp, 281.3708_wp, 0.0000_wp, 0.0000_wp, &
& 353.5264_wp, 290.4649_wp, 222.6831_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 513.2145_wp, 420.1303_wp, 315.1488_wp, 0.0000_wp, 0.0000_wp, &
& 472.7923_wp, 387.4693_wp, 292.2910_wp, 0.0000_wp, 0.0000_wp, &
& 438.3213_wp, 359.5564_wp, 272.7289_wp, 0.0000_wp, 0.0000_wp, &
& 428.2245_wp, 351.1848_wp, 265.4501_wp, 0.0000_wp, 0.0000_wp, &
& 346.7667_wp, 285.5672_wp, 221.3716_wp, 0.0000_wp, 0.0000_wp, &
& 392.6604_wp, 323.3397_wp, 250.4475_wp, 0.0000_wp, 0.0000_wp, &
& 380.9120_wp, 313.7661_wp, 243.3234_wp, 0.0000_wp, 0.0000_wp, &
& 376.2190_wp, 309.8275_wp, 239.8356_wp, 0.0000_wp, 0.0000_wp, &
& 347.2272_wp, 286.3906_wp, 223.5344_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 322.0022_wp, 266.3253_wp, 210.6191_wp, 0.0000_wp, 0.0000_wp, &
& 318.5556_wp, 263.4658_wp, 208.2754_wp, 0.0000_wp, 0.0000_wp, &
& 312.0468_wp, 258.1172_wp, 204.1455_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 260.0805_wp, 216.0769_wp, 174.2982_wp, 0.0000_wp, 0.0000_wp, &
& 257.4447_wp, 213.8802_wp, 172.4766_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 210.7497_wp, 175.8214_wp, 144.2814_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1656.3829_wp, 1339.3807_wp, 858.3565_wp, 0.0000_wp, 0.0000_wp, &
& 529.6249_wp, 432.7098_wp, 315.7277_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1317.2961_wp, 1066.4078_wp, 726.1164_wp, 0.0000_wp, 0.0000_wp, &
& 1052.9922_wp, 854.4309_wp, 583.3720_wp, 0.0000_wp, 0.0000_wp, &
& 535.3314_wp, 438.3207_wp, 327.7019_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1079.3168_wp, 874.5439_wp, 603.5688_wp, 0.0000_wp, 0.0000_wp, &
& 520.0578_wp, 426.1339_wp, 319.9881_wp, 0.0000_wp, 0.0000_wp, &
& 509.8160_wp, 418.3819_wp, 317.3717_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1034.5489_wp, 839.5915_wp, 586.8549_wp, 0.0000_wp, 0.0000_wp, &
& 501.7733_wp, 411.3956_wp, 309.2852_wp, 0.0000_wp, 0.0000_wp, &
& 515.7464_wp, 423.3401_wp, 321.5086_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 943.1423_wp, 766.0701_wp, 539.5023_wp, 0.0000_wp, 0.0000_wp, &
& 491.9120_wp, 403.2898_wp, 303.0694_wp, 0.0000_wp, 0.0000_wp, &
& 472.4071_wp, 387.8872_wp, 294.3958_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 742.3839_wp, 603.7628_wp, 426.3691_wp, 0.0000_wp, 0.0000_wp, &
& 488.4719_wp, 400.2879_wp, 299.7482_wp, 0.0000_wp, 0.0000_wp, &
& 350.8340_wp, 289.4662_wp, 225.1927_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 806.7845_wp, 656.1838_wp, 467.1653_wp, 0.0000_wp, 0.0000_wp, &
& 444.5997_wp, 365.1369_wp, 278.1306_wp, 0.0000_wp, 0.0000_wp, &
& 297.5289_wp, 246.2016_wp, 194.3936_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 632.2088_wp, 514.9199_wp, 368.1340_wp, 0.0000_wp, 0.0000_wp, &
& 410.1849_wp, 337.2247_wp, 258.2456_wp, 0.0000_wp, 0.0000_wp, &
& 292.3635_wp, 241.8439_wp, 190.6229_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 663.8871_wp, 541.0981_wp, 392.2549_wp, 0.0000_wp, 0.0000_wp, &
& 391.3110_wp, 321.7792_wp, 246.4711_wp, 0.0000_wp, 0.0000_wp, &
& 347.6512_wp, 286.2438_wp, 220.2800_wp, 0.0000_wp, 0.0000_wp, &
& 306.5770_wp, 253.1710_wp, 197.9479_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 687.0143_wp, 559.3398_wp, 402.3692_wp, 0.0000_wp, 0.0000_wp, &
& 382.9012_wp, 314.7994_wp, 240.7938_wp, 0.0000_wp, 0.0000_wp, &
& 322.5147_wp, 265.8522_wp, 206.0127_wp, 0.0000_wp, 0.0000_wp, &
& 341.7364_wp, 281.0326_wp, 214.6759_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.4859_wp, 429.2869_wp, 309.6449_wp, 0.0000_wp, 0.0000_wp, &
& 381.4584_wp, 313.0042_wp, 236.3389_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 532.9962_wp, 435.3944_wp, 320.8518_wp, 0.0000_wp, 0.0000_wp, &
& 352.5888_wp, 290.3345_wp, 224.4227_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 634.1662_wp, 517.4305_wp, 378.2013_wp, 0.0000_wp, 0.0000_wp, &
& 592.9066_wp, 484.2884_wp, 356.6594_wp, 0.0000_wp, 0.0000_wp, &
& 462.4347_wp, 379.2820_wp, 286.6562_wp, 0.0000_wp, 0.0000_wp, &
& 372.4726_wp, 306.7759_wp, 237.7889_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 549.3281_wp, 450.0785_wp, 338.7095_wp, 0.0000_wp, 0.0000_wp, &
& 511.7975_wp, 419.8502_wp, 318.1449_wp, 0.0000_wp, 0.0000_wp, &
& 485.8648_wp, 398.9067_wp, 303.7145_wp, 0.0000_wp, 0.0000_wp, &
& 432.2812_wp, 355.6606_wp, 273.9661_wp, 0.0000_wp, 0.0000_wp, &
& 378.1949_wp, 311.9987_wp, 243.8471_wp, 0.0000_wp, 0.0000_wp, &
& 461.1531_wp, 379.6101_wp, 293.3096_wp, 0.0000_wp, 0.0000_wp, &
& 452.9177_wp, 372.9591_wp, 288.6268_wp, 0.0000_wp, 0.0000_wp, &
& 440.3127_wp, 362.7743_wp, 281.5084_wp, 0.0000_wp, 0.0000_wp, &
& 423.0685_wp, 348.8350_wp, 271.7996_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 409.8108_wp, 338.4808_wp, 265.8700_wp, 0.0000_wp, 0.0000_wp, &
& 410.0352_wp, 338.6586_wp, 265.9497_wp, 0.0000_wp, 0.0000_wp, &
& 406.7094_wp, 335.9505_wp, 263.9506_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 355.1378_wp, 294.3973_wp, 235.1647_wp, 0.0000_wp, 0.0000_wp, &
& 357.7932_wp, 296.5487_wp, 236.6853_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 306.1306_wp, 254.6783_wp, 206.5945_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1850.6131_wp, 1497.7174_wp, 965.4608_wp, 0.0000_wp, 0.0000_wp, &
& 629.4728_wp, 514.9747_wp, 378.3875_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1571.6863_wp, 1272.8662_wp, 865.2155_wp, 0.0000_wp, 0.0000_wp, &
& 1284.0434_wp, 1042.3341_wp, 709.6397_wp, 0.0000_wp, 0.0000_wp, &
& 640.7445_wp, 525.0503_wp, 393.4644_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1356.8533_wp, 1101.1436_wp, 766.6493_wp, 0.0000_wp, 0.0000_wp, &
& 953.5634_wp, 777.6237_wp, 555.2087_wp, 0.0000_wp, 0.0000_wp, &
& 609.3615_wp, 500.7127_wp, 382.3780_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1208.4737_wp, 982.3390_wp, 694.3157_wp, 0.0000_wp, 0.0000_wp, &
& 688.9719_wp, 564.8182_wp, 423.3046_wp, 0.0000_wp, 0.0000_wp, &
& 612.4907_wp, 503.7649_wp, 386.8383_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1095.4282_wp, 891.6575_wp, 636.5901_wp, 0.0000_wp, 0.0000_wp, &
& 696.0040_wp, 570.4594_wp, 427.4024_wp, 0.0000_wp, 0.0000_wp, &
& 593.0872_wp, 487.9361_wp, 374.1779_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 837.0708_wp, 683.3399_wp, 496.7319_wp, 0.0000_wp, 0.0000_wp, &
& 646.5495_wp, 530.6415_wp, 400.1567_wp, 0.0000_wp, 0.0000_wp, &
& 519.3135_wp, 428.5383_wp, 334.0552_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 937.5301_wp, 764.5015_wp, 551.9675_wp, 0.0000_wp, 0.0000_wp, &
& 735.5724_wp, 602.1357_wp, 443.8279_wp, 0.0000_wp, 0.0000_wp, &
& 454.8860_wp, 376.3463_wp, 297.1616_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 706.2358_wp, 577.7356_wp, 425.4154_wp, 0.0000_wp, 0.0000_wp, &
& 557.7561_wp, 458.9491_wp, 352.0200_wp, 0.0000_wp, 0.0000_wp, &
& 428.6524_wp, 355.0036_wp, 281.6608_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 771.9567_wp, 630.9388_wp, 464.0894_wp, 0.0000_wp, 0.0000_wp, &
& 521.3061_wp, 429.2047_wp, 329.8562_wp, 0.0000_wp, 0.0000_wp, &
& 440.5866_wp, 363.9955_wp, 284.7548_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 713.1846_wp, 583.4257_wp, 431.8330_wp, 0.0000_wp, 0.0000_wp, &
& 483.1569_wp, 398.1044_wp, 307.0301_wp, 0.0000_wp, 0.0000_wp, &
& 461.4103_wp, 380.7868_wp, 296.5675_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 595.9980_wp, 488.0001_wp, 360.5629_wp, 0.0000_wp, 0.0000_wp, &
& 468.1084_wp, 385.5420_wp, 296.6430_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 625.4199_wp, 512.2533_wp, 382.2149_wp, 0.0000_wp, 0.0000_wp, &
& 459.3593_wp, 378.9425_wp, 295.1096_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 794.2301_wp, 648.6295_wp, 474.3487_wp, 0.0000_wp, 0.0000_wp, &
& 753.1512_wp, 615.7554_wp, 454.1122_wp, 0.0000_wp, 0.0000_wp, &
& 595.3890_wp, 488.9642_wp, 371.2576_wp, 0.0000_wp, 0.0000_wp, &
& 499.6804_wp, 411.9543_wp, 320.2685_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 723.6726_wp, 592.7114_wp, 443.7085_wp, 0.0000_wp, 0.0000_wp, &
& 671.1013_wp, 550.4982_wp, 415.9204_wp, 0.0000_wp, 0.0000_wp, &
& 646.8560_wp, 531.0329_wp, 403.1695_wp, 0.0000_wp, 0.0000_wp, &
& 577.6432_wp, 475.3264_wp, 365.8494_wp, 0.0000_wp, 0.0000_wp, &
& 517.8162_wp, 427.1388_wp, 333.2500_wp, 0.0000_wp, 0.0000_wp, &
& 635.8161_wp, 522.6970_wp, 400.3926_wp, 0.0000_wp, 0.0000_wp, &
& 621.9565_wp, 511.5956_wp, 393.1092_wp, 0.0000_wp, 0.0000_wp, &
& 603.3740_wp, 496.6738_wp, 383.1838_wp, 0.0000_wp, 0.0000_wp, &
& 580.0413_wp, 477.9062_wp, 370.6012_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 584.9270_wp, 482.1223_wp, 374.5042_wp, 0.0000_wp, 0.0000_wp, &
& 584.1896_wp, 481.5919_wp, 374.4114_wp, 0.0000_wp, 0.0000_wp, &
& 578.9038_wp, 477.3719_wp, 371.6983_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 524.1275_wp, 433.3183_wp, 341.6844_wp, 0.0000_wp, 0.0000_wp, &
& 529.1221_wp, 437.4187_wp, 344.8244_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 467.2642_wp, 387.4941_wp, 309.9228_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2253.5037_wp, 1825.3618_wp, 1177.8622_wp, 0.0000_wp, 0.0000_wp, &
& 735.8700_wp, 603.4693_wp, 451.5292_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2013.4740_wp, 1630.8213_wp, 1100.2149_wp, 0.0000_wp, 0.0000_wp, &
& 1675.1136_wp, 1360.1123_wp, 917.0891_wp, 0.0000_wp, 0.0000_wp, &
& 772.5420_wp, 633.8163_wp, 477.5553_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1743.3791_wp, 1414.5400_wp, 977.3591_wp, 0.0000_wp, 0.0000_wp, &
& 1210.0818_wp, 986.7987_wp, 701.7188_wp, 0.0000_wp, 0.0000_wp, &
& 795.6002_wp, 653.3684_wp, 497.0205_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 753.1369_wp, 618.9903_wp, 472.4946_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1775.3357_wp, 1438.9986_wp, 978.8049_wp, 0.0000_wp, 0.0000_wp, &
& 729.8230_wp, 599.9828_wp, 458.6253_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1700.5706_wp, 1378.5166_wp, 941.4439_wp, 0.0000_wp, 0.0000_wp, &
& 714.6194_wp, 587.5060_wp, 449.2088_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1656.7768_wp, 1343.0628_wp, 918.2378_wp, 0.0000_wp, 0.0000_wp, &
& 691.4770_wp, 568.6114_wp, 435.2851_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1616.6266_wp, 1310.5457_wp, 896.8356_wp, 0.0000_wp, 0.0000_wp, &
& 696.4000_wp, 572.3836_wp, 436.6281_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1580.9835_wp, 1281.6825_wp, 877.8704_wp, 0.0000_wp, 0.0000_wp, &
& 676.0576_wp, 554.7553_wp, 418.5770_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1223.4224_wp, 994.9501_wp, 700.2253_wp, 0.0000_wp, 0.0000_wp, &
& 701.2413_wp, 576.1570_wp, 438.9633_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1410.5904_wp, 1144.8282_wp, 775.3711_wp, 0.0000_wp, 0.0000_wp, &
& 657.4249_wp, 540.4330_wp, 413.0319_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1356.7115_wp, 1101.7061_wp, 749.5017_wp, 0.0000_wp, 0.0000_wp, &
& 671.6274_wp, 551.6661_wp, 418.9527_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1420.7081_wp, 1152.0955_wp, 793.8007_wp, 0.0000_wp, 0.0000_wp, &
& 622.8462_wp, 512.2348_wp, 392.6377_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1389.9934_wp, 1127.1846_wp, 777.1089_wp, 0.0000_wp, 0.0000_wp, &
& 604.6739_wp, 497.3797_wp, 381.6780_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1362.0334_wp, 1104.5493_wp, 762.1858_wp, 0.0000_wp, 0.0000_wp, &
& 601.1260_wp, 494.3750_wp, 379.0154_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1346.9951_wp, 1092.1865_wp, 752.7827_wp, 0.0000_wp, 0.0000_wp, &
& 633.7679_wp, 520.6678_wp, 397.0674_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1122.5706_wp, 912.2947_wp, 640.4061_wp, 0.0000_wp, 0.0000_wp, &
& 580.3983_wp, 477.4382_wp, 366.6356_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1087.6931_wp, 885.8757_wp, 636.8825_wp, 0.0000_wp, 0.0000_wp, &
& 806.7999_wp, 660.0846_wp, 486.4762_wp, 0.0000_wp, 0.0000_wp, &
& 583.6320_wp, 480.7152_wp, 372.0045_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 983.7591_wp, 802.8233_wp, 585.8461_wp, 0.0000_wp, 0.0000_wp, &
& 742.2751_wp, 608.5288_wp, 454.9983_wp, 0.0000_wp, 0.0000_wp, &
& 612.5821_wp, 504.2571_wp, 387.4871_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 824.9615_wp, 674.9099_wp, 498.6775_wp, 0.0000_wp, 0.0000_wp, &
& 671.1764_wp, 551.4629_wp, 418.5134_wp, 0.0000_wp, 0.0000_wp, &
& 563.7671_wp, 465.2997_wp, 363.0985_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 836.3310_wp, 684.5655_wp, 508.5233_wp, 0.0000_wp, 0.0000_wp, &
& 684.5655_wp, 561.4338_wp, 420.7023_wp, 0.0000_wp, 0.0000_wp, &
& 508.5233_wp, 420.7023_wp, 332.1448_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 2851:2945) = reshape([ &
& 43.5027_wp, 35.4646_wp, 29.9597_wp, 0.0000_wp, 0.0000_wp, &
& 70.8024_wp, 56.6567_wp, 46.9793_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 28.3546_wp, 23.8125_wp, 20.7321_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 731.9234_wp, 530.6603_wp, 399.4623_wp, 0.0000_wp, 0.0000_wp, &
& 236.0258_wp, 180.8322_wp, 143.7193_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 407.1646_wp, 310.5224_wp, 245.6049_wp, 0.0000_wp, 0.0000_wp, &
& 299.9565_wp, 231.2409_wp, 184.9738_wp, 0.0000_wp, 0.0000_wp, &
& 192.0317_wp, 152.2648_wp, 125.1034_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 268.7304_wp, 211.4105_wp, 172.4260_wp, 0.0000_wp, 0.0000_wp, &
& 225.1819_wp, 178.3469_wp, 146.4712_wp, 0.0000_wp, 0.0000_wp, &
& 188.3408_wp, 150.1755_wp, 124.1821_wp, 0.0000_wp, 0.0000_wp, &
& 141.6661_wp, 114.8945_wp, 96.5706_wp, 0.0000_wp, 0.0000_wp, &
& 133.1038_wp, 108.2446_wp, 91.2325_wp, 0.0000_wp, 0.0000_wp, &
& 179.0563_wp, 144.2494_wp, 120.4752_wp, 0.0000_wp, 0.0000_wp, &
& 168.0477_wp, 135.3783_wp, 113.1148_wp, 0.0000_wp, 0.0000_wp, &
& 136.2410_wp, 110.8275_wp, 93.4738_wp, 0.0000_wp, 0.0000_wp, &
& 127.5031_wp, 103.7767_wp, 87.6064_wp, 0.0000_wp, 0.0000_wp, &
& 103.4616_wp, 85.3925_wp, 73.0666_wp, 0.0000_wp, 0.0000_wp, &
& 124.0510_wp, 101.7420_wp, 86.5150_wp, 0.0000_wp, 0.0000_wp, &
& 115.6938_wp, 94.9612_wp, 80.8414_wp, 0.0000_wp, 0.0000_wp, &
& 108.5136_wp, 89.2508_wp, 76.1365_wp, 0.0000_wp, 0.0000_wp, &
& 95.4919_wp, 78.7735_wp, 67.4272_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.3597_wp, 77.5536_wp, 66.7983_wp, 0.0000_wp, 0.0000_wp, &
& 83.6227_wp, 69.7080_wp, 60.2626_wp, 0.0000_wp, 0.0000_wp, &
& 73.6427_wp, 61.6676_wp, 53.5641_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.3954_wp, 59.1204_wp, 51.4839_wp, 0.0000_wp, 0.0000_wp, &
& 57.0111_wp, 48.4383_wp, 42.6636_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 53.9642_wp, 45.7205_wp, 40.1666_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 873.3589_wp, 635.3072_wp, 480.0206_wp, 0.0000_wp, 0.0000_wp, &
& 346.3997_wp, 264.1479_wp, 209.0919_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 653.0750_wp, 493.5592_wp, 387.0327_wp, 0.0000_wp, 0.0000_wp, &
& 536.6221_wp, 408.1131_wp, 322.1398_wp, 0.0000_wp, 0.0000_wp, &
& 343.6107_wp, 268.7831_wp, 217.9320_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 595.5628_wp, 457.2124_wp, 364.0853_wp, 0.0000_wp, 0.0000_wp, &
& 538.3855_wp, 414.9465_wp, 331.7452_wp, 0.0000_wp, 0.0000_wp, &
& 415.8526_wp, 324.7873_wp, 263.0472_wp, 0.0000_wp, 0.0000_wp, &
& 320.3875_wp, 254.3721_wp, 209.2591_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 462.6840_wp, 362.8363_wp, 294.9748_wp, 0.0000_wp, 0.0000_wp, &
& 426.7980_wp, 335.7886_wp, 273.8926_wp, 0.0000_wp, 0.0000_wp, &
& 396.1989_wp, 312.6836_wp, 255.8261_wp, 0.0000_wp, 0.0000_wp, &
& 386.7313_wp, 304.6532_wp, 248.8943_wp, 0.0000_wp, 0.0000_wp, &
& 315.0876_wp, 251.7856_wp, 208.4942_wp, 0.0000_wp, 0.0000_wp, &
& 356.7088_wp, 284.9170_wp, 235.8544_wp, 0.0000_wp, 0.0000_wp, &
& 346.1326_wp, 276.6705_wp, 229.2131_wp, 0.0000_wp, 0.0000_wp, &
& 341.7156_wp, 272.8650_wp, 225.8709_wp, 0.0000_wp, 0.0000_wp, &
& 316.0198_wp, 253.5499_wp, 210.8422_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.0021_wp, 237.7045_wp, 199.1859_wp, 0.0000_wp, 0.0000_wp, &
& 290.8263_wp, 235.0860_wp, 196.9631_wp, 0.0000_wp, 0.0000_wp, &
& 284.9183_wp, 230.3770_wp, 193.0829_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 238.6415_wp, 195.2190_wp, 165.5184_wp, 0.0000_wp, 0.0000_wp, &
& 236.2065_wp, 193.1956_wp, 163.7850_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 194.2314_wp, 160.5301_wp, 137.5233_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1439.6620_wp, 1042.0654_wp, 783.9818_wp, 0.0000_wp, 0.0000_wp, &
& 474.2539_wp, 366.5511_wp, 294.5515_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1161.2618_wp, 864.5271_wp, 668.7458_wp, 0.0000_wp, 0.0000_wp, &
& 928.4521_wp, 693.1742_wp, 538.1181_wp, 0.0000_wp, 0.0000_wp, &
& 482.2294_wp, 377.5370_wp, 306.7634_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 954.4533_wp, 715.4332_wp, 557.0378_wp, 0.0000_wp, 0.0000_wp, &
& 468.9565_wp, 368.0285_wp, 299.7987_wp, 0.0000_wp, 0.0000_wp, &
& 460.8387_wp, 363.7522_wp, 297.8485_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 917.4690_wp, 692.4339_wp, 542.8797_wp, 0.0000_wp, 0.0000_wp, &
& 452.5726_wp, 355.5230_wp, 289.8959_wp, 0.0000_wp, 0.0000_wp, &
& 466.3311_wp, 368.3317_wp, 301.8032_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 837.8455_wp, 634.8838_wp, 499.7380_wp, 0.0000_wp, 0.0000_wp, &
& 443.6413_wp, 348.4172_wp, 284.0641_wp, 0.0000_wp, 0.0000_wp, &
& 427.0631_wp, 337.2614_wp, 276.4053_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 659.8204_wp, 500.9367_wp, 395.3965_wp, 0.0000_wp, 0.0000_wp, &
& 440.1655_wp, 345.0165_wp, 280.7986_wp, 0.0000_wp, 0.0000_wp, &
& 319.0595_wp, 255.5753_wp, 212.4988_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 718.5059_wp, 547.6522_wp, 433.5746_wp, 0.0000_wp, 0.0000_wp, &
& 402.3097_wp, 318.3043_wp, 261.2571_wp, 0.0000_wp, 0.0000_wp, &
& 271.5797_wp, 219.4218_wp, 183.9638_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 563.5059_wp, 430.6457_wp, 342.1426_wp, 0.0000_wp, 0.0000_wp, &
& 371.6448_wp, 294.9542_wp, 242.8399_wp, 0.0000_wp, 0.0000_wp, &
& 266.7559_wp, 215.3079_wp, 180.3419_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 593.7533_wp, 456.9650_wp, 365.1785_wp, 0.0000_wp, 0.0000_wp, &
& 354.5582_wp, 281.4541_wp, 231.8089_wp, 0.0000_wp, 0.0000_wp, &
& 315.3464_wp, 251.0341_wp, 207.4367_wp, 0.0000_wp, 0.0000_wp, &
& 279.1748_wp, 224.2702_wp, 186.9721_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 613.3513_wp, 470.0557_wp, 374.0715_wp, 0.0000_wp, 0.0000_wp, &
& 346.8251_wp, 275.1022_wp, 226.4226_wp, 0.0000_wp, 0.0000_wp, &
& 293.0506_wp, 234.1981_wp, 194.2462_wp, 0.0000_wp, 0.0000_wp, &
& 309.4326_wp, 245.2844_wp, 201.9163_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 470.2553_wp, 361.1009_wp, 288.2503_wp, 0.0000_wp, 0.0000_wp, &
& 344.4429_wp, 271.2314_wp, 221.7642_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.5375_wp, 371.6253_wp, 299.5788_wp, 0.0000_wp, 0.0000_wp, &
& 320.1959_wp, 255.4770_wp, 211.3939_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 568.2251_wp, 439.3263_wp, 352.5240_wp, 0.0000_wp, 0.0000_wp, &
& 532.1950_wp, 413.1839_wp, 332.8931_wp, 0.0000_wp, 0.0000_wp, &
& 417.6290_wp, 328.9919_wp, 268.8209_wp, 0.0000_wp, 0.0000_wp, &
& 338.4524_wp, 270.4501_wp, 224.0048_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 495.6146_wp, 389.4139_wp, 317.3118_wp, 0.0000_wp, 0.0000_wp, &
& 462.5042_wp, 364.8336_wp, 298.4387_wp, 0.0000_wp, 0.0000_wp, &
& 439.5686_wp, 347.6776_wp, 285.1573_wp, 0.0000_wp, 0.0000_wp, &
& 392.1894_wp, 312.2814_wp, 257.7898_wp, 0.0000_wp, 0.0000_wp, &
& 344.3352_wp, 276.4784_wp, 230.0687_wp, 0.0000_wp, 0.0000_wp, &
& 418.6892_wp, 333.9602_wp, 276.1337_wp, 0.0000_wp, 0.0000_wp, &
& 411.3669_wp, 328.4253_wp, 271.8145_wp, 0.0000_wp, 0.0000_wp, &
& 400.1807_wp, 319.9987_wp, 265.2513_wp, 0.0000_wp, 0.0000_wp, &
& 384.8920_wp, 308.4982_wp, 256.3005_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 373.5590_wp, 300.8318_wp, 251.1164_wp, 0.0000_wp, 0.0000_wp, &
& 373.7422_wp, 300.9422_wp, 251.1853_wp, 0.0000_wp, 0.0000_wp, &
& 370.7546_wp, 298.6221_wp, 249.3249_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.0694_wp, 264.3845_wp, 222.8746_wp, 0.0000_wp, 0.0000_wp, &
& 327.4317_wp, 266.1757_wp, 224.2814_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 281.3019_wp, 230.8914_wp, 196.4301_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1610.3754_wp, 1169.3798_wp, 882.9290_wp, 0.0000_wp, 0.0000_wp, &
& 564.5516_wp, 438.0962_wp, 353.5225_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1384.8254_wp, 1030.3644_wp, 796.8950_wp, 0.0000_wp, 0.0000_wp, &
& 1131.2913_wp, 843.7177_wp, 654.5233_wp, 0.0000_wp, 0.0000_wp, &
& 577.4594_wp, 452.7634_wp, 368.5810_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1202.1044_wp, 905.5554_wp, 708.8779_wp, 0.0000_wp, 0.0000_wp, &
& 849.3817_wp, 649.4216_wp, 516.1183_wp, 0.0000_wp, 0.0000_wp, &
& 551.6890_wp, 437.1359_wp, 359.3289_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1074.3491_wp, 815.8051_wp, 643.6645_wp, 0.0000_wp, 0.0000_wp, &
& 620.8894_wp, 486.9432_wp, 396.6219_wp, 0.0000_wp, 0.0000_wp, &
& 555.2609_wp, 441.3526_wp, 363.8839_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 976.0842_wp, 745.2646_wp, 591.2478_wp, 0.0000_wp, 0.0000_wp, &
& 627.2065_wp, 491.7044_wp, 400.4358_wp, 0.0000_wp, 0.0000_wp, &
& 537.4630_wp, 426.9773_wp, 352.0085_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 748.9418_wp, 577.5839_wp, 463.0215_wp, 0.0000_wp, 0.0000_wp, &
& 583.5257_wp, 459.2650_wp, 375.4196_wp, 0.0000_wp, 0.0000_wp, &
& 472.4957_wp, 378.8885_wp, 315.2578_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 837.5275_wp, 643.4864_wp, 513.8061_wp, 0.0000_wp, 0.0000_wp, &
& 660.1870_wp, 513.2993_wp, 414.8990_wp, 0.0000_wp, 0.0000_wp, &
& 415.1950_wp, 335.4372_wp, 281.1527_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 633.7886_wp, 492.3082_wp, 397.5557_wp, 0.0000_wp, 0.0000_wp, &
& 505.4933_wp, 401.6241_wp, 331.2590_wp, 0.0000_wp, 0.0000_wp, &
& 391.7261_wp, 317.3701_wp, 266.7522_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 692.6754_wp, 537.5474_wp, 433.4092_wp, 0.0000_wp, 0.0000_wp, &
& 472.6809_wp, 376.0155_wp, 310.5758_wp, 0.0000_wp, 0.0000_wp, &
& 401.2280_wp, 322.4625_wp, 269.0419_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 640.8968_wp, 499.0781_wp, 403.7487_wp, 0.0000_wp, 0.0000_wp, &
& 438.4677_wp, 349.5179_wp, 289.3170_wp, 0.0000_wp, 0.0000_wp, &
& 419.7500_wp, 336.4471_wp, 279.9309_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 535.2869_wp, 416.6444_wp, 337.2914_wp, 0.0000_wp, 0.0000_wp, &
& 424.5823_wp, 337.9858_wp, 279.4279_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 563.1205_wp, 440.4737_wp, 357.9013_wp, 0.0000_wp, 0.0000_wp, &
& 417.9082_wp, 334.9141_wp, 278.4802_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 711.6973_wp, 550.6005_wp, 442.5221_wp, 0.0000_wp, 0.0000_wp, &
& 676.2340_wp, 525.5666_wp, 424.2505_wp, 0.0000_wp, 0.0000_wp, &
& 538.3114_wp, 425.2390_wp, 348.6585_wp, 0.0000_wp, 0.0000_wp, &
& 454.4014_wp, 363.7717_wp, 302.0368_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 652.1135_wp, 510.9494_wp, 415.5054_wp, 0.0000_wp, 0.0000_wp, &
& 606.0646_wp, 477.3501_wp, 390.1441_wp, 0.0000_wp, 0.0000_wp, &
& 584.8506_wp, 461.9058_wp, 378.5160_wp, 0.0000_wp, 0.0000_wp, &
& 524.0042_wp, 417.0826_wp, 344.3376_wp, 0.0000_wp, 0.0000_wp, &
& 471.2941_wp, 378.0575_wp, 314.4361_wp, 0.0000_wp, 0.0000_wp, &
& 576.1075_wp, 457.2859_wp, 376.4785_wp, 0.0000_wp, 0.0000_wp, &
& 563.9701_wp, 448.4532_wp, 369.8447_wp, 0.0000_wp, 0.0000_wp, &
& 547.6530_wp, 436.4869_wp, 360.7756_wp, 0.0000_wp, 0.0000_wp, &
& 527.1341_wp, 421.3693_wp, 349.2565_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 531.7823_wp, 425.5116_wp, 353.0606_wp, 0.0000_wp, 0.0000_wp, &
& 531.2209_wp, 425.2725_wp, 353.0274_wp, 0.0000_wp, 0.0000_wp, &
& 526.6101_wp, 421.9537_wp, 350.5682_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.2557_wp, 386.0410_wp, 323.0585_wp, 0.0000_wp, 0.0000_wp, &
& 482.7801_wp, 389.6303_wp, 326.0059_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 427.8724_wp, 348.2720_wp, 293.8616_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1961.0192_wp, 1425.7528_wp, 1077.7158_wp, 0.0000_wp, 0.0000_wp, &
& 662.7976_wp, 519.4875_wp, 423.0732_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1770.7984_wp, 1313.0562_wp, 1012.4643_wp, 0.0000_wp, 0.0000_wp, &
& 1472.2933_wp, 1093.5492_wp, 844.9341_wp, 0.0000_wp, 0.0000_wp, &
& 697.0822_wp, 548.3161_wp, 447.8627_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1541.6747_wp, 1157.0873_wp, 902.8119_wp, 0.0000_wp, 0.0000_wp, &
& 1076.7583_wp, 821.7967_wp, 651.9975_wp, 0.0000_wp, 0.0000_wp, &
& 719.5979_wp, 568.9397_wp, 466.7368_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 681.7868_wp, 540.1483_wp, 444.1024_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1564.3082_wp, 1164.9532_wp, 902.0595_wp, 0.0000_wp, 0.0000_wp, &
& 660.9048_wp, 524.0238_wp, 431.1843_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1499.8732_wp, 1118.9840_wp, 868.1097_wp, 0.0000_wp, 0.0000_wp, &
& 647.1814_wp, 513.2159_wp, 422.3531_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1461.6315_wp, 1091.0275_wp, 846.8398_wp, 0.0000_wp, 0.0000_wp, &
& 626.4046_wp, 497.0855_wp, 409.3596_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1426.5281_wp, 1065.2955_wp, 827.2036_wp, 0.0000_wp, 0.0000_wp, &
& 630.3137_wp, 499.2316_wp, 410.3809_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1395.3763_wp, 1042.4806_wp, 809.8075_wp, 0.0000_wp, 0.0000_wp, &
& 610.2947_wp, 480.4028_wp, 392.7170_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1086.4242_wp, 823.5136_wp, 649.0921_wp, 0.0000_wp, 0.0000_wp, &
& 634.5170_wp, 502.1659_wp, 412.4420_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1241.3205_wp, 923.3931_wp, 714.7358_wp, 0.0000_wp, 0.0000_wp, &
& 595.3271_wp, 471.9717_wp, 388.3081_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1195.0783_wp, 891.2960_wp, 691.4316_wp, 0.0000_wp, 0.0000_wp, &
& 607.2319_wp, 479.7683_wp, 393.4734_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1255.6728_wp, 940.8581_wp, 732.8892_wp, 0.0000_wp, 0.0000_wp, &
& 564.4220_wp, 448.2099_wp, 369.3169_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1228.7111_wp, 920.9170_wp, 717.5264_wp, 0.0000_wp, 0.0000_wp, &
& 548.1047_wp, 435.5280_wp, 359.0787_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1204.2523_wp, 902.9817_wp, 703.8317_wp, 0.0000_wp, 0.0000_wp, &
& 544.7646_wp, 432.6420_wp, 356.5078_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1190.6528_wp, 892.2274_wp, 694.9935_wp, 0.0000_wp, 0.0000_wp, &
& 573.6203_wp, 454.1700_wp, 373.0784_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 996.3644_wp, 754.1548_wp, 593.2099_wp, 0.0000_wp, 0.0000_wp, &
& 526.1934_wp, 418.2771_wp, 344.9515_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 970.8013_wp, 743.9213_wp, 592.1275_wp, 0.0000_wp, 0.0000_wp, &
& 724.1296_wp, 562.8783_wp, 454.5547_wp, 0.0000_wp, 0.0000_wp, &
& 530.0945_wp, 423.2275_wp, 350.4432_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 881.0938_wp, 680.6818_wp, 546.1310_wp, 0.0000_wp, 0.0000_wp, &
& 668.5188_wp, 523.7538_wp, 426.2356_wp, 0.0000_wp, 0.0000_wp, &
& 555.3892_wp, 441.7879_wp, 364.7046_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 740.9559_wp, 576.5535_wp, 466.1296_wp, 0.0000_wp, 0.0000_wp, &
& 606.6699_wp, 479.2159_wp, 393.1034_wp, 0.0000_wp, 0.0000_wp, &
& 513.0771_wp, 411.6804_wp, 342.7239_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 752.1571_wp, 586.9347_wp, 475.7088_wp, 0.0000_wp, 0.0000_wp, &
& 616.8796_wp, 483.8673_wp, 394.3136_wp, 0.0000_wp, 0.0000_wp, &
& 464.1369_wp, 374.9493_wp, 314.2342_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 678.5278_wp, 533.2555_wp, 435.2044_wp, 0.0000_wp, 0.0000_wp, &
& 533.2555_wp, 426.1903_wp, 353.5038_wp, 0.0000_wp, 0.0000_wp, &
& 435.2044_wp, 353.5038_wp, 297.8338_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 40.1928_wp, 33.5117_wp, 30.2294_wp, 0.0000_wp, 0.0000_wp, &
& 64.9890_wp, 53.3255_wp, 47.7107_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 26.4936_wp, 22.6779_wp, 20.7608_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 649.2225_wp, 491.4721_wp, 426.3638_wp, 0.0000_wp, 0.0000_wp, &
& 213.4644_wp, 168.9331_wp, 148.7741_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 367.6819_wp, 289.8298_wp, 254.7475_wp, 0.0000_wp, 0.0000_wp, &
& 271.8119_wp, 216.2569_wp, 190.9548_wp, 0.0000_wp, 0.0000_wp, &
& 175.7148_wp, 143.0584_wp, 127.5067_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 245.2381_wp, 198.3807_wp, 176.3501_wp, 0.0000_wp, 0.0000_wp, &
& 205.9702_wp, 167.5869_wp, 149.4170_wp, 0.0000_wp, 0.0000_wp, &
& 172.6661_wp, 141.3085_wp, 126.3658_wp, 0.0000_wp, 0.0000_wp, &
& 130.6536_wp, 108.4580_wp, 97.6238_wp, 0.0000_wp, 0.0000_wp, &
& 122.8762_wp, 102.2436_wp, 92.1458_wp, 0.0000_wp, 0.0000_wp, &
& 164.7586_wp, 136.0069_wp, 122.1088_wp, 0.0000_wp, 0.0000_wp, &
& 154.6248_wp, 127.6665_wp, 114.6749_wp, 0.0000_wp, 0.0000_wp, &
& 125.8004_wp, 104.7264_wp, 94.4422_wp, 0.0000_wp, 0.0000_wp, &
& 117.7618_wp, 98.0987_wp, 88.5227_wp, 0.0000_wp, 0.0000_wp, &
& 96.0333_wp, 80.9552_wp, 73.4853_wp, 0.0000_wp, 0.0000_wp, &
& 114.8874_wp, 96.3243_wp, 87.1907_wp, 0.0000_wp, 0.0000_wp, &
& 107.1775_wp, 89.9357_wp, 81.4686_wp, 0.0000_wp, 0.0000_wp, &
& 100.6104_wp, 84.5790_wp, 76.6936_wp, 0.0000_wp, 0.0000_wp, &
& 88.6413_wp, 74.7269_wp, 67.8885_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 86.8793_wp, 73.6634_wp, 67.0913_wp, 0.0000_wp, 0.0000_wp, &
& 77.9194_wp, 66.2743_wp, 60.4749_wp, 0.0000_wp, 0.0000_wp, &
& 68.7481_wp, 58.7162_wp, 53.7135_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 65.7904_wp, 56.3268_wp, 51.5850_wp, 0.0000_wp, 0.0000_wp, &
& 53.5214_wp, 46.2909_wp, 42.6330_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.6159_wp, 43.6773_wp, 40.1846_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 775.6337_wp, 588.8318_wp, 511.4316_wp, 0.0000_wp, 0.0000_wp, &
& 312.8132_wp, 246.6792_wp, 217.0607_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.9487_wp, 460.1061_wp, 403.3963_wp, 0.0000_wp, 0.0000_wp, &
& 484.0716_wp, 380.8614_wp, 334.7856_wp, 0.0000_wp, 0.0000_wp, &
& 312.9994_wp, 251.9665_wp, 223.4506_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 538.9992_wp, 427.2647_wp, 376.5339_wp, 0.0000_wp, 0.0000_wp, &
& 487.8984_wp, 388.0383_wp, 342.4732_wp, 0.0000_wp, 0.0000_wp, &
& 378.5524_wp, 304.4031_wp, 269.9296_wp, 0.0000_wp, 0.0000_wp, &
& 293.3116_wp, 239.0673_wp, 213.1931_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 421.7839_wp, 340.2737_wp, 302.0956_wp, 0.0000_wp, 0.0000_wp, &
& 389.4988_wp, 315.1057_wp, 280.1335_wp, 0.0000_wp, 0.0000_wp, &
& 361.9628_wp, 293.5928_wp, 261.3179_wp, 0.0000_wp, 0.0000_wp, &
& 353.0858_wp, 286.0024_wp, 254.4841_wp, 0.0000_wp, 0.0000_wp, &
& 289.0970_wp, 236.9427_wp, 211.8881_wp, 0.0000_wp, 0.0000_wp, &
& 327.2304_wp, 268.1083_wp, 239.7434_wp, 0.0000_wp, 0.0000_wp, &
& 317.6085_wp, 260.3972_wp, 232.9410_wp, 0.0000_wp, 0.0000_wp, &
& 313.4498_wp, 256.7878_wp, 229.6574_wp, 0.0000_wp, 0.0000_wp, &
& 290.3581_wp, 238.8181_wp, 213.9730_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 270.8551_wp, 224.2493_wp, 201.5855_wp, 0.0000_wp, 0.0000_wp, &
& 267.9114_wp, 221.7788_wp, 199.3618_wp, 0.0000_wp, 0.0000_wp, &
& 262.4983_wp, 217.3574_wp, 195.4229_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 220.7763_wp, 184.6517_wp, 166.8722_wp, 0.0000_wp, 0.0000_wp, &
& 218.5134_wp, 182.7385_wp, 165.1413_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 180.3711_wp, 152.2203_wp, 138.2371_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1275.5198_wp, 965.0626_wp, 838.8447_wp, 0.0000_wp, 0.0000_wp, &
& 430.1964_wp, 343.3431_wp, 304.1340_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 2946:3040) = reshape([ &
& 1039.8993_wp, 804.3806_wp, 703.0610_wp, 0.0000_wp, 0.0000_wp, &
& 831.8752_wp, 645.3069_wp, 565.3470_wp, 0.0000_wp, 0.0000_wp, &
& 439.4127_wp, 354.2005_wp, 314.6586_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 856.7886_wp, 666.3424_wp, 583.4032_wp, 0.0000_wp, 0.0000_wp, &
& 427.6845_wp, 345.4662_wp, 307.2050_wp, 0.0000_wp, 0.0000_wp, &
& 421.0942_wp, 341.7165_wp, 304.4056_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 825.5125_wp, 645.6738_wp, 566.6300_wp, 0.0000_wp, 0.0000_wp, &
& 412.8558_wp, 333.7845_wp, 296.9959_wp, 0.0000_wp, 0.0000_wp, &
& 426.2144_wp, 346.0691_wp, 308.3710_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 754.9193_wp, 592.4083_wp, 520.5585_wp, 0.0000_wp, 0.0000_wp, &
& 404.6864_wp, 327.1273_wp, 291.0741_wp, 0.0000_wp, 0.0000_wp, &
& 390.3055_wp, 316.9361_wp, 282.5278_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 594.8728_wp, 467.7586_wp, 411.7157_wp, 0.0000_wp, 0.0000_wp, &
& 401.2522_wp, 323.8511_wp, 288.0024_wp, 0.0000_wp, 0.0000_wp, &
& 293.0705_wp, 240.9060_wp, 216.0731_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 648.7085_wp, 511.5236_wp, 450.3559_wp, 0.0000_wp, 0.0000_wp, &
& 367.9454_wp, 299.1994_wp, 266.8093_wp, 0.0000_wp, 0.0000_wp, &
& 250.2211_wp, 207.1846_wp, 186.4713_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 509.2181_wp, 402.5927_wp, 355.1396_wp, 0.0000_wp, 0.0000_wp, &
& 340.2672_wp, 277.4241_wp, 247.7087_wp, 0.0000_wp, 0.0000_wp, &
& 245.6967_wp, 203.2695_wp, 182.8801_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 537.8946_wp, 427.5064_wp, 377.5377_wp, 0.0000_wp, 0.0000_wp, &
& 324.6491_wp, 264.7615_wp, 236.4698_wp, 0.0000_wp, 0.0000_wp, &
& 289.0431_wp, 236.3485_wp, 211.4541_wp, 0.0000_wp, 0.0000_wp, &
& 256.7126_wp, 211.5286_wp, 189.9313_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 554.8479_wp, 439.4376_wp, 387.5023_wp, 0.0000_wp, 0.0000_wp, &
& 317.4884_wp, 258.7633_wp, 231.0624_wp, 0.0000_wp, 0.0000_wp, &
& 268.9834_wp, 220.6612_wp, 197.7025_wp, 0.0000_wp, 0.0000_wp, &
& 283.2257_wp, 230.8046_wp, 206.2272_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.6788_wp, 337.8831_wp, 298.5525_wp, 0.0000_wp, 0.0000_wp, &
& 314.5325_wp, 254.8568_wp, 227.0659_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 434.8792_wp, 348.2052_wp, 308.4433_wp, 0.0000_wp, 0.0000_wp, &
& 293.7113_wp, 240.5235_wp, 215.1707_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 515.5051_wp, 411.1836_wp, 363.5410_wp, 0.0000_wp, 0.0000_wp, &
& 483.5090_wp, 386.9891_wp, 342.6407_wp, 0.0000_wp, 0.0000_wp, &
& 381.3209_wp, 308.9063_wp, 274.9323_wp, 0.0000_wp, 0.0000_wp, &
& 310.5641_wp, 254.5731_wp, 227.7320_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 452.1256_wp, 365.4201_wp, 324.8101_wp, 0.0000_wp, 0.0000_wp, &
& 422.4876_wp, 342.5994_wp, 304.9894_wp, 0.0000_wp, 0.0000_wp, &
& 401.9118_wp, 326.6525_wp, 291.0937_wp, 0.0000_wp, 0.0000_wp, &
& 359.4184_wp, 293.7540_wp, 262.4425_wp, 0.0000_wp, 0.0000_wp, &
& 316.4776_wp, 260.4704_wp, 233.4445_wp, 0.0000_wp, 0.0000_wp, &
& 383.9265_wp, 314.2292_wp, 280.9006_wp, 0.0000_wp, 0.0000_wp, &
& 377.3328_wp, 309.0810_wp, 276.4120_wp, 0.0000_wp, 0.0000_wp, &
& 367.2724_wp, 301.2426_wp, 269.5747_wp, 0.0000_wp, 0.0000_wp, &
& 353.5305_wp, 290.5447_wp, 260.2393_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.6833_wp, 283.5975_wp, 254.5338_wp, 0.0000_wp, 0.0000_wp, &
& 343.8376_wp, 283.6992_wp, 254.6202_wp, 0.0000_wp, 0.0000_wp, &
& 341.1245_wp, 281.5326_wp, 252.7124_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 300.1178_wp, 249.7617_wp, 225.1341_wp, 0.0000_wp, 0.0000_wp, &
& 302.2475_wp, 251.4316_wp, 226.5970_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 260.5672_wp, 218.5753_wp, 197.8474_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1428.2493_wp, 1083.6129_wp, 943.1275_wp, 0.0000_wp, 0.0000_wp, &
& 512.7966_wp, 410.6850_wp, 364.4122_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1239.7351_wp, 958.7110_wp, 838.2576_wp, 0.0000_wp, 0.0000_wp, &
& 1013.1095_wp, 785.3791_wp, 688.2347_wp, 0.0000_wp, 0.0000_wp, &
& 526.4372_wp, 424.9597_wp, 377.9017_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1080.8340_wp, 844.2074_wp, 740.7015_wp, 0.0000_wp, 0.0000_wp, &
& 767.3003_wp, 606.9087_wp, 535.7034_wp, 0.0000_wp, 0.0000_wp, &
& 504.7716_wp, 410.9617_wp, 366.6745_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 968.6488_wp, 761.5371_wp, 669.8428_wp, 0.0000_wp, 0.0000_wp, &
& 566.0462_wp, 457.1062_wp, 406.6513_wp, 0.0000_wp, 0.0000_wp, &
& 508.5899_wp, 415.1517_wp, 370.8343_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 881.7101_wp, 696.3562_wp, 613.6915_wp, 0.0000_wp, 0.0000_wp, &
& 571.7793_wp, 461.6166_wp, 410.6367_wp, 0.0000_wp, 0.0000_wp, &
& 492.1917_wp, 401.6831_wp, 358.9272_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 678.8718_wp, 540.7615_wp, 478.5044_wp, 0.0000_wp, 0.0000_wp, &
& 532.6579_wp, 431.4510_wp, 384.4194_wp, 0.0000_wp, 0.0000_wp, &
& 434.1316_wp, 357.1156_wp, 320.3109_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 758.1834_wp, 601.9936_wp, 531.8513_wp, 0.0000_wp, 0.0000_wp, &
& 600.0274_wp, 481.2881_wp, 427.3045_wp, 0.0000_wp, 0.0000_wp, &
& 382.4974_wp, 316.6480_wp, 284.8943_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 575.9452_wp, 461.5865_wp, 409.6105_wp, 0.0000_wp, 0.0000_wp, &
& 462.9870_wp, 377.9550_wp, 337.8747_wp, 0.0000_wp, 0.0000_wp, &
& 361.2481_wp, 299.7835_wp, 270.0538_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 629.2909_wp, 503.7831_wp, 446.5677_wp, 0.0000_wp, 0.0000_wp, &
& 433.1292_wp, 353.9897_wp, 316.6899_wp, 0.0000_wp, 0.0000_wp, &
& 368.9849_wp, 304.1992_wp, 273.2842_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 582.9622_wp, 468.0316_wp, 415.3887_wp, 0.0000_wp, 0.0000_wp, &
& 402.0834_wp, 329.2175_wp, 294.8260_wp, 0.0000_wp, 0.0000_wp, &
& 385.6667_wp, 317.2071_wp, 284.6094_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 486.8131_wp, 390.9201_wp, 347.3619_wp, 0.0000_wp, 0.0000_wp, &
& 389.1870_wp, 318.3105_wp, 284.9424_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 513.0376_wp, 413.4353_wp, 367.5432_wp, 0.0000_wp, 0.0000_wp, &
& 383.9600_wp, 315.6928_wp, 283.0965_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 645.8629_wp, 515.7031_wp, 456.5944_wp, 0.0000_wp, 0.0000_wp, &
& 614.6582_wp, 492.6242_wp, 436.8021_wp, 0.0000_wp, 0.0000_wp, &
& 492.0619_wp, 399.7040_wp, 356.4323_wp, 0.0000_wp, 0.0000_wp, &
& 417.3058_wp, 342.7290_wp, 307.0662_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 594.4049_wp, 479.4837_wp, 426.1263_wp, 0.0000_wp, 0.0000_wp, &
& 553.4201_wp, 448.3620_wp, 399.2246_wp, 0.0000_wp, 0.0000_wp, &
& 534.5550_wp, 434.0633_wp, 386.8735_wp, 0.0000_wp, 0.0000_wp, &
& 480.2351_wp, 392.4836_wp, 350.8096_wp, 0.0000_wp, 0.0000_wp, &
& 433.0981_wp, 356.2581_wp, 319.3501_wp, 0.0000_wp, 0.0000_wp, &
& 527.4681_wp, 430.0608_wp, 383.9393_wp, 0.0000_wp, 0.0000_wp, &
& 516.6717_wp, 421.8885_wp, 376.8983_wp, 0.0000_wp, 0.0000_wp, &
& 502.1230_wp, 410.8007_wp, 367.3108_wp, 0.0000_wp, 0.0000_wp, &
& 483.8028_wp, 396.7809_wp, 355.1613_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 488.2319_wp, 400.7639_wp, 358.8937_wp, 0.0000_wp, 0.0000_wp, &
& 487.7978_wp, 400.5716_wp, 358.7861_wp, 0.0000_wp, 0.0000_wp, &
& 483.7108_wp, 397.5083_wp, 356.1612_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.4247_wp, 364.2070_wp, 327.3161_wp, 0.0000_wp, 0.0000_wp, &
& 444.5640_wp, 367.5765_wp, 330.3159_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 395.1889_wp, 329.1439_wp, 296.8625_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1739.4992_wp, 1321.1273_wp, 1150.6653_wp, 0.0000_wp, 0.0000_wp, &
& 604.0524_wp, 487.6486_wp, 433.9682_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1583.1333_wp, 1221.1564_wp, 1067.3048_wp, 0.0000_wp, 0.0000_wp, &
& 1316.2117_wp, 1017.1183_wp, 890.8274_wp, 0.0000_wp, 0.0000_wp, &
& 636.1508_wp, 514.9544_wp, 458.5810_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1384.2225_wp, 1078.1412_wp, 945.3433_wp, 0.0000_wp, 0.0000_wp, &
& 971.9737_wp, 767.7182_wp, 677.4455_wp, 0.0000_wp, 0.0000_wp, &
& 657.8799_wp, 534.6598_wp, 476.6927_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 623.8114_wp, 507.9202_wp, 453.3541_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1400.6813_wp, 1084.2087_wp, 948.8660_wp, 0.0000_wp, 0.0000_wp, &
& 604.8753_wp, 492.8357_wp, 440.0313_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1343.9514_wp, 1041.8248_wp, 912.1494_wp, 0.0000_wp, 0.0000_wp, &
& 592.3488_wp, 482.6888_wp, 430.9970_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1309.9454_wp, 1015.8802_wp, 889.5297_wp, 0.0000_wp, 0.0000_wp, &
& 573.4718_wp, 467.5827_wp, 417.6269_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1278.6986_wp, 991.9857_wp, 868.6784_wp, 0.0000_wp, 0.0000_wp, &
& 576.6535_wp, 469.4397_wp, 419.0196_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1250.9767_wp, 970.8013_wp, 850.1949_wp, 0.0000_wp, 0.0000_wp, &
& 557.1805_wp, 451.3499_wp, 402.1259_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 978.8704_wp, 768.7768_wp, 676.5056_wp, 0.0000_wp, 0.0000_wp, &
& 580.3452_wp, 472.1095_wp, 421.2203_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1110.6969_wp, 859.3887_wp, 752.8605_wp, 0.0000_wp, 0.0000_wp, &
& 544.8458_wp, 443.8826_wp, 396.3064_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1070.1912_wp, 829.7023_wp, 727.3646_wp, 0.0000_wp, 0.0000_wp, &
& 555.0584_wp, 450.9533_wp, 402.1940_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1126.9388_wp, 876.5581_wp, 768.1729_wp, 0.0000_wp, 0.0000_wp, &
& 516.8575_wp, 421.6450_wp, 376.6519_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1102.8614_wp, 858.0085_wp, 751.9387_wp, 0.0000_wp, 0.0000_wp, &
& 502.0262_wp, 409.7587_wp, 366.1132_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1081.0811_wp, 841.3475_wp, 737.3982_wp, 0.0000_wp, 0.0000_wp, &
& 498.8724_wp, 406.9985_wp, 363.5669_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1068.6460_wp, 831.2323_wp, 728.3640_wp, 0.0000_wp, 0.0000_wp, &
& 524.7340_wp, 426.9698_wp, 380.8951_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 897.2915_wp, 703.6822_wp, 618.6138_wp, 0.0000_wp, 0.0000_wp, &
& 482.0174_wp, 393.5352_wp, 351.6325_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 878.0575_wp, 695.4461_wp, 613.4284_wp, 0.0000_wp, 0.0000_wp, &
& 658.0616_wp, 527.5531_wp, 467.9919_wp, 0.0000_wp, 0.0000_wp, &
& 486.2916_wp, 398.4345_wp, 356.5119_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 799.1686_wp, 637.2233_wp, 563.6353_wp, 0.0000_wp, 0.0000_wp, &
& 609.2192_wp, 491.5980_wp, 437.3090_wp, 0.0000_wp, 0.0000_wp, &
& 508.8223_wp, 415.7277_wp, 371.7081_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 673.7075_wp, 540.5667_wp, 479.6946_wp, 0.0000_wp, 0.0000_wp, &
& 554.4722_wp, 450.4800_wp, 401.9104_wp, 0.0000_wp, 0.0000_wp, &
& 471.5150_wp, 388.0547_wp, 348.1224_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 684.5855_wp, 550.5189_wp, 488.8724_wp, 0.0000_wp, 0.0000_wp, &
& 562.4303_wp, 454.3355_wp, 404.4232_wp, 0.0000_wp, 0.0000_wp, &
& 427.5689_wp, 353.9294_wp, 318.4111_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 619.1148_wp, 500.8242_wp, 445.8927_wp, 0.0000_wp, 0.0000_wp, &
& 489.4058_wp, 401.4889_wp, 359.7045_wp, 0.0000_wp, 0.0000_wp, &
& 401.6971_wp, 334.0595_wp, 301.2116_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 566.0660_wp, 460.1533_wp, 410.5890_wp, 0.0000_wp, 0.0000_wp, &
& 460.1533_wp, 378.4939_wp, 339.5730_wp, 0.0000_wp, 0.0000_wp, &
& 410.5890_wp, 339.5730_wp, 305.5258_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 33.7374_wp, 32.0917_wp, 31.7368_wp, 0.0000_wp, 0.0000_wp, &
& 54.0451_wp, 50.9366_wp, 50.1899_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 22.6550_wp, 21.8338_wp, 21.7064_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 523.2922_wp, 465.2011_wp, 448.1737_wp, 0.0000_wp, 0.0000_wp, &
& 174.6132_wp, 160.6472_wp, 156.8327_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 300.1624_wp, 275.4563_wp, 268.6491_wp, 0.0000_wp, 0.0000_wp, &
& 222.9157_wp, 205.7859_wp, 201.1687_wp, 0.0000_wp, 0.0000_wp, &
& 145.5219_wp, 136.5000_wp, 134.2472_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 202.5408_wp, 189.1485_wp, 185.7195_wp, 0.0000_wp, 0.0000_wp, &
& 170.6556_wp, 159.9284_wp, 157.2466_wp, 0.0000_wp, 0.0000_wp, &
& 143.5317_wp, 134.9708_wp, 132.8868_wp, 0.0000_wp, 0.0000_wp, &
& 109.4040_wp, 103.7977_wp, 102.5451_wp, 0.0000_wp, 0.0000_wp, &
& 103.0421_wp, 97.8898_wp, 96.7591_wp, 0.0000_wp, 0.0000_wp, &
& 137.5762_wp, 130.0701_wp, 128.3281_wp, 0.0000_wp, 0.0000_wp, &
& 129.1835_wp, 122.1108_wp, 120.4733_wp, 0.0000_wp, 0.0000_wp, &
& 105.5920_wp, 100.3012_wp, 99.1426_wp, 0.0000_wp, 0.0000_wp, &
& 98.9287_wp, 93.9793_wp, 92.9010_wp, 0.0000_wp, 0.0000_wp, &
& 81.2363_wp, 77.6997_wp, 77.0124_wp, 0.0000_wp, 0.0000_wp, &
& 96.8658_wp, 92.3710_wp, 91.4441_wp, 0.0000_wp, 0.0000_wp, &
& 90.4456_wp, 86.2655_wp, 85.4113_wp, 0.0000_wp, 0.0000_wp, &
& 85.0197_wp, 81.1635_wp, 80.3878_wp, 0.0000_wp, 0.0000_wp, &
& 75.0883_wp, 71.7624_wp, 71.1120_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 73.8183_wp, 70.7975_wp, 70.2472_wp, 0.0000_wp, 0.0000_wp, &
& 66.3591_wp, 63.7364_wp, 63.2803_wp, 0.0000_wp, 0.0000_wp, &
& 58.7497_wp, 56.5285_wp, 56.1647_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 56.3053_wp, 54.2516_wp, 53.9293_wp, 0.0000_wp, 0.0000_wp, &
& 46.1442_wp, 44.6792_wp, 44.5004_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 43.5930_wp, 42.1499_wp, 41.9574_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 625.9625_wp, 557.6048_wp, 537.6428_wp, 0.0000_wp, 0.0000_wp, &
& 255.7289_wp, 234.5604_wp, 228.7358_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.8535_wp, 437.0099_wp, 425.3166_wp, 0.0000_wp, 0.0000_wp, &
& 395.2401_wp, 361.9867_wp, 352.7890_wp, 0.0000_wp, 0.0000_wp, &
& 257.8921_wp, 240.1040_wp, 235.4609_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.2014_wp, 406.3872_wp, 396.9123_wp, 0.0000_wp, 0.0000_wp, &
& 399.9768_wp, 369.2333_wp, 360.9354_wp, 0.0000_wp, 0.0000_wp, &
& 311.8450_wp, 290.0391_wp, 284.3328_wp, 0.0000_wp, 0.0000_wp, &
& 243.0764_wp, 228.1594_wp, 224.4480_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 347.8817_wp, 324.3237_wp, 318.2285_wp, 0.0000_wp, 0.0000_wp, &
& 321.7183_wp, 300.4531_wp, 295.0071_wp, 0.0000_wp, 0.0000_wp, &
& 299.3564_wp, 280.0395_wp, 275.1421_wp, 0.0000_wp, 0.0000_wp, &
& 291.9288_wp, 272.7791_wp, 267.9011_wp, 0.0000_wp, 0.0000_wp, &
& 240.3103_wp, 226.3141_wp, 222.9268_wp, 0.0000_wp, 0.0000_wp, &
& 271.9872_wp, 256.0743_wp, 252.2194_wp, 0.0000_wp, 0.0000_wp, &
& 264.1091_wp, 248.7407_wp, 245.0309_wp, 0.0000_wp, 0.0000_wp, &
& 260.5907_wp, 245.2806_wp, 241.5709_wp, 0.0000_wp, 0.0000_wp, &
& 241.8740_wp, 228.2377_wp, 225.0027_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 226.4710_wp, 214.5308_wp, 211.8121_wp, 0.0000_wp, 0.0000_wp, &
& 224.0100_wp, 212.1692_wp, 209.4703_wp, 0.0000_wp, 0.0000_wp, &
& 219.5335_wp, 207.9536_wp, 205.3192_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 185.7464_wp, 176.9516_wp, 175.1017_wp, 0.0000_wp, 0.0000_wp, &
& 183.8435_wp, 175.1199_wp, 173.2829_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 152.6567_wp, 146.1166_wp, 144.8625_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1029.9899_wp, 913.8533_wp, 879.7634_wp, 0.0000_wp, 0.0000_wp, &
& 354.1411_wp, 327.1139_wp, 319.9170_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 844.4387_wp, 763.2799_wp, 740.1981_wp, 0.0000_wp, 0.0000_wp, &
& 676.9902_wp, 612.6615_wp, 594.4240_wp, 0.0000_wp, 0.0000_wp, &
& 362.7872_wp, 337.7333_wp, 331.2432_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 696.9272_wp, 632.6433_wp, 614.5128_wp, 0.0000_wp, 0.0000_wp, &
& 353.4845_wp, 329.5050_wp, 323.3413_wp, 0.0000_wp, 0.0000_wp, &
& 348.6671_wp, 326.0813_wp, 320.3679_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 673.0527_wp, 613.4456_wp, 596.8009_wp, 0.0000_wp, 0.0000_wp, &
& 341.4540_wp, 318.4217_wp, 312.5132_wp, 0.0000_wp, 0.0000_wp, &
& 353.0208_wp, 330.2661_wp, 324.5233_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 616.3066_wp, 563.0626_wp, 548.2853_wp, 0.0000_wp, 0.0000_wp, &
& 334.7153_wp, 312.0815_wp, 306.2733_wp, 0.0000_wp, 0.0000_wp, &
& 323.4494_wp, 302.5159_wp, 297.2341_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 486.5216_wp, 444.8235_wp, 433.3107_wp, 0.0000_wp, 0.0000_wp, &
& 331.6965_wp, 308.9151_wp, 303.0374_wp, 0.0000_wp, 0.0000_wp, &
& 244.5597_wp, 230.3970_wp, 227.0237_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.6527_wp, 486.4755_wp, 474.3318_wp, 0.0000_wp, 0.0000_wp, &
& 305.0501_wp, 285.6292_wp, 280.7518_wp, 0.0000_wp, 0.0000_wp, &
& 209.6330_wp, 198.3651_wp, 195.7919_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 417.4314_wp, 383.1213_wp, 373.7574_wp, 0.0000_wp, 0.0000_wp, &
& 282.5056_wp, 264.9478_wp, 260.5865_wp, 0.0000_wp, 0.0000_wp, &
& 205.7658_wp, 194.6013_wp, 192.0365_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.4021_wp, 406.9549_wp, 397.6543_wp, 0.0000_wp, 0.0000_wp, &
& 269.6338_wp, 252.8828_wp, 248.7264_wp, 0.0000_wp, 0.0000_wp, &
& 240.5449_wp, 225.8799_wp, 222.2868_wp, 0.0000_wp, 0.0000_wp, &
& 214.5085_wp, 202.3866_wp, 199.5323_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 454.6295_wp, 418.1348_wp, 408.1971_wp, 0.0000_wp, 0.0000_wp, &
& 263.6322_wp, 247.1432_wp, 243.0407_wp, 0.0000_wp, 0.0000_wp, &
& 224.2160_wp, 210.9851_wp, 207.7935_wp, 0.0000_wp, 0.0000_wp, &
& 235.3968_wp, 220.5141_wp, 216.8140_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 349.5803_wp, 321.7223_wp, 314.1878_wp, 0.0000_wp, 0.0000_wp, &
& 260.5785_wp, 243.2710_wp, 238.8650_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.0126_wp, 331.7749_wp, 324.8266_wp, 0.0000_wp, 0.0000_wp, &
& 244.3721_wp, 229.8439_wp, 226.3043_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 423.4292_wp, 391.4844_wp, 382.9350_wp, 0.0000_wp, 0.0000_wp, &
& 397.7391_wp, 368.6028_wp, 360.8797_wp, 0.0000_wp, 0.0000_wp, &
& 315.4011_wp, 294.6746_wp, 289.3931_wp, 0.0000_wp, 0.0000_wp, &
& 258.2995_wp, 243.2102_wp, 239.5577_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 373.4298_wp, 348.4417_wp, 342.0210_wp, 0.0000_wp, 0.0000_wp, &
& 349.5160_wp, 326.8247_wp, 321.0664_wp, 0.0000_wp, 0.0000_wp, &
& 332.8663_wp, 311.7083_wp, 306.3878_wp, 0.0000_wp, 0.0000_wp, &
& 298.4947_wp, 280.5244_wp, 276.1151_wp, 0.0000_wp, 0.0000_wp, &
& 263.7482_wp, 248.9720_wp, 245.4740_wp, 0.0000_wp, 0.0000_wp, &
& 319.0409_wp, 300.1211_wp, 295.5118_wp, 0.0000_wp, 0.0000_wp, &
& 313.7040_wp, 295.2402_wp, 290.7602_wp, 0.0000_wp, 0.0000_wp, &
& 305.5560_wp, 287.8078_wp, 283.5308_wp, 0.0000_wp, 0.0000_wp, &
& 294.4216_wp, 277.6631_wp, 273.6669_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 286.8703_wp, 271.1885_wp, 267.5378_wp, 0.0000_wp, 0.0000_wp, &
& 286.9945_wp, 271.2851_wp, 267.6261_wp, 0.0000_wp, 0.0000_wp, &
& 284.7786_wp, 269.2265_wp, 265.6099_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 251.7482_wp, 239.1551_wp, 236.3913_wp, 0.0000_wp, 0.0000_wp, &
& 253.4816_wp, 240.7411_wp, 237.9360_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 219.6552_wp, 209.5788_wp, 207.5157_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1154.7638_wp, 1026.5038_wp, 988.9746_wp, 0.0000_wp, 0.0000_wp, &
& 422.9019_wp, 391.4685_wp, 383.1834_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3041:3135) = reshape([ &
& 1007.0623_wp, 909.7880_wp, 882.1252_wp, 0.0000_wp, 0.0000_wp, &
& 824.6609_wp, 745.6637_wp, 723.2477_wp, 0.0000_wp, 0.0000_wp, &
& 435.1078_wp, 405.3197_wp, 397.6511_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.9993_wp, 801.9793_wp, 779.8715_wp, 0.0000_wp, 0.0000_wp, &
& 629.1605_wp, 577.4945_wp, 563.3746_wp, 0.0000_wp, 0.0000_wp, &
& 418.6696_wp, 392.3386_wp, 385.7720_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 791.5544_wp, 723.9927_wp, 705.3252_wp, 0.0000_wp, 0.0000_wp, &
& 468.0246_wp, 436.0158_wp, 427.7857_wp, 0.0000_wp, 0.0000_wp, &
& 422.3535_wp, 396.4686_wp, 390.0863_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 721.9340_wp, 662.4090_wp, 646.1200_wp, 0.0000_wp, 0.0000_wp, &
& 472.7643_wp, 440.3304_wp, 431.9942_wp, 0.0000_wp, 0.0000_wp, &
& 408.9156_wp, 383.6596_wp, 377.4280_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 558.2389_wp, 515.0442_wp, 503.4771_wp, 0.0000_wp, 0.0000_wp, &
& 441.1961_wp, 411.7628_wp, 404.2779_wp, 0.0000_wp, 0.0000_wp, &
& 362.2168_wp, 341.4967_wp, 336.5858_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 622.4222_wp, 573.0904_wp, 559.7588_wp, 0.0000_wp, 0.0000_wp, &
& 495.1176_wp, 458.8333_wp, 449.2979_wp, 0.0000_wp, 0.0000_wp, &
& 320.2724_wp, 303.0984_wp, 299.1785_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 475.0715_wp, 440.0378_wp, 430.8148_wp, 0.0000_wp, 0.0000_wp, &
& 384.9146_wp, 361.0935_wp, 355.2228_wp, 0.0000_wp, 0.0000_wp, &
& 302.9243_wp, 287.0770_wp, 283.5165_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 518.4595_wp, 480.1081_wp, 469.9681_wp, 0.0000_wp, 0.0000_wp, &
& 360.4173_wp, 338.2908_wp, 332.8653_wp, 0.0000_wp, 0.0000_wp, &
& 308.4915_wp, 291.0874_wp, 287.0077_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 480.9389_wp, 446.2157_wp, 437.1117_wp, 0.0000_wp, 0.0000_wp, &
& 334.9854_wp, 314.7313_wp, 309.8062_wp, 0.0000_wp, 0.0000_wp, &
& 321.9839_wp, 303.4215_wp, 299.0109_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 402.1915_wp, 372.8639_wp, 365.1892_wp, 0.0000_wp, 0.0000_wp, &
& 324.1240_wp, 304.2865_wp, 299.4363_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 424.0390_wp, 394.3855_wp, 386.6993_wp, 0.0000_wp, 0.0000_wp, &
& 320.3640_wp, 301.9254_wp, 297.5281_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 531.4442_wp, 491.2916_wp, 480.5848_wp, 0.0000_wp, 0.0000_wp, &
& 506.5442_wp, 469.5087_wp, 459.7362_wp, 0.0000_wp, 0.0000_wp, &
& 407.9840_wp, 381.5949_wp, 374.9395_wp, 0.0000_wp, 0.0000_wp, &
& 347.7941_wp, 327.6646_wp, 322.8342_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 491.0109_wp, 457.2796_wp, 448.5530_wp, 0.0000_wp, 0.0000_wp, &
& 458.0796_wp, 427.8357_wp, 420.1303_wp, 0.0000_wp, 0.0000_wp, &
& 442.9323_wp, 414.3111_wp, 407.0826_wp, 0.0000_wp, 0.0000_wp, &
& 399.1543_wp, 374.9396_wp, 368.9891_wp, 0.0000_wp, 0.0000_wp, &
& 361.1221_wp, 340.6257_wp, 335.7488_wp, 0.0000_wp, 0.0000_wp, &
& 437.8209_wp, 410.6777_wp, 403.9370_wp, 0.0000_wp, 0.0000_wp, &
& 429.1725_wp, 402.9521_wp, 396.4838_wp, 0.0000_wp, 0.0000_wp, &
& 417.4805_wp, 392.4608_wp, 386.3437_wp, 0.0000_wp, 0.0000_wp, &
& 402.7283_wp, 379.1885_wp, 373.5016_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 406.6185_wp, 383.0432_wp, 377.3761_wp, 0.0000_wp, 0.0000_wp, &
& 406.3348_wp, 382.8777_wp, 377.2513_wp, 0.0000_wp, 0.0000_wp, &
& 403.0774_wp, 379.9862_wp, 374.4693_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 368.2592_wp, 348.4721_wp, 343.9165_wp, 0.0000_wp, 0.0000_wp, &
& 371.6810_wp, 351.6847_wp, 347.0768_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 331.7904_wp, 315.2717_wp, 311.6576_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1407.1724_wp, 1251.6079_wp, 1206.0907_wp, 0.0000_wp, 0.0000_wp, &
& 499.5938_wp, 465.1620_wp, 456.3166_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1285.4322_wp, 1158.6040_wp, 1122.4006_wp, 0.0000_wp, 0.0000_wp, &
& 1070.6911_wp, 965.4054_wp, 935.3464_wp, 0.0000_wp, 0.0000_wp, &
& 526.5538_wp, 491.3347_wp, 482.3648_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1127.5157_wp, 1023.9496_wp, 994.8411_wp, 0.0000_wp, 0.0000_wp, &
& 796.7001_wp, 730.4054_wp, 712.2258_wp, 0.0000_wp, 0.0000_wp, &
& 545.1997_wp, 510.2993_wp, 501.5388_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.6857_wp, 485.0019_wp, 476.8525_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1138.8994_wp, 1029.1720_wp, 997.9976_wp, 0.0000_wp, 0.0000_wp, &
& 502.1510_wp, 470.6459_wp, 462.8127_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1093.2462_wp, 989.0920_wp, 959.5883_wp, 0.0000_wp, 0.0000_wp, &
& 491.7873_wp, 460.9666_wp, 453.3077_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1065.7050_wp, 964.5004_wp, 935.8510_wp, 0.0000_wp, 0.0000_wp, &
& 476.2653_wp, 446.5800_wp, 439.2217_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1040.3742_wp, 941.8445_wp, 913.9673_wp, 0.0000_wp, 0.0000_wp, &
& 478.5731_wp, 448.2662_wp, 440.7009_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1017.9032_wp, 921.7584_wp, 894.5700_wp, 0.0000_wp, 0.0000_wp, &
& 461.5352_wp, 430.7861_wp, 422.9652_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 800.3534_wp, 731.0021_wp, 711.8073_wp, 0.0000_wp, 0.0000_wp, &
& 481.4012_wp, 450.7526_wp, 443.0797_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 903.9594_wp, 815.9256_wp, 790.8786_wp, 0.0000_wp, 0.0000_wp, &
& 452.3075_wp, 423.9004_wp, 416.8327_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 871.5845_wp, 787.9003_wp, 764.1379_wp, 0.0000_wp, 0.0000_wp, &
& 460.2517_wp, 430.5125_wp, 423.0265_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 917.6041_wp, 832.4693_wp, 808.4844_wp, 0.0000_wp, 0.0000_wp, &
& 429.3170_wp, 402.7253_wp, 396.1468_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 898.0272_wp, 814.8639_wp, 791.4415_wp, 0.0000_wp, 0.0000_wp, &
& 417.0965_wp, 391.3978_wp, 385.0543_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.3643_wp, 799.0629_wp, 776.1770_wp, 0.0000_wp, 0.0000_wp, &
& 414.3742_wp, 388.7344_wp, 382.3922_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 870.0367_wp, 789.4020_wp, 766.6821_wp, 0.0000_wp, 0.0000_wp, &
& 435.2009_wp, 407.6366_wp, 400.7381_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 732.9185_wp, 668.9222_wp, 651.1339_wp, 0.0000_wp, 0.0000_wp, &
& 400.4829_wp, 375.9010_wp, 369.8397_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 719.5752_wp, 661.7144_wp, 645.9768_wp, 0.0000_wp, 0.0000_wp, &
& 542.4547_wp, 502.7757_wp, 492.3189_wp, 0.0000_wp, 0.0000_wp, &
& 404.6020_wp, 380.7018_wp, 374.9110_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 656.8212_wp, 606.8234_wp, 593.4520_wp, 0.0000_wp, 0.0000_wp, &
& 503.7015_wp, 468.9124_wp, 459.9399_wp, 0.0000_wp, 0.0000_wp, &
& 423.0185_wp, 397.1454_wp, 390.7926_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 555.6297_wp, 515.2852_wp, 504.6950_wp, 0.0000_wp, 0.0000_wp, &
& 459.9210_wp, 430.0889_wp, 422.5902_wp, 0.0000_wp, 0.0000_wp, &
& 393.4797_wp, 371.0990_wp, 365.8082_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 565.0264_wp, 524.8881_wp, 514.4186_wp, 0.0000_wp, 0.0000_wp, &
& 465.3898_wp, 433.4852_wp, 425.2910_wp, 0.0000_wp, 0.0000_wp, &
& 357.9714_wp, 338.7713_wp, 334.3868_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 512.4269_wp, 477.8907_wp, 469.0617_wp, 0.0000_wp, 0.0000_wp, &
& 407.8571_wp, 383.8231_wp, 378.0364_wp, 0.0000_wp, 0.0000_wp, &
& 337.1885_wp, 319.9818_wp, 316.1756_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 469.6664_wp, 439.3887_wp, 431.7911_wp, 0.0000_wp, 0.0000_wp, &
& 384.1033_wp, 362.0121_wp, 356.7672_wp, 0.0000_wp, 0.0000_wp, &
& 343.8525_wp, 325.0787_wp, 320.7626_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 391.1448_wp, 367.1687_wp, 361.3108_wp, 0.0000_wp, 0.0000_wp, &
& 367.1687_wp, 346.3610_wp, 341.4644_wp, 0.0000_wp, 0.0000_wp, &
& 361.3108_wp, 341.4644_wp, 336.8727_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 31.6431_wp, 30.6757_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.5086_wp, 48.6478_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 21.4057_wp, 20.9410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.7120_wp, 446.1908_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 162.1342_wp, 153.5237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 278.4874_wp, 263.2230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 207.1831_wp, 196.6570_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 135.7863_wp, 130.3449_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 188.7859_wp, 180.6582_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 159.2635_wp, 152.7829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 134.1189_wp, 128.9734_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 102.5201_wp, 99.2050_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 96.6130_wp, 93.5748_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 128.7843_wp, 124.3133_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 120.9485_wp, 116.7335_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 99.0454_wp, 95.9227_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 92.8272_wp, 89.9052_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 76.4282_wp, 74.3763_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.0210_wp, 88.3915_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 85.0146_wp, 82.5698_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 79.9625_wp, 77.7115_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.6910_wp, 68.7538_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 69.5772_wp, 67.8372_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 62.6008_wp, 61.0971_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 55.5020_wp, 54.2352_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 53.2258_wp, 52.0610_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 43.7468_wp, 42.9339_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 41.3166_wp, 40.5092_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 577.7550_wp, 534.8076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 237.4044_wp, 224.3164_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 443.8491_wp, 417.8850_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 366.7017_wp, 346.1262_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 240.1781_wp, 229.3401_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 409.7864_wp, 388.3446_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 371.7210_wp, 352.8244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 290.3777_wp, 277.0789_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 226.8850_wp, 217.8961_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 324.0925_wp, 309.7648_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 299.8858_wp, 286.9806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 279.1827_wp, 267.4853_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 272.2192_wp, 260.6047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 224.5609_wp, 216.1705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.1496_wp, 244.6055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 246.8308_wp, 237.6179_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.5211_wp, 234.3332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 226.2053_wp, 218.0572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.1039_wp, 205.0205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 209.7998_wp, 202.7728_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 205.6260_wp, 198.7551_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 174.3808_wp, 169.2271_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 172.5955_wp, 167.4819_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 143.6486_wp, 139.8632_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 950.6218_wp, 877.5783_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 329.6471_wp, 313.0324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 781.6044_wp, 730.9466_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 627.0853_wp, 586.9804_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 338.1275_wp, 322.8524_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 645.5750_wp, 605.5453_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 329.5985_wp, 315.0011_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.3386_wp, 311.6484_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 624.0693_wp, 587.0474_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 318.4619_wp, 304.4479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 329.4445_wp, 315.6575_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 571.7746_wp, 538.7579_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 312.1873_wp, 298.4115_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 301.9116_wp, 289.2216_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 451.6799_wp, 425.8343_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 309.3075_wp, 295.4222_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 228.9026_wp, 220.4032_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 492.7268_wp, 465.4003_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 284.8018_wp, 273.0455_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 196.5204_wp, 189.8099_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 387.9196_wp, 366.7116_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 263.9035_wp, 253.2986_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 192.8714_wp, 186.2152_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 410.4068_wp, 389.1957_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 251.9151_wp, 241.7970_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 224.9175_wp, 216.0720_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 200.8940_wp, 193.6361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 422.4478_wp, 399.9289_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 246.2902_wp, 236.3233_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 209.7881_wp, 201.8322_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 219.9967_wp, 210.9862_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.1198_wp, 307.9352_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.2204_wp, 232.6981_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 333.3177_wp, 317.2387_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 228.4785_wp, 219.7411_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 393.8227_wp, 374.2118_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.1517_wp, 352.3067_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.1677_wp, 281.5915_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 241.4385_wp, 232.3862_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.0922_wp, 332.9066_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 326.0072_wp, 312.2554_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 310.6148_wp, 297.8170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 278.8419_wp, 268.0292_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 246.7174_wp, 237.8926_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 298.1013_wp, 286.7352_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.1656_wp, 282.0818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 285.6294_wp, 274.9895_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 275.3299_wp, 265.3045_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 268.5000_wp, 259.1584_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 268.6145_wp, 259.2551_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 266.5585_wp, 257.2948_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 236.0765_wp, 228.6485_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 237.6832_wp, 230.1639_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 206.3756_wp, 200.4929_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1066.3289_wp, 985.7235_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 393.9288_wp, 374.6446_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 932.2055_wp, 871.4755_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 763.8853_wp, 714.6170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 405.6895_wp, 387.5404_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 816.7465_wp, 767.6316_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 584.6353_wp, 552.7272_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 390.9131_wp, 374.9956_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 734.6152_wp, 692.7566_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 436.4322_wp, 416.9363_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 394.5421_wp, 378.9334_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 670.5517_wp, 633.7593_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.8597_wp, 421.0958_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 382.0500_wp, 366.8070_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 519.4100_wp, 492.8290_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 411.7136_wp, 393.8195_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 338.9881_wp, 326.5738_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 578.7461_wp, 548.3376_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 461.3026_wp, 439.0720_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 300.1539_wp, 289.9329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 442.5921_wp, 421.1084_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 359.7427_wp, 345.3564_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 284.0633_wp, 274.6562_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.8089_wp, 459.2862_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 336.9714_wp, 323.6165_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 288.9578_wp, 278.5389_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 448.1216_wp, 426.8634_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 313.3483_wp, 301.1391_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 301.4373_wp, 290.3004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 374.9486_wp, 356.9743_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 303.1555_wp, 291.1810_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 395.4149_wp, 377.3049_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 299.8626_wp, 288.8038_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 494.6536_wp, 469.9893_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 471.7748_wp, 449.0836_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 380.9134_wp, 364.9131_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.3871_wp, 313.3121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 457.7529_wp, 437.1946_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 427.3948_wp, 409.0265_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 413.4353_wp, 396.0864_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 373.0290_wp, 358.4386_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 337.9078_wp, 325.6411_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 408.9427_wp, 392.5551_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 400.9781_wp, 385.1704_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 390.1975_wp, 375.1424_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 376.5850_wp, 362.4562_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 380.2911_wp, 366.1526_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 380.0529_wp, 365.9920_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 377.0592_wp, 363.2286_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 344.9408_wp, 333.1695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.1308_wp, 336.2337_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 311.2700_wp, 301.5272_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3136:3230) = reshape([ &
& 1299.5975_wp, 1201.8793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 465.8805_wp, 444.8947_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1189.5405_wp, 1110.2792_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 991.3919_wp, 925.6464_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 491.2122_wp, 469.7999_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1044.8996_wp, 980.4416_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 740.1675_wp, 699.1904_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 508.8669_wp, 487.7354_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 483.4831_wp, 463.7125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1054.6339_wp, 986.1407_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 469.0422_wp, 449.9954_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1012.5735_wp, 947.5980_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 459.3763_wp, 440.7449_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 987.1216_wp, 923.9968_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 444.9332_wp, 426.9974_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 963.7021_wp, 902.2547_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 446.9626_wp, 428.6243_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 942.9274_wp, 882.9759_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 430.7311_wp, 412.0345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 742.9192_wp, 699.9058_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.5181_wp, 430.9649_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 837.2921_wp, 782.3247_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 422.4876_wp, 405.3113_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 807.5421_wp, 755.3330_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 429.7027_wp, 411.6745_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 850.2954_wp, 797.2622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 401.1039_wp, 385.0469_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 832.1718_wp, 780.3720_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.7237_wp, 374.2138_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 815.8376_wp, 765.2056_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 387.1422_wp, 371.6619_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 806.1903_wp, 755.9627_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 406.3595_wp, 389.6824_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 680.0731_wp, 640.3593_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 374.2039_wp, 359.3743_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 668.6200_wp, 632.9202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 505.2037_wp, 480.9034_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 378.2426_wp, 363.8829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 611.0386_wp, 580.3136_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 469.6866_wp, 448.4784_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 395.3275_wp, 379.7275_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.6083_wp, 492.9048_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 429.4276_wp, 411.3373_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 368.2721_wp, 354.8716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.5370_wp, 502.0034_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 434.1130_wp, 414.6705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 335.4685_wp, 324.0420_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.0672_wp, 457.0488_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 381.5405_wp, 367.0954_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 316.3149_wp, 306.1309_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 438.6083_wp, 420.2519_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 359.5554_wp, 346.3075_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 322.2840_wp, 311.0844_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 365.8247_wp, 351.3507_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.8562_wp, 331.3946_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 338.5478_wp, 326.7014_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 342.3526_wp, 329.1138_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 329.1138_wp, 317.1561_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 32.6475_wp, 29.9203_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 52.0547_wp, 47.1662_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 22.0837_wp, 20.5852_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 487.4020_wp, 413.1061_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 166.0489_wp, 146.2575_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 285.0617_wp, 250.3021_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.3132_wp, 187.7979_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 139.8351_wp, 125.9710_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 194.1615_wp, 174.0294_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 163.8820_wp, 147.5240_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 138.0677_wp, 124.8168_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 105.7384_wp, 96.6002_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 99.6561_wp, 91.1930_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 132.7317_wp, 120.7605_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.5951_wp, 113.3605_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 102.1266_wp, 93.4628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 95.6853_wp, 87.5930_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 78.8500_wp, 72.7832_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.8836_wp, 86.3382_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 87.6490_wp, 80.6471_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 82.4540_wp, 75.9482_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 72.8677_wp, 67.2293_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 71.7760_wp, 66.4937_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 64.5552_wp, 59.9313_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 57.2328_wp, 53.2556_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 54.9023_wp, 51.1702_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 45.1205_wp, 42.3195_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 42.6085_wp, 39.8974_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 583.7960_wp, 496.0003_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 242.7919_wp, 213.1668_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 453.3596_wp, 395.6174_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 374.8552_wp, 328.5343_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 246.9009_wp, 220.4740_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 419.8384_wp, 370.2981_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 381.0590_wp, 336.9822_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 298.3006_wp, 266.1165_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 233.6927_wp, 210.6925_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 333.2167_wp, 298.0483_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 308.4263_wp, 276.4586_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 287.2476_wp, 257.9876_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 279.9239_wp, 251.1154_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 231.4100_wp, 209.4860_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 261.8584_wp, 236.9831_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.3128_wp, 230.2585_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 250.8427_wp, 226.9709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 233.1364_wp, 211.5777_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 218.7185_wp, 199.4350_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 216.3253_wp, 197.2252_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.0159_wp, 193.3290_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 179.9124_wp, 165.2099_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 178.0605_wp, 163.4921_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 148.2325_wp, 136.9373_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 957.3617_wp, 810.5040_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 337.3335_wp, 298.8719_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 794.6585_wp, 686.3343_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 637.1112_wp, 551.4220_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 347.2100_wp, 310.2090_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 657.5917_wp, 570.6352_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 338.5478_wp, 302.9513_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 334.5310_wp, 300.4649_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 636.5210_wp, 554.9678_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.0770_wp, 292.8646_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 338.7741_wp, 304.4029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 583.6657_wp, 510.2800_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 320.6012_wp, 287.0169_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 310.3353_wp, 278.8184_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 460.8509_wp, 403.4450_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 317.5149_wp, 283.8953_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 235.5559_wp, 213.5220_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 503.5540_wp, 441.9908_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 292.9177_wp, 263.4745_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 202.4020_wp, 184.4413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 396.2999_wp, 348.4756_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 271.5075_wp, 244.6952_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 198.6237_wp, 180.8840_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 420.2552_wp, 371.2655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 259.1382_wp, 233.5761_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 231.3250_wp, 208.8699_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 206.8147_wp, 187.7962_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 432.2741_wp, 380.8039_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 253.3149_wp, 228.2128_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 215.8792_wp, 195.3965_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 226.0929_wp, 203.5907_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 332.4340_wp, 293.2422_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.8231_wp, 224.0178_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 341.8710_wp, 303.8144_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 235.2469_wp, 212.7224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.7059_wp, 357.7557_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 379.7092_wp, 337.4141_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 302.4340_wp, 271.3018_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 248.7334_wp, 225.1561_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 357.8455_wp, 320.4732_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 335.3045_wp, 301.0502_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 319.5808_wp, 287.4267_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 287.1270_wp, 259.3347_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.3020_wp, 230.8926_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 307.0371_wp, 277.6226_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 301.9723_wp, 273.2027_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.2547_wp, 266.4833_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 283.7181_wp, 257.3184_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 276.7697_wp, 251.7520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 276.8778_wp, 251.8306_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.7593_wp, 249.9470_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.4960_wp, 222.8236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 245.1411_wp, 224.2620_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.9356_wp, 195.9211_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1074.4128_wp, 911.7498_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.2645_wp, 358.2372_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 947.2011_wp, 817.7856_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 775.5046_wp, 670.7266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 416.4974_wp, 372.4749_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 832.4222_wp, 724.8642_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 596.9445_wp, 525.1179_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 402.0942_wp, 362.0333_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 749.9824_wp, 656.6420_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 447.9663_wp, 400.7170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 406.0045_wp, 366.2855_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 685.2385_wp, 602.1863_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 452.4761_wp, 404.6484_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 392.9405_wp, 354.3780_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 531.4562_wp, 470.1749_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 422.7191_wp, 378.9707_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.9752_wp, 316.5633_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 591.9216_wp, 522.3659_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 472.4233_wp, 420.2161_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 309.1950_wp, 281.7677_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 453.2802_wp, 402.9111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 369.8952_wp, 333.5982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 292.6744_wp, 267.1668_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 494.7186_wp, 439.4643_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.4526_wp, 312.6922_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 297.3762_wp, 270.1130_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 459.4282_wp, 409.0280_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 322.1884_wp, 291.1622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 310.1954_wp, 281.2884_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.9518_wp, 341.7312_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 311.6354_wp, 281.3753_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 405.6607_wp, 362.1982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 308.7059_wp, 279.9099_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.6451_wp, 449.1510_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 483.6313_wp, 430.0395_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 391.4931_wp, 351.7891_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 335.0765_wp, 303.6328_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 470.0850_wp, 420.2043_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 439.2375_wp, 393.9527_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.0605_wp, 381.9067_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.9269_wp, 346.6558_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.1233_wp, 315.8629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 420.7932_wp, 379.2822_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 412.6887_wp, 372.3997_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 401.7099_wp, 363.0226_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 387.8415_wp, 351.1370_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 391.6740_wp, 354.8294_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 391.4533_wp, 354.7399_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 388.4099_wp, 352.1763_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 355.5497_wp, 323.8510_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.8383_wp, 326.8151_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 321.0251_wp, 293.8935_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1309.2921_wp, 1112.0309_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 477.8859_wp, 427.3067_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1207.0341_wp, 1039.6919_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1004.8014_wp, 866.5517_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 504.4111_wp, 452.0452_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1063.6276_wp, 923.8952_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 755.2487_wp, 663.5595_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 523.2255_wp, 470.4486_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 497.1530_wp, 447.5622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1071.2093_wp, 925.4171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.3451_wp, 434.4508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1029.0835_wp, 890.1694_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 472.4123_wp, 425.5424_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1003.3846_wp, 868.2533_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 457.5914_wp, 412.3737_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 979.7232_wp, 848.0353_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 459.5280_wp, 413.6180_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 958.7397_wp, 830.1171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 442.3207_wp, 396.5565_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 757.5631_wp, 662.4939_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 462.1640_wp, 415.7879_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 849.2266_wp, 733.1480_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 434.4639_wp, 391.2942_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 819.5261_wp, 708.7240_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.5957_wp, 396.8572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 865.2963_wp, 750.7154_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 412.5907_wp, 371.9846_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 846.9485_wp, 734.9381_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 400.9238_wp, 361.6111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 830.4419_wp, 720.8310_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 398.2465_wp, 359.0755_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 820.5356_wp, 711.9240_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 417.9202_wp, 376.0903_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3231:3325) = reshape([ &
& 693.5479_wp, 605.8680_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 385.0072_wp, 347.3425_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 683.9195_wp, 602.4838_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.6710_wp, 460.3936_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.4352_wp, 352.3223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 625.9201_wp, 554.3723_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 481.8850_wp, 430.7588_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 406.6133_wp, 367.0120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.5169_wp, 472.1102_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.1250_wp, 396.3937_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 379.1672_wp, 344.0826_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.0504_wp, 481.4776_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 445.3947_wp, 398.4304_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 345.5856_wp, 314.9179_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.8531_wp, 439.6238_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 392.5934_wp, 355.3847_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 326.0031_wp, 298.0611_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 450.6821_wp, 405.1454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.0382_wp, 335.5948_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 331.7824_wp, 302.0645_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 376.0096_wp, 339.4738_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 353.9070_wp, 321.3306_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.6035_wp, 317.1922_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 351.9350_wp, 318.2699_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 338.6457_wp, 307.4710_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 362.0755_wp, 327.8549_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 327.8549_wp, 298.8616_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 45.5659_wp, 45.6578_wp, 37.6407_wp, 34.0440_wp, 0.0000_wp, &
& 74.8817_wp, 74.8265_wp, 60.4792_wp, 54.1121_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.3832_wp, 29.5289_wp, 25.0875_wp, 23.0696_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 841.5620_wp, 818.9371_wp, 584.8796_wp, 489.8797_wp, 0.0000_wp, &
& 257.3823_wp, 254.7991_wp, 195.8113_wp, 170.5218_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 445.0990_wp, 440.3147_wp, 336.7292_wp, 292.4030_wp, 0.0000_wp, &
& 326.1068_wp, 323.0933_wp, 249.8440_wp, 218.3876_wp, 0.0000_wp, &
& 204.1814_wp, 203.7192_wp, 163.0325_wp, 145.0784_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 287.4346_wp, 286.2525_wp, 226.9393_wp, 200.9621_wp, 0.0000_wp, &
& 240.0000_wp, 239.2545_wp, 191.0352_wp, 169.8480_wp, 0.0000_wp, &
& 200.0898_wp, 199.6443_wp, 160.5147_wp, 143.2743_wp, 0.0000_wp, &
& 148.8227_wp, 148.9993_wp, 122.1541_wp, 110.1523_wp, 0.0000_wp, &
& 139.6481_wp, 139.8637_wp, 114.9901_wp, 103.8543_wp, 0.0000_wp, &
& 188.9137_wp, 188.8968_wp, 153.7020_wp, 138.0532_wp, 0.0000_wp, &
& 177.4853_wp, 177.3933_wp, 144.2377_wp, 129.5334_wp, 0.0000_wp, &
& 143.0720_wp, 143.2496_wp, 117.7589_wp, 106.3656_wp, 0.0000_wp, &
& 133.9718_wp, 134.1084_wp, 110.2611_wp, 99.6175_wp, 0.0000_wp, &
& 107.8976_wp, 108.2417_wp, 90.3467_wp, 82.2825_wp, 0.0000_wp, &
& 129.7759_wp, 130.0791_wp, 107.8602_wp, 97.8835_wp, 0.0000_wp, &
& 121.0800_wp, 121.3356_wp, 100.6388_wp, 91.3606_wp, 0.0000_wp, &
& 113.4882_wp, 113.7563_wp, 94.5619_wp, 85.9468_wp, 0.0000_wp, &
& 99.8545_wp, 100.0870_wp, 83.4095_wp, 75.9304_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 97.1887_wp, 97.5510_wp, 81.9547_wp, 74.9096_wp, 0.0000_wp, &
& 86.9552_wp, 87.2983_wp, 73.5841_wp, 67.3849_wp, 0.0000_wp, &
& 76.5235_wp, 76.8424_wp, 65.0549_wp, 59.7227_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 73.0353_wp, 73.3784_wp, 62.3317_wp, 57.3189_wp, 0.0000_wp, &
& 58.9129_wp, 59.2550_wp, 50.9307_wp, 47.1316_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 55.8782_wp, 56.1746_wp, 48.1368_wp, 44.4781_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1001.3499_wp, 975.3275_wp, 699.5701_wp, 587.3739_wp, 0.0000_wp, &
& 379.7209_wp, 375.2846_wp, 286.5556_wp, 248.7497_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 719.8428_wp, 710.2404_wp, 536.9006_wp, 463.3959_wp, 0.0000_wp, &
& 589.5395_wp, 582.2068_wp, 442.9848_wp, 383.8279_wp, 0.0000_wp, &
& 368.7594_wp, 366.9136_wp, 289.1580_wp, 255.1940_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 648.5037_wp, 642.2899_wp, 494.7723_wp, 431.4299_wp, 0.0000_wp, &
& 584.6972_wp, 579.5600_wp, 448.4570_wp, 392.0185_wp, 0.0000_wp, &
& 447.3949_wp, 444.7526_wp, 349.5092_wp, 308.0881_wp, 0.0000_wp, &
& 340.4316_wp, 339.7431_wp, 272.3038_wp, 242.5139_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 495.8892_wp, 493.5629_wp, 389.9229_wp, 344.6238_wp, 0.0000_wp, &
& 456.5872_wp, 454.6872_wp, 360.4734_wp, 319.2229_wp, 0.0000_wp, &
& 422.9687_wp, 421.4777_wp, 335.3401_wp, 297.5340_wp, 0.0000_wp, &
& 413.7495_wp, 411.9935_wp, 326.9218_wp, 289.7071_wp, 0.0000_wp, &
& 333.6081_wp, 333.2692_wp, 268.9609_wp, 240.4518_wp, 0.0000_wp, &
& 377.8606_wp, 377.4089_wp, 304.3783_wp, 272.0320_wp, 0.0000_wp, &
& 366.5842_wp, 366.1607_wp, 295.5027_wp, 264.2073_wp, 0.0000_wp, &
& 362.2556_wp, 361.7246_wp, 291.5389_wp, 260.4972_wp, 0.0000_wp, &
& 333.9709_wp, 333.7972_wp, 270.4942_wp, 242.3861_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 309.4057_wp, 309.6161_wp, 252.9803_wp, 227.7137_wp, 0.0000_wp, &
& 306.1509_wp, 306.3303_wp, 250.2153_wp, 225.1930_wp, 0.0000_wp, &
& 299.9198_wp, 300.0969_wp, 245.1867_wp, 220.7025_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.7152_wp, 250.2872_wp, 207.0428_wp, 187.6239_wp, 0.0000_wp, &
& 247.2190_wp, 247.7688_wp, 204.9123_wp, 185.6743_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 202.3639_wp, 203.0702_wp, 169.7709_wp, 154.7419_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1669.9732_wp, 1619.9398_wp, 1148.8307_wp, 959.7442_wp, 0.0000_wp, &
& 516.9533_wp, 511.6460_wp, 395.8624_wp, 346.4279_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1301.2325_wp, 1276.8842_wp, 944.9475_wp, 806.8500_wp, 0.0000_wp, &
& 1043.0556_wp, 1022.4025_wp, 756.7881_wp, 646.8975_wp, 0.0000_wp, &
& 518.7107_wp, 515.6440_wp, 406.0640_wp, 358.4368_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1062.1257_wp, 1044.6215_wp, 780.3119_wp, 669.5176_wp, 0.0000_wp, &
& 503.6393_wp, 500.9073_wp, 395.5580_wp, 349.6976_wp, 0.0000_wp, &
& 492.6887_wp, 490.7086_wp, 390.2082_wp, 346.2056_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1015.6676_wp, 1000.5590_wp, 753.5662_wp, 649.5230_wp, 0.0000_wp, &
& 486.2116_wp, 483.4915_wp, 381.9977_wp, 337.8590_wp, 0.0000_wp, &
& 498.3709_wp, 496.4262_wp, 395.0466_wp, 350.6404_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 924.5054_wp, 911.7000_wp, 690.0666_wp, 596.3924_wp, 0.0000_wp, &
& 476.7596_wp, 474.0521_wp, 374.4199_wp, 331.1074_wp, 0.0000_wp, &
& 457.0023_wp, 455.0092_wp, 361.7806_wp, 321.0422_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 728.7526_wp, 718.3558_wp, 544.1795_wp, 470.7581_wp, 0.0000_wp, &
& 473.8496_wp, 470.8995_wp, 371.0160_wp, 327.6896_wp, 0.0000_wp, &
& 338.7402_wp, 338.0513_wp, 272.9894_wp, 244.3195_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 789.1704_wp, 779.3852_wp, 594.1725_wp, 515.5142_wp, 0.0000_wp, &
& 429.5951_wp, 428.0435_wp, 341.2928_wp, 303.2493_wp, 0.0000_wp, &
& 286.8670_wp, 286.7259_wp, 233.7811_wp, 210.3030_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 619.1214_wp, 611.3115_wp, 466.8762_wp, 405.6573_wp, 0.0000_wp, &
& 396.1575_wp, 394.9339_wp, 315.9654_wp, 281.2690_wp, 0.0000_wp, &
& 281.9690_wp, 281.7756_wp, 229.4894_wp, 206.3212_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 646.8845_wp, 640.5300_wp, 494.2894_wp, 431.6118_wp, 0.0000_wp, &
& 378.0913_wp, 376.8690_wp, 301.4996_wp, 268.4120_wp, 0.0000_wp, &
& 336.1160_wp, 335.0533_wp, 268.7131_wp, 239.6026_wp, 0.0000_wp, &
& 295.8667_wp, 295.4429_wp, 239.3999_wp, 214.6371_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 670.3436_wp, 663.1102_wp, 509.1508_wp, 443.3798_wp, 0.0000_wp, &
& 370.0933_wp, 368.8212_wp, 294.7815_wp, 262.3055_wp, 0.0000_wp, &
& 311.4949_wp, 310.7796_wp, 250.4043_wp, 223.8146_wp, 0.0000_wp, &
& 330.9013_wp, 329.5207_wp, 262.9421_wp, 233.8462_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 514.7803_wp, 508.8879_wp, 390.9435_wp, 340.7523_wp, 0.0000_wp, &
& 369.7134_wp, 367.7662_wp, 291.3412_wp, 258.0675_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.7713_wp, 513.8120_wp, 400.8646_wp, 352.0729_wp, 0.0000_wp, &
& 340.0661_wp, 339.4098_wp, 273.2506_wp, 244.0416_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 616.5392_wp, 611.2503_wp, 474.3655_wp, 415.4361_wp, 0.0000_wp, &
& 575.6281_wp, 571.2540_wp, 445.5426_wp, 391.2329_wp, 0.0000_wp, &
& 447.0673_wp, 445.0912_wp, 353.1112_wp, 312.9041_wp, 0.0000_wp, &
& 358.6139_wp, 358.1693_wp, 288.9768_wp, 258.3342_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 531.0148_wp, 528.5509_wp, 418.2800_wp, 370.0955_wp, 0.0000_wp, &
& 494.2934_wp, 492.3727_wp, 391.3814_wp, 347.1306_wp, 0.0000_wp, &
& 468.9426_wp, 467.3755_wp, 372.6603_wp, 331.0729_wp, 0.0000_wp, &
& 416.5710_wp, 415.7313_wp, 334.0141_wp, 297.9467_wp, 0.0000_wp, &
& 363.7480_wp, 363.6185_wp, 294.9427_wp, 264.4224_wp, 0.0000_wp, &
& 444.1316_wp, 443.4125_wp, 356.9808_wp, 318.7696_wp, 0.0000_wp, &
& 436.1584_wp, 435.5100_wp, 350.9611_wp, 313.5655_wp, 0.0000_wp, &
& 423.9023_wp, 423.3891_wp, 341.7870_wp, 305.6561_wp, 0.0000_wp, &
& 407.0958_wp, 406.7876_wp, 329.2613_wp, 294.8707_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 394.0893_wp, 394.0800_wp, 320.5921_wp, 287.9015_wp, 0.0000_wp, &
& 394.3385_wp, 394.3108_wp, 320.7238_wp, 287.9969_wp, 0.0000_wp, &
& 391.1438_wp, 391.1275_wp, 318.2256_wp, 285.8005_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 341.1542_wp, 341.6552_wp, 280.9002_wp, 253.7108_wp, 0.0000_wp, &
& 343.7404_wp, 344.2133_wp, 282.8475_wp, 255.3964_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.9464_wp, 294.7351_wp, 244.6590_wp, 222.1354_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1864.6164_wp, 1809.6860_wp, 1287.7826_wp, 1078.1354_wp, 0.0000_wp, &
& 614.0469_wp, 608.1170_wp, 472.5061_wp, 414.5157_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1554.7036_wp, 1524.5549_wp, 1126.3391_wp, 961.1299_wp, 0.0000_wp, &
& 1274.2283_wp, 1247.8398_wp, 921.3623_wp, 786.7662_wp, 0.0000_wp, &
& 621.1496_wp, 617.4175_wp, 486.7059_wp, 429.9551_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1334.1432_wp, 1313.1378_wp, 985.9871_wp, 848.6422_wp, 0.0000_wp, &
& 935.6299_wp, 922.8166_wp, 703.5558_wp, 611.0884_wp, 0.0000_wp, &
& 588.4579_wp, 586.4827_wp, 468.3267_wp, 416.4727_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1184.3558_wp, 1168.2143_wp, 886.0018_wp, 766.6967_wp, 0.0000_wp, &
& 668.3672_wp, 664.1554_wp, 523.4025_wp, 462.4046_wp, 0.0000_wp, &
& 590.9783_wp, 589.3899_wp, 472.3712_wp, 420.8795_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1071.6858_wp, 1058.4151_wp, 807.9821_wp, 701.6905_wp, 0.0000_wp, &
& 675.1518_wp, 670.9256_wp, 528.6320_wp, 466.9543_wp, 0.0000_wp, &
& 573.0274_wp, 571.1344_wp, 457.0893_wp, 407.0677_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 817.1388_wp, 808.5578_wp, 624.2338_wp, 545.5653_wp, 0.0000_wp, &
& 626.9326_wp, 623.3449_wp, 493.1464_wp, 436.6063_wp, 0.0000_wp, &
& 500.8333_wp, 500.0588_wp, 404.4518_wp, 362.2260_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 915.9493_wp, 905.6928_wp, 696.2987_wp, 607.1105_wp, 0.0000_wp, &
& 717.2229_wp, 710.5561_wp, 553.2924_wp, 485.9637_wp, 0.0000_wp, &
& 438.2248_wp, 438.1048_wp, 357.2790_wp, 321.3971_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 688.3361_wp, 682.0711_wp, 530.9279_wp, 466.1298_wp, 0.0000_wp, &
& 539.2982_wp, 537.4115_wp, 430.0496_wp, 383.0038_wp, 0.0000_wp, &
& 412.8587_wp, 412.9246_wp, 337.7782_wp, 304.3576_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 751.4117_wp, 744.9376_wp, 579.9029_wp, 508.9476_wp, 0.0000_wp, &
& 504.2404_wp, 502.4772_wp, 402.5143_wp, 358.7251_wp, 0.0000_wp, &
& 425.4193_wp, 424.7038_wp, 344.1123_wp, 308.5623_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 693.4942_wp, 688.0703_wp, 537.8554_wp, 473.0843_wp, 0.0000_wp, &
& 467.3571_wp, 465.8349_wp, 373.9549_wp, 333.6771_wp, 0.0000_wp, &
& 445.5561_wp, 444.6818_wp, 359.3493_wp, 321.7342_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 581.2740_wp, 575.9928_wp, 449.1546_wp, 394.8051_wp, 0.0000_wp, &
& 453.0455_wp, 451.4298_wp, 361.8210_wp, 322.5850_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 607.4560_wp, 603.3005_wp, 474.1015_wp, 418.1898_wp, 0.0000_wp, &
& 443.2118_wp, 442.5069_wp, 357.7662_wp, 320.3273_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 773.8833_wp, 766.6573_wp, 594.6028_wp, 520.8160_wp, 0.0000_wp, &
& 732.5808_wp, 726.6030_wp, 566.7425_wp, 497.8873_wp, 0.0000_wp, &
& 576.2784_wp, 573.7031_wp, 456.2201_wp, 404.9097_wp, 0.0000_wp, &
& 481.7644_wp, 481.0669_wp, 388.6659_wp, 347.8009_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 701.3354_wp, 697.2453_wp, 549.5415_wp, 485.3299_wp, 0.0000_wp, &
& 649.4752_wp, 646.4014_wp, 512.5560_wp, 454.1303_wp, 0.0000_wp, &
& 625.5230_wp, 622.9381_wp, 495.5418_wp, 439.8018_wp, 0.0000_wp, &
& 557.4516_wp, 556.0668_wp, 446.3665_wp, 398.0530_wp, 0.0000_wp, &
& 498.7690_wp, 498.3275_wp, 403.6231_wp, 361.6355_wp, 0.0000_wp, &
& 613.7965_wp, 611.9984_wp, 489.7839_wp, 436.0471_wp, 0.0000_wp, &
& 600.1676_wp, 598.6193_wp, 480.0484_wp, 427.8429_wp, 0.0000_wp, &
& 581.9141_wp, 580.6826_wp, 466.8965_wp, 416.7050_wp, 0.0000_wp, &
& 559.0018_wp, 558.1581_wp, 450.3097_wp, 402.6179_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 563.6633_wp, 562.8800_wp, 454.5743_wp, 406.6647_wp, 0.0000_wp, &
& 562.8815_wp, 562.1551_wp, 454.2435_wp, 406.4893_wp, 0.0000_wp, &
& 557.6754_wp, 557.0521_wp, 450.5709_wp, 403.4163_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 504.3185_wp, 504.3841_wp, 411.2748_wp, 369.8357_wp, 0.0000_wp, &
& 509.1150_wp, 509.1742_wp, 415.1143_wp, 373.2539_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.1573_wp, 449.8010_wp, 370.0859_wp, 334.4178_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2272.4078_wp, 2204.6359_wp, 1569.0757_wp, 1314.1925_wp, 0.0000_wp, &
& 714.7759_wp, 709.7641_wp, 558.3470_wp, 492.9613_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1997.7665_wp, 1955.7490_wp, 1436.7682_wp, 1222.7209_wp, 0.0000_wp, &
& 1668.8986_wp, 1630.7553_wp, 1195.4806_wp, 1017.3501_wp, 0.0000_wp, &
& 748.6479_wp, 744.4526_wp, 588.7448_wp, 521.0788_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1718.7930_wp, 1689.1285_wp, 1261.2174_wp, 1082.5707_wp, 0.0000_wp, &
& 1189.1662_wp, 1171.8156_wp, 890.6711_wp, 772.5069_wp, 0.0000_wp, &
& 768.7997_wp, 765.8095_wp, 609.8823_wp, 541.6090_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 728.0207_wp, 725.3191_wp, 578.8337_wp, 514.6641_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1758.4731_wp, 1723.5094_wp, 1273.1210_wp, 1086.6848_wp, 0.0000_wp, &
& 705.3782_wp, 702.8645_wp, 561.4190_wp, 499.4222_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1682.1281_wp, 1649.9797_wp, 1222.2593_wp, 1044.7574_wp, 0.0000_wp, &
& 690.6593_wp, 688.2219_wp, 549.8212_wp, 489.1500_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1638.2173_wp, 1607.2448_wp, 1191.5365_wp, 1018.8963_wp, 0.0000_wp, &
& 668.2165_wp, 665.9391_wp, 532.4295_wp, 473.8761_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1598.0083_wp, 1568.0817_wp, 1163.2807_wp, 995.0641_wp, 0.0000_wp, &
& 673.4662_wp, 670.8247_wp, 535.0427_wp, 475.6212_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1562.2939_wp, 1533.3057_wp, 1138.2189_wp, 973.9392_wp, 0.0000_wp, &
& 655.3276_wp, 651.7394_wp, 515.9229_wp, 456.8593_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1202.5229_wp, 1184.4744_wp, 894.9740_wp, 773.2824_wp, 0.0000_wp, &
& 678.0494_wp, 675.3785_wp, 538.3135_wp, 478.3235_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1402.6627_wp, 1372.1977_wp, 1009.3816_wp, 860.2991_wp, 0.0000_wp, &
& 635.4277_wp, 633.1582_wp, 505.6948_wp, 449.8247_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1347.9037_wp, 1319.3709_wp, 973.4078_wp, 830.9998_wp, 0.0000_wp, &
& 650.0913_wp, 647.1351_wp, 514.5864_wp, 456.7283_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1401.3832_wp, 1376.8441_wp, 1026.3420_wp, 880.0751_wp, 0.0000_wp, &
& 601.6516_wp, 599.7511_wp, 479.9826_wp, 427.3935_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1370.7449_wp, 1346.9267_wp, 1004.5056_wp, 861.5388_wp, 0.0000_wp, &
& 583.9861_wp, 582.2268_wp, 466.3111_wp, 415.3826_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1342.7654_wp, 1319.6608_wp, 984.8068_wp, 844.9151_wp, 0.0000_wp, &
& 580.6167_wp, 578.8104_wp, 463.2961_wp, 412.5627_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1328.1907_wp, 1305.1597_wp, 973.2776_wp, 834.6788_wp, 0.0000_wp, &
& 612.3722_wp, 610.1764_wp, 486.8010_wp, 432.7038_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1103.0932_wp, 1086.5229_wp, 819.9878_wp, 707.8662_wp, 0.0000_wp, &
& 560.3760_wp, 558.7749_wp, 447.7781_wp, 398.9750_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1061.9960_wp, 1050.1050_wp, 805.5930_wp, 701.3537_wp, 0.0000_wp, &
& 785.6204_wp, 778.7039_wp, 606.7005_wp, 532.8705_wp, 0.0000_wp, &
& 562.5975_wp, 561.5704_wp, 452.3549_wp, 404.1315_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 957.8330_wp, 948.9833_wp, 735.2185_wp, 643.4657_wp, 0.0000_wp, &
& 720.9145_wp, 715.9335_wp, 563.1548_wp, 497.1217_wp, 0.0000_wp, &
& 591.9094_wp, 590.0054_wp, 472.7544_wp, 421.3244_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 802.6285_wp, 796.0121_wp, 621.3425_wp, 546.1830_wp, 0.0000_wp, &
& 650.2148_wp, 646.9731_wp, 513.9729_wp, 456.0611_wp, 0.0000_wp, &
& 543.5771_wp, 542.8228_wp, 439.3698_wp, 393.6464_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 812.4971_wp, 806.5417_wp, 631.9830_wp, 556.5884_wp, 0.0000_wp, &
& 664.8727_wp, 660.3926_wp, 520.1419_wp, 459.4909_wp, 0.0000_wp, &
& 489.8530_wp, 489.7291_wp, 399.3636_wp, 359.2418_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 729.2402_wp, 725.0493_wp, 572.9331_wp, 506.8433_wp, 0.0000_wp, &
& 566.7294_wp, 565.4035_wp, 455.4923_wp, 407.1088_wp, 0.0000_wp, &
& 457.8877_wp, 458.1984_wp, 375.9151_wp, 339.2369_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 662.7909_wp, 659.7822_wp, 524.8990_wp, 466.0279_wp, 0.0000_wp, &
& 531.4381_wp, 530.4405_wp, 428.7364_wp, 383.8899_wp, 0.0000_wp, &
& 471.7483_wp, 471.2511_wp, 383.3885_wp, 344.5385_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 546.9172_wp, 544.8994_wp, 436.5795_wp, 389.1856_wp, 0.0000_wp, &
& 506.6933_wp, 505.8634_wp, 409.6791_wp, 367.2303_wp, 0.0000_wp, &
& 496.1063_wp, 495.6695_wp, 403.0564_wp, 362.0493_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 509.6146_wp, 507.9210_wp, 408.1207_wp, 364.4011_wp, 0.0000_wp, &
& 484.9543_wp, 484.0395_wp, 391.8793_wp, 351.2614_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 521.9091_wp, 520.6273_wp, 419.6653_wp, 375.2501_wp, 0.0000_wp, &
& 464.0666_wp, 463.9553_wp, 378.6256_wp, 340.7306_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 792.2378_wp, 784.9496_wp, 611.1733_wp, 536.7156_wp, 0.0000_wp, &
& 784.9496_wp, 778.6188_wp, 609.0789_wp, 536.1040_wp, 0.0000_wp, &
& 611.1733_wp, 609.0789_wp, 487.7418_wp, 434.5543_wp, 0.0000_wp, &
& 536.7156_wp, 536.1040_wp, 434.5543_wp, 389.6069_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 45.1786_wp, 42.4340_wp, 39.7922_wp, 39.2018_wp, 36.7836_wp, &
& 73.6692_wp, 68.7009_wp, 63.9796_wp, 62.8530_wp, 58.5875_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 29.3963_wp, 27.9073_wp, 26.4467_wp, 26.1542_wp, 24.7926_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 770.4985_wp, 688.0756_wp, 614.8841_wp, 592.3075_wp, 531.2245_wp, &
& 246.8355_wp, 226.0586_wp, 206.9127_wp, 201.7030_wp, 184.9914_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.9877_wp, 389.4357_wp, 355.8205_wp, 346.5936_wp, 317.3206_wp, &
& 313.4675_wp, 287.7587_wp, 264.0083_wp, 257.6239_wp, 236.8318_wp, &
& 200.0235_wp, 185.8638_wp, 172.4904_wp, 169.2036_wp, 157.1991_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3326:3420) = reshape([ &
& 280.1714_wp, 259.4598_wp, 240.0262_wp, 235.1145_wp, 217.7973_wp, &
& 234.6048_wp, 217.8236_wp, 202.0191_wp, 198.0952_wp, 183.9560_wp, &
& 196.0895_wp, 182.5270_wp, 169.7077_wp, 166.5821_wp, 155.0685_wp, &
& 147.2178_wp, 137.9942_wp, 129.1524_wp, 127.1338_wp, 119.0738_wp, &
& 138.2841_wp, 129.7527_wp, 121.5600_wp, 119.7071_wp, 112.2254_wp, &
& 186.2235_wp, 174.0789_wp, 162.5036_wp, 159.7857_wp, 149.2968_wp, &
& 174.7675_wp, 163.3324_wp, 152.4495_wp, 149.8821_wp, 140.0380_wp, &
& 141.5746_wp, 132.8283_wp, 124.4398_wp, 122.5321_wp, 114.8824_wp, &
& 132.5017_wp, 124.3208_wp, 116.4811_wp, 114.6932_wp, 107.5512_wp, &
& 107.3665_wp, 101.2882_wp, 95.3973_wp, 94.1315_wp, 88.7030_wp, &
& 128.8243_wp, 121.2408_wp, 113.9262_wp, 112.3115_wp, 105.6030_wp, &
& 120.1268_wp, 113.0674_wp, 106.2635_wp, 104.7587_wp, 98.5247_wp, &
& 112.6829_wp, 106.1418_wp, 99.8294_wp, 98.4421_wp, 92.6508_wp, &
& 99.1557_wp, 93.4821_wp, 88.0052_wp, 86.8061_wp, 81.7810_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 96.8801_wp, 91.6035_wp, 86.4712_wp, 85.3902_wp, 80.6444_wp, &
& 86.7392_wp, 82.1115_wp, 77.6024_wp, 76.6634_wp, 72.4872_wp, &
& 76.4013_wp, 72.4353_wp, 68.5632_wp, 67.7670_wp, 64.1744_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 73.0285_wp, 69.3207_wp, 65.6888_wp, 64.9548_wp, 61.5737_wp, &
& 59.1097_wp, 56.3445_wp, 53.6109_wp, 53.0888_wp, 50.5222_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 55.9909_wp, 53.3105_wp, 50.6707_wp, 50.1543_wp, 47.6844_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 919.1257_wp, 821.9796_wp, 735.5782_wp, 709.0607_wp, 636.8215_wp, &
& 362.5649_wp, 331.2846_wp, 302.5882_wp, 294.6514_wp, 269.7377_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 684.1011_wp, 622.8471_wp, 566.8872_wp, 551.1519_wp, 502.8081_wp, &
& 561.7298_wp, 512.6793_wp, 467.7576_wp, 455.2629_wp, 416.3367_wp, &
& 358.5506_wp, 331.3135_wp, 305.8390_wp, 299.2984_wp, 276.6755_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 622.7134_wp, 570.7867_wp, 522.8751_wp, 509.9025_wp, 468.0184_wp, &
& 562.6875_wp, 516.5979_wp, 473.9754_wp, 462.5420_wp, 425.1844_wp, &
& 433.9837_wp, 400.6554_wp, 369.5628_wp, 361.5162_wp, 333.9862_wp, &
& 333.7314_wp, 310.2718_wp, 288.0954_wp, 282.6647_wp, 262.7383_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.5881_wp, 446.3476_wp, 412.4108_wp, 403.7564_wp, 373.5814_wp, &
& 445.0036_wp, 412.1123_wp, 381.2538_wp, 373.4529_wp, 345.9586_wp, &
& 412.9602_wp, 382.9249_wp, 354.6840_wp, 347.6124_wp, 322.3895_wp, &
& 403.1954_wp, 373.5243_wp, 345.6909_wp, 338.6601_wp, 313.8684_wp, &
& 327.9673_wp, 305.6761_wp, 284.5181_wp, 279.4395_wp, 260.3468_wp, &
& 371.2939_wp, 345.9762_wp, 321.9613_wp, 316.1825_wp, 294.5285_wp, &
& 360.2631_wp, 335.7795_wp, 312.5506_wp, 306.9694_wp, 286.0200_wp, &
& 355.7163_wp, 331.3845_wp, 308.3268_wp, 302.7590_wp, 281.9915_wp, &
& 328.7945_wp, 306.9029_wp, 286.0787_wp, 281.1375_wp, 262.3048_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 305.6389_wp, 286.1418_wp, 267.4961_wp, 263.1882_wp, 246.2323_wp, &
& 302.3505_wp, 283.0298_wp, 264.5600_wp, 260.2857_wp, 243.4969_wp, &
& 296.2052_wp, 277.3019_wp, 259.2302_wp, 255.0496_wp, 238.6223_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 247.8141_wp, 233.0385_wp, 218.7940_wp, 215.6394_wp, 202.5803_wp, &
& 245.2950_wp, 230.6495_wp, 216.5348_wp, 213.4044_wp, 200.4687_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 201.5330_wp, 190.2365_wp, 179.2701_wp, 176.9336_wp, 166.8114_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1516.4193_wp, 1351.4635_wp, 1205.8672_wp, 1160.2124_wp, 1039.5015_wp, &
& 495.6981_wp, 455.1207_wp, 417.7483_wp, 407.6191_wp, 375.0355_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1218.7009_wp, 1101.5257_wp, 995.7893_wp, 964.8298_wp, 874.8589_wp, &
& 974.2845_wp, 880.9955_wp, 797.0009_wp, 772.3000_wp, 700.9780_wp, &
& 503.2187_wp, 464.8762_wp, 429.1133_wp, 419.8573_wp, 388.2085_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1000.8602_wp, 907.5192_wp, 822.8762_wp, 798.4890_wp, 726.0318_wp, &
& 489.2541_wp, 452.4223_wp, 418.0128_wp, 409.1716_wp, 378.6746_wp, &
& 480.4497_wp, 445.3967_wp, 412.4946_wp, 404.2011_wp, 374.8744_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 961.3718_wp, 874.2469_wp, 794.9456_wp, 772.4068_wp, 704.2137_wp, &
& 472.1552_wp, 436.7178_wp, 403.6239_wp, 395.1139_wp, 365.7846_wp, &
& 486.1511_wp, 450.7995_wp, 417.6039_wp, 409.2513_wp, 379.6507_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 877.5655_wp, 799.4271_wp, 728.1306_wp, 708.0447_wp, 646.5526_wp, &
& 462.8741_wp, 428.0767_wp, 395.5906_wp, 387.2267_wp, 358.4493_wp, &
& 445.2862_wp, 412.7929_wp, 382.3241_wp, 374.6218_wp, 347.4974_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 691.0834_wp, 629.7820_wp, 573.9057_wp, 558.1380_wp, 510.0132_wp, &
& 459.3743_wp, 424.4677_wp, 391.9364_wp, 383.5023_wp, 354.7425_wp, &
& 332.2299_wp, 309.6941_wp, 288.3802_wp, 283.2023_wp, 264.0532_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 752.1156_wp, 686.8786_wp, 627.1392_wp, 610.5295_wp, 558.7815_wp, &
& 419.4149_wp, 389.1761_wp, 360.7539_wp, 353.6294_wp, 328.2571_wp, &
& 282.5665_wp, 264.3099_wp, 246.9333_wp, 242.8350_wp, 227.1169_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 589.8085_wp, 539.0190_wp, 492.5359_wp, 479.6119_wp, 439.3830_wp, &
& 387.3404_wp, 359.8544_wp, 333.9698_wp, 327.5382_wp, 304.3824_wp, &
& 277.5965_wp, 259.5542_wp, 242.3963_wp, 238.3322_wp, 222.8255_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 620.8744_wp, 569.4339_wp, 522.0102_wp, 509.1470_wp, 467.7393_wp, &
& 369.5502_wp, 343.3252_wp, 318.6390_wp, 312.4971_wp, 290.4242_wp, &
& 328.6327_wp, 305.5829_wp, 283.8768_wp, 278.4951_wp, 259.0820_wp, &
& 290.6684_wp, 271.2766_wp, 252.8942_wp, 248.4710_wp, 231.9130_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 641.6764_wp, 587.4631_wp, 537.6147_wp, 523.9545_wp, 480.5640_wp, &
& 361.5357_wp, 335.7634_wp, 311.5211_wp, 305.4707_wp, 283.8131_wp, &
& 305.2826_wp, 284.3351_wp, 264.5468_wp, 259.7061_wp, 241.9473_wp, &
& 322.6499_wp, 299.4642_wp, 277.7110_wp, 272.2302_wp, 252.8569_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 491.9976_wp, 450.5486_wp, 412.5016_wp, 402.0369_wp, 368.9934_wp, &
& 359.3822_wp, 332.6986_wp, 307.7570_wp, 301.3661_wp, 279.2429_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 499.9322_wp, 460.2861_wp, 423.5091_wp, 413.7686_wp, 381.4239_wp, &
& 333.5577_wp, 310.5826_wp, 288.8534_wp, 283.5532_wp, 264.0222_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 593.7385_wp, 545.6804_wp, 501.2103_wp, 489.3247_wp, 450.3239_wp, &
& 555.8307_wp, 511.7453_wp, 470.8344_wp, 460.0238_wp, 424.0264_wp, &
& 435.4792_wp, 403.3930_wp, 373.3126_wp, 365.6931_wp, 338.9165_wp, &
& 352.3614_wp, 328.3665_wp, 305.6116_wp, 300.1272_wp, 279.6136_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 516.8932_wp, 478.3664_wp, 442.2805_wp, 433.0951_wp, 401.0046_wp, &
& 482.1548_wp, 446.9327_wp, 413.8552_wp, 405.5330_wp, 376.0319_wp, &
& 458.1125_wp, 425.1158_wp, 394.0690_wp, 386.3229_wp, 358.5747_wp, &
& 408.4395_wp, 380.0597_wp, 353.2253_wp, 346.6758_wp, 322.5630_wp, &
& 358.2779_wp, 334.5302_wp, 311.9266_wp, 306.5747_wp, 286.1179_wp, &
& 435.9281_wp, 405.9374_wp, 377.5368_wp, 370.6520_wp, 345.0898_wp, &
& 428.2639_wp, 398.9425_wp, 371.1603_wp, 364.4441_wp, 339.4241_wp, &
& 416.5496_wp, 388.2741_wp, 361.4532_wp, 355.0035_wp, 330.8203_wp, &
& 400.5349_wp, 373.7042_wp, 348.2071_wp, 342.1276_wp, 319.0930_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 388.5373_wp, 363.1743_wp, 338.9950_wp, 333.3205_wp, 311.4041_wp, &
& 388.7357_wp, 363.3370_wp, 339.1282_wp, 333.4424_wp, 311.5038_wp, &
& 385.6200_wp, 360.4617_wp, 336.4787_wp, 330.8502_wp, 309.1134_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 337.7683_wp, 316.9271_wp, 296.9197_wp, 292.3878_wp, 274.1230_wp, &
& 340.2422_wp, 319.1845_wp, 298.9783_wp, 294.3914_wp, 275.9534_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 292.0472_wp, 274.9747_wp, 258.4800_wp, 254.8700_wp, 239.7155_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1695.6909_wp, 1513.1000_wp, 1351.8089_wp, 1301.3911_wp, 1167.5181_wp, &
& 589.8275_wp, 542.3817_wp, 498.6058_wp, 486.8363_wp, 448.5935_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1453.4745_wp, 1313.0553_wp, 1186.5298_wp, 1149.3369_wp, 1041.8714_wp, &
& 1187.3359_wp, 1072.8240_wp, 969.9232_wp, 939.4922_wp, 852.3143_wp, &
& 602.4899_wp, 556.8068_wp, 514.2047_wp, 503.1891_wp, 465.5013_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1259.8691_wp, 1144.5456_wp, 1039.7874_wp, 1009.8313_wp, 919.9685_wp, &
& 888.8756_wp, 812.1311_wp, 742.0502_wp, 722.4614_wp, 661.9108_wp, &
& 574.8974_wp, 533.7582_wp, 495.0513_wp, 485.4008_wp, 450.8116_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1124.9617_wp, 1025.5674_wp, 934.8232_wp, 909.3382_wp, 831.0235_wp, &
& 647.8165_wp, 598.6852_wp, 552.8960_wp, 541.0462_wp, 500.5775_wp, &
& 578.4188_wp, 537.7340_wp, 499.3611_wp, 489.8962_wp, 455.5132_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1021.4733_wp, 933.3741_wp, 852.6898_wp, 830.2965_wp, 760.4022_wp, &
& 654.4451_wp, 604.7275_wp, 558.3930_wp, 546.3988_wp, 505.4645_wp, &
& 559.9755_wp, 520.3442_wp, 483.0386_wp, 473.7746_wp, 440.4244_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 782.9906_wp, 718.3231_wp, 658.8046_wp, 642.6165_wp, 590.7654_wp, &
& 608.6620_wp, 563.2632_wp, 520.8778_wp, 509.9907_wp, 472.4503_wp, &
& 491.8144_wp, 458.7239_wp, 427.3690_wp, 419.8126_wp, 391.5834_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 875.9582_wp, 802.4242_wp, 734.8703_wp, 716.3526_wp, 657.6194_wp, &
& 689.6435_wp, 634.6944_wp, 583.9347_wp, 570.3551_wp, 525.9403_wp, &
& 431.8700_wp, 404.0065_wp, 377.4633_wp, 371.2264_wp, 347.1934_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 662.1675_wp, 609.2472_wp, 560.3504_wp, 547.2593_wp, 504.4697_wp, &
& 526.7738_wp, 489.4453_wp, 454.3352_wp, 445.5869_wp, 414.2303_wp, &
& 407.3744_wp, 381.5077_wp, 356.8192_wp, 351.0719_wp, 328.6731_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 723.7046_wp, 665.8346_wp, 612.2971_wp, 598.0023_wp, 551.0749_wp, &
& 492.5689_wp, 457.8376_wp, 425.1675_wp, 417.0362_wp, 387.8570_wp, &
& 417.6830_wp, 389.8200_wp, 363.4268_wp, 357.0662_wp, 333.3155_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 669.3882_wp, 616.7552_wp, 567.9507_wp, 555.0356_wp, 512.1436_wp, &
& 456.8674_wp, 424.9729_wp, 394.9440_wp, 387.5029_wp, 360.6571_wp, &
& 437.0899_wp, 407.5342_wp, 379.5741_wp, 372.7868_wp, 347.6589_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 559.2710_wp, 514.8930_wp, 473.8893_wp, 462.9202_wp, 427.0415_wp, &
& 442.5095_wp, 411.3726_wp, 382.0925_wp, 374.7963_wp, 348.6552_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.9368_wp, 542.7164_wp, 500.6629_wp, 489.6613_wp, 452.5780_wp, &
& 435.1964_wp, 405.8302_wp, 378.0150_wp, 371.2868_wp, 346.2500_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 743.8797_wp, 683.5217_wp, 627.7921_wp, 612.7955_wp, 564.0526_wp, &
& 706.4446_wp, 650.4220_wp, 598.5207_wp, 584.7350_wp, 539.1627_wp, &
& 561.3762_wp, 520.4284_wp, 482.0463_wp, 472.3277_wp, 438.1720_wp, &
& 473.1885_wp, 441.1549_wp, 410.7989_wp, 403.4644_wp, 376.1234_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 680.5752_wp, 628.9089_wp, 580.7053_wp, 568.2437_wp, 525.5713_wp, &
& 632.1606_wp, 585.4379_wp, 541.6872_wp, 530.5501_wp, 491.6599_wp, &
& 609.8491_wp, 565.4247_wp, 523.7411_wp, 513.2219_wp, 476.0845_wp, &
& 545.9469_wp, 507.8208_wp, 471.8345_wp, 462.9834_wp, 430.7108_wp, &
& 490.6231_wp, 457.8340_wp, 426.6919_wp, 419.2433_wp, 391.1250_wp, &
& 600.3714_wp, 557.8416_wp, 517.7663_wp, 507.8330_wp, 471.9591_wp, &
& 587.6072_wp, 546.3819_wp, 507.4849_wp, 497.9006_wp, 463.0314_wp, &
& 570.4625_wp, 530.9459_wp, 493.5953_wp, 484.4645_wp, 450.9171_wp, &
& 548.9137_wp, 511.5125_wp, 476.0785_wp, 467.5067_wp, 435.5995_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 553.6826_wp, 516.1475_wp, 480.5678_wp, 471.9862_wp, 439.9310_wp, &
& 553.0645_wp, 515.6769_wp, 480.2227_wp, 471.6875_wp, 439.7315_wp, &
& 548.2096_wp, 511.3353_wp, 476.3434_wp, 467.9467_wp, 436.3838_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 497.4872_wp, 465.3787_wp, 434.7464_wp, 427.5836_wp, 399.7976_wp, &
& 502.1966_wp, 469.7578_wp, 438.8124_wp, 431.5739_wp, 403.5058_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 444.7007_wp, 417.3555_wp, 391.1073_wp, 385.1572_wp, 361.1978_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2064.6687_wp, 1842.7711_wp, 1646.9053_wp, 1585.5821_wp, 1423.0570_wp, &
& 691.5234_wp, 638.7185_wp, 589.6080_wp, 576.8200_wp, 533.5202_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1859.4085_wp, 1676.7003_wp, 1512.6316_wp, 1463.9079_wp, 1325.1273_wp, &
& 1546.1030_wp, 1393.8082_wp, 1257.5693_wp, 1216.7162_wp, 1101.8490_wp, &
& 727.0069_wp, 672.6963_wp, 621.9727_wp, 608.9586_wp, 564.0148_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1616.4677_wp, 1465.7704_wp, 1329.3437_wp, 1289.9128_wp, 1173.3669_wp, &
& 1127.0513_wp, 1028.7291_wp, 939.1420_wp, 913.9175_wp, 836.6887_wp, &
& 749.9894_wp, 695.6631_wp, 644.6421_wp, 631.8289_wp, 586.3311_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 710.6289_wp, 659.6273_wp, 611.6981_wp, 599.6974_wp, 556.9277_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1641.9885_wp, 1483.4234_wp, 1340.7087_wp, 1298.6324_wp, 1177.5400_wp, &
& 688.8101_wp, 639.5798_wp, 593.2909_wp, 581.7276_wp, 540.3972_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1573.9763_wp, 1423.2913_wp, 1287.4426_wp, 1247.6103_wp, 1132.1484_wp, &
& 674.5000_wp, 626.3297_wp, 581.0325_wp, 569.7217_wp, 529.2722_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1533.7469_wp, 1387.2742_wp, 1255.1651_wp, 1216.4825_wp, 1104.1399_wp, &
& 652.8035_wp, 606.3508_wp, 562.6492_wp, 551.7587_wp, 512.7147_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1496.8291_wp, 1354.1823_wp, 1225.4747_wp, 1187.8330_wp, 1078.3321_wp, &
& 657.0227_wp, 609.7571_wp, 565.3680_wp, 554.2264_wp, 514.6418_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1464.0624_wp, 1324.8237_wp, 1199.1443_wp, 1162.4311_wp, 1055.4583_wp, &
& 636.6430_wp, 589.2403_wp, 544.9584_wp, 533.5962_wp, 494.3485_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1138.0979_wp, 1036.2745_wp, 943.6238_wp, 917.3306_wp, 837.6884_wp, &
& 661.4365_wp, 613.6978_wp, 568.8699_wp, 557.6072_wp, 517.6380_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1303.4316_wp, 1176.1635_wp, 1062.0589_wp, 1028.0579_wp, 931.6581_wp, &
& 620.4877_wp, 576.1155_wp, 534.3968_wp, 523.9700_wp, 486.7223_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1254.5335_wp, 1133.2571_wp, 1024.4069_wp, 992.0813_wp, 899.9422_wp, &
& 633.1471_wp, 586.9703_wp, 543.6952_wp, 532.7377_wp, 494.2365_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1317.0177_wp, 1193.4379_wp, 1081.6382_wp, 1049.2180_wp, 953.7960_wp, &
& 588.1615_wp, 546.4944_wp, 507.2620_wp, 497.5158_wp, 462.4304_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1288.6907_wp, 1167.9468_wp, 1058.6802_wp, 1027.0231_wp, 933.7291_wp, &
& 571.1195_wp, 530.8034_wp, 492.8230_wp, 483.4088_wp, 449.4230_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1262.9662_wp, 1144.8817_wp, 1037.9814_wp, 1007.0473_wp, 915.7315_wp, &
& 567.6688_wp, 527.4833_wp, 489.6395_wp, 480.2439_wp, 446.3932_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1248.7891_wp, 1131.7397_wp, 1025.8078_wp, 995.1198_wp, 904.6632_wp, &
& 597.9109_wp, 554.9319_wp, 514.5278_wp, 504.4145_wp, 468.3408_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1043.9034_wp, 950.0808_wp, 864.7168_wp, 840.4504_wp, 767.0455_wp, &
& 548.2519_wp, 509.6521_wp, 473.2687_wp, 464.2697_wp, 431.6921_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1015.4887_wp, 929.4880_wp, 850.4845_wp, 828.7920_wp, 760.1030_wp, &
& 756.3377_wp, 696.2111_wp, 640.5891_wp, 625.7708_wp, 577.0080_wp, &
& 551.9550_wp, 514.0647_wp, 478.2096_wp, 469.4958_wp, 437.2533_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 920.8305_wp, 845.7714_wp, 776.4522_wp, 757.8023_wp, 697.1590_wp, &
& 697.6514_wp, 644.3437_wp, 594.7524_wp, 581.8345_wp, 538.0864_wp, &
& 578.5930_wp, 537.8913_wp, 499.5601_wp, 490.0685_wp, 455.7838_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 773.8526_wp, 712.7080_wp, 656.0695_wp, 641.0420_wp, 591.3270_wp, &
& 632.5527_wp, 586.2507_wp, 542.9137_wp, 531.9028_wp, 493.4118_wp, &
& 534.0168_wp, 498.2226_wp, 464.2848_wp, 456.1284_wp, 425.5525_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 785.2945_wp, 724.2100_wp, 667.4763_wp, 652.5688_wp, 602.6127_wp, &
& 643.7406_wp, 594.8032_wp, 549.2578_wp, 537.4151_wp, 497.2206_wp, &
& 482.7721_wp, 451.6202_wp, 421.9420_wp, 414.9709_wp, 388.0968_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 707.9009_wp, 654.7815_wp, 605.2026_wp, 592.4333_wp, 548.5334_wp, &
& 555.3413_wp, 517.2394_wp, 481.2453_wp, 472.4506_wp, 440.1479_wp, &
& 452.4455_wp, 424.1702_wp, 397.1198_wp, 390.8937_wp, 366.2914_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 645.5470_wp, 598.5406_wp, 554.4918_wp, 543.3358_wp, 504.1577_wp, &
& 521.4465_wp, 486.2350_wp, 452.9116_wp, 444.8385_wp, 414.8776_wp, &
& 463.9821_wp, 433.6749_wp, 404.8897_wp, 398.0429_wp, 372.0666_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 534.0207_wp, 496.3904_wp, 461.0173_wp, 452.1951_wp, 420.6302_wp, &
& 497.5175_wp, 464.2443_wp, 432.7246_wp, 425.1239_wp, 396.7561_wp, &
& 488.1273_wp, 456.1450_wp, 425.7564_wp, 418.5282_wp, 391.0887_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 498.1301_wp, 463.4993_wp, 430.9016_wp, 422.8231_wp, 393.6925_wp, &
& 475.8852_wp, 444.0034_wp, 413.8291_wp, 406.5281_wp, 379.3998_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 511.3145_wp, 476.2993_wp, 443.2391_wp, 435.1415_wp, 405.4931_wp, &
& 457.4132_wp, 427.9859_wp, 399.9516_wp, 393.3591_wp, 367.9720_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 761.9648_wp, 701.1621_wp, 644.9926_wp, 629.9484_wp, 580.7999_wp, &
& 757.2566_wp, 697.9570_wp, 642.9980_wp, 628.4522_wp, 580.1803_wp, &
& 597.1228_wp, 554.9418_wp, 515.2575_wp, 505.3770_wp, 469.9225_wp, &
& 527.6596_wp, 492.5150_wp, 459.1651_wp, 451.1674_wp, 421.0894_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 738.8156_wp, 682.8545_wp, 630.6968_wp, 617.1810_wp, 571.0696_wp, &
& 682.8545_wp, 632.9991_wp, 586.2856_wp, 574.4420_wp, 532.8947_wp, &
& 630.6968_wp, 586.2856_wp, 544.4563_wp, 534.0827_wp, 496.6620_wp, &
& 617.1810_wp, 574.4420_wp, 534.0827_wp, 524.1840_wp, 487.9740_wp, &
& 571.0696_wp, 532.8947_wp, 496.6620_wp, 487.9740_wp, 455.2854_wp, &
& 42.2419_wp, 41.5964_wp, 40.7649_wp, 39.7438_wp, 0.0000_wp, &
& 68.1031_wp, 66.8857_wp, 65.3536_wp, 63.4976_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 27.9329_wp, 27.6093_wp, 27.1746_wp, 26.6278_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 661.5278_wp, 639.1391_wp, 613.1828_wp, 583.2198_wp, 0.0000_wp, &
& 221.4325_wp, 215.9908_wp, 209.4372_wp, 201.7042_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 381.0307_wp, 371.4051_wp, 359.8482_wp, 346.2383_wp, 0.0000_wp, &
& 282.2935_wp, 275.6211_wp, 267.5491_wp, 257.9955_wp, 0.0000_wp, &
& 183.8379_wp, 180.3069_wp, 175.9082_wp, 170.6122_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 256.0537_wp, 250.8181_wp, 244.3568_wp, 236.6200_wp, 0.0000_wp, &
& 215.3027_wp, 211.1078_wp, 205.8985_wp, 199.6369_wp, 0.0000_wp, &
& 180.6882_wp, 177.3400_wp, 173.1544_wp, 168.1026_wp, 0.0000_wp, &
& 137.2028_wp, 135.0047_wp, 132.1947_wp, 128.7589_wp, 0.0000_wp, &
& 129.0834_wp, 127.0629_wp, 124.4711_wp, 121.2957_wp, 0.0000_wp, &
& 172.7831_wp, 169.8421_wp, 166.1189_wp, 161.5922_wp, 0.0000_wp, &
& 162.0740_wp, 159.3045_wp, 155.8032_wp, 151.5488_wp, 0.0000_wp, &
& 132.1155_wp, 130.0404_wp, 127.3832_wp, 124.1305_wp, 0.0000_wp, &
& 123.6424_wp, 121.7014_wp, 119.2179_wp, 116.1790_wp, 0.0000_wp, &
& 101.0571_wp, 99.6679_wp, 97.8517_wp, 95.6018_wp, 0.0000_wp, &
& 120.7993_wp, 119.0347_wp, 116.7503_wp, 113.9364_wp, 0.0000_wp, &
& 112.6485_wp, 111.0078_wp, 108.8847_wp, 106.2696_wp, 0.0000_wp, &
& 105.7911_wp, 104.2768_wp, 102.3126_wp, 99.8902_wp, 0.0000_wp, &
& 93.2029_wp, 91.8965_wp, 90.1990_wp, 88.1027_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.4934_wp, 90.3052_wp, 88.7397_wp, 86.7914_wp, 0.0000_wp, &
& 82.0559_wp, 81.0238_wp, 79.6576_wp, 77.9528_wp, 0.0000_wp, &
& 72.4352_wp, 71.5603_wp, 70.3961_wp, 68.9389_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 69.3689_wp, 68.5593_wp, 67.4750_wp, 66.1131_wp, 0.0000_wp, &
& 56.5007_wp, 55.9216_wp, 55.1283_wp, 54.1197_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 53.4204_wp, 52.8501_wp, 52.0759_wp, 51.0961_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 791.0868_wp, 764.7264_wp, 734.1232_wp, 698.7686_wp, 0.0000_wp, &
& 323.9350_wp, 315.6947_wp, 305.8218_wp, 294.2073_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 607.6008_wp, 591.3242_wp, 571.9311_wp, 549.1966_wp, 0.0000_wp, &
& 500.9223_wp, 487.9884_wp, 472.5158_wp, 454.3280_wp, 0.0000_wp, &
& 326.5044_wp, 319.5504_wp, 311.0143_wp, 300.8277_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 559.4336_wp, 545.8655_wp, 529.4977_wp, 510.1646_wp, 0.0000_wp, &
& 506.8663_wp, 494.8807_wp, 480.3772_wp, 463.2133_wp, 0.0000_wp, &
& 394.5702_wp, 386.0564_wp, 375.6290_wp, 363.1985_wp, 0.0000_wp, &
& 306.9884_wp, 301.1489_wp, 293.8651_wp, 285.0890_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.1343_wp, 430.9272_wp, 419.5989_wp, 406.0593_wp, 0.0000_wp, &
& 406.7017_wp, 398.3895_wp, 388.1313_wp, 375.8478_wp, 0.0000_wp, &
& 378.2078_wp, 370.6542_wp, 361.3025_wp, 350.0833_wp, 0.0000_wp, &
& 368.6712_wp, 361.1883_wp, 351.9496_wp, 340.8827_wp, 0.0000_wp, &
& 302.9030_wp, 297.4219_wp, 290.5376_wp, 282.2078_wp, 0.0000_wp, &
& 342.7788_wp, 336.5482_wp, 328.7291_wp, 319.2724_wp, 0.0000_wp, &
& 332.7186_wp, 326.7015_wp, 319.1459_wp, 310.0046_wp, 0.0000_wp, &
& 328.2537_wp, 322.2607_wp, 314.7479_wp, 305.6669_wp, 0.0000_wp, &
& 304.3790_wp, 299.0380_wp, 292.3022_wp, 284.1318_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 284.2948_wp, 279.6150_wp, 273.6574_wp, 266.3909_wp, 0.0000_wp, &
& 281.1773_wp, 276.5367_wp, 270.6323_wp, 263.4327_wp, 0.0000_wp, &
& 275.4969_wp, 270.9585_wp, 265.1832_wp, 258.1402_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 232.1219_wp, 228.6709_wp, 224.2102_wp, 218.7208_wp, 0.0000_wp, &
& 229.7267_wp, 226.3038_wp, 221.8815_wp, 216.4408_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3421:3515) = reshape([ &
& 189.8756_wp, 187.3061_wp, 183.9368_wp, 179.7560_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1296.6253_wp, 1251.9864_wp, 1200.4050_wp, 1140.9307_wp, 0.0000_wp, &
& 446.3033_wp, 435.7852_wp, 423.0909_wp, 408.0824_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1068.6331_wp, 1037.1898_wp, 1000.1815_wp, 957.0936_wp, 0.0000_wp, &
& 854.6640_wp, 829.7866_wp, 800.5025_wp, 766.3809_wp, 0.0000_wp, &
& 457.9078_wp, 448.1223_wp, 436.1382_wp, 421.8520_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 882.5153_wp, 857.5695_wp, 828.0658_wp, 793.6209_wp, 0.0000_wp, &
& 445.9231_wp, 436.5563_wp, 425.0599_wp, 411.3369_wp, 0.0000_wp, &
& 439.7476_wp, 430.9162_wp, 420.0045_wp, 406.9281_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 851.8855_wp, 828.7352_wp, 801.2338_wp, 769.0396_wp, 0.0000_wp, &
& 430.4805_wp, 421.4858_wp, 410.4418_wp, 397.2538_wp, 0.0000_wp, &
& 445.1537_wp, 436.2556_wp, 425.2549_wp, 412.0673_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 779.9336_wp, 759.2415_wp, 734.5909_wp, 705.6853_wp, 0.0000_wp, &
& 421.9181_wp, 413.0794_wp, 402.2324_wp, 389.2837_wp, 0.0000_wp, &
& 407.5036_wp, 399.3221_wp, 389.2203_wp, 377.1177_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 614.4509_wp, 598.2583_wp, 578.9721_wp, 556.3538_wp, 0.0000_wp, &
& 418.1044_wp, 409.2113_wp, 398.3224_wp, 385.3409_wp, 0.0000_wp, &
& 306.7492_wp, 301.2053_wp, 294.2659_wp, 285.8831_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 671.3055_wp, 654.1216_wp, 633.5630_wp, 609.3943_wp, 0.0000_wp, &
& 384.4496_wp, 376.8524_wp, 367.4475_wp, 356.1642_wp, 0.0000_wp, &
& 262.3487_wp, 257.9329_wp, 252.3482_wp, 245.5607_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.9321_wp, 513.5941_wp, 497.6326_wp, 478.8606_wp, 0.0000_wp, &
& 355.7528_wp, 348.8825_wp, 340.3515_wp, 330.0977_wp, 0.0000_wp, &
& 257.5598_wp, 253.1848_wp, 247.6598_wp, 240.9506_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 558.1740_wp, 544.7508_wp, 528.5648_wp, 509.4485_wp, 0.0000_wp, &
& 339.3939_wp, 332.8405_wp, 324.7053_wp, 314.9283_wp, 0.0000_wp, &
& 302.2080_wp, 296.4710_wp, 289.3394_wp, 280.7602_wp, 0.0000_wp, &
& 268.8943_wp, 264.1460_wp, 258.1828_wp, 250.9655_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 575.1487_wp, 560.9353_wp, 543.8541_wp, 523.7216_wp, 0.0000_wp, &
& 331.8393_wp, 325.3891_wp, 317.3906_wp, 307.7839_wp, 0.0000_wp, &
& 281.4890_wp, 276.3091_wp, 269.8411_wp, 262.0399_wp, 0.0000_wp, &
& 295.7851_wp, 289.9658_wp, 282.7718_wp, 274.1459_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.0551_wp, 430.2160_wp, 417.1999_wp, 401.8607_wp, 0.0000_wp, &
& 328.0961_wp, 321.3335_wp, 313.0213_wp, 303.0894_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 452.3678_wp, 442.1285_wp, 429.6851_wp, 414.9210_wp, 0.0000_wp, &
& 307.4871_wp, 301.7975_wp, 294.6880_wp, 286.1115_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 535.7013_wp, 523.2478_wp, 508.1567_wp, 490.2801_wp, 0.0000_wp, &
& 502.9885_wp, 491.6232_wp, 477.7997_wp, 461.3882_wp, 0.0000_wp, &
& 398.0929_wp, 389.9930_wp, 380.0003_wp, 368.0353_wp, 0.0000_wp, &
& 325.3228_wp, 319.4128_wp, 311.9993_wp, 303.0357_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 471.8376_wp, 462.0716_wp, 450.0464_wp, 435.6660_wp, 0.0000_wp, &
& 441.2868_wp, 432.4153_wp, 421.4482_wp, 408.3015_wp, 0.0000_wp, &
& 420.0429_wp, 411.7682_wp, 401.5098_wp, 389.1922_wp, 0.0000_wp, &
& 376.1815_wp, 369.1481_wp, 360.3629_wp, 349.7673_wp, 0.0000_wp, &
& 331.8378_wp, 326.0484_wp, 318.7416_wp, 309.8748_wp, 0.0000_wp, &
& 401.9920_wp, 394.5852_wp, 385.3125_wp, 374.1139_wp, 0.0000_wp, &
& 395.1495_wp, 387.9210_wp, 378.8626_wp, 367.9163_wp, 0.0000_wp, &
& 384.7323_wp, 377.7830_wp, 369.0585_wp, 358.5042_wp, 0.0000_wp, &
& 370.5178_wp, 363.9541_wp, 355.6897_wp, 345.6750_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 360.4735_wp, 354.3291_wp, 346.5496_wp, 337.0911_wp, 0.0000_wp, &
& 360.6185_wp, 354.4637_wp, 346.6728_wp, 337.2018_wp, 0.0000_wp, &
& 357.7845_wp, 351.6912_wp, 343.9761_wp, 334.5957_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 315.2774_wp, 310.3386_wp, 304.0064_wp, 296.2504_wp, 0.0000_wp, &
& 317.4838_wp, 312.4875_wp, 306.0865_wp, 298.2495_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.0755_wp, 270.1200_wp, 264.9847_wp, 258.6489_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1452.9418_wp, 1403.6411_wp, 1346.6051_wp, 1280.7871_wp, 0.0000_wp, &
& 532.3907_wp, 520.1567_wp, 505.3496_wp, 487.8113_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1273.2370_wp, 1235.5778_wp, 1191.2973_wp, 1139.7642_wp, 0.0000_wp, &
& 1040.0523_wp, 1009.5291_wp, 973.6474_wp, 931.8633_wp, 0.0000_wp, &
& 548.5516_wp, 536.9214_wp, 522.6714_wp, 505.6763_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1114.3977_wp, 1083.7333_wp, 1047.3694_wp, 1004.8393_wp, 0.0000_wp, &
& 793.6701_wp, 773.6203_wp, 749.6258_wp, 721.3882_wp, 0.0000_wp, &
& 527.4831_wp, 517.1837_wp, 504.4104_wp, 489.0684_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1001.0315_wp, 974.7789_wp, 943.4690_wp, 906.7257_wp, 0.0000_wp, &
& 589.7648_wp, 577.2776_wp, 561.9792_wp, 543.7314_wp, 0.0000_wp, &
& 531.8665_wp, 521.7376_wp, 509.1300_wp, 493.9544_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 912.4820_wp, 889.3363_wp, 861.6243_wp, 829.0262_wp, 0.0000_wp, &
& 595.6640_wp, 583.0094_wp, 567.5150_wp, 549.0417_wp, 0.0000_wp, &
& 514.4452_wp, 504.5697_wp, 492.3013_wp, 477.5480_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 704.0713_wp, 687.2609_wp, 666.9990_wp, 643.0649_wp, 0.0000_wp, &
& 555.3255_wp, 543.8367_wp, 529.7234_wp, 512.8620_wp, 0.0000_wp, &
& 454.5781_wp, 446.4655_wp, 436.2842_wp, 423.9671_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 785.7517_wp, 766.5586_wp, 743.4824_wp, 716.2664_wp, 0.0000_wp, &
& 623.3539_wp, 609.2320_wp, 592.1062_wp, 571.7958_wp, 0.0000_wp, &
& 401.0700_wp, 394.3395_wp, 385.8174_wp, 375.4533_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 598.2792_wp, 584.6336_wp, 568.0989_wp, 548.5041_wp, 0.0000_wp, &
& 483.8143_wp, 474.4987_wp, 462.9393_wp, 449.0481_wp, 0.0000_wp, &
& 378.9740_wp, 372.7610_wp, 364.8680_wp, 355.2503_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 653.9337_wp, 638.9836_wp, 620.8581_wp, 599.3763_wp, 0.0000_wp, &
& 452.6451_wp, 443.9926_wp, 433.2501_wp, 420.3354_wp, 0.0000_wp, &
& 386.3661_wp, 379.5520_wp, 370.9970_wp, 360.6434_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 606.3128_wp, 592.7690_wp, 576.3005_wp, 556.7487_wp, 0.0000_wp, &
& 420.3274_wp, 412.4056_wp, 402.5546_wp, 390.6999_wp, 0.0000_wp, &
& 403.6983_wp, 396.4304_wp, 387.3300_wp, 376.3349_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 505.7574_wp, 494.3345_wp, 480.4874_wp, 464.0717_wp, 0.0000_wp, &
& 406.7084_wp, 398.9498_wp, 389.3206_wp, 377.7464_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 534.1714_wp, 522.5960_wp, 508.4672_wp, 491.6555_wp, 0.0000_wp, &
& 402.0900_wp, 394.8667_wp, 385.8127_wp, 374.8687_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 670.7354_wp, 655.0919_wp, 636.1713_wp, 613.7787_wp, 0.0000_wp, &
& 639.1315_wp, 624.6910_wp, 607.1518_wp, 586.3425_wp, 0.0000_wp, &
& 513.7324_wp, 503.4180_wp, 490.6881_wp, 475.4403_wp, 0.0000_wp, &
& 437.0798_wp, 429.1940_wp, 419.3073_wp, 407.3563_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 619.5827_wp, 606.4077_wp, 590.2650_wp, 571.0158_wp, 0.0000_wp, &
& 577.5750_wp, 565.7546_wp, 551.1960_wp, 533.7812_wp, 0.0000_wp, &
& 558.2505_wp, 547.0601_wp, 533.2373_wp, 516.6741_wp, 0.0000_wp, &
& 502.4286_wp, 492.9508_wp, 481.1410_wp, 466.9170_wp, 0.0000_wp, &
& 453.9039_wp, 445.8726_wp, 435.7692_wp, 423.5320_wp, 0.0000_wp, &
& 551.5605_wp, 540.9395_wp, 527.7411_wp, 511.8706_wp, 0.0000_wp, &
& 540.4832_wp, 530.2215_wp, 517.4436_wp, 502.0601_wp, 0.0000_wp, &
& 525.5339_wp, 515.7394_wp, 503.5103_wp, 488.7637_wp, 0.0000_wp, &
& 506.6931_wp, 497.4742_wp, 485.9225_wp, 471.9635_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 511.3976_wp, 502.1650_wp, 490.5842_wp, 476.5808_wp, 0.0000_wp, &
& 510.9988_wp, 501.8122_wp, 490.2815_wp, 476.3335_wp, 0.0000_wp, &
& 506.8129_wp, 497.7687_wp, 486.4040_wp, 472.6478_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 462.0834_wp, 454.3277_wp, 444.4937_wp, 432.5265_wp, 0.0000_wp, &
& 466.4183_wp, 458.5808_wp, 448.6443_wp, 436.5534_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 415.2011_wp, 408.7212_wp, 400.4140_wp, 390.2393_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1769.6390_wp, 1709.8764_wp, 1640.7171_wp, 1560.8728_wp, 0.0000_wp, &
& 628.9051_wp, 615.4853_wp, 599.0719_wp, 579.5093_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1623.4740_wp, 1574.4445_wp, 1516.9526_wp, 1450.1356_wp, 0.0000_wp, &
& 1348.7488_wp, 1308.1372_wp, 1260.5537_wp, 1205.2309_wp, 0.0000_wp, &
& 663.2201_wp, 649.4718_wp, 632.5794_wp, 612.3963_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1425.1223_wp, 1384.9862_wp, 1337.5362_wp, 1282.1300_wp, 0.0000_wp, &
& 1004.5839_wp, 978.8763_wp, 948.1668_wp, 912.0597_wp, 0.0000_wp, &
& 687.0637_wp, 673.4193_wp, 656.5390_wp, 636.2925_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 651.7126_wp, 638.9321_wp, 623.1024_wp, 604.1023_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1438.2615_wp, 1395.8040_wp, 1345.8984_wp, 1287.8172_wp, 0.0000_wp, &
& 632.0313_wp, 619.7104_wp, 604.4376_wp, 586.0972_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1380.9451_wp, 1340.6235_wp, 1293.1656_wp, 1237.8955_wp, 0.0000_wp, &
& 618.9597_wp, 606.9059_wp, 591.9623_wp, 574.0159_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1346.2674_wp, 1307.0810_wp, 1260.9414_wp, 1207.1956_wp, 0.0000_wp, &
& 599.3180_wp, 587.7074_wp, 573.3032_wp, 555.9973_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1314.3784_wp, 1276.2220_wp, 1231.2801_wp, 1178.9199_wp, 0.0000_wp, &
& 602.3455_wp, 590.4967_wp, 575.8301_wp, 558.2314_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1286.0963_wp, 1248.8582_wp, 1204.9833_wp, 1153.8573_wp, 0.0000_wp, &
& 580.9983_wp, 568.9883_wp, 554.2328_wp, 536.6052_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1010.3860_wp, 983.4716_wp, 951.4629_wp, 913.9523_wp, 0.0000_wp, &
& 606.1609_wp, 594.1781_wp, 579.3527_wp, 561.5696_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1139.0166_wp, 1105.0192_wp, 1065.1460_wp, 1018.7768_wp, 0.0000_wp, &
& 569.2956_wp, 558.1853_wp, 544.4158_wp, 527.8827_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1098.3110_wp, 1065.9790_wp, 1028.0001_wp, 983.7902_wp, 0.0000_wp, &
& 579.4185_wp, 567.7973_wp, 553.4532_wp, 536.2698_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1159.7774_wp, 1126.7767_wp, 1087.8112_wp, 1042.3525_wp, 0.0000_wp, &
& 540.2841_wp, 529.8806_wp, 516.9607_wp, 501.4295_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1135.1424_wp, 1102.9019_wp, 1064.8244_wp, 1020.3958_wp, 0.0000_wp, &
& 524.8641_wp, 514.8088_wp, 502.3120_wp, 487.2828_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1112.9109_wp, 1081.3880_wp, 1044.1447_wp, 1000.6811_wp, 0.0000_wp, &
& 521.5117_wp, 511.4801_wp, 499.0196_wp, 484.0388_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1099.9410_wp, 1068.6785_wp, 1031.7560_wp, 988.6765_wp, 0.0000_wp, &
& 548.2614_wp, 537.4797_wp, 524.1252_wp, 508.0972_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 926.1291_wp, 901.2822_wp, 871.7439_wp, 837.1409_wp, 0.0000_wp, &
& 504.0254_wp, 494.4060_wp, 482.4424_wp, 468.0488_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 909.8154_wp, 887.2966_wp, 860.2452_wp, 828.3636_wp, 0.0000_wp, &
& 683.9723_wp, 668.5211_wp, 649.7591_wp, 627.4941_wp, 0.0000_wp, &
& 509.0381_wp, 499.6808_wp, 487.9741_wp, 473.8404_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 829.8285_wp, 810.3456_wp, 786.7867_wp, 758.9121_wp, 0.0000_wp, &
& 634.4345_wp, 620.8701_wp, 604.2805_wp, 584.5100_wp, 0.0000_wp, &
& 531.9314_wp, 521.8162_wp, 509.2354_wp, 494.0945_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 700.4395_wp, 684.7157_wp, 665.6088_wp, 642.9298_wp, 0.0000_wp, &
& 578.5533_wp, 566.9046_wp, 552.5418_wp, 535.3435_wp, 0.0000_wp, &
& 493.8119_wp, 485.0483_wp, 474.0398_wp, 460.7147_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 712.4170_wp, 696.7607_wp, 677.6767_wp, 654.9853_wp, 0.0000_wp, &
& 585.7878_wp, 573.3450_wp, 558.1192_wp, 539.9690_wp, 0.0000_wp, &
& 448.3422_wp, 440.8179_wp, 431.2897_wp, 419.7015_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 645.3765_wp, 631.8903_wp, 615.3422_wp, 595.5885_wp, 0.0000_wp, &
& 512.0788_wp, 502.6732_wp, 490.9223_wp, 476.7436_wp, 0.0000_wp, &
& 421.6398_wp, 414.8918_wp, 406.2851_wp, 395.7738_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 590.8505_wp, 579.0168_wp, 564.4143_wp, 546.9244_wp, 0.0000_wp, &
& 481.7084_wp, 473.0598_wp, 462.2233_wp, 449.1250_wp, 0.0000_wp, &
& 430.2256_wp, 422.8733_wp, 413.5997_wp, 402.3454_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.7234_wp, 481.3486_wp, 469.7168_wp, 455.7373_wp, 0.0000_wp, &
& 460.0986_wp, 451.9506_wp, 441.7242_wp, 429.3508_wp, 0.0000_wp, &
& 452.4945_wp, 444.7184_wp, 434.9130_wp, 423.0171_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 458.4726_wp, 449.8803_wp, 439.1950_wp, 426.3352_wp, 0.0000_wp, &
& 439.9646_wp, 432.1513_wp, 422.3549_wp, 410.5084_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 471.5231_wp, 462.8708_wp, 452.0701_wp, 439.0441_wp, 0.0000_wp, &
& 424.8925_wp, 417.7789_wp, 408.7731_wp, 397.8225_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 688.5655_wp, 672.9015_wp, 653.9182_wp, 631.4178_wp, 0.0000_wp, &
& 686.2168_wp, 671.0011_wp, 652.4923_wp, 630.5078_wp, 0.0000_wp, &
& 548.6218_wp, 538.1003_wp, 525.0395_wp, 509.3407_wp, 0.0000_wp, &
& 488.2687_wp, 479.6659_wp, 468.8505_wp, 455.7544_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 672.6904_wp, 658.4391_wp, 640.9870_wp, 620.1792_wp, 0.0000_wp, &
& 624.8006_wp, 612.2366_wp, 596.7381_wp, 578.1795_wp, 0.0000_wp, &
& 579.7499_wp, 568.6804_wp, 554.9231_wp, 538.3769_wp, 0.0000_wp, &
& 568.5138_wp, 557.9166_wp, 544.6976_wp, 528.7649_wp, 0.0000_wp, &
& 528.2653_wp, 518.9107_wp, 507.1513_wp, 492.9138_wp, 0.0000_wp, &
& 617.5296_wp, 605.5499_wp, 590.6919_wp, 572.8443_wp, 0.0000_wp, &
& 605.5499_wp, 594.0457_wp, 579.7329_wp, 562.5087_wp, 0.0000_wp, &
& 590.6919_wp, 579.7329_wp, 566.0497_wp, 549.5487_wp, 0.0000_wp, &
& 572.8443_wp, 562.5087_wp, 549.5487_wp, 533.8810_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 40.7106_wp, 40.7840_wp, 40.6835_wp, 0.0000_wp, 0.0000_wp, &
& 65.1605_wp, 65.2146_wp, 64.9760_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 27.2118_wp, 27.2927_wp, 27.2690_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 607.3151_wp, 603.7828_wp, 597.0483_wp, 0.0000_wp, 0.0000_wp, &
& 208.1269_wp, 207.7296_wp, 206.3143_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 357.4603_wp, 356.6773_wp, 354.1279_wp, 0.0000_wp, 0.0000_wp, &
& 266.0200_wp, 265.6196_wp, 263.9351_wp, 0.0000_wp, 0.0000_wp, &
& 175.2516_wp, 175.3047_wp, 174.5535_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.3057_wp, 243.2553_wp, 242.0722_wp, 0.0000_wp, 0.0000_wp, &
& 205.1334_wp, 205.1682_wp, 204.2639_wp, 0.0000_wp, 0.0000_wp, &
& 172.6136_wp, 172.7071_wp, 172.0238_wp, 0.0000_wp, 0.0000_wp, &
& 131.9596_wp, 132.1597_wp, 131.7889_wp, 0.0000_wp, 0.0000_wp, &
& 124.2802_wp, 124.4851_wp, 124.1567_wp, 0.0000_wp, 0.0000_wp, &
& 165.7327_wp, 165.9180_wp, 165.3751_wp, 0.0000_wp, 0.0000_wp, &
& 155.4506_wp, 155.6188_wp, 155.1060_wp, 0.0000_wp, 0.0000_wp, &
& 127.1952_wp, 127.3976_wp, 127.0566_wp, 0.0000_wp, 0.0000_wp, &
& 119.0531_wp, 119.2401_wp, 118.9208_wp, 0.0000_wp, 0.0000_wp, &
& 97.8332_wp, 98.0575_wp, 97.8817_wp, 0.0000_wp, 0.0000_wp, &
& 116.6615_wp, 116.8921_wp, 116.6366_wp, 0.0000_wp, 0.0000_wp, &
& 108.8134_wp, 109.0287_wp, 108.7927_wp, 0.0000_wp, 0.0000_wp, &
& 102.2646_wp, 102.4740_wp, 102.2624_wp, 0.0000_wp, 0.0000_wp, &
& 90.1853_wp, 90.3760_wp, 90.2005_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 88.7736_wp, 88.9960_wp, 88.8641_wp, 0.0000_wp, 0.0000_wp, &
& 79.7133_wp, 79.9230_wp, 79.8188_wp, 0.0000_wp, 0.0000_wp, &
& 70.4769_wp, 70.6708_wp, 70.5926_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 67.5672_wp, 67.7625_wp, 67.6992_wp, 0.0000_wp, 0.0000_wp, &
& 55.2614_wp, 55.4450_wp, 55.4264_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 52.1881_wp, 52.3520_wp, 52.3237_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 727.2631_wp, 723.1832_wp, 715.2918_wp, 0.0000_wp, 0.0000_wp, &
& 303.8303_wp, 303.1305_wp, 300.9390_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 567.8072_wp, 566.1891_wp, 561.7309_wp, 0.0000_wp, 0.0000_wp, &
& 469.3523_wp, 468.2106_wp, 464.7507_wp, 0.0000_wp, 0.0000_wp, &
& 309.5177_wp, 309.3423_wp, 307.7075_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.2600_wp, 525.3265_wp, 521.8274_wp, 0.0000_wp, 0.0000_wp, &
& 477.5862_wp, 476.8590_wp, 473.8214_wp, 0.0000_wp, 0.0000_wp, &
& 373.8151_wp, 373.5651_wp, 371.5511_wp, 0.0000_wp, 0.0000_wp, &
& 292.7959_wp, 292.9032_wp, 291.6714_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 417.6844_wp, 417.5182_wp, 415.3936_wp, 0.0000_wp, 0.0000_wp, &
& 386.4675_wp, 386.3885_wp, 384.5110_wp, 0.0000_wp, 0.0000_wp, &
& 359.8412_wp, 359.8342_wp, 358.1639_wp, 0.0000_wp, 0.0000_wp, &
& 350.4967_wp, 350.4417_wp, 348.7639_wp, 0.0000_wp, 0.0000_wp, &
& 289.6447_wp, 289.8561_wp, 288.7638_wp, 0.0000_wp, 0.0000_wp, &
& 327.7136_wp, 327.9420_wp, 326.6948_wp, 0.0000_wp, 0.0000_wp, &
& 318.1841_wp, 318.4162_wp, 317.2192_wp, 0.0000_wp, 0.0000_wp, &
& 313.7802_wp, 313.9859_wp, 312.7804_wp, 0.0000_wp, 0.0000_wp, &
& 291.5130_wp, 291.7857_wp, 290.7612_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 273.0995_wp, 273.4676_wp, 272.6447_wp, 0.0000_wp, 0.0000_wp, &
& 270.0779_wp, 270.4365_wp, 269.6172_wp, 0.0000_wp, 0.0000_wp, &
& 264.6481_wp, 265.0016_wp, 264.2022_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 223.9850_wp, 224.4164_wp, 223.9035_wp, 0.0000_wp, 0.0000_wp, &
& 221.6567_wp, 222.0800_wp, 221.5689_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 183.9223_wp, 184.3601_wp, 184.0479_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1189.1902_wp, 1181.9863_wp, 1168.5636_wp, 0.0000_wp, 0.0000_wp, &
& 420.8684_wp, 420.2116_wp, 417.5603_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 992.2125_wp, 988.2709_wp, 979.2896_wp, 0.0000_wp, 0.0000_wp, &
& 794.4491_wp, 791.4164_wp, 784.3917_wp, 0.0000_wp, 0.0000_wp, &
& 434.1487_wp, 433.8711_wp, 431.5673_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 821.7825_wp, 818.9160_wp, 811.9113_wp, 0.0000_wp, 0.0000_wp, &
& 423.2063_wp, 422.9969_wp, 420.8233_wp, 0.0000_wp, 0.0000_wp, &
& 418.3364_wp, 418.2904_wp, 416.3214_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 795.5384_wp, 793.1270_wp, 786.7561_wp, 0.0000_wp, 0.0000_wp, &
& 408.6951_wp, 408.5100_wp, 406.4345_wp, 0.0000_wp, 0.0000_wp, &
& 423.5901_wp, 423.5585_wp, 421.5830_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 729.5657_wp, 727.5491_wp, 721.9255_wp, 0.0000_wp, 0.0000_wp, &
& 400.5172_wp, 400.3242_wp, 398.2791_wp, 0.0000_wp, 0.0000_wp, &
& 387.7153_wp, 387.6670_wp, 385.8440_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 575.1731_wp, 573.6157_wp, 569.2397_wp, 0.0000_wp, 0.0000_wp, &
& 396.5736_wp, 396.3285_wp, 394.2442_wp, 0.0000_wp, 0.0000_wp, &
& 293.4799_wp, 293.6645_wp, 292.5542_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 629.4810_wp, 627.9828_wp, 623.4035_wp, 0.0000_wp, 0.0000_wp, &
& 366.0547_wp, 366.0540_wp, 364.3814_wp, 0.0000_wp, 0.0000_wp, &
& 251.8481_wp, 252.1251_wp, 251.3144_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 494.5914_wp, 493.4612_wp, 489.9354_wp, 0.0000_wp, 0.0000_wp, &
& 339.1478_wp, 339.2062_wp, 337.7270_wp, 0.0000_wp, 0.0000_wp, &
& 247.1479_wp, 247.4035_wp, 246.5894_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 525.4979_wp, 524.5809_wp, 521.1328_wp, 0.0000_wp, 0.0000_wp, &
& 323.5710_wp, 323.6247_wp, 322.2142_wp, 0.0000_wp, 0.0000_wp, &
& 288.4150_wp, 288.4923_wp, 287.2780_wp, 0.0000_wp, 0.0000_wp, &
& 257.5450_wp, 257.7450_wp, 256.8166_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.5327_wp, 539.4410_wp, 535.7257_wp, 0.0000_wp, 0.0000_wp, &
& 316.2653_wp, 316.3002_wp, 314.9022_wp, 0.0000_wp, 0.0000_wp, &
& 269.0574_wp, 269.1896_wp, 268.1274_wp, 0.0000_wp, 0.0000_wp, &
& 281.7843_wp, 281.7769_wp, 280.4988_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 414.7869_wp, 413.9597_wp, 411.1417_wp, 0.0000_wp, 0.0000_wp, &
& 311.7543_wp, 311.6355_wp, 310.0870_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3516:3610) = reshape([ &
& 427.4616_wp, 426.9611_wp, 424.4352_wp, 0.0000_wp, 0.0000_wp, &
& 293.7622_wp, 293.9063_wp, 292.7333_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 505.3600_wp, 504.6627_wp, 501.5441_wp, 0.0000_wp, 0.0000_wp, &
& 475.3134_wp, 474.7845_wp, 471.9957_wp, 0.0000_wp, 0.0000_wp, &
& 378.4324_wp, 378.3575_wp, 376.5335_wp, 0.0000_wp, 0.0000_wp, &
& 311.0434_wp, 311.2526_wp, 310.0655_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 448.0822_wp, 447.9342_wp, 445.7000_wp, 0.0000_wp, 0.0000_wp, &
& 419.7407_wp, 419.7026_wp, 417.7268_wp, 0.0000_wp, 0.0000_wp, &
& 399.9679_wp, 399.9956_wp, 398.1877_wp, 0.0000_wp, 0.0000_wp, &
& 359.1675_wp, 359.3358_wp, 357.8794_wp, 0.0000_wp, 0.0000_wp, &
& 317.8930_wp, 318.1991_wp, 317.0936_wp, 0.0000_wp, 0.0000_wp, &
& 384.0853_wp, 384.3087_wp, 382.8003_wp, 0.0000_wp, 0.0000_wp, &
& 377.6873_wp, 377.9262_wp, 376.4665_wp, 0.0000_wp, 0.0000_wp, &
& 367.9617_wp, 368.2276_wp, 366.8447_wp, 0.0000_wp, 0.0000_wp, &
& 354.6994_wp, 355.0040_wp, 353.7278_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 345.7266_wp, 346.1124_wp, 344.9761_wp, 0.0000_wp, 0.0000_wp, &
& 345.8475_wp, 346.2301_wp, 345.0898_wp, 0.0000_wp, 0.0000_wp, &
& 343.1666_wp, 343.5506_wp, 342.4249_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 303.5448_wp, 304.0401_wp, 303.2344_wp, 0.0000_wp, 0.0000_wp, &
& 305.6097_wp, 306.0997_wp, 305.2783_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 264.7978_wp, 265.3465_wp, 264.7909_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1334.3692_wp, 1326.5708_wp, 1311.8379_wp, 0.0000_wp, 0.0000_wp, &
& 502.8673_wp, 502.2018_wp, 499.1756_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1181.8604_wp, 1177.0902_wp, 1166.3270_wp, 0.0000_wp, 0.0000_wp, &
& 966.3035_wp, 962.5205_wp, 953.8869_wp, 0.0000_wp, 0.0000_wp, &
& 520.3856_wp, 520.0852_wp, 517.3698_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1039.8622_wp, 1036.5660_wp, 1028.0879_wp, 0.0000_wp, 0.0000_wp, &
& 745.1471_wp, 743.4991_wp, 738.2484_wp, 0.0000_wp, 0.0000_wp, &
& 502.5688_wp, 502.6241_wp, 500.3900_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 937.2036_wp, 934.7359_wp, 927.6574_wp, 0.0000_wp, 0.0000_wp, &
& 559.5643_wp, 559.2512_wp, 556.3468_wp, 0.0000_wp, 0.0000_wp, &
& 507.3933_wp, 507.5476_wp, 505.4054_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 856.2398_wp, 854.2884_wp, 848.1665_wp, 0.0000_wp, 0.0000_wp, &
& 565.0648_wp, 564.7260_wp, 561.7704_wp, 0.0000_wp, 0.0000_wp, &
& 490.6394_wp, 490.7521_wp, 488.6493_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 663.3608_wp, 662.2437_wp, 657.9652_wp, 0.0000_wp, 0.0000_wp, &
& 527.5997_wp, 527.3975_wp, 524.7742_wp, 0.0000_wp, 0.0000_wp, &
& 435.1405_wp, 435.4646_wp, 433.8677_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 739.1957_wp, 737.7893_wp, 732.8299_wp, 0.0000_wp, 0.0000_wp, &
& 589.2725_wp, 588.5768_wp, 585.1227_wp, 0.0000_wp, 0.0000_wp, &
& 385.0417_wp, 385.4828_wp, 384.2563_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 565.3141_wp, 564.5986_wp, 561.2313_wp, 0.0000_wp, 0.0000_wp, &
& 461.3936_wp, 461.4745_wp, 459.4787_wp, 0.0000_wp, 0.0000_wp, &
& 364.2197_wp, 364.6873_wp, 363.5898_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 617.6998_wp, 616.9108_wp, 613.2064_wp, 0.0000_wp, 0.0000_wp, &
& 431.8588_wp, 431.9526_wp, 430.1117_wp, 0.0000_wp, 0.0000_wp, &
& 370.1147_wp, 370.4046_wp, 369.0777_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 573.5099_wp, 572.8955_wp, 569.5929_wp, 0.0000_wp, 0.0000_wp, &
& 401.3349_wp, 401.4589_wp, 399.7963_wp, 0.0000_wp, 0.0000_wp, &
& 386.3114_wp, 386.5596_wp, 385.1074_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.2336_wp, 477.6572_wp, 474.8553_wp, 0.0000_wp, 0.0000_wp, &
& 388.1001_wp, 388.1797_wp, 386.5280_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.1686_wp, 505.7567_wp, 502.9946_wp, 0.0000_wp, 0.0000_wp, &
& 384.7622_wp, 385.0190_wp, 383.5763_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 632.7833_wp, 631.8602_wp, 627.9310_wp, 0.0000_wp, 0.0000_wp, &
& 604.1082_wp, 603.4075_wp, 599.8596_wp, 0.0000_wp, 0.0000_wp, &
& 488.8057_wp, 488.7350_wp, 486.4323_wp, 0.0000_wp, 0.0000_wp, &
& 418.1090_wp, 418.3861_wp, 416.8056_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.6097_wp, 587.2526_wp, 584.1601_wp, 0.0000_wp, 0.0000_wp, &
& 548.9328_wp, 548.7765_wp, 546.0918_wp, 0.0000_wp, 0.0000_wp, &
& 531.1573_wp, 531.0959_wp, 528.6014_wp, 0.0000_wp, 0.0000_wp, &
& 479.5467_wp, 479.7172_wp, 477.7264_wp, 0.0000_wp, 0.0000_wp, &
& 434.5851_wp, 434.9405_wp, 433.3703_wp, 0.0000_wp, 0.0000_wp, &
& 525.8728_wp, 525.9823_wp, 523.7050_wp, 0.0000_wp, 0.0000_wp, &
& 515.6847_wp, 515.8479_wp, 513.6797_wp, 0.0000_wp, 0.0000_wp, &
& 501.8893_wp, 502.1181_wp, 500.0891_wp, 0.0000_wp, 0.0000_wp, &
& 484.4680_wp, 484.7740_wp, 482.9144_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 489.1640_wp, 489.5004_wp, 487.6562_wp, 0.0000_wp, 0.0000_wp, &
& 488.8815_wp, 489.2328_wp, 487.4071_wp, 0.0000_wp, 0.0000_wp, &
& 485.0492_wp, 485.4233_wp, 483.6417_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 443.5300_wp, 444.0535_wp, 442.6417_wp, 0.0000_wp, 0.0000_wp, &
& 447.6649_wp, 448.1906_wp, 446.7618_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 399.8335_wp, 400.4827_wp, 399.4259_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1626.0419_wp, 1616.6889_wp, 1598.9091_wp, 0.0000_wp, 0.0000_wp, &
& 596.5387_wp, 596.1669_wp, 593.0376_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1504.7607_wp, 1498.3060_wp, 1484.2030_wp, 0.0000_wp, 0.0000_wp, &
& 1250.8513_wp, 1245.5740_wp, 1233.9967_wp, 0.0000_wp, 0.0000_wp, &
& 630.0014_wp, 629.7613_wp, 626.6204_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1327.7397_wp, 1323.1799_wp, 1311.9805_wp, 0.0000_wp, 0.0000_wp, &
& 942.4352_wp, 940.2295_wp, 933.4590_wp, 0.0000_wp, 0.0000_wp, &
& 654.0503_wp, 654.0389_wp, 651.0351_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 620.8548_wp, 620.8891_wp, 618.1027_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1335.4309_wp, 1330.0657_wp, 1317.9599_wp, 0.0000_wp, 0.0000_wp, &
& 602.2948_wp, 602.3550_wp, 599.6840_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1283.2336_wp, 1278.2459_wp, 1266.7956_wp, 0.0000_wp, 0.0000_wp, &
& 589.8694_wp, 589.9322_wp, 587.3212_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1251.2879_wp, 1246.4709_wp, 1235.3557_wp, 0.0000_wp, 0.0000_wp, &
& 571.3076_wp, 571.3908_wp, 568.8885_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1221.8775_wp, 1217.2125_wp, 1206.4001_wp, 0.0000_wp, 0.0000_wp, &
& 573.7478_wp, 573.7638_wp, 571.1736_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1195.8046_wp, 1191.2765_wp, 1180.7346_wp, 0.0000_wp, 0.0000_wp, &
& 551.9955_wp, 551.7791_wp, 549.0297_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 945.1570_wp, 942.4892_wp, 935.1830_wp, 0.0000_wp, 0.0000_wp, &
& 577.2115_wp, 577.2075_wp, 574.5748_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1056.9864_wp, 1052.6025_wp, 1042.9069_wp, 0.0000_wp, 0.0000_wp, &
& 542.4756_wp, 542.5231_wp, 540.1101_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1020.2790_wp, 1016.2272_wp, 1007.0657_wp, 0.0000_wp, 0.0000_wp, &
& 551.3547_wp, 551.2842_wp, 548.6977_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1079.6889_wp, 1075.8235_wp, 1066.5471_wp, 0.0000_wp, 0.0000_wp, &
& 515.1762_wp, 515.2756_wp, 513.0454_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1056.8831_wp, 1053.1221_wp, 1044.0654_wp, 0.0000_wp, 0.0000_wp, &
& 500.6005_wp, 500.7166_wp, 498.5719_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1036.3788_wp, 1032.7245_wp, 1023.8793_wp, 0.0000_wp, 0.0000_wp, &
& 497.2973_wp, 497.3978_wp, 495.2494_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1024.0338_wp, 1020.3815_wp, 1011.5941_wp, 0.0000_wp, 0.0000_wp, &
& 522.1794_wp, 522.2000_wp, 519.8405_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 865.8030_wp, 863.2925_wp, 856.5112_wp, 0.0000_wp, 0.0000_wp, &
& 480.8059_wp, 480.9331_wp, 478.8893_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 855.0439_wp, 853.3159_wp, 847.4420_wp, 0.0000_wp, 0.0000_wp, &
& 646.5746_wp, 645.8443_wp, 642.0721_wp, 0.0000_wp, 0.0000_wp, &
& 486.4793_wp, 486.7535_wp, 484.8479_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 782.4802_wp, 781.3051_wp, 776.3917_wp, 0.0000_wp, 0.0000_wp, &
& 601.6645_wp, 601.2747_wp, 598.0980_wp, 0.0000_wp, 0.0000_wp, &
& 507.5787_wp, 507.7317_wp, 505.6009_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 662.3820_wp, 661.6565_wp, 657.8221_wp, 0.0000_wp, 0.0000_wp, &
& 550.4809_wp, 550.3934_wp, 547.7989_wp, 0.0000_wp, 0.0000_wp, &
& 472.8170_wp, 473.1890_wp, 471.4757_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 674.4980_wp, 673.8893_wp, 670.1273_wp, 0.0000_wp, 0.0000_wp, &
& 555.7623_wp, 555.4235_wp, 552.5207_wp, 0.0000_wp, 0.0000_wp, &
& 430.4186_wp, 430.9131_wp, 429.5423_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 612.7772_wp, 612.4862_wp, 609.3717_wp, 0.0000_wp, 0.0000_wp, &
& 489.5085_wp, 489.7675_wp, 487.8514_wp, 0.0000_wp, 0.0000_wp, &
& 405.6464_wp, 406.2307_wp, 405.0819_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 562.3100_wp, 562.2334_wp, 559.5987_wp, 0.0000_wp, 0.0000_wp, &
& 461.0120_wp, 461.3238_wp, 459.6048_wp, 0.0000_wp, 0.0000_wp, &
& 412.7468_wp, 413.1587_wp, 411.7843_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 468.2525_wp, 468.3459_wp, 466.3507_wp, 0.0000_wp, 0.0000_wp, &
& 440.6380_wp, 440.9723_wp, 439.3767_wp, 0.0000_wp, 0.0000_wp, &
& 433.9575_wp, 434.3770_wp, 432.9098_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 437.9271_wp, 438.0702_wp, 436.2752_wp, 0.0000_wp, 0.0000_wp, &
& 421.3317_wp, 421.6354_wp, 420.0983_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 450.8074_wp, 451.0299_wp, 449.2604_wp, 0.0000_wp, 0.0000_wp, &
& 407.9616_wp, 408.4221_wp, 407.1216_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 650.7429_wp, 649.9322_wp, 646.0745_wp, 0.0000_wp, 0.0000_wp, &
& 649.4501_wp, 648.7960_wp, 645.1147_wp, 0.0000_wp, 0.0000_wp, &
& 523.3066_wp, 523.4075_wp, 521.1581_wp, 0.0000_wp, 0.0000_wp, &
& 467.6583_wp, 468.0360_wp, 466.3582_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 638.2251_wp, 637.8410_wp, 634.5074_wp, 0.0000_wp, 0.0000_wp, &
& 594.4628_wp, 594.3640_wp, 591.5541_wp, 0.0000_wp, 0.0000_wp, &
& 553.0751_wp, 553.2080_wp, 550.8519_wp, 0.0000_wp, 0.0000_wp, &
& 542.9939_wp, 543.2242_wp, 541.0239_wp, 0.0000_wp, 0.0000_wp, &
& 505.8011_wp, 506.2018_wp, 504.3684_wp, 0.0000_wp, 0.0000_wp, &
& 588.6188_wp, 588.6922_wp, 586.1018_wp, 0.0000_wp, 0.0000_wp, &
& 577.8074_wp, 577.9736_wp, 575.5381_wp, 0.0000_wp, 0.0000_wp, &
& 564.2899_wp, 564.5535_wp, 562.2909_wp, 0.0000_wp, 0.0000_wp, &
& 547.9751_wp, 548.3431_wp, 546.2745_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 562.6011_wp, 562.9049_wp, 560.6983_wp, 0.0000_wp, 0.0000_wp, &
& 562.9049_wp, 563.2463_wp, 561.0805_wp, 0.0000_wp, 0.0000_wp, &
& 560.6983_wp, 561.0805_wp, 558.9712_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 38.0468_wp, 38.5121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 60.3338_wp, 61.0757_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 25.8071_wp, 26.1111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 535.6521_wp, 541.7823_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 188.6073_wp, 190.8807_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 323.1540_wp, 327.0460_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 241.8688_wp, 244.7940_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 161.5240_wp, 163.5087_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 223.3971_wp, 226.1285_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 188.9991_wp, 191.3087_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 159.5852_wp, 161.5337_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 123.0101_wp, 124.5148_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 116.0097_wp, 117.4266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 153.9883_wp, 155.8682_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 144.4532_wp, 146.2118_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 118.7550_wp, 120.1967_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 111.1930_wp, 112.5373_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.9990_wp, 93.1069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 109.3618_wp, 110.6820_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 102.0524_wp, 103.2804_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 96.0071_wp, 97.1579_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 84.7991_wp, 85.8075_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 83.7437_wp, 84.7401_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 75.3268_wp, 76.2186_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 66.7504_wp, 67.5319_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 64.0797_wp, 64.8287_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 52.7033_wp, 53.3092_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 49.7043_wp, 50.2741_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 642.5599_wp, 649.9141_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 274.7315_wp, 278.0094_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 511.0472_wp, 517.1372_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 423.8500_wp, 428.9192_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 283.3481_wp, 286.8021_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 477.3816_wp, 483.1435_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 434.0969_wp, 439.3457_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 342.0211_wp, 346.1857_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 270.0313_wp, 273.3456_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 382.8914_wp, 387.5689_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 354.8666_wp, 359.2039_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 330.9249_wp, 334.9723_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 322.0794_wp, 326.0077_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 268.0024_wp, 271.2916_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 303.1717_wp, 306.8904_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.4710_wp, 298.0806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 290.2629_wp, 293.8159_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 270.2909_wp, 273.6027_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.1899_wp, 257.3000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 251.3550_wp, 254.4284_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 246.3395_wp, 249.3496_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 209.6951_wp, 212.2457_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 207.5008_wp, 210.0233_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 173.0668_wp, 175.1529_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1048.6754_wp, 1060.5365_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.3533_wp, 387.9111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 886.7938_wp, 897.1564_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 711.4143_wp, 719.7141_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 397.7546_wp, 402.5559_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 736.8768_wp, 745.5450_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 388.2122_wp, 392.8995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 384.7925_wp, 389.4608_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 715.8242_wp, 724.2805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 375.1029_wp, 379.6269_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 389.7559_wp, 394.4833_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 657.7700_wp, 665.5600_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 367.5588_wp, 371.9863_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 356.7642_wp, 361.0762_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 519.2280_wp, 525.3466_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 363.6068_wp, 367.9773_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 271.9815_wp, 275.2552_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 569.1850_wp, 575.9477_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 337.0928_wp, 341.1725_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 234.3810_wp, 237.1991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 447.9412_wp, 453.2353_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 312.7991_wp, 316.5839_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 229.8923_wp, 232.6541_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 477.4046_wp, 483.1101_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 298.4799_wp, 302.0858_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 266.4595_wp, 269.6630_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 239.0010_wp, 241.8737_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.0296_wp, 495.8721_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 291.6345_wp, 295.1541_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.0414_wp, 252.0363_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 259.8070_wp, 262.9168_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 376.5450_wp, 380.9995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 286.4803_wp, 289.9157_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 390.0545_wp, 394.7360_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 271.6352_wp, 274.9260_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 460.1323_wp, 465.6773_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 433.6625_wp, 438.9000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 347.7513_wp, 351.9782_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 287.8055_wp, 291.3213_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 411.1914_wp, 416.1967_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 385.9419_wp, 390.6452_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 368.2512_wp, 372.7413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 331.7744_wp, 335.8263_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.8476_wp, 298.4552_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 355.0899_wp, 359.4322_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 349.3407_wp, 353.6122_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 340.6117_wp, 344.7767_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 328.7135_wp, 332.7342_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 321.1572_wp, 325.0832_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 321.2528_wp, 325.1791_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 318.8097_wp, 322.7051_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 283.3626_wp, 286.8165_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 285.2229_wp, 288.6991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 248.3169_wp, 251.3275_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1178.7843_wp, 1192.1368_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 459.0005_wp, 464.4598_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1056.1781_wp, 1068.4888_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 865.0084_wp, 875.0712_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 477.1856_wp, 482.9352_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 934.9280_wp, 945.9470_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 675.1842_wp, 683.1977_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 463.1644_wp, 468.7850_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 845.9589_wp, 855.9848_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 513.2574_wp, 519.4398_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 468.3290_wp, 474.0194_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3611:3705) = reshape([ &
& 775.0077_wp, 784.2171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 518.2124_wp, 524.4449_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 452.8196_wp, 458.3010_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 603.5186_wp, 610.6965_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 484.7890_wp, 490.6173_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.4489_wp, 408.3283_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 671.2092_wp, 679.1913_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 538.3747_wp, 544.7930_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.3106_wp, 362.6374_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 516.1807_wp, 522.3200_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.8721_wp, 431.0011_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 339.4027_wp, 343.4945_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 563.6134_wp, 570.3414_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 398.8768_wp, 403.6693_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 343.5805_wp, 347.7047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 524.1716_wp, 530.4326_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 371.0728_wp, 375.5218_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.1189_wp, 362.4211_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 437.1628_wp, 442.3361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.5954_wp, 362.8851_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 463.6316_wp, 469.1694_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 356.5978_wp, 360.8931_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 576.4869_wp, 583.3654_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 551.5844_wp, 558.1846_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.8564_wp, 455.2761_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 387.2647_wp, 391.9507_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 538.5713_wp, 545.0623_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 504.4140_wp, 510.5057_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 488.7337_wp, 494.6422_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 442.9192_wp, 448.2866_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 402.9083_wp, 407.8002_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 485.0366_wp, 490.9194_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 476.0591_wp, 481.8362_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 463.8486_wp, 469.4814_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 448.3873_wp, 453.8368_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 452.9726_wp, 458.4777_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 452.8206_wp, 458.3253_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 449.4650_wp, 454.9303_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 412.4929_wp, 417.5070_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 416.3043_wp, 421.3660_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 373.3960_wp, 377.9266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1437.5237_wp, 1453.8408_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 547.1220_wp, 553.6997_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1342.7557_wp, 1358.3391_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1117.6702_wp, 1130.6124_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 578.6848_wp, 585.6643_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1191.8004_wp, 1205.7906_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 853.2701_wp, 863.3805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 602.1577_wp, 609.4636_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 572.1988_wp, 579.1142_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1194.1552_wp, 1208.0329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 555.3114_wp, 562.0223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1148.4879_wp, 1161.8576_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 543.8918_wp, 550.4639_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1120.1674_wp, 1133.2140_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 526.9580_wp, 533.3252_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1094.0580_wp, 1106.8065_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 528.7270_wp, 535.1107_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1070.9219_wp, 1083.4069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 507.1942_wp, 513.2832_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 852.6306_wp, 862.6601_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 531.6950_wp, 538.1196_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 945.0450_wp, 955.9642_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 500.1207_wp, 506.1617_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 913.3371_wp, 923.9161_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 507.4938_wp, 513.6130_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 968.2587_wp, 979.5788_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 475.3226_wp, 481.0697_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 947.9202_wp, 959.0071_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 462.0138_wp, 467.6013_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 929.7163_wp, 940.5964_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 458.8425_wp, 464.3920_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 918.3442_wp, 929.0880_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 481.0570_wp, 486.8802_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 780.3151_wp, 789.5044_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 443.8157_wp, 449.1881_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 775.2337_wp, 784.4820_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 590.5386_wp, 597.6183_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 450.0048_wp, 455.4758_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 712.2888_wp, 720.8197_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 551.6379_wp, 558.2674_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 468.7736_wp, 474.4469_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 605.2413_wp, 612.4829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.7199_wp, 512.8204_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 438.5063_wp, 443.8129_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 617.1068_wp, 624.5088_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 509.8615_wp, 515.9741_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 400.5202_wp, 405.3597_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 562.5880_wp, 569.3474_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 453.1257_wp, 458.5923_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 378.4764_wp, 383.0443_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.7285_wp, 523.9520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 427.3975_wp, 432.5432_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 383.8692_wp, 388.4790_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 432.6488_wp, 437.8261_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 408.8925_wp, 413.8059_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.3598_wp, 408.2127_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 405.1802_wp, 410.0181_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 391.0097_wp, 395.6923_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 417.4737_wp, 422.4769_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 379.7328_wp, 384.2979_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 594.3497_wp, 601.4113_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 594.0956_wp, 601.1796_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 483.1587_wp, 488.9676_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 433.9063_wp, 439.1386_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 585.4314_wp, 592.4491_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 547.1156_wp, 553.6959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 510.6480_wp, 516.8055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 502.0246_wp, 508.0886_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 469.0293_wp, 474.7044_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 542.8744_wp, 549.4248_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.5647_wp, 540.0116_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 521.8050_wp, 528.1183_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 507.5258_wp, 513.6750_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 520.5872_wp, 526.8857_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 521.1177_wp, 527.4278_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 519.3690_wp, 525.6624_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 483.6536_wp, 489.5133_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 489.5133_wp, 495.4474_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 35.2750_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 55.4345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 24.2886_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 471.2994_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 169.8943_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 290.4079_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 218.5687_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 147.7541_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 203.6621_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 172.8854_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 146.4721_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 113.7716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 107.4421_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 141.9946_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 133.2432_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 110.0314_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 103.0788_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 85.8432_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 101.7340_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 94.9928_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 89.4589_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 79.1555_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 78.3993_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 70.6480_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 62.7578_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 60.3208_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 49.8927_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 46.9970_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 566.3047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 247.0635_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 457.5207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 380.6793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 257.5824_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 430.4070_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 392.1169_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 310.8162_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 247.1615_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 348.5324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 323.5411_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 302.1462_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.9018_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 246.0855_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 278.3441_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 270.4677_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 266.5063_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 248.7032_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 234.7563_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 232.1258_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 227.5338_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 194.7778_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 192.7316_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 161.5778_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 923.4896_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 347.3437_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 789.4651_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 634.7921_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 362.0675_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 657.8209_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 353.8005_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 351.5142_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 641.0689_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 342.0575_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 356.1653_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 590.1365_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 335.1610_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 326.0951_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 466.5786_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 331.3014_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 250.3325_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 512.0069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 308.2947_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 216.5823_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.7162_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 286.5017_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.3388_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 431.2543_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 273.4501_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 244.5308_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 220.2545_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.8052_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 267.0974_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 228.9410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 238.0129_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 340.1029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 261.5923_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 353.7569_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 249.3809_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 416.4072_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 393.1850_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 317.3656_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 264.3147_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 374.7378_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 352.3749_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 336.6417_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 304.2237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 271.3855_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 325.8468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 320.7197_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 312.9382_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 302.3320_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 296.0591_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 296.1364_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 293.9292_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 262.4678_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 264.1334_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 231.0392_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1039.8788_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 416.7321_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 940.3766_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 771.7877_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 434.8109_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 836.8244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 608.8625_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 423.8939_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 759.8686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 467.8458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 429.2215_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 697.9075_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 472.3058_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 415.0605_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 546.1762_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 442.6674_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 371.4277_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 606.2881_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 489.1862_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 331.0301_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 468.7527_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 390.4711_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 313.9849_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 511.3370_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 365.9914_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 316.7738_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 476.2913_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 340.8458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 329.7218_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 397.5123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 329.1990_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 422.1393_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 328.1840_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 522.2524_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 500.6786_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 411.2899_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 356.1266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.4574_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 460.4353_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 446.6683_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 406.2058_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.7947_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3706:3800) = reshape([ &
& 444.2351_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 436.3686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 425.6205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 411.9735_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 416.4038_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 416.3558_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 413.4353_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 380.7463_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 384.2311_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 346.0340_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1269.1514_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 498.7871_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1194.2553_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 995.8679_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 528.1695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1065.3886_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 768.9982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 550.6010_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 523.7999_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1064.1113_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 508.5306_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1024.1601_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 498.1057_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 999.1004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.7555_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 975.9671_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 483.9827_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 955.4753_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 463.1060_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 765.7754_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 486.4812_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 842.4808_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 457.9588_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 815.0810_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 464.0615_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 864.8600_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 435.5489_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 846.7641_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 423.4681_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 830.6337_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 420.4539_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 820.2223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.1420_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 700.0939_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 406.8304_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 699.0850_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 536.2567_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 413.2665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 644.6713_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 502.6997_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 429.9772_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 549.8392_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 463.4551_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 403.7991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 561.2137_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 464.9384_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 370.0024_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 513.2761_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 416.5637_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 350.5256_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 473.6087_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 393.5069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 354.5398_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 397.1906_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 376.8288_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 372.2861_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 372.4825_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 360.4289_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 384.0241_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 350.9349_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 539.9055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.3621_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 443.1304_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 399.7356_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.6984_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 500.2711_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 468.2735_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 460.9178_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 431.7936_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 497.2972_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 489.3116_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 479.1236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 466.6804_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.3113_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.9983_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 477.6315_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 446.0447_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 451.4455_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 412.8275_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 100.7494_wp, 47.7016_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 174.9212_wp, 77.7055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 59.6594_wp, 30.9827_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2894.5966_wp, 821.2898_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 697.6449_wp, 260.2443_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1218.9348_wp, 449.0776_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 875.8563_wp, 330.8667_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.0315_wp, 210.8125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 710.6585_wp, 295.2992_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 582.9815_wp, 247.3831_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 478.9676_wp, 206.8979_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 334.3564_wp, 155.3487_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 311.3222_wp, 145.9399_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 434.1967_wp, 196.4082_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 410.5860_wp, 184.4431_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 319.5738_wp, 149.3279_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 299.7237_wp, 139.7510_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 230.7554_wp, 113.3031_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 282.7763_wp, 135.8619_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 264.4430_wp, 126.7534_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 246.0048_wp, 118.8019_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 215.4634_wp, 104.5128_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 203.9723_wp, 102.0913_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 181.0055_wp, 91.4388_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 157.3695_wp, 80.4326_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 148.3584_wp, 76.8281_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 115.4321_wp, 62.1219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 110.5120_wp, 58.7599_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3398.6461_wp, 978.7272_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1052.1318_wp, 382.2708_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2044.6296_wp, 721.6286_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1657.5070_wp, 592.9795_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 924.2573_wp, 377.4216_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1746.5418_wp, 656.4658_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1555.8848_wp, 593.1905_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1139.7020_wp, 457.4294_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 813.1166_wp, 351.5586_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1237.8269_wp, 508.4877_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1129.8915_wp, 468.9906_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1035.3860_wp, 435.2078_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1024.4219_wp, 425.0723_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 782.4574_wp, 345.6972_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 888.8225_wp, 391.4528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 861.3824_wp, 379.8612_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 855.3214_wp, 375.0717_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 775.4670_wp, 346.7152_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 701.9761_wp, 322.4346_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 695.5353_wp, 318.9608_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 681.0241_wp, 312.4727_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 547.2712_wp, 261.5363_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 542.2953_wp, 258.8652_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 430.4468_wp, 212.6910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6020.9123_wp, 1623.5241_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1400.1686_wp, 523.4690_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3988.5535_wp, 1290.6007_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3271.2563_wp, 1034.5424_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1313.9837_wp, 530.1889_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3153.3933_wp, 1058.1233_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1263.0191_wp, 515.4409_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1211.2384_wp, 506.1252_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2948.3214_wp, 1015.7559_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1226.3970_wp, 497.5952_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1222.4279_wp, 512.1076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2644.1348_wp, 926.7170_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1202.7024_wp, 487.7415_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1128.6750_wp, 469.1513_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2095.1563_wp, 730.3469_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1205.4436_wp, 484.0680_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 800.2739_wp, 349.9893_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2209.2516_wp, 793.6663_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1047.2098_wp, 441.5259_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 658.3545_wp, 297.6087_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1735.9767_wp, 622.7390_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 956.8205_wp, 407.7462_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 649.1664_wp, 292.3001_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1740.6013_wp, 654.3215_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 915.1610_wp, 389.0394_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 810.3485_wp, 345.9951_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 690.8529_wp, 305.9775_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1830.2286_wp, 676.3693_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 898.4706_wp, 380.5722_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 739.1647_wp, 321.3035_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 809.8160_wp, 339.6152_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1416.8737_wp, 519.0234_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 923.4448_wp, 378.3131_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1346.4975_wp, 526.3991_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 804.9902_wp, 350.9982_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1633.0869_wp, 626.0266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1501.4541_wp, 585.9332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1108.8359_wp, 458.9149_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 842.2997_wp, 371.1959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1321.9669_wp, 544.6178_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1215.4454_wp, 508.0674_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1142.3947_wp, 482.7248_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 992.0874_wp, 430.4116_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 841.4502_wp, 377.5956_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1050.9064_wp, 459.4511_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1029.5399_wp, 451.4064_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 995.6883_wp, 439.0839_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 948.4444_wp, 422.2156_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 905.4724_wp, 409.7155_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 906.7065_wp, 409.9270_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 898.7234_wp, 406.6434_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 760.7086_wp, 356.3324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 767.7906_wp, 358.9324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 637.9210_wp, 308.1805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6687.9551_wp, 1815.4672_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1647.6456_wp, 623.0285_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4814.0613_wp, 1540.7355_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4053.3897_wp, 1262.3248_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1574.9942_wp, 635.1845_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3923.8630_wp, 1332.5023_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2698.0970_wp, 941.3182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1430.0247_wp, 605.7876_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3377.7348_wp, 1188.5781_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1702.8592_wp, 683.3907_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1420.1434_wp, 609.5011_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3001.2009_wp, 1078.7813_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1712.7050_wp, 690.1339_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1390.4637_wp, 590.3080_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2220.8404_wp, 826.6191_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1581.5449_wp, 641.8884_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1175.8873_wp, 518.3775_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2518.9457_wp, 924.7992_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1918.4029_wp, 728.4795_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1004.0757_wp, 455.1575_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1828.6037_wp, 698.6886_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1308.6904_wp, 554.9802_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 937.3847_wp, 429.2648_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1981.9822_wp, 762.9614_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1222.4485_wp, 518.9273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 997.3856_wp, 440.0217_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1805.2792_wp, 705.4029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1126.9549_wp, 481.2264_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1050.1750_wp, 460.2859_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1540.3020_wp, 589.9223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1096.8369_wp, 465.9323_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1555.0964_wp, 619.1778_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1039.1920_wp, 457.9909_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2067.1731_wp, 784.3364_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1921.0063_wp, 744.5626_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1423.9693_wp, 591.1792_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1129.6762_wp, 498.0234_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1773.2620_wp, 716.7123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1613.2050_wp, 665.6797_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1538.2573_wp, 642.1473_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1333.1000_wp, 574.7794_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1159.9029_wp, 516.5085_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1480.1255_wp, 632.1327_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1438.7730_wp, 618.7237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1384.0410_wp, 600.6902_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1315.5898_wp, 578.0001_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1323.6329_wp, 583.1447_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1319.6282_wp, 582.5163_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1303.4917_wp, 577.4214_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1151.6386_wp, 524.1530_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1163.0702_wp, 529.1245_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 999.4993_wp, 468.7123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 8231.5280_wp, 2213.3513_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1844.3405_wp, 730.4486_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6339.7235_wp, 1974.6939_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5497.9393_wp, 1647.8674_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1887.1061_wp, 766.9569_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5171.5628_wp, 1712.2469_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3485.5386_wp, 1194.7861_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1885.5867_wp, 790.6292_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1776.5919_wp, 748.6587_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5496.9601_wp, 1741.7523_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1716.9108_wp, 725.6535_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3801:3895) = reshape([ &
& 5188.6826_wp, 1668.3774_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1679.7710_wp, 710.5489_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5037.6830_wp, 1625.4063_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1621.7509_wp, 687.6857_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4900.9739_wp, 1586.0020_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1650.1361_wp, 692.2622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4779.2385_wp, 1551.0288_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1643.6058_wp, 670.8149_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3500.4650_wp, 1203.7458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1661.5027_wp, 696.8443_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4518.0145_wp, 1386.1364_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1546.3042_wp, 653.5744_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4325.6882_wp, 1333.8527_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1609.9709_wp, 667.1962_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4221.6216_wp, 1393.9911_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1454.1544_wp, 619.4760_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4121.1013_wp, 1363.8159_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1407.9944_wp, 601.5062_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4027.0614_wp, 1336.4029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1402.4613_wp, 597.8777_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3990.8778_wp, 1321.4462_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1492.4670_wp, 629.7088_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3218.7704_wp, 1103.6008_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1348.0198_wp, 577.4083_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2921.8119_wp, 1071.7256_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2090.8542_wp, 798.7345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1331.7058_wp, 581.5932_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2556.3295_wp, 971.1579_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1858.0508_wp, 736.2614_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1434.8337_wp, 610.0680_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2107.6991_wp, 816.3979_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1620.9287_wp, 667.1004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1273.0029_wp, 562.8570_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2103.2454_wp, 827.9983_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1705.3318_wp, 679.1219_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1122.3371_wp, 508.8263_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1838.3882_wp, 746.0231_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1349.1716_wp, 585.1502_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1030.1431_wp, 476.8481_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1636.3884_wp, 680.0703_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1252.4472_wp, 549.3298_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1093.6353_wp, 488.9395_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1327.1181_wp, 562.5519_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1187.5608_wp, 524.0171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1147.1809_wp, 514.1361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1227.0914_wp, 524.6217_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1139.6407_wp, 501.1487_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1239.4986_wp, 538.2454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1059.9693_wp, 481.5099_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2109.4753_wp, 803.9335_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2053.0994_wp, 798.4879_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1480.4889_wp, 628.7622_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1248.8786_wp, 555.3995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1933.3025_wp, 778.2756_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1733.1333_wp, 719.0994_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1555.4213_wp, 664.0222_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1500.8218_wp, 649.7225_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1352.3973_wp, 601.1198_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1669.9965_wp, 708.2327_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1616.2977_wp, 693.2115_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1553.8386_wp, 674.8221_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1481.5226_wp, 652.8924_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1540.8317_wp, 671.9977_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1533.0137_wp, 671.6167_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1517.3140_wp, 668.1318_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1368.7363_wp, 616.5395_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1384.4068_wp, 623.9602_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1213.4959_wp, 562.2218_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 7314.7398_wp, 2067.1766_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2067.1766_wp, 822.0482_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 99.4131_wp, 83.6090_wp, 49.4359_wp, 0.0000_wp, 0.0000_wp, &
& 170.5082_wp, 142.5589_wp, 80.3048_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 59.6740_wp, 50.7965_wp, 32.2205_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2434.0697_wp, 2063.7836_wp, 822.1500_wp, 0.0000_wp, 0.0000_wp, &
& 649.0325_wp, 539.8661_wp, 266.2038_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1132.0344_wp, 940.4274_wp, 458.9956_wp, 0.0000_wp, 0.0000_wp, &
& 814.1308_wp, 679.2931_wp, 338.7013_wp, 0.0000_wp, 0.0000_wp, &
& 474.5100_wp, 395.7560_wp, 217.5284_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 681.3789_wp, 567.8107_wp, 304.0917_wp, 0.0000_wp, 0.0000_wp, &
& 561.0086_wp, 468.4069_wp, 255.0141_wp, 0.0000_wp, 0.0000_wp, &
& 461.4715_wp, 386.4580_wp, 213.4683_wp, 0.0000_wp, 0.0000_wp, &
& 328.6797_wp, 275.9578_wp, 160.8674_wp, 0.0000_wp, 0.0000_wp, &
& 306.5067_wp, 257.5846_wp, 151.1796_wp, 0.0000_wp, 0.0000_wp, &
& 424.1613_wp, 355.4860_wp, 203.1255_wp, 0.0000_wp, 0.0000_wp, &
& 399.5225_wp, 335.1671_wp, 190.6507_wp, 0.0000_wp, 0.0000_wp, &
& 314.0948_wp, 264.0525_wp, 154.6561_wp, 0.0000_wp, 0.0000_wp, &
& 294.0959_wp, 247.3730_wp, 144.7067_wp, 0.0000_wp, 0.0000_wp, &
& 228.8220_wp, 193.3777_wp, 117.5821_wp, 0.0000_wp, 0.0000_wp, &
& 279.3602_wp, 235.5160_wp, 140.8773_wp, 0.0000_wp, 0.0000_wp, &
& 260.6529_wp, 219.9373_wp, 131.3980_wp, 0.0000_wp, 0.0000_wp, &
& 242.9272_wp, 205.0788_wp, 123.1997_wp, 0.0000_wp, 0.0000_wp, &
& 212.5524_wp, 179.7161_wp, 108.3849_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 202.8260_wp, 171.8472_wp, 106.0306_wp, 0.0000_wp, 0.0000_wp, &
& 180.0988_wp, 152.8448_wp, 94.9909_wp, 0.0000_wp, 0.0000_wp, &
& 156.7317_wp, 133.2852_wp, 83.5912_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 148.2516_wp, 126.1953_wp, 79.8957_wp, 0.0000_wp, 0.0000_wp, &
& 116.0062_wp, 99.2802_wp, 64.6894_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 110.8126_wp, 94.7035_wp, 61.1676_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2874.5717_wp, 2433.4034_wp, 980.9636_wp, 0.0000_wp, 0.0000_wp, &
& 969.7421_wp, 807.4609_wp, 390.2839_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1871.9600_wp, 1557.0501_wp, 735.2872_wp, 0.0000_wp, 0.0000_wp, &
& 1517.3457_wp, 1265.5466_wp, 604.7908_wp, 0.0000_wp, 0.0000_wp, &
& 883.8111_wp, 735.1978_wp, 388.3439_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1627.9493_wp, 1354.4541_wp, 671.8572_wp, 0.0000_wp, 0.0000_wp, &
& 1455.4241_wp, 1211.4303_wp, 607.6450_wp, 0.0000_wp, 0.0000_wp, &
& 1080.3973_wp, 900.6966_wp, 470.1071_wp, 0.0000_wp, 0.0000_wp, &
& 788.4198_wp, 657.7011_wp, 362.8733_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1183.7103_wp, 985.8045_wp, 523.3093_wp, 0.0000_wp, 0.0000_wp, &
& 1082.5018_wp, 902.3443_wp, 482.9264_wp, 0.0000_wp, 0.0000_wp, &
& 995.3732_wp, 830.0097_wp, 448.4545_wp, 0.0000_wp, 0.0000_wp, &
& 979.7618_wp, 817.5351_wp, 437.6413_wp, 0.0000_wp, 0.0000_wp, &
& 761.8362_wp, 636.7053_wp, 357.1817_wp, 0.0000_wp, 0.0000_wp, &
& 864.3429_wp, 722.4419_wp, 404.3688_wp, 0.0000_wp, 0.0000_wp, &
& 837.5128_wp, 700.2807_wp, 392.4061_wp, 0.0000_wp, 0.0000_wp, &
& 830.0834_wp, 694.0552_wp, 387.3287_wp, 0.0000_wp, 0.0000_wp, &
& 756.3233_wp, 632.9758_wp, 358.4059_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 688.3756_wp, 577.4268_wp, 333.7171_wp, 0.0000_wp, 0.0000_wp, &
& 681.6558_wp, 571.8025_wp, 330.0901_wp, 0.0000_wp, 0.0000_wp, &
& 667.4195_wp, 559.9281_wp, 323.3788_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.5868_wp, 455.2593_wp, 271.1408_wp, 0.0000_wp, 0.0000_wp, &
& 535.4706_wp, 450.9431_wp, 268.3553_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 427.5147_wp, 361.4493_wp, 220.7874_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4912.8581_wp, 4218.9528_wp, 1618.3210_wp, 0.0000_wp, 0.0000_wp, &
& 1291.5073_wp, 1080.6042_wp, 535.2211_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3528.9590_wp, 2955.5781_wp, 1306.0236_wp, 0.0000_wp, 0.0000_wp, &
& 2840.9447_wp, 2400.4019_wp, 1045.2655_wp, 0.0000_wp, 0.0000_wp, &
& 1247.1871_wp, 1039.8007_wp, 544.9337_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2829.2273_wp, 2362.8855_wp, 1073.8645_wp, 0.0000_wp, 0.0000_wp, &
& 1203.9859_wp, 1003.1278_wp, 530.0511_wp, 0.0000_wp, 0.0000_wp, &
& 1160.9837_wp, 968.7193_wp, 521.2983_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2665.5950_wp, 2225.6317_wp, 1032.9143_wp, 0.0000_wp, 0.0000_wp, &
& 1162.3660_wp, 971.1709_wp, 511.5959_wp, 0.0000_wp, 0.0000_wp, &
& 1172.5376_wp, 978.4148_wp, 527.5292_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2403.6878_wp, 2006.0593_wp, 943.5738_wp, 0.0000_wp, 0.0000_wp, &
& 1140.3430_wp, 952.3807_wp, 501.4229_wp, 0.0000_wp, 0.0000_wp, &
& 1077.9350_wp, 900.5592_wp, 483.0222_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1894.7707_wp, 1585.0984_wp, 743.1942_wp, 0.0000_wp, 0.0000_wp, &
& 1139.2761_wp, 951.5840_wp, 497.3405_wp, 0.0000_wp, 0.0000_wp, &
& 773.3663_wp, 647.9337_wp, 361.2684_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2023.8919_wp, 1688.3164_wp, 809.5501_wp, 0.0000_wp, 0.0000_wp, &
& 1006.2859_wp, 839.8278_wp, 455.0068_wp, 0.0000_wp, 0.0000_wp, &
& 641.2312_wp, 538.3070_wp, 307.7217_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1584.5838_wp, 1324.5409_wp, 634.9950_wp, 0.0000_wp, 0.0000_wp, &
& 921.4913_wp, 769.6531_wp, 420.4375_wp, 0.0000_wp, 0.0000_wp, &
& 631.7438_wp, 530.1871_wp, 302.1801_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1619.2221_wp, 1348.7863_wp, 669.5156_wp, 0.0000_wp, 0.0000_wp, &
& 879.8339_wp, 735.3257_wp, 401.0824_wp, 0.0000_wp, 0.0000_wp, &
& 778.5193_wp, 651.4943_wp, 356.7321_wp, 0.0000_wp, 0.0000_wp, &
& 670.1098_wp, 561.6015_wp, 316.0762_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1694.2469_wp, 1411.1951_wp, 691.2883_wp, 0.0000_wp, 0.0000_wp, &
& 862.9402_wp, 721.1155_wp, 392.2686_wp, 0.0000_wp, 0.0000_wp, &
& 714.0530_wp, 597.6475_wp, 331.6029_wp, 0.0000_wp, 0.0000_wp, &
& 774.5473_wp, 647.5774_wp, 349.7788_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1302.2136_wp, 1087.8878_wp, 530.0149_wp, 0.0000_wp, 0.0000_wp, &
& 878.3888_wp, 733.5428_wp, 389.1542_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1267.7966_wp, 1055.8450_wp, 540.0198_wp, 0.0000_wp, 0.0000_wp, &
& 780.2675_wp, 652.1404_wp, 362.3948_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1527.0149_wp, 1272.6682_wp, 641.4292_wp, 0.0000_wp, 0.0000_wp, &
& 1411.5217_wp, 1176.3896_wp, 601.0295_wp, 0.0000_wp, 0.0000_wp, &
& 1059.0662_wp, 884.0411_wp, 472.4317_wp, 0.0000_wp, 0.0000_wp, &
& 819.2669_wp, 684.7717_wp, 383.4740_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1263.5730_wp, 1053.2146_wp, 560.5331_wp, 0.0000_wp, 0.0000_wp, &
& 1165.7107_wp, 972.4069_wp, 523.3404_wp, 0.0000_wp, 0.0000_wp, &
& 1098.8136_wp, 916.9315_wp, 497.5333_wp, 0.0000_wp, 0.0000_wp, &
& 960.6062_wp, 802.5738_wp, 444.2516_wp, 0.0000_wp, 0.0000_wp, &
& 821.7173_wp, 687.7017_wp, 390.4281_wp, 0.0000_wp, 0.0000_wp, &
& 1019.7251_wp, 852.1795_wp, 474.4189_wp, 0.0000_wp, 0.0000_wp, &
& 999.4395_wp, 835.4911_wp, 466.1735_wp, 0.0000_wp, 0.0000_wp, &
& 967.7980_wp, 809.3684_wp, 453.5790_wp, 0.0000_wp, 0.0000_wp, &
& 924.0753_wp, 773.1681_wp, 436.3649_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 885.0433_wp, 741.5511_wp, 423.7602_wp, 0.0000_wp, 0.0000_wp, &
& 885.9738_wp, 742.3417_wp, 423.9573_wp, 0.0000_wp, 0.0000_wp, &
& 878.2656_wp, 735.9570_wp, 420.5742_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 748.6502_wp, 629.2099_wp, 369.1145_wp, 0.0000_wp, 0.0000_wp, &
& 755.2617_wp, 634.6807_wp, 371.7726_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 631.2757_wp, 532.2890_wp, 319.6386_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5459.4039_wp, 4692.0594_wp, 1810.8441_wp, 0.0000_wp, 0.0000_wp, &
& 1522.3656_wp, 1275.1297_wp, 637.4404_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4233.9736_wp, 3553.3992_wp, 1557.6903_wp, 0.0000_wp, 0.0000_wp, &
& 3491.0837_wp, 2958.5401_wp, 1273.8440_wp, 0.0000_wp, 0.0000_wp, &
& 1491.7535_wp, 1245.2372_wp, 652.7258_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3524.6180_wp, 2947.7908_wp, 1353.4487_wp, 0.0000_wp, 0.0000_wp, &
& 2413.4225_wp, 2035.2098_wp, 958.3613_wp, 0.0000_wp, 0.0000_wp, &
& 1374.9340_wp, 1148.1563_wp, 624.3856_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3070.0206_wp, 2564.3290_wp, 1210.4384_wp, 0.0000_wp, 0.0000_wp, &
& 1607.8178_wp, 1343.4836_wp, 701.9543_wp, 0.0000_wp, 0.0000_wp, &
& 1370.1849_wp, 1144.7357_wp, 628.6689_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2744.2675_wp, 2292.2709_wp, 1100.2859_wp, 0.0000_wp, 0.0000_wp, &
& 1623.5376_wp, 1353.9176_wp, 708.9273_wp, 0.0000_wp, 0.0000_wp, &
& 1333.9556_wp, 1116.0377_wp, 608.4297_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2048.8350_wp, 1712.6002_wp, 844.9714_wp, 0.0000_wp, 0.0000_wp, &
& 1496.2077_wp, 1251.5281_wp, 659.7925_wp, 0.0000_wp, 0.0000_wp, &
& 1139.5556_wp, 954.6301_wp, 535.3296_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2314.9349_wp, 1934.9917_wp, 944.5755_wp, 0.0000_wp, 0.0000_wp, &
& 1771.5639_wp, 1485.8293_wp, 745.6343_wp, 0.0000_wp, 0.0000_wp, &
& 979.2530_wp, 821.8739_wp, 470.6961_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1698.4672_wp, 1420.5909_wp, 715.4002_wp, 0.0000_wp, 0.0000_wp, &
& 1255.3593_wp, 1050.0362_wp, 571.9460_wp, 0.0000_wp, 0.0000_wp, &
& 916.2401_wp, 769.5781_wp, 444.1389_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1851.1077_wp, 1544.9801_wp, 781.7311_wp, 0.0000_wp, 0.0000_wp, &
& 1171.5378_wp, 980.7226_wp, 534.7969_wp, 0.0000_wp, 0.0000_wp, &
& 964.6140_wp, 809.2430_wp, 454.3824_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1693.9362_wp, 1413.6504_wp, 723.4494_wp, 0.0000_wp, 0.0000_wp, &
& 1081.0405_wp, 905.5129_wp, 496.0877_wp, 0.0000_wp, 0.0000_wp, &
& 1015.4760_wp, 850.8433_wp, 475.1882_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1429.6950_wp, 1196.8365_wp, 604.0720_wp, 0.0000_wp, 0.0000_wp, &
& 1051.1515_wp, 880.0394_wp, 480.1835_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1467.4624_wp, 1224.7085_wp, 635.7758_wp, 0.0000_wp, 0.0000_wp, &
& 1008.1792_wp, 843.9803_wp, 473.0482_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1921.0215_wp, 1604.2050_wp, 802.9517_wp, 0.0000_wp, 0.0000_wp, &
& 1797.5569_wp, 1500.5632_wp, 763.2929_wp, 0.0000_wp, 0.0000_wp, &
& 1358.7684_wp, 1135.5611_wp, 608.6290_wp, 0.0000_wp, 0.0000_wp, &
& 1097.2829_wp, 917.9716_wp, 514.4602_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1683.2537_wp, 1403.7977_wp, 736.7435_wp, 0.0000_wp, 0.0000_wp, &
& 1539.6549_wp, 1284.9412_wp, 685.1258_wp, 0.0000_wp, 0.0000_wp, &
& 1472.9117_wp, 1229.5628_wp, 661.3483_wp, 0.0000_wp, 0.0000_wp, &
& 1287.6457_wp, 1076.0744_wp, 593.0472_wp, 0.0000_wp, 0.0000_wp, &
& 1129.8719_wp, 945.5414_wp, 533.8514_wp, 0.0000_wp, 0.0000_wp, &
& 1426.7831_wp, 1191.5335_wp, 651.8960_wp, 0.0000_wp, 0.0000_wp, &
& 1389.2118_wp, 1160.5961_wp, 638.3059_wp, 0.0000_wp, 0.0000_wp, &
& 1339.4353_wp, 1119.5215_wp, 620.0107_wp, 0.0000_wp, 0.0000_wp, &
& 1277.3025_wp, 1068.1281_wp, 596.9827_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1285.4608_wp, 1075.3755_wp, 602.3548_wp, 0.0000_wp, 0.0000_wp, &
& 1282.1564_wp, 1072.7423_wp, 601.7662_wp, 0.0000_wp, 0.0000_wp, &
& 1267.5667_wp, 1060.7432_wp, 596.6111_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1126.5319_wp, 944.5951_wp, 542.2757_wp, 0.0000_wp, 0.0000_wp, &
& 1137.6470_wp, 953.8631_wp, 547.4091_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 983.6337_wp, 826.9272_wp, 485.5675_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6664.6049_wp, 5752.8877_wp, 2206.5294_wp, 0.0000_wp, 0.0000_wp, &
& 1728.4117_wp, 1447.5205_wp, 749.5704_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5505.2582_wp, 4638.3134_wp, 1992.0198_wp, 0.0000_wp, 0.0000_wp, &
& 4643.3162_wp, 3962.7043_wp, 1658.1771_wp, 0.0000_wp, 0.0000_wp, &
& 1787.7406_wp, 1494.4404_wp, 788.4170_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4594.3095_wp, 3853.2093_wp, 1735.7045_wp, 0.0000_wp, 0.0000_wp, &
& 3089.2071_wp, 2613.0493_wp, 1215.0291_wp, 0.0000_wp, 0.0000_wp, &
& 1807.1153_wp, 1508.9609_wp, 814.3740_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1703.7104_wp, 1423.5132_wp, 771.3546_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4797.6061_wp, 4040.7923_wp, 1759.7955_wp, 0.0000_wp, 0.0000_wp, &
& 1647.6121_wp, 1376.8762_wp, 747.7780_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4562.3865_wp, 3832.7972_wp, 1687.3282_wp, 0.0000_wp, 0.0000_wp, &
& 1612.5437_wp, 1347.4829_wp, 732.2453_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4436.2592_wp, 3725.3298_wp, 1644.3172_wp, 0.0000_wp, 0.0000_wp, &
& 1557.6603_wp, 1301.8447_wp, 708.7802_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4321.4914_wp, 3627.6787_wp, 1604.8351_wp, 0.0000_wp, 0.0000_wp, &
& 1578.5123_wp, 1319.8844_wp, 713.0804_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4219.3690_wp, 3540.7934_wp, 1569.8044_wp, 0.0000_wp, 0.0000_wp, &
& 1560.4236_wp, 1303.6758_wp, 689.7999_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3144.7184_wp, 2635.9841_wp, 1223.7547_wp, 0.0000_wp, 0.0000_wp, &
& 1591.0020_wp, 1329.3323_wp, 717.7923_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3869.3475_wp, 3283.0964_wp, 1397.0237_wp, 0.0000_wp, 0.0000_wp, &
& 1484.2932_wp, 1240.1840_wp, 673.5132_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3700.6978_wp, 3145.7261_wp, 1345.3523_wp, 0.0000_wp, 0.0000_wp, &
& 1533.8391_wp, 1282.7144_wp, 686.7771_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3753.6534_wp, 3144.6702_wp, 1412.7942_wp, 0.0000_wp, 0.0000_wp, &
& 1399.2062_wp, 1169.1884_wp, 638.6724_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3896:3990) = reshape([ &
& 3667.9746_wp, 3072.0386_wp, 1382.4590_wp, 0.0000_wp, 0.0000_wp, &
& 1355.8908_wp, 1133.0697_wp, 620.2482_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3588.4351_wp, 3004.5907_wp, 1354.9696_wp, 0.0000_wp, 0.0000_wp, &
& 1349.7931_wp, 1127.9011_wp, 616.4399_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3554.0067_wp, 2975.8018_wp, 1339.5852_wp, 0.0000_wp, 0.0000_wp, &
& 1433.2640_wp, 1196.8168_wp, 648.9226_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2889.2983_wp, 2422.3257_wp, 1122.0389_wp, 0.0000_wp, 0.0000_wp, &
& 1299.4057_wp, 1085.7933_wp, 595.5027_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2692.1229_wp, 2246.0574_wp, 1094.6876_wp, 0.0000_wp, 0.0000_wp, &
& 1937.0166_wp, 1623.2598_wp, 818.0297_wp, 0.0000_wp, 0.0000_wp, &
& 1290.4127_wp, 1079.0444_wp, 600.4482_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2381.3318_wp, 1985.8562_wp, 994.2848_wp, 0.0000_wp, 0.0000_wp, &
& 1742.4506_wp, 1458.9496_wp, 755.7189_wp, 0.0000_wp, 0.0000_wp, &
& 1375.1465_wp, 1151.6502_wp, 628.8349_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1968.4730_wp, 1644.9966_wp, 836.7523_wp, 0.0000_wp, 0.0000_wp, &
& 1538.7012_wp, 1287.8783_wp, 686.2634_wp, 0.0000_wp, 0.0000_wp, &
& 1234.7444_wp, 1034.4519_wp, 581.3616_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1976.0672_wp, 1650.2454_wp, 849.5870_wp, 0.0000_wp, 0.0000_wp, &
& 1602.2866_wp, 1341.1577_wp, 697.2376_wp, 0.0000_wp, 0.0000_wp, &
& 1094.7171_wp, 918.7410_wp, 526.2037_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1742.8522_wp, 1455.7663_wp, 766.8867_wp, 0.0000_wp, 0.0000_wp, &
& 1300.7391_wp, 1089.6139_wp, 603.7955_wp, 0.0000_wp, 0.0000_wp, &
& 1009.5485_wp, 848.5151_wp, 493.6290_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1561.6887_wp, 1305.1372_wp, 700.0641_wp, 0.0000_wp, 0.0000_wp, &
& 1210.9999_wp, 1014.8760_wp, 567.1344_wp, 0.0000_wp, 0.0000_wp, &
& 1060.4655_wp, 890.6763_wp, 505.2181_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1270.4258_wp, 1063.8806_wp, 579.6428_wp, 0.0000_wp, 0.0000_wp, &
& 1149.6435_wp, 963.9239_wp, 541.1597_wp, 0.0000_wp, 0.0000_wp, &
& 1115.4572_wp, 935.7036_wp, 531.3891_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1176.6222_wp, 986.0081_wp, 540.7978_wp, 0.0000_wp, 0.0000_wp, &
& 1101.2980_wp, 923.7484_wp, 517.4180_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1195.7573_wp, 1001.4312_wp, 555.4019_wp, 0.0000_wp, 0.0000_wp, &
& 1034.6573_wp, 868.3132_wp, 498.0508_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1954.7292_wp, 1636.7789_wp, 823.0786_wp, 0.0000_wp, 0.0000_wp, &
& 1917.2106_wp, 1603.6402_wp, 818.6189_wp, 0.0000_wp, 0.0000_wp, &
& 1420.2956_wp, 1188.3406_wp, 648.0800_wp, 0.0000_wp, 0.0000_wp, &
& 1214.2011_wp, 1017.0070_wp, 573.9232_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1828.6515_wp, 1527.2655_wp, 799.6930_wp, 0.0000_wp, 0.0000_wp, &
& 1653.7357_wp, 1381.8325_wp, 740.2420_wp, 0.0000_wp, 0.0000_wp, &
& 1496.0560_wp, 1251.0172_wp, 684.6813_wp, 0.0000_wp, 0.0000_wp, &
& 1449.8449_wp, 1212.5054_wp, 670.4694_wp, 0.0000_wp, 0.0000_wp, &
& 1315.8434_wp, 1101.5277_wp, 621.2041_wp, 0.0000_wp, 0.0000_wp, &
& 1604.6349_wp, 1340.8219_wp, 730.0070_wp, 0.0000_wp, 0.0000_wp, &
& 1557.8929_wp, 1302.2054_wp, 714.9845_wp, 0.0000_wp, 0.0000_wp, &
& 1502.8627_wp, 1256.7278_wp, 696.5071_wp, 0.0000_wp, 0.0000_wp, &
& 1438.7553_wp, 1203.7016_wp, 674.4162_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1491.4089_wp, 1247.6338_wp, 693.7234_wp, 0.0000_wp, 0.0000_wp, &
& 1485.6837_wp, 1243.0479_wp, 693.5048_wp, 0.0000_wp, 0.0000_wp, &
& 1472.4510_wp, 1232.2448_wp, 690.0976_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1335.1632_wp, 1119.0260_wp, 637.5230_wp, 0.0000_wp, 0.0000_wp, &
& 1350.7426_wp, 1132.0728_wp, 645.2198_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1190.9286_wp, 1000.3262_wp, 582.1236_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 6045.7168_wp, 5185.1636_wp, 2069.3475_wp, 0.0000_wp, 0.0000_wp, &
& 1939.9392_wp, 1624.5332_wp, 843.7947_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5305.4399_wp, 4461.3947_wp, 1961.5822_wp, 0.0000_wp, 0.0000_wp, &
& 4461.3947_wp, 3787.5943_wp, 1640.2094_wp, 0.0000_wp, 0.0000_wp, &
& 1961.5822_wp, 1640.2094_wp, 867.5584_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 89.4060_wp, 51.1073_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 151.8139_wp, 82.5273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 54.4613_wp, 33.6398_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2008.2591_wp, 806.0243_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 561.3519_wp, 268.9814_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 977.2148_wp, 463.0230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 705.4011_wp, 342.8238_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 420.3679_wp, 222.8978_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 600.0533_wp, 310.5859_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 495.6389_wp, 261.0234_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 408.8321_wp, 218.9430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 294.7200_wp, 166.0489_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 275.2171_wp, 156.1808_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 378.6672_wp, 209.1858_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 356.1127_wp, 196.2138_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 281.8509_wp, 159.7830_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 263.7570_wp, 149.4998_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 206.9466_wp, 122.0402_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 251.8086_wp, 145.9537_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 234.7652_wp, 136.0895_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 219.1064_wp, 127.7412_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 191.7954_wp, 112.4669_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 184.0318_wp, 110.3333_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 163.6042_wp, 98.9080_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 142.6636_wp, 87.2108_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 135.2792_wp, 83.4761_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 106.5303_wp, 67.8586_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 101.5857_wp, 64.1443_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2377.4617_wp, 963.5350_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 834.8650_wp, 393.4383_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1604.0300_wp, 738.5419_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1302.8376_wp, 608.6709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 776.4074_wp, 396.0686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1409.8711_wp, 679.4726_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1263.3724_wp, 615.4785_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 945.9883_wp, 478.7430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 699.1260_wp, 372.1080_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1040.5681_wp, 533.9456_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 953.1426_wp, 493.2792_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 878.2550_wp, 458.6209_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 862.4189_wp, 447.0785_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 677.8043_wp, 367.0047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 768.5132_wp, 415.3453_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 744.7632_wp, 403.1240_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 737.4095_wp, 397.7211_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 674.0628_wp, 368.6754_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 616.1319_wp, 344.1377_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 609.9341_wp, 340.3586_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 597.2320_wp, 333.4638_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 486.8835_wp, 280.6567_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.1772_wp, 277.7545_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 387.0720_wp, 229.2849_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4017.4782_wp, 1579.6611_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1115.9288_wp, 541.5052_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2977.1478_wp, 1299.8428_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2386.7637_wp, 1039.3542_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1092.5678_wp, 555.2692_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2402.1540_wp, 1073.0233_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1056.3541_wp, 540.6254_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1023.1422_wp, 533.0015_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2273.2739_wp, 1035.3252_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1019.1422_wp, 521.8291_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1033.7520_wp, 539.5156_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2055.9589_wp, 947.6190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 999.6552_wp, 511.4188_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 948.9231_wp, 493.7990_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1618.3634_wp, 746.3020_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 997.0249_wp, 506.8195_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 686.3579_wp, 371.2120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1738.4495_wp, 815.2919_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 888.2300_wp, 465.7690_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 572.2457_wp, 317.2251_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1360.0663_wp, 639.6818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 814.8080_wp, 430.8790_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 563.4400_wp, 311.4314_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1401.7622_wp, 677.4555_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 777.6165_wp, 411.0232_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 688.3516_wp, 365.8247_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 596.1001_wp, 325.2532_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1462.5357_wp, 698.2313_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 762.2073_wp, 401.8734_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 633.2886_wp, 340.6271_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 682.7156_wp, 358.0940_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1121.7466_wp, 535.1863_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 771.3710_wp, 397.4563_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1104.9523_wp, 548.6812_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 692.6828_wp, 372.2513_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1326.3601_wp, 650.2347_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1229.7307_wp, 610.3734_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 931.8768_wp, 482.6357_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 728.5862_wp, 394.0391_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1111.0958_wp, 572.2109_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1027.4859_wp, 535.0233_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 970.2576_wp, 509.1698_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 851.9462_wp, 455.7931_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 732.8985_wp, 401.8327_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 905.5342_wp, 487.0472_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 887.9112_wp, 478.7221_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 860.6059_wp, 466.0470_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 823.0147_wp, 448.7513_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 790.2645_wp, 436.4377_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 790.9717_wp, 436.6129_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 784.1819_wp, 433.1665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 672.1658_wp, 381.3870_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 677.8767_wp, 384.0680_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 569.5479_wp, 331.2301_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4469.0053_wp, 1769.7228_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1317.6426_wp, 645.7753_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3564.3510_wp, 1548.7458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2924.8174_wp, 1264.8795_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1306.2558_wp, 665.1167_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2997.7722_wp, 1354.5806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2062.2685_wp, 963.8486_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1214.2860_wp, 639.1977_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2627.0446_wp, 1216.1834_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1406.1219_wp, 715.0636_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1212.7510_wp, 644.3806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2356.7083_wp, 1108.1864_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1420.3983_wp, 722.1816_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1178.2143_wp, 623.2027_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1769.2538_wp, 854.3876_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1311.2088_wp, 673.0352_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1012.7341_wp, 550.2508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1994.8729_wp, 953.7682_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1534.6792_wp, 756.0091_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 874.2843_wp, 485.1384_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1473.0457_wp, 725.5272_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1108.4934_wp, 585.8966_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 819.4093_wp, 458.2519_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1608.1722_wp, 793.1478_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1034.5633_wp, 548.0198_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 857.2133_wp, 467.3661_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1475.3924_wp, 735.1655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 955.5359_wp, 508.7346_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 901.6018_wp, 488.4310_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1240.2274_wp, 613.0271_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 928.3302_wp, 492.2252_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1282.2835_wp, 647.3934_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 896.3009_wp, 486.4884_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1665.0502_wp, 813.6674_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1563.7265_wp, 775.1141_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1195.9642_wp, 622.3426_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 975.7591_wp, 528.9870_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1475.1121_wp, 751.1085_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1353.9743_wp, 699.9415_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1297.8097_wp, 676.4019_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1140.7848_wp, 608.4348_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1006.4862_wp, 549.3659_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1262.0917_wp, 668.1278_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1230.2614_wp, 654.6342_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1188.0075_wp, 636.4292_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1135.2332_wp, 613.4893_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1142.9090_wp, 619.1592_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1140.3381_wp, 618.6624_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1128.0206_wp, 613.5605_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1006.9141_wp, 559.0941_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1016.7803_wp, 564.3552_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 883.4140_wp, 502.0150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 5447.8929_wp, 2155.5972_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1507.8114_wp, 762.6560_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4612.0247_wp, 1975.1996_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3865.6041_wp, 1640.7829_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1567.0784_wp, 804.0492_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3889.7052_wp, 1732.7032_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2632.2561_wp, 1220.1975_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1593.0087_wp, 832.7859_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1503.1569_wp, 789.5403_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4032.3992_wp, 1749.1123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1454.3881_wp, 765.6416_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3843.3536_wp, 1679.2118_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1423.6214_wp, 749.7903_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3739.3646_wp, 1636.9858_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1375.7224_wp, 725.9504_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3644.5469_wp, 1598.1651_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1391.6728_wp, 729.7100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3560.2278_wp, 1563.7364_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1369.0464_wp, 704.0229_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2679.6802_wp, 1227.3570_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1402.6190_wp, 734.4027_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3233.3681_wp, 1385.1029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1310.2595_wp, 689.6145_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3096.8078_wp, 1335.4249_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1349.4846_wp, 702.0322_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3176.9406_wp, 1409.8902_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1236.8406_wp, 654.4084_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3105.6847_wp, 1379.9203_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1199.1383_wp, 635.7018_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3039.8461_wp, 1352.8654_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1193.3412_wp, 631.6705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3009.5999_wp, 1337.1510_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1265.0809_wp, 664.2561_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2462.3774_wp, 1125.1350_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1149.7484_wp, 610.4673_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2320.2277_wp, 1104.7547_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1680.4201_wp, 829.7445_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1145.4809_wp, 616.5066_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2064.5670_wp, 1007.0882_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1520.8103_wp, 769.2156_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1214.8259_wp, 644.3107_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1711.5570_wp, 849.5353_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1351.5716_wp, 701.0229_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1097.9052_wp, 597.7266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 3991:4085) = reshape([ &
& 1723.2231_wp, 863.9112_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1399.5346_wp, 710.0608_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 977.4040_wp, 542.3414_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1527.6535_wp, 782.1842_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1152.9664_wp, 619.8872_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 904.4779_wp, 509.7785_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1374.3640_wp, 715.7449_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1075.3003_wp, 582.9054_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 944.3917_wp, 520.2948_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1121.3924_wp, 593.9788_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1021.8132_wp, 556.5985_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 994.0409_wp, 547.2861_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1040.0238_wp, 554.7341_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 978.1710_wp, 532.1308_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1060.0607_wp, 570.4848_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 924.2938_wp, 513.6908_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1694.6605_wp, 834.8644_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1668.1370_wp, 831.8853_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1254.6279_wp, 664.1998_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1081.0636_wp, 590.6951_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1600.8616_wp, 815.2221_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1455.2479_wp, 756.8458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1322.9452_wp, 701.9593_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1285.1719_wp, 688.2431_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1171.6435_wp, 639.2377_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1417.4346_wp, 747.8662_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1378.7984_wp, 733.2479_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1332.9466_wp, 715.1307_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1279.2885_wp, 693.3775_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1323.6360_wp, 712.5600_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1319.5792_wp, 712.6207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1308.9597_wp, 709.4440_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1191.3272_wp, 656.8053_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1205.3587_wp, 664.7508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1067.5065_wp, 601.2986_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4981.4961_wp, 2033.0823_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1693.5702_wp, 858.8440_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4466.9584_wp, 1951.5778_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3741.1085_wp, 1630.4211_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1720.3415_wp, 885.0174_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3799.6565_wp, 1722.6039_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1722.6039_wp, 906.0448_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 82.0836_wp, 58.0420_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 137.4724_wp, 94.6418_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 51.1103_wp, 37.7171_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1672.4768_wp, 1008.8719_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 491.0777_wp, 317.8125_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 852.5249_wp, 548.4203_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 619.0605_wp, 403.9969_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 378.1169_wp, 256.9426_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 536.0858_wp, 360.0553_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 444.8102_wp, 301.5264_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 368.4688_wp, 252.1485_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 269.5021_wp, 189.1137_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 252.1649_wp, 177.6375_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 344.3576_wp, 239.2120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 323.4959_wp, 224.5876_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 258.1487_wp, 181.8224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 241.5305_wp, 170.1710_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 191.6443_wp, 137.8768_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 232.0723_wp, 165.4117_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 216.3074_wp, 154.2679_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 202.2394_wp, 144.6629_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 177.2887_wp, 127.2819_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 171.2418_wp, 124.3280_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 152.5650_wp, 111.3012_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 133.4762_wp, 97.9945_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 126.9393_wp, 93.6408_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 100.9029_wp, 75.7461_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 95.9845_wp, 71.7185_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1985.2103_wp, 1201.7562_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 726.9387_wp, 467.1567_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1388.3756_wp, 881.9628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1131.3898_wp, 724.7302_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 691.1271_wp, 460.5673_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1235.2681_wp, 801.6846_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1110.0628_wp, 724.2663_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 839.7674_wp, 558.2191_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 629.5576_wp, 428.6120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 927.5107_wp, 620.2040_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 851.4758_wp, 571.9434_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 786.5317_wp, 530.6548_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 770.6095_wp, 518.3645_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 613.1574_wp, 421.2601_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 694.7983_wp, 476.9709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 673.5688_wp, 462.8322_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 666.2141_wp, 457.0273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 611.3824_wp, 422.3705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 562.0636_wp, 392.6218_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 556.2492_wp, 388.4028_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 544.7449_wp, 380.5036_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 448.0486_wp, 318.3137_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 443.6262_wp, 315.0738_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 358.9273_wp, 258.8120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3320.8171_wp, 2000.7417_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 978.1928_wp, 639.2447_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2537.7308_wp, 1579.5049_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2029.6245_wp, 1268.2110_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 970.9362_wp, 646.8911_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2060.8901_wp, 1294.1588_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 940.6241_wp, 628.6370_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 915.5214_wp, 617.3054_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1960.2827_wp, 1241.9423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 907.2367_wp, 607.2695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 925.4898_wp, 624.5913_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1778.6546_wp, 1132.8667_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 889.7259_wp, 595.2252_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 848.6235_wp, 572.3495_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1399.4778_wp, 892.9693_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 885.7661_wp, 590.8566_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 620.3270_wp, 426.7284_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1511.0816_wp, 969.9993_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 796.3105_wp, 538.6686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 520.7940_wp, 362.8017_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1182.5093_wp, 761.1526_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 732.1547_wp, 497.4416_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 512.3750_wp, 356.3970_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1228.7380_wp, 799.2515_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 698.5619_wp, 474.6874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 619.1558_wp, 422.1621_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 540.1665_wp, 373.1793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1277.7896_wp, 826.3855_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 684.2421_wp, 464.3949_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 571.6159_wp, 391.9818_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 611.8574_wp, 414.4715_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 979.1984_wp, 634.3124_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 687.9851_wp, 461.8329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 975.8856_wp, 642.8013_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 625.2933_wp, 428.1999_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1167.0583_wp, 764.3388_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1085.7394_wp, 715.2085_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 832.4224_wp, 559.8251_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 658.8710_wp, 452.4786_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 991.2015_wp, 664.3007_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 919.3517_wp, 619.6074_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 870.0209_wp, 588.6206_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 768.0267_wp, 524.6709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 665.2638_wp, 460.1149_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 817.5552_wp, 559.9626_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 802.1553_wp, 550.1341_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 778.4268_wp, 535.0793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 745.8571_wp, 514.4650_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 718.6679_wp, 499.0729_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 719.2018_wp, 499.3363_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 713.1602_wp, 495.3332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 615.8505_wp, 433.8409_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 620.8260_wp, 437.0198_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 525.4240_wp, 375.0874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3699.6637_wp, 2237.2776_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1157.8649_wp, 760.6745_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3033.1273_wp, 1886.0887_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2481.2627_wp, 1548.2877_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1161.0723_wp, 774.8483_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2578.7074_wp, 1629.4376_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1787.1863_wp, 1152.2222_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1089.5911_wp, 738.6104_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2274.8325_wp, 1452.6448_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1249.0250_wp, 833.6152_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1091.0589_wp, 743.0278_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2049.2299_wp, 1318.1488_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1261.9867_wp, 841.4556_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1058.2704_wp, 719.7804_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1549.1780_wp, 1009.5160_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1167.6309_wp, 783.1123_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 916.5263_wp, 631.7419_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1742.1202_wp, 1129.8359_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1350.2400_wp, 889.7324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 795.9004_wp, 554.5883_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1296.6551_wp, 853.1336_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 995.4823_wp, 676.8518_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 747.5898_wp, 523.0508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1416.8423_wp, 931.5690_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 929.5319_wp, 632.9658_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 776.3662_wp, 536.4947_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1303.6060_wp, 861.2012_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 859.6950_wp, 587.0236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 815.2635_wp, 561.2936_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1092.5939_wp, 720.5137_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 834.3179_wp, 568.4774_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1137.1745_wp, 755.9211_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 811.1482_wp, 558.6293_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1463.1580_wp, 958.1121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1379.6361_wp, 909.2621_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1069.5257_wp, 721.4876_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 882.8878_wp, 607.4145_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1311.5880_wp, 874.7967_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1208.8936_wp, 812.3380_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1161.3917_wp, 783.5129_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1027.4883_wp, 701.0935_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 912.4622_wp, 629.8247_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1134.4385_wp, 771.0663_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1107.3931_wp, 754.6476_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1071.3664_wp, 732.5785_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1026.2943_wp, 704.8129_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1033.8769_wp, 711.0022_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1031.9646_wp, 710.2120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1021.5531_wp, 703.9665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 917.0920_wp, 638.7892_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 925.9812_wp, 644.8430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 809.8018_wp, 570.9952_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4505.5681_wp, 2730.6836_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1336.6572_wp, 890.9761_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3907.1262_wp, 2419.1244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3259.7257_wp, 2024.9316_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1395.4519_wp, 935.3603_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3331.5473_wp, 2094.7841_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2274.9680_wp, 1463.5069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1426.5400_wp, 963.8914_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1347.8223_wp, 913.1034_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3427.7894_wp, 2134.1663_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1304.8970_wp, 885.0331_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3274.4792_wp, 2042.6932_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1277.4745_wp, 866.5978_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3187.7428_wp, 1989.9080_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1235.1334_wp, 838.7044_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3108.4769_wp, 1941.5270_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1247.0771_wp, 844.4774_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3038.0345_wp, 1898.5844_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1220.1277_wp, 818.5070_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2312.2086_wp, 1472.3209_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1256.5351_wp, 849.9827_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2735.8113_wp, 1701.1137_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1175.5520_wp, 797.1561_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2624.1922_wp, 1637.9975_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1206.5102_wp, 814.0621_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2719.1319_wp, 1705.7192_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1111.3608_wp, 755.5025_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2659.1268_wp, 1668.7205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1078.0836_wp, 733.5732_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2604.0009_wp, 1635.0831_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1072.4182_wp, 729.1689_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2576.9767_wp, 1616.8530_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1134.4175_wp, 768.0874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2123.6819_wp, 1350.5554_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1034.1669_wp, 704.1586_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2024.8239_wp, 1309.1260_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1479.7956_wp, 975.5099_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1034.2317_wp, 708.9084_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1813.7564_wp, 1185.7100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1348.4147_wp, 898.5956_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1091.7991_wp, 743.9225_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1510.1361_wp, 996.5668_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1206.9993_wp, 813.7423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 994.1869_wp, 685.9333_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1524.9297_wp, 1010.6039_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1242.0205_wp, 828.8192_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 889.7750_wp, 619.9691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1359.8576_wp, 910.2567_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1040.2935_wp, 713.5078_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 827.0268_wp, 580.9212_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1229.2164_wp, 829.6271_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 972.4552_wp, 669.7628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 857.7570_wp, 595.9973_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1007.4225_wp, 686.2044_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 925.3205_wp, 638.9352_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 902.9393_wp, 626.7437_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 936.0958_wp, 639.9749_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 885.3866_wp, 611.1656_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 956.8047_wp, 656.5707_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 841.9253_wp, 587.0867_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 4086:4180) = reshape([ &
& 1491.5698_wp, 982.0691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1473.5523_wp, 975.1153_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1127.2570_wp, 767.1368_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 980.1662_wp, 677.3233_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1422.9431_wp, 950.0207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1301.1870_wp, 877.5231_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1189.5930_wp, 810.1068_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1158.7220_wp, 792.5242_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1061.9693_wp, 733.0596_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1272.6601_wp, 864.0413_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1240.7328_wp, 845.6149_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1202.4650_wp, 823.0759_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1157.4185_wp, 796.2100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1195.1492_wp, 819.5577_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1192.5537_wp, 819.0422_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1184.1644_wp, 814.7378_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1082.8719_wp, 751.6266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1095.7307_wp, 760.6504_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 976.1417_wp, 685.1660_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4155.5932_wp, 2544.0695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1502.4640_wp, 1002.6461_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3804.7750_wp, 2374.8028_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3178.8167_wp, 1992.6647_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1532.9737_wp, 1028.9540_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3270.4258_wp, 2071.3967_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1545.2383_wp, 1047.4302_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2847.2704_wp, 1835.9296_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1835.9296_wp, 1224.5933_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 80.7260_wp, 52.2645_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 135.8701_wp, 84.7238_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 50.0052_wp, 34.3329_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1730.6038_wp, 890.7015_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 493.4651_wp, 281.4599_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 857.6379_wp, 485.0227_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 621.3399_wp, 358.5914_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 374.7279_wp, 229.3998_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 533.0818_wp, 320.8497_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 441.5578_wp, 269.2438_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 365.2479_wp, 225.7100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 265.4503_wp, 170.0195_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 248.2156_wp, 159.8452_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 339.9863_wp, 214.6505_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 319.6761_wp, 201.5799_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.2685_wp, 163.6694_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 238.0151_wp, 153.2403_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 188.0965_wp, 124.7098_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 228.1333_wp, 149.3047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 212.7456_wp, 139.3121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 198.8169_wp, 130.7332_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 174.3207_wp, 115.1751_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 167.9187_wp, 112.7338_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 149.5551_wp, 101.0579_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 130.7999_wp, 89.1421_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.2642_wp, 85.2621_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 98.5768_wp, 69.2707_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.8663_wp, 65.5331_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2051.1151_wp, 1060.8040_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 732.6554_wp, 413.5128_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1403.0924_wp, 778.8806_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1141.8668_wp, 641.4675_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 688.3015_wp, 409.7423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1240.3071_wp, 710.3488_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1113.0738_wp, 642.3616_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 837.8184_wp, 496.7556_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 623.6462_wp, 382.8186_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 923.2496_wp, 552.1913_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 846.7959_wp, 509.7163_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 781.3133_wp, 473.2924_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 766.5520_wp, 462.2417_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 606.3220_wp, 376.9828_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 687.2914_wp, 426.8075_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 666.2582_wp, 414.2703_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 659.3738_wp, 408.9930_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 604.0542_wp, 378.4719_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 554.1274_wp, 352.6477_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 548.4971_wp, 348.8497_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 537.1536_wp, 341.7951_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.4418_wp, 286.9998_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 436.1526_wp, 284.0725_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 352.0743_wp, 234.1847_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3457.0434_wp, 1778.9468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 983.9131_wp, 568.3831_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2589.2888_wp, 1393.9683_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2076.1172_wp, 1124.3632_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 968.7708_wp, 576.0927_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2094.5389_wp, 1142.5935_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 937.6579_wp, 559.7347_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 910.3645_wp, 550.8253_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1986.9265_wp, 1097.9705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 904.8331_wp, 541.6423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 920.0840_wp, 557.4227_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1799.6577_wp, 1002.2471_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 887.4880_wp, 530.7576_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 844.4635_wp, 510.9977_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1417.3421_wp, 790.9665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 884.4280_wp, 526.6765_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 614.7556_wp, 382.5478_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1525.1022_wp, 859.1044_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 791.2577_wp, 480.9895_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 514.6731_wp, 326.0607_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1194.1778_wp, 674.9804_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 726.8433_wp, 444.5861_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.5349_wp, 320.2177_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1234.4914_wp, 709.0047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 693.7143_wp, 424.3835_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 614.8490_wp, 377.8279_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 534.7226_wp, 334.8134_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1285.9300_wp, 732.4082_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 679.7492_wp, 415.0966_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 566.7294_wp, 351.1435_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 608.7194_wp, 370.5351_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 986.8467_wp, 562.9964_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 685.7614_wp, 412.1000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 976.6865_wp, 571.3150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 619.4384_wp, 383.2282_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1169.9494_wp, 678.7016_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1086.5380_wp, 635.6287_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 828.3485_wp, 499.3495_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 651.8259_wp, 404.9924_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 986.6400_wp, 591.9079_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 913.9023_wp, 552.6796_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 864.0175_wp, 525.4062_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 760.9024_wp, 469.1695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 657.0913_wp, 412.3899_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 809.3754_wp, 500.9407_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 793.9473_wp, 492.2929_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 770.0795_wp, 479.0423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 737.2457_wp, 460.8870_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 709.4380_wp, 447.7438_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 710.0299_wp, 447.9718_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 704.0315_wp, 444.4244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 606.3026_wp, 390.4314_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 611.3075_wp, 393.2367_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 516.1425_wp, 338.5833_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3848.8310_wp, 1991.3447_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1163.4976_wp, 677.1566_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3098.7868_wp, 1665.6547_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2542.5532_wp, 1374.3437_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1158.7996_wp, 690.5246_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2617.9361_wp, 1440.7783_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1809.2861_wp, 1026.0397_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1082.1909_wp, 659.7771_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2300.9943_wp, 1286.0297_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1247.3212_wp, 742.7923_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1082.3309_wp, 664.2618_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2068.4111_wp, 1168.3462_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1260.0147_wp, 748.9566_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1051.1231_wp, 643.7098_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1558.7481_wp, 896.8839_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1164.9288_wp, 698.9235_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 907.4304_wp, 566.3773_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1754.9706_wp, 1003.0323_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1356.0504_wp, 792.7535_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 786.1896_wp, 498.3202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1301.5598_wp, 759.3194_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 989.1364_wp, 605.3587_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 737.8924_wp, 470.4022_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1420.7211_wp, 828.4128_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 923.6673_wp, 566.4457_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 768.9612_wp, 481.5173_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1305.3320_wp, 766.4086_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 853.9373_wp, 525.6960_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 807.8493_wp, 503.3017_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1096.8175_wp, 641.8200_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 829.1923_wp, 508.8922_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1136.7042_wp, 673.4287_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 803.1520_wp, 500.7569_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1469.0715_wp, 851.5874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1382.2903_wp, 808.8540_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1064.5406_wp, 644.3323_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 873.8896_wp, 544.1898_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1308.5146_wp, 779.2998_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1203.7043_wp, 724.6244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1155.1516_wp, 699.3799_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1018.9158_wp, 627.0734_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 902.1993_wp, 564.5129_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1125.8498_wp, 689.0793_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1098.3173_wp, 674.7378_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1061.6930_wp, 655.4188_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1015.8964_wp, 631.0713_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1023.1942_wp, 636.8184_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1021.1167_wp, 636.1967_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1010.4948_wp, 630.7562_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 905.1141_wp, 573.6121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 913.9075_wp, 579.0143_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 797.3313_wp, 514.0708_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4691.6964_wp, 2438.1558_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1336.7673_wp, 794.6552_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4003.7089_wp, 2138.2977_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3353.8826_wp, 1803.1914_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1391.8292_wp, 834.4609_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3391.5606_wp, 1852.6946_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2307.1665_wp, 1305.0880_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1418.2359_wp, 860.5557_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1339.6248_wp, 815.8444_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3505.9336_wp, 1888.9925_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1296.6238_wp, 790.9568_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3344.2162_wp, 1805.7716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1269.2909_wp, 774.4819_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3254.4268_wp, 1759.0005_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1226.9612_wp, 749.7066_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3172.4783_wp, 1716.1451_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1240.0445_wp, 754.7334_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3099.6207_wp, 1678.1174_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1216.6738_wp, 730.3412_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2345.0320_wp, 1304.8651_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1249.4197_wp, 759.2581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2808.4101_wp, 1510.4078_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1168.1093_wp, 712.3659_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2691.7985_wp, 1457.6760_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1201.1049_wp, 727.2306_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2769.0943_wp, 1507.5770_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1103.4821_wp, 675.3995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2707.3188_wp, 1474.8115_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1070.1540_wp, 655.8988_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2650.3867_wp, 1445.0628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1064.7199_wp, 651.8760_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2623.4579_wp, 1428.7766_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1127.2049_wp, 686.0502_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2153.8516_wp, 1197.5147_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1026.2543_wp, 629.6283_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2039.3959_wp, 1160.7498_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1484.7146_wp, 868.9592_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1024.3603_wp, 634.5427_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1820.5331_wp, 1052.9859_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1348.2588_wp, 801.4334_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1084.3209_wp, 665.6885_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1513.3881_wp, 886.9868_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1202.6346_wp, 726.9520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 984.0251_wp, 615.0485_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1525.6409_wp, 899.8672_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1241.4957_wp, 739.3426_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 878.8776_wp, 557.0404_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1356.6458_wp, 811.8402_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1031.5219_wp, 639.3109_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 815.5049_wp, 522.8212_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1223.6676_wp, 741.0211_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 963.4557_wp, 600.5754_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 848.6188_wp, 535.5237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1001.4754_wp, 614.2803_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 916.3816_wp, 573.2853_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 892.9504_wp, 562.8381_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 929.9943_wp, 573.3940_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 877.2848_wp, 548.4756_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 948.9698_wp, 588.4205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 831.6182_wp, 527.6731_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1497.6018_wp, 874.5378_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1476.4021_wp, 868.6589_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1119.9568_wp, 686.3305_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 969.7018_wp, 607.5322_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1420.6996_wp, 846.9884_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1295.3664_wp, 783.6367_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1181.0895_wp, 724.6474_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1148.8988_wp, 709.3647_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1050.4296_wp, 657.2121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1264.2423_wp, 772.3273_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1231.2018_wp, 756.3450_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1191.8172_wp, 736.7269_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1145.6007_wp, 713.2877_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1184.1627_wp, 733.8642_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1181.0674_wp, 733.5848_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1172.1895_wp, 729.9517_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1069.8651_wp, 674.5988_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1082.4781_wp, 682.6910_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 4181:4275) = reshape([ &
& 962.1768_wp, 616.3626_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4303.9645_wp, 2265.5221_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1501.9252_wp, 894.3510_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3886.5716_wp, 2100.0716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3255.3913_wp, 1771.6049_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1528.4967_wp, 918.1973_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3320.0764_wp, 1833.4406_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1535.4151_wp, 935.8632_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2872.5136_wp, 1628.0585_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1836.5610_wp, 1093.4914_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2908.9206_wp, 1628.1996_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1628.1996_wp, 980.3758_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 78.2034_wp, 46.7559_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 131.5644_wp, 75.2066_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 48.4980_wp, 31.0746_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1671.6156_wp, 731.9805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 477.4254_wp, 244.0301_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 829.7132_wp, 419.7564_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 601.1496_wp, 311.3204_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 362.7869_wp, 202.8197_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 516.0195_wp, 282.4312_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 427.4807_wp, 237.6634_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 353.6401_wp, 199.6277_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 257.1254_wp, 151.7709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 240.4492_wp, 142.8451_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 329.2802_wp, 191.0223_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 309.6082_wp, 179.2561_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 246.3297_wp, 146.2506_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 230.5946_wp, 136.9221_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 182.3009_wp, 112.0980_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 221.0659_wp, 133.8723_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 206.1631_wp, 124.8931_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 192.6840_wp, 117.3247_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 168.9680_wp, 103.4489_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 162.7926_wp, 101.5996_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 145.0113_wp, 91.1863_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 126.8550_wp, 80.5724_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 120.5290_wp, 77.1764_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 95.6625_wp, 62.9867_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.0869_wp, 59.5271_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1981.4675_wp, 875.1861_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 708.7936_wp, 357.1582_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1357.1628_wp, 669.5851_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1104.5083_wp, 552.3275_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 666.2269_wp, 359.9011_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1200.0275_wp, 616.5426_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1077.0005_wp, 558.7128_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 810.8538_wp, 435.1351_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 603.7975_wp, 338.7023_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 893.6444_wp, 485.3372_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 819.6856_wp, 448.6113_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 756.3527_wp, 417.2588_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 742.0253_wp, 406.8282_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.1009_wp, 334.4442_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 665.4965_wp, 378.5025_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 645.1405_wp, 367.4499_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 638.4646_wp, 362.5338_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 584.9601_wp, 336.2789_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 536.7089_wp, 314.3700_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 531.2554_wp, 310.9334_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 520.2752_wp, 304.6744_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 426.7354_wp, 257.0875_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 422.5804_wp, 254.4397_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 341.2340_wp, 210.6366_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3337.6961_wp, 1438.7994_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 952.0627_wp, 493.0590_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2503.3576_wp, 1179.8248_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2006.6915_wp, 945.1224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 937.7422_wp, 505.3448_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2025.4740_wp, 973.7241_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 907.6956_wp, 492.1797_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 881.3428_wp, 485.4071_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1921.6819_wp, 939.9375_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 875.8748_wp, 475.3101_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 890.7699_wp, 491.4026_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1740.7294_wp, 860.4921_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 859.0997_wp, 465.8648_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 817.5462_wp, 450.0079_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1370.9264_wp, 678.5052_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 856.1039_wp, 461.6686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 595.3863_wp, 339.2395_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1475.3669_wp, 740.6137_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 766.0984_wp, 424.4375_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 498.5663_wp, 290.3501_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1155.2737_wp, 581.8378_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 703.7787_wp, 392.8632_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 490.6758_wp, 285.0230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1194.5389_wp, 615.6990_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 671.7007_wp, 374.8659_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 595.3907_wp, 334.0164_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 517.9239_wp, 297.4082_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1244.2037_wp, 634.3664_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 658.1727_wp, 366.5198_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 548.8568_wp, 311.1729_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 589.4258_wp, 326.8903_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 954.8309_wp, 487.0150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 663.9085_wp, 362.3594_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 945.2775_wp, 499.0319_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 599.8559_wp, 339.6385_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1132.1107_wp, 590.8461_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1051.4942_wp, 554.8107_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 801.8639_wp, 439.3548_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 631.1928_wp, 359.2625_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 955.0607_wp, 520.5268_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 884.7153_wp, 486.9543_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 836.4744_wp, 463.5903_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 736.7486_wp, 415.3637_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 636.3459_wp, 366.6111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 783.7069_wp, 443.9002_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 768.7821_wp, 436.3941_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 745.6954_wp, 424.9509_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 713.9394_wp, 409.3239_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 687.0839_wp, 398.4493_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 687.6559_wp, 398.6148_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 681.8524_wp, 395.5015_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 587.3450_wp, 348.9122_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 592.1871_wp, 351.3396_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 500.1368_wp, 303.7081_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3716.0678_wp, 1612.5430_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1125.9076_wp, 588.3980_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2995.7186_wp, 1406.4978_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2457.2393_wp, 1150.9048_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1121.7009_wp, 605.6815_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2531.7373_wp, 1230.1136_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1749.7379_wp, 877.2823_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1047.7793_wp, 582.4722_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2225.6807_wp, 1104.7666_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1207.3349_wp, 651.3700_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1047.9820_wp, 587.4053_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2000.9439_wp, 1007.1282_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1219.7064_wp, 657.8233_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1017.7328_wp, 568.4114_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1508.2494_wp, 777.5767_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1127.6927_wp, 613.5516_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 878.8304_wp, 502.6517_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1697.9484_wp, 867.5508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1312.2121_wp, 688.9511_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 761.5579_wp, 443.8041_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1259.6142_wp, 661.0039_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 957.7781_wp, 534.6820_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 714.8344_wp, 419.4840_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1374.9665_wp, 721.9817_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 894.4135_wp, 500.3844_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 744.7989_wp, 427.5054_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1263.4136_wp, 669.4583_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 826.9445_wp, 464.7906_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 782.4275_wp, 446.4908_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1061.5457_wp, 559.0440_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 802.9809_wp, 449.7034_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1100.3399_wp, 589.8900_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 777.8763_wp, 444.5089_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1421.6099_wp, 740.4324_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1337.7839_wp, 705.5371_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1030.6377_wp, 567.3904_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 846.3364_wp, 482.9836_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1266.6329_wp, 683.8018_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1165.2987_wp, 637.5954_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1118.3627_wp, 616.3352_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 986.6337_wp, 554.9249_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 873.7655_wp, 501.5645_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1090.1053_wp, 609.0253_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1063.4833_wp, 596.8656_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1028.0688_wp, 580.4423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 983.7858_wp, 559.7310_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 990.8696_wp, 565.0183_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 988.8657_wp, 564.5964_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 978.5969_wp, 560.0071_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 876.6902_wp, 510.9612_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 885.2021_wp, 515.7402_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 772.4519_wp, 459.5676_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4529.1727_wp, 1965.2428_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1293.8174_wp, 695.0188_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3869.7611_wp, 1794.9059_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3240.2913_wp, 1494.2771_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1347.3076_wp, 732.6064_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3279.3360_wp, 1574.0959_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2230.9267_wp, 1110.9199_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1373.0549_wp, 758.6803_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1297.0461_wp, 719.8572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3389.0395_wp, 1589.8595_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1255.4359_wp, 698.1614_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3233.0975_wp, 1525.9822_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1228.9809_wp, 683.7250_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3146.3690_wp, 1487.5408_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1188.0136_wp, 662.0663_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3067.2053_wp, 1452.1965_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1200.6028_wp, 665.4038_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2996.8237_wp, 1420.8475_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1177.8612_wp, 641.7930_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2268.0138_wp, 1116.1138_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1209.6721_wp, 669.4976_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2714.0296_wp, 1260.9766_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1131.0127_wp, 628.8409_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2601.3226_wp, 1215.9398_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1162.8261_wp, 640.0522_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2677.5672_wp, 1280.8410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1068.4783_wp, 596.8094_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2617.8718_wp, 1253.5493_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1036.2222_wp, 579.7867_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2562.8645_wp, 1228.9183_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1030.9456_wp, 576.0576_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2536.7915_wp, 1214.5773_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1091.3656_wp, 605.4023_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2083.0385_wp, 1022.6803_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 993.7192_wp, 556.7361_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1973.0821_wp, 1003.8975_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1436.6817_wp, 755.5263_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 991.9479_wp, 562.3650_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1761.6844_wp, 915.7176_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1304.9404_wp, 700.9176_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1049.8792_wp, 587.8612_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1464.6529_wp, 773.5594_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1164.2737_wp, 639.3410_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 953.0203_wp, 546.0346_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1476.6337_wp, 786.6437_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1201.6927_wp, 647.2708_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 851.3350_wp, 496.0931_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1313.3066_wp, 712.8037_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 998.9338_wp, 566.1458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 790.0616_wp, 466.7974_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1184.7530_wp, 652.7832_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 933.1122_wp, 532.7520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 822.0160_wp, 476.2160_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 969.8022_wp, 542.6655_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 887.5773_wp, 508.9786_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 864.9549_wp, 500.6601_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 900.6562_wp, 507.1677_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 849.7283_wp, 486.8177_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 919.0824_wp, 521.4539_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 805.6197_wp, 470.1782_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1449.3061_wp, 760.8620_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1428.9400_wp, 758.0815_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1084.4785_wp, 606.3205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 939.2230_wp, 539.8660_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1375.2752_wp, 742.9015_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1254.1422_wp, 690.1433_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1143.6704_wp, 640.5444_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1112.5743_wp, 628.1627_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1017.3620_wp, 583.8865_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1224.1322_wp, 682.1227_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1192.2019_wp, 668.9514_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1154.1338_wp, 652.6152_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1109.4582_wp, 632.9884_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1146.7509_wp, 650.4249_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1143.7723_wp, 650.5243_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1135.1989_wp, 647.6950_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1036.2496_wp, 600.2628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1048.4614_wp, 607.4890_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 932.1121_wp, 550.2995_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4156.5121_wp, 1852.5059_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1453.6878_wp, 782.6472_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3757.2430_wp, 1773.4791_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3146.1615_wp, 1484.2630_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1479.6138_wp, 806.4331_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3210.7560_wp, 1565.1457_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1486.6193_wp, 826.0152_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 4276:4370) = reshape([ &
& 2778.9432_wp, 1404.8813_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1777.4636_wp, 954.7979_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2813.6269_wp, 1396.3790_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1575.7649_wp, 854.1002_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2721.5209_wp, 1352.0713_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1352.0713_wp, 753.8617_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 79.4391_wp, 45.1236_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 134.7304_wp, 72.4272_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 48.7241_wp, 30.0978_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1800.5066_wp, 695.0128_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 499.5202_wp, 233.7727_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 869.5641_wp, 401.9035_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 627.6385_wp, 298.4076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 373.0473_wp, 195.1232_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 532.8988_wp, 271.4539_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 440.2710_wp, 228.5997_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 363.2803_wp, 192.1504_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 261.8283_wp, 146.3889_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 244.5726_wp, 137.8226_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 336.4627_wp, 184.1095_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 316.5967_wp, 172.7592_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 250.6938_wp, 141.1191_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 234.7566_wp, 132.1270_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 184.3778_wp, 108.3454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 224.2094_wp, 129.3004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 209.1524_wp, 120.6357_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 195.3222_wp, 113.3581_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 171.2063_wp, 99.9878_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 164.2959_wp, 98.2812_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 146.1928_wp, 88.2439_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 127.7295_wp, 78.0190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 121.1667_wp, 74.7584_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 95.7322_wp, 61.0993_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 91.3090_wp, 57.7290_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2131.3007_wp, 831.4952_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 743.9190_wp, 341.9302_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1429.4308_wp, 640.3104_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1160.8135_wp, 528.5114_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 689.6518_wp, 345.7120_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1254.3604_wp, 590.7744_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1123.8008_wp, 535.6195_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 840.6989_wp, 417.8268_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 620.5111_wp, 325.9088_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 924.1970_wp, 466.3023_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 846.5543_wp, 431.1741_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 779.9636_wp, 401.1937_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 766.3010_wp, 391.0575_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 601.6779_wp, 322.0437_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 682.2750_wp, 364.4433_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 661.2805_wp, 353.8278_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 654.8973_wp, 349.0507_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 598.5678_wp, 323.9548_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 547.3189_wp, 303.1150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 541.8703_wp, 299.7938_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.6421_wp, 293.7697_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 433.0105_wp, 248.2186_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 428.8619_wp, 245.6584_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 344.8305_wp, 203.6156_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3608.5602_wp, 1364.3503_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 995.3527_wp, 472.7221_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2661.1178_wp, 1125.4292_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2135.2269_wp, 901.2992_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 972.0352_wp, 485.4245_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2144.9232_wp, 929.8813_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 939.8691_wp, 472.9397_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 909.6469_wp, 466.7411_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2028.7846_wp, 898.4534_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 906.9616_wp, 456.7222_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 919.1109_wp, 472.5463_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1834.1800_wp, 822.9830_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 889.7719_wp, 447.6449_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 844.2169_wp, 432.7084_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1445.0682_wp, 648.9935_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 887.7066_wp, 443.5018_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 611.0839_wp, 326.7638_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1550.1899_wp, 708.9086_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 789.9235_wp, 408.2523_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 509.6277_wp, 279.9620_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1213.8708_wp, 557.0572_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 724.6884_wp, 378.0202_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 501.8262_wp, 274.7973_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1248.7909_wp, 590.1554_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 691.7985_wp, 360.7035_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 612.8794_wp, 321.5004_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.8043_wp, 286.5840_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1303.3334_wp, 607.7150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 678.1856_wp, 352.6419_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 563.8170_wp, 299.6659_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 608.1886_wp, 314.4913_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1000.9549_wp, 466.5966_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 686.9409_wp, 348.3305_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 983.7215_wp, 478.9052_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 615.9607_wp, 327.0234_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1180.4499_wp, 566.6240_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1094.1031_wp, 532.3546_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 828.3682_wp, 422.3312_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 647.1553_wp, 345.9563_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 987.3751_wp, 500.2256_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 912.9705_wp, 468.1789_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 862.0587_wp, 445.8627_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 756.7971_wp, 399.7983_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 650.9057_wp, 353.2213_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 804.2562_wp, 427.3508_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 788.6402_wp, 420.1677_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 764.3973_wp, 409.2244_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 730.9897_wp, 394.2859_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 702.0311_wp, 384.0157_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 702.6880_wp, 384.1691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 696.6895_wp, 381.1814_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 597.5035_wp, 336.6552_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 602.5835_wp, 338.9784_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 506.8216_wp, 293.3488_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4013.8973_wp, 1529.6978_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1175.3584_wp, 564.3865_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3187.5734_wp, 1341.3275_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2618.0036_wp, 1097.1255_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1162.6290_wp, 581.8705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2676.6472_wp, 1175.3725_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1840.6901_wp, 839.4370_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1079.5998_wp, 560.3237_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2343.7586_wp, 1056.8235_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1251.9154_wp, 625.7334_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1078.0658_wp, 565.2830_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2101.8417_wp, 964.1266_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1264.8378_wp, 631.9749_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1048.1038_wp, 546.9287_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1577.8736_wp, 745.3354_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1167.6383_wp, 589.6594_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 901.0470_wp, 484.2162_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1779.0323_wp, 831.1709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1368.6610_wp, 660.9505_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 778.1249_wp, 427.9090_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1313.7158_wp, 634.1896_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 986.7352_wp, 514.5121_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 729.4873_wp, 404.5998_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1433.1563_wp, 692.7026_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 921.2853_wp, 481.5720_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 763.5726_wp, 411.9411_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1314.6561_wp, 642.6115_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 851.1916_wp, 447.4308_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 802.9025_wp, 430.1169_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1106.8617_wp, 536.5037_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 827.1613_wp, 432.8514_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1142.5196_wp, 566.5780_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 797.7599_wp, 428.2230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1484.0150_wp, 710.0936_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1393.1101_wp, 677.0498_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1064.4434_wp, 545.6093_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 867.8793_wp, 465.2257_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1312.6653_wp, 656.9210_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1204.5686_wp, 612.9205_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1154.4374_wp, 592.6848_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1014.4405_wp, 534.1387_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 894.8104_wp, 483.2284_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1122.1440_wp, 586.0168_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1093.7836_wp, 574.4363_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1056.1396_wp, 558.7827_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1009.1230_wp, 539.0344_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1016.0025_wp, 544.1812_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1013.6901_wp, 543.8049_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1002.7172_wp, 539.4399_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 895.2321_wp, 492.6132_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 903.9688_wp, 497.2105_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 785.8038_wp, 443.4889_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4893.0436_wp, 1863.8860_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1343.1115_wp, 667.5005_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4127.9330_wp, 1710.4153_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3463.0576_wp, 1422.8735_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1394.8404_wp, 704.0257_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3475.7124_wp, 1502.9787_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2350.2253_wp, 1062.5153_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1416.4457_wp, 729.6137_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1337.2850_wp, 692.4695_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3607.8825_wp, 1516.0160_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1293.9094_wp, 671.6646_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3437.8544_wp, 1455.7245_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1266.5506_wp, 657.7921_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3344.5279_wp, 1419.1992_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1223.9539_wp, 637.0076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3259.4431_wp, 1385.5997_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1238.3187_wp, 640.0432_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3183.7627_wp, 1355.8015_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1219.1450_wp, 616.8768_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2393.5584_wp, 1067.1944_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1247.8750_wp, 643.9389_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2896.4080_wp, 1201.5530_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1165.7289_wp, 604.9769_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2773.0351_wp, 1158.9243_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1201.0327_wp, 615.4573_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2839.6469_wp, 1222.8454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1100.2364_wp, 574.2815_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2775.7424_wp, 1196.8607_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1066.6560_wp, 557.9458_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2716.6522_wp, 1173.4369_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1061.4860_wp, 554.3201_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2689.7033_wp, 1159.6457_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1125.1094_wp, 582.3452_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2198.6632_wp, 977.6816_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1022.5738_wp, 535.7905_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2068.0029_wp, 961.5684_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1497.3302_wp, 724.8207_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1018.2141_wp, 541.4742_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1839.0464_wp, 878.0732_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1354.5615_wp, 673.1665_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1080.8128_wp, 565.7059_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1525.1115_wp, 742.3682_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1203.4096_wp, 614.7111_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 976.7438_wp, 526.0459_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1534.7972_wp, 755.2429_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1246.8949_wp, 621.7658_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 869.8282_wp, 478.3191_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1360.2378_wp, 684.9879_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1026.1425_wp, 545.1612_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 805.1387_wp, 450.3648_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1223.6448_wp, 627.7771_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 957.3348_wp, 513.2058_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 841.2795_wp, 459.0702_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 999.2096_wp, 522.3028_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 909.9850_wp, 490.4213_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 885.1178_wp, 482.6087_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 927.0285_wp, 488.3023_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 871.5724_wp, 469.0722_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 944.2862_wp, 502.2150_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 823.0829_wp, 453.4069_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1511.6714_wp, 730.0058_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1487.1204_wp, 727.7134_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1117.0554_wp, 583.5052_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 962.1098_wp, 520.2188_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1425.8266_wp, 713.7674_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1295.5258_wp, 663.6596_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1177.3166_wp, 616.4696_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1143.4030_wp, 604.7739_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1042.1717_wp, 562.5674_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1261.2415_wp, 656.3212_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1226.6358_wp, 643.8495_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1185.6295_wp, 628.3454_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1137.6821_wp, 609.6938_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1177.4038_wp, 626.3259_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1173.6700_wp, 626.4949_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1164.1193_wp, 623.8558_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1059.6377_wp, 578.5779_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1072.0311_wp, 585.5441_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 949.7554_wp, 530.8832_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4469.7774_wp, 1760.2462_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1508.3332_wp, 751.7328_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3995.2606_wp, 1691.7254_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3348.3818_wp, 1415.3925_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1531.1137_wp, 775.0471_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3393.2601_wp, 1495.7351_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1532.2963_wp, 794.6231_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2917.0992_wp, 1345.2345_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1845.3202_wp, 916.9593_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2964.6668_wp, 1335.7938_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1633.6303_wp, 820.5208_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2867.1025_wp, 1293.5031_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1393.3621_wp, 725.3730_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
c6ab(:, :, 4371:4465) = reshape([ &
& 3032.9760_wp, 1331.4737_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1331.4737_wp, 698.1644_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 77.1021_wp, 52.3919_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 130.5946_wp, 86.0052_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 47.3798_wp, 33.8615_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1727.8140_wp, 977.2027_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 482.3466_wp, 295.6875_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 839.4478_wp, 511.2028_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 606.2139_wp, 374.9686_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 361.3553_wp, 234.4102_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 515.7977_wp, 330.0255_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 426.3255_wp, 275.6697_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 351.9041_wp, 230.0003_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 254.0263_wp, 171.0645_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 237.3277_wp, 160.5488_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 326.2500_wp, 217.0925_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 306.9303_wp, 204.0310_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 243.2478_wp, 164.5053_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 227.7683_wp, 154.0713_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 179.0837_wp, 124.1824_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 217.6765_wp, 149.2917_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 203.0418_wp, 139.3230_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 189.6469_wp, 130.5975_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 166.2420_wp, 114.9538_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 159.6435_wp, 111.9054_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 142.0775_wp, 100.1520_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 124.1631_wp, 88.1768_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 117.8193_wp, 84.1628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 93.1614_wp, 67.9514_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 88.8365_wp, 64.4333_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2045.9284_wp, 1161.7208_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 717.9100_wp, 436.5100_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1378.5876_wp, 827.4875_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1119.8466_wp, 678.2067_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 667.2949_wp, 423.2252_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1211.4443_wp, 745.0109_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1085.6846_wp, 671.6972_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 813.1095_wp, 513.9366_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 601.1350_wp, 390.8283_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 894.3255_wp, 569.3203_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 819.3698_wp, 524.2927_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 755.1229_wp, 485.6800_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 741.6702_wp, 475.2597_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 583.1471_wp, 383.1338_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 661.2092_wp, 433.9874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 640.8761_wp, 421.0798_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 634.6074_wp, 416.1319_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 580.2672_wp, 383.6707_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 530.8828_wp, 355.5941_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 525.5777_wp, 351.8623_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 514.6914_wp, 344.7117_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 420.3498_wp, 287.2061_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 416.3115_wp, 284.3372_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 334.9759_wp, 232.9196_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3458.6883_wp, 1950.9820_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 961.0543_wp, 595.0456_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2561.2750_wp, 1501.0394_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2054.0131_wp, 1207.4896_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 940.2033_wp, 595.8471_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2066.1768_wp, 1223.4261_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 909.2895_wp, 578.2929_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 880.5433_wp, 565.8794_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1955.4505_wp, 1169.4190_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 877.3645_wp, 558.8652_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 889.7519_wp, 572.4017_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1768.5649_wp, 1064.0685_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 860.7178_wp, 547.9234_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 817.0971_wp, 525.1264_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1393.1385_wp, 839.4969_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 858.5302_wp, 544.6560_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 592.0830_wp, 389.3650_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1495.5657_wp, 907.8874_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 764.8061_wp, 493.3911_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 494.1358_wp, 329.8132_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1171.0013_wp, 712.7577_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 701.8063_wp, 455.0423_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 486.5324_wp, 324.1654_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1206.0158_wp, 743.4455_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 669.9158_wp, 434.3905_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 593.5301_wp, 386.3011_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 514.4508_wp, 340.0600_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1258.2170_wp, 770.5407_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 656.6800_wp, 425.2003_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 546.2316_wp, 357.9521_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 588.7482_wp, 380.2811_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 966.0599_wp, 592.3705_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 664.6581_wp, 424.8342_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 950.8603_wp, 594.7593_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 596.8169_wp, 390.5948_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1140.5197_wp, 708.5363_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1057.5095_wp, 661.3852_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 801.7037_wp, 513.5961_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 627.1891_wp, 411.8656_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 955.5039_wp, 609.7912_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 883.7780_wp, 567.6729_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 834.6893_wp, 538.5580_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 733.1891_wp, 478.4556_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 631.0647_wp, 417.8488_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 779.2976_wp, 510.1117_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 764.2110_wp, 500.9875_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 740.8098_wp, 486.9403_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 708.5774_wp, 467.6548_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 680.7355_wp, 452.8313_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 681.3589_wp, 453.1242_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 675.5529_wp, 449.4634_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 579.7956_wp, 392.2224_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 584.6998_wp, 395.1888_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 492.1128_wp, 338.1547_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3847.7324_wp, 2178.7996_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1135.1209_wp, 706.9587_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3067.1463_wp, 1795.0359_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2517.5053_wp, 1477.1099_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1124.5057_wp, 713.8157_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2579.0022_wp, 1537.2794_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1774.6391_wp, 1080.9253_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1045.3553_wp, 675.9532_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2260.0639_wp, 1363.4850_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1210.6981_wp, 768.2883_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1044.1684_wp, 678.8516_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2027.7440_wp, 1233.4617_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1223.2638_wp, 775.5180_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1014.8828_wp, 658.5955_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1523.3742_wp, 940.3177_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1129.4830_wp, 720.8691_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 873.1869_wp, 575.6198_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1717.1041_wp, 1054.1841_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1321.9594_wp, 826.0448_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 754.5169_wp, 503.7865_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1269.0647_wp, 792.0047_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 955.4249_wp, 619.7862_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 707.5095_wp, 474.6763_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1384.7315_wp, 863.9068_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 892.0641_wp, 579.6349_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 739.9621_wp, 489.1400_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1270.6578_wp, 797.1537_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 824.2947_wp, 537.2980_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 777.9791_wp, 512.1336_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1069.2791_wp, 668.9805_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 800.9332_wp, 520.7925_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1104.7467_wp, 698.1124_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 773.1193_wp, 509.2559_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1433.4370_wp, 890.0256_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1346.2697_wp, 842.2184_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1030.2277_wp, 662.2469_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 841.0964_wp, 553.4386_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1269.7368_wp, 805.6716_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1165.7062_wp, 746.0891_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1117.4761_wp, 718.5424_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 982.6596_wp, 640.3360_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 867.3914_wp, 572.9675_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1086.7671_wp, 704.9879_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1059.4592_wp, 689.3625_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1023.2018_wp, 668.4225_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 977.9127_wp, 642.1174_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 984.6291_wp, 647.5375_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 982.4295_wp, 646.6499_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 971.8689_wp, 640.6828_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 868.1868_wp, 579.5652_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 876.6519_wp, 585.0709_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 762.5407_wp, 516.4077_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4689.4909_wp, 2660.7475_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1298.4675_wp, 822.4546_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3969.4488_wp, 2310.7445_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3327.2478_wp, 1941.1744_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1349.3008_wp, 860.6585_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3346.9278_wp, 1983.1026_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2265.0122_wp, 1375.7929_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1371.1890_wp, 883.2078_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1294.6997_wp, 836.4673_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3470.8103_wp, 2033.3939_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1252.7870_wp, 810.4687_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3308.2782_wp, 1942.7158_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1226.3194_wp, 793.5307_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3218.7253_wp, 1891.6327_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1185.1389_wp, 767.7628_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3137.0576_wp, 1844.8932_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1198.7720_wp, 774.0061_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3064.4224_wp, 1803.3780_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1179.4690_wp, 753.1870_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2306.8366_wp, 1386.4919_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1208.0168_wp, 779.0790_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2784.2586_wp, 1627.1471_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1128.6850_wp, 730.0477_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2666.0816_wp, 1564.8029_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1162.3643_wp, 747.2774_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2734.2974_wp, 1616.2873_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1065.4625_wp, 691.1980_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2672.9042_wp, 1580.7484_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1033.0090_wp, 670.8947_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2616.1724_wp, 1548.2741_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1027.9565_wp, 667.0261_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2590.0957_wp, 1531.5185_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1089.3370_wp, 703.4309_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2118.9811_wp, 1272.1137_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 990.3800_wp, 643.7358_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1996.0266_wp, 1221.5252_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1446.4901_wp, 904.5275_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 986.5736_wp, 646.3003_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1776.4187_wp, 1101.1039_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1309.6099_wp, 829.4186_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1046.5858_wp, 680.4913_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1473.7544_wp, 923.1055_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1164.4393_wp, 747.6661_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 946.6070_wp, 624.7394_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1483.6747_wp, 934.0785_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1205.6353_wp, 764.8182_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 843.4413_wp, 563.1310_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1315.8080_wp, 838.1292_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 994.0746_wp, 651.4600_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 781.0634_wp, 526.4895_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1184.2955_wp, 761.6814_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 927.6311_wp, 610.8863_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 815.4936_wp, 542.5167_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 967.4643_wp, 628.7765_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 881.8620_wp, 582.4859_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 858.0549_wp, 570.3002_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 897.7386_wp, 585.9542_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 844.5639_wp, 557.5775_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 914.7912_wp, 599.8711_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 798.1652_wp, 533.4446_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1460.2247_wp, 911.8938_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1437.1768_wp, 902.9730_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1081.6612_wp, 702.4234_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 932.5740_wp, 616.7356_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1379.0263_wp, 875.7658_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1253.8462_wp, 805.7264_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1140.1626_wp, 741.1176_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1107.6634_wp, 723.7419_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1010.1837_wp, 667.2807_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1221.2647_wp, 791.0651_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1188.0528_wp, 773.0528_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1148.6554_wp, 751.2349_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1102.5605_wp, 725.3752_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1140.7827_wp, 747.6461_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1137.2796_wp, 746.7141_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1128.1520_wp, 742.2892_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1027.3948_wp, 683.0040_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1039.4256_wp, 691.1128_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 921.4047_wp, 620.6546_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 4288.5858_wp, 2460.8767_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1458.3342_wp, 924.9725_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3844.4325_wp, 2258.4201_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3220.2388_wp, 1898.5076_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1481.2261_wp, 946.2771_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 3269.5288_wp, 1953.6369_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1483.5856_wp, 959.1590_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2814.6033_wp, 1716.7267_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1783.9174_wp, 1130.7742_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2858.1875_wp, 1725.9338_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1579.4150_wp, 1008.8729_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2764.2585_wp, 1670.0620_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1349.0495_wp, 874.6149_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2921.8223_wp, 1743.2351_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1289.4340_wp, 838.9569_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 2815.2366_wp, 1683.4151_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 1683.4151_wp, 1051.2468_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, &
& 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp, 0.0000_wp],&
& [max_ref, max_ref, 95])
end subroutine copy_c6
end module xtb_disp_dftd3param
xtb-6.7.1/src/disp/dftd4.F90 0000664 0000000 0000000 00000232014 14650006642 0015342 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
! Copyright (C) 2020, NVIDIA CORPORATION. All rights reserved.
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_disp_dftd4
use xtb_mctc_accuracy, only : wp
use xtb_mctc_constants, only : pi
use xtb_mctc_param, only: gam => chemical_hardness
use xtb_mctc_blas, only : mctc_gemv
!! ========================================================================
! mix in the covalent coordination number from the ncoord module
! also get the CN-Parameters to inline the CN-derivative in the gradient
use xtb_disp_dftd4param, only: zeff, thopi, ootpi, p_mbd_none, p_mbd_rpalike, &
& p_mbd_exact_atm, p_mbd_approx_atm, p_refq_goedecker, &
& p_refq_gfn2xtb
use xtb_param_sqrtzr4r2, only : sqrtZr4r2
use xtb_type_dispersionmodel
use xtb_type_molecule, only : TMolecule, len
use xtb_type_neighbourlist, only : TNeighbourList
use xtb_type_param, only : dftd_parameter
implicit none
interface d4_gradient
module procedure :: d4_full_gradient_neigh
module procedure :: d4_full_gradient_latp
module procedure :: d4_gradient_neigh
module procedure :: d4_gradient_latp
end interface d4_gradient
interface d4_atm_gradient
module procedure :: d4_atm_gradient_neigh
module procedure :: d4_atm_gradient_latp
end interface d4_atm_gradient
contains
subroutine newD3Model(dispm,nat,at)
use xtb_disp_dftd4param
implicit none
type(TDispersionModel), intent(out) :: dispm
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
integer :: i,ia,is,icn,j,ja,ii,jj,ij
integer :: cncount(0:18)
real(wp) :: alpha(23),c6
intrinsic :: nint
call init(dispm, maxElem=maxval(at))
dispm%atoms = 0
dispm%nref = 0.0_wp
!> set up ncount und alpha, also obtain the dimension of the dispmat
do i = 1, nat
ia = at(i)
if (dispm%atoms(ia).eq.0) then
dispm%nref(ia) = refn(ia)
do j = 1, dispm%nref(ia)
is = refsys(j,ia)
alpha = sscale(is)*secaiw(:,is)
dispm%cn(j,ia) = refcn(j,ia)
dispm%alpha(:,j,ia) = max(ascale(j,ia)*(alphaiw(:,j,ia) &
& - hcount(j,ia)*alpha), 0.0_wp)
enddo
endif
dispm%atoms(ia) = dispm%atoms(ia)+1
enddo
! integrate C6 coefficients
do i = 1, maxval(at)
do j = 1, i
if (dispm%atoms(i) > 0 .and. dispm%atoms(j) > 0) then
do ii = 1, dispm%nref(i)
do jj = 1, dispm%nref(j)
alpha = dispm%alpha(:,ii,i)*dispm%alpha(:,jj,j)
c6 = thopi * trapzd(alpha)
dispm%c6(ii,jj,i,j) = c6
dispm%c6(jj,ii,j,i) = c6
enddo
enddo
endif
enddo
enddo
end subroutine newD3Model
subroutine newD4Model(dispm,g_a,g_c,mode)
use xtb_disp_dftd4param
type(TDispersionModel), intent(out) :: dispm
real(wp),intent(in) :: g_a,g_c
integer, intent(in) :: mode
integer :: i,ia,is,icn,j,ii,jj
integer :: cncount(0:18)
real(wp) :: sec_al(23),iz,c6,alpha(23)
real(wp) :: tmp_hq(7,118)
intrinsic :: nint
call init(dispm)
secq = 0.0_wp
select case(mode)
case(p_refq_hirshfeld,p_refq_periodic)
! print'(1x,''* using PBE0/def2-TZVP Hirshfeld charges'')'
refq = dftq
refh = dfth
secq = dfts
! case(2)
! refq = pbcq
! refh = pbch
! secq = pbcs
case(p_refq_gasteiger)
! print'(1x,''* using classical Gasteiger charges'')'
refq = gffq
refh = gffh
secq = gffs
case(p_refq_goedecker)
refq = clsq
refh = clsh
secq = clss
case(p_refq_gfn2xtb_gbsa_h2o)
! print'(1x,''* using GFN2-xTB//GBSA(H2O) charges'')'
refq = solq
refh = solh
secq = sols
end select
select case(mode)
case(p_refq_hirshfeld,p_refq_periodic)
dispm%q = dftq
tmp_hq = dfth
case(p_refq_gasteiger)
dispm%q = gffq
tmp_hq = gffh
case(p_refq_goedecker)
dispm%q = clsq
tmp_hq = clsh
case(p_refq_gfn2xtb_gbsa_h2o)
dispm%q = solq
tmp_hq = solh
case default
dispm%q = refq
tmp_hq = refh
end select
dispm%atoms = 0
dispm%nref = 0
do ia = 1, 118
cncount = 0
cncount(0) = 1
dispm%nref(ia) = refn(ia)
do j = 1, refn(ia)
is = refsys(j,ia)
iz = zeff(is)
sec_al = sscale(is)*secaiw(:,is) &
& * zeta(g_a,gam(is)*g_c,secq(is)+iz,tmp_hq(j,ia)+iz)
dispm%cn(j,ia) = refcovcn(j,ia)
icn =nint(refcn(j,ia))
cncount(icn) = cncount(icn) + 1
dispm%alpha(:,j,ia) = max(ascale(j,ia)*(alphaiw(:,j,ia)-hcount(j,ia)*sec_al),0.0_wp)
enddo
do j = 1, refn(ia)
icn = cncount(nint(refcn(j,ia)))
dispm%ncount(j,ia) = icn*(icn+1)/2
enddo
end do
! integrate C6 coefficients
do i = 1, 118
do j = 1, i
do ii = 1, dispm%nref(i)
do jj = 1, dispm%nref(j)
alpha = dispm%alpha(:,ii,i)*dispm%alpha(:,jj,j)
c6 = thopi * trapzd(alpha)
dispm%c6(jj,ii,j,i) = c6
dispm%c6(ii,jj,i,j) = c6
enddo
enddo
enddo
enddo
end subroutine newD4Model
subroutine d4dim(dispm,nat,at,ndim)
type(TDispersionModel), intent(in) :: dispm
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
integer, intent(out) :: ndim
integer :: i
ndim = 0
do i = 1, nat
ndim = ndim + dispm%nref(at(i))
enddo
end subroutine d4dim
subroutine prmolc6(molc6,molc8,molpol,nat,at, &
& cn,covcn,q,qlmom,c6ab,alpha,rvdw,hvol)
use xtb_mctc_convert, only : autoaa
use xtb_mctc_io, only : stdout
use xtb_mctc_symbols, only : toSymbol
real(wp),intent(in) :: molc6
real(wp),intent(in) :: molc8
real(wp),intent(in) :: molpol
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in),optional :: cn(nat)
real(wp),intent(in),optional :: covcn(nat)
real(wp),intent(in),optional :: q(nat)
real(wp),intent(in),optional :: qlmom(3,nat)
real(wp),intent(in),optional :: c6ab(nat,nat)
real(wp),intent(in),optional :: alpha(nat)
real(wp),intent(in),optional :: rvdw(nat)
real(wp),intent(in),optional :: hvol(nat)
integer :: i
if(present(cn).or.present(covcn).or.present(q).or.present(c6ab) &
& .or.present(alpha).or.present(rvdw).or.present(hvol)) then
write(stdout,'(a)')
write(stdout,'('' # Z '')',advance='no')
if(present(cn)) write(stdout,'('' CN'')',advance='no')
if(present(covcn))write(stdout,'('' covCN'')',advance='no')
if(present(q)) write(stdout,'('' q'')',advance='no')
if(present(qlmom))write(stdout, '('' n(s)'')',advance='no')
if(present(qlmom))write(stdout, '('' n(p)'')',advance='no')
if(present(qlmom))write(stdout, '('' n(d)'')',advance='no')
if(present(c6ab)) write(stdout,'('' C6AA'')',advance='no')
if(present(alpha))write(stdout,'('' α(0)'')',advance='no')
if(present(rvdw)) write(stdout,'('' RvdW/Å'')',advance='no')
if(present(hvol)) write(stdout,'('' relVol'')',advance='no')
write(*,'(a)')
do i=1,nat
write(*,'(i4,1x,i3,1x,a2)',advance='no') &
& i,at(i),toSymbol(at(i))
if(present(cn)) write(stdout,'(f10.3)',advance='no')cn(i)
if(present(covcn))write(stdout,'(f10.3)',advance='no')covcn(i)
if(present(q)) write(stdout,'(f10.3)',advance='no')q(i)
if(present(qlmom))write(stdout, '(f7.3)',advance='no')qlmom(1,i)
if(present(qlmom))write(stdout, '(f7.3)',advance='no')qlmom(2,i)
if(present(qlmom))write(stdout, '(f7.3)',advance='no')qlmom(3,i)
if(present(c6ab)) write(stdout,'(f10.3)',advance='no')c6ab(i,i)
if(present(alpha))write(stdout,'(f10.3)',advance='no')alpha(i)
if(present(rvdw)) write(stdout,'(f10.3)',advance='no')rvdw(i)*autoaa
if(present(hvol)) write(stdout,'(f10.3)',advance='no')hvol(i)
write(*,'(a)')
enddo
endif
write(stdout,'(/,1x,''Mol. C6AA /au·bohr⁶ :'',f18.6,'// &
& '/,1x,''Mol. C8AA /au·bohr⁸ :'',f18.6,'// &
& '/,1x,''Mol. α(0) /au :'',f18.6,/)') &
& molc6,molc8,molpol
end subroutine prmolc6
subroutine mdisp(dispm,nat,ndim,at,q,xyz,g_a,g_c, &
& gw,c6abns,molc6,molc8,molpol,aout,cout,rout,vout)
type(TDispersionModel), intent(in) :: dispm
integer, intent(in) :: nat
integer, intent(in) :: ndim
integer, intent(in) :: at(nat)
real(wp),intent(in) :: q(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(in) :: g_a,g_c
real(wp),intent(in) :: gw(ndim)
real(wp),intent(in) :: c6abns(ndim,ndim)
real(wp),intent(out) :: molc6
real(wp),intent(out) :: molc8
real(wp),intent(out) :: molpol
real(wp),intent(out),optional :: aout(23,nat)
real(wp),intent(out),optional :: cout(nat,nat)
real(wp),intent(out),optional :: rout(nat)
real(wp),intent(out),optional :: vout(nat)
integer :: i,ii,ia,j,jj,ja,k,l
integer, allocatable :: itbl(:,:)
real(wp) :: qmod,oth,iz
real(wp),allocatable :: zetvec(:)
real(wp),allocatable :: rvdw(:)
real(wp),allocatable :: phv(:)
real(wp),allocatable :: c6ab(:,:)
real(wp),allocatable :: aw(:,:)
parameter (oth=1._wp/3._wp)
allocate( zetvec(ndim),rvdw(nat),phv(nat),c6ab(nat,nat),aw(23,nat), &
& source = 0.0_wp )
allocate( itbl(7,nat), source = 0 )
molc6 = 0._wp
molc8 = 0._wp
molpol = 0._wp
k = 0
do i = 1, nat
ia = at(i)
iz = zeff(ia)
do ii = 1, dispm%nref(ia)
k = k+1
itbl(ii,i) = k
zetvec(k) = gw(k) * zeta(g_a,gam(ia)*g_c,dispm%q(ii,ia)+iz,q(i)+iz)
aw(:,i) = aw(:,i) + zetvec(k) * dispm%alpha(:,ii,ia)
enddo
! van-der-Waals radius, alpha = 4/3 pi r**3 <=> r = (3/(4pi) alpha)**(1/3)
rvdw(i) = (0.25_wp*thopi*aw(1,i))**oth
! pseudo-hirshfeld volume
phv(i) = aw(1,i)/dispm%alpha(1,1,ia)
c6ab(i,i) = thopi * trapzd(aw(:,i)**2)
molpol = molpol + aw(1,i)
molc6 = molc6 + c6ab(i,i)
molc8 = molc8 + 3*sqrtZr4r2(ia)**2*c6ab(i,i)
do j = 1, i-1
ja = at(j)
c6ab(j,i) = thopi * trapzd(aw(:,i)*aw(:,j))
c6ab(i,j) = c6ab(j,i)
molc6 = molc6 + 2*c6ab(j,i)
molc8 = molc8 + 6*sqrtZr4r2(ia)*sqrtZr4r2(ja)*c6ab(j,i)
enddo
enddo
if (present(aout)) aout = aw
if (present(vout)) vout = phv
if (present(rout)) rout = rvdw
if (present(cout)) cout = c6ab
end subroutine mdisp
pure elemental function zeta(a,c,qref,qmod)
!$acc routine seq
real(wp),intent(in) :: qmod,qref
real(wp),intent(in) :: a,c
real(wp) :: zeta
intrinsic :: exp
if (qmod.lt.0._wp) then
zeta = exp( a )
else
zeta = exp( a * ( 1._wp - exp( c * ( 1._wp - qref/qmod ) ) ) )
endif
end function zeta
pure elemental function dzeta(a,c,qref,qmod)
!$acc routine seq
real(wp),intent(in) :: qmod,qref
real(wp),intent(in) :: a,c
real(wp) :: dzeta
intrinsic :: exp
if (qmod.lt.0._wp) then
dzeta = 0._wp
else
dzeta = - a * c * exp( c * ( 1._wp - qref/qmod ) ) &
& * zeta(a,c,qref,qmod) * qref / ( qmod**2 )
endif
end function dzeta
pure function trapzd(pol)
real(wp),intent(in) :: pol(23)
real(wp) :: trapzd
real(wp) :: tmp1, tmp2
real(wp),parameter :: freq(23) = (/ &
& 0.000001_wp,0.050000_wp,0.100000_wp, &
& 0.200000_wp,0.300000_wp,0.400000_wp, &
& 0.500000_wp,0.600000_wp,0.700000_wp, &
& 0.800000_wp,0.900000_wp,1.000000_wp, &
& 1.200000_wp,1.400000_wp,1.600000_wp, &
& 1.800000_wp,2.000000_wp,2.500000_wp, &
& 3.000000_wp,4.000000_wp,5.000000_wp, &
& 7.500000_wp,10.00000_wp /)
! just precalculate all weights and get the job done
real(wp),parameter :: weights(23) = 0.5_wp * (/ &
& ( freq (2) - freq (1) ), &
& ( freq (2) - freq (1) ) + ( freq (3) - freq (2) ), &
& ( freq (3) - freq (2) ) + ( freq (4) - freq (3) ), &
& ( freq (4) - freq (3) ) + ( freq (5) - freq (4) ), &
& ( freq (5) - freq (4) ) + ( freq (6) - freq (5) ), &
& ( freq (6) - freq (5) ) + ( freq (7) - freq (6) ), &
& ( freq (7) - freq (6) ) + ( freq (8) - freq (7) ), &
& ( freq (8) - freq (7) ) + ( freq (9) - freq (8) ), &
& ( freq (9) - freq (8) ) + ( freq(10) - freq (9) ), &
& ( freq(10) - freq (9) ) + ( freq(11) - freq(10) ), &
& ( freq(11) - freq(10) ) + ( freq(12) - freq(11) ), &
& ( freq(12) - freq(11) ) + ( freq(13) - freq(12) ), &
& ( freq(13) - freq(12) ) + ( freq(14) - freq(13) ), &
& ( freq(14) - freq(13) ) + ( freq(15) - freq(14) ), &
& ( freq(15) - freq(14) ) + ( freq(16) - freq(15) ), &
& ( freq(16) - freq(15) ) + ( freq(17) - freq(16) ), &
& ( freq(17) - freq(16) ) + ( freq(18) - freq(17) ), &
& ( freq(18) - freq(17) ) + ( freq(19) - freq(18) ), &
& ( freq(19) - freq(18) ) + ( freq(20) - freq(19) ), &
& ( freq(20) - freq(19) ) + ( freq(21) - freq(20) ), &
& ( freq(21) - freq(20) ) + ( freq(22) - freq(21) ), &
& ( freq(22) - freq(21) ) + ( freq(23) - freq(22) ), &
& ( freq(23) - freq(22) ) /)
!! do average between trap(1)-trap(22) .and. trap(2)-trap(23)
! tmp1 = 0.5_wp * ( &
!& ( freq (2) - freq (1) ) * ( pol (2) + pol (1) )+ &
!& ( freq (4) - freq (3) ) * ( pol (4) + pol (3) )+ &
!& ( freq (6) - freq (5) ) * ( pol (6) + pol (5) )+ &
!& ( freq (8) - freq (7) ) * ( pol (8) + pol (7) )+ &
!& ( freq(10) - freq (9) ) * ( pol(10) + pol (9) )+ &
!& ( freq(12) - freq(11) ) * ( pol(12) + pol(11) )+ &
!& ( freq(14) - freq(13) ) * ( pol(14) + pol(13) )+ &
!& ( freq(16) - freq(15) ) * ( pol(16) + pol(15) )+ &
!& ( freq(18) - freq(17) ) * ( pol(18) + pol(17) )+ &
!& ( freq(20) - freq(19) ) * ( pol(20) + pol(19) )+ &
!& ( freq(22) - freq(21) ) * ( pol(22) + pol(21) ))
! tmp2 = 0.5_wp * ( &
!& ( freq (3) - freq (2) ) * ( pol (3) + pol (2) )+ &
!& ( freq (5) - freq (4) ) * ( pol (5) + pol (4) )+ &
!& ( freq (7) - freq (6) ) * ( pol (7) + pol (6) )+ &
!& ( freq (9) - freq (8) ) * ( pol (9) + pol (8) )+ &
!& ( freq(11) - freq(10) ) * ( pol(11) + pol(10) )+ &
!& ( freq(13) - freq(12) ) * ( pol(13) + pol(12) )+ &
!& ( freq(15) - freq(14) ) * ( pol(15) + pol(14) )+ &
!& ( freq(17) - freq(16) ) * ( pol(17) + pol(16) )+ &
!& ( freq(19) - freq(18) ) * ( pol(19) + pol(18) )+ &
!& ( freq(21) - freq(20) ) * ( pol(21) + pol(20) )+ &
!& ( freq(23) - freq(22) ) * ( pol(23) + pol(22) ))
trapzd = sum(pol*weights)
end function trapzd
pure elemental function cngw(wf,cn,cnref)
!$acc routine seq
real(wp),intent(in) :: wf,cn,cnref
real(wp) :: cngw ! CN-gaussian-weight
intrinsic :: exp
cngw = exp ( -wf * ( cn - cnref )**2 )
end function cngw
pure elemental function dcngw(wf,cn,cnref)
real(wp),intent(in) :: wf,cn,cnref
real(wp) :: dcngw
dcngw = 2*wf*(cnref-cn)*cngw(wf,cn,cnref)
end function dcngw
!* BJ damping function ala DFT-D3(BJ)
! f(n,rab) = sn*rab**n/(rab**n + R0**n) w/ R0 = a1*sqrt(C6/C8)+a2
! see: https://doi.org/10.1002/jcc.21759
pure elemental function fdmpr_bj(n,r,c) result(fdmp)
integer, intent(in) :: n
real(wp),intent(in) :: r
real(wp),intent(in) :: c
real(wp) :: fdmp
fdmp = 1.0_wp / ( r**n + c**n )
end function fdmpr_bj
pure elemental function fdmprdr_bj(n,r,c) result(dfdmp)
integer, intent(in) :: n
real(wp),intent(in) :: r
real(wp),intent(in) :: c
real(wp) :: dfdmp
dfdmp = -n*r**(n-1) * fdmpr_bj(n,r,c)**2
end function fdmprdr_bj
!* original DFT-D3(0) damping
! f(n,rab) = sn/(1+6*(4/3*R0/rab)**alp) w/ R0 of unknown origin
pure elemental function fdmpr_zero(n,r,c,alp) result(fdmp)
integer, intent(in) :: n
real(wp),intent(in) :: r
real(wp),intent(in) :: c
integer, intent(in) :: alp
real(wp),parameter :: six = 6.0_wp
real(wp) :: fdmp
fdmp = 1.0_wp / (r**n*(1 + six * (c/r)**(n+alp)))
end function fdmpr_zero
pure elemental function fdmprdr_zero(n,r,c,alp) result(dfdmp)
integer, intent(in) :: n
real(wp),intent(in) :: r
real(wp),intent(in) :: c
integer, intent(in) :: alp
real(wp),parameter :: six = 6.0_wp
real(wp) :: dfdmp
dfdmp = -( n*r**(n-1)*(1+six*(c/r)**(alp)) &
- alp*r**n/c*six*(c/r)**(alp-1) ) &
* fdmpr_zero(n,r,c,alp)**2
! fdmp = 1.0_wp / (r**n*(1 + 6.0_wp * (c/r)**(n+alp)))
end function fdmprdr_zero
!* fermi damping function from TS and MBD methods
! f(n,rab) = sn/(1+exp[-alp*(rab/R0-1)]) w/ R0 as experimenal vdW-Radii
pure elemental function fdmpr_fermi(n,r,c,alp) result(fdmp)
integer, intent(in) :: n
real(wp),intent(in) :: r
real(wp),intent(in) :: c
integer, intent(in) :: alp
real(wp) :: fdmp
fdmp = 1.0_wp / (r**n*(1.0_wp+exp(-alp*(r/c - 1.0))))
end function fdmpr_fermi
pure elemental function fdmprdr_fermi(n,r,c,alp) result(dfdmp)
integer, intent(in) :: n
real(wp),intent(in) :: r
real(wp),intent(in) :: c
integer, intent(in) :: alp
real(wp) :: dfdmp
dfdmp = -(-alp/c*r**n*exp(-alp*(r/c - 1.0)) &
+ n*r**(n-1)*(1.0_wp+exp(-alp*(r/c - 1.0)))) &
* fdmpr_fermi(n,r,c,alp)**2
end function fdmprdr_fermi
!* optimized power zero damping (M. Head-Gordon)
! f(n,rab) = sn*rab**(n+alp)/(rab**(n+alp) + R0**(n+alp))
! see: https://dx.doi.org/10.1021/acs.jpclett.7b00176
pure elemental function fdmpr_op(n,r,c,alp) result(fdmp)
integer, intent(in) :: n
real(wp),intent(in) :: r
real(wp),intent(in) :: c
integer, intent(in) :: alp
real(wp) :: fdmp
fdmp = r**alp / (r**(n+alp)*c**(n+alp))
end function fdmpr_op
pure elemental function fdmprdr_op(n,r,c,alp) result(dfdmp)
integer, intent(in) :: n
real(wp),intent(in) :: r
real(wp),intent(in) :: c
integer, intent(in) :: alp
real(wp) :: dfdmp
dfdmp = (alp*r*(alp-1) - (n+alp)*r**alp*r**(n+alp-1)) &
* fdmpr_op(n,r,c,alp)**2
! fdmp = r**alp / (r**(n+alp)*c**(n+alp))
end function fdmprdr_op
!* Sherrill's M-zero damping function
! f(n,rab) = sn/(1+6*(4/3*R0/rab+a2*R0)**(-alp))
! see: https://dx.doi.org/10.1021/acs.jpclett.6b00780
pure elemental function fdmpr_zerom(n,r,c,rsn,alp) result(fdmp)
integer, intent(in) :: n
real(wp),intent(in) :: r
real(wp),intent(in) :: c
real(wp),intent(in) :: rsn
integer, intent(in) :: alp
real(wp),parameter :: six = 6.0_wp
real(wp) :: fdmp
fdmp = 1.0_wp / (r**n*(1 + six * (r/c+rsn*c)**(-alp)))
end function fdmpr_zerom
pure elemental function fdmprdr_zerom(n,r,c,rsn,alp) result(dfdmp)
integer, intent(in) :: n
real(wp),intent(in) :: r
real(wp),intent(in) :: c
real(wp),intent(in) :: rsn
integer, intent(in) :: alp
real(wp),parameter :: six = 6.0_wp
real(wp) :: dfdmp
dfdmp = -( n*r**(n-1)*(1+six*(r/c+rsn*c)**(-alp)) &
- alp*r**n/c*six*(r/c+rsn*c)**(-alp-1) ) &
* fdmpr_zerom(n,r,c,rsn,alp)**2
end function fdmprdr_zerom
subroutine d4(dispm,nat,ndim,at,wf,g_a,g_c,covcn,gw,c6abns)
use xtb_mctc_accuracy, only : wp
type(TDispersionModel), intent(in) :: dispm
integer, intent(in) :: nat
integer, intent(in) :: ndim
integer, intent(in) :: at(nat)
real(wp),intent(in) :: wf,g_a,g_c
real(wp),intent(in) :: covcn(nat)
real(wp),intent(out) :: gw(ndim)
real(wp),intent(out) :: c6abns(ndim,ndim)
integer :: i,ia,is,icn,ii,iii,j,jj,ja,k,l
integer,allocatable :: itbl(:,:)
real(wp) :: twf,norm,aiw(23)
intrinsic :: maxval
allocate( itbl(7,nat), source = 0 )
gw = 0._wp
c6abns = 0._wp
k = 0
do i = 1, nat
do ii = 1, dispm%nref(at(i))
k = k+1
itbl(ii,i) = k
enddo
enddo
do i = 1, nat
ia = at(i)
norm = 0.0_wp
do ii = 1, dispm%nref(ia)
do iii = 1, dispm%ncount(ii,ia)
twf = iii*wf
norm = norm + cngw(twf,covcn(i),dispm%cn(ii,ia))
enddo
enddo
norm = 1._wp / norm
do ii = 1, dispm%nref(ia)
k = itbl(ii,i)
do iii = 1, dispm%ncount(ii,ia)
twf = iii*wf
gw(k) = gw(k) + cngw(twf,covcn(i),dispm%cn(ii,ia)) * norm
enddo
! --- okay, if we run out of numerical precision, gw(k) will be NaN.
! In case it is NaN, it will not match itself! So we can rescue
! this exception. This can only happen for very high CNs.
if (gw(k).ne.gw(k)) then
if (maxval(dispm%cn(:dispm%nref(ia),ia)).eq.dispm%cn(ii,ia)) then
gw(k) = 1.0_wp
else
gw(k) = 0.0_wp
endif
endif
do j = 1, i-1
ja = at(j)
do jj = 1, dispm%nref(ja)
l = itbl(jj,j)
c6abns(l,k) = dispm%c6(ii,jj,ia,ja)
c6abns(k,l) = c6abns(l,k)
enddo
enddo
enddo
enddo
end subroutine d4
subroutine build_wdispmat(dispm,nat,ndim,at,itbl,xyz,par,c6abns,gw,wdispmat)
type(TDispersionModel), intent(in) :: dispm
integer, intent(in) :: nat
integer, intent(in) :: ndim
integer, intent(in) :: at(:)
integer, intent(in) :: itbl(:)
real(wp),intent(in) :: xyz(:, :)
type(dftd_parameter),intent(in) :: par
real(wp),intent(in) :: c6abns(:, :)
real(wp),intent(in) :: gw(:)
real(wp),intent(out) :: wdispmat(:, :)
integer :: i,ii,ia,j,jj,ja,k,l
real(wp) :: c8abns,c10abns,r2,cutoff,oor6,oor8,oor10,r,gwgw,r4r2ij
real(wp), parameter :: rthr = 72.0_wp ! slightly larger than in gradient
real(wp), parameter :: gwcut = 1.0e-7_wp
! acc enter data create(wdispmat) copyin(at, xyz, itbl, dispm, dispm%nref, &
! acc& c6abns, gw, par)
! acc kernels default(present)
wdispmat = 0.0_wp
! acc end kernels
!#ifdef XTB_GPU
! acc parallel default(present)
! acc loop gang collapse(2) private(r4r2ij, cutoff, r2, oor6, oor8, oor10)
!#else
!$omp parallel do shared(wdispmat) &
!$omp shared(nat, at, xyz, itbl, par, dispm, c6abns, gw) &
!$omp private(ia, k, j, ja, l, r4r2ij, cutoff, r2, oor6, oor8, oor10, &
!$omp& ii, jj, gwgw, c8abns, c10abns)
!#endif
do i = 1, nat
do j = 1, nat
if (j >= i) cycle
ia = at(i)
ja = at(j)
k = itbl(i)
l = itbl(j)
r4r2ij = 3.0_wp*sqrtZr4r2(ia)*sqrtZr4r2(ja)
cutoff = par%a1*sqrt(r4r2ij)+par%a2
r2 = sum( (xyz(:,j)-xyz(:,i))**2 )
if (r2.gt.rthr*rthr) cycle
oor6 = 1.0_wp/(r2**3 + cutoff**6 )
oor8 = 1.0_wp/(r2**4 + cutoff**8 )
oor10 = 1.0_wp/(r2**5 + cutoff**10)
! acc loop seq
do ii = 1, dispm%nref(ia)
! acc loop seq private(gwgw, c8abns, c10abns)
do jj = 1, dispm%nref(ja)
gwgw = gw(k+ii)*gw(l+jj)
if (gwgw.lt.gwcut) cycle
c8abns = r4r2ij * c6abns(k+ii,l+jj)
c10abns = 49.0_wp/40.0_wp * r4r2ij**2 * c6abns(k+ii,l+jj)
wdispmat(k+ii,l+jj) = gw(k+ii)*gw(l+jj) * ( &
& - par%s6 * ( c6abns(k+ii,l+jj) * oor6 ) &
& - par%s8 * ( c8abns * oor8 ) &
& - par%s10 * ( c10abns * oor10) )
wdispmat(l+jj,k+ii) = wdispmat(k+ii,l+jj)
enddo
enddo
enddo
enddo
!#ifdef XTB_GPU
! acc end parallel
! acc exit data copyout(wdispmat) delete(itbl, sqrtZr4r2, dispm, dispm%nref, &
! acc& c6abns, gw)
!#endif
end subroutine build_wdispmat
subroutine disppot(dispm,nat,ndim,at,itbl,q,g_a,g_c,wdispmat,gw,hdisp)
use xtb_mctc_blas, only : mctc_symv
type(TDispersionModel), intent(in) :: dispm
integer, intent(in) :: nat
integer, intent(in) :: ndim
integer, intent(in) :: at(:)
integer, intent(in) :: itbl(:)
real(wp),intent(in) :: q(:)
real(wp),intent(in) :: g_a,g_c
real(wp),intent(in) :: wdispmat(:,:)
real(wp),intent(in) :: gw(:)
real(wp),intent(inout) :: hdisp(:)
integer :: iat,ii,k,ati
real(wp) :: qmod,iz
real(wp),parameter :: gw_cut = 1.0e-7_wp
real(wp),allocatable :: zetavec(:)
real(wp),allocatable :: zerovec(:)
real(wp),allocatable :: dumvec(:)
intrinsic :: sum,dble
allocate( zetavec(ndim),zerovec(ndim),dumvec(ndim), source = 0._wp )
!$acc enter data create(zetavec, zerovec, dumvec) copyin(hdisp, itbl, at, zeff, &
!$acc& dispm, dispm%nref, dispm%q, q, gw, wdispmat, g_a, g_c)
!$acc kernels default(present)
zetavec = 0.0_wp
zerovec = 0.0_wp
dumvec = 0.0_wp
!$acc end kernels
#ifdef XTB_GPU
!$acc parallel default(present)
!$acc loop gang private(k, ati, iz)
#else
!$omp parallel do shared(itbl, at, dispm, gw, q, g_a, g_c) &
!$omp private(k, ati, iz, ii)
#endif
do iat = 1, nat
k = itbl(iat)
ati = at(iat)
iz = zeff(ati)
!$acc loop vector
do ii = 1, dispm%nref(ati)
if (gw(k+ii).lt.gw_cut) cycle
zerovec(k+ii) = dzeta(g_a,gam(ati)*g_c,dispm%q(ii,ati)+iz,q(iat)+iz)
zetavec(k+ii) = zeta(g_a,gam(ati)*g_c,dispm%q(ii,ati)+iz,q(iat)+iz)
enddo
enddo
#ifdef XTB_GPU
!$acc end parallel
!$acc exit data copyout(zetavec)
#endif
! create vector -> dispmat(ndim,dnim) * zetavec(ndim) = dumvec(ndim)
call mctc_symv(wdispmat,zetavec,dumvec)
! get atomic reference contributions
#ifdef XTB_GPU
!$acc parallel default(present)
!$acc loop gang private(k, ati)
#else
!$omp parallel do reduction(+:hdisp) shared(itbl, at, dumvec, zerovec) &
!$omp private(ati, ii, k)
#endif
do iat = 1, nat
k = itbl(iat)
ati = at(iat)
!$acc loop vector
do ii = 1, dispm%nref(ati)
!$acc atomic
hdisp(iat) = hdisp(iat) + dumvec(k+ii)*zerovec(k+ii)
end do
enddo
#ifdef XTB_GPU
!$acc end parallel
!$acc exit data copyout(hdisp) delete(zerovec, dumvec, itbl, at, zeff, &
!$acc& dispm, dispm%nref, dispm%q, q, g_a, g_c, wdispmat, gw)
#endif
end subroutine disppot
function edisp_scc(dispm,nat,ndim,at,itbl,q,g_a,g_c,wdispmat,gw) result(ed)
use xtb_mctc_blas, only : mctc_symv, mctc_dot
type(TDispersionModel), intent(in) :: dispm
integer, intent(in) :: nat
integer, intent(in) :: ndim
integer, intent(in) :: at(:)
integer, intent(in) :: itbl(:)
real(wp),intent(in) :: q(:)
real(wp),intent(in) :: g_a,g_c
real(wp),intent(in) :: wdispmat(:,:)
real(wp),intent(in) :: gw(:)
real(wp) :: ed
integer :: iat,ii,k,ati
real(wp) :: qmod,iz
real(wp),parameter :: gw_cut = 1.0e-7_wp
real(wp),allocatable :: zetavec(:)
real(wp),allocatable :: dumvec(:)
intrinsic :: sum,dble
allocate( zetavec(ndim),dumvec(ndim))
zetavec = 0.0_wp
dumvec = 0.0_wp
ed = 0.0_wp
!$omp parallel do shared(zetavec, dispm, nat, itbl, at, q, g_c, g_a) &
!$omp private(k, ati, iz, ii)
do iat = 1, nat
k = itbl(iat)
ati = at(iat)
iz = zeff(ati)
do ii = 1, dispm%nref(ati)
if (gw(k+ii).lt.gw_cut) cycle
zetavec(k+ii) = zeta(g_a,gam(ati)*g_c,dispm%q(ii,ati)+iz,q(iat)+iz)
enddo
enddo
! create vector -> dispmat(ndim,dnim) * zetavec(ndim) = dumvec(ndim)
call mctc_symv(wdispmat,zetavec,dumvec,alpha=0.5_wp)
ed = mctc_dot(dumvec,zetavec)
end function edisp_scc
! --- PBC
subroutine pbc_d4(dispm,nat,ndim,at,wf,g_a,g_c,covcn,gw,refc6)
type(TDispersionModel), intent(in) :: dispm
integer, intent(in) :: nat
integer, intent(in) :: ndim
integer, intent(in) :: at(nat)
real(wp),intent(in) :: wf,g_a,g_c
real(wp),intent(in) :: covcn(nat)
real(wp),intent(out) :: gw(ndim)
real(wp),intent(out) :: refc6(ndim,ndim)
integer :: i,ia,is,icn,ii,iii,j,jj,ja,k,l
integer,allocatable :: itbl(:,:)
real(wp) :: twf,norm,aiw(23)
intrinsic :: maxval
allocate( itbl(7,nat), source = 0 )
gw = 0._wp
refc6 = 0._wp
k = 0
do i = 1, nat
do ii = 1, dispm%nref(at(i))
k = k+1
itbl(ii,i) = k
enddo
enddo
do i = 1, nat
ia = at(i)
norm = 0.0_wp
do ii = 1, dispm%nref(ia)
do iii = 1, dispm%ncount(ii,ia)
twf = iii*wf
norm = norm + cngw(twf,covcn(i),dispm%cn(ii,ia))
enddo
enddo
norm = 1._wp / norm
do ii = 1, dispm%nref(ia)
k = itbl(ii,i)
do iii = 1, dispm%ncount(ii,ia)
twf = iii*wf
gw(k) = gw(k) + cngw(twf,covcn(i),dispm%cn(ii,ia)) * norm
enddo
! --- okay, if we run out of numerical precision, gw(k) will be NaN.
! In case it is NaN, it will not match itself! So we can rescue
! this exception. This can only happen for very high CNs.
if (gw(k).ne.gw(k)) then
if (maxval(dispm%cn(:dispm%nref(ia),ia)).eq.dispm%cn(ii,ia)) then
gw(k) = 1.0_wp
else
gw(k) = 0.0_wp
endif
endif
! diagonal terms
do jj = 1, ii
l = itbl(jj,i)
refc6(l,k) = dispm%c6(ii,jj,ia,ia)
refc6(k,l) = refc6(l,k)
enddo
! offdiagonal terms
do j = 1, i-1
ja = at(j)
do jj = 1, dispm%nref(ja)
l = itbl(jj,j)
refc6(l,k) = dispm%c6(ii,jj,ia,ja)
refc6(k,l) = refc6(l,k)
enddo
enddo
enddo
enddo
end subroutine pbc_d4
!> Calculate the weights of the reference system and the derivatives w.r.t.
! coordination number for later use.
subroutine weight_references(dispm, nat, atoms, g_a, g_c, wf, q, cn, zeff, gam, &
& zetavec, zerovec, zetadcn, zerodcn, zetadq)
type(TDispersionModel), intent(in) :: dispm
!> Nr. of atoms (without periodic images)
integer, intent(in) :: nat
!> Atomic numbers of every atom.
integer, intent(in) :: atoms(:)
!> Charge scaling height.
real(wp), intent(in) :: g_a
!> Charge scaling steepness.
real(wp), intent(in) :: g_c
!> Exponent for the Gaussian weighting.
real(wp), intent(in) :: wf
!> Coordination number of every atom.
real(wp), intent(in) :: cn(:)
!> Partial charge of every atom.
real(wp), intent(in) :: q(:)
real(wp), intent(in) :: zeff(:)
real(wp), intent(in) :: gam(:)
!> weighting and scaling function for the atomic reference systems
real(wp), intent(out) :: zetaVec(:, :)
!> weighting and scaling function for the atomic reference systems for q=0
real(wp), intent(out) :: zeroVec(:, :)
!> derivative of the weight'n'scale function w.r.t. the partial charges
real(wp), intent(out) :: zetadq(:, :)
!> derivative of the weight'n'scale function w.r.t. the coordination number
real(wp), intent(out) :: zetadcn(:, :)
!> derivative of the weight'n'scale function w.r.t. the CN for q=0
real(wp), intent(out) :: zerodcn(:, :)
integer :: iat, ati, iref, icount
real(wp) :: norm, dnorm, twf, gw, expw, expd, gwk, dgwk
real(wp) :: gi, zi
! acc enter data create(zetavec, zerovec, zetadq, zetadq, zetadcn, zerodcn) &
! acc& copyin(dispm, dispm%nref, dispm%ncount, dispm%cn, dispm%q, atoms, &
! acc& cn, q, zeff, gam, g_a, g_c, wf)
! acc kernels default(present)
zetavec = 0.0_wp
zerovec = 0.0_wp
zetadcn = 0.0_wp
zerodcn = 0.0_wp
zetadq = 0.0_wp
! acc end kernels
!#ifdef XTB_GPU
! acc parallel default(present)
! acc loop gang private(zi, gi, norm, dnorm)
!#else
!$omp parallel do shared(zetavec, zetadcn, zetadq, zerodcn) &
!$omp shared(nat, atoms, dispm, cn, q, g_a, g_c, wf, zerovec) &
!$omp private(iat, ati, zi, gi, norm, dnorm, iref, icount, twf, gw, expw, &
!$omp& expd, gwk, dgwk)
!#endif
do iat = 1, nat
ati = atoms(iat)
zi = zeff(ati)
gi = g_c * gam(ati)
norm = 0.0_wp
dnorm = 0.0_wp
! acc loop vector
do iref = 1, dispm%nref(ati)
! acc loop seq private(twf, gw)
do icount = 1, dispm%ncount(iref, ati)
twf = icount * wf
gw = cngw(twf, cn(iat), dispm%cn(iref, ati))
norm = norm + gw
dnorm = dnorm + 2*twf*(dispm%cn(iref, ati) - cn(iat)) * gw
enddo
end do
norm = 1.0_wp / norm
! acc loop vector private(expw, expd)
do iref = 1, dispm%nref(ati)
expw = 0.0_wp
expd = 0.0_wp
! acc loop seq private(twf, gw)
do icount = 1, dispm%ncount(iref, ati)
twf = icount * wf
gw = cngw(twf, cn(iat), dispm%cn(iref, ati))
expw = expw + gw
expd = expd + 2*twf*(dispm%cn(iref, ati) - cn(iat)) * gw
enddo
gwk = expw * norm
if (gwk /= gwk) then
if (maxval(dispm%cn(:dispm%nref(ati), ati)) &
& == dispm%cn(iref, ati)) then
gwk = 1.0_wp
else
gwk = 0.0_wp
endif
endif
zetavec(iref, iat) = zeta(g_a,gi,dispm%q(iref,ati)+zi,q(iat)+zi) * gwk
zerovec(iref, iat) = zeta(g_a,gi,dispm%q(iref,ati)+zi,zi) * gwk
dgwk = expd*norm-expw*dnorm*norm**2
if (dgwk /= dgwk) then
dgwk = 0.0_wp
endif
zetadcn(iref, iat) = zeta(g_a,gi,dispm%q(iref,ati)+zi,q(iat)+zi) * dgwk
zetadq(iref, iat) = dzeta(g_a,gi,dispm%q(iref,ati)+zi,q(iat)+zi) * gwk
zerodcn(iref, iat) = zeta(g_a,gi,dispm%q(iref,ati)+zi,zi) * dgwk
end do
end do
!#ifdef XTB_GPU
! acc end parallel
! acc exit data copyout(zetavec, zerovec, zetadq, zetadq, zetadcn, zerodcn) &
! acc& delete(dispm, dispm%nref, dispm%ncount, dispm%cn, dispm%q, atoms, &
! acc& cn, q, zeff, gam, g_a, g_c, wf)
!#endif
end subroutine weight_references
!> calculate atomic dispersion coefficients and their derivatives w.r.t.
! the coordination number.
subroutine get_atomic_c6(dispm, nat, atoms, zetavec, zetadcn, zetadq, &
& c6, dc6dcn, dc6dq)
type(TDispersionModel), intent(in) :: dispm
!> Nr. of atoms (without periodic images)
integer, intent(in) :: nat
!> numbers of every atom.
integer, intent(in) :: atoms(:)
!> weighting and scaling function for the atomic reference systems
real(wp), intent(in) :: zetaVec(:, :)
!> derivative of the weight'n'scale function w.r.t. the partial charges
real(wp), intent(in) :: zetadq(:, :)
!> derivative of the weight'n'scale function w.r.t. the coordination number
real(wp), intent(in) :: zetadcn(:, :)
!> C6 coefficients for all atom pairs.
real(wp), intent(out) :: c6(:, :)
!> derivative of the C6 w.r.t. the coordination number
real(wp), intent(out) :: dc6dcn(:, :)
!> derivative of the C6 w.r.t. the partial charge
real(wp), intent(out) :: dc6dq(:, :)
integer :: iat, jat, ati, atj, iref, jref
real(wp) :: refc6, dc6, dc6dcni, dc6dcnj, dc6dqi, dc6dqj
!$acc enter data create(c6, dc6dcn, dc6dq) copyin(atoms, dispm, dispm%nref, dispm%c6, &
!$acc& zetavec, zetadcn, zetadq)
!$acc kernels default(present)
c6 = 0.0_wp
dc6dcn = 0.0_wp
dc6dq = 0.0_wp
!$acc end kernels
#ifdef XTB_GPU
!$acc parallel default(present)
!$acc loop gang collapse(2)
#else
!$omp parallel do default(none) shared(c6, dc6dcn, dc6dq) &
!$omp shared(nat, atoms, dispm, zetavec, zetadcn, zetadq) &
!$omp private(iat, ati, jat, atj, dc6, dc6dcni, dc6dcnj, dc6dqi, dc6dqj, &
!$omp& iref, jref, refc6)
#endif
do iat = 1, nat
do jat = 1, nat
if (jat > iat) cycle
ati = atoms(iat)
atj = atoms(jat)
dc6 = 0.0_wp
dc6dcni = 0.0_wp
dc6dcnj = 0.0_wp
dc6dqi = 0.0_wp
dc6dqj = 0.0_wp
!$acc loop vector collapse(2)
do iref = 1, dispm%nref(ati)
do jref = 1, dispm%nref(atj)
refc6 = dispm%c6(iref, jref, ati, atj)
dc6 = dc6 + zetavec(iref, iat) * zetavec(jref, jat) * refc6
dc6dcni = dc6dcni + zetadcn(iref, iat) * zetavec(jref, jat) * refc6
dc6dcnj = dc6dcnj + zetavec(iref, iat) * zetadcn(jref, jat) * refc6
dc6dqi = dc6dqi + zetadq(iref, iat) * zetavec(jref, jat) * refc6
dc6dqj = dc6dqj + zetavec(iref, iat) * zetadq(jref, jat) * refc6
end do
end do
c6(iat, jat) = dc6
c6(jat, iat) = dc6
dc6dcn(iat, jat) = dc6dcni
dc6dcn(jat, iat) = dc6dcnj
dc6dq(iat, jat) = dc6dqi
dc6dq(jat, iat) = dc6dqj
end do
end do
#ifdef XTB_GPU
!$acc end parallel
!$acc exit data copyout(c6, dc6dcn, dc6dq) delete(atoms, dispm, dispm%nref, dispm%c6, &
!$acc& zetavec, zetadcn, zetadq)
#endif
end subroutine get_atomic_c6
!> Evaluate gradient of DFT-D4, this routine can handle systems of arbitrary
! periodicity due to the static neighbourlist.
subroutine d4_full_gradient_neigh &
& (mol, dispm, neighs, neighs3, neighlist, par, g_a, g_c, wf, &
& cn, dcndr, dcndL, q, dqdr, dqdL, energy, gradient, sigma, e2, e3)
use xtb_type_molecule
use xtb_type_neighbourlist
use xtb_type_param
type(TDispersionModel), intent(in) :: dispm
!> Molecular Structure information.
type(TMolecule), intent(in) :: mol
!> Static neighbourlist.
type(TNeighbourList), intent(in) :: neighlist
!> Becke--Johnson damping parameters.
type(dftd_parameter), intent(in) :: par
!> Number of neighbours for each atom.
integer, intent(in) :: neighs(:)
!> Number of neighbours for each atom.
integer, intent(in) :: neighs3(:)
!> Charge scaling height.
real(wp), intent(in) :: g_a
!> Charge scaling steepness.
real(wp), intent(in) :: g_c
!> Exponent for the Gaussian weighting.
real(wp), intent(in) :: wf
!> Coordination number of every atom.
real(wp), intent(in) :: cn(:)
!> Derivative of CN w.r.t. atomic coordinates.
real(wp), intent(in) :: dcndr(:, :, :)
!> Derivative of CN w.r.t. strain deformations
real(wp), intent(in) :: dcndL(:, :, :)
!> Partial charge of every atom.
real(wp), intent(in) :: q(:)
!> Derivative of partial charges w.r.t. atomic coordinates.
real(wp), intent(in), optional :: dqdr(:, :, :)
!> Derivative of partial charges w.r.t. strain deformations
real(wp), intent(in), optional :: dqdL(:, :, :)
!> Dispersion energy.
real(wp), intent(inout) :: energy
!> Derivative of the dispersion energy w.r.t. atomic positions.
real(wp), intent(inout) :: gradient(:, :)
!> Stress tensor resulting from dispersion interactions.
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(out), optional :: e2
real(wp), intent(out), optional :: e3
integer :: nat, max_ref
real(wp), allocatable :: zetavec(:, :), zetadcn(:, :), zetadq(:, :)
real(wp), allocatable :: zerovec(:, :), zerodcn(:, :), zerodq(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :), dc6dq(:, :)
real(wp), allocatable :: energies(:), energies3(:), dEdcn(:), dEdq(:)
nat = len(mol)
max_ref = maxval(dispm%nref(mol%at))
allocate(zetavec(max_ref, nat), zetadcn(max_ref, nat), zetadq(max_ref, nat), &
& zerovec(max_ref, nat), zerodcn(max_ref, nat), zerodq(max_ref, nat), &
& c6(nat, nat), dc6dcn(nat, nat), dc6dq(nat, nat), &
& energies(nat), energies3(nat), dEdcn(nat), dEdq(nat), source=0.0_wp)
call weight_references(dispm, nat, mol%at, g_a, g_c, wf, q, cn, zeff, gam, &
& zetavec, zerovec, zetadcn, zerodcn, zetadq)
call get_atomic_c6(dispm, nat, mol%at, zetavec, zetadcn, zetadq, &
& c6, dc6dcn, dc6dq)
call disp_gradient_neigh(mol, neighs, neighlist, par, sqrtZr4r2, &
& c6, dc6dcn, dc6dq, energies, gradient, sigma, dEdcn, dEdq)
if (present(e2)) e2 = sum(energies)
if (par%s9 /= 0.0_wp) then
call get_atomic_c6(dispm, nat, mol%at, zerovec, zerodcn, zerodq, &
& c6, dc6dcn, dc6dq)
call atm_gradient_neigh(mol, neighs3, neighlist, par, sqrtZr4r2, c6, dc6dcn, &
& energies3, gradient, sigma, dEdcn)
end if
if (present(e3)) e3 = sum(energies3)
call mctc_gemv(dcndr, dEdcn, gradient, beta=1.0_wp)
if (present(dqdr)) then
call mctc_gemv(dqdr, dEdq, gradient, beta=1.0_wp)
end if
call mctc_gemv(dcndL, dEdcn, sigma, beta=1.0_wp)
if (present(dqdL)) then
call mctc_gemv(dqdL, dEdq, sigma, beta=1.0_wp)
end if
energy = energy + sum(energies) + sum(energies3)
end subroutine d4_full_gradient_neigh
!> Evaluate gradient of DFT-D4, this routine can handle systems of arbitrary
! periodicity due to the static neighbourlist.
subroutine d4_gradient_neigh &
& (mol, dispm, neighs, neighlist, par, g_a, g_c, wf, &
& cn, dcndr, dcndL, q, dqdr, dqdL, energy, gradient, sigma)
use xtb_type_molecule
use xtb_type_neighbourlist
use xtb_type_param
type(TDispersionModel), intent(in) :: dispm
!> Molecular Structure information.
type(TMolecule), intent(in) :: mol
!> Static neighbourlist.
type(TNeighbourList), intent(in) :: neighlist
!> Becke--Johnson damping parameters.
type(dftd_parameter), intent(in) :: par
!> Number of neighbours for each atom.
integer, intent(in) :: neighs(:)
!> Charge scaling height.
real(wp), intent(in) :: g_a
!> Charge scaling steepness.
real(wp), intent(in) :: g_c
!> Exponent for the Gaussian weighting.
real(wp), intent(in) :: wf
!> Coordination number of every atom.
real(wp), intent(in) :: cn(:)
!> Derivative of CN w.r.t. atomic coordinates.
real(wp), intent(in) :: dcndr(:, :, :)
!> Derivative of CN w.r.t. strain deformations
real(wp), intent(in) :: dcndL(:, :, :)
!> Partial charge of every atom.
real(wp), intent(in) :: q(:)
!> Derivative of partial charges w.r.t. atomic coordinates.
real(wp), intent(in), optional :: dqdr(:, :, :)
!> Derivative of partial charges w.r.t. strain deformations
real(wp), intent(in), optional :: dqdL(:, :, :)
!> Dispersion energy.
real(wp), intent(inout) :: energy
!> Derivative of the dispersion energy w.r.t. atomic positions.
real(wp), intent(inout) :: gradient(:, :)
!> Stress tensor resulting from dispersion interactions.
real(wp), intent(inout) :: sigma(:, :)
integer :: nat, max_ref
real(wp), allocatable :: zetavec(:, :), zetadcn(:, :), zetadq(:, :)
real(wp), allocatable :: zerovec(:, :), zerodcn(:, :), zerodq(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :), dc6dq(:, :)
real(wp), allocatable :: energies(:), dEdcn(:), dEdq(:)
nat = len(mol)
max_ref = maxval(dispm%nref(mol%at))
allocate(zetavec(max_ref, nat), zetadcn(max_ref, nat), zetadq(max_ref, nat), &
& zerovec(max_ref, nat), zerodcn(max_ref, nat), zerodq(max_ref, nat), &
& c6(nat, nat), dc6dcn(nat, nat), dc6dq(nat, nat), &
& energies(nat), dEdcn(nat), dEdq(nat), source=0.0_wp)
call weight_references(dispm, nat, mol%at, g_a, g_c, wf, q, cn, zeff, gam, &
& zetavec, zerovec, zetadcn, zerodcn, zetadq)
call get_atomic_c6(dispm, nat, mol%at, zetavec, zetadcn, zetadq, &
& c6, dc6dcn, dc6dq)
call disp_gradient_neigh(mol, neighs, neighlist, par, sqrtZr4r2, &
& c6, dc6dcn, dc6dq, energies, gradient, sigma, dEdcn, dEdq)
call mctc_gemv(dcndr, dEdcn, gradient, beta=1.0_wp)
if (present(dqdr)) then
call mctc_gemv(dqdr, dEdq, gradient, beta=1.0_wp)
end if
call mctc_gemv(dcndL, dEdcn, sigma, beta=1.0_wp)
if (present(dqdL)) then
call mctc_gemv(dqdL, dEdq, sigma, beta=1.0_wp)
end if
energy = energy + sum(energies)
end subroutine d4_gradient_neigh
!> Evaluate gradient of DFT-D4, this routine can handle systems of arbitrary
! periodicity due to the static neighbourlist.
subroutine disp_gradient_neigh &
& (mol, neighs, neighlist, par, r4r2, c6, dc6dcn, dc6dq, &
& energies, gradient, sigma, dEdcn, dEdq)
!> Molecular Structure information.
type(TMolecule), intent(in) :: mol
!> Static neighbourlist.
type(TNeighbourList), intent(in) :: neighlist
!> Becke--Johnson damping parameters.
type(dftd_parameter), intent(in) :: par
real(wp), intent(in) :: r4r2(:)
!> Number of neighbours for each atom.
integer, intent(in) :: neighs(:)
real(wp), intent(in) :: c6(:, :)
real(wp), intent(in) :: dc6dcn(:, :)
real(wp), intent(in) :: dc6dq(:, :)
!> Dispersion energy.
real(wp), intent(inout) :: energies(:)
!> Derivative of the dispersion energy w.r.t. atomic positions.
real(wp), intent(inout) :: gradient(:, :)
!> Stress tensor resulting from dispersion interactions.
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(inout) :: dEdcn(:)
real(wp), intent(inout) :: dEdq(:)
integer :: iat, jat, ati, atj, ij, img
real(wp) :: r4r2ij, r0, rij(3), r2, t6, t8, t10, d6, d8, d10
real(wp) :: dE, dG(3), dS(3, 3), disp, ddisp
!$omp parallel do default(none) &
!$omp reduction(+:energies, gradient, sigma, dEdcn, dEdq) &
!$omp shared(mol, neighs, neighlist, par, r4r2, c6, dc6dcn, dc6dq) &
!$omp private(ij, img, jat, ati, atj, r2, rij, r4r2ij, r0, t6, t8, t10, &
!$omp& d6, d8, d10, disp, ddisp, dE, dG, dS)
do iat = 1, len(mol)
ati = mol%at(iat)
do ij = 1, neighs(iat)
img = neighlist%ineigh(ij, iat)
r2 = neighlist%dist2(ij, iat)
rij = mol%xyz(:, iat) - neighlist%coords(:, img)
jat = neighlist%image(img)
atj = mol%at(jat)
r4r2ij = 3*r4r2(ati)*r4r2(atj)
r0 = par%a1*sqrt(r4r2ij) + par%a2
t6 = 1._wp/(r2**3+r0**6)
t8 = 1._wp/(r2**4+r0**8)
t10 = 1._wp/(r2**5+r0**10)
d6 = -6*r2**2*t6**2
d8 = -8*r2**3*t8**2
d10 = -10*r2**4*t10**2
disp = par%s6*t6 + par%s8*r4r2ij*t8 &
& + par%s10*49.0_wp/40.0_wp*r4r2ij**2*t10
ddisp= par%s6*d6 + par%s8*r4r2ij*d8 &
& + par%s10*49.0_wp/40.0_wp*r4r2ij**2*d10
dE = -c6(iat, jat)*disp * 0.5_wp
dG = -c6(iat, jat)*ddisp*rij
dS = spread(dG, 1, 3) * spread(rij, 2, 3) * 0.5_wp
energies(iat) = energies(iat) + dE
dEdcn(iat) = dEdcn(iat) - dc6dcn(iat, jat) * disp
dEdq(iat) = dEdq(iat) - dc6dq(iat, jat) * disp
sigma = sigma + dS
if (iat /= jat) then
energies(jat) = energies(jat) + dE
dEdcn(jat) = dEdcn(jat) - dc6dcn(jat, iat) * disp
dEdq(jat) = dEdq(jat) - dc6dq(jat, iat) * disp
gradient(:, iat) = gradient(:, iat) + dG
gradient(:, jat) = gradient(:, jat) - dG
sigma = sigma + dS
endif
enddo
enddo
!$omp end parallel do
end subroutine disp_gradient_neigh
!> Evaluate gradient of DFT-D4, this routine can handle systems of arbitrary
! periodicity due to the static neighbourlist.
subroutine d4_atm_gradient_neigh &
& (mol, dispm, neighs, neighlist, par, g_a, g_c, wf, cn, dcndr, dcndL, &
& energy, gradient, sigma)
use xtb_type_molecule
use xtb_type_neighbourlist
use xtb_type_param
type(TDispersionModel), intent(in) :: dispm
!> Molecular Structure information.
type(TMolecule), intent(in) :: mol
!> Static neighbourlist.
type(TNeighbourList), intent(in) :: neighlist
!> Becke--Johnson damping parameters.
type(dftd_parameter), intent(in) :: par
!> Number of neighbours for each atom.
integer, intent(in) :: neighs(:)
!> Charge scaling height.
real(wp), intent(in) :: g_a
!> Charge scaling steepness.
real(wp), intent(in) :: g_c
!> Exponent for the Gaussian weighting.
real(wp), intent(in) :: wf
!> Coordination number of every atom.
real(wp), intent(in) :: cn(:)
!> Derivative of CN w.r.t. atomic coordinates.
real(wp), intent(in) :: dcndr(:, :, :)
!> Derivative of CN w.r.t. strain deformations
real(wp), intent(in) :: dcndL(:, :, :)
!> Dispersion energy.
real(wp), intent(inout) :: energy
!> Derivative of the dispersion energy w.r.t. atomic positions.
real(wp), intent(inout) :: gradient(:, :)
!> Stress tensor resulting from dispersion interactions.
real(wp), intent(inout) :: sigma(:, :)
integer :: nat, max_ref
real(wp), allocatable :: q(:)
real(wp), allocatable :: zetavec(:, :), zetadcn(:, :), zetadq(:, :)
real(wp), allocatable :: zerovec(:, :), zerodcn(:, :), zerodq(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :), dc6dq(:, :)
real(wp), allocatable :: energies(:), dEdcn(:)
nat = len(mol)
max_ref = maxval(dispm%nref(mol%at))
allocate(zetavec(max_ref, nat), zetadcn(max_ref, nat), zetadq(max_ref, nat), &
& zerovec(max_ref, nat), zerodcn(max_ref, nat), zerodq(max_ref, nat), &
& q(nat), c6(nat, nat), dc6dcn(nat, nat), dc6dq(nat, nat), &
& energies(nat), dEdcn(nat), source=0.0_wp)
call weight_references(dispm, nat, mol%at, g_a, g_c, wf, q, cn, zeff, gam, &
& zetavec, zerovec, zetadcn, zerodcn, zetadq)
call get_atomic_c6(dispm, nat, mol%at, zerovec, zerodcn, zerodq, &
& c6, dc6dcn, dc6dq)
call atm_gradient_neigh &
& (mol, neighs, neighlist, par, sqrtZr4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
call mctc_gemv(dcndr, dEdcn, gradient, beta=1.0_wp)
call mctc_gemv(dcndL, dEdcn, sigma, beta=1.0_wp)
energy = energy + sum(energies)
end subroutine d4_atm_gradient_neigh
subroutine atm_gradient_neigh &
& (mol, neighs, neighlist, par, r4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Neighbour list
type(TNeighbourList), intent(in) :: neighlist
!> Damping parameters
type(dftd_parameter), intent(in) :: par
integer, intent(in) :: neighs(:)
real(wp), intent(in) :: r4r2(:)
real(wp), intent(in) :: c6(:, :)
real(wp), intent(in) :: dc6dcn(:, :)
real(wp), intent(inout) :: energies(:)
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(inout) :: dEdcn(:)
integer :: iat, jat, kat, ati, atj, atk, jtr, ktr, ij, jk, ik
real(wp) :: rij(3), rjk(3), rik(3), r2ij, r2jk, r2ik
real(wp) :: c6ij, c6jk, c6ik, cij, cjk, cik, scale
real(wp) :: dE, dG(3, 3), dS(3, 3), dCN(3)
real(wp), parameter :: sr = 4.0_wp/3.0_wp
!$omp parallel do default(none) reduction(+:energies, gradient, sigma, dEdcn) &
!$omp shared(mol, neighs, neighlist, par, r4r2, c6, dc6dcn) &
!$omp private(iat, ati, ij, jtr, r2ij, rij, jat, atj, ik, ktr, kat, atk, rik, &
!$omp& r2ik, rjk, r2jk, c6ij, cij, c6ik, c6jk, cik, cjk, scale, dE, dG, dS, dCN)
do iat = 1, len(mol)
ati = mol%at(iat)
do ij = 1, neighs(iat)
jtr = neighlist%ineigh(ij, iat)
r2ij = neighlist%dist2(ij, iat)
rij = neighlist%coords(:, jtr) - neighlist%coords(:, iat)
jat = neighlist%image(jtr)
atj = mol%at(jat)
c6ij = c6(jat,iat)
cij = par%a1*sqrt(3.0_wp*r4r2(ati)*r4r2(atj))+par%a2
do ik = 1, ij-1
ktr = neighlist%ineigh(ik, iat)
rik = neighlist%coords(:, ktr) - neighlist%coords(:, iat)
r2ik = neighlist%dist2(ik, iat)
rjk = neighlist%coords(:, ktr) - neighlist%coords(:, jtr)
r2jk = sum(rjk**2)
kat = neighlist%image(ktr)
atk = mol%at(kat)
c6ik = c6(kat,iat)
c6jk = c6(kat,jat)
cik = par%a1*sqrt(3.0_wp*r4r2(ati)*r4r2(atk))+par%a2
cjk = par%a1*sqrt(3.0_wp*r4r2(atj)*r4r2(atk))+par%a2
call deriv_atm_triple(c6ij, c6ik, c6jk, cij, cjk, cik, &
& r2ij, r2jk, r2ik, dc6dcn(iat,jat), dc6dcn(jat,iat), &
& dc6dcn(jat,kat), dc6dcn(kat,jat), dc6dcn(iat,kat), &
& dc6dcn(kat,iat), rij, rjk, rik, par%alp, dE, dG, dS, dCN)
scale = par%s9 * triple_scale(iat, jat, kat)
energies(iat) = energies(iat) + dE * scale/3
energies(jat) = energies(jat) + dE * scale/3
energies(kat) = energies(kat) + dE * scale/3
gradient(:, iat) = gradient(:, iat) + dG(:, 1) * scale
gradient(:, jat) = gradient(:, jat) + dG(:, 2) * scale
gradient(:, kat) = gradient(:, kat) + dG(:, 3) * scale
sigma(:, :) = sigma + dS * scale
dEdcn(iat) = dEdcn(iat) + dCN(1) * scale
dEdcn(jat) = dEdcn(jat) + dCN(2) * scale
dEdcn(kat) = dEdcn(kat) + dCN(3) * scale
end do
end do
end do
!$omp end parallel do
end subroutine atm_gradient_neigh
!> Evaluate gradient of DFT-D4, this routine can handle systems of arbitrary
! periodicity due to the static neighbourlist.
subroutine d4_full_gradient_latp &
& (mol, dispm, trans, par, g_a, g_c, wf, cutoff, cutoff3, &
& cn, dcndr, dcndL, q, dqdr, dqdL, energy, gradient, sigma, e2, e3)
use xtb_type_molecule
use xtb_type_neighbourlist
use xtb_type_param
type(TDispersionModel), intent(in) :: dispm
!> Molecular Structure information.
type(TMolecule), intent(in) :: mol
!> Becke--Johnson damping parameters.
type(dftd_parameter), intent(in) :: par
!> Translation vectors
real(wp), intent(in) :: trans(:, :)
!> Charge scaling height.
real(wp), intent(in) :: g_a
!> Charge scaling steepness.
real(wp), intent(in) :: g_c
!> Exponent for the Gaussian weighting.
real(wp), intent(in) :: wf
!> Cutoff for pairwise interactions
real(wp), intent(in) :: cutoff
!> Cutoff for threebody interactions
real(wp), intent(in) :: cutoff3
!> Coordination number of every atom.
real(wp), intent(in) :: cn(:)
!> Derivative of CN w.r.t. atomic coordinates.
real(wp), intent(in) :: dcndr(:, :, :)
!> Derivative of CN w.r.t. strain deformations
real(wp), intent(in) :: dcndL(:, :, :)
!> Partial charge of every atom.
real(wp), intent(in) :: q(:)
!> Derivative of partial charges w.r.t. atomic coordinates.
real(wp), intent(in), optional :: dqdr(:, :, :)
!> Derivative of partial charges w.r.t. strain deformations
real(wp), intent(in), optional :: dqdL(:, :, :)
!> Dispersion energy.
real(wp), intent(inout) :: energy
!> Derivative of the dispersion energy w.r.t. atomic positions.
real(wp), intent(inout) :: gradient(:, :)
!> Stress tensor resulting from dispersion interactions.
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(out), optional :: e2
real(wp), intent(out), optional :: e3
integer :: nat, max_ref
real(wp), allocatable :: zetavec(:, :), zetadcn(:, :), zetadq(:, :)
real(wp), allocatable :: zerovec(:, :), zerodcn(:, :), zerodq(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :), dc6dq(:, :)
real(wp), allocatable :: energies(:), energies3(:), dEdcn(:), dEdq(:)
nat = len(mol)
max_ref = maxval(dispm%nref(mol%at))
allocate(zetavec(max_ref, nat), zetadcn(max_ref, nat), zetadq(max_ref, nat), &
& zerovec(max_ref, nat), zerodcn(max_ref, nat), zerodq(max_ref, nat), &
& c6(nat, nat), dc6dcn(nat, nat), dc6dq(nat, nat), &
& energies(nat), energies3(nat), dEdcn(nat), dEdq(nat), source=0.0_wp)
call weight_references(dispm, nat, mol%at, g_a, g_c, wf, q, cn, zeff, gam, &
& zetavec, zerovec, zetadcn, zerodcn, zetadq)
call get_atomic_c6(dispm, nat, mol%at, zetavec, zetadcn, zetadq, &
& c6, dc6dcn, dc6dq)
call disp_gradient_latp(mol, trans, cutoff, par, sqrtZr4r2, c6, dc6dcn, dc6dq, &
& energies, gradient, sigma, dEdcn, dEdq)
if (present(e2)) e2 = sum(energies)
if (par%s9 /= 0.0_wp) then
call get_atomic_c6(dispm, nat, mol%at, zerovec, zerodcn, zerodq, &
& c6, dc6dcn, dc6dq)
#ifdef XTB_GPU
call atm_gradient_latp_gpu(mol, trans, cutoff3, par, sqrtZr4r2, c6, dc6dcn, &
& energies3, gradient, sigma, dEdcn)
#else
call atm_gradient_latp(mol, trans, cutoff3, par, sqrtZr4r2, c6, dc6dcn, &
& energies3, gradient, sigma, dEdcn)
#endif
end if
if (present(e3)) e3 = sum(energies3)
call mctc_gemv(dcndr, dEdcn, gradient, beta=1.0_wp)
if (present(dqdr)) then
call mctc_gemv(dqdr, dEdq, gradient, beta=1.0_wp)
end if
call mctc_gemv(dcndL, dEdcn, sigma, beta=1.0_wp)
if (present(dqdL)) then
call mctc_gemv(dqdL, dEdq, sigma, beta=1.0_wp)
end if
energy = energy + sum(energies) + sum(energies3)
end subroutine d4_full_gradient_latp
!> Evaluate gradient of DFT-D4, this routine can handle systems of arbitrary
! periodicity due to the static neighbourlist.
subroutine d4_gradient_latp &
& (mol, dispm, trans, par, g_a, g_c, wf, cutoff, &
& cn, dcndr, dcndL, q, dqdr, dqdL, energy, gradient, sigma)
use xtb_type_molecule
use xtb_type_neighbourlist
use xtb_type_param
type(TDispersionModel), intent(in) :: dispm
!> Molecular Structure information.
type(TMolecule), intent(in) :: mol
!> Becke--Johnson damping parameters.
type(dftd_parameter), intent(in) :: par
!> Translation vectors
real(wp), intent(in) :: trans(:, :)
!> Charge scaling height.
real(wp), intent(in) :: g_a
!> Charge scaling steepness.
real(wp), intent(in) :: g_c
!> Exponent for the Gaussian weighting.
real(wp), intent(in) :: wf
!> Cutoff for pairwise interactions
real(wp), intent(in) :: cutoff
!> Coordination number of every atom.
real(wp), intent(in) :: cn(:)
!> Derivative of CN w.r.t. atomic coordinates.
real(wp), intent(in) :: dcndr(:, :, :)
!> Derivative of CN w.r.t. strain deformations
real(wp), intent(in) :: dcndL(:, :, :)
!> Partial charge of every atom.
real(wp), intent(in) :: q(:)
!> Derivative of partial charges w.r.t. atomic coordinates.
real(wp), intent(in), optional :: dqdr(:, :, :)
!> Derivative of partial charges w.r.t. strain deformations
real(wp), intent(in), optional :: dqdL(:, :, :)
!> Dispersion energy.
real(wp), intent(inout) :: energy
!> Derivative of the dispersion energy w.r.t. atomic positions.
real(wp), intent(inout) :: gradient(:, :)
!> Stress tensor resulting from dispersion interactions.
real(wp), intent(inout) :: sigma(:, :)
integer :: nat, max_ref
real(wp), allocatable :: zetavec(:, :), zetadcn(:, :), zetadq(:, :)
real(wp), allocatable :: zerovec(:, :), zerodcn(:, :), zerodq(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :), dc6dq(:, :)
real(wp), allocatable :: energies(:), energies3(:), dEdcn(:), dEdq(:)
nat = len(mol)
max_ref = maxval(dispm%nref(mol%at))
allocate(zetavec(max_ref, nat), zetadcn(max_ref, nat), zetadq(max_ref, nat), &
& zerovec(max_ref, nat), zerodcn(max_ref, nat), zerodq(max_ref, nat), &
& c6(nat, nat), dc6dcn(nat, nat), dc6dq(nat, nat), &
& energies(nat), dEdcn(nat), dEdq(nat), source=0.0_wp)
call weight_references(dispm, nat, mol%at, g_a, g_c, wf, q, cn, zeff, gam, &
& zetavec, zerovec, zetadcn, zerodcn, zetadq)
call get_atomic_c6(dispm, nat, mol%at, zetavec, zetadcn, zetadq, &
& c6, dc6dcn, dc6dq)
call disp_gradient_latp(mol, trans, cutoff, par, sqrtZr4r2, c6, dc6dcn, dc6dq, &
& energies, gradient, sigma, dEdcn, dEdq)
call mctc_gemv(dcndr, dEdcn, gradient, beta=1.0_wp)
if (present(dqdr)) then
call mctc_gemv(dqdr, dEdq, gradient, beta=1.0_wp)
end if
call mctc_gemv(dcndL, dEdcn, sigma, beta=1.0_wp)
if (present(dqdL)) then
call mctc_gemv(dqdL, dEdq, sigma, beta=1.0_wp)
end if
energy = energy + sum(energies)
end subroutine d4_gradient_latp
subroutine disp_gradient_latp &
& (mol, trans, cutoff, par, r4r2, c6, dc6dcn, dc6dq, &
& energies, gradient, sigma, dEdcn, dEdq)
!> Molecular Structure information.
type(TMolecule), intent(in) :: mol
!> Becke--Johnson damping parameters.
type(dftd_parameter), intent(in) :: par
real(wp), intent(in) :: r4r2(:)
!> Translation vectors
real(wp), intent(in) :: trans(:, :)
!> Cutoff for pairwise interactions
real(wp), intent(in) :: cutoff
real(wp), intent(in) :: c6(:, :)
real(wp), intent(in) :: dc6dcn(:, :)
real(wp), intent(in) :: dc6dq(:, :)
!> Dispersion energy.
real(wp), intent(inout) :: energies(:)
!> Derivative of the dispersion energy w.r.t. atomic positions.
real(wp), intent(inout) :: gradient(:, :)
!> Stress tensor resulting from dispersion interactions.
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(inout) :: dEdcn(:)
real(wp), intent(inout) :: dEdq(:)
integer :: iat, jat, ati, atj, itr
real(wp) :: cutoff2
real(wp) :: r4r2ij, r0, rij(3), r2, t6, t8, t10, d6, d8, d10
real(wp) :: dE, dG(3), dS(3, 3), disp, ddisp
cutoff2 = cutoff**2
!$omp parallel do default(none) &
!$omp reduction(+:energies, gradient, sigma, dEdcn, dEdq) &
!$omp shared(mol, trans, cutoff2, par, r4r2, c6, dc6dcn, dc6dq) &
!$omp private(iat, jat, itr, ati, atj, r2, rij, r4r2ij, r0, t6, t8, t10, &
!$omp& d6, d8, d10, disp, ddisp, dE, dG, dS)
do iat = 1, len(mol)
ati = mol%at(iat)
do jat = 1, iat
atj = mol%at(jat)
r4r2ij = 3*r4r2(ati)*r4r2(atj)
r0 = par%a1*sqrt(r4r2ij) + par%a2
do itr = 1, size(trans, dim=2)
rij = mol%xyz(:, iat) - mol%xyz(:, jat) - trans(:, itr)
r2 = sum(rij**2)
if (r2 > cutoff2 .or. r2 < 1.0e-10_wp) cycle
t6 = 1._wp/(r2**3+r0**6)
t8 = 1._wp/(r2**4+r0**8)
t10 = 1._wp/(r2**5+r0**10)
d6 = -6*r2**2*t6**2
d8 = -8*r2**3*t8**2
d10 = -10*r2**4*t10**2
disp = par%s6*t6 + par%s8*r4r2ij*t8 &
& + par%s10*49.0_wp/40.0_wp*r4r2ij**2*t10
ddisp= par%s6*d6 + par%s8*r4r2ij*d8 &
& + par%s10*49.0_wp/40.0_wp*r4r2ij**2*d10
dE = -c6(iat, jat)*disp * 0.5_wp
dG = -c6(iat, jat)*ddisp*rij
dS = spread(dG, 1, 3) * spread(rij, 2, 3) * 0.5_wp
energies(iat) = energies(iat) + dE
dEdcn(iat) = dEdcn(iat) - dc6dcn(iat, jat) * disp
dEdq(iat) = dEdq(iat) - dc6dq(iat, jat) * disp
sigma = sigma + dS
if (iat /= jat) then
energies(jat) = energies(jat) + dE
dEdcn(jat) = dEdcn(jat) - dc6dcn(jat, iat) * disp
dEdq(jat) = dEdq(jat) - dc6dq(jat, iat) * disp
gradient(:, iat) = gradient(:, iat) + dG
gradient(:, jat) = gradient(:, jat) - dG
sigma = sigma + dS
end if
end do
end do
end do
!$omp end parallel do
end subroutine disp_gradient_latp
!> Evaluate gradient of DFT-D4, this routine can handle systems of arbitrary
! periodicity due to the static neighbourlist.
subroutine d4_atm_gradient_latp &
& (mol, dispm, trans, par, g_a, g_c, wf, cutoff, cn, dcndr, dcndL, &
& energy, gradient, sigma)
use xtb_type_molecule
use xtb_type_neighbourlist
use xtb_type_param
type(TDispersionModel), intent(in) :: dispm
!> Molecular Structure information.
type(TMolecule), intent(in) :: mol
!> Becke--Johnson damping parameters.
type(dftd_parameter), intent(in) :: par
!> Translation vectors
real(wp), intent(in) :: trans(:, :)
!> Charge scaling height.
real(wp), intent(in) :: g_a
!> Charge scaling steepness.
real(wp), intent(in) :: g_c
!> Exponent for the Gaussian weighting.
real(wp), intent(in) :: wf
!> Cutoff for pairwise interactions
real(wp), intent(in) :: cutoff
!> Coordination number of every atom.
real(wp), intent(in) :: cn(:)
!> Derivative of CN w.r.t. atomic coordinates.
real(wp), intent(in) :: dcndr(:, :, :)
!> Derivative of CN w.r.t. strain deformations
real(wp), intent(in) :: dcndL(:, :, :)
!> Dispersion energy.
real(wp), intent(inout) :: energy
!> Derivative of the dispersion energy w.r.t. atomic positions.
real(wp), intent(inout) :: gradient(:, :)
!> Stress tensor resulting from dispersion interactions.
real(wp), intent(inout) :: sigma(:, :)
integer :: nat, max_ref
real(wp), allocatable :: q(:)
real(wp), allocatable :: zetavec(:, :), zetadcn(:, :), zetadq(:, :)
real(wp), allocatable :: zerovec(:, :), zerodcn(:, :), zerodq(:, :)
real(wp), allocatable :: c6(:, :), dc6dcn(:, :), dc6dq(:, :)
real(wp), allocatable :: energies(:), energies3(:), dEdcn(:), dEdq(:)
nat = len(mol)
max_ref = maxval(dispm%nref(mol%at))
allocate(zetavec(max_ref, nat), zetadcn(max_ref, nat), zetadq(max_ref, nat), &
& zerovec(max_ref, nat), zerodcn(max_ref, nat), zerodq(max_ref, nat), &
& q(nat), c6(nat, nat), dc6dcn(nat, nat), dc6dq(nat, nat), &
& energies(nat), dEdcn(nat), source=0.0_wp)
call weight_references(dispm, nat, mol%at, g_a, g_c, wf, q, cn, zeff, gam, &
& zetavec, zerovec, zetadcn, zerodcn, zetadq)
call get_atomic_c6(dispm, nat, mol%at, zerovec, zerodcn, zerodq, &
& c6, dc6dcn, dc6dq)
#ifdef XTB_GPU
call atm_gradient_latp_gpu &
& (mol, trans, cutoff, par, sqrtZr4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
#else
call atm_gradient_latp &
& (mol, trans, cutoff, par, sqrtZr4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
#endif
call mctc_gemv(dcndr, dEdcn, gradient, beta=1.0_wp)
call mctc_gemv(dcndL, dEdcn, sigma, beta=1.0_wp)
energy = energy + sum(energies)
end subroutine d4_atm_gradient_latp
subroutine atm_gradient_latp &
& (mol, trans, cutoff, par, r4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Damping parameters
type(dftd_parameter), intent(in) :: par
real(wp), intent(in) :: trans(:, :)
real(wp), intent(in) :: r4r2(:)
real(wp), intent(in) :: cutoff
real(wp), intent(in) :: c6(:, :)
real(wp), intent(in) :: dc6dcn(:, :)
real(wp), intent(inout) :: energies(:)
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(inout) :: dEdcn(:)
integer :: iat, jat, kat, ati, atj, atk, jtr, ktr
real(wp) :: cutoff2
real(wp) :: rij(3), rjk(3), rik(3), r2ij, r2jk, r2ik
real(wp) :: c6ij, c6jk, c6ik, cij, cjk, cik, scale
real(wp) :: dE, dG(3, 3), dS(3, 3), dCN(3)
real(wp), parameter :: sr = 4.0_wp/3.0_wp
cutoff2 = cutoff**2
!$omp parallel do default(none) reduction(+:energies, gradient, sigma, dEdcn) &
!$omp shared(mol, r4r2, par, trans, cutoff2, c6, dc6dcn) &
!$omp private(iat, ati, jat, atj, kat, atk, c6ij, cij, c6ik, c6jk, cik, cjk, &
!$omp& rij, r2ij, ktr, rik, r2ik, rjk, r2jk, scale, dE, dG, dS, dCN)
do iat = 1, len(mol)
ati = mol%at(iat)
do jat = 1, iat
atj = mol%at(jat)
c6ij = c6(jat,iat)
cij = par%a1*sqrt(3.0_wp*r4r2(ati)*r4r2(atj))+par%a2
do kat = 1, jat
atk = mol%at(kat)
c6ik = c6(kat,iat)
c6jk = c6(kat,jat)
cik = par%a1*sqrt(3.0_wp*r4r2(ati)*r4r2(atk))+par%a2
cjk = par%a1*sqrt(3.0_wp*r4r2(atj)*r4r2(atk))+par%a2
do jtr = 1, size(trans, dim=2)
rij = mol%xyz(:, jat) - mol%xyz(:, iat) + trans(:, jtr)
r2ij = sum(rij**2)
if (r2ij > cutoff2 .or. r2ij < 1.0e-14_wp) cycle
do ktr = 1, size(trans, dim=2)
if (jat == kat .and. jtr == ktr) cycle
rik = mol%xyz(:, kat) - mol%xyz(:, iat) + trans(:, ktr)
r2ik = sum(rik**2)
if (r2ik > cutoff2 .or. r2ik < 1.0e-14_wp) cycle
rjk = mol%xyz(:, kat) - mol%xyz(:, jat) + trans(:, ktr) &
& - trans(:, jtr)
r2jk = sum(rjk**2)
if (r2jk > cutoff2 .or. r2jk < 1.0e-14_wp) cycle
call deriv_atm_triple(c6ij, c6ik, c6jk, cij, cjk, cik, &
& r2ij, r2jk, r2ik, dc6dcn(iat,jat), dc6dcn(jat,iat), &
& dc6dcn(jat,kat), dc6dcn(kat,jat), dc6dcn(iat,kat), &
& dc6dcn(kat,iat), rij, rjk, rik, par%alp, dE, dG, dS, dCN)
scale = par%s9 * triple_scale(iat, jat, kat)
energies(iat) = energies(iat) + dE * scale/3
energies(jat) = energies(jat) + dE * scale/3
energies(kat) = energies(kat) + dE * scale/3
gradient(:, iat) = gradient(:, iat) + dG(:, 1) * scale
gradient(:, jat) = gradient(:, jat) + dG(:, 2) * scale
gradient(:, kat) = gradient(:, kat) + dG(:, 3) * scale
sigma(:, :) = sigma + dS * scale
dEdcn(iat) = dEdcn(iat) + dCN(1) * scale
dEdcn(jat) = dEdcn(jat) + dCN(2) * scale
dEdcn(kat) = dEdcn(kat) + dCN(3) * scale
end do
end do
end do
end do
end do
!$omp end parallel do
end subroutine atm_gradient_latp
subroutine atm_gradient_latp_gpu &
& (mol, trans, cutoff, par, r4r2, c6, dc6dcn, &
& energies, gradient, sigma, dEdcn)
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Damping parameters
type(dftd_parameter), intent(in) :: par
real(wp), intent(in) :: trans(:, :)
real(wp), intent(in) :: r4r2(:)
real(wp), intent(in) :: cutoff
real(wp), intent(in) :: c6(:, :)
real(wp), intent(in) :: dc6dcn(:, :)
real(wp), intent(inout) :: energies(:)
real(wp), intent(inout) :: gradient(:, :)
real(wp), intent(inout) :: sigma(:, :)
real(wp), intent(inout) :: dEdcn(:)
integer :: iat, jat, kat, ati, atj, atk, jtr, ktr
real(wp) :: cutoff2
real(wp) :: rij(3), rjk(3), rik(3), r2ij, r2jk, r2ik
real(wp) :: c6ij, c6jk, c6ik, cij, cjk, cik, scale
real(wp) :: dE, dG(3, 3), dS(3, 3), dCN(3)
real(wp), parameter :: sr = 4.0_wp/3.0_wp
integer :: mlen, k, kk
real(wp) :: c9, dc9, ccc1, rrr1, rrr2, rrr3, ang, dang, fdmp, dfdmp, dGr, cr
cutoff2 = cutoff**2
mlen = len(mol)
!$acc enter data copyin(par,trans,r4r2,c6,dc6dcn,energies,gradient,sigma,dEdcn, &
!$acc& mol,mol%at,mol%xyz)
!$acc parallel default(present) private(rij,rjk,rik,dG,dS,dCN)
!$acc loop gang collapse(3)
do iat = 1, mlen
do jat = 1, mlen
do kat = 1, mlen
if (jat.gt.iat) cycle
if (kat.gt.jat) cycle
ati = mol%at(iat)
atj = mol%at(jat)
c6ij = c6(jat,iat)
cij = par%a1*sqrt(3.0_wp*r4r2(ati)*r4r2(atj))+par%a2
atk = mol%at(kat)
c6ik = c6(kat,iat)
c6jk = c6(kat,jat)
cik = par%a1*sqrt(3.0_wp*r4r2(ati)*r4r2(atk))+par%a2
cjk = par%a1*sqrt(3.0_wp*r4r2(atj)*r4r2(atk))+par%a2
do jtr = 1, size(trans, dim=2)
rij = mol%xyz(:, jat) - mol%xyz(:, iat) + trans(:, jtr)
r2ij = sum(rij**2)
if (r2ij > cutoff2 .or. r2ij < 1.0e-14_wp) cycle
do ktr = 1, size(trans, dim=2)
if (jat == kat .and. jtr == ktr) cycle
rik = mol%xyz(:, kat) - mol%xyz(:, iat) + trans(:, ktr)
r2ik = sum(rik**2)
if (r2ik > cutoff2 .or. r2ik < 1.0e-14_wp) cycle
rjk = mol%xyz(:, kat) - mol%xyz(:, jat) + trans(:, ktr) &
& - trans(:, jtr)
r2jk = sum(rjk**2)
if (r2jk > cutoff2 .or. r2jk < 1.0e-14_wp) cycle
call deriv_atm_triple(c6ij, c6ik, c6jk, cij, cjk, cik, &
& r2ij, r2jk, r2ik, dc6dcn(iat,jat), dc6dcn(jat,iat), &
& dc6dcn(jat,kat), dc6dcn(kat,jat), dc6dcn(iat,kat), &
& dc6dcn(kat,iat), rij, rjk, rik, par%alp, dE, dG, dS, dCN)
!c9 = -sqrt(c6ij*c6ik*c6jk)
!ccc1 = cij*cjk*cik
!rrr2 = r2ij*r2jk*r2ik
!rrr1 = sqrt(rrr2)
!rrr3 = rrr1*rrr2
!ang = 0.375_wp * (r2ij+r2jk-r2ik)*(r2ij-r2jk+r2ik)*(-r2ij+r2jk+r2ik) &
! & / (rrr3*rrr2) + 1.0_wp/(rrr3)
!cr = (ccc1/rrr1)**(1.0_wp/3.0_wp)
!fdmp = 1.0_wp/(1.0_wp + 6.0_wp*cr**par%alp)
!dfdmp = -(2.0_wp*par%alp*cr**par%alp) * fdmp**2
!! Energy contribution
!dE = -fdmp*ang*c9
!! Derivative w.r.t. i-j distance
!dang = -0.375_wp*(r2ij**3+r2ij**2*(r2jk+r2ik) &
! & +r2ij*(3.0_wp*r2jk**2+2.0_wp*r2jk*r2ik+3.0_wp*r2ik**2) &
! & -5.0_wp*(r2jk-r2ik)**2*(r2jk+r2ik)) / (rrr3*rrr2)
!dGr = (-dang*c9*fdmp + dfdmp*c9*ang)/r2ij
!dG(:, 1) = -dGr * rij
!dG(:, 2) = +dGr * rij
!dS(:, :) = 0.5_wp * dGr * spread(rij, 1, 3) * spread(rij, 2, 3)
!! Derivative w.r.t. i-k distance
!dang = -0.375_wp*(r2ik**3+r2ik**2*(r2jk+r2ij) &
! & +r2ik*(3.0_wp*r2jk**2+2.0*r2jk*r2ij+3.0_wp*r2ij**2) &
! & -5.0_wp*(r2jk-r2ij)**2*(r2jk+r2ij)) / (rrr3*rrr2)
!dGr = (-dang*c9*fdmp + dfdmp*c9*ang)/r2ik
!dG(:, 1) = -dGr * rik + dG(:, 1)
!dG(:, 3) = +dGr * rik
!dS(:, :) = 0.5_wp * dGr * spread(rik, 1, 3) * spread(rik, 2, 3) + dS
!! Derivative w.r.t. j-k distance
!dang=-0.375_wp*(r2jk**3+r2jk**2*(r2ik+r2ij) &
! & +r2jk*(3.0_wp*r2ik**2+2.0_wp*r2ik*r2ij+3.0_wp*r2ij**2) &
! & -5.0_wp*(r2ik-r2ij)**2*(r2ik+r2ij)) / (rrr3*rrr2)
!dGr = (-dang*c9*fdmp + dfdmp*c9*ang)/r2jk
!dG(:, 2) = -dGr * rjk + dG(:, 2)
!dG(:, 3) = +dGr * rjk + dG(:, 3)
!dS(:, :) = 0.5_wp * dGr * spread(rjk, 1, 3) * spread(rjk, 2, 3) + dS
!! CN derivative
!dc9 = 0.5_wp*c9*(dc6dcn(iat,jat)/c6ij+dc6dcn(iat,kat)/c6ik)
!dCN(1) = -ang*fdmp*dc9
!dc9 = 0.5_wp*c9*(dc6dcn(jat,iat)/c6ij+dc6dcn(jat,kat)/c6jk)
!dCN(2) = -ang*fdmp*dc9
!dc9 = 0.5_wp*c9*(dc6dcn(kat,iat)/c6ik+dc6dcn(kat,jat)/c6jk)
!dCN(3) = -ang*fdmp*dc9
scale = par%s9 * triple_scale(iat, jat, kat)
!$acc atomic
energies(iat) = energies(iat) + dE * scale/3
!$acc atomic
energies(jat) = energies(jat) + dE * scale/3
!$acc atomic
energies(kat) = energies(kat) + dE * scale/3
do k = 1,3
!$acc atomic
gradient(k, iat) = gradient(k, iat) + dG(k, 1) * scale
!$acc atomic
gradient(k, jat) = gradient(k, jat) + dG(k, 2) * scale
!$acc atomic
gradient(k, kat) = gradient(k, kat) + dG(k, 3) * scale
enddo
do k = 1,3
do kk = 1,3
!$acc atomic
sigma(kk, k) = sigma(kk, k) + dS(kk, k) * scale
enddo
enddo
!$acc atomic
dEdcn(iat) = dEdcn(iat) + dCN(1) * scale
!$acc atomic
dEdcn(jat) = dEdcn(jat) + dCN(2) * scale
!$acc atomic
dEdcn(kat) = dEdcn(kat) + dCN(3) * scale
end do
end do
end do
end do
end do
!$acc end parallel
!$acc exit data copyout(energies,gradient,sigma,dEdcn)
!$acc exit data delete(par,trans,r4r2,c6,dc6dcn,mol,mol%at,mol%xyz)
end subroutine atm_gradient_latp_gpu
pure subroutine deriv_atm_triple(c6ij, c6ik, c6jk, cij, cjk, cik, &
& r2ij, r2jk, r2ik, dc6ij, dc6ji, dc6jk, dc6kj, dc6ik, dc6ki, &
& rij, rjk, rik, alp, dE, dG, dS, dCN)
!$acc routine vector
real(wp), intent(in) :: c6ij, c6ik, c6jk
real(wp), intent(in) :: cij, cjk, cik
real(wp), intent(in) :: r2ij, r2jk, r2ik
real(wp), intent(in) :: dc6ij, dc6ji, dc6jk, dc6kj, dc6ik, dc6ki
real(wp), intent(in) :: rij(3), rjk(3), rik(3)
integer, intent(in) :: alp
real(wp), intent(out) :: dE, dG(3, 3), dS(3, 3), dCN(3)
real(wp) :: c9, dc9, ccc1, rrr1, rrr2, rrr3, ang, dang, fdmp, dfdmp, dGr, cr
c9 = -sqrt(c6ij*c6ik*c6jk)
ccc1 = cij*cjk*cik
rrr2 = r2ij*r2jk*r2ik
rrr1 = sqrt(rrr2)
rrr3 = rrr1*rrr2
ang = 0.375_wp * (r2ij+r2jk-r2ik)*(r2ij-r2jk+r2ik)*(-r2ij+r2jk+r2ik) &
& / (rrr3*rrr2) + 1.0_wp/(rrr3)
cr = (ccc1/rrr1)**(1.0_wp/3.0_wp)
fdmp = 1.0_wp/(1.0_wp + 6.0_wp*cr**alp)
dfdmp = -(2.0_wp*alp*cr**alp) * fdmp**2
! Energy contribution
dE = -fdmp*ang*c9
! Derivative w.r.t. i-j distance
dang = -0.375_wp*(r2ij**3+r2ij**2*(r2jk+r2ik) &
& +r2ij*(3.0_wp*r2jk**2+2.0_wp*r2jk*r2ik+3.0_wp*r2ik**2) &
& -5.0_wp*(r2jk-r2ik)**2*(r2jk+r2ik)) / (rrr3*rrr2)
dGr = (-dang*c9*fdmp + dfdmp*c9*ang)/r2ij
dG(:, 1) = -dGr * rij
dG(:, 2) = +dGr * rij
dS(:, :) = 0.5_wp * dGr * spread(rij, 1, 3) * spread(rij, 2, 3)
! Derivative w.r.t. i-k distance
dang = -0.375_wp*(r2ik**3+r2ik**2*(r2jk+r2ij) &
& +r2ik*(3.0_wp*r2jk**2+2.0*r2jk*r2ij+3.0_wp*r2ij**2) &
& -5.0_wp*(r2jk-r2ij)**2*(r2jk+r2ij)) / (rrr3*rrr2)
dGr = (-dang*c9*fdmp + dfdmp*c9*ang)/r2ik
dG(:, 1) = -dGr * rik + dG(:, 1)
dG(:, 3) = +dGr * rik
dS(:, :) = 0.5_wp * dGr * spread(rik, 1, 3) * spread(rik, 2, 3) + dS
! Derivative w.r.t. j-k distance
dang=-0.375_wp*(r2jk**3+r2jk**2*(r2ik+r2ij) &
& +r2jk*(3.0_wp*r2ik**2+2.0_wp*r2ik*r2ij+3.0_wp*r2ij**2) &
& -5.0_wp*(r2ik-r2ij)**2*(r2ik+r2ij)) / (rrr3*rrr2)
dGr = (-dang*c9*fdmp + dfdmp*c9*ang)/r2jk
dG(:, 2) = -dGr * rjk + dG(:, 2)
dG(:, 3) = +dGr * rjk + dG(:, 3)
dS(:, :) = 0.5_wp * dGr * spread(rjk, 1, 3) * spread(rjk, 2, 3) + dS
! CN derivative
dc9 = 0.5_wp*c9*(dc6ij/c6ij+dc6ik/c6ik)
dCN(1) = -ang*fdmp*dc9
dc9 = 0.5_wp*c9*(dc6ji/c6ij+dc6jk/c6jk)
dCN(2) = -ang*fdmp*dc9
dc9 = 0.5_wp*c9*(dc6ki/c6ik+dc6kj/c6jk)
dCN(3) = -ang*fdmp*dc9
end subroutine deriv_atm_triple
!> Logic exercise to distribute a triple energy to atomwise energies.
elemental function triple_scale(ii, jj, kk) result(scale)
!$acc routine seq
!> Atom indices
integer, intent(in) :: ii, jj, kk
!> Fraction of energy
real(wp) :: scale
if (ii == jj) then
if (ii == kk) then
! ii'i" -> 1/6
scale = 1.0_wp/6.0_wp
else
! ii'j -> 1/2
scale = 0.5_wp
end if
else
if (ii /= kk .and. jj /= kk) then
! ijk -> 1 (full)
scale = 1.0_wp
else
! ijj' and iji' -> 1/2
scale = 0.5_wp
end if
end if
end function triple_scale
end module xtb_disp_dftd4
xtb-6.7.1/src/disp/dftd4_parameters.f90 0000664 0000000 0000000 00000006034 14650006642 0017626 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2019 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_disp_dftd4param
use xtb_mctc_accuracy, only : wp
use xtb_mctc_constants, only : pi
implicit none
public
real(wp) :: thopi,ootpi
parameter ( thopi = 3._wp/pi )
parameter ( ootpi = 0.5_wp/pi )
integer, parameter :: p_refq_gfn2xtb = 0
integer, parameter :: p_refq_gasteiger = 1
integer, parameter :: p_refq_hirshfeld = 2
integer, parameter :: p_refq_periodic = 3
integer, parameter :: p_refq_gfn2xtb_gbsa_h2o = 4
integer, parameter :: p_refq_goedecker = 5
integer, parameter :: p_mbd_none = 0
integer, parameter :: p_mbd_rpalike = 1
integer, parameter :: p_mbd_exact_atm = 2
integer, parameter :: p_mbd_approx_atm = 3
integer, private, parameter :: max_elem = 118
real(wp), parameter :: zeff(max_elem) = [ &
& 1, 2, & ! H-He
& 3, 4, 5, 6, 7, 8, 9,10, & ! Li-Ne
& 11,12, 13,14,15,16,17,18, & ! Na-Ar
& 19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36, & ! K-Kr
& 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26, & ! Rb-Xe
& 9,10,11,30,31,32,33,34,35,36,37,38,39,40,41,42,43, & ! Cs-Lu
& 12,13,14,15,16,17,18,19,20,21,22,23,24,25,26, & ! Hf-Rn
! just copy & paste from above
& 9,10,11,30,31,32,33,34,35,36,37,38,39,40,41,42,43, & ! Fr-Lr
& 12,13,14,15,16,17,18,19,20,21,22,23,24,25,26 ] ! Rf-Og
integer, dimension(max_elem) :: refn ! for D4
real(wp),dimension(7,max_elem) :: refq
real(wp),dimension(7,max_elem) :: refh
real(wp),dimension(7,max_elem) :: dftq,pbcq,gffq,solq,clsq
real(wp),dimension(7,max_elem) :: dfth,pbch,gffh,solh,clsh
real(wp),dimension(7,max_elem) :: hcount
real(wp),dimension(7,max_elem) :: ascale
real(wp),dimension(7,max_elem) :: refcovcn
real(wp),dimension(7,max_elem) :: refcn
integer, dimension(7,max_elem) :: refsys
real(wp),dimension(23,7,max_elem) :: alphaiw
real(wp),dimension(17) :: secq
real(wp),dimension(17) :: dfts,pbcs,gffs,sols,clss
real(wp),dimension(17) :: sscale
real(wp),dimension(17) :: seccn
real(wp),dimension(17) :: seccnd3
real(wp),dimension(23,17) :: secaiw
include 'param_ref.fh'
end module xtb_disp_dftd4param
xtb-6.7.1/src/disp/encharges.f90 0000664 0000000 0000000 00000023117 14650006642 0016336 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2019-2020 Sebastian Ehlert
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!> Convenience wrapper for charge equilibration model
module xtb_disp_encharges
use xtb_mctc_accuracy, only : wp
use xtb_coulomb_gaussian, only : TGaussianSmeared, init
use xtb_type_environment, only : TEnvironment
use xtb_type_molecule, only : TMolecule
use xtb_xtb_eeq, only : TENEquilibration, init
implicit none
private
public :: getENCharges
interface getENCharges
module procedure :: getENChargesWrap
end interface getENCharges
integer, parameter :: maxElem = 86
!> Electronegativity of each species
real(wp), parameter :: chi(1, maxElem) = reshape([ &
& 1.23695041_wp, 1.26590957_wp, 0.54341808_wp, 0.99666991_wp, 1.26691604_wp,&
& 1.40028282_wp, 1.55819364_wp, 1.56866440_wp, 1.57540015_wp, 1.15056627_wp,&
& 0.55936220_wp, 0.72373742_wp, 1.12910844_wp, 1.12306840_wp, 1.52672442_wp,&
& 1.40768172_wp, 1.48154584_wp, 1.31062963_wp, 0.40374140_wp, 0.75442607_wp,&
& 0.76482096_wp, 0.98457281_wp, 0.96702598_wp, 1.05266584_wp, 0.93274875_wp,&
& 1.04025281_wp, 0.92738624_wp, 1.07419210_wp, 1.07900668_wp, 1.04712861_wp,&
& 1.15018618_wp, 1.15388455_wp, 1.36313743_wp, 1.36485106_wp, 1.39801837_wp,&
& 1.18695346_wp, 0.36273870_wp, 0.58797255_wp, 0.71961946_wp, 0.96158233_wp,&
& 0.89585296_wp, 0.81360499_wp, 1.00794665_wp, 0.92613682_wp, 1.09152285_wp,&
& 1.14907070_wp, 1.13508911_wp, 1.08853785_wp, 1.11005982_wp, 1.12452195_wp,&
& 1.21642129_wp, 1.36507125_wp, 1.40340000_wp, 1.16653482_wp, 0.34125098_wp,&
& 0.58884173_wp, 0.68441115_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp,&
& 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp,&
& 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp, 0.56999999_wp,&
& 0.56999999_wp, 0.87936784_wp, 1.02761808_wp, 0.93297476_wp, 1.10172128_wp,&
& 0.97350071_wp, 1.16695666_wp, 1.23997927_wp, 1.18464453_wp, 1.14191734_wp,&
& 1.12334192_wp, 1.01485321_wp, 1.12950808_wp, 1.30804834_wp, 1.33689961_wp,&
& 1.27465977_wp], shape(chi))
!> Chemical hardness of each species
real(wp),parameter :: gam(1, maxElem) = reshape([ &
&-0.35015861_wp, 1.04121227_wp, 0.09281243_wp, 0.09412380_wp, 0.26629137_wp,&
& 0.19408787_wp, 0.05317918_wp, 0.03151644_wp, 0.32275132_wp, 1.30996037_wp,&
& 0.24206510_wp, 0.04147733_wp, 0.11634126_wp, 0.13155266_wp, 0.15350650_wp,&
& 0.15250997_wp, 0.17523529_wp, 0.28774450_wp, 0.42937314_wp, 0.01896455_wp,&
& 0.07179178_wp,-0.01121381_wp,-0.03093370_wp, 0.02716319_wp,-0.01843812_wp,&
&-0.15270393_wp,-0.09192645_wp,-0.13418723_wp,-0.09861139_wp, 0.18338109_wp,&
& 0.08299615_wp, 0.11370033_wp, 0.19005278_wp, 0.10980677_wp, 0.12327841_wp,&
& 0.25345554_wp, 0.58615231_wp, 0.16093861_wp, 0.04548530_wp,-0.02478645_wp,&
& 0.01909943_wp, 0.01402541_wp,-0.03595279_wp, 0.01137752_wp,-0.03697213_wp,&
& 0.08009416_wp, 0.02274892_wp, 0.12801822_wp,-0.02078702_wp, 0.05284319_wp,&
& 0.07581190_wp, 0.09663758_wp, 0.09547417_wp, 0.07803344_wp, 0.64913257_wp,&
& 0.15348654_wp, 0.05054344_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp,&
& 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp,&
& 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp, 0.11000000_wp,&
& 0.11000000_wp,-0.02786741_wp, 0.01057858_wp,-0.03892226_wp,-0.04574364_wp,&
&-0.03874080_wp,-0.03782372_wp,-0.07046855_wp, 0.09546597_wp, 0.21953269_wp,&
& 0.02522348_wp, 0.15263050_wp, 0.08042611_wp, 0.01878626_wp, 0.08715453_wp,&
& 0.10500484_wp], shape(gam))
!> Coordination number dependence of each species
real(wp),parameter :: kcn(1, maxElem) = reshape([ &
& 0.04916110_wp, 0.10937243_wp,-0.12349591_wp,-0.02665108_wp,-0.02631658_wp,&
& 0.06005196_wp, 0.09279548_wp, 0.11689703_wp, 0.15704746_wp, 0.07987901_wp,&
&-0.10002962_wp,-0.07712863_wp,-0.02170561_wp,-0.04964052_wp, 0.14250599_wp,&
& 0.07126660_wp, 0.13682750_wp, 0.14877121_wp,-0.10219289_wp,-0.08979338_wp,&
&-0.08273597_wp,-0.01754829_wp,-0.02765460_wp,-0.02558926_wp,-0.08010286_wp,&
&-0.04163215_wp,-0.09369631_wp,-0.03774117_wp,-0.05759708_wp, 0.02431998_wp,&
&-0.01056270_wp,-0.02692862_wp, 0.07657769_wp, 0.06561608_wp, 0.08006749_wp,&
& 0.14139200_wp,-0.05351029_wp,-0.06701705_wp,-0.07377246_wp,-0.02927768_wp,&
&-0.03867291_wp,-0.06929825_wp,-0.04485293_wp,-0.04800824_wp,-0.01484022_wp,&
& 0.07917502_wp, 0.06619243_wp, 0.02434095_wp,-0.01505548_wp,-0.03030768_wp,&
& 0.01418235_wp, 0.08953411_wp, 0.08967527_wp, 0.07277771_wp,-0.02129476_wp,&
&-0.06188828_wp,-0.06568203_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,&
&-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,&
&-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,-0.11000000_wp,&
&-0.11000000_wp,-0.03585873_wp,-0.03132400_wp,-0.05902379_wp,-0.02827592_wp,&
&-0.07606260_wp,-0.02123839_wp, 0.03814822_wp, 0.02146834_wp, 0.01580538_wp,&
&-0.00894298_wp,-0.05864876_wp,-0.01817842_wp, 0.07721851_wp, 0.07936083_wp,&
& 0.05849285_wp ], shape(kcn))
!> Extension of the charge distribution for each species
real(wp),parameter :: alp(1, maxElem) = reshape([ &
& 0.55159092_wp, 0.66205886_wp, 0.90529132_wp, 1.51710827_wp, 2.86070364_wp,&
& 1.88862966_wp, 1.32250290_wp, 1.23166285_wp, 1.77503721_wp, 1.11955204_wp,&
& 1.28263182_wp, 1.22344336_wp, 1.70936266_wp, 1.54075036_wp, 1.38200579_wp,&
& 2.18849322_wp, 1.36779065_wp, 1.27039703_wp, 1.64466502_wp, 1.58859404_wp,&
& 1.65357953_wp, 1.50021521_wp, 1.30104175_wp, 1.46301827_wp, 1.32928147_wp,&
& 1.02766713_wp, 1.02291377_wp, 0.94343886_wp, 1.14881311_wp, 1.47080755_wp,&
& 1.76901636_wp, 1.98724061_wp, 2.41244711_wp, 2.26739524_wp, 2.95378999_wp,&
& 1.20807752_wp, 1.65941046_wp, 1.62733880_wp, 1.61344972_wp, 1.63220728_wp,&
& 1.60899928_wp, 1.43501286_wp, 1.54559205_wp, 1.32663678_wp, 1.37644152_wp,&
& 1.36051851_wp, 1.23395526_wp, 1.65734544_wp, 1.53895240_wp, 1.97542736_wp,&
& 1.97636542_wp, 2.05432381_wp, 3.80138135_wp, 1.43893803_wp, 1.75505957_wp,&
& 1.59815118_wp, 1.76401732_wp, 1.63999999_wp, 1.63999999_wp, 1.63999999_wp,&
& 1.63999999_wp, 1.63999999_wp, 1.63999999_wp, 1.63999999_wp, 1.63999999_wp,&
& 1.63999999_wp, 1.63999999_wp, 1.63999999_wp, 1.63999999_wp, 1.63999999_wp,&
& 1.63999999_wp, 1.47055223_wp, 1.81127084_wp, 1.40189963_wp, 1.54015481_wp,&
& 1.33721475_wp, 1.57165422_wp, 1.04815857_wp, 1.78342098_wp, 2.79106396_wp,&
& 1.78160840_wp, 2.47588882_wp, 2.37670734_wp, 1.76613217_wp, 2.66172302_wp,&
& 2.82773085_wp], shape(alp))
contains
subroutine getENChargesWrap &
& (env, mol, cn, dcndr, dcndL, qat, dqdr, dqdL, energy, gradient, sigma)
!> Source for error generation
character(len=*), parameter :: source = 'disp_encharges_getENChargesWrap'
!> Computational environment
type(TEnvironment), intent(inout) :: env
!> Molecular structure data
type(TMolecule), intent(in) :: mol
!> Coordination number
real(wp), intent(in) :: cn(:)
!> Derivative of the coordination number w.r.t. Cartesian coordinates
real(wp), intent(in) :: dcndr(:, :, :)
!> Derivative of the coordination number w.r.t. strain derivatives
real(wp), intent(in) :: dcndL(:, :, :)
!> Atomic partial charges
real(wp), intent(out), optional :: qat(:)
!> Derivative of the partial charges w.r.t. Cartesian coordinates
real(wp), intent(out), optional :: dqdr(:, :, :)
!> Derivative of the partial charges w.r.t. strain derivatives
real(wp), intent(out), optional :: dqdL(:, :, :)
!> Electrostatic energy
real(wp), intent(inout), optional :: energy
!> Molecular gradient
real(wp), intent(inout), optional :: gradient(:, :)
!> Strain derivatives
real(wp), intent(inout), optional :: sigma(:, :)
type(TGaussianSmeared) :: coulomb
type(TENEquilibration) :: eeq
logical :: exitRun
integer :: ii, nid, jat, iat
integer, allocatable :: num(:)
nid = maxval(mol%id)
allocate(num(nid))
do ii = 1, nId
jat = 0
do iat = 1, mol%n
if (mol%id(iat) == ii) then
jat = iat
exit
end if
end do
num(ii) = mol%at(jat)
end do
call init(coulomb, env, mol, alp, num=num)
call env%check(exitRun)
if (exitRun) then
call env%error("Coulomb evaluator init failed", source)
return
end if
call init(eeq, env, chi, kcn, gam, num=num)
call env%check(exitRun)
if (exitRun) then
call env%error("EN-Equilibration init failed", source)
return
end if
call eeq%chargeEquilibration(env, mol, coulomb, cn, dcndr, dcndL, &
& energy, gradient, sigma, qat=qat, dqdr=dqdr, dqdL=dqdL)
call env%check(exitRun)
if (exitRun) then
call env%error("Charge equilibration failed", source)
return
end if
end subroutine getENChargesWrap
end module xtb_disp_encharges
xtb-6.7.1/src/disp/meson.build 0000664 0000000 0000000 00000001560 14650006642 0016217 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2019-2020 Sebastian Ehlert
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
srcs += files(
'coordinationnumber.f90',
'dftd3.f',
'dftd3.f90',
'dftd3_parameters.f90',
'dftd4.F90',
'dftd4_parameters.f90',
'encharges.f90',
'ncoord.f90',
)
xtb-6.7.1/src/disp/ncoord.f90 0000664 0000000 0000000 00000104737 14650006642 0015673 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!! ========================================================================
! call as:
! interface
! pure subroutine ncoord_name(nat,at,xyz,cn,thr)
! use iso_fortran_env, only : wp => real64
! implicit none
! integer, intent(in) :: nat
! integer, intent(in) :: at(nat)
! real(wp),intent(in) :: xyz(3,nat)
! real(wp),intent(out) :: cn(nat)
! real(wp),intent(in),optional :: thr
! end interface
! interface
! pure subroutine dncoord_name(nat,at,xyz,cn,dcn,thr)
! use iso_fortran_env, only : wp => real64
! implicit none
! integer, intent(in) :: nat
! integer, intent(in) :: at(nat)
! real(wp),intent(in) :: xyz(3,nat)
! real(wp),intent(out) :: cn(nat)
! real(wp),intent(out) :: dcn(3,nat,nat)
! real(wp),intent(in),optional :: thr
! end interface
!! ========================================================================
module xtb_disp_ncoord
use xtb_mctc_accuracy, only : wp
implicit none
real(wp),private,parameter :: cnthr = 1600.0_wp
real(wp),parameter :: k1 = 16.0_wp
real(wp),parameter :: k2 = 4.0_wp/3.0_wp
real(wp),parameter :: ka=10.0_wp
real(wp),parameter :: kb=20.0_wp
real(wp),parameter :: r_shift=2.0_wp
real(wp),parameter :: k4=4.10451_wp
real(wp),parameter :: k5=19.08857_wp
real(wp),parameter :: k6=2*11.28174_wp**2
real(wp),parameter :: kn=7.50_wp
real(wp),parameter :: kr=0.25_wp
real(wp),parameter :: ke=0.05_wp
integer,private,parameter :: max_elem = 118
! covalent radii (taken from Pyykko and Atsumi, Chem. Eur. J. 15, 2009,
! 188-197), values for metals decreased by 10 %
real(wp),private,parameter :: rad(max_elem) = (/ &
& 0.32,0.46, & ! H,He
& 1.20,0.94,0.77,0.75,0.71,0.63,0.64,0.67, & ! Li-Ne
& 1.40,1.25,1.13,1.04,1.10,1.02,0.99,0.96, & ! Na-Ar
& 1.76,1.54, & ! K,Ca
& 1.33,1.22,1.21,1.10,1.07,1.04,1.00,0.99,1.01,1.09, & ! Sc-Zn
& 1.12,1.09,1.15,1.10,1.14,1.17, & ! Ga-Kr
& 1.89,1.67, & ! Rb,Sr
& 1.47,1.39,1.32,1.24,1.15,1.13,1.13,1.08,1.15,1.23, & ! Y-Cd
& 1.28,1.26,1.26,1.23,1.32,1.31, & ! In-Xe
& 2.09,1.76, & ! Cs,Ba
& 1.62,1.47,1.58,1.57,1.56,1.55,1.51, & ! La-Eu
& 1.52,1.51,1.50,1.49,1.49,1.48,1.53, & ! Gd-Yb
& 1.46,1.37,1.31,1.23,1.18,1.16,1.11,1.12,1.13,1.32, & ! Lu-Hg
& 1.30,1.30,1.36,1.31,1.38,1.42, & ! Tl-Rn
& 2.01,1.81, & ! Fr,Ra
& 1.67,1.58,1.52,1.53,1.54,1.55,1.49, & ! Ac-Am
& 1.49,1.51,1.51,1.48,1.50,1.56,1.58, & ! Cm-No
& 1.45,1.41,1.34,1.29,1.27,1.21,1.16,1.15,1.09,1.22, & ! Lr-Cn
& 1.22,1.29,1.46,1.58,1.48,1.41 /) ! Nh-Og
real(wp),parameter :: rcov(max_elem) = 4.0_wp/3.0_wp*rad/0.52917726_wp
! pauling EN's
real(wp),parameter :: en(max_elem) = (/ &
& 2.20,3.00, & ! H,He
& 0.98,1.57,2.04,2.55,3.04,3.44,3.98,4.50, & ! Li-Ne
& 0.93,1.31,1.61,1.90,2.19,2.58,3.16,3.50, & ! Na-Ar
& 0.82,1.00, & ! K,Ca
& 1.36,1.54,1.63,1.66,1.55,1.83,1.88,1.91,1.90,1.65, & ! Sc-Zn
& 1.81,2.01,2.18,2.55,2.96,3.00, & ! Ga-Kr
& 0.82,0.95, & ! Rb,Sr
& 1.22,1.33,1.60,2.16,1.90,2.20,2.28,2.20,1.93,1.69, & ! Y-Cd
& 1.78,1.96,2.05,2.10,2.66,2.60, & ! In-Xe
& 0.79,0.89, & ! Cs,Ba
& 1.10,1.12,1.13,1.14,1.15,1.17,1.18, & ! La-Eu
& 1.20,1.21,1.22,1.23,1.24,1.25,1.26, & ! Gd-Yb
& 1.27,1.30,1.50,2.36,1.90,2.20,2.20,2.28,2.54,2.00, & ! Lu-Hg
& 1.62,2.33,2.02,2.00,2.20,2.20, & ! Tl-Rn
! only dummies below
& 1.50,1.50, & ! Fr,Ra
& 1.50,1.50,1.50,1.50,1.50,1.50,1.50, & ! Ac-Am
& 1.50,1.50,1.50,1.50,1.50,1.50,1.50, & ! Cm-No
& 1.50,1.50,1.50,1.50,1.50,1.50,1.50,1.50,1.50,1.50, & ! Rf-Cn
& 1.50,1.50,1.50,1.50,1.50,1.50 /) ! Nh-Og
interface get_d3_cn
module procedure ncoord_d3_driver
module procedure ncoord_d3
module procedure dncoord_d3
end interface
interface get_erf_cn
module procedure ncoord_erf_driver
module procedure ncoord_erf
module procedure dncoord_erf
end interface
interface get_d4_cn
module procedure ncoord_d4_driver
module procedure ncoord_d4
module procedure dncoord_d4
module procedure pbc_ncoord_d4
module procedure pbc_dncoord_d4
end interface
interface get_gfn_cn
module procedure ncoord_gfn_driver
module procedure ncoord_gfn
module procedure dncoord_gfn
end interface
contains
pure subroutine ncoord_d3_driver(mol,cn,dcndr,thr)
use xtb_type_molecule
implicit none
!> molecular structure information
type(TMolecule), intent(in) :: mol
!> coordination number
real(wp), intent(out) :: cn(:)
!> derivative of coordination number w.r.t. nuclear positions
real(wp), intent(out), optional :: dcndr(:,:,:)
!> quadratic distance threshold for sum termination
real(wp), intent(in), optional :: thr
real(wp) :: cn_thr
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
! if (mol%npbc > 0) then
! if (present(dcndr).and.present(dcndL)) then
! else
! endif
! else
if (present(dcndr)) then
call dncoord_d3(mol%n,mol%at,mol%xyz,cn,dcndr,cn_thr)
else
call ncoord_d3(mol%n,mol%at,mol%xyz,cn,cn_thr)
endif
! endif
end subroutine ncoord_d3_driver
pure subroutine ncoord_gfn_driver(mol,cn,dcndr,thr)
use xtb_type_molecule
implicit none
!> molecular structure information
type(TMolecule), intent(in) :: mol
!> coordination number
real(wp), intent(out) :: cn(:)
!> derivative of coordination number w.r.t. nuclear positions
real(wp), intent(out), optional :: dcndr(:,:,:)
!> quadratic distance threshold for sum termination
real(wp), intent(in), optional :: thr
real(wp) :: cn_thr
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
! if (mol%npbc > 0) then
! if (present(dcndr).and.present(dcndL)) then
! else
! endif
! else
if (present(dcndr)) then
call dncoord_gfn(mol%n,mol%at,mol%xyz,cn,dcndr,cn_thr)
else
call ncoord_gfn(mol%n,mol%at,mol%xyz,cn,cn_thr)
endif
! endif
end subroutine ncoord_gfn_driver
pure subroutine ncoord_erf_driver(mol,cn,dcndr,dcndL,thr)
use xtb_type_molecule
implicit none
!> molecular structure information
type(TMolecule), intent(in) :: mol
!> coordination number
real(wp), intent(out) :: cn(:)
!> derivative of coordination number w.r.t. nuclear positions
real(wp), intent(out), optional :: dcndr(:,:,:)
!> derivative of coordination number w.r.t. lattice vectors
real(wp), intent(out), optional :: dcndL(:,:,:)
!> quadratic distance threshold for sum termination
real(wp), intent(in), optional :: thr
real(wp) :: cn_thr
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
if (mol%npbc > 0) then
if (present(dcndr).and.present(dcndL)) then
call pbc_derfcoord(mol%n,mol%at,mol%xyz,mol%lattice,cn,dcndr,dcndL,cn_thr)
else
call pbc_erfcoord(mol%n,mol%at,mol%xyz,mol%lattice,cn,cn_thr)
endif
else
if (present(dcndr)) then
call dncoord_erf(mol%n,mol%at,mol%xyz,cn,dcndr,cn_thr)
else
call ncoord_erf(mol%n,mol%at,mol%xyz,cn,cn_thr)
endif
endif
end subroutine ncoord_erf_driver
pure subroutine ncoord_d4_driver(mol,cn,dcndr,dcndL,thr)
use xtb_type_molecule
implicit none
!> molecular structure information
type(TMolecule), intent(in) :: mol
!> coordination number
real(wp), intent(out) :: cn(:)
!> derivative of coordination number w.r.t. nuclear positions
real(wp), intent(out), optional :: dcndr(:,:,:)
!> derivative of coordination number w.r.t. lattice vectors
real(wp), intent(out), optional :: dcndL(:,:,:)
!> quadratic distance threshold for sum termination
real(wp), intent(in), optional :: thr
real(wp) :: cn_thr
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
if (mol%npbc > 0) then
if (present(dcndr).and.present(dcndL)) then
call pbc_dncoord_d4(mol%n,mol%at,mol%xyz,mol%lattice,cn,dcndr,dcndL,cn_thr)
else
call pbc_ncoord_d4(mol%n,mol%at,mol%xyz,mol%lattice,cn,cn_thr)
endif
else
if (present(dcndr)) then
call dncoord_d4(mol%n,mol%at,mol%xyz,cn,dcndr,cn_thr)
else
call ncoord_d4(mol%n,mol%at,mol%xyz,cn,cn_thr)
endif
endif
end subroutine ncoord_d4_driver
! ========================================================================
!> original D3 type coordination number from 2010
pure subroutine ncoord_d3(nat,at,xyz,cn,thr)
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(out) :: cn(nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i,j
real(wp) :: rij(3), r, rco, den, tmp, r2
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
cn = 0.0_wp
do i = 1, nat
do j = 1, i-1
rij = xyz(:,j) - xyz(:,i)
r2 = sum( rij**2 )
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=rcov(at(j)) + rcov(at(i))
! counting function exponential has a better long-range
! behavior than MHGs inverse damping
tmp=exp_count(k1,r,rco)
cn(i)=cn(i)+tmp
cn(j)=cn(j)+tmp
enddo
enddo
end subroutine ncoord_d3
! ========================================================================
! original D3 type coordination number from 2010
! INPUT
! nat :: number of atoms
! at :: ordinal number of atoms
! xyz :: coordinates in Bohr
! OUTPUT
! cn :: coordination number
! dcndr :: derivative of coordination number w.r.t. atom position
! PARAMETERS: k1,k2
! NOTE: k2 is already included in rcov
pure subroutine dncoord_d3(nat,at,xyz,cn,dcndr,thr)
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(out) :: cn(nat)
real(wp),intent(out) :: dcndr(3,nat,nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i, j
real(wp) :: r, r2, rij(3)
real(wp) :: rcovij
real(wp) :: expterm
real(wp) :: dtmp, tmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
cn = 0._wp
dcndr = 0._wp
do i = 1, nat
do j = 1, i-1
rij = xyz(:,j) - xyz(:,i)
r2 = sum( rij**2 )
if (r2.gt.cn_thr) cycle
r = sqrt(r2)
rcovij=(rcov(at(i))+rcov(at(j)))
tmp = exp_count(k1,r,rcovij)
dtmp = dexp_count(k1,r,rcovij)
cn(i) = cn(i) + tmp
cn(j) = cn(j) + tmp
dcndr(:,i,i)=-dtmp*rij/r + dcndr(:,i,i) ! FIXME
dcndr(:,j,j)= dtmp*rij/r + dcndr(:,j,j) ! FIXME
dcndr(:,i,j)= dtmp*rij/r
dcndr(:,j,i)=-dtmp*rij/r
enddo
enddo
end subroutine dncoord_d3
! gradients for pbc coordination number with exp function
pure subroutine pbc_dncoord_d3(nat,at,xyz,lat,cn,dcndr,dcndL,thr)
use xtb_mctc_constants
use xtb_pbc_tools
use xtb_pbc, only : get_realspace_cutoff
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(in) :: lat(3,3)
real(wp),intent(out) :: cn(nat)
real(wp),intent(out) :: dcndr(3,nat,nat)
real(wp),intent(out) :: dcndL(3,3,nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i,j,tx,ty,tz
real(wp) :: rij(3), r, rco, den, rr, r2, t(3)
integer :: rep_cn(3)
real(wp) :: tmp,dtmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
call get_realspace_cutoff(lat,cn_thr,rep_cn)
cn = 0.0_wp
dcndr = 0.0_wp
dcndL = 0.0_wp
do i = 1, nat
do j = 1, i-1 ! loop over all atoms for PBC case
do concurrent(tx = -rep_cn(1):rep_cn(1), &
& ty = -rep_cn(2):rep_cn(2), &
& tz = -rep_cn(3):rep_cn(3))
t = tx*lat(:,1) + ty*lat(:,2) + tz*lat(:,3)
rij = xyz(:,j) - xyz(:,i) + t
r2 = sum(rij**2)
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=rcov(at(j)) + rcov(at(i))
tmp=exp_count(k1,r,rco)
dtmp = dexp_count(k1,r,rco)
cn(i)=cn(i) + tmp
cn(j)=cn(j) + tmp
dcndr(:,i,i)= dtmp*rij/r + dcndr(:,i,i)
dcndr(:,j,j)=-dtmp*rij/r + dcndr(:,j,j)
dcndr(:,i,j)= dtmp*rij/r + dcndr(:,i,j)
dcndr(:,j,i)=-dtmp*rij/r + dcndr(:,j,i)
dcndL(:,:,j)= dtmp*outer_prod_3x3(rij,rij)/r + dcndL(:,:,j)
dcndL(:,:,i)= dtmp*outer_prod_3x3(rij,rij)/r + dcndL(:,:,i)
enddo
enddo
do concurrent(tx = -rep_cn(1):rep_cn(1), &
& ty = -rep_cn(2):rep_cn(2), &
& tz = -rep_cn(3):rep_cn(3), &
& tx.ne.0 .or. ty.ne.0 .or. tz.ne.0)
t = tx*lat(:,1) + ty*lat(:,2) + tz*lat(:,3)
rij = t
r2 = sum(rij**2)
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=2*rcov(at(i))
tmp=exp_count(k1,r,rco)
dtmp = dexp_count(k1,r,rco)
cn(i)=cn(i) + tmp
dcndL(:,:,i)= dtmp*outer_prod_3x3(rij,rij)/r + dcndL(:,:,i)
enddo
enddo
end subroutine pbc_dncoord_d3
! ========================================================================
! modified D3 type coordination number from 2018
! INPUT
! nat :: number of atoms
! at :: ordinal number of atoms
! xyz :: coordinates in Bohr
! OUTPUT
! cn :: coordination number
! PARAMETERS: kn,k2
! NOTE: k2 is already included in rcov
pure subroutine ncoord_erf(nat,at,xyz,cn,thr)
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(out) :: cn(nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i,j
real(wp) :: rij(3), r, rco, den, rr, r2, tmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
cn = 0.0_wp
do i = 1, nat
do j = 1, i-1
rij = xyz(:,j) - xyz(:,i)
r2 = sum( rij**2 )
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=rcov(at(j)) + rcov(at(i))
! error function has an even better long range behavior
tmp = erf_count(kn,r,rco)
cn(i)=cn(i)+tmp
cn(j)=cn(j)+tmp
enddo
enddo
end subroutine ncoord_erf
! ========================================================================
! modified D3 type coordination number from 2018
! INPUT
! nat :: number of atoms
! at :: ordinal number of atoms
! xyz :: coordinates in Bohr
! OUTPUT
! cn :: coordination number
! dcndr :: derivative of coordination number w.r.t. atom position
! PARAMETERS: kn,k2
! NOTE: k2 is already included in rcov
pure subroutine dncoord_erf(nat,at,xyz,cn,dcndr,thr)
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(out) :: cn(nat)
real(wp),intent(out) :: dcndr(3,nat,nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i,j
real(wp) :: r,r2,rij(3)
real(wp) :: rcovij
real(wp) :: dtmp,tmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
cn = 0._wp
dcndr = 0._wp
do i = 1, nat
do j = 1, i-1
rij = xyz(:,j) - xyz(:,i)
r2 = sum( rij**2 )
if (r2.gt.cn_thr) cycle
r = sqrt(r2)
rcovij=(rcov(at(i))+rcov(at(j)))
tmp = erf_count(kn,r,rcovij)
dtmp = derf_count(kn,r,rcovij)
cn(i) = cn(i) + tmp
cn(j) = cn(j) + tmp
dcndr(:,i,i)= dtmp*rij/r + dcndr(:,i,i)
dcndr(:,j,j)=-dtmp*rij/r + dcndr(:,j,j)
dcndr(:,i,j)= dtmp*rij/r
dcndr(:,j,i)=-dtmp*rij/r
enddo
enddo
end subroutine dncoord_erf
! ========================================================================
! covalent coordination number of the DFT-D4 method
! INPUT
! nat :: number of atoms
! at :: ordinal number of atoms
! xyz :: coordinates in Bohr
! OUTPUT
! cn :: coordination number
! PARAMETERS: k1,k2,k4,k5,k6
! NOTE: k2 is already included in rcov
pure subroutine ncoord_d4(nat,at,xyz,cn,thr)
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(out) :: cn(nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i,j
real(wp) :: rij(3), r, rco, den, rr, r2, xn, tmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
cn = 0._wp
do i=1,nat
do j=1,i-1
rij = xyz(:,j) - xyz(:,i)
r2 = sum( rij**2 )
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=rcov(at(j)) + rcov(at(i))
rr=rco/r
den=k4*exp(-(abs((en(at(i))-en(at(j))))+ k5)**2/k6 )
! counting function exponential has a better long-range
! behavior than MHGs inverse damping
!tmp = den/(1.d0+exp(-k1*(rr-1.0d0)))
! error function has an even better long range behavior
tmp = den * erf_count(kn,r,rco)
cn(i)=cn(i)+tmp
cn(j)=cn(j)+tmp
enddo
enddo
end subroutine ncoord_d4
! ========================================================================
! derivative of the covalent coordination number of the DFT-D4 method
! NOTE: the derivative is inlined in the dispgrad in dftd4 by hand
! INPUT
! nat :: number of atoms
! at :: ordinal number of atoms
! xyz :: coordinates in Bohr
! OUTPUT
! cn :: coordination number
! dcndr :: derivative of coordination number w.r.t. atom position
! PARAMETERS: k1,k2,k4,k5,k6
! NOTE: k2 is already included in rcov
pure subroutine dncoord_d4(nat,at,xyz,cn,dcndr,thr)
use xtb_mctc_constants
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(out) :: cn(nat)
real(wp),intent(out) :: dcndr(3,nat,nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i, j, ia, ja
real(wp) :: r, r2, rij(3)
real(wp) :: rcovij,den
real(wp) :: dtmp, tmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
cn = 0._wp
dcndr = 0._wp
do i = 1, nat
ia = at(i)
do j = 1, i-1
ja = at(j)
rij = xyz(:,j) - xyz(:,i)
r2 = sum( rij**2 )
if (r2.gt.cn_thr) cycle
r = sqrt(r2)
rcovij=(rcov(ia)+rcov(ja))
den=k4*exp(-(abs((en(ia)-en(ja)))+ k5)**2/k6 )
tmp = den * erf_count(kn,r,rcovij)
dtmp = den * derf_count(kn,r,rcovij)
cn(i) = cn(i) + tmp
cn(j) = cn(j) + tmp
dcndr(:,i,i)=-dtmp*rij/r + dcndr(:,i,i)
dcndr(:,j,j)= dtmp*rij/r + dcndr(:,j,j)
dcndr(:,i,j)=-dtmp*rij/r
dcndr(:,j,i)= dtmp*rij/r
enddo
enddo
end subroutine dncoord_d4
! same for the pbc case
pure subroutine pbc_ncoord_d4(nat,at,xyz,lat,cn,thr)
use xtb_mctc_constants
use xtb_pbc_tools
use xtb_pbc, only : get_realspace_cutoff
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
integer :: rep_cn(3)
integer :: tx,ty,tz
real(wp) :: t(3)
real(wp),intent(in) :: lat(3,3)
real(wp),intent(out) :: cn(nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i,j
real(wp) :: rij(3), r, rco, den, r2, xn, tmp, dtmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
cn = 0.0_wp
call get_realspace_cutoff(lat,cn_thr,rep_cn)
do i=1,nat
do j=1,i-1
do concurrent(tx = -rep_cn(1):rep_cn(1), &
& ty = -rep_cn(2):rep_cn(2), &
& tz = -rep_cn(3):rep_cn(3))
t = [tx,ty,tz]
rij = xyz(:,j) - xyz(:,i) + matmul(lat,t)
r2 = sum(rij**2)
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=rcov(at(j)) + rcov(at(i))
den=k4*exp(-(abs((en(at(i))-en(at(j))))+ k5)**2/k6 )
tmp = den * erf_count(kn,r,rco)
cn(i)=cn(i)+tmp
cn(j)=cn(j)+tmp
enddo
enddo
do concurrent(tx = -rep_cn(1):rep_cn(1), &
& ty = -rep_cn(2):rep_cn(2), &
& tz = -rep_cn(3):rep_cn(3), &
& tx.ne.0 .or. ty.ne.0 .or. tz.ne.0)
t = [tx,ty,tz]
rij = matmul(lat,t)
r2 = sum(rij**2)
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=2*rcov(at(i))
den=k4*exp(-k5**2/k6 )
tmp = den * erf_count(kn,r,rco)
cn(i)=cn(i)+tmp
enddo
enddo
end subroutine pbc_ncoord_d4
! same for the pbc case
pure subroutine pbc_dncoord_d4(nat,at,xyz,lat,cn,dcndr,dcndL,thr)
use xtb_mctc_constants
use xtb_pbc_tools
use xtb_pbc, only : get_realspace_cutoff
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
integer :: rep_cn(3)
integer :: tx,ty,tz
real(wp) :: t(3)
real(wp),intent(in) :: lat(3,3)
real(wp),intent(out) :: cn(nat)
real(wp),intent(out) :: dcndr(3,nat,nat)
real(wp),intent(out) :: dcndL(3,3,nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i,j
real(wp) :: rij(3), r, rco, den, r2, xn, tmp, dtmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
cn = 0.0_wp
dcndr = 0.0_wp
dcndL = 0.0_wp
call get_realspace_cutoff(lat,cn_thr,rep_cn)
do i=1,nat
do j=1,i-1
do concurrent(tx = -rep_cn(1):rep_cn(1), &
& ty = -rep_cn(2):rep_cn(2), &
& tz = -rep_cn(3):rep_cn(3))
t = [tx,ty,tz]
rij = xyz(:,j) - xyz(:,i) + matmul(lat,t)
r2 = sum(rij**2)
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=rcov(at(j)) + rcov(at(i))
den=k4*exp(-(abs((en(at(i))-en(at(j))))+ k5)**2/k6 )
tmp = den * erf_count(kn,r,rco)
dtmp = den * derf_count(kn,r,rco)
cn(i)=cn(i)+tmp
cn(j)=cn(j)+tmp
dcndr(:,i,i)=-dtmp*rij/r + dcndr(:,i,i)
dcndr(:,j,j)= dtmp*rij/r + dcndr(:,j,j)
dcndr(:,i,j)=-dtmp*rij/r + dcndr(:,i,j)
dcndr(:,j,i)= dtmp*rij/r + dcndr(:,j,i)
dcndL(:,:,j)= dtmp*outer_prod_3x3(rij,rij)/r + dcndL(:,:,j)
dcndL(:,:,i)= dtmp*outer_prod_3x3(rij,rij)/r + dcndL(:,:,i)
enddo
enddo
do concurrent(tx = -rep_cn(1):rep_cn(1), &
& ty = -rep_cn(2):rep_cn(2), &
& tz = -rep_cn(3):rep_cn(3))
! avoid self interaction
if ((tx.eq.0).and.(ty.eq.0).and.(tz.eq.0)) cycle
t = [tx,ty,tz]
rij = matmul(lat,t)
r2 = sum(rij**2)
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=2*rcov(at(i))
den=k4*exp(-k5**2/k6)
tmp = den * erf_count(kn,r,rco)
dtmp = den * derf_count(kn,r,rco)
cn(i)=cn(i)+tmp
dcndL(:,:,i)= dtmp*outer_prod_3x3(rij,rij)/r + dcndL(:,:,i)
enddo
enddo
end subroutine pbc_dncoord_d4
! ========================================================================
! GFN2-xTB coordination number for CN dependent parts of the Hamiltonian
! it's similar to the D3 coordination number but doubly damped, to avoid
! large tail contributions in dense packed systems
! INPUT
! nat :: number of atoms
! at :: ordinal number of atoms
! xyz :: coordinates in Bohr
! OUTPUT
! cn :: coordination number
! PARAMETERS: ka,kb,k2,r_shift
! NOTE: k2 is already included in rcov
pure subroutine ncoord_gfn(nat,at,xyz,cn,thr)
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(out) :: cn(nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i, j, ia, ja
real(wp) :: r, r2, rij(3)
real(wp) :: rcovij
real(wp) :: expterm1, expterm2
real(wp) :: tmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
cn = 0.0_wp
do i = 1, nat
ia = at(i)
do j = 1, i-1
ja = at(j)
rij = xyz(:,j) - xyz(:,i)
r2 = sum( rij**2 )
if (r2.gt.cn_thr) cycle
r = sqrt(r2)
rcovij=(rcov(ia)+rcov(ja))
expterm1=exp_count(ka,r,rcovij)
expterm2=exp_count(kb,r,rcovij+r_shift)
tmp = expterm1*expterm2
cn(i) = cn(i) + tmp
cn(j) = cn(j) + tmp
enddo
enddo
end subroutine ncoord_gfn
! ========================================================================
! GFN2-xTB coordination number for CN dependent parts of the Hamiltonian
! it's similar to the D3 coordination number but doubly damped, to avoid
! large tail contributions in dense packed systems
! INPUT
! nat :: number of atoms
! at :: ordinal number of atoms
! xyz :: coordinates in Bohr
! OUTPUT
! cn :: coordination number
! dcndr :: derivative of coordination number w.r.t. atom position
! PARAMETERS: ka,kb,k2,r_shift
! NOTE: k2 is already included in rcov
pure subroutine dncoord_gfn(nat,at,xyz,cn,dcndr,thr)
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(out) :: cn(nat)
real(wp),intent(out) :: dcndr(3,nat,nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i, j, ia, ja
real(wp) :: r, r2, rij(3)
real(wp) :: rcovij
real(wp) :: expterm1, expterm2
real(wp) :: dtmp, tmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
cn = 0._wp
dcndr = 0._wp
do i = 1, nat
ia = at(i)
do j = 1, i-1
ja = at(j)
rij = xyz(:,j) - xyz(:,i)
r2 = sum( rij**2 )
if (r2.gt.cn_thr) cycle
r = sqrt(r2)
rcovij=(rcov(ia)+rcov(ja))
expterm1=exp(-ka*(rcovij/r-1._wp))
expterm2=exp(-kb*((rcovij+r_shift)/r-1._wp))
tmp = 1._wp/(1._wp+expterm1)/(1._wp+expterm2)
dtmp = (-ka*rcovij*expterm1) &
& /(r2*((expterm1+1._wp)**2))/(1._wp+expterm2) &
& + (-kb*(rcovij+r_shift)*expterm2) &
& /(r2*((expterm2+1._wp)**2))/(1._wp+expterm1)
cn(i) = cn(i) + tmp
cn(j) = cn(j) + tmp
dcndr(:,i,i)=-dtmp*rij/r + dcndr(:,i,i)
dcndr(:,j,j)= dtmp*rij/r + dcndr(:,j,j)
dcndr(:,i,j)= dtmp*rij/r
dcndr(:,j,i)=-dtmp*rij/r
enddo
enddo
end subroutine dncoord_gfn
! pbc coordination number with error function
pure subroutine pbc_erfcoord(nat,at,xyz,lat,cn,thr)
use xtb_pbc, only : get_realspace_cutoff
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(in) :: lat(3,3)
real(wp),intent(out) :: cn(nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i,j,tx,ty,tz
real(wp) :: rij(3), r, rco, den, rr, r2, t(3)
integer :: rep_cn(3)
real(wp) :: tmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
call get_realspace_cutoff(lat,cn_thr,rep_cn)
cn = 0.0_wp
do i = 1, nat
do j = 1, i-1 ! loop over all atoms for PBC case
do concurrent(tx = -rep_cn(1):rep_cn(1), &
& ty = -rep_cn(2):rep_cn(2), &
& tz = -rep_cn(3):rep_cn(3))
! avoid self interaction
if ((j.eq.i).and.(tx.eq.0).and.(ty.eq.0).and.(tz.eq.0)) cycle
t = tx*lat(:,1) + ty*lat(:,2) + tz*lat(:,3)
rij = xyz(:,j) - xyz(:,i) + t
r2 = sum(rij**2)
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=rcov(at(j)) + rcov(at(i))
tmp=erf_count(kn,r,rco)
cn(i)=cn(i) + tmp
cn(j)=cn(j) + tmp
enddo
enddo
do concurrent(tx = -rep_cn(1):rep_cn(1), &
& ty = -rep_cn(2):rep_cn(2), &
& tz = -rep_cn(3):rep_cn(3), &
& tx.ne.0 .or. ty.ne.0 .or. tz.ne.0)
t = tx*lat(:,1) + ty*lat(:,2) + tz*lat(:,3)
rij = t
r2 = sum(rij**2)
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=2*rcov(at(i))
tmp=erf_count(kn,r,rco)
cn(i)=cn(i) + tmp
enddo
enddo
end subroutine pbc_erfcoord
! gradients for pbc coordination number with error function
pure subroutine pbc_derfcoord(nat,at,xyz,lat,cn,dcndr,dcndL,thr)
use xtb_mctc_constants
use xtb_pbc_tools
use xtb_pbc, only : get_realspace_cutoff
implicit none
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
real(wp),intent(in) :: lat(3,3)
real(wp),intent(out) :: cn(nat)
real(wp),intent(out) :: dcndr(3,nat,nat)
real(wp),intent(out) :: dcndL(3,3,nat)
real(wp),intent(in),optional :: thr
real(wp) :: cn_thr
integer :: i,j,tx,ty,tz
real(wp) :: rij(3), r, rco, den, rr, r2, t(3)
integer :: rep_cn(3)
real(wp) :: tmp,dtmp
if (present(thr)) then
cn_thr = thr
else
cn_thr = cnthr
endif
call get_realspace_cutoff(lat,cn_thr,rep_cn)
cn = 0.0_wp
dcndr = 0.0_wp
dcndL = 0.0_wp
do i = 1, nat
do j = 1, i-1 ! loop over all atoms for PBC case
do concurrent(tx = -rep_cn(1):rep_cn(1), &
& ty = -rep_cn(2):rep_cn(2), &
& tz = -rep_cn(3):rep_cn(3))
t = tx*lat(:,1) + ty*lat(:,2) + tz*lat(:,3)
rij = xyz(:,j) - xyz(:,i) + t
r2 = sum(rij**2)
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=rcov(at(j)) + rcov(at(i))
tmp=erf_count(kn,r,rco)
dtmp = derf_count(kn,r,rco)
cn(i)=cn(i) + tmp
cn(j)=cn(j) + tmp
dcndr(:,i,i)= dtmp*rij/r + dcndr(:,i,i)
dcndr(:,j,j)=-dtmp*rij/r + dcndr(:,j,j)
dcndr(:,i,j)= dtmp*rij/r + dcndr(:,i,j)
dcndr(:,j,i)=-dtmp*rij/r + dcndr(:,j,i)
dcndL(:,:,j)= dtmp*outer_prod_3x3(rij,rij)/r + dcndL(:,:,j)
dcndL(:,:,i)= dtmp*outer_prod_3x3(rij,rij)/r + dcndL(:,:,i)
enddo
enddo
do concurrent(tx = -rep_cn(1):rep_cn(1), &
& ty = -rep_cn(2):rep_cn(2), &
& tz = -rep_cn(3):rep_cn(3), &
& tx.ne.0 .or. ty.ne.0 .or. tz.ne.0)
t = tx*lat(:,1) + ty*lat(:,2) + tz*lat(:,3)
rij = t
r2 = sum(rij**2)
if (r2.gt.cn_thr) cycle
r=sqrt(r2)
! covalent distance in bohr
rco=2*rcov(at(i))
tmp=erf_count(kn,r,rco)
dtmp = derf_count(kn,r,rco)
cn(i)=cn(i) + tmp
dcndL(:,:,i)= dtmp*outer_prod_3x3(rij,rij)/r + dcndL(:,:,i)
enddo
enddo
end subroutine pbc_derfcoord
!> cutoff function for large coordination numbers
subroutine dncoord_logcn(n,cn,dcndr,dcndL,cn_max)
implicit none
!> number of atoms
integer, intent(in) :: n
!> on input coordination number, on output modified CN
real(wp), intent(inout) :: cn(n)
!> on input derivative of CN w.r.t. cartesian coordinates,
! on output derivative of modified CN
real(wp), intent(inout), optional :: dcndr(3,n,n)
!> on input derivative of CN w.r.t. strain deformation,
! on output derivative of modified CN
real(wp), intent(inout), optional :: dcndL(3,3,n)
!> maximum CN (not strictly obeyed)
real(wp), intent(in), optional :: cn_max
! local
real(wp) :: cnmax
real(wp) :: dcnpdcn
integer :: i
if (present(cn_max)) then
cnmax = max(cn_max,0.0_wp)
else
cnmax = 4.5_wp
endif
if (present(dcndL)) then
do i = 1, n
dcnpdcn = dlog_cn_cut(cn(i),cnmax)
dcndL(:,:,i) = dcnpdcn*dcndL(:,:,i)
enddo
endif
if (present(dcndr)) then
do i = 1, n
dcnpdcn = dlog_cn_cut(cn(i),cnmax)
dcndr(:,:,i) = dcnpdcn*dcndr(:,:,i)
enddo
endif
do i = 1, n
cn(i) = log_cn_cut(cn(i),cnmax)
enddo
end subroutine dncoord_logcn
pure elemental function log_cn_cut(cn,cnmax) result(cnp)
real(wp), intent(in) :: cn
real(wp), intent(in) :: cnmax
real(wp) :: cnp
cnp = log(1.0_wp + exp(cnmax)) - log(1.0_wp + exp(cnmax - cn))
end function log_cn_cut
pure elemental function dlog_cn_cut(cn,cnmax) result(dcnpdcn)
real(wp), intent(in) :: cn
real(wp), intent(in) :: cnmax
real(wp) :: dcnpdcn
dcnpdcn = exp(cnmax)/(exp(cnmax) + exp(cn))
end function dlog_cn_cut
pure elemental function erf_count(k,r,r0) result(count)
real(wp), intent(in) :: k
real(wp), intent(in) :: r
real(wp), intent(in) :: r0
real(wp) :: count
count = 0.5_wp * (1.0_wp + erf(-k*(r-r0)/r0))
end function erf_count
pure elemental function derf_count(k,r,r0) result(count)
use xtb_mctc_constants
real(wp), intent(in) :: k
real(wp), intent(in) :: r
real(wp), intent(in) :: r0
real(wp) :: count
count = -k/sqrtpi/r0*exp(-k**2*(r-r0)**2/r0**2)
end function derf_count
pure elemental function exp_count(k,r,r0) result(count)
real(wp), intent(in) :: k
real(wp), intent(in) :: r
real(wp), intent(in) :: r0
real(wp) :: count
count =1.0_wp/(1.0_wp+exp(-k*(r0/r-1.0_wp)))
end function exp_count
pure elemental function dexp_count(k,r,r0) result(count)
real(wp), intent(in) :: k
real(wp), intent(in) :: r
real(wp), intent(in) :: r0
real(wp) :: count
real(wp) :: expterm
expterm=exp(-k*(r0/r-1._wp))
count = (-k*r0*expterm)/(r**2*((expterm+1._wp)**2))
end function dexp_count
end module xtb_disp_ncoord
xtb-6.7.1/src/docking/ 0000775 0000000 0000000 00000000000 14650006642 0014532 5 ustar 00root root 0000000 0000000 xtb-6.7.1/src/docking/CMakeLists.txt 0000664 0000000 0000000 00000001561 14650006642 0017275 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2022 Sebastian Ehlert, Christoph Plett
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
set(dir "${CMAKE_CURRENT_SOURCE_DIR}")
list(APPEND srcs
"${dir}/param.f90"
"${dir}/search_nci.f90"
"${dir}/set_module.f90"
)
set(srcs ${srcs} PARENT_SCOPE)
xtb-6.7.1/src/docking/meson.build 0000664 0000000 0000000 00000001425 14650006642 0016676 0 ustar 00root root 0000000 0000000 # This file is part of xtb.
#
# Copyright (C) 2022 Sebastian Ehlert, Christoph Plett
#
# xtb is free software: you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# xtb is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with xtb. If not, see .
srcs += files(
'search_nci.f90',
'param.f90',
'set_module.f90',
)
xtb-6.7.1/src/docking/param.f90 0000664 0000000 0000000 00000104416 14650006642 0016160 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2022 Stefan Grimme, Christoph Plett
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_docking_param
use xtb_mctc_accuracy, only: wp
use xtb_mctc_symbols, only: toSymbol
use xtb_type_setvar
use xtb_type_molecule, only: TMolecule, init
use xtb_param_covalentRadD3, only: covalentRadD3
use xtb_mctc_param, only: sqrt_z_r4_over_r2
use xtb_splitparam, only: atmass
implicit none
private :: toSymbol
!> Parameter
real(wp) :: par_rep_scal,par_d3_a1,par_d3_a2,par_d3_s8,par_chrg_lp,par_chrg_sig,&
& par_chrg_pi,par_pos1_lp,par_pos2_lp,par_pos_sig,par_es_damp,par_drude_fc,&
& par_drude_damp, par_xh1, par_xh2
real(wp) :: r0ab,r0ab6(94,94),r0ab8(94,94),rrab(94,94),r0scal(94),val_e(86),r0_atom(86),rcov(94),r2r4(94)
integer :: lpatom(86), sigatom(86)
!> # of generations
integer :: maxgen = 10
!> # of parents for genetic algo
integer :: maxparent = 100
!> step size for RG grid
real(wp) :: stepr = 2.5
!> Step size for angular grid
real(wp) :: stepa = 45
!> Maximal number of points CMA search
integer :: mxcma = 1000
!> Size for pocket clusteing
integer :: mxcent_clust = 500
!> Include input in gene pool?
logical :: incl_org = .false.
!> Search types
logical :: stack_only = .false.
logical :: pocket_only = .false.
logical :: no_pocket = .true.
!> Probe atom type
integer :: probe_atom_type = 36
!> # of final geo. opts
integer :: n_opt = 15
!> Mode
integer :: mode = 0
!> CS symmetric molecule A?
logical :: cssym = .false.
character*80 :: solvent, XTBHOME
character(len=:), allocatable :: natom_arg
integer :: natom_molA = 0
!> Optimization accuracy
real(wp) :: acc = 1.0_wp
real(wp) :: shift_geo !How much molB is shifted away from molA to determine Topo and D4 coefficients
real(wp) :: pre_e_A = 0.0_wp
real(wp) :: pre_e_B = 0.0_wp
!>Settings
logical :: fulle = .false.
logical :: hess = .false.
logical :: debug = .false.
integer :: nfrag1 = 0
logical :: samerand = .false.
logical :: test = .false.
character(len=:), allocatable :: optlvl
!>docklmocommon
integer :: maxlmo = 50000
real(wp) :: lmoint(3, 50000, 2) = 0.0_wp
integer :: lmoatom(4, 50000, 2) = 0
!>dockmolcommon
real(wp) :: dipol(2) = 0.0_wp
real(wp) :: grotrav(2) = 0.0_wp
real(wp) :: hrotrav(2) = 0.0_wp
real(wp) :: zpve(2) = 0.0_wp
real(wp) :: extb(2) = 0.0_wp
real(wp) :: chrg(2) = 0.0_wp
real(wp) :: uhf(2) = 0.0_wp
real(wp) :: elumo(2) = 0.0_wp
real(wp) :: ehomo(2) = 0.0_wp
!>Stuff for constraints
logical :: constraint_xyz = .false.
logical :: auto_wall = .false.
character(len=:), allocatable :: xcontrol
!> Options
logical :: pocket_grid = .false.
logical :: angular_grid = .true.
logical :: stack_grid = .true.
!> General Control
integer :: gsolvstate_iff
logical :: docking_ens = .false.
!> Fixing for Directed Docking
type(fix_setvar) :: directedset
!> Scaling factor for repulstive potential
real(wp),parameter :: pot_scal = 1.0_wp
!> Exponent for repulsitve potential
real(wp),parameter :: pot_expo = 2.0_wp
!> 20 kcal/mol attractive potential
real(wp) :: attractive_pot = -0.032_wp
integer :: directed_type = 3
!> Repulsive atom-centered potential
integer, parameter :: p_atom_pot = 2
!> Attractive atom-centered potential
integer, parameter :: p_atom_att = 3
!> Attractive atom-centered potential for QCG mode
integer, parameter :: p_atom_qcg = 4
!> Wall pot for directed docking (Not used)
integer, parameter :: p_wall_pot = 1
integer :: place_wall_pot
!QCG mode (special treatment of wall potentials)
logical :: qcg = .false.
!> Drude
real(wp) :: gam(94)
data gam/&
&0.47259288, 0.92203391, 0.17452888, 0.25700733, 0.33949086, 0.42195412,&
&0.50438193, 0.58691863, 0.66931351, 0.75191607, 0.17964105, 0.22157276,&
&0.26348578, 0.30539645, 0.34734014, 0.38924725, 0.43115670, 0.47308269,&
&0.17105469, 0.20276244, 0.21007322, 0.21739647, 0.22471039, 0.23201501,&
&0.23933969, 0.24665638, 0.25398255, 0.26128863, 0.26859476, 0.27592565,&
&0.30762999, 0.33931580, 0.37235985, 0.40273549, 0.43445776, 0.46611708,&
&0.15585079, 0.18649324, 0.19356210, 0.20063311, 0.20770522, 0.21477254,&
&0.22184614, 0.22891872, 0.23598621, 0.24305612, 0.25013018, 0.25719937,&
&0.28784780, 0.31848673, 0.34912431, 0.37976593, 0.41040808, 0.44105777,&
&0.05019332, 0.06762570, 0.08504445, 0.10247736, 0.11991105, 0.13732772,&
&0.15476297, 0.17218265, 0.18961288, 0.20704760, 0.22446752, 0.24189645,&
&0.25932503, 0.27676094, 0.29418231, 0.31159587, 0.32902274, 0.34592298,&
&0.36388048, 0.38130586, 0.39877476, 0.41614298, 0.43364510, 0.45104014,&
&0.46848986, 0.48584550, 0.12526730, 0.14268677, 0.16011615, 0.17755889,&
&0.19497557, 0.21240778, 0.07263525, 0.09422158, 0.09920295, 0.10418621,&
&0.14235633, 0.16394294, 0.18551941, 0.22370139/
contains
subroutine set_iff_param
character(len=80) :: fname
logical :: ex
integer :: i, j
rcov = covalentRadD3(1:94)
r2r4 = sqrt_z_r4_over_r2(1:94)
call valel(val_e)
fname = trim(XTBHOME)//'.param.xtbiff'
inquire (file=fname, exist=ex)
if (ex) then
write (*, *) 'reading parameter file', trim(fname)
open (unit=2, file=fname)
read (2, *) par_rep_scal
read (2, *) par_d3_a1
read (2, *) par_d3_a2
read (2, *) par_d3_s8
read (2, *) par_chrg_lp ! / 1.8 for Z > 10 in setlmo
read (2, *) par_chrg_sig
read (2, *) par_chrg_pi ! x 3.0 for deloc pi in setlmo
read (2, *) par_pos1_lp
read (2, *) par_es_damp
read (2, *) par_xh1
read (2, *) par_xh2
read (2, *) par_drude_fc
do i = 1, 86
read (2, *) j, r0scal(i)
end do
close (2)
else
write (*, *) 'taking internal default parameters'
par_rep_scal = 0.1232398
par_d3_a1 = 0.4459020
par_d3_a2 = 4.4216615
par_d3_s8 = 2.0000000
par_chrg_lp = 3.1064458
par_chrg_sig = 2.7000000
par_chrg_pi = 0.8892689
par_pos1_lp = 3.7082486
par_es_damp = 0.2298506
par_xh1 = 0.3614582
par_xh2 = 6.7354042
par_drude_fc = 0.9811899
r0scal(1) = 0.6500000
r0scal(2) = 0.6500000
r0scal(3) = 0.8500000
r0scal(4) = 1.1000000
r0scal(5) = 1.2000000
r0scal(6) = 1.2606324
r0scal(7) = 1.3744700
r0scal(8) = 1.1377692
r0scal(9) = 0.9300000
r0scal(10) = 0.8500000
r0scal(11) = 0.8500000
r0scal(12) = 1.3000000
r0scal(13) = 1.3500000
r0scal(14) = 1.3500000
r0scal(15) = 1.6000000
r0scal(16) = 1.6000000
r0scal(17) = 1.6000000
r0scal(18) = 0.9000000
r0scal(19) = 0.8500000
r0scal(20) = 1.4000000
r0scal(21) = 1.3500000
r0scal(22) = 1.3500000
r0scal(23) = 1.3500000
r0scal(24) = 1.3500000
r0scal(25) = 1.3500000
r0scal(26) = 1.3500000
r0scal(27) = 1.6000000
r0scal(28) = 1.6000000
r0scal(29) = 1.6000000
r0scal(30) = 1.6000000
r0scal(31) = 1.5500000
r0scal(32) = 1.5500000
r0scal(33) = 1.5500000
r0scal(34) = 1.6000000
r0scal(35) = 1.6000000
r0scal(36) = 0.9000000
r0scal(37) = 0.9500000
r0scal(38) = 1.5000000
r0scal(39) = 1.3500000
r0scal(40) = 1.3500000
r0scal(41) = 1.6000000
r0scal(42) = 1.3500000
r0scal(43) = 1.6500000
r0scal(44) = 1.3500000
r0scal(45) = 1.6000000
r0scal(46) = 1.6000000
r0scal(47) = 1.6000000
r0scal(48) = 1.6000000
r0scal(49) = 1.3500000
r0scal(50) = 1.3500000
r0scal(51) = 1.5500000
r0scal(52) = 1.5500000
r0scal(53) = 1.6000000
r0scal(54) = 0.9500000
r0scal(55) = 0.9500000
r0scal(56) = 1.5000000
r0scal(57) = 1.3500000
r0scal(58) = 1.6000000
r0scal(59) = 1.6000000
r0scal(60) = 1.6000000
r0scal(61) = 1.6000000
r0scal(62) = 1.6000000
r0scal(63) = 1.6000000
r0scal(64) = 1.6000000
r0scal(65) = 1.6000000
r0scal(66) = 1.6000000
r0scal(67) = 1.6000000
r0scal(68) = 1.6000000
r0scal(69) = 1.6000000
r0scal(70) = 1.6000000
r0scal(71) = 1.6000000
r0scal(72) = 1.3500000
r0scal(73) = 1.6000000
r0scal(74) = 1.6000000
r0scal(75) = 1.6000000
r0scal(76) = 1.6000000
r0scal(77) = 1.6000000
r0scal(78) = 1.6000000
r0scal(79) = 1.6000000
r0scal(80) = 1.6000000
r0scal(81) = 1.4500000
r0scal(82) = 1.4500000
r0scal(83) = 1.4500000
r0scal(84) = 1.6000000
r0scal(85) = 1.6000000
r0scal(86) = 0.9500000
end if
! not fully fitted ("hand made")
! four additional CT parameters in xtbdock_energy.f (chrgtransfer)
par_drude_damp = 0.020! induction damp
par_pos_sig = par_pos1_lp
par_pos2_lp = 0.0
! which atom has LP ES interactions?
lpatom = 0
lpatom(6:9) = 1
lpatom(14:17) = 1
lpatom(32:35) = 1
lpatom(50:53) = 1
lpatom(82:85) = 1
! which atom has sigma quadrupole ES interactions?
sigatom = 0
sigatom(9) = 1
sigatom(17) = 1
sigatom(35) = 1
sigatom(53) = 1
sigatom(85) = 1
end subroutine set_iff_param
subroutine diptot(n1, n2, nl1, nl2, c1, c2, cl1, cl2, l1, l2, q1, q2, dipol)
integer, intent(in) :: n1, n2
integer, intent(in) :: nl1, nl2
real(wp), intent(in) :: c1(3, n1)
real(wp), intent(in) :: c2(3, n2)
real(wp), intent(in) :: cl1(4, n1*10)
real(wp), intent(in) :: cl2(4, n2*10)
real(wp), intent(in) :: q1(n1)
real(wp), intent(in) :: q2(n2)
integer, intent(in) :: l1(n1*10)
integer, intent(in) :: l2(n2*10)
real(wp), intent(out) :: dipol(3)
integer :: i
dipol = 0
do i = 1, nl1
dipol(1:3) = dipol(1:3) + cl1(1:3, i)*cl1(4, i) ! one off-charge at LMO
end do
do i = 1, n1
dipol(1:3) = dipol(1:3) + c1(1:3, i)*q1(i)
end do
do i = 1, nl2
dipol(1:3) = dipol(1:3) + cl2(1:3, i)*cl2(4, i) ! one off-charge at LMO
end do
do i = 1, n2
dipol(1:3) = dipol(1:3) + c2(1:3, i)*q2(i)
end do
end subroutine diptot
! compute center of mass(sum3) and moment of intertia and corresponding
! axis
! molw is the weigth, sum3 the CMA (all in a.u.)
subroutine axis(numat, nat, coord, sum3, sumw, eig, evec)
integer, intent(in) ::numat, nat(numat)
real(wp), intent(in) :: coord(3, *)
real(wp), intent(out) :: sum3(3), sumw, eig(3), evec(3, 3)
real(wp) :: t(6)
real(wp) :: x(numat), y(numat), z(numat)
real(wp) :: sumwx, sumwy, sumwz
real(wp) :: atmass
integer :: i
real(wp) :: ams(107)
data ams/1.00790d0, 4.00260d0, 6.94000d0, 9.01218d0,&
& 10.81000d0, 12.01100d0, 14.00670d0, 15.99940d0, 18.99840d0,&
& 20.17900d0, 22.98977d0, 24.30500d0, 26.98154d0, 28.08550d0,&
& 30.97376d0, 32.06000d0, 35.45300d0, 39.94800d0, 39.09830d0,&
& 40.08000d0, 44.95590d0, 47.90000d0, 50.94150d0, 51.99600d0,&
& 54.93800d0, 55.84700d0, 58.93320d0, 58.71000d0, 63.54600d0,&
& 65.38000d0, 69.73500d0, 72.59000d0, 74.92160d0, 78.96000d0,&
& 79.90400d0, 83.80000d0, 85.46780d0, 87.62000d0, 88.90590d0,&
& 91.22000d0, 92.90640d0, 95.94000d0, 98.90620d0, 101.0700d0,&
& 102.9055d0, 106.4000d0, 107.8680d0, 112.4100d0, 114.8200d0,&
& 118.6900d0, 121.7500d0, 127.6000d0, 126.9045d0, 131.3000d0,&
& 132.9054d0, 137.3300d0, &
& 138.91, 140.12, 140.91, 144.24, 147.00, 150.36, 151.97, 157.25,&
& 158.93, 162.50, 164.93, 167.26, 168.93, 173.04, 174.97,&
& 178.4900d0, 180.9479d0,&
& 183.8500d0, 186.2070d0, 190.2000d0, 192.2200d0, 195.0900d0,&
& 196.9665d0, 200.5900d0, 204.3700d0, 207.2000d0, 208.9804d0,&
& 209., 210., 222., 21*0.000d0/
sumw = 0
sumwx = 0.d0
sumwy = 0.d0
sumwz = 0.d0
do i = 1, numat
atmass = ams(nat(i))
sumw = sumw + atmass
sumwx = sumwx + atmass*coord(1, i)
sumwy = sumwy + atmass*coord(2, i)
sumwz = sumwz + atmass*coord(3, i)
end do
sum3(1) = sumwx/sumw
sum3(2) = sumwy/sumw
sum3(3) = sumwz/sumw
do i = 1, numat
x(i) = coord(1, i) - sum3(1)
y(i) = coord(2, i) - sum3(2)
z(i) = coord(3, i) - sum3(3)
end do
do i = 1, 6
t(i) = real(i, wp)*1.0e-10_wp
end do
do i = 1, numat
atmass = ams(nat(i))
t(1) = t(1) + atmass*(y(i)**2 + z(i)**2)
t(2) = t(2) - atmass*x(i)*y(i)
t(3) = t(3) + atmass*(z(i)**2 + x(i)**2)
t(4) = t(4) - atmass*z(i)*x(i)
t(5) = t(5) - atmass*y(i)*z(i)
t(6) = t(6) + atmass*(x(i)**2 + y(i)**2)
end do
call rsp(t, 3, 3, eig, evec)
eig = eig/sumw
end subroutine axis
subroutine cmadock(n, numat, nat, coord, sum3)
integer, intent(in) :: n, numat, nat(numat)
real(wp), intent(in) :: coord(3, numat)
real(wp), intent(out) :: sum3(3)
real(wp) :: ams(107)
real(wp) :: sumw, sumwx, sumwy, sumwz
integer :: i
data ams/1.00790d0, 4.00260d0, 6.94000d0, 9.01218d0,&
& 10.81000d0, 12.01100d0, 14.00670d0, 15.99940d0, 18.99840d0,&
& 20.17900d0, 22.98977d0, 24.30500d0, 26.98154d0, 28.08550d0,&
& 30.97376d0, 32.06000d0, 35.45300d0, 39.94800d0, 39.09830d0,&
& 40.08000d0, 44.95590d0, 47.90000d0, 50.94150d0, 51.99600d0,&
& 54.93800d0, 55.84700d0, 58.93320d0, 58.71000d0, 63.54600d0,&
& 65.38000d0, 69.73500d0, 72.59000d0, 74.92160d0, 78.96000d0,&
& 79.90400d0, 83.80000d0, 85.46780d0, 87.62000d0, 88.90590d0,&
& 91.22000d0, 92.90640d0, 95.94000d0, 98.90620d0, 101.0700d0,&
& 102.9055d0, 106.4000d0, 107.8680d0, 112.4100d0, 114.8200d0,&
& 118.6900d0, 121.7500d0, 127.6000d0, 126.9045d0, 131.3000d0,&
& 132.9054d0, 137.3300d0, &
& 138.91, 140.12, 140.91, 144.24, 147.00, 150.36, 151.97, 157.25,&
& 158.93, 162.50, 164.93, 167.26, 168.93, 173.04, 174.97,&
& 178.4900d0, 180.9479d0,&
& 183.8500d0, 186.2070d0, 190.2000d0, 192.2200d0, 195.0900d0,&
& 196.9665d0, 200.5900d0, 204.3700d0, 207.2000d0, 208.9804d0,&
& 209., 210., 222., 21*0.000d0/
! atomic masses
sumw = 1.e-20_wp
sumwx = 0.0_wp
sumwy = 0.0_wp
sumwz = 0.0_wp
do i = 1, n
sumw = sumw + ams(nat(i))
sumwx = sumwx + ams(nat(i))*coord(1, i)
sumwy = sumwy + ams(nat(i))*coord(2, i)
sumwz = sumwz + ams(nat(i))*coord(3, i)
end do
sum3(1) = sumwx/sumw
sum3(2) = sumwy/sumw
sum3(3) = sumwz/sumw
end subroutine cmadock
subroutine rcma(n1, xyz1, iz1, n2, xyz2, iz2, r, rmin)
integer, intent(in) :: n1, n2
real(wp), intent(in) :: xyz1(3, n1)
real(wp), intent(in) :: xyz2(3, n2)
integer, intent(in) :: iz1(n1)
integer, intent(in) :: iz2(n2)
real(wp), intent(out) :: r, rmin
real(wp) :: x1(3)
real(wp) :: x2(3)
integer :: i, j
real(wp) :: rr
call cmadock(n1, n1, iz1, xyz1, x1)
call cmadock(n2, n2, iz2, xyz2, x2)
r = sqrt((x1(1) - x2(1))**2 + (x1(2) - x2(2))**2 + (x1(3) - x2(3))**2)
rmin = 1.d+42
do i = 1, n1
do j = 1, n2
rr = sqrt((xyz1(1, i) - xyz2(1, j))**2 +&
&(xyz1(2, i) - xyz2(2, j))**2 +&
&(xyz1(3, i) - xyz2(3, j))**2)
if (rr .lt. rmin) rmin = rr
end do
end do
end subroutine rcma
! xtbdock version
subroutine rotmat(rxyz, rot)
real(wp), intent(in) :: rxyz(6)
real(wp), intent(out) :: rot(3, 3)
real(wp) :: r1(3, 3)
real(wp) :: r2(3, 3)
real(wp) :: r3(3, 3)
real(wp) :: tmp(3, 3)
r1(1, 1) = 1.0
r1(1, 2) = 0.0
r1(1, 3) = 0.0
r1(2, 1) = 0.0
r1(2, 2) = cos(rxyz(4))
r1(2, 3) = -sin(rxyz(4))
r1(3, 1) = 0.0
r1(3, 2) = sin(rxyz(4))
r1(3, 3) = cos(rxyz(4))
r2(2, 1) = 0.0
r2(2, 2) = 1.0
r2(2, 3) = 0.0
r2(1, 1) = cos(rxyz(5))
r2(1, 2) = 0.0
r2(1, 3) = sin(rxyz(5))
r2(3, 1) = -sin(rxyz(5))
r2(3, 2) = 0.0
r2(3, 3) = cos(rxyz(5))
r3(3, 1) = 0.0
r3(3, 2) = 0.0
r3(3, 3) = 1.0
r3(1, 1) = cos(rxyz(6))
r3(1, 2) = -sin(rxyz(6))
r3(1, 3) = 0.0
r3(2, 1) = sin(rxyz(6))
r3(2, 2) = cos(rxyz(6))
r3(2, 3) = 0.0
tmp = matmul(r2, r3)
rot = matmul(r1, tmp)
end subroutine rotmat
! rotate 3D-vector array around Euler angles ang
subroutine rot3(n, xyz, rotm)
integer, intent(in) :: n
real(wp), intent(inout) :: xyz(3, n)
real(wp), intent(in) :: rotm(3, 3)
integer :: i
xyz = matmul(rotm, xyz)
end subroutine rot3
subroutine rot4(n, xyz, rotm)
integer, intent(in) :: n
real(wp), intent(inout) :: xyz(4, 10*n)
real(wp), intent(in) :: rotm(3, 3)
real(wp) :: tmp(3, n)
integer :: i
tmp(1:3, 1:n) = xyz(1:3, 1:n)
tmp = matmul(rotm, tmp)
xyz(1:3, 1:n) = tmp(1:3, 1:n)
end subroutine rot4
subroutine wrc0(fname, n1, at1, xyz1)
character(len=*), intent(in) :: fname
integer, intent(in) :: n1, at1(n1)
real(wp), intent(in) :: xyz1(3, n1)
integer :: j
open (unit=1, file=fname)
write (1, '(''$coord'')')
do j = 1, n1
write (1, '(3F24.10,5x,a2)') xyz1(1:3, j), toSymbol(at1(j))
end do
write (1, '(''$end'')')
close (1)
end subroutine wrc0
subroutine wrc(fname, n1, n2, at1, at2, xyz1, xyz2, icoord)
character(len=*), intent(in) :: fname
integer, intent(in) :: n1, at1(n1)
integer, intent(in) :: n2, at2(n2)
real(wp), intent(in) :: xyz1(3, n1)
real(wp), intent(in) :: xyz2(3, n2)
real(wp), intent(in) :: icoord(6)
real(wp) :: c2(3, n2)
integer :: j
call move2(n2, xyz2, c2, icoord)
open (unit=1, file=fname)
write (1, '(''$coord'')')
do j = 1, n1
write (1, '(3F24.10,5x,a2)') xyz1(1:3, j), toSymbol(at1(j))
end do
do j = 1, n2
write (1, '(3F24.10,5x,a2)') c2(1:3, j), toSymbol(at2(j))
end do
write (1, '(''$end'')')
close (1)
end subroutine wrc
subroutine wrc2(fname, mode, n1, n2, at1, at2, xyz1, xyz2, nf, found)
character(len=*), intent(in) :: fname
integer, intent(in) :: nf, mode
integer, intent(in) :: n1, at1(n1)
integer, intent(in) :: n2, at2(n2)
real(wp), intent(in) :: found(7, *)
real(wp), intent(in) :: xyz1(3, n1)
real(wp), intent(in) :: xyz2(3, n2)
real(wp) :: c2(3, n2)
real(wp) :: icoord(6)
real(wp), parameter :: autoang = 0.52917726d0
integer :: i, j
open (unit=33, file=fname)
do i = 1, nf
write (33, *) n1 + n2
write (33, '('' SCF done '',F16.8)') found(7, i)
icoord(1:6) = found(1:6, i)
call move2(n2, xyz2, c2, icoord)
do j = 1, n1
write (33, '(a2,3F24.10)') toSymbol(at1(j)), xyz1(1:3, j)*autoang
end do
do j = 1, n2
if (mode .eq. 0) then
write (33, '(a2,3F24.10)') toSymbol(at2(j)), c2(1:3, j)*autoang ! element symbol
else
write (33, '(a2,3F24.10)') toSymbol(5), c2(1:3, j)*autoang ! Bor for visualization
end if
end do
end do
close (33)
end subroutine wrc2
subroutine wrc3(fname, n1, n2, at1, at2, xyz1, xyz2, i, found)
character(len=*), intent(in) :: fname
integer, intent(in) :: i
integer, intent(in) :: n1, at1(n1)
integer, intent(in) :: n2, at2(n2)
real(wp), intent(in) :: found(7, *)
real(wp), intent(in) :: xyz1(3, n1)
real(wp), intent(in) :: xyz2(3, n2)
real(wp) :: c2(3, n2)
real(wp) :: icoord(6)
real(wp), parameter :: autoang = 0.52917726d0
real(wp), parameter :: au = 627.509541d0
real(wp) :: f
integer :: j
f = 1.
if (i .eq. 0) f = au
open (unit=33, file=fname)
write (33, *) n1 + n2
write (33, '('' SCF done '',F16.8)') found(7, 1)*f
icoord(1:6) = found(1:6, 1)
call move2(n2, xyz2, c2, icoord)
do j = 1, n1
write (33, '(a2,3F24.10)') toSymbol(at1(j)), xyz1(1:3, j)*autoang
end do
do j = 1, n2
write (33, '(a2,3F24.10)') toSymbol(at2(j)), c2(1:3, j)*autoang ! element symbol
end do
close (33)
end subroutine wrc3
subroutine wr_grid(fname, n1, n2, at1, element, xyz1, xyz2)
character(len=*), intent(in) :: fname
integer, intent(in) :: n1, at1(n1)
integer, intent(in) :: n2
integer, intent(in) :: element
real(wp), intent(in) :: xyz1(3, n1)
real(wp), intent(in) :: xyz2(3, n2)
real(wp), parameter :: autoang = 0.52917726d0
integer :: i, j
open (unit=33, file=fname)
write (33, *) n1 + n2
write (33, *)
do j = 1, n1
write (33, '(a2,3F24.10)') toSymbol(at1(j)), xyz1(1:3, j)*autoang
end do
do j = 1, n2
write (33, '(a2,3F24.10)') toSymbol(element), xyz2(1:3, j)*autoang ! Bor for visualization
end do
close (33)
end subroutine wr_grid
! new cartesian cooordinates from internals
! move coordinates and LP centers
subroutine move(n2, nl2, xyz, cl, xyznew, clnew, rotm, coord)
integer, intent(in) :: n2, nl2
real(wp), intent(in) :: xyz(3, n2)
real(wp), intent(out) :: xyznew(3, n2)
real(wp), intent(in) :: cl(4, n2*10)
real(wp), intent(out) :: clnew(4, n2*10)
real(wp), intent(in) :: coord(6)
real(wp), intent(in) :: rotm(3, 3)
integer :: k
! rotate (its at the CMA)
xyznew = xyz
clnew = cl
if (sum(abs(coord)) .lt. 1.d-12) return
call rot3(n2, xyznew, rotm)
call rot4(nl2, clnew, rotm)
! shift
do k = 1, 3
xyznew(k, 1:n2) = xyznew(k, 1:n2) + coord(k)
clnew(k, 1:nl2) = clnew(k, 1:nl2) + coord(k)
end do
end subroutine move
! move just coordinates
subroutine move2(n2, xyz, xyznew, coord)
integer, intent(in) :: n2
real(wp), intent(in) :: xyz(3, n2)
real(wp), intent(out) :: xyznew(3, n2)
real(wp), intent(in) :: coord(6)
real(wp) :: rotm(3, 3)
integer :: k
! rotate (its at the CMA)
xyznew = xyz
call rotmat(coord, rotm)
call rot3(n2, xyznew, rotm)
! shift
do k = 1, 3
xyznew(k, 1:n2) = xyznew(k, 1:n2) + coord(k)
end do
end subroutine move2
subroutine rnorm(i, j, found, r)
integer, intent(in) :: i, j
real(wp), intent(in) :: found(7, *)
real(wp), intent(out) :: r
integer :: k
real(wp) :: x
r = 0
do k = 1, 3
r = r + (found(k, i) - found(k, j))**2
end do
do k = 4, 6
x = found(k, i) - found(k, j)
r = r + sin(0.5*x)**2
end do
r = sqrt(r)
end subroutine rnorm
! random stuff
subroutine rand6(mut, r1, r2, d) !Currently mut=0.5, r1=r2=1.0
real(wp), intent(in) :: mut, r1, r2
real(wp), intent(inout) :: d(6)
real(wp), parameter :: pi2 = 2*3.14159265358979_wp
real(wp) :: x, y, yy, f
integer :: j, k
call random_number(yy)
if (yy .lt. mut) return ! 50 % mutation rate
do j = 1, 3 ! Shift position by either -x or +x (0 Molecular structure data
type(TMolecule), intent(in) :: molA, molB
type(TMolecule), intent(inout) :: comb
integer, allocatable :: at(:)
real(wp), allocatable :: xyz(:, :)
integer :: i, j
comb%n = molA%n + molB%n
allocate (at(comb%n), source=0)
allocate (xyz(3, comb%n), source=0.0_wp)
!> Adding coords
do i = 1, molA%n
xyz(1, i) = molA%xyz(1, i)
xyz(2, i) = molA%xyz(2, i)
xyz(3, i) = molA%xyz(3, i)
end do
j = 1
do i = molA%n + 1, comb%n
xyz(1, i) = molB%xyz(1, j) + shift_geo
xyz(2, i) = molB%xyz(2, j) + shift_geo
xyz(3, i) = molB%xyz(3, j) + shift_geo
j = j + 1
end do
!> Adding Atom-Types
do i = 1, molA%n
at(i) = molA%at(i)
end do
j = 1
do i = molA%n + 1, comb%n
at(i) = molB%at(j)
j = j + 1
end do
if (allocated(comb%sym)) deallocate (comb%sym)
allocate (comb%sym(comb%n), source=' ')
deallocate (comb%sym)
call init(comb, at, xyz)
comb%chrg = molA%chrg + molB%chrg
comb%uhf = molA%uhf + molB%uhf
deallocate (at)
deallocate (xyz)
end subroutine combine_mol
end module xtb_docking_param
xtb-6.7.1/src/docking/search_nci.f90 0000664 0000000 0000000 00000132142 14650006642 0017153 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2022 Stefan Grimme, Christoph Plett
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_docking_search_nci
use xtb_mctc_accuracy, only: wp
use xtb_type_environment, only: TEnvironment
use xtb_docking_param
use xtb_iff_iffenergy, only: iff_e, intermole_probe, alignmol
use xtb_scanparam
use xtb_mctc_symbols, only: toSymbol
use xtb_type_molecule, only: TMolecule
use xtb_type_restart, only: TRestart
use xtb_setparam
use xtb_gfnff_calculator, only: TGFFCalculator,newGFFCalculator
use xtb_xtb_calculator, only: TxTBCalculator
use xtb_type_calculator, only: TCalculator
use xtb_main_setup, only: newCalculator
use xtb_geoopt
use xtb_main_defaults, only: initDefaults
use xtb_solv_state, only: solutionState
use xtb_dynamic, only: xyzsort2
use xtb_gfnff_setup, only: gfnff_setup, gfnff_input
use xtb_disp_dftd4, only: newD3Model
use xtb_single, only: singlepoint
use xtb_type_data, only: scc_results
use xtb_readin, only: xfind
use xtb_mctc_timings
use xtb_gfnff_topology, only: TGFFTopology
use xtb_type_topology, only: TTopology
use xtb_gfnff_ini, only: gfnff_ini
use xtb_topology, only: makeBondTopology
use xtb_sphereparam, only : number_walls, cavity_egrad, maxwalls, wpot
use xtb_gfnff_param, only: ini, gfnff_set_param, gfnff_param_alloc,&
& gff_print, gfnff_param_dealloc
use xtb_constrain_param, only: read_userdata
use xtb_fixparam
use xtb_disp_ncoord, only: ncoord_gfn, ncoord_erf
use xtb_scc_core, only: iniqshell
use xtb_eeq, only: goedecker_chrgeq
use xtb_basis, only: newBasisset
use xtb_gfnff_neighbor, only: TNeigh
use xtb_io_writer, only : writeMolecule
use xtb_mctc_filetypes, only : generateFileName
implicit none
private
public :: docking_search
contains
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
! find best structure globally by genetic algorithm
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
subroutine docking_search(env,molA,molB,n,n1,n2,at1,at2,neigh,xyz1,xyz2,q1,q2,c6ab,&
& z1, z2, nl1, nl2, l1, l2, cl1, cl2, qdr1, qdr2,&
& cn1, cn2, alp1, alp2, alpab, qct1, qct2,&
& den1, den2, gab1, gab2, molA_e, molB_e, cprob, emin, coord, comb)
INTERFACE
RECURSIVE SUBROUTINE Quicksort(Item, First, Last, Indices)
REAL, DIMENSION(:), INTENT(INOUT) :: Item ! array of values
INTEGER, INTENT(IN) :: First, Last
INTEGER, DIMENSION(:), INTENT(INOUT) :: Indices
END SUBROUTINE Quicksort
END INTERFACE
!> Source of errors in the main program unit
character(len=*), parameter :: source = "docking_search"
type(TEnvironment), intent(inout) :: env
integer, intent(in) :: n, n1, n2
integer, intent(in) :: nl1, nl2
integer, intent(in) :: neigh(0:n, n)
real(wp), intent(inout) ::molA_e, molB_e
real(wp), intent(in) :: xyz1(3, n1)
real(wp), intent(in) :: xyz2(3, n2)
real(wp), intent(in) :: cl1(4, n1*10)
real(wp), intent(in) :: cl2(4, n2*10)
real(wp), intent(in) :: q1(n1)
real(wp), intent(in) :: q2(n2)
real(wp), intent(in) :: c6ab(n, n)
real(wp), intent(in) :: alpab(n2, n1)
real(wp), intent(in) :: cprob(n1)
real(wp), intent(in) :: emin
real(wp), intent(in) :: coord(6)
real(wp), intent(in) :: qdr1(n1)
real(wp), intent(in) :: qdr2(n2)
real(wp), intent(in) :: z1(n1)
real(wp), intent(in) :: cn1(n1)
real(wp), intent(in) :: z2(n2)
real(wp), intent(in) :: cn2(n2)
real(wp), intent(in) :: alp1(n1)
real(wp), intent(in) :: alp2(n2)
real(wp), intent(in) :: qct1(n1, 2), qct2(n2, 2)
real(wp), intent(in) :: den1(2,4,n1),den2(2,4,n2),gab1(n1,n1),gab2(n2,n2)
integer, intent(in) :: at1(n1)
integer, intent(in) :: at2(n2)
integer, intent(in) :: l1(n1*10)
integer, intent(in) :: l2(n2*10)
type(TMolecule), intent(inout) :: molA, molB
type(TMolecule), intent(inout) :: comb
real(wp) :: E_int
real(wp), allocatable :: found(:, :), found2(:, :)
real(wp), allocatable :: xyzprobc(:, :)
real(wp), allocatable :: xyzprob3(:, :), xyzprob4(:, :)
real(wp), allocatable :: xyztmp(:, :), rprobc(:, :)
real(wp), allocatable :: xyzprob0(:), xyzprob1(:), xyzprob2(:), rprob(:)
integer, allocatable :: ind0(:), ind1(:), ind2(:), rind(:), attmp(:)
integer :: counter
real(wp) :: found_tmp(6), displ(6), c2(3, n2), f(6), bestsofar
real(wp) :: r,e,dx,dy,dz,xx1,yy1,zz1,bord,bord_rg,stepr3(3),stepr4,eshift
real(wp) :: dx_rg, dy_rg, dz_rg, xx1_rg, yy1_rg, zz1_rg
real(wp) :: r1, r2, r3, a1, a2, a3, av, sig, epq, tmpx(15), t0, t1, w0, w1
real(wp) :: dum3(3, 3), dum2(3), dum(3), pmass, rmin, mvec(3, 14)
real(wp) :: rmsd(n_opt*(n_opt + 1)/2)
real(wp) :: dx2, dy2, dz2
real*4 :: r4
integer :: i, j, k, nang, nr, ii, jj, ns, icycle, maxs, iseed(2)
integer :: kk = 0
integer :: m1, m2, m3, l, nn, ndim, ll, kkk, kkkk, mfrag, maxlow, nclust, ierr
integer :: mm1, mm2, mm3, maxpock, icssym
integer, allocatable :: atfrag(:), molvec(:), iatnum(:)
real(wp), allocatable :: xyzfrag(:, :)
logical :: tooclose
integer :: maxstruc
character(len=100) :: warning
real(wp) :: xyz_tmp(3, molB%n)
integer, external :: ncore
!> GFN-FF Calculator
class(TCalculator), allocatable :: calc
type(TGFFCalculator) :: gff_calc
type(TGFFTopology) :: topo_backup, topo_xTB
type(TNeigh) :: neigh_backup
type(TTopology) :: bonds
!> Parameterfile
character(len=:), allocatable :: pfile
character(len=:), allocatable :: fnv
character(len=*), parameter :: p_fname_param_gfn0 = 'param_gfn0-xtb.txt'
character(len=*), parameter :: p_fname_param_gfn1 = 'param_gfn1-xtb.txt'
character(len=*), parameter :: p_fname_param_gfn2 = 'param_gfn2-xtb.txt'
character(len=*), parameter :: p_fname_param_gfnff = '.param_gfnff-xtb'
!> Restart
type(TRestart) :: chk
!> SCC results
type(scc_results) :: results
!> Opt variable
real(wp) :: egap, et, etot, grad(3, n), sigma(3, 3)
! integer :: maxiter, maxcycle_in,olev
logical :: pr, initial_sp, fail
logical :: restart = .false.
!> Dummy
integer, allocatable :: tmp_unit
integer :: itemp = 64, iopt = 96, iprob = 30, ifinal = 31
integer :: itopo = 32, ipocket = 53, ichr = 33, iscreen = 34
!> Pocket optimization
real(wp), allocatable :: xyz_pocket(:, :, :)
real(wp), allocatable :: pocket_e(:)
!> Structure after Optimization
real(wp), allocatable :: xyz_opt(:, :, :)
!> Final energies
real(wp), allocatable :: final_e(:)
real(wp) :: tmp_e
!> Minimumposition
integer :: minpos
!> For outprint
character(len=:),allocatable :: extension, fin_name
!> Parameter
real(wp), parameter :: pi2 = 2*3.14159265358979_wp
real(wp), parameter :: pi = 3.14159265358979_wp
real(wp), parameter :: au = 627.509541_wp
real(wp), parameter ::autoang = 0.52917726_wp
character*80 atmp
data mvec/1., 0., 0., 0., 1., 0., 0., 0., 1.,&
&-1., 0., 0., 0, -1., 0., 0., 0., -1.,&
& 1., 1., 1., -1., -1., -1.,&
&-1., 1., 1., 1., -1., 1., 1., 1., -1.,&
& 1., -1., -1., -1., 1., -1., -1., -1., 1./
call start_timing(4)
write (env%unit, *)
write (env%unit, *) '=============================================='
write (env%unit, *) '| Starting Energy Screening |'
write (env%unit, *) '=============================================='
write (env%unit, *)
if (.not. fulle) write (env%unit, *) ' Fast Mode selected (recommended)'
if (.not. fulle) write (env%unit, *) ' If ATM term should be included, use -atm option.'
if (.not. fulle) write (env%unit, *)
! just output
call axis(n1, at1, xyz1, dum, pmass, dum2, dum3)
r1 = sqrt(dum2(1) + dum2(2) + dum2(3))
call axis(n2, at2, xyz2, dum, pmass, dum2, dum3)
r2 = sqrt(dum2(1) + dum2(2) + dum2(3))
call rcma(n1, xyz1, at1, n2, xyz2, at2, r, rmin)
write (env%unit, '('' Method for final opts. :'',1x,a )') optlvl
write (env%unit, '('' # of genetic optimizations:'',1x,i0 )') maxgen
write (env%unit, '('' # of parents :'',1x,i0 )') maxparent
write (env%unit, '('' # of final geo. opts. :'',1x,i0 )') n_opt
write (env%unit, '('' Rare gas grid step size :'',F8.2)') stepr
write (env%unit, '('' ang step size /deg :'',F8.2)') stepa
write (env%unit, '('' # angular grid points :'',1x,i0 )') (360/int(stepa))**3
write(*,*)
if (pocket_grid) write (env%unit, '('' Performing pocket search'')')
if (stack_grid) write (env%unit, '('' Performing stack search'')')
if (angular_grid) write (env%unit, '('' Performing angular search'')')
write(*,*)
!Calculator prep
call combine_mol(comb, molA, molB) !molB is shifted far away from molA
!Setting up z
do i = 1, comb%n
comb%z(i) = comb%at(i) - ncore(comb%at(i))
! lanthanides without f are treated as La
if (comb%at(i) .gt. 57 .and. comb%at(i) .lt. 72) comb%z(i) = 3
end do
call open_file(itemp, 'opt_tmp', 'w')
tmp_unit = env%unit
env%unit = itemp
if (optlvl == 'gfnff') fnv = xfind(p_fname_param_gfnff)
if (optlvl == 'gfn2') fnv = xfind(p_fname_param_gfn2)
if (optlvl == 'gfn0') fnv = xfind(p_fname_param_gfn0)
if (optlvl == 'gfn1') fnv = xfind(p_fname_param_gfn1)
call newCalculator(env, comb, calc, fnv, restart, acc)
call initDefaults(env, calc, comb, gsolvstate_iff)
write(*,*) 'initialization done'
select type (calc)
type is (TGFFCalculator)
topo_backup = calc%topo !topo is from molA and molB that are far away
neigh_backup = calc%neigh
end select
pr = .false.
initial_sp = .true.
!>Silent GFN calculations (No charge file or anything is written)
set%silent = .true.
gff_print = .false.
set%pr_finalstruct = .false.
!> SP molA
set%ichrg = nint(molA%chrg)
select type (calc)
type is (TGFFCalculator)
!With p_modh_old the next step craches sometimes for really large systmes
call restart_gff(env, molA, calc)
call calc%singlepoint(env,molA,chk,1,.false.,etot,grad,sigma,egap,results)
do i = 1, molA%n
topo_backup%qa(i) = calc%topo%qa(i) !Done to ensure right charge assignment to molecules
end do
molA_e = etot
type is (TxTBCalculator)
molA_e = pre_e_A
end select
!> SP molB
set%ichrg = nint(molB%chrg)
select type (calc)
type is (TGFFCalculator)
call restart_gff(env, molB, calc)
call calc%singlepoint(env,molB,chk,1,.false.,etot,grad,sigma,egap,results)
do i = 1, molB%n
topo_backup%qa(i + molA%n) = calc%topo%qa(i)!Charges from molB for right partial charges
end do
molB_e = etot
!> Topo of both single molecules together
type is (TxTBCalculator)
molB_e = pre_e_B
end select
etot = 0.0_wp; grad = 0.0_wp; sigma = 0.0_wp; egap = 0.0_wp
env%unit = tmp_unit
call close_file(itemp)
call remove_file(itemp)
write (env%unit, '('' Total '', a,'' energy molecule 1: '', F16.10)') optlvl, molA_e
write (env%unit, '('' Total '', a,'' energy molecule 2: '', F16.10)') optlvl, molB_e
!> Setting charge back to combined ones
set%ichrg = nint(comb%chrg)
write (env%unit, *)
write (env%unit, *) '-----------------------------'
write (env%unit, *) ' Grid based energy screening '
write (env%unit, *) '-----------------------------'
write (env%unit, *)
!>Getting borders
xx1 = maxval(xyz1(1, 1:n1)) - minval(xyz1(1, 1:n1))
yy1 = maxval(xyz1(2, 1:n1)) - minval(xyz1(1, 1:n1))
zz1 = maxval(xyz1(3, 1:n1)) - minval(xyz1(1, 1:n1))
dum(1) = xx1
dum(2) = yy1
dum(3) = zz1
dx2 = maxval(xyz2(1, 1:n2)) - minval(xyz2(1, 1:n2)) !On every side, molB has to have space
dy2 = maxval(xyz2(2, 1:n2)) - minval(xyz2(2, 1:n2))
dz2 = maxval(xyz2(3, 1:n2)) - minval(xyz2(3, 1:n2))
dum2(1) = dx2
dum2(2) = dy2
dum2(3) = dz2
bord = maxval(abs(dum)) + maxval(dum2) + 2 !Max bond distance of 2 considered
bord_rg = 30 !Additional border increase for RG scan
!> Angular search grid
dx = maxval(xyz1(1, 1:n1)) - minval(xyz1(1, 1:n1)) + bord
dy = maxval(xyz1(2, 1:n1)) - minval(xyz1(2, 1:n1)) + bord
dz = maxval(xyz1(3, 1:n1)) - minval(xyz1(3, 1:n1)) + bord
xx1 = minval(xyz1(1, 1:n1)) - bord*0.5
yy1 = minval(xyz1(2, 1:n1)) - bord*0.5
zz1 = minval(xyz1(3, 1:n1)) - bord*0.5
stepr3(1) = dx/3
stepr3(2) = dy/3
stepr3(3) = dz/3
mm1 = 4
mm2 = 4
mm3 = 4 !Grid with 256 points
!> RG Grid (larger to have more points for pocket search, cheap)
dx_rg = dx + bord_rg
dy_rg = dy + bord_rg
dz_rg = dz + bord_rg
xx1_rg = xx1 - bord_rg*0.5
yy1_rg = yy1 - bord_rg*0.5
zz1_rg = zz1 - bord_rg*0.5
!> Increase Gridsize for RG-Scan additionally to have enough points for pocket search
m1 = 1 + int((dx_rg)/stepr)
m2 = 1 + int((dy_rg)/stepr)
m3 = 1 + int((dz_rg)/stepr)
icssym = 0
if (cssym) then
dx2 = dx - bord
dy2 = dy - bord
dz2 = dz - bord
if (dx2 .lt. dy2 .and. dx2 .lt. dz2) then
m1 = m1/2
mm1 = mm1/2
xx1 = xx1 + bord*0.5
icssym = 1
end if
if (dy2 .lt. dx2 .and. dy2 .lt. dz2) then
m2 = m2/2
mm2 = mm2/2
yy1 = yy1 + bord*0.5
icssym = 2
end if
if (dz2 .lt. dx2 .and. dz2 .lt. dy2) then
m3 = m3/2
mm3 = mm3/2
zz1 = zz1 + bord*0.5
icssym = 3
end if
write (*, '('' # Cs symmetry red. :'',i1 )') icssym
end if
nn = m1*m2*m3
if (maxparent < 28) then
maxparent = 28 !Otherwise the computation crashes as more structures than parents are present
call env%warning('Too few maxparent, taking 28', source)
end if
maxpock = 10 ! max number of pockets
ndim = maxparent**2 !size of gene pool
nclust = 0
allocate (found(7, ndim), found2(7, ndim)) ! main arrays for gen ensemble
found = 0
found2 = 0
write (*, '('' # probe RG points :'',i0 )') nn
allocate (xyzprob0(nn), xyzprob1(nn),&
&xyzprob2(nn), xyzprobc(3, nn),&
&ind0(nn), ind1(nn), ind2(nn))
xyzprob0 = 0
xyzprob1 = 0
xyzprob2 = 0
!ccccccccccccc
! R grid for RG atom
!ccccccccccccc
dx_rg = xx1_rg
l = 0
do i = 1, m1
dum(1) = dx_rg
dy_rg = yy1_rg
do j = 1, m2
dum(2) = dy_rg
dz_rg = zz1_rg
do k = 1, m3
dum(3) = dz_rg
l = l + 1
xyzprobc(1:3, l) = dum(1:3)
dz_rg = dz_rg + stepr
end do
dy_rg = dy_rg + stepr
end do
dx_rg = dx_rg + stepr
end do
if (debug) then
call wr_grid('RG_grid.xyz', molA%n, nn, molA%at, 36, molA%xyz, xyzprobc)
end if
!> Raregas atom check around MolA
!$omp parallel do default(none) &
!$omp shared(xyzprob0,xyzprob1,xyzprob2,n1,nl1,at1,q1,xyz1,cl1,l1,cn1,cprob,nn,xyzprobc) &
!$omp private(l,e,epq,dum)
do l = 1, nn
dum(1:3) = xyzprobc(1:3, l)
call intermole_probe(n1, nl1, at1, q1, xyz1, cl1,&
&dum, l1, cn1, cprob,&
&e, epq)
xyzprob0(l) = e
xyzprob1(l) = e + epq
xyzprob2(l) = e - epq
end do
!$omp end parallel do
do i = 1, nn
ind0(i) = i
ind1(i) = i
ind2(i) = i
end do
call Qsort(xyzprob0, 1, nn, ind0) ! sort for E neutral
call Qsort(xyzprob1, 1, nn, ind1) ! sort for probe + 0.1 charge
call Qsort(xyzprob2, 1, nn, ind2) ! sort for probe - 0.1 charge
if (debug) then
call wr_grid('best_RG_position.xyz', molA%n, 1, molA%at, 36, molA%xyz, xyzprobc(1:3, ind0(1)))
end if
write (*, '('' Best rare gas probe energy/kcal :'',F8.2)') xyzprob0(1)*au
write (*, '('' +0.1 charged probe energy/kcal:'',F8.2)') xyzprob1(1)*au
write (*, '('' -0.1 charged probe energy/kcal:'',F8.2)') xyzprob2(1)*au
!cccccccccccccccccccccccccccccccccccccccccc
! clustering based on RG filled pockets
!cccccccccccccccccccccccccccccccccccccccccc
!---------------------------------------------------------- start pocket search
if (pocket_grid) then
write(*,*)
write (*,*) ' Starting pocket search'
write(*,*)
if (nn/4 < mxcent_clust) mxcent_clust = nn/4 !Default mxcent_clust=500
allocate(atfrag(mxcent_clust),molvec(mxcent_clust),iatnum(mxcent_clust),xyzfrag(3,mxcent_clust))
do i = 1, mxcent_clust
xyzfrag(1:3, i) = xyzprobc(1:3, ind0(i))
atfrag(i) = probe_atom_type
end do
molvec = 0
call mrec(mfrag, xyzfrag, mxcent_clust, atfrag, molvec) ! recursive mol splitting into non-bonded fragments
! mfrag is the number of fragments that the best 500 gridpoints xyzfrag were split into
! molvec tells to which nci fragment the respective gridpoint belongs to
! if all scanned gridpoints are close, only one fragment results and every value of molvec will be 1
iatnum = 0
do i = 1, mxcent_clust
k = molvec(i)
iatnum(k) = iatnum(k) + 1
end do
! now generate fragment geom
kk = 0
do i = 1, mfrag
k = iatnum(i)
allocate (xyztmp(3, k), attmp(k))
xyztmp = 0.0d0
attmp = 0
l = 0
do j = 1, mxcent_clust
if (molvec(j) .eq. i) then !gridpoint j belongs to fragment number i
l = l + 1
xyztmp(1:3, l) = xyzfrag(1:3, j)
attmp(l) = atfrag(j)
end if
end do
if (debug) then
call wr_grid('pocket_grid.xyz', molA%n, k, molA%at, 36, xyz1, xyztmp)
end if
! xyztmp contains now each gridpoint belonging to fragment i
! same for attmp (anyway always probe_atom_type)
! determine size (=R) of gridpoint cluster belonging to fragment i
call axis(k, attmp, xyztmp, dum, pmass, dum2, dum3)
r = sqrt(dum2(1) + dum2(2) + dum2(3))
!> check if moleculeB is small enough to fit in gridpoint cluster of fragmen i
if (r/r2 .gt. 0.5 .and. k .gt. 10) then
displ = 0
!> Align xyz2 into gridpoint cluster number i by placing it in the middle and
! performing random mutations on the xyz coords and the rotation angles
! Each position is scanned by dispersion energy and the lowest one is given back as displ
call alignmol(k, n2, attmp, at2, xyztmp, xyz2, displ)
kk = kk + 1
found2(1:6, kk) = displ(1:6)
end if
deallocate (xyztmp, attmp)
end do
write (*, '(''# pocket optimizations :'',2i5 )') kk
allocate (xyz_pocket(3, comb%n, kk))
allocate (pocket_e(kk))
!> Prepare optimization
set%opt_logfile = 'pocket_opt.xyz'
call open_file(ipocket, 'pocket.xyz', 'w')
call open_file(itemp, 'opt_tmp', 'w')
tmp_unit = env%unit
env%unit = itemp
do i = 1, kk
displ(1:6) = found2(1:6, i)
found_tmp = found2(1:6, i)
call move2(molB%n, molB%xyz, xyz_tmp, found_tmp) !return xyz_tmp that is with found_tmp transformed molB%xyz
counter = 0
do j = 1, molA%n
comb%xyz(1:3, j) = molA%xyz(1:3, j) !comb overwritten with A, as it is changed upon geo_opt
end do
do j = molA%n + 1, molA%n + molB%n
counter = counter + 1
comb%xyz(1:3, j) = xyz_tmp(1:3, counter) !combined molA and shifted molB
end do
!> Select which kind of optimization is done
select type (calc)
type is (TGFFCalculator)
call restart_gff(env, comb, calc)
!Keeping Fragments and charges
calc%neigh%nbond = neigh_backup%nbond
calc%neigh%nb = neigh_backup%nb
calc%topo%qfrag = topo_backup%qfrag
calc%topo%qa = topo_backup%qa
calc%topo%fraglist = topo_backup%fraglist
calc%topo%nfrag = topo_backup%nfrag
type is (TxTBCalculator)
call restart_xTB(env, comb, chk, calc)
end select
call geometry_optimization&
& (env, comb, chk, calc, egap, set%etemp, set%maxscciter, set%optset%maxoptcycle,&
& etot, grad, sigma, set%optset%optlev, pr, initial_sp, fail)
grad = 0.0_wp; sigma = 0.0_wp; egap = 0.0_wp
do k = 1, 3
do j = 1, comb%n
xyz_pocket(k, j, kk) = comb%xyz(k, j)
end do
end do
pocket_e(i) = etot
write (*, '(''pocket '',i3,'' E /au :'',f9.2)') i, etot
write (ipocket, '(i0)') comb%n
write (ipocket, '(f20.14)') etot
do j = 1, comb%n
write (ipocket, '(a4,2x,3f20.14)') comb%sym(j), comb%xyz(:, j)*autoang
end do
end do
call close_file(ipocket)
call remove_file(itemp)
call delete_file(set%opt_logfile)
env%unit = tmp_unit
if (.not. stack_grid .AND. .not. angular_grid) then
call stop_timing(4)
return !Than nothing has to be done anymore
end if
end if
!---------------------------------------------------------- end pocket search
!---------------------------------------------------------- start stack grid
if (stack_grid) then
write(*,*)
write (*,*) ' Starting stack search'
! move along axis seperately. This solves the identical molecule/stack case
! mxcma= 20 !Setting for nice pictures
ii = mxcma ! SETING
nn = 4*14*ii ! all directions incl. diagonal axis, none+ three rotsations of molB on each position
if (cssym) nn = 4*9*ii
write (*, '('' Grid points: '',i0 )') nn
allocate (rprobc(6, nn), rprob(nn), source=0.0_wp)
allocate (rind(nn), source=0)
stepr4 = 0.2*float(n1 + n2)**0.10d0 ! increase step for larger systems
! stepr4=2 !Setting for nice pictures
l = 0
do j = 1, 14
if (cssym .and. mvec(icssym, j) .lt. 0) cycle ! exclude sym. equiv.
r = stepr4
if (j .gt. 6) r = stepr4/sqrt(3.)
dum2(1:3) = mvec(1:3, j)*r !mvec just vector in every direction in 3D
do i = 1, ii !Moving stepwise along one vector of mvec (one direction in 3D)
displ = 0
displ(1:3) = float(ii + 1 - i)*dum2(1:3) !Point in distance ii-i in every direction
l = l + 1
rprobc(1:6, l) = displ(1:6)
do k = 4, 6
displ(k) = pi !Rotationangles = Pi
l = l + 1
rprobc(1:6, l) = displ(1:6)
end do
end do
end do
!$omp parallel do default(none) reduction(+:rprob) &
!$omp shared(env,nn,n,n1,n2,at1,at2,neigh,xyz1,xyz2,q1,q2,c6ab,&
!$omp z1,z2,nl1,nl2,l1,l2,cl1,cl2,qdr1,qdr2,cn1,cn2,alp1,&
!$omp alp2,alpab,qct1,qct2,den1,den2,gab1,gab2,rprobc) &
!$omp private(l,e,displ)
do l = 1, nn
displ(1:6) = rprobc(1:6, l)
call iff_e(env, n, n1, n2, at1, at2, neigh, xyz1, xyz2, q1, q2, c6ab,&
&z1, z2, nl1, nl2, l1, l2, cl1, cl2,&
&qdr1, qdr2,&
&cn1, cn2, alp1, alp2, alpab, qct1, qct2,&
&den1, den2, gab1, gab2,&
&.false., -1, e, displ)
rprob(l) = e
end do
!$omp end parallel do
if (debug) then
call wr_grid('stack_grid.xyz', molA%n, nn, molA%at, &
& 36, xyz1, rprobc(1:3, 1:nn))
end if
do i = 1, nn
rind(i) = i
end do
call Qsort(rprob, 1, nn, rind) ! sort for E neutral
write (*, '('' lowest found /kcal :'',F8.2)') rprob(1)*au
do i = 1, nn/100 ! take some lowest
if (rprob(i) .lt. 0.1) then
nclust = nclust + 1
found(1:6, nclust) = rprobc(1:6, rind(i))
found(7, nclust) = rprob(rind(i))
end if
end do
ll = nclust
if(debug) then
if (rprob(1)*au .lt. bestsofar) then
call wrc3('best_after_angular_stack.xyz', n1, n2, at1, at2, xyz1, xyz2, 0, found)
bestsofar = rprob(1)*au
end if
deallocate (rprobc, rprob, rind)
endif
end if
!--------------------------------------------------------------- end stack grid
!--------------------------------------------------------------- start angular rot
if (angular_grid) then
write(*,*)
write (*, *) ' Starting angular search'
m1 = 360/int(stepa) ! angular grid with stepa deg steps
maxlow = mm1*mm2*mm3 + 2 ! crude R grid dim
nn = maxlow*m1*m1*m1
write (*, '('' Grid points:'',i0 )') nn
allocate (xyzprob3(3, maxlow), xyzprob4(7, nn), source=0.0_wp)
! include the best +/- polar points for the angular grid
xyzprob3(1:3, 1) = xyzprobc(1:3, ind1(1)) ! take only lowest
xyzprob3(1:3, 2) = xyzprobc(1:3, ind2(1)) ! " " "
deallocate (xyzprobc, xyzprob0, xyzprob1, xyzprob2, ind0, ind1, ind2)
! just a very crude grid over entire molecule 1 for filling up points
dx = xx1
l = 2 !The first two are best +/- polarized points
do i = 1, mm1
dum(1) = dx
dy = yy1
do j = 1, mm2
dum(2) = dy
dz = zz1
do k = 1, mm3
dum(3) = dz
l = l + 1
xyzprob3(1:3, l) = dum(1:3)
dz = dz + stepr3(3) !stepr3=10*stepr
end do
dy = dy + stepr3(2)
end do
dx = dx + stepr3(1)
end do
stepa = pi2/float(m1 - 1)
if (debug) then
call wr_grid('angular_grid.xyz', molA%n, maxlow, molA%at, 36, xyz1, xyzprob3)
end if
! loop over R points
!$omp parallel do default(none) &
!$omp shared(env,xyzprob4,maxlow,m1,stepa,xyzprob3,n,n1,n2,at1,at2,neigh,&
!$omp xyz1,xyz2,q1,q2,c6ab,z1,z2,nl1,nl2,l1,l2,cl1,cl2,&
!$omp qdr1,qdr2,cn1,cn2,alp1,alp2,alpab,qct1,qct2,den1,den2,gab1,gab2)&
!$omp private(icycle,i,j,k,e,displ,l)
do icycle = 1, maxlow !Maxlow is dimension of R grid with stepr3
l = 0
!> Rotating at each crude gridpoint moleculeB stepwise
do i = 1, m1
displ(4) = (i - 1)*stepa
do j = 1, m1
displ(5) = (j - 1)*stepa
do k = 1, m1
displ(6) = (k - 1)*stepa
displ(1:3) = xyzprob3(1:3, icycle)
call iff_e(env, n, n1, n2, at1, at2, neigh,&
&xyz1, xyz2, q1, q2, c6ab, z1, z2,&
&nl1, nl2, l1, l2, cl1, cl2,&
&qdr1, qdr2,&
&cn1, cn2, alp1, alp2, alpab, qct1, qct2,&
&den1, den2, gab1, gab2,&
&.false., -1, e, displ)
l = k + m1*(j - 1) + m1**2*(i - 1) + (icycle - 1)*maxlow
xyzprob4(1:6, l) = displ(1:6)
xyzprob4(7, l) = e
end do
end do
end do
end do
!$omp end parallel do
call sort6(nn, xyzprob4)
!--------------------------------------------------------------------- end angular rot
!> Adding stack and angular search
ll = 5*maxparent + nclust
!> Performing an energy computation of stack and angular search structures
!> to rank them energetically
!$omp parallel do default(none) &
!$omp shared(env,found,ll,xyzprob4,nclust,n,n1,n2,at1,at2,neigh,xyz1,&
!$omp xyz2,q1,q2,c6ab,z1,z2,nl1,nl2,l1,l2,cl1,cl2,qdr1,qdr2,cn1,cn2,&
!$omp alp1,alp2,alpab,qct1,qct2,den1,den2,gab1,gab2) &
!$omp private(i,displ,e)
do i = 1, ll ! approx nparent*2 because doubles appear
if (i .le. nclust) then
displ(1:6) = found(1:6, i) !Lowest of stack search
else
displ(1:6) = xyzprob4(1:6, i - nclust) !Lowest of angular search
end if
call iff_e(env, n, n1, n2, at1, at2, neigh, xyz1, xyz2, q1, q2, c6ab,&
&z1, z2, nl1, nl2, l1, l2, cl1, cl2,&
&qdr1, qdr2,&
&cn1, cn2, alp1, alp2, alpab, qct1, qct2,&
&den1, den2, gab1, gab2,&
&.false., -1, e, displ)
found(1:6, i) = displ(1:6)
found(7, i) = e*au
end do
!$omp end parallel do
deallocate (xyzprob3, xyzprob4)
end if
call doubles(ll, ndim, 3.0d0, 0.1d0, found) ! Sorting out doubles
call sort6(ll, found)
if(debug) call wrc3('best_before_gen.xyz', n1, n2, at1, at2, xyz1, xyz2, 1, found)
write (*, *)
write (*, *) ' Interaction energy of lowest structures so far in kcal/mol:'
do i = 1, 10
write (*, '( F14.2)') found(7, i)
end do
write(*,*)
! write (*, *) '(Rx,Ry,Rz,alp,bet,gam,Eint in kcal/mol):'
! do i = 1, 10
! write (*, '(6F8.3,5x,F14.2)') found(1:7, i)
! end do
if (debug) then
call wrc2('genstart.xyz', 1, n1, n2, at1, at2, xyz1, xyz2,&
&maxparent, found)
end if
!-------------------------------------------------------------- start genetic optimization
write (*, *) '------------------------------'
write (*, *) 'genetic optimization algorithm'
write (*, *) '------------------------------'
write (*, *) ' cycle Eint/kcal/mol average Eint'
do icycle = 1, maxgen
!$omp parallel do default(none) &
!$omp shared(env,found2,maxparent,found,n,n1,n2,at1,at2,neigh,&
!$omp xyz1,xyz2,q1,q2,c6ab,z1,z2,nl1,nl2,l1,l2,cl1,cl2,qdr1,qdr2,cn1,cn2,&
!$omp alp1,alp2,alpab,qct1,qct2,den1,den2,gab1,gab2) &
!$omp private(i,j,ii,displ,e,f)
! LOOP HEAD -------------------------------------------------------
do i = 1, maxparent
do j = 1, maxparent
ii = (i - 1)*maxparent + j
call crossover(0.00d0, f)
displ(1:6) = found(1:6, i)*f(1:6) + found(1:6, j)*(1.0d0 - f(1:6))
if (i .ne. j) call rand6(0.5d0, 1.0d0, 1.0d0, displ) ! mutation only on childs
call iff_e(env, n, n1, n2, at1, at2, neigh, xyz1, xyz2, q1, q2, c6ab,&
&z1, z2, nl1, nl2, l1, l2, cl1, cl2,&
&qdr1, qdr2,&
&cn1, cn2, alp1, alp2, alpab, qct1, qct2,&
&den1, den2, gab1, gab2,&
&.false., -1, e, displ) ! only e returned
found2(1:6, ii) = displ(1:6)
found2(7, ii) = e*au
end do
end do
!$omp end parallel do
ii = maxparent**2
call doubles(ii, ndim, 3.0d0, 0.10d0, found2) ! SETING
call sort6(ii, found2)
found = found2
if (debug) call wrc2('structures_after_gen.xyz', 0, n1, n2, at1, at2, xyz1,&
& xyz2, n_opt, found)
call wrc3('best_after_gen.xyz', n1, n2, at1, at2, xyz1, xyz2, 1, found)
av = sum(found(7, 1:maxparent))/float(maxparent)
sig = 0
do i = 1, n_opt
sig = sig + (found(7, i) - av)**2
end do
sig = sqrt(sig/float(n_opt - 1))
write(*,'(4x,i0,7x,F7.1,5x,F8.1,5x)')&
&icycle, found(7, 1), av
if (sig .lt. 0.3d0) exit
! LOOP END ------
end do
call stop_timing(4)
!-------------------------------------------------------------- end genetic optimization
!> Check if ensemble runtype is requested
if (docking_ens) then
n_opt = 0
do i = 1, ii
!> Increase number of optimizations for each structure with an Eint of lower than -0.1 kcal/mol
if (found(7, i) < -0.1) then
n_opt = n_opt + 1
else
exit
end if
end do
end if
!-------------------------------------------------------------- final optimization
call open_file(iopt, 'optimized_structures.xyz', 'w')
call open_file(itemp, 'opt_tmp', 'w')
tmp_unit = env%unit
env%unit = itemp
set%opt_logfile = 'final_opt.xyz'
if (pocket_grid) then !include pocket search
allocate (xyz_opt(3, n, n_opt + kk), source=0.0_wp)
allocate (final_e(n_opt + kk), source=0.0_wp)
else
allocate (xyz_opt(3, n, n_opt), source=0.0_wp)
allocate (final_e(n_opt), source=0.0_wp)
end if
write (*, *)
write (*, '(''Optimizing '',i0,'' best structures with '',a )') n_opt, optlvl
do icycle = 1, n_opt
found_tmp = found2(1:6, icycle)
call move2(molB%n, molB%xyz, xyz_tmp, found_tmp) !return xyz_tmp that is with found_tmp transformed molB%xyz
do j = 1, molA%n
comb%xyz(1:3, j) = molA%xyz(1:3, j) !comb overwritten with A, as it is changed upon geo_opt
end do
counter = 0
do j = molA%n + 1, molA%n + molB%n
counter = counter + 1
comb%xyz(1:3, j) = xyz_tmp(1:3, counter) !combined molA and shifted molB
end do
select type (calc)
type is (TGFFCalculator)
call restart_gff(env, comb, calc)
calc%neigh%nbond = neigh_backup%nbond
calc%neigh%nb = neigh_backup%nb
calc%topo%qfrag = topo_backup%qfrag
calc%topo%qa = topo_backup%qa
calc%topo%fraglist = topo_backup%fraglist
calc%topo%nfrag = topo_backup%nfrag
type is (TxTBCalculator)
call restart_xTB(env, comb, chk, calc)
end select
write (*, *) icycle
call start_timing(5)
call geometry_optimization &
& (env, comb, chk, calc, egap, set%etemp, set%maxscciter, set%optset%maxoptcycle,&
& etot, grad, sigma, set%optset%optlev, pr, initial_sp, fail)
grad = 0.0_wp; sigma = 0.0_wp; egap = 0.0_wp
call stop_timing(5)
do i = 1, 3
do j = 1, comb%n
xyz_opt(i, j, icycle) = comb%xyz(i, j)
end do
end do
final_e(icycle) = etot
write (iopt, '(i0)') comb%n
write (iopt, '(f20.14)') etot
do j = 1, comb%n
write (iopt, '(a4,2x,3f20.14)') comb%sym(j), comb%xyz(:, j)*autoang
end do
found(7, i) = etot
end do
env%unit = tmp_unit
call remove_file(itemp)
call close_file(iopt)
!> Include pocket structure if present
if (pocket_grid) then
do k = 1, kk
final_e(n_opt + k) = pocket_e(k)
do j = 1, comb%n
do i = 1, 3
xyz_opt(i, j, n_opt + k) = xyz_pocket(i, j, k)
end do
end do
end do
end if
!>Sorting strucutures
call sortxyz_e(n, n_opt+kk, final_e, xyz_opt)
call open_file(ifinal, 'final_structures.xyz', 'w')
do i = 1, n_opt + kk !kk=0 if no pocket search
write (ifinal, '(i0)') comb%n
write (ifinal, '(f20.14)') final_e(i)
do j = 1, comb%n
write (ifinal, '(a4,2x,3f20.14)') comb%sym(j), xyz_opt(1, j, i)*autoang, &
& xyz_opt(2, j, i)*autoang, xyz_opt(3, j, i)*autoang
end do
end do
call close_file(ifinal)
call remove_file(iopt)
! Write best structure in format of the largest input molecule
comb%xyz(:,:) = xyz_opt(:,:,1)
if(molA%n >= molB%n) then
comb%ftype=molA%ftype
else
comb%ftype=molB%ftype
end if
call generateFileName(fin_name, 'best', '', comb%ftype)
call open_file(ifinal, fin_name, 'w')
call writeMolecule(comb, ifinal, energy=final_e(1))
!If not xyz then best.xyz is written to not have api break
if(comb%ftype /= 1)then
call open_file(ifinal, 'best.xyz', 'w')
write (ifinal, '(i0)') comb%n
write (ifinal, '(f20.14)') final_e(1)
do j = 1, comb%n
write (ifinal, '(a4,2x,3f20.14)') comb%sym(j), xyz_opt(1, j, 1)*autoang, &
& xyz_opt(2, j, 1)*autoang, xyz_opt(3, j, 1)*autoang
end do
end if
call close_file(ifinal)
call delete_file(set%opt_logfile)
!> Printout Interaction Energy
write (env%unit, *)
write (env%unit, *) ' ---------------------------'
write (env%unit, *) ' Interaction energies'
write (env%unit, *) ' ---------------------------'
write (env%unit, *) 'Attention: monomers are not optimized'
write (env%unit, *) 'Interaction energies are not physical'
write(*,*)
write (env%unit, '(2x,''Lowest Interaction Energy:'',1x, F10.2, 1x, ''kcal/mol'' )') &
& (final_e(1) - molA_e - molB_e)*au
write (env%unit, *) ' # E_int (kcal/mol)'
do i = 1, n_opt + kk
E_int = (final_e(i) - molA_e - molB_e)*au
write (*, '(2x,i0,3x,F10.2)') i, E_int
end do
if (pocket_grid) then
deallocate (xyz_pocket, pocket_e)
end if
deallocate (xyz_opt, final_e)
end subroutine docking_search
!Sorts xyz according to an energy (minimum first)
!Necessary as the xyzsort and xyzsort2 does somehow not work
subroutine sortxyz_e(n, nall, e, xyz)
INTERFACE
RECURSIVE SUBROUTINE Quicksort(Item, First, Last, Indices)
REAL, DIMENSION(:), INTENT(INOUT) :: Item ! array of values
INTEGER, INTENT(IN) :: First, Last
INTEGER, DIMENSION(:), INTENT(INOUT) :: Indices
END SUBROUTINE Quicksort
END INTERFACE
integer, intent(in) :: n, nall
real(wp), intent(inout) :: e(nall), xyz(3, n, nall)
integer :: ind(nall), i, j, k
real(wp) :: e_tmp(nall), xyz_tmp(3, n, nall)
do i = 1, nall
ind(i) = i
end do
call Qsort(e, 1, nall, ind)
xyz_tmp = xyz
do i = 1, nall
do k = 1, n
do j = 1, 3
xyz(j, k, i) = xyz_tmp(j, k, ind(i))
end do
end do
end do
end subroutine sortxyz_e
subroutine restart_gff(env, mol, calc)
!> Calculation environment
type(TEnvironment), intent(inout) :: env
type(TMolecule), intent(inout) :: mol
type(TGFFCalculator), intent(inout)::calc
integer :: itopo = 32
!> Read the constrain again with new xyz only if necessary
if (constraint_xyz) then
call read_userdata(xcontrol, env, mol)
call constrain_xTB_gff(env, mol)
end if
!if(auto_walls) call number_walls=0; read_userdata(xcontrol,env,mol) !everytime new wall pot
call open_file(itopo, 'gfnff_topo', 'r')
call remove_file(itopo)
call open_file(itopo, 'charges', 'r')
call remove_file(itopo)
call calc%topo%zero
calc%update = .true.
call gfnff_param_dealloc(calc%topo)
call newD3Model(calc%topo%dispm, mol%n, mol%at)
call gfnff_set_param(mol%n, calc%gen, calc%param)
if (.not. allocated(calc%neigh%nb)) allocate (calc%neigh%nb(calc%neigh%numnb, mol%n, calc%neigh%numctr), source=0)
if (.not.allocated(calc%topo%qfrag)) &
& allocate( calc%topo%qfrag(mol%n), source = 0.0d0 )
if (.not.allocated(calc%topo%fraglist)) &
& allocate( calc%topo%fraglist(mol%n), source = 0 )
calc%topo%qfrag(1) = set%ichrg
calc%topo%qfrag(2:mol%n) = 0.0_wp
call gfnff_ini(env, .false., ini, mol, calc%gen,&
& calc%param, calc%topo, calc%neigh, set%efield, calc%accuracy)
end subroutine restart_gff
subroutine restart_xTB(env, mol, chk, calc, basisset)
!> Calculation environment
type(TEnvironment), intent(inout) :: env
type(TMolecule), intent(inout) :: mol
type(TRestart), intent(inout) :: chk
type(TxTBCalculator), intent(inout)::calc
logical, optional, intent(in) :: basisset
real(wp), allocatable :: cn(:), dcn(:, :, :), dq(:, :, :), g(:, :)
real(wp) :: er
logical :: okbas
integer :: i
allocate (cn(mol%n), g(3, mol%n))
!> Read the constrain again with new xyz only if necessary
if (constraint_xyz) then
number_walls = 0 !Reset wall potentials
do i=1, maxwalls
! deallocate(wpot(i)%list)
if(allocated(wpot(i)%list)) deallocate(wpot(i)%list)
end do
call read_userdata(xcontrol, env, mol)
call constrain_xTB_gff(env, mol)
end if
if (present(basisset)) then
if (basisset) then
deallocate (calc%basis)
allocate (calc%basis)
call newBasisset(calc%xtbData, mol%n, mol%at, calc%basis, okbas)
end if
end if
calc%etemp = set%etemp
calc%maxiter = set%maxscciter
call chk%wfn%allocate(mol%n, calc%basis%nshell, calc%basis%nao)
!> EN charges and CN
call ncoord_gfn(mol%n, mol%at, mol%xyz, cn)
if (mol%npbc > 0) then
chk%wfn%q = real(set%ichrg, wp)/real(mol%n, wp)
else
call ncoord_erf(mol%n, mol%at, mol%xyz, cn)
call goedecker_chrgeq(mol%n,mol%at,mol%xyz,real(set%ichrg,wp),cn,dcn,chk%wfn%q,dq,er,g,&
& .false., .false., .false.)
chk%wfn%q = real(set%ichrg, wp)/real(mol%n, wp)
end if
!> initialize shell charges from gasteiger charges
call iniqshell(calc%xtbData,mol%n,mol%at,mol%z,calc%basis%nshell,chk%wfn%q,chk%wfn%qsh,set%gfn_method)
call delete_file('.sccnotconverged')
call env%checkpoint("Setup for calculation failed")
end subroutine restart_xTB
subroutine constrain_xTB_gff(env, mol)
type(TEnvironment), intent(inout) :: env
type(TMolecule) :: mol
real(wp), save :: fc
logical, save :: called = .false.
!> restraining potential
if (allocated(potset%xyz)) then
if (lconstr_all_bonds) call constrain_all_bonds(mol%n, mol%at, potset%xyz)
if (lconstr_all_angles) call constrain_all_angles(mol%n, mol%at, potset%xyz)
if (lconstr_all_torsions) call constrain_all_torsions(mol%n, mol%at, potset%xyz)
call setup_constrain_pot(mol%n, mol%at, potset%xyz)
else
if (lconstr_all_bonds) call constrain_all_bonds(mol%n, mol%at, mol%xyz)
if (lconstr_all_angles) call constrain_all_angles(mol%n, mol%at, mol%xyz)
if (lconstr_all_torsions) call constrain_all_torsions(mol%n, mol%at, mol%xyz)
call setup_constrain_pot(mol%n, mol%at, mol%xyz)
end if
if (.not. called) then
called = .true.
fc = potset%pos%fc
else
potset%pos%fc = fc
end if
end subroutine constrain_xTB_gff
subroutine doubles(nlow, ndim, rthr, ethr, found)
integer, intent(in) :: nlow, ndim
real(wp), intent(in) :: rthr
real(wp), intent(in) :: ethr
real(wp), intent(inout) :: found(7, ndim)
real(wp) :: scr(7, ndim)
integer :: i, j, k
real(wp) :: r, de, dem
scr = found
do i = 1, nlow - 1
do j = i + 1, nlow
call rnorm(i, j, found, r)
de = abs(found(7, i) - found(7, j))
dem = abs(found(7, i) + found(7, j))*0.5
if (r .lt. rthr .and. de/dem .lt. ethr) then
scr(7, j) = 1.d+42
end if
if (abs(found(7, i) - found(7, j)) .lt. 1.d-3) scr(7, j) = 1.d+42 ! chiral or symmetry case
end do
end do
found = scr
end subroutine doubles
end module xtb_docking_search_nci
xtb-6.7.1/src/docking/set_module.f90 0000664 0000000 0000000 00000036173 14650006642 0017224 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2022 Christoph Plett
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
!! ========================================================================
! * WELCOME TO THE C O N S T R A I N S & S C A N S MODULE OF
! THE DOCKING ALGORITHM *
!! ------------------------------------------------------------------------
module xtb_docking_set_module
use xtb_mctc_accuracy, only: wp
use xtb_readin, only: mirror_line, getValue
use xtb_docking_param
use xtb_type_environment, only: TEnvironment
use xtb_type_identitymap, only : TIdentityMap
use xtb_type_atomlist
use xtb_mctc_strings, only : parse
use xtb_setmod
use xtb_mctc_convert, only : autokcal
implicit none
private :: wp, mirror_line, getValue
character, private, parameter :: flag = '$'
character, private, parameter :: colon = ':'
character, private, parameter :: space = ' '
character, private, parameter :: equal = '='
character, private, parameter :: hash = '#'
character, private, parameter :: dot = '.'
character, private, parameter :: comma = ','
character(len=*), private, parameter :: flag_end = flag//'end'
! Using allocatable arrays of dynamic length strings is only possible
! with a lot of hacks, so we use good'ol fixed size stack arrays.
! Let's choose something different from 42 that is not dividable by 10... ;)
! Happy debugging!
integer, private, parameter :: p_str_length = 48
integer, private, parameter :: p_arg_length = 24
public
!abstract interface
! subroutine handlerInterface(env, key, val)
! import TEnvironment
! type(TEnvironment), intent(inout) :: env
! character(len=*), intent(in) :: key
! character(len=*), intent(in) :: val
! end subroutine handlerInterface
!end interface
abstract interface
subroutine handlerInterface2(env,key,val,nat,at,idMap,xyz)
import :: wp, TEnvironment, TIdentityMap
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
type(TIdentityMap), intent(in) :: idMap
integer, intent(in) :: at(nat)
real(wp),intent(in) :: xyz(3,nat)
end subroutine handlerInterface2
end interface
contains
subroutine rdblock_docking(env, handler, line, id, copy, err, ncount)
!use xtb_setmod, only : handlerInterface
character(len=*), parameter :: source = 'set_rdblock'
type(TEnvironment), intent(inout) :: env
procedure(handlerInterface) :: handler
integer, intent(in) :: id
integer, intent(in) :: copy
integer, intent(out) :: err
integer, intent(out) :: ncount
character(len=:), allocatable, intent(out) :: line
character(len=:), allocatable :: key
character(len=:), allocatable :: val
integer :: ie
logical :: exitRun
ncount = 0
do
call mirror_line(id, copy, line, err)
if (is_iostat_end(err)) return
if (index(line, flag) .ne. 0) return
! find the equal sign
ie = index(line, equal)
if (line .eq. '') cycle ! skip empty lines
ncount = ncount + 1 ! but count non-empty lines first
if (ie .eq. 0) then! cycle
call set_logicals(env, line)
else
key = trim(line(:ie - 1))
val = trim(adjustl(line(ie + 1:)))
call handler(env, key, val)
call env%check(exitRun)
if (exitRun) then
call env%error("handler could not process input", source)
return
end if
end if
end do
end subroutine rdblock_docking
subroutine rdblock_docking2(env,handler,line,id,nat,at,idMap,xyz,err)
!use xtb_constrain_param, only : handlerInterface
use xtb_readin, only : getline => strip_line,getValue,getListValue
character(len=*), parameter :: source = 'userdata_rdblock'
type(TEnvironment), intent(inout) :: env
integer,intent(in) :: id
procedure(handlerInterface2) :: handler
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
integer,intent(out) :: err
character(len=:),allocatable,intent(out) :: line
character(len=:),allocatable :: key
character(len=:),allocatable :: val
integer :: ie, ia
logical :: exitRun
do
call getline(id,line,err)
if (is_iostat_end(err)) exit
if (index(line,flag).ne.0) exit
if (debug) write(env%unit,'("->",1x,a)') line
! find the first colon
ie = index(line,colon)
ia = index(line,equal)
if ((line == '')) cycle
if (ie == 0 .AND. ia == 0) then !Only if no : or = is in string
call set_logicals(env, line)
else
if (ia /= 0) then
key = trim(line(:ia-1))
val = trim(adjustl(line(ia+1:)))
else
key = trim(line(:ie-1))
val = trim(adjustl(line(ie+1:)))
end if
call handler(env,key,val,nat,at,idMap,xyz)
call env%check(exitRun)
if (exitRun) then
call env%error("handler could not process input", source)
return
end if
end if
enddo
end subroutine rdblock_docking2
subroutine set_docking(env, key, val)
character(len=*), parameter :: source = 'set_docking'
type(TEnvironment), intent(inout) :: env
character(len=*), intent(in) :: key
character(len=*), intent(in) :: val
integer :: err
integer :: idum
real(wp) :: ddum
logical :: ldum
logical, save :: set1 = .true.
logical, save :: set2 = .true.
logical, save :: set3 = .true.
logical, save :: set4 = .true.
logical, save :: set5 = .true.
logical, save :: set6 = .true.
select case (key)
case default ! do nothing
call env%warning("the key '"//key//"' is not recognized by scc", source)
case ('stepr')
if (getValue(env, val, ddum) .and. set1) stepr = ddum
if (stepr < 1.0) then
stepr = 1.0
call env%warning("Too small step for radial grid, taking 1.0.")
end if
set1 = .false.
case ('stepa')
if (getValue(env, val, ddum) .and. set2) stepa = ddum
if (stepa < 1.0) then
stepa = 1.0
call env%warning("Too small step for angular grid, taking 1.0. This is really expensive!")
end if
set2 = .false.
case ('nfinal')
if (getValue(env, val, idum) .and. set3) n_opt = idum
set3 = .false.
case ('maxgen')
if (getValue(env, val, idum) .and. set4) maxgen = idum
set4 = .false.
case ('maxparent')
if (getValue(env, val, idum) .and. set5) maxparent = idum
set5 = .false.
case ('nstack')
if (getValue(env, val, idum) .and. set6) mxcma = idum
set6 = .false.
end select
end subroutine set_docking
subroutine write_set_directed(ictrl)
use xtb_type_atomlist
integer, intent(in) :: ictrl
type(TAtomList) :: atl
character(len=:), allocatable :: string
integer :: i
if (directedset%n.eq.0) return
write(ictrl,'(a,"directed")') flag
if (directedset%n > 0) then
call atl%new(directedset%atoms(:directedset%n))
call atl%to_string(string)
write(ictrl,'(3x,"atoms:",1x,a)') string
endif
end subroutine write_set_directed
subroutine set_directed(env,key,val,nat,at,idMap,xyz)
character(len=*), parameter :: source = 'userdata_directed'
type(TEnvironment), intent(inout) :: env
character(len=*),intent(in) :: key
character(len=*),intent(in) :: val
integer, intent(in) :: nat
integer, intent(in) :: at(nat)
type(TIdentityMap), intent(in) :: idMap
real(wp),intent(in) :: xyz(3,nat)
type(TAtomList) :: atl
integer :: i
integer :: iat
integer :: idum
integer :: nlist
integer, allocatable :: list(:)
real(wp) :: ddum
logical :: ldum
integer :: narg
character(len=p_str_length),dimension(p_arg_length) :: argv
logical, save :: set1 = .true.
logical, save :: set2 = .true.
logical, save :: set3 = .true.
logical, save :: set4 = .true.
call atl%resize(nat)
call parse(val,comma,argv,narg)
! some debug xtb_printout
if (debug) then
do idum = 1, narg
write(env%unit,'("-->",1x,i0,":",1x,a)') idum, trim(argv(idum))
enddo
endif
select case(key)
case default ! ignore, don't even think about raising them
case('scaling factor')
if (getValue(env,val,ddum).and.set1) directedset%fc = ddum
set1 = .false.
case('elements')
call atl%new
do idum = 1, narg
! get element by symbol
if (idMap%has(argv(idum))) then
call idMap%get(list, argv(idum))
if (allocated(list)) then
call atl%add(list)
else
call env%warning("Unknown element: '"//trim(argv(idum))//"'",source)
cycle
end if
else
ldum = getValue(env,trim(argv(idum)),iat)
if (.not.ldum) cycle ! skip garbage input
! check for unreasonable input
if (iat > 0) then
call atl%add(at.eq.iat)
else
call env%warning("Unknown element: '"//trim(argv(idum))//"'",source)
cycle
endif
endif
enddo
if (directedset%n > 0) call atl%add(directedset%atoms(:directedset%n))
call atl%to_list(list)
directedset%atoms = list
directedset%n = size(list)
case('atoms')
call atl%new(val)
if (atl%get_error()) then
call env%warning('something is wrong in the fixing list',source)
return
endif
if (directedset%n > 0) call atl%add(directedset%atoms(:directedset%n))
call atl%to_list(list)
directedset%atoms = list
directedset%n = size(list)
case('expo')
if (getValue(env,val,ddum).and.set2) directedset%expo(1) = ddum
set2 = .false.
case('prefac')
!Prefactor is given in kcal, but xtb energies are in hartree
if (getValue(env,val,ddum).and.set3) directedset%val(1) = ddum / autokcal
set3 = .false.
case('midpoint')
if (getValue(env,val,ddum).and.set4) directedset%expo(2) = ddum
set4 = .false.
end select
call write_set_directed(env%unit)
end subroutine set_directed
subroutine set_logicals(env, key)
character(len=*), parameter :: source = 'set_logicals'
type(TEnvironment), intent(inout) :: env
character(len=*), intent(in) :: key
integer :: err
integer :: idum
real(wp) :: ddum
logical :: ldum
logical, save :: set1 = .true.
logical, save :: set2 = .true.
logical, save :: set3 = .true.
logical, save :: set4 = .true.
logical, save :: set5 = .true.
logical, save :: set6 = .true.
logical, save :: set7 = .true.
logical, save :: set8 = .true.
logical, save :: set9 = .true.
logical, save :: set10 = .true.
logical, save :: set11 = .true.
logical, save :: set12 = .true.
logical, save :: set13 = .true.
logical, save :: set14 = .true.
logical, save :: set15 = .true.
logical, save :: set16 = .true.
select case (key)
case default ! do nothing
call env%warning("the key '"//key//"' is not recognized by scc", source)
case ('nopocket')
if (set1) pocket_grid = .false.
set1 = .false.
case ('pocket')
if (set2) pocket_grid = .true.
set2 = .false.
case ('nostack')
if (set3) stack_grid = .false.
set3 = .false.
case ('stack')
if (set4) stack_grid = .true.
set4 = .false.
case ('noangular')
if (set5) angular_grid = .false.
set5 = .false.
case ('angular')
if (set6) angular_grid = .true.
set6 = .false.
case ('atm')
if (set7) fulle = .true.
set7 = .false.
case ('fast')
if (set8) then
maxparent = 30 ! # of parents in gene pool 100
maxgen = 7 ! # of generations 10
mxcma = 250 ! R points in CMA search 1000
stepr = 4.0 ! R grid step in Bohr 2.5
stepa = 60 ! angular grid size in deg. 45
n_opt = 4 ! # of final grad opts 15
end if
set8 = .false.
case('qcg')
if (set8) then
!The following setups will become obsolete with next Crest version
maxparent = 50 ! # of parents in gene pool 100
maxgen = 7 ! # of generations 10
n_opt = 5 ! # of final grad opts 15
qcg = .true.
end if
set8 = .false.
case ('noind')
if (set9) mode = 1
set9 = .false.
case ('loose')
if (set10) mode = 2
set10 = .false.
case ('cs')
if (set11) cssym = .true.
set11 = .false.
case ('org')
if (set12) incl_org = .true.
set12 = .false.
case ('ensemble')
if (set13) docking_ens = .true.
set13 = .false.
case('attractive')
if (set14) directed_type = p_atom_att
set14 = .false.
case('repulsive')
if (set15) directed_type = p_atom_pot
set15 = .false.
case('solv_tool')
if (set16) directed_type = p_atom_qcg
allocate(directedset%expo(2), source=0.0_wp)
allocate(directedset%val(1), source=0.0_wp)
set16 = .false.
end select
end subroutine set_logicals
subroutine set_optlvl(env)
!> Calculation environment
type(TEnvironment), intent(inout) :: env
if (optlvl == 'gfn2') then
call set_gfn(env, 'method', '2')
call set_gfn(env, 'd4', 'true')
end if
if (optlvl == 'gfn1') then
call set_gfn(env, 'method', '1')
end if
if (optlvl == 'gfn0') then
call set_gfn(env, 'method', '0')
call set_exttyp('eht')
end if
if (optlvl == 'gfnff') then
call set_exttyp('ff')
end if
end subroutine set_optlvl
end module xtb_docking_set_module
xtb-6.7.1/src/drsp.f 0000664 0000000 0000000 00000044441 14650006642 0014242 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
c real(wp) a(100),e(10),z(10,10),aux1(20),aux2(20)
c a(1)=0.
c a(2)=1.
c a(3)=0.
c a(4)=0.
c a(5)=1.
c a(6)=0.
c n=3
c m=3
c call rsp (10,a,n,n,e,z,aux1,aux2)
c do i=1,n
c write(*,'(f10.5,5x,3F12.6)') e(i), (z(j,i) ,j=1,n)
c enddo
c end
SUBROUTINE RSP(A,N,MATZ,W,Z)
use xtb_mctc_accuracy, only : wp
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
DIMENSION A(n*(n+1)/2), W(n), Z(n,n)
DIMENSION :: FV1(2*n),FV2(2*n)
*******************************************************************
*
* EISPACK DIAGONALIZATION ROUTINES: TO FIND THE EIGENVALUES AND
* EIGENVECTORS (IF DESIRED) OF A REAL SYMMETRIC PACKED MATRIX.
* ON INPUT- N IS THE ORDER OF THE MATRIX A,
* A CONTAINS THE LOWER TRIANGLE OF THE REAL SYMMETRIC
* PACKED MATRIX STORED ROW-WISE,
* MATZ IS AN INTEGER VARIABLE SET EQUAL TO ZERO IF ONLY
* EIGENVALUES ARE DESIRED, OTHERWISE IT IS SET TO
* ANY NON-ZERO INTEGER FOR BOTH EIGENVALUES AND
* EIGENVECTORS.
* ON OUTPUT- W CONTAINS THE EIGENVALUES IN ASCENDING ORDER,
* Z CONTAINS THE EIGENVECTORS IF MATZ IS NOT ZERO,
*
*******************************************************************
* THIS SUBROUTINE WAS CHOSEN AS BEING THE MOST RELIABLE. (JJPS)
C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO B. S. GARBOW,
C APPLIED MATHEMATICS DIVISION, ARGONNE NATIONAL LABORATORY
C
C ------------------------------------------------------------------
C
real(wp) esp,eta
if(n.eq.1)then
Z(1,1)=1.0d0
W(1)=A(1)
return
endif
c CALL EPSETA(EPS,ETA)
c write(*,*) eps,eta
eps=1.000000000000000D-016
eta=1.000000000000000D-039
NV=(N*(N+1))/2
NM=N
CALL TRED3(N,NV,A,W,FV1,FV2,EPS,EPS)
IF (MATZ .NE. 0) GO TO 10
C ********** FIND EIGENVALUES ONLY **********
CALL TQLRAT(N,W,FV2,IERR,EPS)
GO TO 40
C ********** FIND BOTH EIGENVALUES AND EIGENVECTORS **********
10 DO 30 I = 1, N
C
DO 20 J = 1, N
Z(J,I)=0.0D0
20 CONTINUE
C
Z(I,I)=1.0D0
30 CONTINUE
C
CALL TQL2(NM,N,W,FV1,Z,IERR,EPS)
IF (IERR .NE. 0) GO TO 40
CALL TRBAK3(NM,N,NV,A,N,Z)
C ********** LAST CARD OF RSP **********
40 RETURN
END
SUBROUTINE EPSETA(EPS,ETA)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
C COMPUTE AND RETURN ETA, THE SMALLEST REPRESENTABLE NUMBER,
C AND EPS IS THE SMALLEST NUMBER FOR WHICH 1+EPS.NE.1.
C
C
ETA = 1.D0
10 IF((ETA/2.D0).EQ.0.D0) GOTO 20
IF(ETA.LT.1.D-38) GOTO 20
ETA = ETA / 2.D0
GOTO 10
20 EPS = 1.D0
30 IF((1.D0+(EPS/2.D0)).EQ.1.D0) GOTO 40
IF(EPS.LT.1.D-17) GOTO 40
EPS = EPS / 2.D0
GOTO 30
40 RETURN
END
SUBROUTINE TQL2(NM,N,D,E,Z,IERR,EPS)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C ===== PROCESSED BY AUGMENT, VERSION 4N =====
C APPROVED FOR VAX 11/780 ON MAY 6,1980. J.D.NEECE
C ----- LOCAL VARIABLES -----
C ----- GLOBAL VARIABLES -----
DIMENSION D(*), E(*), Z(NM,*)
C ----- SUPPORTING PACKAGE FUNCTIONS -----
C ===== TRANSLATED PROGRAM =====
C
C
C THIS SUBROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE TQL2,
C NUM. MATH. 11, 293-306(1968) BY BOWDLER, MARTIN, REINSCH, AND
C WILKINSON.
C HANDBOOK FOR AUTO. COMP., VOL.II-LINEAR ALGEBRA, 227-240(1971).
C
C THIS SUBROUTINE FINDS THE EIGENVALUES AND EIGENVECTORS
C OF A SYMMETRIC TRIDIAGONAL MATRIX BY THE QL METHOD.
C THE EIGENVECTORS OF A FULL SYMMETRIC MATRIX CAN ALSO
C BE FOUND IF TRED2 HAS BEEN USED TO REDUCE THIS
C FULL MATRIX TO TRIDIAGONAL FORM.
C
C ON INPUT-
C
C NM MUST BE SET TO THE ROW DIMENSION OF TWO-DIMENSIONAL
C ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM
C DIMENSION STATEMENT,
C
C N IS THE ORDER OF THE MATRIX,
C
C D CONTAINS THE DIAGONAL ELEMENTS OF THE INPUT MATRIX,
C
C E CONTAINS THE SUBDIAGONAL ELEMENTS OF THE INPUT MATRIX
C IN ITS LAST N-1 POSITIONS. E(1) IS ARBITRARY,
C
C Z CONTAINS THE TRANSFORMATION MATRIX PRODUCED IN THE
C REDUCTION BY TRED2, IF PERFORMED. IF THE EIGENVECTORS
C OF THE TRIDIAGONAL MATRIX ARE DESIRED, Z MUST CONTAIN
C THE IDENTITY MATRIX.
C
C ON OUTPUT-
C
C D CONTAINS THE EIGENVALUES IN ASCENDING ORDER. IF AN
C ERROR EXIT IS MADE, THE EIGENVALUES ARE CORRECT BUT
C UNORDERED FOR INDICES 1,2,...,IERR-1,
C
C E HAS BEEN DESTROYED,
C
C Z CONTAINS ORTHONORMAL EIGENVECTORS OF THE SYMMETRIC
C TRIDIAGONAL (OR FULL) MATRIX. IF AN ERROR EXIT IS MADE,
C Z CONTAINS THE EIGENVECTORS ASSOCIATED WITH THE STORED
C EIGENVALUES,
C
C IERR IS SET TO
C ZERO FOR NORMAL RETURN,
C J IF THE J-TH EIGENVALUE HAS NOT BEEN
C DETERMINED AFTER 30 ITERATIONS.
C
C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO B. S. GARBOW,
C APPLIED MATHEMATICS DIVISION, ARGONNE NATIONAL LABORATORY
C
C ------------------------------------------------------------------
C
C
IERR = 0
IF (N .EQ. 1) GO TO 160
C
DO 10 I = 2, N
10 E(I-1) = E(I)
C
F=0.0D0
B=0.0D0
E(N)=0.0D0
C
DO 110 L = 1, N
J = 0
H=EPS*(ABS (D(L))+ABS (E(L)))
IF (B .LT. H) B=H
C ********** LOOK FOR SMALL SUB-DIAGONAL ELEMENT **********
DO 20 M = L, N
IF (ABS (E(M)).LE.B) GO TO 30
C ********** E(N) IS ALWAYS ZERO, SO THERE IS NO EXIT
C THROUGH THE BOTTOM OF THE LOOP **********
20 CONTINUE
C
30 IF (M .EQ. L) GO TO 100
40 IF (J .EQ. 30) GO TO 150
J = J + 1
C ********** FORM SHIFT **********
L1 = L + 1
G = D(L)
P=(D(L1)-G)/(2.0D0*E(L))
R=SQRT (P*P+1.0D0)
D(L)=E(L)/(P+SIGN (R,P))
H = G - D(L)
C
DO 50 I = L1, N
50 D(I) = D(I) - H
C
F = F + H
C ********** QL TRANSFORMATION **********
P = D(M)
C=1.0D0
S=0.0D0
MML = M - L
C ********** FOR I=M-1 STEP -1 UNTIL L DO -- **********
DO 90 II = 1, MML
I = M - II
G = C * E(I)
H = C * P
IF (ABS (P).LT.ABS (E(I))) GO TO 60
C = E(I) / P
R=SQRT (C*C+1.0D0)
E(I+1) = S * P * R
S = C / R
C=1.0D0/R
GO TO 70
60 C = P / E(I)
R=SQRT (C*C+1.0D0)
E(I+1) = S * E(I) * R
S=1.0D0/R
C = C * S
70 P = C * D(I) - S * G
D(I+1) = H + S * (C * G + S * D(I))
C ********** FORM VECTOR **********
DO 80 K = 1, N
H = Z(K,I+1)
Z(K,I+1) = S * Z(K,I) + C * H
Z(K,I) = C * Z(K,I) - S * H
80 CONTINUE
C
90 CONTINUE
C
E(L) = S * P
D(L) = C * P
IF (ABS (E(L)).GT.B) GO TO 40
100 D(L) = D(L) + F
110 CONTINUE
C ********** ORDER EIGENVALUES AND EIGENVECTORS **********
DO 140 II = 2, N
I = II - 1
K = I
P = D(I)
C
DO 120 J = II, N
IF (D(J) .GE. P) GO TO 120
K = J
P = D(J)
120 CONTINUE
C
IF (K .EQ. I) GO TO 140
D(K) = D(I)
D(I) = P
C
DO 130 J = 1, N
P = Z(J,I)
Z(J,I) = Z(J,K)
Z(J,K) = P
130 CONTINUE
C
140 CONTINUE
C
GO TO 160
C ********** SET ERROR -- NO CONVERGENCE TO AN
C EIGENVALUE AFTER 30 ITERATIONS **********
150 IERR = L
160 RETURN
C ********** LAST CARD OF TQL2 **********
END
SUBROUTINE TQLRAT(N,D,E2,IERR,EPS)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C ===== PROCESSED BY AUGMENT, VERSION 4N =====
C APPROVED FOR VAX 11/780 ON MAY 6,1980. J.D.NEECE
C ----- LOCAL VARIABLES -----
C ----- GLOBAL VARIABLES -----
DIMENSION D(*), E2(*)
C ----- SUPPORTING PACKAGE FUNCTIONS -----
C ===== TRANSLATED PROGRAM =====
C
C
C THIS SUBROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE TQLRAT,
C ALGORITHM 464, COMM. ACM 16, 689(1973) BY REINSCH.
C
C THIS SUBROUTINE FINDS THE EIGENVALUES OF A SYMMETRIC
C TRIDIAGONAL MATRIX BY THE RATIONAL QL METHOD.
C
C ON INPUT-
C
C N IS THE ORDER OF THE MATRIX,
C
C D CONTAINS THE DIAGONAL ELEMENTS OF THE INPUT MATRIX,
C
C E2 CONTAINS THE SQUARES OF THE SUBDIAGONAL ELEMENTS OF THE
C INPUT MATRIX IN ITS LAST N-1 POSITIONS. E2(1) IS ARBITRARY.
C
C ON OUTPUT-
C
C D CONTAINS THE EIGENVALUES IN ASCENDING ORDER. IF AN
C ERROR EXIT IS MADE, THE EIGENVALUES ARE CORRECT AND
C ORDERED FOR INDICES 1,2,...IERR-1, BUT MAY NOT BE
C THE SMALLEST EIGENVALUES,
C
C E2 HAS BEEN DESTROYED,
C
C IERR IS SET TO
C ZERO FOR NORMAL RETURN,
C J IF THE J-TH EIGENVALUE HAS NOT BEEN
C DETERMINED AFTER 30 ITERATIONS.
C
C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO B. S. GARBOW,
C APPLIED MATHEMATICS DIVISION, ARGONNE NATIONAL LABORATORY
C
C ------------------------------------------------------------------
C
C
IERR = 0
IF (N .EQ. 1) GO TO 140
C
DO 10 I = 2, N
10 E2(I-1) = E2(I)
C
F=0.0D0
B=0.0D0
E2(N)=0.0D0
C
DO 120 L = 1, N
J = 0
H=EPS*(ABS (D(L))+SQRT (E2(L)))
IF (B .GT. H) GO TO 20
B = H
C = B * B
C ********** LOOK FOR SMALL SQUARED SUB-DIAGONAL ELEMENT **********
20 DO 30 M = L, N
IF (E2(M) .LE. C) GO TO 40
C ********** E2(N) IS ALWAYS ZERO, SO THERE IS NO EXIT
C THROUGH THE BOTTOM OF THE LOOP **********
30 CONTINUE
C
40 IF (M .EQ. L) GO TO 80
50 IF (J .EQ. 30) GO TO 130
J = J + 1
C ********** FORM SHIFT **********
L1 = L + 1
S=SQRT (E2(L))
G = D(L)
P=(D(L1)-G)/(2.0D0*S)
R=SQRT (P*P+1.0D0)
D(L)=S/(P+SIGN (R,P))
H = G - D(L)
C
DO 60 I = L1, N
60 D(I) = D(I) - H
C
F = F + H
C ********** RATIONAL QL TRANSFORMATION **********
G = D(M)
IF (G.EQ.0.0D0) G=B
H = G
S=0.0D0
MML = M - L
C ********** FOR I=M-1 STEP -1 UNTIL L DO -- **********
DO 70 II = 1, MML
I = M - II
P = G * H
R = P + E2(I)
E2(I+1) = S * R
S = E2(I) / R
D(I+1) = H + S * (H + D(I))
G = D(I) - E2(I) / G
IF (G.EQ.0.0D0) G=B
H = G * P / R
70 CONTINUE
C
E2(L) = S * G
D(L) = H
C ********** GUARD AGAINST UNDERFLOW IN CONVERGENCE TEST **********
IF (H.EQ.0.0D0) GO TO 80
IF (ABS (E2(L)).LE.ABS (C/H)) GO TO 80
E2(L) = H * E2(L)
IF (E2(L).NE.0.0D0) GO TO 50
80 P = D(L) + F
C ********** ORDER EIGENVALUES **********
IF (L .EQ. 1) GO TO 100
C ********** FOR I=L STEP -1 UNTIL 2 DO -- **********
DO 90 II = 2, L
I = L + 2 - II
IF (P .GE. D(I-1)) GO TO 110
D(I) = D(I-1)
90 CONTINUE
C
100 I = 1
110 D(I) = P
120 CONTINUE
C
GO TO 140
C ********** SET ERROR -- NO CONVERGENCE TO AN
C EIGENVALUE AFTER 30 ITERATIONS **********
130 IERR = L
140 RETURN
C ********** LAST CARD OF TQLRAT **********
END
SUBROUTINE TRBAK3(NM,N,NV,A,M,Z)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C ===== PROCESSED BY AUGMENT, VERSION 4N =====
C APPROVED FOR VAX 11/780 ON MAY 6,1980. J.D.NEECE
C ----- LOCAL VARIABLES -----
C ----- GLOBAL VARIABLES -----
DIMENSION A(*), Z(NM,*)
C ===== TRANSLATED PROGRAM =====
C
C
C THIS SUBROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE TRBAK3,
C NUM. MATH. 11, 181-195(1968) BY MARTIN, REINSCH, AND WILKINSON.
C HANDBOOK FOR AUTO. COMP., VOL.II-LINEAR ALGEBRA, 212-226(1971).
C
C THIS SUBROUTINE FORMS THE EIGENVECTORS OF A REAL SYMMETRIC
C MATRIX BY BACK TRANSFORMING THOSE OF THE CORRESPONDING
C SYMMETRIC TRIDIAGONAL MATRIX DETERMINED BY TRED3.
C
C ON INPUT-
C
C NM MUST BE SET TO THE ROW DIMENSION OF TWO-DIMENSIONAL
C ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM
C DIMENSION STATEMENT,
C
C N IS THE ORDER OF THE MATRIX,
C
C NV MUST BE SET TO THE DIMENSION OF THE ARRAY PARAMETER A
C AS DECLARED IN THE CALLING PROGRAM DIMENSION STATEMENT,
C
C A CONTAINS INFORMATION ABOUT THE ORTHOGONAL TRANSFORMATIONS
C USED IN THE REDUCTION BY TRED3 IN ITS FIRST
C N*(N+1)/2 POSITIONS,
C
C M IS THE NUMBER OF EIGENVECTORS TO BE BACK TRANSFORMED,
C
C Z CONTAINS THE EIGENVECTORS TO BE BACK TRANSFORMED
C IN ITS FIRST M COLUMNS.
C
C ON OUTPUT-
C
C Z CONTAINS THE TRANSFORMED EIGENVECTORS
C IN ITS FIRST M COLUMNS.
C
C NOTE THAT TRBAK3 PRESERVES VECTOR EUCLIDEAN NORMS.
C
C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO B. S. GARBOW,
C APPLIED MATHEMATICS DIVISION, ARGONNE NATIONAL LABORATORY
C
C ------------------------------------------------------------------
C
IF (M .EQ. 0) GO TO 50
IF (N .EQ. 1) GO TO 50
C
DO 40 I = 2, N
L = I - 1
IZ = (I * L) / 2
IK = IZ + I
H = A(IK)
IF (H.EQ.0.0D0) GO TO 40
C
DO 30 J = 1, M
S=0.0D0
IK = IZ
C
DO 10 K = 1, L
IK = IK + 1
S = S + A(IK) * Z(K,J)
10 CONTINUE
C ********** DOUBLE DIVISION AVOIDS POSSIBLE UNDERFLOW **********
S = (S / H) / H
IK = IZ
C
DO 20 K = 1, L
IK = IK + 1
Z(K,J) = Z(K,J) - S * A(IK)
20 CONTINUE
C
30 CONTINUE
C
40 CONTINUE
C
50 RETURN
C ********** LAST CARD OF TRBAK3 **********
END
SUBROUTINE TRED3(N,NV,A,D,E,E2,EPS,ETA)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C ===== PROCESSED BY AUGMENT, VERSION 4N =====
C APPROVED FOR VAX 11/780 ON MAY 6,1980. J.D.NEECE
C ----- LOCAL VARIABLES -----
C ----- GLOBAL VARIABLES -----
DIMENSION A(*), D(*), E(*), E2(*)
C ----- SUPPORTING PACKAGE FUNCTIONS -----
C ===== TRANSLATED PROGRAM =====
C
C
C THIS SUBROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE TRED3,
C NUM. MATH. 11, 181-195(1968) BY MARTIN, REINSCH, AND WILKINSON.
C HANDBOOK FOR AUTO. COMP., VOL.II-LINEAR ALGEBRA, 212-226(1971).
C
C THIS SUBROUTINE REDUCES A REAL SYMMETRIC MATRIX, STORED AS
C A ONE-DIMENSIONAL ARRAY, TO A SYMMETRIC TRIDIAGONAL MATRIX
C USING ORTHOGONAL SIMILARITY TRANSFORMATIONS.
C
C ON INPUT-
C
C N IS THE ORDER OF THE MATRIX,
C
C NV MUST BE SET TO THE DIMENSION OF THE ARRAY PARAMETER A
C AS DECLARED IN THE CALLING PROGRAM DIMENSION STATEMENT,
C
C A CONTAINS THE LOWER TRIANGLE OF THE REAL SYMMETRIC
C INPUT MATRIX, STORED ROW-WISE AS A ONE-DIMENSIONAL
C ARRAY, IN ITS FIRST N*(N+1)/2 POSITIONS.
C
C ON OUTPUT-
C
C A CONTAINS INFORMATION ABOUT THE ORTHOGONAL
C TRANSFORMATIONS USED IN THE REDUCTION,
C
C D CONTAINS THE DIAGONAL ELEMENTS OF THE TRIDIAGONAL MATRIX,
C
C E CONTAINS THE SUBDIAGONAL ELEMENTS OF THE TRIDIAGONAL
C MATRIX IN ITS LAST N-1 POSITIONS. E(1) IS SET TO ZERO,
C
C E2 CONTAINS THE SQUARES OF THE CORRESPONDING ELEMENTS OF E.
C E2 MAY COINCIDE WITH E IF THE SQUARES ARE NOT NEEDED.
C
C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO B. S. GARBOW,
C APPLIED MATHEMATICS DIVISION, ARGONNE NATIONAL LABORATORY
C
C ------------------------------------------------------------------
C
C ********** FOR I=N STEP -1 UNTIL 1 DO -- **********
DO 100 II = 1, N
I = N + 1 - II
L = I - 1
IZ = ( I * L ) / 2
H=0.0D0
SCALE=0.0D0
DO 10 K = 1, L
IZ = IZ + 1
D(K) = A(IZ)
SCALE=SCALE+ABS( D(K) )
10 CONTINUE
C
IF ( SCALE.NE.0.D0 ) GO TO 20
E(I)=0.0D0
E2(I)=0.0D0
GO TO 90
C
20 DO 30 K = 1, L
D(K) = D(K) / SCALE
H = H + D(K) * D(K)
30 CONTINUE
C
E2(I) = SCALE * SCALE * H
F = D(L)
G=-SIGN (SQRT (H),F)
E(I) = SCALE * G
H = H - F * G
D(L) = F - G
A(IZ) = SCALE * D(L)
IF (L .EQ. 1) GO TO 90
F=0.0D0
C
DO 70 J = 1, L
G=0.0D0
JK = (J * (J-1)) / 2
C ********** FORM ELEMENT OF A*U **********
K = 0
40 K = K + 1
JK = JK + 1
G = G + A(JK) * D(K)
IF ( K .LT. J ) GO TO 40
IF ( K .EQ. L ) GO TO 60
50 JK = JK + K
K = K + 1
G = G + A(JK) * D(K)
IF ( K .LT. L ) GO TO 50
C ********** FORM ELEMENT OF P **********
60 CONTINUE
E(J) = G / H
F = F + E(J) * D(J)
70 CONTINUE
C
HH = F / (H + H)
JK = 0
C ********** FORM REDUCED A **********
DO 80 J = 1, L
F = D(J)
G = E(J) - HH * F
E(J) = G
C
DO 80 K = 1, J
JK = JK + 1
A(JK) = A(JK) - F * E(K) - G * D(K)
80 CONTINUE
C
90 D(I) = A(IZ+1)
A(IZ+1)=SCALE*SQRT (H)
100 CONTINUE
C
RETURN
C ********** LAST CARD OF TRED3 **********
END
xtb-6.7.1/src/dtrafo.f90 0000664 0000000 0000000 00000020242 14650006642 0014713 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_dtrafo
contains
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
!c transforms cao(6d) integrals to sao(5d) basis
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine cao2sao(nbf,nao,s,basis)
use xtb_type_basisset
implicit none
type(TBasisset), intent(in) :: basis
integer nbf,nao
real(8) s(nbf,nbf)
real(8) sspher
integer lll(20),firstd(nbf)
integer i,j,k,ii,jj,kk,iii,jjj,lin,li,lj,mm,nn,m,n
data lll/1,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4/
real(8) trafo(6,6)
real(8),allocatable :: sneu(:)
trafo = 0.0d0
! dS
trafo(1,1)=1.d0/sqrt(3.d0)*sqrt(3.d0/5.d0)
trafo(2,1)=1.d0/sqrt(3.d0)*sqrt(3.d0/5.d0)
trafo(3,1)=1.d0/sqrt(3.d0)*sqrt(3.d0/5.d0)
! dx2-y2
trafo(1,2)= 1.d0/sqrt(2.d0)*sqrt(3.d0/2.d0)
trafo(2,2)=-1.d0/sqrt(2.d0)*sqrt(3.d0/2.d0)
! dz2
trafo(1,3)= 0.50d0
trafo(2,3)= 0.50d0
trafo(3,3)=-1.0d0
! trafo(1,3)= 0.408248290464D+00*sqrt(3./2.)
! trafo(2,3)= 0.408248290464D+00*sqrt(3./2.)
! trafo(3,3)=-0.816496580928D+00*sqrt(3./2.)
! rest
trafo(4,4)=1.0d0
trafo(5,5)=1.0d0
trafo(6,6)=1.0d0
nao=0
firstd = 0
i=1
42 if(basis%lao(i).gt.4.and.basis%lao(i).le.10)then
nao=nao+1
firstd(i:i+5)=i
i=i+5
endif
i=i+1
if(i.lt.nbf)goto 42
if(nao.eq.0) then
nao=nbf
return
endif
allocate(sneu(nbf*(nbf+1)/2))
k=0
do i=1,nbf
do j=1,i
k=K+1
sneu(k)=s(j,i)
enddo
enddo
k=0
do i=1,nbf
li=lll(basis%lao(i))
do j=1,i
lj=lll(basis%lao(j))
k=k+1
! d-d
if(li.eq.3.and.lj.eq.3)then
ii=basis%lao(i)-4
jj=basis%lao(j)-4
sspher=0
do m=1,6
mm=firstd(i)-1+m
do n=1,6
nn=firstd(j)-1+n
sspher=sspher+trafo(m,ii)*trafo(n,jj)*s(mm,nn)
enddo
enddo
sneu(k)=sspher
endif
! d-sp
if(li.eq.3.and.lj.le.2)then
ii=basis%lao(i)-4
sspher=0
do m=1,6
mm=firstd(i)-1+m
sspher=sspher+trafo(m,ii)*s(mm,j)
enddo
sneu(k)=sspher
endif
! sp-d
if(li.le.2.and.lj.eq.3)then
jj=basis%lao(j)-4
sspher=0
do n=1,6
nn=firstd(j)-1+n
sspher=sspher+trafo(n,jj)*s(i,nn)
enddo
sneu(k)=sspher
endif
enddo
enddo
s=0
k=0
iii=0
do i=1,nbf
if(basis%lao(i).ne.5)iii=iii+1
jjj=0
do j=1,i
if(basis%lao(j).ne.5)jjj=jjj+1
k=k+1
if(basis%lao(i).eq.5.or.basis%lao(j).eq.5)cycle
s(iii,jjj)=sneu(k)
s(jjj,iii)=sneu(k)
enddo
enddo
nao=nbf-nao
deallocate(sneu)
end subroutine cao2sao
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
!c transforms sao(5d) integrals to cao(6d) basis
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine sao2cao(nbf,s,ncao,x,basis)
use xtb_type_basisset
implicit none
type(TBasisset), intent(in) :: basis
integer nbf,new,ncao
real(8) s(nbf,nbf),x(ncao,nbf)
real(8) xcart
integer lll(20),firstd(nbf),idprev
integer i,j,k,jj,mm,m
data lll/1,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4/
real(8) trafo(5,6)
trafo = 0.0d0
! x2
trafo(1,1)=1./sqrt(2.)*sqrt(3./2.)
! trafo(2,1)=0.408248290464D+00*sqrt(3./2.)
trafo(2,1)=0.50d0
! y2
trafo(1,2)=-1./sqrt(2.)*sqrt(3./2.)
! trafo(2,2)=0.408248290464D+00*sqrt(3./2.)
trafo(2,2)=0.50d0
! z2
trafo(1,3)=0.0d0
trafo(2,3)=-1.0d0
! trafo(2,3)=-0.816496580928D+00*sqrt(3./2.)
! rest
trafo(3,4)=1.0d0
trafo(4,5)=1.0d0
trafo(5,6)=1.0d0
new=ncao-nbf
if(new.eq.0) then
return
endif
firstd = 0
i=1
j=0
! lao is still in old dimensions (i.e., ncao) while s comes with nsao
42 if(basis%lao(i).gt.4.and.basis%lao(i).le.10)then
firstd(i-j:i-j+4)=i-j
j=j+1
i=i+5
endif
i=i+1
if(i.lt.ncao)goto 42
! sanity check
if(new.ne.j) call raise('E','in sao2cao trafo')
x=0.0d0
do i=1,nbf ! go through eigenvectors
k = 0
idprev=0
do j=1,nbf ! go through LCAO-MO coefficients
if(idprev.gt.0.and.firstd(j).eq.idprev) cycle
if(firstd(j).gt.idprev)then ! if a set of d functions is found, do trafo for all six d orbitals
do jj=1,6
k=k+1
xcart=0.0d0
do m=1,5
mm=firstd(j)-1+m
xcart=xcart+trafo(m,jj)*s(mm,i)
enddo
x(k,i)=xcart
enddo
idprev=firstd(j) ! setting idprev to new value guarantees that the following 4
! spherical d functions will be skipped (we already did the trafo)
cycle
endif
k=k+1
x(k,i)= s(j,i)
enddo
if (k.ne.ncao) stop 'error in eigenvector dimension'
enddo
end subroutine sao2cao
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
!c transforms cao(6d) integrals to sao(5d) basis, packed output
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine cao2saop(nbf,nao,s,basis)
use xtb_type_basisset
use xtb_lin, only : lin
implicit none
type(TBasisset), intent(in) :: basis
integer nbf,nao
real(8) s(nbf*(nbf+1)/2)
real(8) sspher
integer lll(20),firstd(nbf)
integer i,j,k,ii,jj,kk,iii,jjj,li,lj,mm,nn,m,n
data lll/1,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4/
real(8) trafo(6,6)
real(8),allocatable :: sneu(:)
trafo = 0.0d0
! dS
trafo(1,1)=1.d0/sqrt(3.d0)*sqrt(3.d0/5.d0)
trafo(2,1)=1.d0/sqrt(3.d0)*sqrt(3.d0/5.d0)
trafo(3,1)=1.d0/sqrt(3.d0)*sqrt(3.d0/5.d0)
! dx2-y2
trafo(1,2)= 1.d0/sqrt(2.d0)*sqrt(3.d0/2.d0)
trafo(2,2)=-1.d0/sqrt(2.d0)*sqrt(3.d0/2.d0)
! dz2
trafo(1,3)= 0.50d0
trafo(2,3)= 0.50d0
trafo(3,3)=-1.0d0
! rest
trafo(4,4)=1.0d0
trafo(5,5)=1.0d0
trafo(6,6)=1.0d0
nao=0
firstd = 0
i=1
42 if(basis%lao(i).gt.4.and.basis%lao(i).le.10)then
nao=nao+1
firstd(i:i+5)=i
i=i+5
endif
i=i+1
if(i.lt.nbf)goto 42
if(nao.eq.0) then
nao=nbf
return
endif
allocate(sneu(nbf*(nbf+1)/2))
sneu = s
k=0
do i=1,nbf
li=lll(basis%lao(i))
do j=1,i
lj=lll(basis%lao(j))
k=k+1
! d-d
if(li.eq.3.and.lj.eq.3)then
ii=basis%lao(i)-4
jj=basis%lao(j)-4
sspher=0
do m=1,6
mm=firstd(i)-1+m
do n=1,6
nn=firstd(j)-1+n
sspher=sspher+trafo(m,ii)*trafo(n,jj)*s(lin(mm,nn))
enddo
enddo
sneu(k)=sspher
endif
! d-sp
if(li.eq.3.and.lj.le.2)then
ii=basis%lao(i)-4
sspher=0
do m=1,6
mm=firstd(i)-1+m
sspher=sspher+trafo(m,ii)*s(lin(mm,j))
enddo
sneu(k)=sspher
endif
! sp-d
if(li.le.2.and.lj.eq.3)then
jj=basis%lao(j)-4
sspher=0
do n=1,6
nn=firstd(j)-1+n
sspher=sspher+trafo(n,jj)*s(lin(i,nn))
enddo
sneu(k)=sspher
endif
enddo
enddo
s(1:nao*(nao+1)/2)=0
k=0
iii=0
do i=1,nbf
if(basis%lao(i).ne.5)iii=iii+1
jjj=0
do j=1,i
if(basis%lao(j).ne.5)jjj=jjj+1
k=k+1
if(basis%lao(i).eq.5.or.basis%lao(j).eq.5)cycle
s(lin(iii,jjj))=sneu(k)
enddo
enddo
nao=nbf-nao
deallocate(sneu)
end subroutine cao2saop
end module xtb_dtrafo
xtb-6.7.1/src/dynamic.f90 0000664 0000000 0000000 00000064131 14650006642 0015065 0 ustar 00root root 0000000 0000000 ! This file is part of xtb.
!
! Copyright (C) 2017-2020 Stefan Grimme
!
! xtb is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! xtb is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with xtb. If not, see .
module xtb_dynamic
use xtb_io_writer, only : writeMolecule
use xtb_mctc_accuracy, only : wp
use xtb_mctc_filetypes, only : fileType
use xtb_single, only : singlepoint
use xtb_intmodes, only : xyzgeo
use xtb_metadynamic
contains
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
pure subroutine xyzsort(n,lab,ew,xyz,list)
implicit none
integer, intent(in) :: n
integer, intent(in) :: lab
integer, intent(inout) :: list(*)
real(wp),intent(inout) :: ew(*)
real(wp),intent(inout) :: xyz(3,n,*)
integer :: i,ii,j,k,m
integer :: ihilf
real(wp) :: pp,hilf
do ii = 2, lab
i = ii - 1
k = i
pp= ew(i)
do j = ii, lab
if (ew(j) .gt. pp) cycle
k = j
pp= ew(j)
enddo
if (k .eq. i) cycle
ew(k) = ew(i)
ew(i) = pp
ihilf=list(i)
list(i)=list(k)
list(k)=ihilf
do m=1,n
do j=1,3
hilf=xyz(j,m,i)
xyz(j,m,i)=xyz(j,m,k)
xyz(j,m,k)=hilf
enddo
enddo
enddo
end subroutine xyzsort
pure subroutine xyzsort2(ndim,n,lab,ew,xyz)
implicit none
integer, intent(in) :: ndim
integer, intent(in) :: n
integer, intent(in) :: lab
real(wp),intent(inout) :: ew(0:ndim)
real(wp),intent(inout) :: xyz(3,n,*)
integer :: i,ii,j,k,m
real(wp) :: pp, hilf
do ii = 2, lab
i = ii - 1
k = i
pp= ew(i)
do j = ii, lab
if (ew(j) .gt. pp) cycle
k = j
pp= ew(j)
enddo
if (k .eq. i) cycle
ew(k) = ew(i)
ew(i) = pp
do m=1,n
do j=1,3
hilf=xyz(j,m,i)
xyz(j,m,i)=xyz(j,m,k)
xyz(j,m,k)=hilf
enddo
enddo
enddo
end subroutine xyzsort2
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
subroutine wrc(fname,n,xyz,at)
use xtb_setparam
use xtb_mctc_symbols, only : toSymbol
implicit none
character*(*) fname
integer n,at(n),j
real(wp) xyz(3,n)
integer :: ich ! file handle
call open_file(ich,fname,'w')
write(ich,'(''$coord'')')
do j=1,n
write(ich,'(3F24.10,5x,a2)') xyz(1:3,j),toSymbol(at(j))
enddo
write(ich,'(''$end'')')
write(ich,'(''$set'')')
write(ich,'('' chrg '',i2)') set%ichrg
write(ich,'('' uhf '',i2)') set%nalphabeta
write(ich,'(''$end'')')
call close_file(ich)
end subroutine wrc
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
subroutine boltz(n,t,e,p)
implicit none
integer, intent(in) :: n
real(wp), intent(in) :: t
real(wp), intent(in) :: e(n)
real(wp), intent(out) :: p(n)
real(wp) f
f = 8.31451_wp * t / 4.184e+3_wp
p = exp(-e/f)
p = p / sum(p)
end subroutine boltz
subroutine md(env,mol,chk,calc, &
& egap,et,maxiter,epot,grd,sigma,icall,Tsoll,cdump2)
use xtb_mctc_accuracy, only : wp
use xtb_mctc_convert, only : autokcal, aatoau, amutokg, amutoau, fstoau
use xtb_mctc_constants, only : pi, kB
use xtb_type_environment
use xtb_type_molecule
use xtb_type_calculator
use xtb_type_restart
use xtb_type_data
use xtb_shake, only: do_shake,ncons
use xtb_setparam
use xtb_fixparam
use xtb_scanparam
use xtb_splitparam
use xtb_type_setvar, only: metadyn_setvar
implicit none
!> Calculation environment
type(TEnvironment), intent(inout) :: env
type(TMolecule),intent(inout) :: mol
type(TRestart),intent(inout) :: chk
class(TCalculator), intent(inout) :: calc
integer :: icall
integer, intent(in) :: maxiter
integer, intent(inout) :: cdump2
real(wp), intent(inout) :: epot
real(wp), intent(in) :: et
real(wp), intent(inout) :: egap
real(wp), intent(inout) :: grd(3,mol%n)
real(wp), intent(inout) :: sigma(3,3)
real(wp), intent(in) :: Tsoll
type(scc_results) :: res
real(wp) :: step,eel1,tstep,taut,xlam2,accu,driftthr
real(wp) :: Ekin,tmass,f,mintime
real(wp) :: Tinit,Tav,T,epav,ekav,dav,cma(3),bave,bavt
real(wp) :: dum,edum,eerror,xx(10),molmass,slope,maxtime
real(wp) :: tstep0,tmax,nfreedom,t0,w0,t1,w1,ep_prec,rege(4)
real(wp) :: tors(mol%n),be(3),b0(3),tor,dip(3)
real(wp) :: rcoord(3)
logical :: ex,thermostat,restart,confdump,equi,gmd,ldum
integer :: i,j,k,ic,jc,ia,ja,ii,jj,ndum,cdump,nmax,ibin
integer :: nstep,ndump,mdump,dumpstep,screendump,acount
integer :: cdump0,nbo(0:20,mol%n),k3,nreg,ngeoav
integer :: blockl,iblock,nblock
real(wp),allocatable :: velo(:,:)
real(wp),allocatable :: vel (:,:)
real(wp),allocatable :: veln(:,:)
real(wp),allocatable :: xyzo(:,:)
real(wp),allocatable :: acc (:,:)
real(wp),allocatable :: tmpx(:,:)
real(wp),allocatable :: mass(:)
real(wp),allocatable :: blocke(:),blockt(:)
real(wp),allocatable :: intgeo(:,:),intgeo0(:,:)
real(wp),allocatable :: intgeoav(:,:),tmpg(:,:)
integer, allocatable :: na(:),nb(:),nc(:)
character(len=80) :: atmp
character(len=:),allocatable :: fname
integer :: ich,trj,pdb,imdl
logical :: exist
! Displace reference geometry by 1e-6
real(wp), parameter :: atom_displacement = 1.0e-6_wp
type(metadyn_setvar) :: metasetlocal
real(wp) :: emtd
real(wp) :: metatime
metatime = 0.0_wp
call delete_file('xtbmdok')
if(icall.eq.0)then
write(*,*)'trajectories on xtb.trj or xtb.trj.'
endif
! special equi and GMD settings
tmax=set%time_md
equi=.false.
gmd=.false.
if(icall.eq.-1) equi = .true. ! equilibration
if(icall.eq.-2) gmd = .true. ! GMD production run
if(equi) then
mintime = 5.0d0 ! minimum time in ps
maxtime = tmax ! maximum time in ps
driftthr=2.d-3 ! stop MD if drift = slope Epot (block average) regression (4 points) below this value
endif
if(gmd) then
mintime = tmax ! minimum time in ps
maxtime = tmax * 4 ! maximum time in ps
driftthr=1.d-3
endif
! real coord dump to e.g. scoord.n in siman
confdump=.false.
if(nscan.eq.0.and.cdump2.ge.0) confdump=.true.
if(set%ceasefiles) confdump=.false.
! just screen
screendump=200
! blocklength for SD of energy and T
blockl=min(5000,idint(5000/set%tstep_md))
allocate(blocke(blockl),blockt(blockl))
! take paramters from common
tstep0=set%tstep_md
cdump0=set%dump_md/set%tstep_md ! scoord
dumpstep=set%dump_md2/set%tstep_md ! xyz
thermostat=set%nvt_md
restart=set%restart_md
accu=set%accu_md
allocate(velo(3,mol%n),vel(3,mol%n),veln(3,mol%n),xyzo(3,mol%n),acc(3,mol%n),mass(mol%n))
call neighbor(mol%n,mol%xyz,mol%at,nbo) ! neighbor list
molmass=0
do i=1,mol%n
molmass=molmass+atmass(i)
mass(i)=atmass(i)*amutoau
enddo
tmass=molmass*amutoau
do i=1,mol%n
if(mol%at(i).eq.1.and.set%md_hmass.gt.0) then
mass(i)=dble(set%md_hmass)*amutoau
! k=nbo(1,i) ! atom to which H is bonded
! mass(k)=mass(k)-mass(i)+ams(1)*amutoau ! reduce by the increase H mass
endif
enddo
molmass=molmass*amutokg
nmax=tmax*1000/tstep0
if(gmd.or.equi) nmax=maxtime*1000/tstep0
write(*,*)
write(*,'('' MD time /ps :'',f8.2)')tmax
write(*,'('' dt /fs :'',f8.2)')tstep0
write(*,'('' SCC accuracy :'',f8.2)')accu
write(*,'('' temperature /K :'',f8.2)')Tsoll
write(*,'('' max steps :'',i6 )')nmax
write(*,'('' block length (av.) :'',i6 )')blockl
write(*,'('' dumpstep(trj) /fs :'',f8.2,i6)')set%dump_md2,dumpstep
write(*,'('' dumpstep(coords)/fs:'',f8.2,i6)')set%dump_md,cdump0
if(equi.or.gmd)then
write(*,'('' minimum runtime(ps):'',f6.1)')mintime
write(*,'('' maximum runtime(ps):'',f6.1)')maxtime
endif
if(set%md_hmass.gt.0) &
&write(*,'('' H atoms mass (amu) :'',i6 )')set%md_hmass
nfreedom = 3._wp*real(mol%n,wp)
if(set%mdrtrconstr ) nfreedom = nfreedom - 6.0d0
if(set%shake_md ) nfreedom = nfreedom - dble(ncons)
if(zconstr.eq.1) nfreedom = nfreedom - dble(iatf1) ! fragment 1 in Z plane
write(*,'('' # deg. of freedom :'',i6 )')idint(nfreedom)
taut=500. ! damping of thermostat, 1000 is slow heating
if(equi) taut=100.
Tinit=Tsoll
if (equi) Tinit=0.3*Tsoll ! slow equi
if(.not.restart)then
f=1
if(.not.thermostat) f = 2
edum=f*Tinit*0.5*kB*nfreedom
call mdinitu(mol%n,mol%at,velo,mass,edum)
else
call rdmdrestart(mol%n,mol%xyz,velo)
endif
if(set%shake_md) then
write(*,*) 'SHAKE on. # bonds :',ncons,' all:',.not.set%xhonly
else
write(*,*) 'SHAKE off'
endif
if(thermostat) write(*,*) 'Berendsen THERMOSTAT on'
if(equi) write(*,*) 'EQUILIBRATION mode'
if( gmd) write(*,*) 'GMD mode'
if(restart) write(*,*) 'RESTART'
!--- For "true" metadynamics an independent RMSD potential
! is constructed for this MD. "metaset" contains alpha and k
! "metasetlocal" is the dynamic potential for the MTD.
! If an ensemble was read into "metaset", only a static RMSD bias is applied.
metasetlocal = metaset
if((metaset%nstruc > 0).and.(metaset%static))then !if >0, an ensemble was read --> static potential
metasetlocal%maxsave=0 !save nothing new --> deactivate dynamic potential
else
metaset%nstruc=0 !avoid calculation of RMSD potential within singlepoint routine
!--> would lead to double counting with "metasetlocal"
endif
if ((metasetlocal%maxsave.gt.0) .or. (metaset%nstruc > 0)) then
write(env%unit,'(" --- metadynamics parameter ---")')
write(env%unit,'(" kpush :",f9.3)') metasetlocal%global_factor
write(env%unit,'(" alpha :",f9.3)') metasetlocal%global_width
write(env%unit,'(" update :",i8)') metasetlocal%maxsave
if((metasetlocal%ramp - 0.03_wp) .ne. 0.0_wp)then
write(env%unit,'(" ramp :",f9.3)') metasetlocal%ramp
endif
if (metasetlocal%nstruc.eq.0) then
do i = 1, mol%n
! Generate randomly displaced geometry
do
! Generate numbers in [0,1]
call random_number(rcoord)
! Convert numbers to [-1, 1]
rcoord = 2.0_wp*rcoord-1.0_wp
! Ensure that displacement is large enough so that it
! can be normalized to the unit sphere
if(norm2(rcoord) >= 1e-8) then
exit
endif
enddo
! Normalize displacement to the unit sphere
rcoord = rcoord/norm2(rcoord)
! Assign displaced geometry
metasetlocal%xyz(:,i,1) = mol%xyz(:,i) + atom_displacement*rcoord
enddo
metasetlocal%nstruc = 1
else
write(env%unit,'(" number of input RMSDs :",i4)') metasetlocal%nstruc
endif
endif
atmp='xtb.trj'
if(icall.gt.0)then
write(atmp,'(''xtb.trj.'',i0)')icall
endif
call open_file(trj,trim(atmp),'w')
pdb = -1
if (allocated(mol%pdb) .and. icall == 0) then
call open_file(pdb, 'xtb-trj.pdb', 'w')
imdl = 0
end if
if(.not.thermostat)then
write(*,'(9x,''time (ps)'',4x,'''',6x,''Ekin T'',5x, &
& ''Etot'',7x,''error'','' '')')
else
write(*,'(9x,''time (ps)'',4x,'''',6x,''Ekin T'',5x, &
& ''Etot'')')
endif
tstep=tstep0*fstoau
mdump=screendump
ndump=dumpstep
call ekinet(mol%n,velo,mass,Ekin)
grd=0.0_wp
epot=0.0_wp
call singlepoint &
& (env,mol,chk,calc, &
& egap,et,maxiter,0,.true.,.false.,1.0_wp,epot,grd,sigma,res)
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! MD loop
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
Edum =Epot+Ekin
Eerror =0
Tav =0
Epav =0
Ekav =0
iblock =0
nblock =0
acount =0
k3 =0
ep_prec=0
nreg =0
T =0
cdump =0
nstep =0
ngeoav =0
call zeroz(mol%n,velo) ! optional z-plane fix
! call zero3n6(mol%n,velo,acc) ! fix 6 deg. of freedom
call timing(t0,w0)
do k=1,nmax
!ccccccccccccccccccc
! calc E and forces STEP 1
!ccccccccccccccccccc
accu=set%accu_md
if(acount.eq.10)then ! accurate SCC
accu=1.0d0
acount=0
else
acount=acount+1
endif
epot=0.0_wp
grd = 0.0_wp
call singlepoint &
& (env,mol,chk,calc, &
& egap,et,maxiter,0,.true.,.true.,accu,epot,grd,sigma,res)
if (metasetlocal%maxsave.ne.0) then
metatime = metatime + 1.0_wp
metasetlocal%factor(1:metasetlocal%nstruc) = metasetlocal%global_factor
metasetlocal%factor(metasetlocal%nstruc) = metasetlocal%factor(metasetlocal%nstruc) &
& * (2.0_wp/(1.0_wp+exp(-metasetlocal%ramp*metatime))-1.0_wp)
if (cdump.gt.cdump0) then
if (metasetlocal%nstruc.lt.metasetlocal%maxsave) then
metatime = 0.0
metasetlocal%nstruc = metasetlocal%nstruc + 1
metasetlocal%xyz(:,:,metasetlocal%nstruc) = mol%xyz
else
do i = 2, metasetlocal%maxsave
metasetlocal%xyz(:,:,i-1) = metasetlocal%xyz(:,:,i)
enddo
metasetlocal%xyz(:,:,metasetlocal%maxsave) = mol%xyz
endif
write(*,'(2x,"adding snapshot to metadynamics bias")')
endif
!-------------------------------------------------------------------------
emtd = 0.0d0
call metadynamic (metasetlocal,mol%n,mol%at,mol%xyz,emtd,grd)
epot = epot + emtd
endif
if(acount.eq.0)then ! take only accurate Epot for average
k3=k3+1
ep_prec=ep_prec+epot
endif
! okay, but you can also check for res%converged, can't you?
if(epot.ne.epot.or. &
& epot.gt.1.d+5.or. &
& epot.lt.-1.d+5.or. & ! WHY?! this is completely resonable for >10000 atoms
& T.gt.10000) then
write(*,*) epot,T
write(*,*) 'MD is unstable, emergency exit '
write(*,*) 'but still taking it as converged!'
goto 1000
endif
if(k.eq.100)then
call timing(t1,w1)
write(*,'(''est. speed in wall clock h for 100 ps :'',f6.2)') &
& 100.0*(1000./tstep0)*(w1-w0)/100.0d0/3600.
endif
if(iblock.eq.blockl)then
if(equi)then
Tinit=Tinit*1.5
Tinit=min(Tsoll,Tinit)
endif
nblock=nblock+1
iblock=0
call blocksd(mol%n,blockl,blocke,blockt,bave,bavt)
nreg = nreg + 1
rege(:) = [rege(2:), bave]
if(nreg.ge.4)then
call regress(1,4,rege,slope)
else
slope=99.
endif
write(*,'(''block / :'',f14.5,f6.0,5x, &
& ''drift:'',d10.2,3x,''Tbath :'',f5.0)') &
& bave,bavt,slope,Tinit
else
iblock=iblock+1
blocke(iblock)=epot
blockt(iblock)=T
endif
! dump coords to xyz and scoord
!! ========================================================================
! dump for conformational sampling (scoor)
if(cdump.gt.cdump0.and.confdump)then
cdump2=cdump2+1
call getname1(cdump2,atmp)
call open_file(ich,trim(atmp),'w')
call writeMolecule(mol, ich, fileType%tmol)
call close_file(ich)
cdump=0
endif
! screen
if(mdump.gt.screendump-1)then
if(.not.thermostat)then
write(*,'(i7,f8.2,F13.5,F9.4,2F6.0,F12.5,4F10.4)') &
& nstep,0.001*nstep*tstep/fstoau,Epav/k,Ekin,Tav/k,T,Epot+Ekin, &
& Edum/k-Epot-Ekin
else
write(*,'(i7,f8.2,F13.5,F9.4,2F6.0,F12.5,E14.6)') &
& nstep,0.001*nstep*tstep/fstoau,Epav/k,Ekin,Tav/k,T,Epot+Ekin
endif
mdump=0
endif
! dump xyz (trj)
if(ndump.gt.dumpstep-1)then
ndump=0
call writeMolecule(mol, trj, fileType%xyz, energy=epot, gnorm=res%gnorm)
if(set%velodump)then
do i=1,mol%n
write(trj,'(3f20.14)')velo(1:3,i)
enddo
endif
if (pdb /= -1) then
imdl = imdl+1
call writeMolecule(mol, pdb, fileType%pdb, number=imdl, &
& energy=epot, gnorm=res%gnorm)
end if
if (set%forcewrrestart) then
call wrmdrestart(mol%n,mol%xyz,velo)
endif
endif
!! ========================================================================
! compute the accelaration at t
do i=1,mol%n
acc(:,i)=-grd(:,i)/mass(i)
enddo
call zeroz(mol%n,acc) ! z-plane fix
! call zero3n6(mol%n,velo,acc) ! fix 6 deg. of freedom
! store positions (at t); velocities are at t-1/2dt
xyzo = mol%xyz
!ccccccccccccccccccc
! temperature and pressure/density control STEP 2
!ccccccccccccccccccc
! estimate velocities at t
veln = velo + 0.5d0*tstep*acc
! compute kinetic energy
call ekinet(mol%n, veln, mass, Ekin)
! compute temperature
T = 2.d0*Ekin/nfreedom/kB
! compute temperature scaling factors
xlam2 = dsqrt(1.0d0 + (tstep0/taut)*(Tinit/T-1.0d0))
!ccccccccccccccccccc
! velocity and position update STEP 3
!ccccccccccccccccccc
if(thermostat) then
vel = xlam2 * (velo + acc*tstep)
else
vel = velo + acc*tstep
endif
! update positions to t+dt
mol%xyz = xyzo + vel*tstep
!cccccccccccccccccc
! new temperature and pressure scaling factors
!cccccccccccccccccc
! estimate velocities at t
veln = 0.5d0*(velo + vel)
! compute kinetic energy
call ekinet(mol%n, veln, mass, Ekin)
! compute temperature
T = 2.d0*Ekin/nfreedom/kB
! compute temperature scaling factors
if(thermostat) then
xlam2 = dsqrt(1.0d0 + (tstep0/taut)*(Tinit/T-1.0d0))
endif
!ccccccccccccccccccc
! SHAKE (apply constraint at t+dt)
!ccccccccccccccccccc
if(set%shake_md) call do_shake(mol%n,xyzo,mol%xyz,vel,acc,mass,tstep)
! update velocities
velo = vel
! remove trans/rot velocities
call rmrottr(mol%n,mass,velo,mol%xyz)
! average internal coords
if(gmd)then
ngeoav=ngeoav+1
tmpg=mol%xyz/aatoau
call xyzgeo(tmpg,mol%n,na,nb,nc,1.d0,intgeo)
do j=4,mol%n
! if(j.eq.20.or.j.eq.8) write(*,*) j,tors(j),intgeo(3,j)
if(tors(j)-intgeo(3,j).gt.pi)intgeo(3,j)=intgeo(3,j)+2.d0*pi ! check 0/180 torsion changes
if(abs(tors(j)-intgeo(3,j)).gt.pi)then ! check
intgeo(3,j)=-2.0*pi-intgeo(3,j)
endif
if(abs(tors(j)-intgeo(3,j)).gt.pi) then ! check
intgeo(3,j)=-intgeo(3,j)
endif
if(abs(tors(j)-intgeo(3,j)).gt.pi) then ! check
intgeo(3,j)=2.*intgeo(3,j)
endif
if(abs(tors(j)-intgeo(3,j)).gt.pi) then ! still in error
write(*,*) j,tors(j),intgeo(3,j)
stop 'error in md/zmat'
endif
enddo
tors(1:mol%n)=intgeo(3,1:mol%n)
intgeoav = intgeoav + intgeo-intgeo0
endif
! compute averages
nstep=nstep+1
ndump=ndump+1
mdump=mdump+1
cdump=cdump+1
Edum=Edum+Epot+Ekin
Eerror=Edum/k-Epot-Ekin
Tav =Tav+T
Epav=Epav+epot
Ekav=Ekav+ekin
! pmfav(k)=rcma
if((equi.or.gmd).and.0.001*nstep*tstep/fstoau.gt.mintime)then ! check for equilibration end exit
if( nblock.gt.1 .and. abs(bavt-Tinit)/Tinit.lt.0.02.and. &
& abs(slope).lt.driftthr) then
write(*,*) 'GOOD AVERAGES REACHED'
goto 1000
endif
endif
if((equi.or.gmd).and.0.001*nstep*tstep/fstoau.gt.maxtime)then ! check for equilibration end exit
write(*,*) 'MAXIMUM RUN TIME EXCEEDED'
goto 1000
endif
! end MD loop
enddo
! exit
1000 call close_file(trj)
if (pdb /= -1) then
call close_file(pdb)
end if
write(*,*) 'average properties '
write(*,*) 'Epot :',Epav/k
write(*,*) 'Epot (accurate SCC):',ep_prec/k3
write(*,*) 'Ekin :',Ekav/k
write(*,*) 'Etot :',(Ekav+Epav)/k
write(*,*) 'T :',Tav/k
if (abs(Tav/k-Tinit).gt.0.02*Tinit .and. &
& k.gt.500 .and. thermostat .and. (.not.equi)) &
& write(*,*)'thermostating problem'
call wrmdrestart(mol%n,mol%xyz,velo)
call touch_file('xtbmdok')
write(*,*) 'normal exit of md()'
end subroutine md
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
pure subroutine regress(n1,n2,rege,slope)
implicit none
real(wp), intent(in) :: rege(:)
real(wp), intent(out) :: slope
integer, intent(in) :: n1,n2
integer :: n,i
real(wp) :: sx,sy,sxx,sxy,x
n=n2-n1+1
sx=0
sy=0
sxy=0
sxx=0
x=0
do i=n1,n2
x=x+1.
sx=sx+x
sy=sy+rege(i)
sxx=sxx+x**2
sxy=sxy+x*rege(i)
enddo
slope=(real(n, wp)*sxy-sx*sy)/(real(n, wp)*sxx-sx*sx)
end subroutine regress
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine blocksd(n,nbl,ebl,tbl,esd,tsd)
implicit none
integer n,nbl
real(wp) ebl(nbl),tbl(nbl),dum,av,esd,tsd
integer i
dum=0
do i=1,nbl
dum=dum+ebl(i)
enddo
av=dum/dble(nbl)
esd=av
! dum=0
! do i=1,nbl
! dum=dum+(ebl(i)-av)**2
! enddo
! esd=sqrt(dum/dble(nbl-1))/dble(n)
dum=0
do i=1,nbl
dum=dum+tbl(i)
enddo
av=dum/dble(nbl)
tsd=av
! dum=0
! do i=1,nbl
! dum=dum+(tbl(i)-av)**2
! enddo
! tsd=sqrt(dum/dble(nbl-1))
end
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine ekinet(n,velo,mass,E)
implicit none
real(wp) velo(3,n),mass(n),E
integer n,i
e=0
do i=1,n
e=e+mass(i)*(velo(1,i)**2+velo(2,i)**2+velo(3,i)**2)
enddo
e=e*0.5
end subroutine ekinet
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! rescale velos to get temperature tsoll
! H's get half of the velo
subroutine veloscal(n,iat,velo,mass,tsoll,t)
implicit none
integer n
real(wp) velo (3,n)
real(wp) mass(n)
integer iat(n),nh,i,j
real(wp) velo2(3,n)
real(wp) tsoll,t,edum,f
velo = velo * sqrt(tsoll/t)
velo2 = velo
j=0
f=0.5d0
10 j=j+1
do i=1,n
if(iat(i).eq.1)then
velo(1:3,i)=velo2(1:3,i)*f
else
velo(1:3,i)=velo2(1:3,i)
endif
enddo
20 call ekinet(n,velo,mass,edum)
t=edum/(0.5*3*n*0.316681534524639E-05)
f=f+0.0001
if(abs(t-tsoll).gt.1.and.j.lt.100000) goto 10
end
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine wrmdrestart(n,xyz,velo)
implicit none
integer n,i
real(wp) xyz(3,n),velo(3,n)
integer :: ich
call open_file(ich,'mdrestart','w')
write(ich,*) '-1.0'
do i=1,n
write(ich,'(6D22.14)')xyz(1:3,i),velo(1:3,i)
enddo
call close_file(ich)
end subroutine wrmdrestart
subroutine rdmdrestart(n,xyz,velo)
use xtb_setparam, only : get_namespace
implicit none
integer n,i
real(wp) xyz(3,n),velo(3,n),dum
integer :: ich
character(len=:),allocatable :: fname
call open_file(ich,'mdrestart','r')
read(ich,*) dum
do i=1,n
read (ich,'(6D22.14)')xyz(1:3,i),velo(1:3,i)
enddo
call close_file(ich)
end subroutine rdmdrestart
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! initialize velocities uniformly
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
subroutine mdinitu(n,iat,velo,mass,Ekin)
use xtb_setparam
implicit none
integer n
real(wp) velo(3,n)
integer iat(n)
real(wp) mass(n)
real(wp) Ekin
real x,ranf
real(wp) eperat,v,f,t,edum,f2
integer i,j
integer, allocatable :: iseed(:)
call initrand
eperat=Ekin/(3.0*n)
do i=1,n
f2=1
if(iat(i).eq.1) f2=2
v=sqrt(2*eperat/mass(i))
f=1.0d0
call random_number(x)
if(x.gt.0.5)f=-1.0d0
velo(1,i)=v*f*f2
f=1.0d0
call random_number(x)
if(x.gt.0.5)f=-1.0d0
velo(2,i)=v*f*f2
f=1.0d0
call random_number(x)
if(x.gt.0.5)f=-1.0d0
velo(3,i)=v*f*f2
enddo
call ekinet(n,velo,mass,edum)
t=edum/(0.5*3*n*0.316681534524639E-05)
end subroutine mdinitu
!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
! integer random number n=