diff --git a/.github/workflows/python.yml b/.github/workflows/python.yml index b3147d00..9f1cfe3b 100644 --- a/.github/workflows/python.yml +++ b/.github/workflows/python.yml @@ -148,7 +148,7 @@ jobs: - uses: actions/checkout@v3 - name: Install GCC and make - run: C:\msys64\usr\bin\bash.exe -lc "pacman -Sy --noconfirm make mingw-w64-x86_64-toolchain" + run: C:\msys64\usr\bin\bash.exe -lc "pacman -Sy --noconfirm make mingw-w64-x86_64-toolchain mingw-w64-x86_64-gcc-fortran mingw-w64-x86_64-gcc-libgfortran mingw-w64-x86_64-gcc-libs mingw-w64-x86_64-gcc-lto-dump mingw-w64-x86_64-gcc-objc" - name: Build and Test Python 3.6 uses: actions/setup-python@v3 diff --git a/.gitignore b/.gitignore index 31dccfab..f8e17e05 100644 --- a/.gitignore +++ b/.gitignore @@ -22,3 +22,5 @@ lib/* *.log *.sh sbatch* +*.obj +make.inc diff --git a/.readthedocs.yaml b/.readthedocs.yaml new file mode 100644 index 00000000..0f63d4f3 --- /dev/null +++ b/.readthedocs.yaml @@ -0,0 +1,24 @@ +# .readthedocs.yml +# "Read the Docs" doc-hosting website configuration file +# See https://docs.readthedocs.io/en/stable/config-file/v2.html for details + +# Required (for this file format) +version: 2 + +# Set the OS, Python version and other tools you might need +build: + os: ubuntu-22.04 + tools: + python: "3.11" + +# Build all formats +formats: all + +# Build documentation in the docs/ directory with Sphinx +sphinx: + configuration: docs/conf.py + +# Optionally set the version of Python and requirements required to build your docs +python: + install: + - requirements: docs/requirements.txt diff --git a/AUTHORS b/AUTHORS index 74e9fd6d..a3b912c3 100644 --- a/AUTHORS +++ b/AUTHORS @@ -1,13 +1,18 @@ -Authors of FMM3D: +FMM3D development team -Zydrunas Gimbutas +Travis Askham +Alex Barnett +Zydrunas Gimbutas Leslie Greengard Libin Lu +Jeremy Magland +Dhairya Malhotra Manas Rachh Vladimir Rokhlin +Michael O'Neil +Felipe Vico -Jeremy Magland contributed support for python interface +The contributions of Alex Barnett, Leslie Greengard, +Libin Lu, Jeremy Magland, Dhairya Malhotra, and Manas Rachh are +works made for hire for The Simons Foundation, Inc. -Michael O'Neil contributed multiple scattering codes - -Dhairya Malhotra contributed [Scientific computing template library SCTL] (https://github.com/dmalhotra/SCTL) diff --git a/CONTRIBUTING b/CONTRIBUTING new file mode 100644 index 00000000..ff5845d3 --- /dev/null +++ b/CONTRIBUTING @@ -0,0 +1,37 @@ +Contributions of source code, documentations, and fixes are happily +accepted via GitHub merge requests. +If you are planning a large contribution, we encourage you to discuss +the concept on a GitHub issue, or a merge request. + +FMM3D is distributed under the Apache License, Version 2.0 (see LICENSE). +The act of submitting a pull request or patch (with or without an explicit +Signed-off-by tag) will be understood as an affirmation of the +following: + + 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. + + diff --git a/LICENSE b/LICENSE index 67b251d1..70afa77d 100644 --- a/LICENSE +++ b/LICENSE @@ -1,20 +1,35 @@ -Copyright (C) 2019-2020 The Simons Foundation, Inc., Zydrunas Gimbutas, -and Vladimir Rokhlin - All Rights Reserved. - -FMM3D is 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 +Copyright (C) 2019-2023 The Simons Foundation, Inc., FMM3D Development Team +(see AUTHORS) - All Rights Reserved. +FMM3D as a whole is 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. + +This product bundles the file "src/Common/dlaran.f", +which is available under a modified "3-Clause BSD" license. +For details, see src/Common/dlaran.f. +This product bundles the files "src/Common/dfft.f", "src/Helmholtz/hwts3e.f", +"src/Helmholtz/hwts_3d_iprec0.txt", +"src/Helmholtz/hwts_3d_iprec1.txt", +"src/Helmholtz/hwts_3d_iprec2.txt", +"src/Helmholtz/hwts_3d_iprec3.txt", +"src/Helmholtz/hwts_3d_iprec4.txt", +"src/Helmholtz/hnumfour.f", +"src/Helmholtz/hnumphys.f", +"src/Laplace/lwtsexp_sep1.f", and +"src/Laplace/lwtsexp_sep2.f", +which are available under the public domain. See each file for details. ------- - +References +=========== Also, if you find this library useful, or it helps you in creating software or publications, please acknowledge that fact by citing this repository along with the author names, and any corresponding journal diff --git a/docs/conf.py b/docs/conf.py index f7f90ccf..d77a2c61 100644 --- a/docs/conf.py +++ b/docs/conf.py @@ -12,16 +12,11 @@ # All configuration values have a default; values that are commented out # serve to show the default. -import sys -import os -import sphinx.ext.autodoc +#import sphinx.ext.autodoc # If extensions (or modules to document with autodoc) are in another directory, # add these directories to sys.path here. If the directory is relative to the # documentation root, use os.path.abspath to make it absolute, like shown here. -sys.path.insert(0, os.path.abspath('..')) -sys.path.append(os.path.abspath('sphinxext')) -sys.path.insert(0,os.path.abspath('../../texext')) # -- General configuration ------------------------------------------------ @@ -33,12 +28,11 @@ # extensions coming with Sphinx (named 'sphinx.ext.*') or your custom # ones. extensions = [ - 'sphinx.ext.autodoc', +# 'sphinx.ext.autodoc', 'sphinx.ext.todo', 'sphinx.ext.napoleon', 'sphinx.ext.mathjax', -# 'sphinx.ext.autosectionlabel', # needs v 1.4; can :ref: other files w/o this; removed 7/29/18 - 'texext', + 'sphinx_math_dollar', 'sphinxcontrib.bibtex', ] @@ -77,7 +71,7 @@ # # This is also used if you do content translation via gettext catalogs. # Usually you set "language" from the command line for these cases. -language = None +language = 'en' # There are two options for replacing |today|: either, you set today to some # non-false value, then it is used: diff --git a/docs/fortran-c.rst b/docs/fortran-c.rst index e75587af..ecb0e6ba 100644 --- a/docs/fortran-c.rst +++ b/docs/fortran-c.rst @@ -355,7 +355,7 @@ and the associated pressure Here $x_{j}$ are the source locations, $\sigma_{j}$ are the Stokeslet densities, $\nu_{j}$ are the stresslet orientation vectors, $\mu_{j}$ -are the stresslet densities, and rhw xollwxrion of $x$ +are the stresslet densities, and the locations $x$ at which the velocity and its gradient are evaluated are referred to as the evaluation points. diff --git a/docs/install.rst b/docs/install.rst index a9aa572b..b36651f6 100644 --- a/docs/install.rst +++ b/docs/install.rst @@ -114,7 +114,8 @@ In order to disable multi-threading, append ``OMP=OFF`` to the make task. In order to use the optimized direct evaluation kernels (this automatically turns on multithreading as well), append ``FAST_KER=ON`` to -the make task. This option is currently *not* supported on Windows. +the make task. The optimized direct kernel evaluation rotuines require +gcc version 9 or higher. This option is currently *not* supported on Windows. All of these different libraries are @@ -175,7 +176,7 @@ usage examples for the Python wrappers. .. note:: On windows, you will need to update ``distutils.cfg`` located in ``(PYTHON_INSTALL_DIR)\Lib\distutils`` and set it to:: - + [build] compiler=mingw32 @@ -212,7 +213,7 @@ First make sure you have MATLAB installed. Then run ``make matlab`` (after copying over the operating system specific make.inc.* file to make.inc) which links the .m files to -the .c file in the matlab folder. +the .c file in the matlab folder. To run tests, you can run ``matlab test_hfmm3d.m`` and ``matlab test_lfmm3d.m`` and it should return with $0$ crashes. @@ -220,6 +221,13 @@ To run tests, you can run ``matlab test_hfmm3d.m`` and Example codes for demonstrating the Helmholtz and Laplace interfaces are ``hfmm3d_example.m`` and ``lfmm3d_example.m``. +In order to build the MATLAB routines with the optimized direct kernel +evaluation routines on a Mac, we recommend building mex with gcc +instead of clang. The relevant xml files for configuring mex to use +gcc can be found at https://github.com/danfortunato/matlab-gcc. +Follow the instructions there to configure mex with gcc, and set +CC = ``gcc-`` in your make.inc file. + Tips for installing dependencies ********************************** @@ -262,16 +270,16 @@ Then do:: On Windows ~~~~~~~~~~~~~~~ -Download 64 bit mingw (available `here `_). +Download 64 bit mingw (Available at https://sourceforge.net/projects/mingw-w64/files/mingw-w64/mingw-w64-release/). Recommended version is ``gcc-8.1.0``, ``x86_64-posix-seh``. Follow the install instructions and append to the environment variable ``PATH`` the location of the bin directory of your mingw installation. Download and install ``make`` for windows -(Available `here `_). +(Available at http://gnuwin32.sourceforge.net/packages/make.htm). Download and install ``git`` for windows -(Available `here `_). +(Available at https://git-scm.com/download/win). Tips for installing optional dependencies ****************************************** diff --git a/docs/requirements.txt b/docs/requirements.txt index a6adccf7..35effd55 100644 --- a/docs/requirements.txt +++ b/docs/requirements.txt @@ -1,2 +1,3 @@ texext sphinxcontrib.bibtex +sphinx_rtd_theme diff --git a/julia/AUTHORS b/julia/AUTHORS new file mode 100644 index 00000000..1fa1b764 --- /dev/null +++ b/julia/AUTHORS @@ -0,0 +1,17 @@ +FMM3D development team + +Travis Askham +Alex Barnett +Zydrunas Gimbutas +Leslie Greengard +Libin Lu +Jeremy Magland +Dhairya Malhotra +Manas Rachh +Vladimir Rokhlin +Michael O'Neil + +The contributions of Alex Barnett, Leslie Greengard, +Libin Lu, Jeremy Magland, Dhairya Malhotra, and Manas Rachh are +works made for hire for The Simons Foundation, Inc. + diff --git a/julia/LICENSE b/julia/LICENSE new file mode 100644 index 00000000..70afa77d --- /dev/null +++ b/julia/LICENSE @@ -0,0 +1,36 @@ +Copyright (C) 2019-2023 The Simons Foundation, Inc., FMM3D Development Team +(see AUTHORS) - All Rights Reserved. + +FMM3D as a whole is 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. + +This product bundles the file "src/Common/dlaran.f", +which is available under a modified "3-Clause BSD" license. +For details, see src/Common/dlaran.f. +This product bundles the files "src/Common/dfft.f", "src/Helmholtz/hwts3e.f", +"src/Helmholtz/hwts_3d_iprec0.txt", +"src/Helmholtz/hwts_3d_iprec1.txt", +"src/Helmholtz/hwts_3d_iprec2.txt", +"src/Helmholtz/hwts_3d_iprec3.txt", +"src/Helmholtz/hwts_3d_iprec4.txt", +"src/Helmholtz/hnumfour.f", +"src/Helmholtz/hnumphys.f", +"src/Laplace/lwtsexp_sep1.f", and +"src/Laplace/lwtsexp_sep2.f", +which are available under the public domain. See each file for details. + +References +=========== +Also, if you find this library useful, or it helps you in creating +software or publications, please acknowledge that fact by citing this +repository along with the author names, and any corresponding journal +article. diff --git a/make.inc.icc b/make.inc.icc index d09add05..4e26423e 100644 --- a/make.inc.icc +++ b/make.inc.icc @@ -1,7 +1,7 @@ CC=icc CXX=icpc FC=ifort -FFLAGS= -fPIC -O3 -march=native -funroll-loops -mkl +FFLAGS= -fPIC -O3 -march=native -funroll-loops -mkl -w LIBS=-lm CLIBS = -lm -ldl -lifcore diff --git a/make.inc.macos.gnu b/make.inc.macos.gnu index 09d29211..5051a7ac 100644 --- a/make.inc.macos.gnu +++ b/make.inc.macos.gnu @@ -1,6 +1,6 @@ # makefile overrides # OS: macOS -# Compiler: gfortran X.X +# Compiler: gfortran X.X/Clang # OpenMP: enabled # @@ -22,8 +22,6 @@ OMPLIBS = -lgomp # MATLAB interface: FDIR=$$(dirname `gfortran --print-file-name libgfortran.dylib`) MFLAGS +=-L${FDIR} -MEX = $(shell ls -d /Applications/MATLAB_R20**.app)/bin/mex -#LIBS = -lm -lstdc++.6 -#MEXLIBS= -lm -lstdc++.6 -lgfortran -ldl +MEX = $(shell ls -d /Applications/MATLAB_R* | sort | tail -1)/bin/mex diff --git a/make.inc.macos.intel b/make.inc.macos.intel index cb150b6e..5797c02c 100644 --- a/make.inc.macos.intel +++ b/make.inc.macos.intel @@ -7,7 +7,8 @@ CC=icc CXX=icpc FC=ifort -FFLAGS= -fPIC -O3 -march=native -funroll-loops -mkl -std=legacy + +FFLAGS= -fPIC -O3 -march=native -funroll-loops -mkl -std=legacy -w LIBS= #CLIBS = -lm -ldl -lifcore CLIBS = -lm -ldl @@ -26,6 +27,11 @@ endif # -isysroot /Library/Developer/CommandLineTools/SDKs/MacOSX.sdk OMPFLAGS = -qopenmp -OMPLIBS = +OMPLIBS = -qopenmp + +# MATLAB interface: +FDIR=$$(dirname `gfortran --print-file-name libgfortran.dylib`) +MFLAGS +=-L${FDIR} +MEX = $(shell ls -d /Applications/MATLAB_R* | sort | tail -1)/bin/mex diff --git a/make.inc.macos.nag b/make.inc.macos.nag new file mode 100644 index 00000000..6c07c8ff --- /dev/null +++ b/make.inc.macos.nag @@ -0,0 +1,30 @@ +# make.inc for NAG Fortran compiler +# Online documentation: https://www.nag.com/nagware/np/r71_doc/manual/compiler_2_4.html#OPTIONS + +FC=nagfor + +# The path of libraries by NAG compiler +LIB_NAG = /usr/local/lib/NAG_Fortran + +# Brief descriptions of specified options below: +# -PIC: produce position-independent code +# -O2: optimization at a normal level +# -Ounroll=2: the depth of loo-unrolling +# -f90_sign: use the Fortran 77/90 version of the SIGN intrinsic instead of the Fortran 95 one +# -dcfuns: enable recognition of non-standard double precision complex intrinsic functions. +# -dusty: allows the compilation and execution of legacy software. +# -w=x77: suppresses extension warnings for obsolete but common extensions to Fortran 77. +# -w=unreffed: suppresses warning messages about variables set but never referenced. +# -w=unused: suppresses warning messages about unused entities. +# -ieee=full: set the mode of IEEE arithmetic operation according to full mode. + +# Main compile command for NAG Fortran compiler +FFLAGS = -PIC -O2 -Ounroll=1 -f90_sign -dcfuns -dusty -w=obs -w=x77 -w=unreffed -w=unused -ieee=full + +# Flags overwritten in makefile +OMPFLAGS = -openmp +# OMPLIBS = -lf71omp64 -L$(LIB_NAG) +OMPLIBS = -lf71omp64 -lf71rts -L$(LIB_NAG) +LIBS = -lf71rts -L$(LIB_NAG) +CLIBS = -lm -ldl -L$(LIB_NAG) +FFLAGS_DYN = -PIC diff --git a/make.inc.macos_arm64.gnu b/make.inc.macos_arm64.gnu new file mode 100644 index 00000000..acf5dd34 --- /dev/null +++ b/make.inc.macos_arm64.gnu @@ -0,0 +1,33 @@ +# makefile overrides +# OS: macOS +# Compiler: gfortran X.X/Clang +# OpenMP: enabled +# + +CC=gcc +CXX=g++ +FC=gfortran + +FFLAGS= -fPIC -O3 -arch arm64 -std=legacy -w -mno-outline-atomics +FFLAGS_DYN= -shared -fPIC +CFLAGS= -fPIC -O3 -arch arm64 -std=c99 +CXXFLAGS= -std=c++11 -DSCTL_PROFILE=-1 -fPIC -O3 -arch arm64 + + +ifeq ($(PREFIX),) + FMM_INSTALL_DIR=/usr/local/lib +endif + + +CFLAGS += -I src + +# OpenMP with gcc on OSX needs the following +OMPFLAGS = -fopenmp +OMPLIBS = -lgomp + +# MATLAB interface: +FDIR=$$(dirname `gfortran --print-file-name libgfortran.dylib`) +MFLAGS +=-L${FDIR} +MEX = $(shell ls -d /Applications/MATLAB_R* | sort | tail -1)/bin/mex + + diff --git a/make.inc.nvhpc b/make.inc.nvhpc new file mode 100644 index 00000000..a42021de --- /dev/null +++ b/make.inc.nvhpc @@ -0,0 +1,16 @@ +CC=nvc +CXX=nvc++ +FC=nvfortran +FFLAGS= -fPIC -O3 +LIBS=-lm +CLIBS = -lm -ldl -lifcore + +ifeq ($(FAST_KER),ON) + +CXXFLAGS = $(FFLAGS) +CXXFLAGS += -std=c++11 -DSCTL_HAVE_SVML -DSCTL_PROFILE=-1 +LIBS += -cxxlib +endif + +OMPLIBS = +OMPFLAGS = -mp diff --git a/make.inc.windows.mingw b/make.inc.windows.mingw index d2c4e49c..0c58923b 100644 --- a/make.inc.windows.mingw +++ b/make.inc.windows.mingw @@ -4,7 +4,7 @@ # OpenMP: default enabled unless specified # -FFLAGS= -fPIC -O3 -funroll-loops -std=legacy +FFLAGS= -fPIC -O3 -funroll-loops -std=legacy -w DYNAMICLIB = $(LIBNAME).dll LIMPLIB = $(LIBNAME)_dll.lib diff --git a/makefile b/makefile index a7e35712..1e755014 100644 --- a/makefile +++ b/makefile @@ -1,4 +1,4 @@ -# Makefile for FMM3D + # # This is the only makefile; there are no makefiles in subdirectories. # Users should not need to edit this makefile (doing so would make it # hard to stay up to date with repo version). Rather in order to @@ -14,8 +14,9 @@ FC=gfortran # set compiler flags for c and fortran -FFLAGS= -fPIC -O3 -march=native -funroll-loops -std=legacy -CFLAGS= -fPIC -O3 -march=native -funroll-loops -std=c99 +FFLAGS= -fPIC -O3 -march=native -funroll-loops -std=legacy -w +FFLAGS_DYN= -shared -fPIC +CFLAGS= -fPIC -O3 -march=native -funroll-loops -std=gnu17 CXXFLAGS= -std=c++11 -DSCTL_PROFILE=-1 -fPIC -O3 -march=native -funroll-loops # set linking libraries @@ -31,7 +32,7 @@ PYTHON=python # flags for MATLAB MEX compilation.. -MFLAGS=-compatibleArrayDims -DMWF77_UNDERSCORE1 +MFLAGS=-compatibleArrayDims -DMWF77_UNDERSCORE1 "CFLAGS=$(CFLAGS)" MWFLAGS=-c99complex MOMPFLAGS = -D_OPENMP @@ -86,6 +87,7 @@ endif # vectorized kernel directory SRCDIR = ./vec-kernels/src INCDIR = ./vec-kernels/include +FINCDIR = ./src/Helmholtz LIBDIR = lib-static # objects to compile @@ -192,10 +194,10 @@ usage: $(CXX) -c $(CXXFLAGS) $< -o $@ %.o: %.c %.h $(CC) -c $(CFLAGS) $< -o $@ -%.o: %.f %.h - $(FC) -c $(FFLAGS) $< -o $@ +%.o: %.f + $(FC) -c $(FFLAGS) -I$(FINCDIR) $< -o $@ %.o: %.f90 - $(FC) -c $(FFLAGS) $< -o $@ + $(FC) -c $(FFLAGS) -I$(FINCDIR) $< -o $@ # build the library... lib: $(STATICLIB) $(DYNAMICLIB) @@ -211,7 +213,7 @@ install: $(STATICLIB) $(DYNAMICLIB) mkdir -p $(FMM_INSTALL_DIR) cp -f lib/$(DYNAMICLIB) $(FMM_INSTALL_DIR)/ cp -f lib-static/$(STATICLIB) $(FMM_INSTALL_DIR)/ - [ ! -f lib/$(LIMPLIB) ] || cp lib/$(LIMPLIB) $(FMM_INSTALL_DIR)/ + [ ! -f lib/$(LIMPLIB) ] || cp -f lib/$(LIMPLIB) $(FMM_INSTALL_DIR)/ @echo "Make sure to include " $(FMM_INSTALL_DIR) " in the appropriate path variable" @echo " LD_LIBRARY_PATH on Linux" @echo " PATH on windows" @@ -224,7 +226,7 @@ $(STATICLIB): $(OBJS) ar rcs $(STATICLIB) $(OBJS) mv $(STATICLIB) lib-static/ $(DYNAMICLIB): $(OBJS) - $(FC) -shared -fPIC $(OBJS) -o $(DYNAMICLIB) $(DYLIBS) + $(FC) $(FFLAGS_DYN) $(OBJS) -o $(DYNAMICLIB) $(DYLIBS) mv $(DYNAMICLIB) lib/ [ ! -f $(LIMPLIB) ] || mv $(LIMPLIB) lib/ diff --git a/src/Common/cumsum.f b/src/Common/cumsum.f index 3b9653b2..4ad4ecb9 100644 --- a/src/Common/cumsum.f +++ b/src/Common/cumsum.f @@ -1,6 +1,3 @@ -c Copyright (C) 2020-2021: The Simons Fonudation, Inc., Travis Askham, -c Michael O'Neil, and Felipe Vico. -c c This file contains the following user callable c routines: c diff --git a/src/Common/fmmcommon.f b/src/Common/fmmcommon.f index d516ad67..ccf52b5a 100644 --- a/src/Common/fmmcommon.f +++ b/src/Common/fmmcommon.f @@ -218,8 +218,8 @@ subroutine ireorderi(ndim,n,arr,arrsort,iarr) c subroutine drescale(n,a,r) implicit none - real *8 a(n),r integer i,n + real *8 a(n),r C$OMP PARALLEL DO DEFAULT(SHARED) do i=1,n diff --git a/src/Common/pts_tree3d.f b/src/Common/pts_tree3d.f index 922dd921..72f66e10 100644 --- a/src/Common/pts_tree3d.f +++ b/src/Common/pts_tree3d.f @@ -11,13 +11,20 @@ c this functionality tree will be added in later c c This code has the following user callable routines -c c pts_tree_mem -> returns memory requirements for creating c a tree based on max number of sources/targets c in a box (tree length c number of boxes, number of levels) -c pts_tree -> Make the actual tree, returns centers of boxes, +c pts_tree_mem_bbox -> same as pts_tree_mem, but +c the center and boxsize at level0 are specified. +c pts_tree_mem, under the hood calls pts_tree_mem_lev0. +c The purpose of this routine is to allow a specfied +c bounding box, independent of input source and target +c locations. +c pts_tree_build -> Make the actual tree, returns centers of boxes, c colleague info, pts sorted on leaf boxes +c pts_tree_build_bbox -> Same as pts_tree_build, but bounding +c box at root level specified c c iptr(1) - laddr c iptr(2) - ilevel @@ -31,20 +38,182 @@ c - subroutine pts_tree_mem(src,ns,targ,nt,idivflag,ndiv,nlmin,nlmax, - 1 ifunif,iper,nlevels,nboxes,ltree) + subroutine estimate_bounding_box(src, ns, targ, nt, bs0, cen0) +c---------------------------------------- +c estimate bounding box for a given collection of sources and targets +c +c input parameters: +c - src: real *8 (3,ns) +c source locations +c - ns: integer +c number of sources +c - targ: real *8 (3,nt) +c target locations +c - nt: integer +c number of targets +c +c output parameters: +c - bs0: real *8 +c size of bounding box at root level +c - cen0: real *8 (3) +c center of bounding box at root level +c------------------------------------------ + implicit none + integer, intent(in) :: ns, nt + real *8, intent(in) :: src(3,ns), targ(3,nt) + real *8, intent(out) :: bs0, cen0(3) + + integer i + real *8 sizey, sizez + real *8 xmin, xmax, ymin, ymax, zmin, zmax + +c +c step 1: find enclosing box +c + xmin = src(1,1) + xmax = src(1,1) + ymin = src(2,1) + ymax = src(2,1) + zmin = src(3,1) + zmax = src(3,1) +C$OMP PARALLEL DO DEFAULT(SHARED) +C$OMP$REDUCTION(min:xmin,ymin,zmin) +C$OMP$REDUCTION(max:xmax,ymax,zmax) + do i=1,ns + if(src(1,i).lt.xmin) xmin = src(1,i) + if(src(1,i).gt.xmax) xmax = src(1,i) + if(src(2,i).lt.ymin) ymin = src(2,i) + if(src(2,i).gt.ymax) ymax = src(2,i) + if(src(3,i).lt.zmin) zmin = src(3,i) + if(src(3,i).gt.zmax) zmax = src(3,i) + enddo +C$OMP END PARALLEL DO + +C$OMP PARALLEL DO DEFAULT(SHARED) +C$OMP$REDUCTION(min:xmin,ymin,zmin) +C$OMP$REDUCTION(max:xmax,ymax,zmax) + do i=1,nt + if(targ(1,i).lt.xmin) xmin = targ(1,i) + if(targ(1,i).gt.xmax) xmax = targ(1,i) + if(targ(2,i).lt.ymin) ymin = targ(2,i) + if(targ(2,i).gt.ymax) ymax = targ(2,i) + if(targ(3,i).lt.zmin) zmin = targ(3,i) + if(targ(3,i).gt.zmax) zmax = targ(3,i) + enddo +C$OMP END PARALLEL DO + + bs0 = (xmax - xmin) + sizey = (ymax - ymin) + sizez = (zmax - zmin) + if(sizey.gt.bs0) bs0 = sizey + if(sizez.gt.bs0) bs0 = sizez + + cen0(1) = (xmin + xmax)/2 + cen0(2) = (ymin + ymax)/2 + cen0(3) = (zmin + zmax)/2 + + + + return + end +c +c +c +c +c +c + subroutine pts_tree_mem(src, ns, targ, nt, idivflag, ndiv, + 1 nlmin, nlmax, ifunif, iper, nlevels, nboxes, ltree) c c c c---------------------------------------- -c get memory requirements for the tree +c get memory requirements for the tree, where bounding box is +c determined from the src and target locations +c +c input parameters: +c - src: real *8 (3,ns) +c source locations +c - ns: integer +c number of sources +c - targ: real *8 (3,nt) +c target locations +c - nt: integer +c number of targets +c - idivflag: integer +c subdivision criterion +c * divflag = 0 -> subdivide on sources only +c * idivflag = 1 -> subdivide on targets only +c * idivflag = 2 -> subdivide on max(sources+targets) +c - ndiv: integer +c subdivide if relevant number of particles +c per box is greater than ndiv +c - nlmin: integer +c minimum number of levels of uniform refinement. +c Note that empty boxes are not pruned along the way +c - nlmax: integer +c max number of levels +c - ifunif: integer +c flag for creating uniform pruned tree +c Tree is uniform if ifunif=1 (Currently pruned part +c under construction) +c - iper: integer +c flag for periodic implementations. Currently unused. +c Feature under construction +c +c +c output parameters +c - nlevels: integer +c number of levels +c - nboxes: integer +c number of boxes +c - ltree: integer *8 +c length of tree +c---------------------------------- +c + + + implicit none + integer, intent(in) :: ns, nt, idivflag, ndiv, nlmin, nlmax + integer, intent(in) :: ifunif, iper + integer, intent(out) :: nboxes, nlevels + integer *8, intent(out) :: ltree + double precision, intent(in) :: src(3,ns),targ(3,nt) + double precision bs0, cen0(3) + + call estimate_bounding_box(src, ns, targ, nt, bs0, cen0) + + call pts_tree_mem_bbox(src, ns, targ, nt, idivflag, ndiv, + 1 nlmin, nlmax, ifunif, iper, bs0, cen0, nlevels, nboxes, + 2 ltree) + + + return + end +c c c +c +c + subroutine pts_tree_mem_bbox(src, ns, targ, nt, idivflag, ndiv, + 1 nlmin, nlmax, ifunif, iper, bs0, cen0, nlevels, nboxes, + 2 ltree) +c +c +c +c---------------------------------------- +c get memory requirements for the tree, where bounding box is user +c specifed +c c input parameters: c - src: real *8 (3,ns) c source locations +c - ns: integer +c number of sources c - targ: real *8 (3,nt) c target locations +c - nt: integer +c number of targets c - idivflag: integer c subdivision criterion c * divflag = 0 -> subdivide on sources only @@ -65,6 +234,10 @@ subroutine pts_tree_mem(src,ns,targ,nt,idivflag,ndiv,nlmin,nlmax, c - iper: integer c flag for periodic implementations. Currently unused. c Feature under construction +c - bs0: real *8 +c size of bounding box at root level +c - cen0: real *8 (3) +c center of bounding box at root level c c c output parameters @@ -72,7 +245,7 @@ subroutine pts_tree_mem(src,ns,targ,nt,idivflag,ndiv,nlmin,nlmax, c number of levels c - nboxes: integer c number of boxes -c - ltree: integer +c - ltree: integer *8 c length of tree c---------------------------------- c @@ -84,7 +257,9 @@ subroutine pts_tree_mem(src,ns,targ,nt,idivflag,ndiv,nlmin,nlmax, integer nbmax,nbtot integer ns,nt,ndiv integer nlmin,iper,ifunif + integer nlmax double precision src(3,ns),targ(3,nt) + double precision bs0, cen0(3) integer, allocatable :: laddr(:,:),ilevel(:),iparent(:),nchild(:) @@ -98,7 +273,6 @@ subroutine pts_tree_mem(src,ns,targ,nt,idivflag,ndiv,nlmin,nlmax, 1 ichild2(:,:),isrcse2(:,:),itargse2(:,:) double precision, allocatable :: centers2(:,:) - integer nlmax integer i,itype,j double precision, allocatable :: centerstmp(:,:,:) @@ -109,9 +283,7 @@ subroutine pts_tree_mem(src,ns,targ,nt,idivflag,ndiv,nlmin,nlmax, integer nbloc,nbctr,nbadd,irefine,ilev,ifirstbox,ilastbox integer iii integer ibox,nn,nss,ntt - double precision sizey,sizez - double precision xmin,xmax,ymin,ymax,zmin,zmax double precision dfac nbmax = 100000 @@ -125,46 +297,10 @@ subroutine pts_tree_mem(src,ns,targ,nt,idivflag,ndiv,nlmin,nlmax, allocate(centers(3,nbmax),isrcse(2,nbmax),itargse(2,nbmax)) allocate(isrc(ns),itarg(nt)) -c -c step 1: find enclosing box -c - xmin = src(1,1) - xmax = src(1,1) - ymin = src(2,1) - ymax = src(2,1) - zmin = src(3,1) - zmax = src(3,1) -C$OMP PARALLEL DO DEFAULT(SHARED) -C$OMP$REDUCTION(min:xmin,ymin,zmin) -C$OMP$REDUCTION(max:xmax,ymax,zmax) - do i=1,ns - if(src(1,i).lt.xmin) xmin = src(1,i) - if(src(1,i).gt.xmax) xmax = src(1,i) - if(src(2,i).lt.ymin) ymin = src(2,i) - if(src(2,i).gt.ymax) ymax = src(2,i) - if(src(3,i).lt.zmin) zmin = src(3,i) - if(src(3,i).gt.zmax) zmax = src(3,i) - enddo -C$OMP END PARALLEL DO - -C$OMP PARALLEL DO DEFAULT(SHARED) -C$OMP$REDUCTION(min:xmin,ymin,zmin) -C$OMP$REDUCTION(max:xmax,ymax,zmax) - do i=1,nt - if(targ(1,i).lt.xmin) xmin = targ(1,i) - if(targ(1,i).gt.xmax) xmax = targ(1,i) - if(targ(2,i).lt.ymin) ymin = targ(2,i) - if(targ(2,i).gt.ymax) ymax = targ(2,i) - if(targ(3,i).lt.zmin) zmin = targ(3,i) - if(targ(3,i).gt.zmax) zmax = targ(3,i) - enddo -C$OMP END PARALLEL DO - - boxsize(0) = (xmax - xmin) - sizey = (ymax - ymin) - sizez = (zmax - zmin) - if(sizey.gt.boxsize(0)) boxsize(0) = sizey - if(sizez.gt.boxsize(0)) boxsize(0) = sizez + boxsize(0) = bs0 + centers(1,1) = cen0(1) + centers(2,1) = cen0(2) + centers(3,1) = cen0(3) c c set tree info for level 0 @@ -178,9 +314,6 @@ subroutine pts_tree_mem(src,ns,targ,nt,idivflag,ndiv,nlmin,nlmax, ichild(i,1) = -1 enddo - centers(1,1) = (xmin+xmax)/2 - centers(2,1) = (ymin+ymax)/2 - centers(3,1) = (zmin+zmax)/2 isrcse(1,1) = 1 isrcse(2,1) = ns @@ -422,21 +555,25 @@ subroutine pts_tree_mem(src,ns,targ,nt,idivflag,ndiv,nlmin,nlmax, c c - subroutine pts_tree_build(src,ns,targ,nt,idivflag,ndiv, - 1 nlmin,nlmax,ifunif,iper,nlevels,nboxes,ltree,itree,iptr,centers, - 2 boxsize) + subroutine pts_tree_build(src, ns, targ, nt, idivflag, ndiv, + 1 nlmin, nlmax, ifunif, iper, nlevels, nboxes, ltree, + 2 itree, iptr, centers, boxsize) c c c c---------------------------------------- -c build tree +c build tree with prespecified bounding box c c c input parameters: c - src: real *8 (3,ns) c source locations +c - ns: integer +c number of sources c - targ: real *8 (3,nt) c target locations +c - nt: integer +c number of targets c - idivflag: integer c subdivision criterion c * divflag = 0 -> subdivide on sources only @@ -461,12 +598,108 @@ subroutine pts_tree_build(src,ns,targ,nt,idivflag,ndiv, c number of levels c - nboxes: integer c number of boxes -c - ltree: integer +c - ltree: integer *8 +c length of tree array c c output: c - itree: integer(ltree) c tree info -c - iptr: integer(8) +c - iptr: integer *8 (8) +c * iptr(1) - laddr +c * iptr(2) - ilevel +c * iptr(3) - iparent +c * iptr(4) - nchild +c * iptr(5) - ichild +c * iptr(6) - ncoll +c * iptr(7) - coll +c * iptr(8) - ltree +c - centers: double precision (3,nboxes) +c xy coordinates of box centers in the oct tree +c - boxsize: double precision (0:nlevels) +c size of box at each of the levels +c + implicit none + integer, intent(in) :: ns, nt, idivflag, ndiv, nlmin, nlmax + integer, intent(in) :: ifunif, iper, nlevels, nboxes + integer *8, intent(in) :: ltree + real *8, intent(in) :: src(3,ns), targ(3,nt) + + integer *8, intent(out) :: iptr(8) + integer, intent(out) :: itree(ltree) + real *8, intent(out) :: boxsize(0:nlevels), centers(3,nboxes) + + real *8 bs0, cen0(3) + + + call estimate_bounding_box(src, ns, targ, nt, bs0, cen0) + + call pts_tree_build_bbox(src, ns, targ, nt, idivflag, ndiv, + 1 nlmin, nlmax, ifunif, iper, nlevels, nboxes, bs0, cen0, ltree, + 2 itree, iptr, centers, boxsize) + + + return + end +c +c +c +c +c + + subroutine pts_tree_build_bbox(src, ns, targ, nt, idivflag, ndiv, + 1 nlmin, nlmax, ifunif, iper, nlevels, nboxes, bs0, cen0, ltree, + 2 itree, iptr, centers, boxsize) +c +c +c +c---------------------------------------- +c build tree with prespecified bounding box +c +c +c input parameters: +c - src: real *8 (3,ns) +c source locations +c - ns: integer +c number of sources +c - targ: real *8 (3,nt) +c target locations +c - nt: integer +c number of targets +c - idivflag: integer +c subdivision criterion +c * divflag = 0 -> subdivide on sources only +c * idivflag = 1 -> subdivide on targets only +c * idivflag = 2 -> subdivide on max(sources+targets) +c - ndiv: integer +c subdivide if relevant number of particles +c per box is greater than ndiv +c - nlmin: integer +c minimum number of levels of uniform refinement. +c Note that empty boxes are not pruned along the way +c - nlmax: integer +c max number of levels +c - ifunif: integer +c flag for creating uniform pruned tree +c Tree is uniform if ifunif=1 (Currently pruned part +c under construction) +c - iper: integer +c flag for periodic implementations. Currently unused. +c Feature under construction +c - nlevels: integer +c number of levels +c - nboxes: integer +c number of boxes +c - bs0: real *8 +c size of bounding box at root level +c - cen0: real *8 (3) +c center of bounding box at root level +c - ltree: integer *8 +c length of tree array +c +c output: +c - itree: integer(ltree) +c tree info +c - iptr: integer *8 (8) c * iptr(1) - laddr c * iptr(2) - ilevel c * iptr(3) - iparent @@ -489,6 +722,7 @@ subroutine pts_tree_build(src,ns,targ,nt,idivflag,ndiv, double precision centers(3,nboxes),src(3,ns),targ(3,nt) integer, allocatable :: irefinebox(:) double precision boxsize(0:nlevels) + double precision bs0, cen0(3) integer, allocatable :: isrc(:),itarg(:),isrcse(:,:),itargse(:,:) integer i,ilev,irefine,itype,nbmax,npbox,npc,ii @@ -499,8 +733,6 @@ subroutine pts_tree_build(src,ns,targ,nt,idivflag,ndiv, integer j,nboxes0 integer ibox,nn,nss,ntt - double precision xmin,xmax,ymin,ymax,zmin,zmax,sizey,sizez - c iptr(1) = 1 iptr(2) = 2*(nlevels+1)+1 @@ -510,47 +742,11 @@ subroutine pts_tree_build(src,ns,targ,nt,idivflag,ndiv, iptr(6) = iptr(5) + 8*nboxes iptr(7) = iptr(6) + nboxes iptr(8) = iptr(7) + 27*nboxes -c -c step 1: find enclosing box -c - xmin = src(1,1) - xmax = src(1,1) - ymin = src(2,1) - ymax = src(2,1) - zmin = src(3,1) - zmax = src(3,1) -C$OMP PARALLEL DO DEFAULT(SHARED) -C$OMP$REDUCTION(min:xmin,ymin,zmin) -C$OMP$REDUCTION(max:xmax,ymax,zmax) - do i=1,ns - if(src(1,i).lt.xmin) xmin = src(1,i) - if(src(1,i).gt.xmax) xmax = src(1,i) - if(src(2,i).lt.ymin) ymin = src(2,i) - if(src(2,i).gt.ymax) ymax = src(2,i) - if(src(3,i).lt.zmin) zmin = src(3,i) - if(src(3,i).gt.zmax) zmax = src(3,i) - enddo -C$OMP END PARALLEL DO - -C$OMP PARALLEL DO DEFAULT(SHARED) -C$OMP$REDUCTION(min:xmin,ymin,zmin) -C$OMP$REDUCTION(max:xmax,ymax,zmax) - do i=1,nt - if(targ(1,i).lt.xmin) xmin = targ(1,i) - if(targ(1,i).gt.xmax) xmax = targ(1,i) - if(targ(2,i).lt.ymin) ymin = targ(2,i) - if(targ(2,i).gt.ymax) ymax = targ(2,i) - if(targ(3,i).lt.zmin) zmin = targ(3,i) - if(targ(3,i).gt.zmax) zmax = targ(3,i) - enddo -C$OMP END PARALLEL DO - - boxsize(0) = (xmax - xmin) - sizey = (ymax - ymin) - sizez = (zmax - zmin) - if(sizey.gt.boxsize(0)) boxsize(0) = sizey - if(sizez.gt.boxsize(0)) boxsize(0) = sizez + boxsize(0) = bs0 + centers(1,1) = cen0(1) + centers(2,1) = cen0(2) + centers(3,1) = cen0(3) allocate(isrc(ns),itarg(nt),isrcse(2,nboxes),itargse(2,nboxes)) @@ -566,9 +762,6 @@ subroutine pts_tree_build(src,ns,targ,nt,idivflag,ndiv, itree(iptr(5)+i-1) = -1 enddo - centers(1,1) = (xmin+xmax)/2 - centers(2,1) = (ymin+ymax)/2 - centers(3,1) = (zmin+zmax)/2 isrcse(1,1) = 1 isrcse(2,1) = ns @@ -704,8 +897,10 @@ subroutine pts_tree_build(src,ns,targ,nt,idivflag,ndiv, c c c - subroutine sort_pts_to_children(ibox,nboxes,centers, - 1 ichild,src,ns,isrc,isrcse) +c +c + subroutine sort_pts_to_children(ibox, nboxes, centers, + 1 ichild, src, ns, isrc, isrcse) implicit double precision (a-h,o-z) integer nboxes double precision centers(3,nboxes),src(3,ns) diff --git a/src/Common/tree_routs3d.f b/src/Common/tree_routs3d.f index 36bcfa45..a6cfc849 100644 --- a/src/Common/tree_routs3d.f +++ b/src/Common/tree_routs3d.f @@ -1125,11 +1125,11 @@ subroutine getlist4pwdirtest(dir,censrc,centrg,boxsize) subroutine subdividebox(pos,npts,center,boxsize, 1 isorted,iboxfl,subcenters) implicit none + integer npts double precision pos(3,npts) double precision center(3) double precision subcenters(3,8) double precision boxsize - integer npts integer isorted(*) integer iboxfl(2,8) diff --git a/src/Common/yrecursion.f b/src/Common/yrecursion.f index 1168a948..3dae2934 100644 --- a/src/Common/yrecursion.f +++ b/src/Common/yrecursion.f @@ -1430,7 +1430,8 @@ subroutine zylgndrbr(nmax, z, y) c branch cut at (0,+i), select the lower branch c of complex square root c - if( imag(1-z*z) .gt. 0 .and. real(1-z*z) .lt. 0) u=+sqrt(1-z*z) +c if( imag(1-z*z) .gt. 0 .and. real(1-z*z) .lt. 0) u=+sqrt(1-z*z) + if( dimag(1-z*z) .gt. 0 .and. real(1-z*z) .lt. 0) u=+sqrt(1-z*z) ccc call prin2('in zylgndrbr, u=*', -u, 2) ccc call prin2('in zylgndrbr, 1-z^2=*', 1-z*z, 2) c @@ -1498,8 +1499,10 @@ subroutine zylgndrsc(nmax, z,scale, ysc) c ztmp = 1-z*z u=-sqrt(ztmp) - if(abs(imag(z)).le.1.0d-16.and.abs(real(z)).gt.1) then - if(imag(u).lt.0) u = dconjg(u) +c if(abs(imag(z)).le.1.0d-16.and.abs(real(z)).gt.1) then +c if(imag(u).lt.0) u = dconjg(u) + if(abs(dimag(z)).le.1.0d-16.and.abs(real(z)).gt.1) then + if(dimag(u).lt.0) u = dconjg(u) endif ysc(0,0)=1 do m=0, nmax diff --git a/src/Helmholtz/helmkernels.f b/src/Helmholtz/helmkernels.f index 2acd6e05..5cda0c5c 100644 --- a/src/Helmholtz/helmkernels.f +++ b/src/Helmholtz/helmkernels.f @@ -90,6 +90,8 @@ subroutine h3ddirectcp(nd,zk,sources,charge,ns,ztarg,nt, zkeye = zk*eye +c$omp parallel do default(shared) +c$omp$ private(i, zdiff, j, dd, d, ztmp, idim) do i=1,nt do j=1,ns zdiff(1) = ztarg(1,i)-sources(1,j) @@ -107,6 +109,7 @@ subroutine h3ddirectcp(nd,zk,sources,charge,ns,ztarg,nt, 1000 continue enddo enddo +c$omp end parallel do return @@ -183,6 +186,9 @@ subroutine h3ddirectcg(nd,zk,sources,charge,ns,ztarg,nt, zkeye = zk*eye +c$omp parallel do default(shared) +c$omp$ private(i, j, zdiff, dd, d, cd, cd1, ztmp1) +c$omp$ private(ztmp2, ztmp3, idim) do i=1,nt do j=1,ns zdiff(1) = ztarg(1,i)-sources(1,j) @@ -206,6 +212,7 @@ subroutine h3ddirectcg(nd,zk,sources,charge,ns,ztarg,nt, 1000 continue enddo enddo +c$omp end parallel do return @@ -285,6 +292,8 @@ subroutine h3ddirectdp(nd,zk,sources, zkeye = zk*eye +c$omp parallel do default(shared) +c$omp$ private(i, j, zdiff, dd, d, dinv, cd, cd1, idim, dotprod) do i=1,nt do j=1,ns zdiff(1) = ztarg(1,i)-sources(1,j) @@ -309,6 +318,7 @@ subroutine h3ddirectdp(nd,zk,sources, 1000 continue enddo enddo +c$omp end parallel do return @@ -394,6 +404,9 @@ subroutine h3ddirectdg(nd,zk,sources,dipvec,ns,ztarg,nt,pot, zkeye = zk*eye +c$omp parallel do default(shared) +c$omp$ private(i, j, zdiff, dd, d, dinv, dinv2, cd, cd2) +c$omp$ private(cd3, idim, dotprod, cd4) do i=1,nt do j=1,ns zdiff(1) = ztarg(1,i)-sources(1,j) @@ -428,6 +441,7 @@ subroutine h3ddirectdg(nd,zk,sources,dipvec,ns,ztarg,nt,pot, 1000 continue enddo enddo +c$omp end parallel do return @@ -506,6 +520,8 @@ subroutine h3ddirectcdp(nd,zk,sources,charge, zkeye = zk*eye +c$omp parallel do default(shared) +c$omp$ private(i, j, zdiff, dd, d, dinv, cd, cd1, idim, dotprod) do i=1,nt do j=1,ns zdiff(1) = ztarg(1,i)-sources(1,j) @@ -532,6 +548,7 @@ subroutine h3ddirectcdp(nd,zk,sources,charge, 1000 continue enddo enddo +c$omp end parallel do @@ -619,6 +636,9 @@ subroutine h3ddirectcdg(nd,zk,sources,charge, zkeye = zk*eye +c$omp parallel do default(shared) +c$omp$ private(i, j, zdiff, dd, d, dinv, dinv2, cd, cd2, cd3) +c$omp$ private(idim, dotprod, cd4) do i=1,nt do j=1,ns zdiff(1) = ztarg(1,i)-sources(1,j) @@ -657,6 +677,7 @@ subroutine h3ddirectcdg(nd,zk,sources,charge, 1000 continue enddo enddo +c$omp end parallel do return diff --git a/src/Helmholtz/hfmm3d.f b/src/Helmholtz/hfmm3d.f index 77b547cb..ec9308ae 100644 --- a/src/Helmholtz/hfmm3d.f +++ b/src/Helmholtz/hfmm3d.f @@ -562,6 +562,7 @@ subroutine hfmm3dmain(nd,eps,zk, double complex jsort(nd,0:ntj,-ntj:ntj,nexpc) + integer nboxes integer *8 iaddr(2,nboxes), lmptot double precision rmlexp(lmptot) @@ -575,7 +576,6 @@ subroutine hfmm3dmain(nd,eps,zk, integer nterms(0:nlevels) integer *8 ipointer(8),ltree integer itree(ltree) - integer nboxes double precision rscales(0:nlevels) double precision boxsize(0:nlevels) integer isrcse(2,nboxes),itargse(2,nboxes),iexpcse(2,nboxes) @@ -752,7 +752,7 @@ subroutine hfmm3dmain(nd,eps,zk, zkiupbound = 12*pi zkrupbound = 16*pi - zi = imag(zk) + zi = dimag(zk) ilevcutoff = -1 @@ -1054,7 +1054,7 @@ subroutine hfmm3dmain(nd,eps,zk, allocate(iboxlexp(nd*(nterms(ilev)+1)* 1 (2*nterms(ilev)+1),8,nthd)) zk2 = zk*boxsize(ilev) - if(real(zk2).le.zkrupbound.and.imag(zk2).lt.zkiupbound.and. + if(real(zk2).le.zkrupbound.and.dimag(zk2).lt.zkiupbound.and. 1 ilev.gt.ilevcutoff) then c get new pw quadrature @@ -1562,7 +1562,7 @@ subroutine hfmm3dmain(nd,eps,zk, deallocate(pgboxwexp) - else if((real(zk2).gt.zkrupbound.or.imag(zk2).gt.zkiupbound). + else if((real(zk2).gt.zkrupbound.or.dimag(zk2).gt.zkiupbound). 1 and.ilev.gt.ilevcutoff) then nquad2 = nterms(ilev)*2.2 if(ifprint.ge.1) print *, "In point and shoot regime" @@ -1719,7 +1719,7 @@ subroutine hfmm3dmain(nd,eps,zk, if(ifcharge.eq.1.and.ifdipole.eq.0) then do ilev=1,nlevels zk2 = zk*boxsize(ilev) - if((real(zk2).gt.zkrupbound.or.imag(zk2).gt.zkiupbound). + if((real(zk2).gt.zkrupbound.or.dimag(zk2).gt.zkiupbound). 1 and.ilev.gt.ilevcutoff) then C$OMP PARALLEL DO DEFAULT(SHARED) @@ -1754,7 +1754,7 @@ subroutine hfmm3dmain(nd,eps,zk, if(ifcharge.eq.0.and.ifdipole.eq.1) then do ilev=1,nlevels zk2 = zk*boxsize(ilev) - if((real(zk2).gt.zkrupbound.or.imag(zk2).gt.zkiupbound). + if((real(zk2).gt.zkrupbound.or.dimag(zk2).gt.zkiupbound). 1 and.ilev.gt.ilevcutoff) then C$OMP PARALLEL DO DEFAULT(SHARED) @@ -1789,7 +1789,7 @@ subroutine hfmm3dmain(nd,eps,zk, if(ifcharge.eq.1.and.ifdipole.eq.1) then do ilev=1,nlevels zk2 = zk*boxsize(ilev) - if((real(zk2).gt.zkrupbound.or.imag(zk2).gt.zkiupbound). + if((real(zk2).gt.zkrupbound.or.dimag(zk2).gt.zkiupbound). 1 and.ilev.gt.ilevcutoff) then C$OMP PARALLEL DO DEFAULT(SHARED) diff --git a/src/Helmholtz/hfmm3d_memest.f b/src/Helmholtz/hfmm3d_memest.f index 40d95fb2..8ea7ba34 100644 --- a/src/Helmholtz/hfmm3d_memest.f +++ b/src/Helmholtz/hfmm3d_memest.f @@ -377,7 +377,7 @@ subroutine hfmm3d_memest(nd,eps,zk,nsource,source,ifcharge, zkiupbound = 12*pi zkrupbound = 16*pi - zi = imag(zkfmm) + zi = dimag(zkfmm) ilevcutoff = -1 @@ -391,7 +391,7 @@ subroutine hfmm3d_memest(nd,eps,zk,nsource,source,ifcharge, do ilev=2,nlevels zk2 = zkfmm*boxsize(ilev) - if(real(zk2).le.zkrupbound.and.imag(zk2).lt.zkiupbound.and. + if(real(zk2).le.zkrupbound.and.dimag(zk2).lt.zkiupbound.and. 1 ilev.gt.ilevcutoff) then ier = 0 diff --git a/src/Helmholtz/hfmm3d_mps.f90 b/src/Helmholtz/hfmm3d_mps.f90 index 9946c6ee..f19847c2 100644 --- a/src/Helmholtz/hfmm3d_mps.f90 +++ b/src/Helmholtz/hfmm3d_mps.f90 @@ -393,7 +393,7 @@ subroutine hfmm3dmain_mps(nd, eps, zk, & integer :: impolesort(nmpole) ! storage stuff for tree and multipole expansions - integer :: lmptemp + integer :: lmptemp,nboxes integer *8 :: iaddr(2,nboxes), lmptot double precision :: rmlexp(lmptot) double precision :: mptemp(lmptemp) @@ -406,7 +406,6 @@ subroutine hfmm3dmain_mps(nd, eps, zk, & integer :: nterms(0:nlevels) integer *8 :: ipointer(8) integer :: itree(ltree) - integer :: nboxes integer :: mnbors,mnlist1, mnlist2,mnlist3,mnlist4 integer :: isrcse(2,nmpole) integer, allocatable :: nlist1(:),list1(:,:) @@ -819,7 +818,7 @@ subroutine hfmm3dmain_mps(nd, eps, zk, & ! load the necessary quadrature for plane waves zk2 = zk*boxsize(ilev) - if ( (real(zk2).le.16*pi) .and. (imag(zk2).le.12*pi) & + if ( (real(zk2).le.16*pi) .and. (dimag(zk2).le.12*pi) & .and. (ifmp .eq. 0) ) then ier = 0 diff --git a/src/Helmholtz/hfmm3dwrap_legacy.f b/src/Helmholtz/hfmm3dwrap_legacy.f index a296fa48..87c7233c 100644 --- a/src/Helmholtz/hfmm3dwrap_legacy.f +++ b/src/Helmholtz/hfmm3dwrap_legacy.f @@ -195,12 +195,12 @@ subroutine hfmm3dparttarg(ier,iprec,zk,nsource,source, double complex charge(nsource),dipstr(nsource) double precision dipvec(3,nsource) + integer ntarg integer ifpot,iffld,ifpottarg,iffldtarg double complex pot(nsource),fld(3,nsource) double complex pottarg(ntarg),fldtarg(3,ntarg) integer nd,ifpgh,ifpghtarg - integer ntarg double precision targ(3,ntarg) double complex, allocatable :: dipvec_in(:,:) double complex, allocatable :: pottmp(:),gradtmp(:,:) diff --git a/src/Helmholtz/hnumfour.f b/src/Helmholtz/hnumfour.f index af4d5ef6..6a9d166c 100644 --- a/src/Helmholtz/hnumfour.f +++ b/src/Helmholtz/hnumfour.f @@ -1,3 +1,44 @@ +c Information Technology Laboratory, National Institute of +c Standards and Technology, 325 Broadway, Mail Stop 891.01, +c Boulder, CO 80305-3328. email: zydrunas.gimbutas@nist.gov. +c Contributions by staff of NIST, an agency of the U.S. Government, +c are not subject to copyright within the United States. + +c NIST-developed software is provided by NIST as a public service. +c You may use, copy, and distribute copies of the software in any medium, +c provided that you keep intact this entire notice. You may improve, +c modify, and create derivative works of the software or any portion of +c the software, and you may copy and distribute such +c modifications or works. Modified works should carry a notice stating +c that you changed the software and should note the date and nature +c of any such change. Please explicitly acknowledge the National +c Institute of Standards and Technology as the source of the software. + +c NIST-developed software is expressly provided "AS IS." +c NIST MAKES NO WARRANTY OF ANY KIND, EXPRESS, IMPLIED, IN FACT, OR +c ARISING BY OPERATION OF LAW, INCLUDING, WITHOUT LIMITATION, THE +c IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, +c NON-INFRINGEMENT, AND DATA ACCURACY. NIST NEITHER REPRESENTS NOR +c WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE UNINTERRUPTED +c OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES NOT +c WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE +c SOFTWARE OR THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE +c CORRECTNESS, ACCURACY, RELIABILITY, OR USEFULNESS OF THE SOFTWARE. +c +c You are solely responsible for determining the appropriateness of +c using and distributing the software and you assume all risks +c associated with its use, including but not limited to the risks +c and costs of program errors, compliance with applicable laws, damage +c to or loss of data, programs or equipment, and the unavailability +c or interruption of operation. This software is not intended to be +c used in any situation where a failure could cause risk of injury +c or damage to property. The software developed by NIST employees is +c not subject to copyright protection within the United States. + + +ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +c + subroutine hnumfour(eps,zk,nl,nfour) implicit none real *8 eps diff --git a/src/Helmholtz/hnumphys.f b/src/Helmholtz/hnumphys.f index 509aa5a9..4656c91e 100644 --- a/src/Helmholtz/hnumphys.f +++ b/src/Helmholtz/hnumphys.f @@ -1,3 +1,43 @@ +c Information Technology Laboratory, National Institute of +c Standards and Technology, 325 Broadway, Mail Stop 891.01, +c Boulder, CO 80305-3328. email: zydrunas.gimbutas@nist.gov. +c Contributions by staff of NIST, an agency of the U.S. Government, +c are not subject to copyright within the United States. + +c NIST-developed software is provided by NIST as a public service. +c You may use, copy, and distribute copies of the software in any medium, +c provided that you keep intact this entire notice. You may improve, +c modify, and create derivative works of the software or any portion of +c the software, and you may copy and distribute such +c modifications or works. Modified works should carry a notice stating +c that you changed the software and should note the date and nature +c of any such change. Please explicitly acknowledge the National +c Institute of Standards and Technology as the source of the software. + +c NIST-developed software is expressly provided "AS IS." +c NIST MAKES NO WARRANTY OF ANY KIND, EXPRESS, IMPLIED, IN FACT, OR +c ARISING BY OPERATION OF LAW, INCLUDING, WITHOUT LIMITATION, THE +c IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, +c NON-INFRINGEMENT, AND DATA ACCURACY. NIST NEITHER REPRESENTS NOR +c WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE UNINTERRUPTED +c OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES NOT +c WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE +c SOFTWARE OR THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE +c CORRECTNESS, ACCURACY, RELIABILITY, OR USEFULNESS OF THE SOFTWARE. +c +c You are solely responsible for determining the appropriateness of +c using and distributing the software and you assume all risks +c associated with its use, including but not limited to the risks +c and costs of program errors, compliance with applicable laws, damage +c to or loss of data, programs or equipment, and the unavailability +c or interruption of operation. This software is not intended to be +c used in any situation where a failure could cause risk of injury +c or damage to property. The software developed by NIST employees is +c not subject to copyright protection within the United States. + + +ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +c subroutine hnumphys(eps,zk,nl,nphys) implicit none diff --git a/src/Helmholtz/hpwrouts.f b/src/Helmholtz/hpwrouts.f index 93d17864..cd5ec7fc 100644 --- a/src/Helmholtz/hpwrouts.f +++ b/src/Helmholtz/hpwrouts.f @@ -145,33 +145,33 @@ subroutine hmkexps(rlams,nlambs,numphys,nexptotp,zk,xs,ys,zs) do 200 mth = 1,numphys(nl) u = (mth-1)*hu ncurrent = ntot+mth - zs(1,ncurrent) = cdexp(-rlams(nl) ) - zs(2,ncurrent) = cdexp(-2.0d0*rlams(nl) ) - zs(3,ncurrent) = cdexp(-3.0d0*rlams(nl) ) - zs(4,ncurrent) = cdexp(-4.0d0*rlams(nl) ) - zs(5,ncurrent) = cdexp(-5.0d0*rlams(nl) ) - xs(-1,ncurrent) = cdexp(-ima*rk*cos(u)) - xs(-2,ncurrent) = cdexp(-ima*rk*2.0d0*cos(u)) - xs(-3,ncurrent) = cdexp(-ima*rk*3.0d0*cos(u)) - xs(-4,ncurrent) = cdexp(-ima*rk*4.0d0*cos(u)) - xs(-5,ncurrent) = cdexp(-ima*rk*5.0d0*cos(u)) + zs(1,ncurrent) = exp(-rlams(nl) ) + zs(2,ncurrent) = exp(-2.0d0*rlams(nl) ) + zs(3,ncurrent) = exp(-3.0d0*rlams(nl) ) + zs(4,ncurrent) = exp(-4.0d0*rlams(nl) ) + zs(5,ncurrent) = exp(-5.0d0*rlams(nl) ) + xs(-1,ncurrent) = exp(-ima*rk*cos(u)) + xs(-2,ncurrent) = exp(-ima*rk*2.0d0*cos(u)) + xs(-3,ncurrent) = exp(-ima*rk*3.0d0*cos(u)) + xs(-4,ncurrent) = exp(-ima*rk*4.0d0*cos(u)) + xs(-5,ncurrent) = exp(-ima*rk*5.0d0*cos(u)) xs(0,ncurrent) = 1 - xs(1,ncurrent) = cdexp(ima*rk*cos(u)) - xs(2,ncurrent) = cdexp(ima*rk*2.0d0*cos(u)) - xs(3,ncurrent) = cdexp(ima*rk*3.0d0*cos(u)) - xs(4,ncurrent) = cdexp(ima*rk*4.0d0*cos(u)) - xs(5,ncurrent) = cdexp(ima*rk*5.0d0*cos(u)) - ys(-1,ncurrent) = cdexp(-ima*rk*dsin(u)) - ys(-2,ncurrent) = cdexp(-ima*rk*2.0d0*dsin(u)) - ys(-3,ncurrent) = cdexp(-ima*rk*3.0d0*dsin(u)) - ys(-4,ncurrent) = cdexp(-ima*rk*4.0d0*dsin(u)) - ys(-5,ncurrent) = cdexp(-ima*rk*5.0d0*dsin(u)) + xs(1,ncurrent) = exp(ima*rk*cos(u)) + xs(2,ncurrent) = exp(ima*rk*2.0d0*cos(u)) + xs(3,ncurrent) = exp(ima*rk*3.0d0*cos(u)) + xs(4,ncurrent) = exp(ima*rk*4.0d0*cos(u)) + xs(5,ncurrent) = exp(ima*rk*5.0d0*cos(u)) + ys(-1,ncurrent) = exp(-ima*rk*dsin(u)) + ys(-2,ncurrent) = exp(-ima*rk*2.0d0*dsin(u)) + ys(-3,ncurrent) = exp(-ima*rk*3.0d0*dsin(u)) + ys(-4,ncurrent) = exp(-ima*rk*4.0d0*dsin(u)) + ys(-5,ncurrent) = exp(-ima*rk*5.0d0*dsin(u)) ys(0,ncurrent) = 1 - ys(1,ncurrent) = cdexp(ima*rk*dsin(u)) - ys(2,ncurrent) = cdexp(ima*rk*2.0d0*dsin(u)) - ys(3,ncurrent) = cdexp(ima*rk*3.0d0*dsin(u)) - ys(4,ncurrent) = cdexp(ima*rk*4.0d0*dsin(u)) - ys(5,ncurrent) = cdexp(ima*rk*5.0d0*dsin(u)) + ys(1,ncurrent) = exp(ima*rk*dsin(u)) + ys(2,ncurrent) = exp(ima*rk*2.0d0*dsin(u)) + ys(3,ncurrent) = exp(ima*rk*3.0d0*dsin(u)) + ys(4,ncurrent) = exp(ima*rk*4.0d0*dsin(u)) + ys(5,ncurrent) = exp(ima*rk*5.0d0*dsin(u)) 200 continue ntot = ntot+numphys(nl) 400 continue @@ -2599,10 +2599,11 @@ subroutine hpw_ud_eval_p(nd,zk2,center,boxsize,ntarg,targ,nlam, 1 whts,nphys,nexptotp,nphmax,mexpupphys,mexpdownphys,pot) implicit none integer nd + integer ntarg,nlam real *8 center(3),boxsize,targ(3,ntarg) complex *16 rlams(nlam),pot(nd,ntarg) complex *16 whts(nlam),zk2 - integer ntarg,nlam,nphys(nlam),nexptotp,nphmax + integer nphys(nlam),nexptotp,nphmax complex *16 mexpupphys(nd,nexptotp),mexpdownphys(nd,nexptotp) complex *16 ima complex *16, allocatable :: cc(:),cc2(:) @@ -2672,10 +2673,11 @@ subroutine hpw_ns_eval_p(nd,zk2,center,boxsize,ntarg,targ,nlam, 1 rlams,whts,nphys,nexptotp,nphmax,mexpupphys,mexpdownphys,pot) implicit none integer nd + integer ntarg,nlam real *8 center(3),boxsize,targ(3,ntarg) complex *16 rlams(nlam),pot(nd,ntarg) complex *16 whts(nlam),zk2 - integer ntarg,nlam,nphys(nlam),nexptotp,nphmax + integer nphys(nlam),nexptotp,nphmax complex *16 mexpupphys(nd,nexptotp),mexpdownphys(nd,nexptotp) complex *16 ima complex *16, allocatable :: cc(:),cc2(:) @@ -2745,10 +2747,11 @@ subroutine hpw_ew_eval_p(nd,zk2,center,boxsize,ntarg,targ,nlam, 1 rlams,whts,nphys,nexptotp,nphmax,mexpupphys,mexpdownphys,pot) implicit none integer nd + integer ntarg,nlam real *8 center(3),boxsize,targ(3,ntarg) complex *16 rlams(nlam),pot(nd,ntarg) complex *16 whts(nlam),zk2 - integer ntarg,nlam,nphys(nlam),nexptotp,nphmax + integer nphys(nlam),nexptotp,nphmax complex *16 mexpupphys(nd,nexptotp),mexpdownphys(nd,nexptotp) complex *16 ima complex *16, allocatable :: cc(:),cc2(:) @@ -2819,10 +2822,11 @@ subroutine hpw_ud_eval_g(nd,zk2,center,boxsize,ntarg,targ,nlam, 2 grad) implicit none integer nd + integer ntarg,nlam real *8 center(3),boxsize,targ(3,ntarg) complex *16 rlams(nlam),pot(nd,ntarg) complex *16 grad(nd,3,ntarg),whts(nlam),zk2 - integer ntarg,nlam,nphys(nlam),nexptotp,nphmax + integer nphys(nlam),nexptotp,nphmax complex *16 mexpupphys(nd,nexptotp),mexpdownphys(nd,nexptotp) complex *16 ima complex *16, allocatable :: cc(:),crc(:),crs(:),cc2(:) @@ -2903,10 +2907,11 @@ subroutine hpw_ns_eval_g(nd,zk2,center,boxsize,ntarg,targ,nlam, 2 grad) implicit none integer nd + integer ntarg,nlam real *8 center(3),boxsize,targ(3,ntarg) complex *16 rlams(nlam),pot(nd,ntarg) complex *16 grad(nd,3,ntarg),whts(nlam),zk2 - integer ntarg,nlam,nphys(nlam),nexptotp,nphmax + integer nphys(nlam),nexptotp,nphmax complex *16 mexpupphys(nd,nexptotp),mexpdownphys(nd,nexptotp) complex *16 ima complex *16, allocatable :: cc(:),crc(:),crs(:),cc2(:) @@ -2985,10 +2990,11 @@ subroutine hpw_ew_eval_g(nd,zk2,center,boxsize,ntarg,targ,nlam, 2 grad) implicit none integer nd + integer ntarg,nlam real *8 center(3),boxsize,targ(3,ntarg) complex *16 rlams(nlam),pot(nd,ntarg) complex *16 grad(nd,3,ntarg),whts(nlam),zk2 - integer ntarg,nlam,nphys(nlam),nexptotp,nphmax + integer nphys(nlam),nexptotp,nphmax complex *16 mexpupphys(nd,nexptotp),mexpdownphys(nd,nexptotp) complex *16 ima complex *16, allocatable :: cc(:),crc(:),crs(:),cc2(:) diff --git a/src/Helmholtz/hwts3.f b/src/Helmholtz/hwts3.f deleted file mode 100644 index 0acf8c50..00000000 --- a/src/Helmholtz/hwts3.f +++ /dev/null @@ -1,39555 +0,0 @@ -c -c Plane wave quadrature weights -cc - subroutine hwts3(ier,iprec,rk,cxs,cws,n) - implicit real *8 (a-h,o-z) - real *8 cx(1000),cy(1000) - complex *16 cxs(*),cws(*) - complex *16 rk,ima - dimension xs(10 000), ws(10 000) - data ima/(0.0d0,1.0d0)/ -c -c -c This subroutine returns the nodes and weights for -c the exponential representation -c -c exp(ima*rk*sqrt(u^2+v^2)/sqrt(u^2+v^2) = -c \int_0^{+\infty} exp(-sqrt(t^2-rk^2)*t) J_0(tv) t/sqrt(t^2-rk^2) dt -c -c u in [1,4], v in [0, 4*sqrt(2)] -c -c All tables are valid in -c -c rk range [0, 4*pi] \times [0, 4*pi] -c -c -c -c Note that 12 digit table is correct to 12 digits only in region -c approximately [0, 1.5 pi] x [0, 1.5 pi]. Beyond that, only 10 digit -c accuracy is achieved. In order to get full 12 digit accuracy, this -c table will need to be recalculated in extended precision -c -c -c Input parameter: -c -c iprec - precision required: -c iprec = 0 - 2 digits -c iprec = 1 - 3 digits -c iprec = 2 - 6 digits -c iprec = 3 - 9 digits -c iprec = 4 - 12 digits -c -c Output parameters: -c -c n - the number of nodes -c cxs - the nodes: complex *16 (n) -c cws - the weights: complex *16 (n) -c -c - done=1 - pi=4*atan(done) -c - nx=11 - ny=11 -c - cx(1)=0.00d0 - cx(2)=0.02d0 - cx(3)=0.04d0 - cx(4)=0.10d0 - cx(5)=0.20d0 - cx(6)=0.40d0 - cx(7)=1.00d0 - cx(8)=pi/2 - cx(9)=pi - cx(10)=2*pi - cx(11)=3*pi - cx(12)=4*pi - cx(13)=5*pi - cx(14)=6*pi - cx(15)=7*pi - cx(16)=8*pi - cx(17)=9*pi - cx(18)=10*pi - cx(19)=11*pi - cx(20)=12*pi - cx(21)=13*pi - cx(22)=14*pi - cx(23)=15*pi - cx(24)=16*pi -c - cy(1)=0.00d0 - cy(2)=0.02d0 - cy(3)=0.04d0 - cy(4)=0.10d0 - cy(5)=0.20d0 - cy(6)=0.40d0 - cy(7)=1.00d0 - cy(8)=pi/2 - cy(9)=pi - cy(10)=2*pi - cy(11)=3*pi - cy(12)=4*pi - cy(13)=5*pi - cy(14)=6*pi - cy(15)=7*pi - cy(16)=8*pi - cy(17)=9*pi - cy(18)=10*pi - cy(19)=11*pi - cy(20)=12*pi - cy(21)=13*pi - cy(22)=14*pi - cy(23)=15*pi - cy(24)=16*pi - n = 0 -c - ier = 0 -c - call hwts3getd(ier,rk,nx,ny,cx,cy,iquad,ix,iy) -c -ccc write(*,*) 'iquad=*', iquad -ccc pause -c - if( iprec .eq. 0 ) - $ call hwts3p0(iquad,xs,ws,n) -c - if( iprec .eq. 1 ) - $ call hwts3p1(iquad,xs,ws,n) -c - if( iprec .eq. 2 ) - $ call hwts3p2(iquad,xs,ws,n) -c - if( iprec .eq. 3 ) - $ call hwts3p3(iquad,xs,ws,n) -c - if( iprec .eq. 4 ) - $ call hwts3p4(iquad,xs,ws,n) -c - do 1200 k=1,n -c - xmin=0 - xmax=100 - call linmap0(xs(k),u,uweight,xmin,xmax) -ccc if( dble(rk) .gt. 1d0 ) then -ccc xmid=dble(rk) -ccc call linmap1(xs(k),u,uweight,xmin,xmax,xmid) -ccc endif -c - gamma=2 - v=u/(1+gamma*abs(dble(-ima*rk))) - cxs(k)=u-ima*rk+abs(imag(-ima*rk))*ima*(v/(1+v)) - cws(k)=1+abs(imag(-ima*rk))*ima*((1+v)-v)/(1+v)**2 - $ /(1+gamma*abs(dble(-ima*rk))) - cws(k)=cws(k)*ws(k)*uweight -c - 1200 continue -c - return - end -c - subroutine hwts3iquad(ier,iprec,rk,iquad,cxs,cws,n) - implicit real *8 (a-h,o-z) - real *8 cx(1000),cy(1000) - complex *16 cxs(*),cws(*) - complex *16 rk,ima - dimension xs(10 000), ws(10 000) - data ima/(0.0d0,1.0d0)/ -c -c -c This subroutine returns the nodes and weights for -c the exponential representation -c -c exp(ima*rk*sqrt(u^2+v^2)/sqrt(u^2+v^2) = -c \int_0^{+\infty} exp(-sqrt(t^2-rk^2)*t) J_0(tv) t/sqrt(t^2-rk^2) dt -c -c u in [1,4], v in [0, 4*sqrt(2)] -c -c All tables are valid in -c -c rk range [0, 4*pi] \times [0, 4*pi] -c -c -c -c Note that 12 digit table is correct to 12 digits only in region -c approximately [0, 1.5 pi] x [0, 1.5 pi]. Beyond that, only 10 digit -c accuracy is achieved. In order to get full 12 digit accuracy, this -c table will need to be recalculated in extended precision -c -c -c Input parameter: -c -c iprec - precision required: -c iprec = 0 - 2 digits -c iprec = 1 - 3 digits -c iprec = 2 - 6 digits -c iprec = 3 - 9 digits -c iprec = 4 - 12 digits -c -c iquad: the domain number obtained from hwts3getd -c -c Output parameters: -c -c n - the number of nodes -c cxs - the nodes: complex *16 (n) -c cws - the weights: complex *16 (n) -c -c - done=1 - pi=4*atan(done) -c - if( iprec .eq. 0 ) - $ call hwts3p0(iquad,xs,ws,n) -c - if( iprec .eq. 1 ) - $ call hwts3p1(iquad,xs,ws,n) -c - if( iprec .eq. 2 ) - $ call hwts3p2(iquad,xs,ws,n) -c - if( iprec .eq. 3 ) - $ call hwts3p3(iquad,xs,ws,n) -c - if( iprec .eq. 4 ) - $ call hwts3p4(iquad,xs,ws,n) -c -cc call prinf('n=*',n,1) -cc call prin2('xs=*',xs,n) -cc call prin2('ws=*',ws,n) -c - do 1200 k=1,n -c - xmin=0 - xmax=100 - call linmap0(xs(k),u,uweight,xmin,xmax) -ccc if( dble(rk) .gt. 1d0 ) then -ccc xmid=dble(rk) -ccc call linmap1(xs(k),u,uweight,xmin,xmax,xmid) -ccc endif -c - gamma=2 - v=u/(1+gamma*abs(dble(-ima*rk))) - cxs(k)=u-ima*rk+abs(imag(-ima*rk))*ima*(v/(1+v)) - cws(k)=1+abs(imag(-ima*rk))*ima*((1+v)-v)/(1+v)**2 - $ /(1+gamma*abs(dble(-ima*rk))) - cws(k)=cws(k)*ws(k)*uweight -c - 1200 continue -c - return - end -c -c -c -c - subroutine linmap0(t,u,w,ax,bx) - implicit real *8 (a-h,o-z) -c -c this subroutine contructs a linear mapping from interval -c [0,1] to [ax,bx] -c - u=ax+t*(bx-ax) - w=(bx-ax) -c - return - end -c -c -c -c -c -c - subroutine linmap1(t,u,w,ax,bx,cx) - implicit real *8 (a-h,o-z) -c -c this subroutine contructs a piecewise linear mapping from interval -c [0,1] to [ax,bx], such that [0,0.5]->[ax,cx], [0.5,1]->[cx,bx] -c - if( t .le. 0.5d0 ) then - u=ax+2*t*(cx-ax) - w=2*(cx-ax) - endif -c - if( t .gt. 0.5d0 ) then - u=cx+2*(t-0.5d0)*(bx-cx) - w=2*(bx-cx) - endif -c - return - end -c -c -c -c -c - - subroutine hwts3getd(ier,rk,nx,ny,cx,cy,iquad,ix,iy) - implicit real *8 (a-h,o-z) - complex *16 ima,rk - dimension cx(*),cy(*) - data ima/(0.0d0,1.0d0)/ -c -c rk range [0, 4*pi] \times [0, 4*pi] -c - rkrea=dble(rk) - rkima=imag(rk) -c - ier = 0 -c - ix=0 - do 1200 i=1,nx+1 - if( rkrea .ge. cx(i+1) ) ix=i+1 - 1200 continue -c - 1300 continue -c - iy=0 - do 2200 i=1,ny+1 - if( rkima .ge. cy(i+1) ) iy=i+1 - 2200 continue -c - 2300 continue -c - if( ix .gt. nx ) ier = 4 - if( iy .gt. ny ) ier = 4 -c - if( ix .eq. 0 ) ix = 1 - if( iy .eq. 0 ) iy = 1 -c - if( ix .gt. nx ) ix = nx - if( iy .gt. ny ) iy = ny -c - iquad = iy + (ix-1) * ny -c -c -ccc stop -c - return - end -c -c -c -c - subroutine hwts3p0(iquad,xs,ws,n) - implicit real *8 (a-h,o-z) - dimension xs(*), ws(*) -c -c 2 digit exponential representation tables for -c exp(ima*rk*sqrt(u^2+v^2)/sqrt(u^2+v^2) - - - if( iquad .eq. 1 ) then - idomain = 1 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1454412380180736D-03 - ierq = 0 - xs( 1) = 0.5725260037110338D-03 - xs( 2) = 0.3104706523606652D-02 - xs( 3) = 0.7556871460349616D-02 - xs( 4) = 0.1349719879573621D-01 - xs( 5) = 0.2053243526923238D-01 - xs( 6) = 0.2838056220703300D-01 - xs( 7) = 0.3685022563444502D-01 - xs( 8) = 0.4581558372217025D-01 - xs( 9) = 0.5519519665348369D-01 - xs( 10) = 0.6492939328923171D-01 - xs( 11) = 0.7492663432926620D-01 - ws( 1) = 0.1490401538152228D-02 - ws( 2) = 0.3554255699366749D-02 - ws( 3) = 0.5270869654576655D-02 - ws( 4) = 0.6544117075280964D-02 - ws( 5) = 0.7481237516428807D-02 - ws( 6) = 0.8187224148079139D-02 - ws( 7) = 0.8741429659798534D-02 - ws( 8) = 0.9204723765378599D-02 - ws( 9) = 0.9634454566640806D-02 - ws( 10) = 0.1014531554907272D-01 - ws( 11) = 0.1162776674403820D-01 - endif - - - if( iquad .eq. 2 ) then - idomain = 2 - rk0r = 0.1000010000000000D-11 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1421411671630457D-03 - ierq = 0 - xs( 1) = 0.5626910915510039D-03 - xs( 2) = 0.3077735194730777D-02 - xs( 3) = 0.7529600451033978D-02 - xs( 4) = 0.1348067779007181D-01 - xs( 5) = 0.2052876797082991D-01 - xs( 6) = 0.2838731050144593D-01 - xs( 7) = 0.3686345262463483D-01 - xs( 8) = 0.4583090362932766D-01 - xs( 9) = 0.5520853101618194D-01 - xs( 10) = 0.6493824442336070D-01 - xs( 11) = 0.7493483124503728D-01 - ws( 1) = 0.1469710173286162D-02 - ws( 2) = 0.3545051224583535D-02 - ws( 3) = 0.5277896191794213D-02 - ws( 4) = 0.6557070775381466D-02 - ws( 5) = 0.7493295836575154D-02 - ws( 6) = 0.8195814804539207D-02 - ws( 7) = 0.8745766860442730D-02 - ws( 8) = 0.9204682037454280D-02 - ws( 9) = 0.9630802609557773D-02 - ws( 10) = 0.1014043325617413D-01 - ws( 11) = 0.1163414821333770D-01 - endif - - - if( iquad .eq. 3 ) then - idomain = 3 - rk0r = 0.1000010000000000D-11 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999800001D-01 - n = 11 - err = 0.1398259810675428D-03 - ierq = 0 - xs( 1) = 0.4026440221814589D-03 - xs( 2) = 0.2696284735493981D-02 - xs( 3) = 0.7107911016372902D-02 - xs( 4) = 0.1308107031474572D-01 - xs( 5) = 0.2016320354544674D-01 - xs( 6) = 0.2805421609093551D-01 - xs( 7) = 0.3655821311171793D-01 - xs( 8) = 0.4554868264066920D-01 - xs( 9) = 0.5494588978496524D-01 - xs( 10) = 0.6469572707588080D-01 - xs( 11) = 0.7473075101712565D-01 - ws( 1) = 0.1158782544669955D-02 - ws( 2) = 0.3436200831039872D-02 - ws( 3) = 0.5282680241126161D-02 - ws( 4) = 0.6589105311457876D-02 - ws( 5) = 0.7527605340801535D-02 - ws( 6) = 0.8226236038571755D-02 - ws( 7) = 0.8771345013707174D-02 - ws( 8) = 0.9226059033292584D-02 - ws( 9) = 0.9649658173560283D-02 - ws( 10) = 0.1016648002163292D-01 - ws( 11) = 0.1170398562773292D-01 - endif - - - if( iquad .eq. 4 ) then - idomain = 4 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.9999999999800001D-01 - n = 11 - err = 0.1282728603375638D-03 - ierq = 0 - xs( 1) = 0.4955893033479126D-03 - xs( 2) = 0.2907718958258677D-02 - xs( 3) = 0.7352087056882711D-02 - xs( 4) = 0.1335138367782199D-01 - xs( 5) = 0.2046573966046986D-01 - xs( 6) = 0.2838868520073181D-01 - xs( 7) = 0.3691869244863098D-01 - xs( 8) = 0.4592332076952872D-01 - xs( 9) = 0.5531587896403654D-01 - xs( 10) = 0.6503448298771343D-01 - xs( 11) = 0.7499435275278343D-01 - ws( 1) = 0.1334658415295774D-02 - ws( 2) = 0.3492706327741175D-02 - ws( 3) = 0.5306258044103502D-02 - ws( 4) = 0.6619124427018831D-02 - ws( 5) = 0.7560853726037346D-02 - ws( 6) = 0.8256134626175702D-02 - ws( 7) = 0.8792904433956947D-02 - ws( 8) = 0.9232842926620471D-02 - ws( 9) = 0.9634297033897808D-02 - ws( 10) = 0.1012684100968529D-01 - ws( 11) = 0.1160125725729847D-01 - endif - - - if( iquad .eq. 5 ) then - idomain = 5 - rk0r = 0.1000010000000000D-11 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999980000D+00 - n = 11 - err = 0.1036474856598302D-03 - ierq = 0 - xs( 1) = 0.5982482260675195D-03 - xs( 2) = 0.3273057147915838D-02 - xs( 3) = 0.7910289930240856D-02 - xs( 4) = 0.1401206068505091D-01 - xs( 5) = 0.2118262336392775D-01 - xs( 6) = 0.2914619395935763D-01 - xs( 7) = 0.3771703372433952D-01 - xs( 8) = 0.4677110592625253D-01 - xs( 9) = 0.5622387234093439D-01 - xs( 10) = 0.6600190683108886D-01 - xs( 11) = 0.7595421786516227D-01 - ws( 1) = 0.1568556465869598D-02 - ws( 2) = 0.3738546145960112D-02 - ws( 3) = 0.5447289241836228D-02 - ws( 4) = 0.6691745342024028D-02 - ws( 5) = 0.7605937129731254D-02 - ws( 6) = 0.8295059511116039D-02 - ws( 7) = 0.8837875280695131D-02 - ws( 8) = 0.9289082208831002D-02 - ws( 9) = 0.9698794015842499D-02 - ws( 10) = 0.1019396928592253D-01 - ws( 11) = 0.1150690025258388D-01 - endif - - - if( iquad .eq. 6 ) then - idomain = 6 - rk0r = 0.1000010000000000D-11 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999980000D+00 - n = 10 - err = 0.1625186540925072D-03 - ierq = 0 - xs( 1) = 0.9470948705299796D-03 - xs( 2) = 0.4613920337591985D-02 - xs( 3) = 0.1026169495401022D-01 - xs( 4) = 0.1721602306327651D-01 - xs( 5) = 0.2507011835489935D-01 - xs( 6) = 0.3358101405551567D-01 - xs( 7) = 0.4259655927545279D-01 - xs( 8) = 0.5201932381974237D-01 - xs( 9) = 0.6176814046733721D-01 - xs( 10) = 0.7170597108904961D-01 - ws( 1) = 0.2378179858470503D-02 - ws( 2) = 0.4796594751481155D-02 - ws( 3) = 0.6387754928673008D-02 - ws( 4) = 0.7455869644013304D-02 - ws( 5) = 0.8215614744332602D-02 - ws( 6) = 0.8791781502156065D-02 - ws( 7) = 0.9254299316691817D-02 - ws( 8) = 0.9665959991425698D-02 - ws( 9) = 0.1019929373199624D-01 - ws( 10) = 0.1149187945367651D-01 - endif - - - if( iquad .eq. 7 ) then - idomain = 7 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5707963267928966D+00 - n = 10 - err = 0.9936666079696232D-04 - ierq = 0 - xs( 1) = 0.7863049795003927D-03 - xs( 2) = 0.3963406830039548D-02 - xs( 3) = 0.9112814387715204D-02 - xs( 4) = 0.1567031944630883D-01 - xs( 5) = 0.2321952096432997D-01 - xs( 6) = 0.3149134334482243D-01 - xs( 7) = 0.4031832373402268D-01 - xs( 8) = 0.4960017275066528D-01 - xs( 9) = 0.5926335896347368D-01 - xs( 10) = 0.6919791548446759D-01 - ws( 1) = 0.1995414835491086D-02 - ws( 2) = 0.4264928128033439D-02 - ws( 3) = 0.5937530617726113D-02 - ws( 4) = 0.7109822246210431D-02 - ws( 5) = 0.7947970181367869D-02 - ws( 6) = 0.8579720675112019D-02 - ws( 7) = 0.9088714983922178D-02 - ws( 8) = 0.9552084364473782D-02 - ws( 9) = 0.1013904529464519D-01 - ws( 10) = 0.1151442095139759D-01 - endif - - - if( iquad .eq. 8 ) then - idomain = 8 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1570796326792897D+01 - n = 10 - err = 0.2997190725712503D-03 - ierq = 0 - xs( 1) = 0.5229987072275738D-03 - xs( 2) = 0.2793346164784370D-02 - xs( 3) = 0.6847386312396710D-02 - xs( 4) = 0.1241517441954732D-01 - xs( 5) = 0.1915090600138178D-01 - xs( 6) = 0.2676448880994847D-01 - xs( 7) = 0.3504752819412500D-01 - xs( 8) = 0.4386435532067229D-01 - xs( 9) = 0.5308376742011944D-01 - xs( 10) = 0.6244580869478392D-01 - ws( 1) = 0.1349490905042565D-02 - ws( 2) = 0.3190114975662733D-02 - ws( 3) = 0.4869702538203981D-02 - ws( 4) = 0.6207550359795729D-02 - ws( 5) = 0.7219942938707074D-02 - ws( 6) = 0.7991665571152582D-02 - ws( 7) = 0.8595846619535517D-02 - ws( 8) = 0.9139342887509696D-02 - ws( 9) = 0.9853962180513981D-02 - ws( 10) = 0.1077113958079223D-01 - endif - - - if( iquad .eq. 9 ) then - idomain = 9 - rk0r = 0.1000010000000000D-11 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 8 - err = 0.3874193691607870D-03 - ierq = 0 - xs( 1) = 0.5102706778176781D-03 - xs( 2) = 0.2644581510785612D-02 - xs( 3) = 0.6326775488387195D-02 - xs( 4) = 0.1133831957676620D-01 - xs( 5) = 0.1745039107785176D-01 - xs( 6) = 0.2446784318879850D-01 - xs( 7) = 0.3215398414714775D-01 - xs( 8) = 0.4012420131340686D-01 - ws( 1) = 0.1301938118430069D-02 - ws( 2) = 0.2938464306041175D-02 - ws( 3) = 0.4393452836270306D-02 - ws( 4) = 0.5627831091917769D-02 - ws( 5) = 0.6644892047735524D-02 - ws( 6) = 0.7593413402683147D-02 - ws( 7) = 0.8821860825885739D-02 - ws( 8) = 0.9784803070838571D-02 - endif - - - if( iquad .eq. 10 ) then - idomain = 10 - rk0r = 0.1000010000000000D-11 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 4 - err = 0.3871585566990927D-03 - ierq = 0 - xs( 1) = 0.9161652900412346D-03 - xs( 2) = 0.2893573001647395D-02 - xs( 3) = 0.5764987072511514D-02 - xs( 4) = 0.9313626586200005D-02 - ws( 1) = 0.1850982318414623D-02 - ws( 2) = 0.3665439588643929D-02 - ws( 3) = 0.5473136629925161D-02 - ws( 4) = 0.5641113283787779D-02 - endif - - - if( iquad .eq. 11 ) then - idomain = 11 - rk0r = 0.1000010000000000D-11 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.4084340849744789D-04 - ierq = 0 - xs( 1) = 0.1775697377387345D-02 - ws( 1) = 0.1147924246180239D-01 - endif - - - if( iquad .eq. 12 ) then - idomain = 12 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1468369932850853D-03 - ierq = 0 - xs( 1) = 0.5803213869573481D-03 - xs( 2) = 0.3123516373282229D-02 - xs( 3) = 0.7574809792639327D-02 - xs( 4) = 0.1350957341254958D-01 - xs( 5) = 0.2053888939696826D-01 - xs( 6) = 0.2838197654442845D-01 - xs( 7) = 0.3684758530267370D-01 - xs( 8) = 0.4580970750429200D-01 - xs( 9) = 0.5518663193869280D-01 - xs( 10) = 0.6491814724389169D-01 - xs( 11) = 0.7491033264602460D-01 - ws( 1) = 0.1505969146874826D-02 - ws( 2) = 0.3558503832669309D-02 - ws( 3) = 0.5266550055449218D-02 - ws( 4) = 0.6537957992828483D-02 - ws( 5) = 0.7475637806264094D-02 - ws( 6) = 0.8182621018975272D-02 - ws( 7) = 0.8737704876742202D-02 - ws( 8) = 0.9201591825588176D-02 - ws( 9) = 0.9631520239397959D-02 - ws( 10) = 0.1014161390796946D-01 - ws( 11) = 0.1161572735528208D-01 - endif - - - if( iquad .eq. 13 ) then - idomain = 13 - rk0r = 0.2000000000100001D-01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1435171066690432D-03 - ierq = 0 - xs( 1) = 0.5699859541399862D-03 - xs( 2) = 0.3094546032379551D-02 - xs( 3) = 0.7545057974658862D-02 - xs( 4) = 0.1349101126449763D-01 - xs( 5) = 0.2053379686557886D-01 - xs( 6) = 0.2838781292336791D-01 - xs( 7) = 0.3686027477192651D-01 - xs( 8) = 0.4582476655042569D-01 - xs( 9) = 0.5519995420264763D-01 - xs( 10) = 0.6492730491340959D-01 - xs( 11) = 0.7491956749131684D-01 - ws( 1) = 0.1484000671858197D-02 - ws( 2) = 0.3548111071058991D-02 - ws( 3) = 0.5273704634711937D-02 - ws( 4) = 0.6551520334644702D-02 - ws( 5) = 0.7488277020355547D-02 - ws( 6) = 0.8191650499703733D-02 - ws( 7) = 0.8742352927705537D-02 - ws( 8) = 0.9201787798807743D-02 - ws( 9) = 0.9628106533231619D-02 - ws( 10) = 0.1013705931621383D-01 - ws( 11) = 0.1162322881779835D-01 - endif - - - if( iquad .eq. 14 ) then - idomain = 14 - rk0r = 0.2000000000100001D-01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999800001D-01 - n = 11 - err = 0.1415311064480446D-03 - ierq = 0 - xs( 1) = 0.4116488213870461D-03 - xs( 2) = 0.2709312135045978D-02 - xs( 3) = 0.7115705652740979D-02 - xs( 4) = 0.1308343358691855D-01 - xs( 5) = 0.2016099687911894D-01 - xs( 6) = 0.2804836241778339D-01 - xs( 7) = 0.3654949158575944D-01 - xs( 8) = 0.4553775814029456D-01 - xs( 9) = 0.5493331466549811D-01 - xs( 10) = 0.6468172688544474D-01 - xs( 11) = 0.7471450482283039D-01 - ws( 1) = 0.1173031618578020D-02 - ws( 2) = 0.3432701085006558D-02 - ws( 3) = 0.5276979308497028D-02 - ws( 4) = 0.6584008955941494D-02 - ws( 5) = 0.7523436610271946D-02 - ws( 6) = 0.8222900230440365D-02 - ws( 7) = 0.8768661045690672D-02 - ws( 8) = 0.9223795471708221D-02 - ws( 9) = 0.9647604892735381D-02 - ws( 10) = 0.1016379154421125D-01 - ws( 11) = 0.1169523552186487D-01 - endif - - - if( iquad .eq. 15 ) then - idomain = 15 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.9999999999800001D-01 - n = 11 - err = 0.1305409053732614D-03 - ierq = 0 - xs( 1) = 0.3405738728602053D-03 - xs( 2) = 0.2577401744061191D-02 - xs( 3) = 0.6999320725284703D-02 - xs( 4) = 0.1301211424902264D-01 - xs( 5) = 0.2014260284778948D-01 - xs( 6) = 0.2807887674117233D-01 - xs( 7) = 0.3661970935929897D-01 - xs( 8) = 0.4563439732822192D-01 - xs( 9) = 0.5503916126920626D-01 - xs( 10) = 0.6477728867116045D-01 - xs( 11) = 0.7478325111968166D-01 - ws( 1) = 0.1051777482608337D-02 - ws( 2) = 0.3422285771566414D-02 - ws( 3) = 0.5311914795316341D-02 - ws( 4) = 0.6635884495234384D-02 - ws( 5) = 0.7575696632785266D-02 - ws( 6) = 0.8267979313409073D-02 - ws( 7) = 0.8802846763074640D-02 - ws( 8) = 0.9243048182494041D-02 - ws( 9) = 0.9648162240031113D-02 - ws( 10) = 0.1015026674605951D-01 - ws( 11) = 0.1167380380939042D-01 - endif - - - if( iquad .eq. 16 ) then - idomain = 16 - rk0r = 0.2000000000100001D-01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999980000D+00 - n = 11 - err = 0.1025059163850064D-03 - ierq = 0 - xs( 1) = 0.0000000000000000D+00 - xs( 2) = 0.2218725032133488D-02 - xs( 3) = 0.6746736690341351D-02 - xs( 4) = 0.1285051993579454D-01 - xs( 5) = 0.2006342981195820D-01 - xs( 6) = 0.2807967554272476D-01 - xs( 7) = 0.3670170825163461D-01 - xs( 8) = 0.4579980909393873D-01 - xs( 9) = 0.5528652247433295D-01 - xs( 10) = 0.6509327032635227D-01 - xs( 11) = 0.7512407698678138D-01 - ws( 1) = 0.6436561962834883D-03 - ws( 2) = 0.3525967441313288D-02 - ws( 3) = 0.5411055185404981D-02 - ws( 4) = 0.6721511032880065D-02 - ws( 5) = 0.7656855663245127D-02 - ws( 6) = 0.8348709710796036D-02 - ws( 7) = 0.8886932885850641D-02 - ws( 8) = 0.9330268784634449D-02 - ws( 9) = 0.9729985051943108D-02 - ws( 10) = 0.1022643187607914D-01 - ws( 11) = 0.1170558081618237D-01 - endif - - - if( iquad .eq. 17 ) then - idomain = 17 - rk0r = 0.2000000000100001D-01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999980000D+00 - n = 10 - err = 0.1572641765160602D-03 - ierq = 0 - xs( 1) = 0.9440952949419989D-03 - xs( 2) = 0.4602729605276978D-02 - xs( 3) = 0.1024359900889371D-01 - xs( 4) = 0.1719312956590593D-01 - xs( 5) = 0.2504337876868484D-01 - xs( 6) = 0.3355055825330321D-01 - xs( 7) = 0.4256207870223054D-01 - xs( 8) = 0.5198029976357521D-01 - xs( 9) = 0.6172405492844888D-01 - xs( 10) = 0.7165550819523515D-01 - ws( 1) = 0.2371201854619599D-02 - ws( 2) = 0.4788492249994348D-02 - ws( 3) = 0.6382085066691729D-02 - ws( 4) = 0.7451753873929590D-02 - ws( 5) = 0.8211947977376531D-02 - ws( 6) = 0.8788006819952334D-02 - ws( 7) = 0.9250194709717073D-02 - ws( 8) = 0.9661305449140539D-02 - ws( 9) = 0.1019442006417515D-01 - ws( 10) = 0.1148566599040088D-01 - endif - - - if( iquad .eq. 18 ) then - idomain = 18 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5707963267928966D+00 - n = 10 - err = 0.9947079276745412D-04 - ierq = 0 - xs( 1) = 0.7861155033099535D-03 - xs( 2) = 0.3962236845616694D-02 - xs( 3) = 0.9109850623914825D-02 - xs( 4) = 0.1566531847191563D-01 - xs( 5) = 0.2321269935737794D-01 - xs( 6) = 0.3148311197591294D-01 - xs( 7) = 0.4030913694015086D-01 - xs( 8) = 0.4959044379381311D-01 - xs( 9) = 0.5925338951336772D-01 - xs( 10) = 0.6918753237130290D-01 - ws( 1) = 0.1994897491153334D-02 - ws( 2) = 0.4263473250271843D-02 - ws( 3) = 0.5935511933362872D-02 - ws( 4) = 0.7107843096931074D-02 - ws( 5) = 0.7946339443168818D-02 - ws( 6) = 0.8578542597289827D-02 - ws( 7) = 0.9087984624047210D-02 - ws( 8) = 0.9551735486698212D-02 - ws( 9) = 0.1013899762714061D-01 - ws( 10) = 0.1151350015971023D-01 - endif - - - if( iquad .eq. 19 ) then - idomain = 19 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1570796326792897D+01 - n = 10 - err = 0.1088275116453411D-03 - ierq = 0 - xs( 1) = 0.6100823853552723D-03 - xs( 2) = 0.3142636682387619D-02 - xs( 3) = 0.7437723055950200D-02 - xs( 4) = 0.1315571247064507D-01 - xs( 5) = 0.1996924712821237D-01 - xs( 6) = 0.2761593371095017D-01 - xs( 7) = 0.3590401361937061D-01 - xs( 8) = 0.4470139046128820D-01 - xs( 9) = 0.5386485207413003D-01 - xs( 10) = 0.6306340752743200D-01 - ws( 1) = 0.1556984077408438D-02 - ws( 2) = 0.3466784752971285D-02 - ws( 3) = 0.5065666203862945D-02 - ws( 4) = 0.6316446522874659D-02 - ws( 5) = 0.7272147242705680D-02 - ws( 6) = 0.8009443287264597D-02 - ws( 7) = 0.8590046218378939D-02 - ws( 8) = 0.9115663617444932D-02 - ws( 9) = 0.9789698473074350D-02 - ws( 10) = 0.1043555885555074D-01 - endif - - - if( iquad .eq. 20 ) then - idomain = 20 - rk0r = 0.2000000000100001D-01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 8 - err = 0.3760314091730968D-03 - ierq = 0 - xs( 1) = 0.5081604403535912D-03 - xs( 2) = 0.2634064157549545D-02 - xs( 3) = 0.6302454312047335D-02 - xs( 4) = 0.1129651720852770D-01 - xs( 5) = 0.1738974019737819D-01 - xs( 6) = 0.2438866664601658D-01 - xs( 7) = 0.3205656272498304D-01 - xs( 8) = 0.4001097286970338D-01 - ws( 1) = 0.1296686226439392D-02 - ws( 2) = 0.2926941796771586D-02 - ws( 3) = 0.4377750216708311D-02 - ws( 4) = 0.5609651363111354D-02 - ws( 5) = 0.6625575266389190D-02 - ws( 6) = 0.7577104434142988D-02 - ws( 7) = 0.8807840585962901D-02 - ws( 8) = 0.9764187666509407D-02 - endif - - - if( iquad .eq. 21 ) then - idomain = 21 - rk0r = 0.2000000000100001D-01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 4 - err = 0.3872209009252533D-03 - ierq = 0 - xs( 1) = 0.9160582052587695D-03 - xs( 2) = 0.2893368052705298D-02 - xs( 3) = 0.5764710447417474D-02 - xs( 4) = 0.9313066581978530D-02 - ws( 1) = 0.1851269790822599D-02 - ws( 2) = 0.3665176997688003D-02 - ws( 3) = 0.5472725488356458D-02 - ws( 4) = 0.5641172280212742D-02 - endif - - - if( iquad .eq. 22 ) then - idomain = 22 - rk0r = 0.2000000000100001D-01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.4084446402029097D-04 - ierq = 0 - xs( 1) = 0.1775697377387345D-02 - ws( 1) = 0.1147946816412977D-01 - endif - - - if( iquad .eq. 23 ) then - idomain = 23 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1506584164699357D-03 - ierq = 0 - xs( 1) = 0.5879565112325606D-03 - xs( 2) = 0.3133910071324339D-02 - xs( 3) = 0.7567094113244766D-02 - xs( 4) = 0.1347758412773783D-01 - xs( 5) = 0.2048489734448805D-01 - xs( 6) = 0.2831083011091002D-01 - xs( 7) = 0.3676401832706271D-01 - xs( 8) = 0.4571776514747014D-01 - xs( 9) = 0.5508935195101401D-01 - xs( 10) = 0.6481663941460329D-01 - xs( 11) = 0.7479836068166994D-01 - ws( 1) = 0.1519419311458711D-02 - ws( 2) = 0.3548576494562407D-02 - ws( 3) = 0.5243402710506865D-02 - ws( 4) = 0.6513936198269349D-02 - ws( 5) = 0.7455870578772236D-02 - ws( 6) = 0.8167809535832108D-02 - ws( 7) = 0.8727259700169252D-02 - ws( 8) = 0.9194553636223846D-02 - ws( 9) = 0.9626569909222683D-02 - ws( 10) = 0.1013602634017786D-01 - ws( 11) = 0.1158842303688605D-01 - endif - - - if( iquad .eq. 24 ) then - idomain = 24 - rk0r = 0.4000000000100001D-01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1473364513595163D-03 - ierq = 0 - xs( 1) = 0.5732150721250488D-03 - xs( 2) = 0.3091812585893057D-02 - xs( 3) = 0.7523296616916275D-02 - xs( 4) = 0.1344845575219416D-01 - xs( 5) = 0.2047284964926190D-01 - xs( 6) = 0.2831230663877720D-01 - xs( 7) = 0.3677399880501020D-01 - xs( 8) = 0.4573121234391589D-01 - xs( 9) = 0.5510211068352341D-01 - xs( 10) = 0.6482687286496615D-01 - xs( 11) = 0.7481286967143799D-01 - ws( 1) = 0.1487731641923857D-02 - ws( 2) = 0.3533072509336623D-02 - ws( 3) = 0.5252844514835327D-02 - ws( 4) = 0.6531421071181376D-02 - ws( 5) = 0.7471639685874457D-02 - ws( 6) = 0.8178895396459154D-02 - ws( 7) = 0.8733171854028655D-02 - ws( 8) = 0.9195650791468033D-02 - ws( 9) = 0.9624200132256004D-02 - ws( 10) = 0.1013325007751049D-01 - ws( 11) = 0.1160213952980587D-01 - endif - - - if( iquad .eq. 25 ) then - idomain = 25 - rk0r = 0.4000000000100001D-01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5999999999800001D-01 - n = 11 - err = 0.1436245120733542D-03 - ierq = 0 - xs( 1) = 0.5796861102568759D-03 - xs( 2) = 0.3111905478511343D-02 - xs( 3) = 0.7558734778833760D-02 - xs( 4) = 0.1350547267753958D-01 - xs( 5) = 0.2055205359580759D-01 - xs( 6) = 0.2840890377520702D-01 - xs( 7) = 0.3688082127402600D-01 - xs( 8) = 0.4583958799519516D-01 - xs( 9) = 0.5520286550155676D-01 - xs( 10) = 0.6491183011280707D-01 - xs( 11) = 0.7487436374743830D-01 - ws( 1) = 0.1501533386603236D-02 - ws( 2) = 0.3545890930539666D-02 - ws( 3) = 0.5271697825448703D-02 - ws( 4) = 0.6554532977667740D-02 - ws( 5) = 0.7492021039911137D-02 - ws( 6) = 0.8192991183793054D-02 - ws( 7) = 0.8739429117469930D-02 - ws( 8) = 0.9192958338631634D-02 - ws( 9) = 0.9612462942620482D-02 - ws( 10) = 0.1011860195674917D-01 - ws( 11) = 0.1157631144986302D-01 - endif - - - if( iquad .eq. 26 ) then - idomain = 26 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.9999999999800001D-01 - n = 11 - err = 0.1361864921881437D-03 - ierq = 0 - xs( 1) = 0.3786088943753008D-03 - xs( 2) = 0.2620498190660381D-02 - xs( 3) = 0.7017676017734837D-02 - xs( 4) = 0.1301317772539096D-01 - xs( 5) = 0.2013078480903245D-01 - xs( 6) = 0.2805626006811131D-01 - xs( 7) = 0.3658747651915372D-01 - xs( 8) = 0.4559354947034414D-01 - xs( 9) = 0.5499080713453160D-01 - xs( 10) = 0.6472216480126912D-01 - xs( 11) = 0.7471923033323315D-01 - ws( 1) = 0.1106136218224592D-02 - ws( 2) = 0.3397826483261248D-02 - ws( 3) = 0.5290935244288442D-02 - ws( 4) = 0.6621228517536000D-02 - ws( 5) = 0.7563806630400479D-02 - ws( 6) = 0.8257515525923518D-02 - ws( 7) = 0.8793177675462909D-02 - ws( 8) = 0.9233704864490875D-02 - ws( 9) = 0.9639207609655595D-02 - ws( 10) = 0.1013972964197525D-01 - ws( 11) = 0.1164199085927975D-01 - endif - - - if( iquad .eq. 27 ) then - idomain = 27 - rk0r = 0.4000000000100001D-01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999980000D+00 - n = 11 - err = 0.1168966094493111D-03 - ierq = 0 - xs( 1) = 0.6707857411273459D-04 - xs( 2) = 0.2196817627336207D-02 - xs( 3) = 0.6632301938343669D-02 - xs( 4) = 0.1268345850072209D-01 - xs( 5) = 0.1986710405707769D-01 - xs( 6) = 0.2786451095692195D-01 - xs( 7) = 0.3647148598000536D-01 - xs( 8) = 0.4555496470523836D-01 - xs( 9) = 0.5502557624916798D-01 - xs( 10) = 0.6481383096244438D-01 - xs( 11) = 0.7482942618648733D-01 - ws( 1) = 0.6795513632037722D-03 - ws( 2) = 0.3415145545726788D-02 - ws( 3) = 0.5340291589887717D-02 - ws( 4) = 0.6683050923947009D-02 - ws( 5) = 0.7633670112673381D-02 - ws( 6) = 0.8331870426841205D-02 - ws( 7) = 0.8871258052391407D-02 - ws( 8) = 0.9312062874195318D-02 - ws( 9) = 0.9709088184126257D-02 - ws( 10) = 0.1019797885069639D-01 - ws( 11) = 0.1165548576561594D-01 - endif - - - if( iquad .eq. 28 ) then - idomain = 28 - rk0r = 0.4000000000100001D-01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5999999999980000D+00 - n = 10 - err = 0.1444159085726215D-03 - ierq = 0 - xs( 1) = 0.9313619226871432D-03 - xs( 2) = 0.4556259412800865D-02 - xs( 3) = 0.1017024839269921D-01 - xs( 4) = 0.1710183442856901D-01 - xs( 5) = 0.2493752234549308D-01 - xs( 6) = 0.3343011212214027D-01 - xs( 7) = 0.4242556722032605D-01 - xs( 8) = 0.5182583266233984D-01 - xs( 9) = 0.6155023757635995D-01 - xs( 10) = 0.7145824691289053D-01 - ws( 1) = 0.2341777361228415D-02 - ws( 2) = 0.4756039781751293D-02 - ws( 3) = 0.6360638888377883D-02 - ws( 4) = 0.7436405955346950D-02 - ws( 5) = 0.8197806562247702D-02 - ws( 6) = 0.8773002486301321D-02 - ws( 7) = 0.9233841495713616D-02 - ws( 8) = 0.9643139823946057D-02 - ws( 9) = 0.1017639729908685D-01 - ws( 10) = 0.1146342279386616D-01 - endif - - - if( iquad .eq. 29 ) then - idomain = 29 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5707963267928966D+00 - n = 10 - err = 0.9996697593692832D-04 - ierq = 0 - xs( 1) = 0.7849829456964976D-03 - xs( 2) = 0.3955732838805322D-02 - xs( 3) = 0.9094113032333496D-02 - xs( 4) = 0.1563938467735740D-01 - xs( 5) = 0.2317779405167888D-01 - xs( 6) = 0.3144135582723521D-01 - xs( 7) = 0.4026281578092309D-01 - xs( 8) = 0.4954159223773781D-01 - xs( 9) = 0.5920347065381634D-01 - xs( 10) = 0.6913563135520218D-01 - ws( 1) = 0.1991885287835462D-02 - ws( 2) = 0.4255786032695639D-02 - ws( 3) = 0.5925299014484187D-02 - ws( 4) = 0.7098023431523244D-02 - ws( 5) = 0.7938362524582370D-02 - ws( 6) = 0.8572863926243537D-02 - ws( 7) = 0.9084531525660588D-02 - ws( 8) = 0.9550154986995699D-02 - ws( 9) = 0.1013894846536646D-01 - ws( 10) = 0.1150900533718538D-01 - endif - - - if( iquad .eq. 30 ) then - idomain = 30 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1570796326792897D+01 - n = 10 - err = 0.9067574661296521D-04 - ierq = 0 - xs( 1) = 0.6323098101701504D-03 - xs( 2) = 0.3248401836924823D-02 - xs( 3) = 0.7662500139616817D-02 - xs( 4) = 0.1351410939742988D-01 - xs( 5) = 0.2046926328320056D-01 - xs( 6) = 0.2826630931802012D-01 - xs( 7) = 0.3671506908216925D-01 - xs( 8) = 0.4568448768671597D-01 - xs( 9) = 0.5505011722098137D-01 - xs( 10) = 0.6455006271060988D-01 - ws( 1) = 0.1612593028870073D-02 - ws( 2) = 0.3572767939591270D-02 - ws( 3) = 0.5193945093687520D-02 - ws( 4) = 0.6454381479956264D-02 - ws( 5) = 0.7417134764116594D-02 - ws( 6) = 0.8162294260549863D-02 - ws( 7) = 0.8755264452555573D-02 - ws( 8) = 0.9286048940730535D-02 - ws( 9) = 0.9974040799546287D-02 - ws( 10) = 0.1088639829756799D-01 - endif - - - if( iquad .eq. 31 ) then - idomain = 31 - rk0r = 0.4000000000100001D-01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 8 - err = 0.3155154041871665D-03 - ierq = 0 - xs( 1) = 0.4952783313683813D-03 - xs( 2) = 0.2570388354585358D-02 - xs( 3) = 0.6157663485451488D-02 - xs( 4) = 0.1105362686333284D-01 - xs( 5) = 0.1704746959305589D-01 - xs( 6) = 0.2395719347843775D-01 - xs( 7) = 0.3154700645985987D-01 - xs( 8) = 0.3944102694546534D-01 - ws( 1) = 0.1264706130789885D-02 - ws( 2) = 0.2858129631423566D-02 - ws( 3) = 0.4286816191642581D-02 - ws( 4) = 0.5510196719783446D-02 - ws( 5) = 0.6527665651777558D-02 - ws( 6) = 0.7501159600493331D-02 - ws( 7) = 0.8753877373386596D-02 - ws( 8) = 0.9685804186829195D-02 - endif - - - if( iquad .eq. 32 ) then - idomain = 32 - rk0r = 0.4000000000100001D-01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 4 - err = 0.3874330447609677D-03 - ierq = 0 - xs( 1) = 0.9152648718578157D-03 - xs( 2) = 0.2892190832233018D-02 - xs( 3) = 0.5763797124092179D-02 - xs( 4) = 0.9310868985462318D-02 - ws( 1) = 0.1853587570866008D-02 - ws( 2) = 0.3661968315044150D-02 - ws( 3) = 0.5469120916079991D-02 - ws( 4) = 0.5645286984090180D-02 - endif - - - if( iquad .eq. 33 ) then - idomain = 33 - rk0r = 0.4000000000100001D-01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.4084805762037517D-04 - ierq = 0 - xs( 1) = 0.1775697377387345D-02 - ws( 1) = 0.1148018008991740D-01 - endif - - - if( iquad .eq. 34 ) then - idomain = 34 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1692873358652360D-03 - ierq = 0 - xs( 1) = 0.3656195357136409D-03 - xs( 2) = 0.2511063221937541D-02 - xs( 3) = 0.6721295511256651D-02 - xs( 4) = 0.1250385003033662D-01 - xs( 5) = 0.1944502640908263D-01 - xs( 6) = 0.2724967866056761D-01 - xs( 7) = 0.3571263043572531D-01 - xs( 8) = 0.4469737146988662D-01 - xs( 9) = 0.5411225691214850D-01 - xs( 10) = 0.6388539810601623D-01 - xs( 11) = 0.7391572000162484D-01 - ws( 1) = 0.1062811789986459D-02 - ws( 2) = 0.3249252323245384D-02 - ws( 3) = 0.5078235466130117D-02 - ws( 4) = 0.6419702708203430D-02 - ws( 5) = 0.7414566080561774D-02 - ws( 6) = 0.8163517886936143D-02 - ws( 7) = 0.8748451432573240D-02 - ws( 8) = 0.9231718078752211D-02 - ws( 9) = 0.9669756783552698D-02 - ws( 10) = 0.1017407655665259D-01 - ws( 11) = 0.1163241074228790D-01 - endif - - - if( iquad .eq. 35 ) then - idomain = 35 - rk0r = 0.1000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1691544227523851D-03 - ierq = 0 - xs( 1) = 0.1180147702444551D-03 - xs( 2) = 0.2148561769542100D-02 - xs( 3) = 0.6400782764775685D-02 - xs( 4) = 0.1223486288305215D-01 - xs( 5) = 0.1921592854308645D-01 - xs( 6) = 0.2704936655912819D-01 - xs( 7) = 0.3553379332598115D-01 - xs( 8) = 0.4453614067955147D-01 - xs( 9) = 0.5396797172049647D-01 - xs( 10) = 0.6376181912586849D-01 - xs( 11) = 0.7383577860481910D-01 - ws( 1) = 0.7024107751109132D-03 - ws( 2) = 0.3262174936674514D-02 - ws( 3) = 0.5132623311110784D-02 - ws( 4) = 0.6466002929629538D-02 - ws( 5) = 0.7448174723771996D-02 - ws( 6) = 0.8187833963379198D-02 - ws( 7) = 0.8767114578318020D-02 - ws( 8) = 0.9247589066491804D-02 - ws( 9) = 0.9685621771396659D-02 - ws( 10) = 0.1019425161197519D-01 - ws( 11) = 0.1169391437089084D-01 - endif - - - if( iquad .eq. 36 ) then - idomain = 36 - rk0r = 0.1000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5999999999800001D-01 - n = 11 - err = 0.1610179319689984D-03 - ierq = 0 - xs( 1) = 0.0000000000000000D+00 - xs( 2) = 0.2051154318008517D-02 - xs( 3) = 0.6372543912616841D-02 - xs( 4) = 0.1227330696626775D-01 - xs( 5) = 0.1929677347826705D-01 - xs( 6) = 0.2714973791944926D-01 - xs( 7) = 0.3563759070117576D-01 - xs( 8) = 0.4463340496489979D-01 - xs( 9) = 0.5405512730778635D-01 - xs( 10) = 0.6384340720054106D-01 - xs( 11) = 0.7392720209108478D-01 - ws( 1) = 0.5802113297162469D-03 - ws( 2) = 0.3318664573506116D-02 - ws( 3) = 0.5206799357679704D-02 - ws( 4) = 0.6521481594982352D-02 - ws( 5) = 0.7478012975472802D-02 - ws( 6) = 0.8198108853097503D-02 - ws( 7) = 0.8764461458406116D-02 - ws( 8) = 0.9238132767170804D-02 - ws( 9) = 0.9675307278171631D-02 - ws( 10) = 0.1019545657445452D-01 - ws( 11) = 0.1171263742920334D-01 - endif - - - if( iquad .eq. 37 ) then - idomain = 37 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.9999999999800001D-01 - n = 11 - err = 0.1442991060191702D-03 - ierq = 0 - xs( 1) = 0.2300602371588620D-03 - xs( 2) = 0.2341042132046956D-02 - xs( 3) = 0.6724910920553068D-02 - xs( 4) = 0.1273212875585909D-01 - xs( 5) = 0.1985783597394551D-01 - xs( 6) = 0.2778504168377437D-01 - xs( 7) = 0.3631406986289044D-01 - xs( 8) = 0.4531717963343498D-01 - xs( 9) = 0.5471415715864694D-01 - xs( 10) = 0.6445167960827518D-01 - xs( 11) = 0.7446523647793371D-01 - ws( 1) = 0.8587613302056909D-03 - ws( 2) = 0.3350306722417775D-02 - ws( 3) = 0.5298913999561927D-02 - ws( 4) = 0.6632503001568881D-02 - ws( 5) = 0.7568186871427194D-02 - ws( 6) = 0.8256367815579237D-02 - ws( 7) = 0.8789415930971036D-02 - ws( 8) = 0.9230339814850112D-02 - ws( 9) = 0.9638601193178097D-02 - ws( 10) = 0.1014527630324614D-01 - ws( 11) = 0.1164599279691938D-01 - endif - - - if( iquad .eq. 38 ) then - idomain = 38 - rk0r = 0.1000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999980000D+00 - n = 11 - err = 0.1232754935104589D-03 - ierq = 0 - xs( 1) = 0.3375066974806181D-03 - xs( 2) = 0.2484509605114058D-02 - xs( 3) = 0.6818373606614241D-02 - xs( 4) = 0.1280997746354577D-01 - xs( 5) = 0.1996164941312721D-01 - xs( 6) = 0.2793887192748994D-01 - xs( 7) = 0.3653037543475861D-01 - xs( 8) = 0.4560008788280214D-01 - xs( 9) = 0.5505693418316671D-01 - xs( 10) = 0.6482816376199009D-01 - xs( 11) = 0.7480687880605009D-01 - ws( 1) = 0.1018116371267806D-02 - ws( 2) = 0.3307892255213790D-02 - ws( 3) = 0.5259061978849224D-02 - ws( 4) = 0.6640689646681417D-02 - ws( 5) = 0.7608923593826224D-02 - ws( 6) = 0.8314314637598281D-02 - ws( 7) = 0.8856293558992598D-02 - ws( 8) = 0.9296999281669738D-02 - ws( 9) = 0.9692501114652956D-02 - ws( 10) = 0.1017500542340715D-01 - ws( 11) = 0.1156678268807938D-01 - endif - - - if( iquad .eq. 39 ) then - idomain = 39 - rk0r = 0.1000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5999999999980000D+00 - n = 10 - err = 0.1466719585668972D-03 - ierq = 0 - xs( 1) = 0.9035538854012871D-03 - xs( 2) = 0.4456921273793024D-02 - xs( 3) = 0.1001899739284246D-01 - xs( 4) = 0.1692243922779960D-01 - xs( 5) = 0.2474124833471088D-01 - xs( 6) = 0.3322033079624313D-01 - xs( 7) = 0.4220220898119564D-01 - xs( 8) = 0.5158794500023124D-01 - xs( 9) = 0.6129840109594001D-01 - xs( 10) = 0.7119106670481180D-01 - ws( 1) = 0.2277928281570077D-02 - ws( 2) = 0.4689523533872639D-02 - ws( 3) = 0.6322806322999650D-02 - ws( 4) = 0.7415846049985945D-02 - ws( 5) = 0.8183633609272007D-02 - ws( 6) = 0.8760064633858436D-02 - ws( 7) = 0.9220663922579744D-02 - ws( 8) = 0.9629531712965555D-02 - ws( 9) = 0.1016630092792110D-01 - ws( 10) = 0.1145245100661937D-01 - endif - - - if( iquad .eq. 40 ) then - idomain = 40 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5707963267928966D+00 - n = 10 - err = 0.1016158812902750D-03 - ierq = 0 - xs( 1) = 0.7778014007654545D-03 - xs( 2) = 0.3921878395857043D-02 - xs( 3) = 0.9025149567067025D-02 - xs( 4) = 0.1553817418985753D-01 - xs( 5) = 0.2305178557812776D-01 - xs( 6) = 0.3129844267349778D-01 - xs( 7) = 0.4010989484239930D-01 - xs( 8) = 0.4938396874905396D-01 - xs( 9) = 0.5904419650053241D-01 - xs( 10) = 0.6896853095912728D-01 - ws( 1) = 0.1973946338991153D-02 - ws( 2) = 0.4222568410827553D-02 - ws( 3) = 0.5890296370590387D-02 - ws( 4) = 0.7069213768376889D-02 - ws( 5) = 0.7917631578678601D-02 - ws( 6) = 0.8559683155963036D-02 - ws( 7) = 0.9077592673190405D-02 - ws( 8) = 0.9547863847284321D-02 - ws( 9) = 0.1013991672048053D-01 - ws( 10) = 0.1148952363771032D-01 - endif - - - if( iquad .eq. 41 ) then - idomain = 41 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1570796326792897D+01 - n = 10 - err = 0.1157194003998430D-03 - ierq = 0 - xs( 1) = 0.6044060967386045D-03 - xs( 2) = 0.3110027411733167D-02 - xs( 3) = 0.7354589929224786D-02 - xs( 4) = 0.1300821366692066D-01 - xs( 5) = 0.1975620506356998D-01 - xs( 6) = 0.2734291042812041D-01 - xs( 7) = 0.3557848476423287D-01 - xs( 8) = 0.4433147658074352D-01 - xs( 9) = 0.5345752142409001D-01 - xs( 10) = 0.6259826413796629D-01 - ws( 1) = 0.1541971310923619D-02 - ws( 2) = 0.3427412397209441D-02 - ws( 3) = 0.5005913022665573D-02 - ws( 4) = 0.6249797340176904D-02 - ws( 5) = 0.7209015713148048D-02 - ws( 6) = 0.7953702219263467D-02 - ws( 7) = 0.8542098764961068D-02 - ws( 8) = 0.9079054767964102D-02 - ws( 9) = 0.9771097737226467D-02 - ws( 10) = 0.1028460140128293D-01 - endif - - - if( iquad .eq. 42 ) then - idomain = 42 - rk0r = 0.1000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 9 - err = 0.1625787336792288D-03 - ierq = 0 - xs( 1) = 0.3721690730424503D-03 - xs( 2) = 0.1962111500406319D-02 - xs( 3) = 0.4825385792976988D-02 - xs( 4) = 0.8922607789678579D-02 - xs( 5) = 0.1415190947928791D-01 - xs( 6) = 0.2037218717693916D-01 - xs( 7) = 0.2744999577865790D-01 - xs( 8) = 0.3517336401088548D-01 - xs( 9) = 0.4310164010547105D-01 - ws( 1) = 0.9522149856621147D-03 - ws( 2) = 0.2228887962425122D-02 - ws( 3) = 0.3492493692139498D-02 - ws( 4) = 0.4690301556242551D-02 - ws( 5) = 0.5781790914274991D-02 - ws( 6) = 0.6728409289245202D-02 - ws( 7) = 0.7626809068084035D-02 - ws( 8) = 0.8845422896762300D-02 - ws( 9) = 0.9632762651890432D-02 - endif - - - if( iquad .eq. 43 ) then - idomain = 43 - rk0r = 0.1000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 4 - err = 0.3887147981950864D-03 - ierq = 0 - xs( 1) = 0.9125504347059003D-03 - xs( 2) = 0.2887404999291284D-02 - xs( 3) = 0.5758222312159379D-02 - xs( 4) = 0.9298846151010457D-02 - ws( 1) = 0.1861209622776125D-02 - ws( 2) = 0.3653471761329187D-02 - ws( 3) = 0.5458324292817260D-02 - ws( 4) = 0.5651245212465754D-02 - endif - - - if( iquad .eq. 44 ) then - idomain = 44 - rk0r = 0.1000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.4086997591354388D-04 - ierq = 0 - xs( 1) = 0.1775697377387345D-02 - ws( 1) = 0.1148480079200764D-01 - endif - - - if( iquad .eq. 45 ) then - idomain = 45 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1809235935671392D-03 - ierq = 0 - xs( 1) = 0.2213932057067926D-03 - xs( 2) = 0.2098927634487809D-02 - xs( 3) = 0.6117109161577449D-02 - xs( 4) = 0.1182965501321566D-01 - xs( 5) = 0.1877926443394482D-01 - xs( 6) = 0.2662072109784108D-01 - xs( 7) = 0.3512722313436843D-01 - xs( 8) = 0.4415392543132518D-01 - xs( 9) = 0.5360429687620083D-01 - xs( 10) = 0.6340571992936876D-01 - xs( 11) = 0.7344695464378426D-01 - ws( 1) = 0.7786458608877262D-03 - ws( 2) = 0.3005303611322958D-02 - ws( 3) = 0.4948679442708045D-02 - ws( 4) = 0.6399719690168376D-02 - ws( 5) = 0.7442789139266321D-02 - ws( 6) = 0.8205038938374518D-02 - ws( 7) = 0.8791174236738293D-02 - ws( 8) = 0.9271719892891573D-02 - ws( 9) = 0.9698991143081172D-02 - ws( 10) = 0.1019260684947869D-01 - ws( 11) = 0.1163242257142766D-01 - endif - - - if( iquad .eq. 46 ) then - idomain = 46 - rk0r = 0.2000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1785595311065325D-03 - ierq = 0 - xs( 1) = 0.1667947162056423D-03 - xs( 2) = 0.2050196602720760D-02 - xs( 3) = 0.6109740902041130D-02 - xs( 4) = 0.1184484775692879D-01 - xs( 5) = 0.1880147421762206D-01 - xs( 6) = 0.2664288365082556D-01 - xs( 7) = 0.3514676387546993D-01 - xs( 8) = 0.4417092643031732D-01 - xs( 9) = 0.5362144172450409D-01 - xs( 10) = 0.6342940414565777D-01 - xs( 11) = 0.7348933339168262D-01 - ws( 1) = 0.7104885474196661D-03 - ws( 2) = 0.3047299890242565D-02 - ws( 3) = 0.4982404704844730D-02 - ws( 4) = 0.6412677038134209D-02 - ws( 5) = 0.7445183560290858D-02 - ws( 6) = 0.8202991862714705D-02 - ws( 7) = 0.8787873039431397D-02 - ws( 8) = 0.9269731076922940D-02 - ws( 9) = 0.9699967230306313D-02 - ws( 10) = 0.1020013758813751D-01 - ws( 11) = 0.1165382354326130D-01 - endif - - - if( iquad .eq. 47 ) then - idomain = 47 - rk0r = 0.2000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5999999999800001D-01 - n = 11 - err = 0.2111658378305852D-03 - ierq = 0 - xs( 1) = 0.1499940948903601D-03 - xs( 2) = 0.2130050010512703D-02 - xs( 3) = 0.6346208274452547D-02 - xs( 4) = 0.1218953848215027D-01 - xs( 5) = 0.1919289832999755D-01 - xs( 6) = 0.2704232896799362D-01 - xs( 7) = 0.3553276075045672D-01 - xs( 8) = 0.4453270410075737D-01 - xs( 9) = 0.5395778420433718D-01 - xs( 10) = 0.6374931589687907D-01 - xs( 11) = 0.7380948035520088D-01 - ws( 1) = 0.7187804979944974D-03 - ws( 2) = 0.3199648925786723D-02 - ws( 3) = 0.5124261046598342D-02 - ws( 4) = 0.6486628792734477D-02 - ws( 5) = 0.7468764567683987D-02 - ws( 6) = 0.8197885171470753D-02 - ws( 7) = 0.8767318737836902D-02 - ws( 8) = 0.9243118236649178D-02 - ws( 9) = 0.9675252996564791D-02 - ws( 10) = 0.1019244043515471D-01 - ws( 11) = 0.1165334898212014D-01 - endif - - - if( iquad .eq. 48 ) then - idomain = 48 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.9999999999800001D-01 - n = 11 - err = 0.1917628353404858D-03 - ierq = 0 - xs( 1) = 0.1659133737221022D-03 - xs( 2) = 0.2234967414848198D-02 - xs( 3) = 0.6624194557543729D-02 - xs( 4) = 0.1266376484409086D-01 - xs( 5) = 0.1982898867809988D-01 - xs( 6) = 0.2779232330719313D-01 - xs( 7) = 0.3635118212115519D-01 - xs( 8) = 0.4537720010161499D-01 - xs( 9) = 0.5479024522866900D-01 - xs( 10) = 0.6453731090132155D-01 - xs( 11) = 0.7453848558549936D-01 - ws( 1) = 0.7632375379936422D-03 - ws( 2) = 0.3336175199412647D-02 - ws( 3) = 0.5321628759622678D-02 - ws( 4) = 0.6670898276239020D-02 - ws( 5) = 0.7606732975821312D-02 - ws( 6) = 0.8289028647452184D-02 - ws( 7) = 0.8815411063037565D-02 - ws( 8) = 0.9249721489775490D-02 - ws( 9) = 0.9649439439928232D-02 - ws( 10) = 0.1015149134866766D-01 - ws( 11) = 0.1160179517784652D-01 - endif - - - if( iquad .eq. 49 ) then - idomain = 49 - rk0r = 0.2000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999980000D+00 - n = 11 - err = 0.1283463431881496D-03 - ierq = 0 - xs( 1) = 0.8767660796653953D-04 - xs( 2) = 0.2121510736262760D-02 - xs( 3) = 0.6490629826036717D-02 - xs( 4) = 0.1254394588464111D-01 - xs( 5) = 0.1975421327055692D-01 - xs( 6) = 0.2778041161260140D-01 - xs( 7) = 0.3641223407908779D-01 - xs( 8) = 0.4551612745777213D-01 - xs( 9) = 0.5500318781865723D-01 - xs( 10) = 0.6480263192249183D-01 - xs( 11) = 0.7480637423569324D-01 - ws( 1) = 0.6632285776720004D-03 - ws( 2) = 0.3308827408776279D-02 - ws( 3) = 0.5315349635874956D-02 - ws( 4) = 0.6702941931946780D-02 - ws( 5) = 0.7662633067116280D-02 - ws( 6) = 0.8358485651875474D-02 - ws( 7) = 0.8892892278054444D-02 - ws( 8) = 0.9328073548503773D-02 - ws( 9) = 0.9721427954889329D-02 - ws( 10) = 0.1020569040493958D-01 - ws( 11) = 0.1157697393274102D-01 - endif - - - if( iquad .eq. 50 ) then - idomain = 50 - rk0r = 0.2000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5999999999980000D+00 - n = 10 - err = 0.1539509971636682D-03 - ierq = 0 - xs( 1) = 0.8465031404432767D-03 - xs( 2) = 0.4237732464778813D-02 - xs( 3) = 0.9658208209467604D-02 - xs( 4) = 0.1647076238966604D-01 - xs( 5) = 0.2423520263199483D-01 - xs( 6) = 0.3267988602793686D-01 - xs( 7) = 0.4163714635482869D-01 - xs( 8) = 0.5100408788929883D-01 - xs( 9) = 0.6070377499179342D-01 - xs( 10) = 0.7058931086485530D-01 - ws( 1) = 0.2144038025813433D-02 - ws( 2) = 0.4524639079134017D-02 - ws( 3) = 0.6207677343368159D-02 - ws( 4) = 0.7346275912466919D-02 - ws( 5) = 0.8141779612058069D-02 - ws( 6) = 0.8731939931354335D-02 - ws( 7) = 0.9199431099320601D-02 - ws( 8) = 0.9615923967540000D-02 - ws( 9) = 0.1016667259795631D-01 - ws( 10) = 0.1143604266241756D-01 - endif - - - if( iquad .eq. 51 ) then - idomain = 51 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5707963267928966D+00 - n = 10 - err = 0.1054494369831965D-03 - ierq = 0 - xs( 1) = 0.7576206586467252D-03 - xs( 2) = 0.3831816950855669D-02 - xs( 3) = 0.8852577955259436D-02 - xs( 4) = 0.1529726051222819D-01 - xs( 5) = 0.2276309127586119D-01 - xs( 6) = 0.3097985409304244D-01 - xs( 7) = 0.3977453022546414D-01 - xs( 8) = 0.4903970680782742D-01 - xs( 9) = 0.5869271727382626D-01 - xs( 10) = 0.6858260375744486D-01 - ws( 1) = 0.1924329472894118D-02 - ws( 2) = 0.4139905867412079D-02 - ws( 3) = 0.5812411050383343D-02 - ws( 4) = 0.7011192356025815D-02 - ws( 5) = 0.7879657320083961D-02 - ws( 6) = 0.8537322113993323D-02 - ws( 7) = 0.9065984842824948D-02 - ws( 8) = 0.9543001969344394D-02 - ws( 9) = 0.1013865763511465D-01 - ws( 10) = 0.1140992145009051D-01 - endif - - - if( iquad .eq. 52 ) then - idomain = 52 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1570796326792897D+01 - n = 10 - err = 0.9881409144695116D-04 - ierq = 0 - xs( 1) = 0.6190163922588317D-03 - xs( 2) = 0.3174125016605482D-02 - xs( 3) = 0.7477308324051911D-02 - xs( 4) = 0.1319075766006065D-01 - xs( 5) = 0.2000819270910031D-01 - xs( 6) = 0.2768033335624313D-01 - xs( 7) = 0.3601701184755143D-01 - xs( 8) = 0.4488470010861313D-01 - xs( 9) = 0.5416037123921411D-01 - xs( 10) = 0.6362833085259749D-01 - ws( 1) = 0.1577762908129043D-02 - ws( 2) = 0.3485041689144395D-02 - ws( 3) = 0.5064181155206435D-02 - ws( 4) = 0.6312818675909846D-02 - ws( 5) = 0.7285294859202577D-02 - ws( 6) = 0.8044810394038187D-02 - ws( 7) = 0.8647812616163448D-02 - ws( 8) = 0.9187368159522143D-02 - ws( 9) = 0.9890049162973097D-02 - ws( 10) = 0.1099011500211955D-01 - endif - - - if( iquad .eq. 53 ) then - idomain = 53 - rk0r = 0.2000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 9 - err = 0.1743102883452495D-03 - ierq = 0 - xs( 1) = 0.3485877661572130D-03 - xs( 2) = 0.1852914408008245D-02 - xs( 3) = 0.4606955550878025D-02 - xs( 4) = 0.8608677219354944D-02 - xs( 5) = 0.1377109978874521D-01 - xs( 6) = 0.1995073857224193D-01 - xs( 7) = 0.2700264046204234D-01 - xs( 8) = 0.3470416874363223D-01 - xs( 9) = 0.4259495375654069D-01 - ws( 1) = 0.8939406204431683D-03 - ws( 2) = 0.2123523881134089D-02 - ws( 3) = 0.3385840370527009D-02 - ws( 4) = 0.4609346141540189D-02 - ws( 5) = 0.5729136810405141D-02 - ws( 6) = 0.6698061462448304D-02 - ws( 7) = 0.7613612166879051D-02 - ws( 8) = 0.8826902148041056D-02 - ws( 9) = 0.9540980150103092D-02 - endif - - - if( iquad .eq. 54 ) then - idomain = 54 - rk0r = 0.2000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 4 - err = 0.3938015614433943D-03 - ierq = 0 - xs( 1) = 0.9009645384961549D-03 - xs( 2) = 0.2867566961310658D-02 - xs( 3) = 0.5737559491414161D-02 - xs( 4) = 0.9252106729568679D-02 - ws( 1) = 0.1896396941100610D-02 - ws( 2) = 0.3613577392708934D-02 - ws( 3) = 0.5411293723566944D-02 - ws( 4) = 0.5680096866191419D-02 - endif - - - if( iquad .eq. 55 ) then - idomain = 55 - rk0r = 0.2000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.4095108266481017D-04 - ierq = 0 - xs( 1) = 0.1775697377387345D-02 - ws( 1) = 0.1150178762729521D-01 - endif - - - if( iquad .eq. 56 ) then - idomain = 56 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1838833614845236D-03 - ierq = 0 - xs( 1) = 0.4010297427999241D-03 - xs( 2) = 0.2284041862348268D-02 - xs( 3) = 0.6089726744434992D-02 - xs( 4) = 0.1168948336257812D-01 - xs( 5) = 0.1856790019027161D-01 - xs( 6) = 0.2633399503622131D-01 - xs( 7) = 0.3475564517556562D-01 - xs( 8) = 0.4368684671619801D-01 - xs( 9) = 0.5302676442239617D-01 - xs( 10) = 0.6267016336113448D-01 - xs( 11) = 0.7231653009569615D-01 - ws( 1) = 0.1050388801947436D-02 - ws( 2) = 0.2800804328865429D-02 - ws( 3) = 0.4782118178716001D-02 - ws( 4) = 0.6321460723429882D-02 - ws( 5) = 0.7372006260209414D-02 - ws( 6) = 0.8127836863623053D-02 - ws( 7) = 0.8708524232396998D-02 - ws( 8) = 0.9172788784582818D-02 - ws( 9) = 0.9593648802434157D-02 - ws( 10) = 0.1010074757889882D-01 - ws( 11) = 0.1084101045030649D-01 - endif - - - if( iquad .eq. 57 ) then - idomain = 57 - rk0r = 0.4000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 11 - err = 0.1807688068510676D-03 - ierq = 0 - xs( 1) = 0.4043689776572939D-03 - xs( 2) = 0.2295581432055388D-02 - xs( 3) = 0.6096448872836334D-02 - xs( 4) = 0.1168463376362621D-01 - xs( 5) = 0.1855801363646044D-01 - xs( 6) = 0.2632400090146451D-01 - xs( 7) = 0.3474680012165618D-01 - xs( 8) = 0.4367984848830158D-01 - xs( 9) = 0.5302352162488185D-01 - xs( 10) = 0.6267514179736693D-01 - xs( 11) = 0.7233646870394475D-01 - ws( 1) = 0.1058395082916088D-02 - ws( 2) = 0.2804905415197262D-02 - ws( 3) = 0.4770357182290076D-02 - ws( 4) = 0.6312607748102487D-02 - ws( 5) = 0.7370181878242578D-02 - ws( 6) = 0.8128435022468015D-02 - ws( 7) = 0.8709325693101446D-02 - ws( 8) = 0.9175133977753028D-02 - ws( 9) = 0.9598667654220185D-02 - ws( 10) = 0.1010743158691661D-01 - ws( 11) = 0.1085875580011146D-01 - endif - - - if( iquad .eq. 58 ) then - idomain = 58 - rk0r = 0.4000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5999999999800001D-01 - n = 11 - err = 0.1633911814020501D-03 - ierq = 0 - xs( 1) = 0.4263151891890608D-03 - xs( 2) = 0.2394774472175345D-02 - xs( 3) = 0.6292287822062769D-02 - xs( 4) = 0.1198717120289476D-01 - xs( 5) = 0.1896676341485834D-01 - xs( 6) = 0.2682279092717611D-01 - xs( 7) = 0.3531288139603656D-01 - xs( 8) = 0.4429591342520444D-01 - xs( 9) = 0.5368714680933536D-01 - xs( 10) = 0.6340837270326727D-01 - xs( 11) = 0.7322161094275684D-01 - ws( 1) = 0.1112708792013756D-02 - ws( 2) = 0.2896675869924934D-02 - ws( 3) = 0.4872077105122479D-02 - ws( 4) = 0.6422287870877882D-02 - ws( 5) = 0.7470144304113756D-02 - ws( 6) = 0.8206882341315357D-02 - ws( 7) = 0.8764960505467368D-02 - ws( 8) = 0.9218810642522857D-02 - ws( 9) = 0.9649674207727683D-02 - ws( 10) = 0.1018639997620145D-01 - ws( 11) = 0.1106293484977139D-01 - endif - - - if( iquad .eq. 59 ) then - idomain = 59 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.9999999999800001D-01 - n = 11 - err = 0.2453459171525439D-03 - ierq = 0 - xs( 1) = 0.5124753273521103D-03 - xs( 2) = 0.2786670817786147D-02 - xs( 3) = 0.7003862381237784D-02 - xs( 4) = 0.1291456007998774D-01 - xs( 5) = 0.2004898135011227D-01 - xs( 6) = 0.2803220829291927D-01 - xs( 7) = 0.3662876479167557D-01 - xs( 8) = 0.4569206173657255D-01 - xs( 9) = 0.5512911708047407D-01 - xs( 10) = 0.6487076789447323D-01 - xs( 11) = 0.7477528288762512D-01 - ws( 1) = 0.1327662647763257D-02 - ws( 2) = 0.3250162412496936D-02 - ws( 3) = 0.5138258490152380D-02 - ws( 4) = 0.6598726809776924D-02 - ws( 5) = 0.7608266292969825D-02 - ws( 6) = 0.8323177065516246D-02 - ws( 7) = 0.8857750791866166D-02 - ws( 8) = 0.9282087870718379D-02 - ws( 9) = 0.9674300536076035D-02 - ws( 10) = 0.1017394294979578D-01 - ws( 11) = 0.1135620621394012D-01 - endif - - - if( iquad .eq. 60 ) then - idomain = 60 - rk0r = 0.4000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999980000D+00 - n = 11 - err = 0.1395177918705494D-03 - ierq = 0 - xs( 1) = 0.5251605579226043D-03 - xs( 2) = 0.2812912166470717D-02 - xs( 3) = 0.6957615184456944D-02 - xs( 4) = 0.1271442304548943D-01 - xs( 5) = 0.1968051347283388D-01 - xs( 6) = 0.2751225746245586D-01 - xs( 7) = 0.3597755548671888D-01 - xs( 8) = 0.4492583812351139D-01 - xs( 9) = 0.5425513190954713D-01 - xs( 10) = 0.6387346315619442D-01 - xs( 11) = 0.7350609205419228D-01 - ws( 1) = 0.1354876173732017D-02 - ws( 2) = 0.3231515563038326D-02 - ws( 3) = 0.5014093723462398D-02 - ws( 4) = 0.6428285004379979D-02 - ws( 5) = 0.7446686561745896D-02 - ws( 6) = 0.8182495672191587D-02 - ws( 7) = 0.8736589420451753D-02 - ws( 8) = 0.9175170060625924D-02 - ws( 9) = 0.9572696454601386D-02 - ws( 10) = 0.1006609375407108D-01 - ws( 11) = 0.1084935493845863D-01 - endif - - - if( iquad .eq. 61 ) then - idomain = 61 - rk0r = 0.4000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5999999999980000D+00 - n = 11 - err = 0.1169309934605299D-03 - ierq = 0 - xs( 1) = 0.4928541227834472D-03 - xs( 2) = 0.2672550290304802D-02 - xs( 3) = 0.6690562969940182D-02 - xs( 4) = 0.1233628584779684D-01 - xs( 5) = 0.1922660341464501D-01 - xs( 6) = 0.2702133128422823D-01 - xs( 7) = 0.3548026712429004D-01 - xs( 8) = 0.4444830374971746D-01 - xs( 9) = 0.5382925480892745D-01 - xs( 10) = 0.6353900977101826D-01 - xs( 11) = 0.7333978458293434D-01 - ws( 1) = 0.1276452248436241D-02 - ws( 2) = 0.3105464426423893D-02 - ws( 3) = 0.4891282306351784D-02 - ws( 4) = 0.6332626021100980D-02 - ws( 5) = 0.7391709207214511D-02 - ws( 6) = 0.8162197655739957D-02 - ws( 7) = 0.8743072500259829D-02 - ws( 8) = 0.9209444436591196D-02 - ws( 9) = 0.9641660354168928D-02 - ws( 10) = 0.1020996435619614D-01 - ws( 11) = 0.1105851254094967D-01 - endif - - - if( iquad .eq. 62 ) then - idomain = 62 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5707963267928966D+00 - n = 10 - err = 0.1179408509339815D-03 - ierq = 0 - xs( 1) = 0.6913323347727749D-03 - xs( 2) = 0.3543321135650986D-02 - xs( 3) = 0.8317963609205149D-02 - xs( 4) = 0.1457051270401914D-01 - xs( 5) = 0.2191036760418659D-01 - xs( 6) = 0.3005398286962567D-01 - xs( 7) = 0.3880964230802408D-01 - xs( 8) = 0.4805086302596050D-01 - xs( 9) = 0.5767440524017681D-01 - xs( 10) = 0.6741634255903314D-01 - ws( 1) = 0.1762276089241243D-02 - ws( 2) = 0.3884841046607523D-02 - ws( 3) = 0.5587229103857417D-02 - ws( 4) = 0.6853115940824606D-02 - ws( 5) = 0.7784007708158710D-02 - ws( 6) = 0.8484817673725661D-02 - ws( 7) = 0.9037843281168630D-02 - ws( 8) = 0.9530849280715294D-02 - ws( 9) = 0.1014463253234937D-01 - ws( 10) = 0.1099852118305552D-01 - endif - - - if( iquad .eq. 63 ) then - idomain = 63 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1570796326792897D+01 - n = 10 - err = 0.1289490753990787D-03 - ierq = 0 - xs( 1) = 0.6016524028847468D-03 - xs( 2) = 0.3082238262207636D-02 - xs( 3) = 0.7257826580473727D-02 - xs( 4) = 0.1281395012367391D-01 - xs( 5) = 0.1947266303386837D-01 - xs( 6) = 0.2700137306228067D-01 - xs( 7) = 0.3521350072599697D-01 - xs( 8) = 0.4397000342634819D-01 - xs( 9) = 0.5312822915376290D-01 - xs( 10) = 0.6233727591813822D-01 - ws( 1) = 0.1533225501603294D-02 - ws( 2) = 0.3381371979287501D-02 - ws( 3) = 0.4916737384738743D-02 - ws( 4) = 0.6151167086650627D-02 - ws( 5) = 0.7133955603847491D-02 - ws( 6) = 0.7912092312136390D-02 - ws( 7) = 0.8533453690584846D-02 - ws( 8) = 0.9099010546529895D-02 - ws( 9) = 0.9820633150180060D-02 - ws( 10) = 0.1029914191164578D-01 - endif - - - if( iquad .eq. 64 ) then - idomain = 64 - rk0r = 0.4000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 9 - err = 0.2070371580351416D-03 - ierq = 0 - xs( 1) = 0.4227329539003627D-03 - xs( 2) = 0.2188198315571264D-02 - xs( 3) = 0.5244641314087052D-02 - xs( 4) = 0.9439246123752545D-02 - xs( 5) = 0.1463027040073602D-01 - xs( 6) = 0.2070708395636282D-01 - xs( 7) = 0.2756046050867379D-01 - xs( 8) = 0.3496359910256634D-01 - xs( 9) = 0.4237156617192755D-01 - ws( 1) = 0.1078023258185229D-02 - ws( 2) = 0.2435935357204934D-02 - ws( 3) = 0.3652990634245802D-02 - ws( 4) = 0.4730327390435750D-02 - ws( 5) = 0.5690593455239591D-02 - ws( 6) = 0.6552557099026279D-02 - ws( 7) = 0.7458292847651005D-02 - ws( 8) = 0.8582484434641911D-02 - ws( 9) = 0.8245797604181081D-02 - endif - - - if( iquad .eq. 65 ) then - idomain = 65 - rk0r = 0.4000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 4 - err = 0.4412180083725173D-03 - ierq = 0 - xs( 1) = 0.7979052185140195D-03 - xs( 2) = 0.2650170492161608D-02 - xs( 3) = 0.5655760300394405D-02 - xs( 4) = 0.8900563121161571D-02 - ws( 1) = 0.2488204184002080D-02 - ws( 2) = 0.2925998060997875D-02 - ws( 3) = 0.4987439272082745D-02 - ws( 4) = 0.5919171038478724D-02 - endif - - - if( iquad .eq. 66 ) then - idomain = 66 - rk0r = 0.4000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.4135684618204628D-04 - ierq = 0 - xs( 1) = 0.1775697377387345D-02 - ws( 1) = 0.1158385016123636D-01 - endif - - - if( iquad .eq. 67 ) then - idomain = 67 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999800000D-01 - n = 10 - err = 0.5098083989938058D-03 - ierq = 0 - xs( 1) = 0.2914107107697135D-03 - xs( 2) = 0.1694999050612057D-02 - xs( 3) = 0.4894420532323102D-02 - xs( 4) = 0.1046306708496410D-01 - xs( 5) = 0.1785396581316491D-01 - xs( 6) = 0.2629425316432154D-01 - xs( 7) = 0.3536951543139992D-01 - xs( 8) = 0.4487088065844783D-01 - xs( 9) = 0.5466826892361873D-01 - xs( 10) = 0.6445549017768308D-01 - ws( 1) = 0.7653032770574438D-03 - ws( 2) = 0.2154168698297659D-02 - ws( 3) = 0.4376226137568952D-02 - ws( 4) = 0.6636556541183023D-02 - ws( 5) = 0.8011588588210970D-02 - ws( 6) = 0.8809062555059298D-02 - ws( 7) = 0.9338564184570504D-02 - ws( 8) = 0.9775335499801160D-02 - ws( 9) = 0.1028339634967105D-01 - ws( 10) = 0.1092008596213741D-01 - endif - - - if( iquad .eq. 68 ) then - idomain = 68 - rk0r = 0.1000000000001000D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999800000D-01 - n = 10 - err = 0.4513668334091504D-03 - ierq = 0 - xs( 1) = 0.2985777872428781D-03 - xs( 2) = 0.1739576215386658D-02 - xs( 3) = 0.5013128784292420D-02 - xs( 4) = 0.1064264965426995D-01 - xs( 5) = 0.1805714855362985D-01 - xs( 6) = 0.2650932998469312D-01 - xs( 7) = 0.3559932922251783D-01 - xs( 8) = 0.4511958536524989D-01 - xs( 9) = 0.5493738153576960D-01 - xs( 10) = 0.6473349787828714D-01 - ws( 1) = 0.7846377363538065D-03 - ws( 2) = 0.2212375457696912D-02 - ws( 3) = 0.4455281242624252D-02 - ws( 4) = 0.6675427059542082D-02 - ws( 5) = 0.8025489741958871D-02 - ws( 6) = 0.8821440825850898D-02 - ws( 7) = 0.9355959039451706D-02 - ws( 8) = 0.9794201016076634D-02 - ws( 9) = 0.1029748234462772D-01 - ws( 10) = 0.1090847346913223D-01 - endif - - - if( iquad .eq. 69 ) then - idomain = 69 - rk0r = 0.1000000000001000D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5999999999800001D-01 - n = 10 - err = 0.4807843334150738D-03 - ierq = 0 - xs( 1) = 0.3139804126245113D-03 - xs( 2) = 0.1826605771649884D-02 - xs( 3) = 0.5215741175682329D-02 - xs( 4) = 0.1091349639573632D-01 - xs( 5) = 0.1834222880170767D-01 - xs( 6) = 0.2679840071089999D-01 - xs( 7) = 0.3590301962850642D-01 - xs( 8) = 0.4545284862461865D-01 - xs( 9) = 0.5531180406321097D-01 - xs( 10) = 0.6514149538701769D-01 - ws( 1) = 0.8249078839628179D-03 - ws( 2) = 0.2316163929623632D-02 - ws( 3) = 0.4561212388129250D-02 - ws( 4) = 0.6707916188473313D-02 - ws( 5) = 0.8029678830182898D-02 - ws( 6) = 0.8829691347221997D-02 - ws( 7) = 0.9378601938929790D-02 - ws( 8) = 0.9827067605555791D-02 - ws( 9) = 0.1033972528020074D-01 - ws( 10) = 0.1091030989030417D-01 - endif - - - if( iquad .eq. 70 ) then - idomain = 70 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.9999999999800001D-01 - n = 10 - err = 0.3772405522325325D-03 - ierq = 0 - xs( 1) = 0.3487414939893007D-03 - xs( 2) = 0.2008742741745691D-02 - xs( 3) = 0.5606376994506950D-02 - xs( 4) = 0.1141324741209268D-01 - xs( 5) = 0.1884525410956223D-01 - xs( 6) = 0.2726539819396753D-01 - xs( 7) = 0.3633036155308950D-01 - xs( 8) = 0.4585917084014912D-01 - xs( 9) = 0.5572610449042140D-01 - xs( 10) = 0.6558658731462264D-01 - ws( 1) = 0.9141734802564558D-03 - ws( 2) = 0.2516122422919502D-02 - ws( 3) = 0.4741745326762230D-02 - ws( 4) = 0.6750219564261729D-02 - ws( 5) = 0.8006318288532493D-02 - ws( 6) = 0.8788415223588456D-02 - ws( 7) = 0.9345705288158260D-02 - ws( 8) = 0.9812974491737651D-02 - ws( 9) = 0.1036228304501206D-01 - ws( 10) = 0.1090945847219844D-01 - endif - - - if( iquad .eq. 71 ) then - idomain = 71 - rk0r = 0.1000000000001000D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999980000D+00 - n = 10 - err = 0.8029932701356324D-03 - ierq = 0 - xs( 1) = 0.4572995776217248D-03 - xs( 2) = 0.2551299206859660D-02 - xs( 3) = 0.6693580437898900D-02 - xs( 4) = 0.1283570662147771D-01 - xs( 5) = 0.2041510678942761D-01 - xs( 6) = 0.2891221333601165D-01 - xs( 7) = 0.3801312701965559D-01 - xs( 8) = 0.4754110237775423D-01 - xs( 9) = 0.5736485710090255D-01 - xs( 10) = 0.6712098930600030D-01 - ws( 1) = 0.1191649492742954D-02 - ws( 2) = 0.3068335368381182D-02 - ws( 3) = 0.5211516817636924D-02 - ws( 4) = 0.6965284542390903D-02 - ws( 5) = 0.8108512170330573D-02 - ws( 6) = 0.8846350181957926D-02 - ws( 7) = 0.9361881902532227D-02 - ws( 8) = 0.9787696137785230D-02 - ws( 9) = 0.1031744609430383D-01 - ws( 10) = 0.1069854812506352D-01 - endif - - - if( iquad .eq. 72 ) then - idomain = 72 - rk0r = 0.1000000000001000D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5999999999980000D+00 - n = 11 - err = 0.1859870786197719D-03 - ierq = 0 - xs( 1) = 0.4676803311185430D-03 - xs( 2) = 0.2516915334522260D-02 - xs( 3) = 0.6307982545277975D-02 - xs( 4) = 0.1174698641682700D-01 - xs( 5) = 0.1851991931400666D-01 - xs( 6) = 0.2627575139559462D-01 - xs( 7) = 0.3474206135215656D-01 - xs( 8) = 0.4373423950122907D-01 - xs( 9) = 0.5312901562168908D-01 - xs( 10) = 0.6280064993664537D-01 - xs( 11) = 0.7232978667670961D-01 - ws( 1) = 0.1207482167812250D-02 - ws( 2) = 0.2912933569141846D-02 - ws( 3) = 0.4653918894939656D-02 - ws( 4) = 0.6167801526377976D-02 - ws( 5) = 0.7318750084656372D-02 - ws( 6) = 0.8152523180251810D-02 - ws( 7) = 0.8764452728240940D-02 - ws( 8) = 0.9237081258970202D-02 - ws( 9) = 0.9666741335905145D-02 - ws( 10) = 0.1021144004517219D-01 - ws( 11) = 0.1014582443439521D-01 - endif - - - if( iquad .eq. 73 ) then - idomain = 73 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5707963267928966D+00 - n = 10 - err = 0.1427082256821405D-03 - ierq = 0 - xs( 1) = 0.6046549616560852D-03 - xs( 2) = 0.3147892316950152D-02 - xs( 3) = 0.7545796575996285D-02 - xs( 4) = 0.1348807209347878D-01 - xs( 5) = 0.2062038367084954D-01 - xs( 6) = 0.2864361094751146D-01 - xs( 7) = 0.3733856483240437D-01 - xs( 8) = 0.4655042599456327D-01 - xs( 9) = 0.5613132309686997D-01 - xs( 10) = 0.6565990170093988D-01 - ws( 1) = 0.1547683490404600D-02 - ws( 2) = 0.3511862527108456D-02 - ws( 3) = 0.5230104922090117D-02 - ws( 4) = 0.6594788486640787D-02 - ws( 5) = 0.7625589742432159D-02 - ws( 6) = 0.8400816979285288D-02 - ws( 7) = 0.9003013304341383D-02 - ws( 8) = 0.9536785146495174D-02 - ws( 9) = 0.1017544842609076D-01 - ws( 10) = 0.1016368045038368D-01 - endif - - - if( iquad .eq. 74 ) then - idomain = 74 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1570796326792897D+01 - n = 11 - err = 0.9960516767356006D-04 - ierq = 0 - xs( 1) = 0.3917842839455815D-03 - xs( 2) = 0.2144245063322027D-02 - xs( 3) = 0.5394278920771910D-02 - xs( 4) = 0.1003718957898078D-01 - xs( 5) = 0.1586662738826354D-01 - xs( 6) = 0.2267107337113433D-01 - xs( 7) = 0.3026321498168819D-01 - xs( 8) = 0.3848888658975846D-01 - xs( 9) = 0.4722191203501696D-01 - xs( 10) = 0.5628773056766168D-01 - xs( 11) = 0.6518832002846921D-01 - ws( 1) = 0.1019042559922093D-02 - ws( 2) = 0.2502966092485306D-02 - ws( 3) = 0.3977716180535912D-02 - ws( 4) = 0.5273666657239744D-02 - ws( 5) = 0.6352662095390314D-02 - ws( 6) = 0.7234927980407277D-02 - ws( 7) = 0.7952225937375407D-02 - ws( 8) = 0.8542844323292666D-02 - ws( 9) = 0.9107887498300465D-02 - ws( 10) = 0.9798203433830817D-02 - ws( 11) = 0.9089767573824625D-02 - endif - - - if( iquad .eq. 75 ) then - idomain = 75 - rk0r = 0.1000000000001000D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 10 - err = 0.1378291199031955D-03 - ierq = 0 - xs( 1) = 0.4126887397328409D-03 - xs( 2) = 0.2145313614450635D-02 - xs( 3) = 0.5154195255358960D-02 - xs( 4) = 0.9294447888272037D-02 - xs( 5) = 0.1441713295041300D-01 - xs( 6) = 0.2039121373271149D-01 - xs( 7) = 0.2710618199737090D-01 - xs( 8) = 0.3443156531473224D-01 - xs( 9) = 0.4211015936722024D-01 - xs( 10) = 0.4969630179777108D-01 - ws( 1) = 0.1054856779438529D-02 - ws( 2) = 0.2393602384586748D-02 - ws( 3) = 0.3604315801776226D-02 - ws( 4) = 0.4666097301543652D-02 - ws( 5) = 0.5594633302074708D-02 - ws( 6) = 0.6407455607980644D-02 - ws( 7) = 0.7152957189518805D-02 - ws( 8) = 0.7976273693758853D-02 - ws( 9) = 0.8684738865127621D-02 - ws( 10) = 0.6991604374368274D-02 - endif - - - if( iquad .eq. 76 ) then - idomain = 76 - rk0r = 0.1000000000001000D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 5 - err = 0.4934394198234772D-03 - ierq = 0 - xs( 1) = 0.1488618159823864D-02 - xs( 2) = 0.3878589642422307D-02 - xs( 3) = 0.6930526013124537D-02 - xs( 4) = 0.1052185685781994D-01 - xs( 5) = 0.1851473023484651D-01 - ws( 1) = 0.3341884188539822D-02 - ws( 2) = 0.4414951517930588D-02 - ws( 3) = 0.6448207867133502D-02 - ws( 4) = 0.5495774857062111D-02 - ws( 5) = -.4531177283520828D-02 - endif - - - if( iquad .eq. 77 ) then - idomain = 77 - rk0r = 0.1000000000001000D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.4506185741688950D-04 - ierq = 0 - xs( 1) = 0.1775697377387345D-02 - ws( 1) = 0.1230234000370673D-01 - endif - - - if( iquad .eq. 78 ) then - idomain = 78 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999800000D-01 - n = 12 - err = 0.3695747993287704D-03 - ierq = 0 - xs( 1) = 0.1172773281343156D-03 - xs( 2) = 0.6409743634285555D-03 - xs( 3) = 0.1695659852876321D-02 - xs( 4) = 0.3553758117059734D-02 - xs( 5) = 0.6843850991206509D-02 - xs( 6) = 0.1234958232948824D-01 - xs( 7) = 0.1988255449358036D-01 - xs( 8) = 0.2859468128513426D-01 - xs( 9) = 0.3795856140892869D-01 - xs( 10) = 0.4772042199931675D-01 - xs( 11) = 0.5767172817408221D-01 - xs( 12) = 0.6730003792143589D-01 - ws( 1) = 0.3033772816859780D-03 - ws( 2) = 0.7612360215487119D-03 - ws( 3) = 0.1389356331404966D-02 - ws( 4) = 0.2430236983533491D-02 - ws( 5) = 0.4310500396234054D-02 - ws( 6) = 0.6658232729385509D-02 - ws( 7) = 0.8246765159417668D-02 - ws( 8) = 0.9099445553808856D-02 - ws( 9) = 0.9619596210398261D-02 - ws( 10) = 0.1003386007910617D-01 - ws( 11) = 0.1043791548449670D-01 - ws( 12) = 0.9478499866858775D-02 - endif - - - if( iquad .eq. 79 ) then - idomain = 79 - rk0r = 0.1570796326795897D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999800000D-01 - n = 12 - err = 0.4522529714758576D-03 - ierq = 0 - xs( 1) = 0.1143705054231468D-03 - xs( 2) = 0.6253405908965032D-03 - xs( 3) = 0.1655664709869336D-02 - xs( 4) = 0.3476166478319653D-02 - xs( 5) = 0.6727725590872279D-02 - xs( 6) = 0.1222167672455957D-01 - xs( 7) = 0.1978237291106176D-01 - xs( 8) = 0.2854217337552531D-01 - xs( 9) = 0.3796355488869457D-01 - xs( 10) = 0.4779229603172584D-01 - xs( 11) = 0.5782729454906194D-01 - xs( 12) = 0.6756043398286990D-01 - ws( 1) = 0.2960339288963435D-03 - ws( 2) = 0.7429805170167812D-03 - ws( 3) = 0.1357995766243844D-02 - ws( 4) = 0.2388563068134931D-02 - ws( 5) = 0.4280197349237929D-02 - ws( 6) = 0.6668340922847329D-02 - ws( 7) = 0.8288214052176147D-02 - ws( 8) = 0.9153035174638330D-02 - ws( 9) = 0.9678501063589477D-02 - ws( 10) = 0.1009094740624021D-01 - ws( 11) = 0.1051938475978111D-01 - ws( 12) = 0.9692517816064117D-02 - endif - - - if( iquad .eq. 80 ) then - idomain = 80 - rk0r = 0.1570796326795897D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5999999999800001D-01 - n = 12 - err = 0.3713710206239783D-03 - ierq = 0 - xs( 1) = 0.1241170448152244D-03 - xs( 2) = 0.6783983933766059D-03 - xs( 3) = 0.1790829187985301D-02 - xs( 4) = 0.3736489696042355D-02 - xs( 5) = 0.7137098051413867D-02 - xs( 6) = 0.1269730510809036D-01 - xs( 7) = 0.2021829089667839D-01 - xs( 8) = 0.2892745947096979D-01 - xs( 9) = 0.3832349307539556D-01 - xs( 10) = 0.4816486332798711D-01 - xs( 11) = 0.5826932652345091D-01 - xs( 12) = 0.6816918257144139D-01 - ws( 1) = 0.3212766158635121D-03 - ws( 2) = 0.8050602391524338D-03 - ws( 3) = 0.1460981217632089D-02 - ws( 4) = 0.2534743749469012D-02 - ws( 5) = 0.4410544920317951D-02 - ws( 6) = 0.6665829506040892D-02 - ws( 7) = 0.8231770107700766D-02 - ws( 8) = 0.9111725736008843D-02 - ws( 9) = 0.9665566915487402D-02 - ws( 10) = 0.1011375819542173D-01 - ws( 11) = 0.1062056746188588D-01 - ws( 12) = 0.9997135081968403D-02 - endif - - - if( iquad .eq. 81 ) then - idomain = 81 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.9999999999800001D-01 - n = 13 - err = 0.5632435762497902D-03 - ierq = 0 - xs( 1) = 0.1491070518948282D-03 - xs( 2) = 0.8167448441526178D-03 - xs( 3) = 0.2160624820362216D-02 - xs( 4) = 0.4497945235298582D-02 - xs( 5) = 0.8361087830486729D-02 - xs( 6) = 0.1411624141755588D-01 - xs( 7) = 0.2145903135867332D-01 - xs( 8) = 0.2983765047028675D-01 - xs( 9) = 0.3889276022118408D-01 - xs( 10) = 0.4843399552629087D-01 - xs( 11) = 0.5835324446995908D-01 - xs( 12) = 0.6854801800457481D-01 - xs( 13) = 0.7858897943233810D-01 - ws( 1) = 0.3859918831197784D-03 - ws( 2) = 0.9712343807198445D-03 - ws( 3) = 0.1767776578749361D-02 - ws( 4) = 0.3001344130634120D-02 - ws( 5) = 0.4800485710317311D-02 - ws( 6) = 0.6646122381014780D-02 - ws( 7) = 0.7940115038712045D-02 - ws( 8) = 0.8761030916249380D-02 - ws( 9) = 0.9328141563463952D-02 - ws( 10) = 0.9768138498144544D-02 - ws( 11) = 0.1016709413477148D-01 - ws( 12) = 0.1069788244498447D-01 - ws( 13) = 0.1038966336354155D-01 - endif - - - if( iquad .eq. 82 ) then - idomain = 82 - rk0r = 0.1570796326795897D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999980000D+00 - n = 13 - err = 0.5229259352032123D-03 - ierq = 0 - xs( 1) = 0.1768181353300638D-03 - xs( 2) = 0.9688210392005593D-03 - xs( 3) = 0.2563658930503651D-02 - xs( 4) = 0.5325232798074429D-02 - xs( 5) = 0.9723076383940658D-02 - xs( 6) = 0.1589691964652678D-01 - xs( 7) = 0.2347868897444218D-01 - xs( 8) = 0.3200089864202923D-01 - xs( 9) = 0.4114860210333514D-01 - xs( 10) = 0.5074122252938648D-01 - xs( 11) = 0.6067055225471357D-01 - xs( 12) = 0.7079735072080939D-01 - xs( 13) = 0.8068176903474078D-01 - ws( 1) = 0.4579528726833543D-03 - ws( 2) = 0.1151817377539841D-02 - ws( 3) = 0.2099240416111024D-02 - ws( 4) = 0.3511182464029565D-02 - ws( 5) = 0.5312701118396017D-02 - ws( 6) = 0.6963060674103268D-02 - ws( 7) = 0.8119234536565309D-02 - ws( 8) = 0.8876533165673155D-02 - ws( 9) = 0.9401086154929399D-02 - ws( 10) = 0.9796511011496759D-02 - ws( 11) = 0.1015977178363613D-01 - ws( 12) = 0.1062928932878391D-01 - ws( 13) = 0.9980186665509231D-02 - endif - - - if( iquad .eq. 83 ) then - idomain = 83 - rk0r = 0.1570796326795897D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5999999999980000D+00 - n = 13 - err = 0.2341625566252836D-03 - ierq = 0 - xs( 1) = 0.2154879267580558D-03 - xs( 2) = 0.1175625173066005D-02 - xs( 3) = 0.3074079955444956D-02 - xs( 4) = 0.6181850608114696D-02 - xs( 5) = 0.1074296002353588D-01 - xs( 6) = 0.1677056770924716D-01 - xs( 7) = 0.2401984864878437D-01 - xs( 8) = 0.3217180772094089D-01 - xs( 9) = 0.4097435513298291D-01 - xs( 10) = 0.5026074822640373D-01 - xs( 11) = 0.5991499370595803D-01 - xs( 12) = 0.6977494775199458D-01 - xs( 13) = 0.7937855830079049D-01 - ws( 1) = 0.5571576072263049D-03 - ws( 2) = 0.1391088310229577D-02 - ws( 3) = 0.2453320523614848D-02 - ws( 4) = 0.3807087140084066D-02 - ws( 5) = 0.5317874215763463D-02 - ws( 6) = 0.6692495971792071D-02 - ws( 7) = 0.7751209870658858D-02 - ws( 8) = 0.8515834891571783D-02 - ws( 9) = 0.9077752528616981D-02 - ws( 10) = 0.9511112162563624D-02 - ws( 11) = 0.9929037263786371D-02 - ws( 12) = 0.1041226676428013D-01 - ws( 13) = 0.9237205913864377D-02 - endif - - - if( iquad .eq. 84 ) then - idomain = 84 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5707963267928966D+00 - n = 11 - err = 0.3060405446790852D-03 - ierq = 0 - xs( 1) = 0.2533880762343660D-03 - xs( 2) = 0.1461328252024712D-02 - xs( 3) = 0.3946818287849722D-02 - xs( 4) = 0.7899340007652141D-02 - xs( 5) = 0.1332935907230932D-01 - xs( 6) = 0.2006470070403445D-01 - xs( 7) = 0.2783163621644325D-01 - xs( 8) = 0.3636153798316308D-01 - xs( 9) = 0.4542433257519408D-01 - xs( 10) = 0.5473988943932875D-01 - xs( 11) = 0.6382079118409074D-01 - ws( 1) = 0.6668084709608917D-03 - ws( 2) = 0.1801722747684128D-02 - ws( 3) = 0.3200915140040539D-02 - ws( 4) = 0.4707029743914782D-02 - ws( 5) = 0.6126491213711623D-02 - ws( 6) = 0.7305088212410230D-02 - ws( 7) = 0.8201965057934985D-02 - ws( 8) = 0.8882333056231817D-02 - ws( 9) = 0.9469672162930326D-02 - ws( 10) = 0.9829461356449047D-02 - ws( 11) = 0.7961792553831202D-02 - endif - - - if( iquad .eq. 85 ) then - idomain = 85 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1570796326792897D+01 - n = 11 - err = 0.2524150199012528D-03 - ierq = 0 - xs( 1) = 0.3614722029684346D-03 - xs( 2) = 0.1928505852543291D-02 - xs( 3) = 0.4790542233748676D-02 - xs( 4) = 0.8917098720805365D-02 - xs( 5) = 0.1420475029892433D-01 - xs( 6) = 0.2050598475260043D-01 - xs( 7) = 0.2765890339274439D-01 - xs( 8) = 0.3549870188884749D-01 - xs( 9) = 0.4382925282569589D-01 - xs( 10) = 0.5235941257829205D-01 - xs( 11) = 0.6072010577631382D-01 - ws( 1) = 0.9290405090711526D-03 - ws( 2) = 0.2210464557322083D-02 - ws( 3) = 0.3505473163353015D-02 - ws( 4) = 0.4731568732677899D-02 - ws( 5) = 0.5829101448430981D-02 - ws( 6) = 0.6772073781924928D-02 - ws( 7) = 0.7570434867274969D-02 - ws( 8) = 0.8284397977209245D-02 - ws( 9) = 0.8941399573603124D-02 - ws( 10) = 0.8931572850836171D-02 - ws( 11) = 0.6053509109195393D-02 - endif - - - if( iquad .eq. 86 ) then - idomain = 86 - rk0r = 0.1570796326795897D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 11 - err = 0.1319420122746448D-03 - ierq = 0 - xs( 1) = 0.3784745305250923D-03 - xs( 2) = 0.1944334078221188D-02 - xs( 3) = 0.4671520340814697D-02 - xs( 4) = 0.8463575054098655D-02 - xs( 5) = 0.1320635284133614D-01 - xs( 6) = 0.1878230688003758D-01 - xs( 7) = 0.2508720921906016D-01 - xs( 8) = 0.3200696300250090D-01 - xs( 9) = 0.3933799234369092D-01 - xs( 10) = 0.4680944898933585D-01 - xs( 11) = 0.5422115029374479D-01 - ws( 1) = 0.9543975278613987D-03 - ws( 2) = 0.2166666489226951D-02 - ws( 3) = 0.3270594782088946D-02 - ws( 4) = 0.4272219850201281D-02 - ws( 5) = 0.5179936117378339D-02 - ws( 6) = 0.5993234519764779D-02 - ws( 7) = 0.6740095270979482D-02 - ws( 8) = 0.7565529288673074D-02 - ws( 9) = 0.8434242330985341D-02 - ws( 10) = 0.8181200304447824D-02 - ws( 11) = 0.4881961414871424D-02 - endif - - - if( iquad .eq. 87 ) then - idomain = 87 - rk0r = 0.1570796326795897D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 6 - err = 0.7678160408745508D-03 - ierq = 0 - xs( 1) = 0.4933753424144233D-03 - xs( 2) = 0.3563416316563432D-02 - xs( 3) = 0.6095009473802268D-02 - xs( 4) = 0.9194789644863696D-02 - xs( 5) = 0.1681833662137283D-01 - xs( 6) = 0.2572766893671389D-01 - ws( 1) = -.7566417569435775D-03 - ws( 2) = 0.4603547346445994D-02 - ws( 3) = 0.8131583023955663D-02 - ws( 4) = 0.5818118319855033D-02 - ws( 5) = -.2691539420678887D-02 - ws( 6) = 0.2163093422904949D-02 - endif - - - if( iquad .eq. 88 ) then - idomain = 88 - rk0r = 0.1570796326795897D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.8083902650016213D-04 - ierq = 0 - xs( 1) = 0.5600755889164239D-02 - ws( 1) = -.2999164971795061D-04 - endif - - - if( iquad .eq. 89 ) then - idomain = 89 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 16 - err = 0.6793164842965577D-03 - ierq = 0 - xs( 1) = 0.4229243938222190D-04 - xs( 2) = 0.2249618525828415D-03 - xs( 3) = 0.5638324015397908D-03 - xs( 4) = 0.1082428415329826D-02 - xs( 5) = 0.1823666672303092D-02 - xs( 6) = 0.2864288313685627D-02 - xs( 7) = 0.4346787697956824D-02 - xs( 8) = 0.6542922886298528D-02 - xs( 9) = 0.1008929096884068D-01 - xs( 10) = 0.1596682221004422D-01 - xs( 11) = 0.2427117204416348D-01 - xs( 12) = 0.3397582395713374D-01 - xs( 13) = 0.4430072231815212D-01 - xs( 14) = 0.5490871452550320D-01 - xs( 15) = 0.6553799675671038D-01 - xs( 16) = 0.7572020119189800D-01 - ws( 1) = 0.1087402068851670D-03 - ws( 2) = 0.2581602660745458D-03 - ws( 3) = 0.4234015742732898D-03 - ws( 4) = 0.6207975753067683D-03 - ws( 5) = 0.8739462774564133D-03 - ws( 6) = 0.1230684212112728D-02 - ws( 7) = 0.1775440106527967D-02 - ws( 8) = 0.2718044596866409D-02 - ws( 9) = 0.4564705916683233D-02 - ws( 10) = 0.7216210543723051D-02 - ws( 11) = 0.9184656940224259D-02 - ws( 12) = 0.1009846174698926D-01 - ws( 13) = 0.1052053829558001D-01 - ws( 14) = 0.1081343257694401D-01 - ws( 15) = 0.1089777429470020D-01 - ws( 16) = 0.8899195196225772D-02 - endif - - - if( iquad .eq. 90 ) then - idomain = 90 - rk0r = 0.3141592653590793D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 16 - err = 0.6051622489922281D-03 - ierq = 0 - xs( 1) = 0.4380731972116167D-04 - xs( 2) = 0.2330045106118585D-03 - xs( 3) = 0.5839455997260835D-03 - xs( 4) = 0.1120986127302559D-02 - xs( 5) = 0.1888317057058557D-02 - xs( 6) = 0.2965125703267173D-02 - xs( 7) = 0.4499567493753339D-02 - xs( 8) = 0.6770606072912751D-02 - xs( 9) = 0.1044156771348666D-01 - xs( 10) = 0.1646418999697136D-01 - xs( 11) = 0.2483443008774623D-01 - xs( 12) = 0.3454409669283108D-01 - xs( 13) = 0.4486770799337524D-01 - xs( 14) = 0.5549136831091099D-01 - xs( 15) = 0.6615835962566961D-01 - xs( 16) = 0.7638156975737806D-01 - ws( 1) = 0.1126448277374615D-03 - ws( 2) = 0.2673953158654209D-03 - ws( 3) = 0.4384480961628386D-03 - ws( 4) = 0.6428447317335321D-03 - ws( 5) = 0.9043604136078392D-03 - ws( 6) = 0.1273827743258313D-02 - ws( 7) = 0.1836634665554979D-02 - ws( 8) = 0.2812566407626057D-02 - ws( 9) = 0.4716471140585940D-02 - ws( 10) = 0.7331139415596745D-02 - ws( 11) = 0.9208556938748723D-02 - ws( 12) = 0.1009397782835459D-01 - ws( 13) = 0.1052714758383467D-01 - ws( 14) = 0.1084677412377021D-01 - ws( 15) = 0.1096041238075683D-01 - ws( 16) = 0.8942291864893084D-02 - endif - - - if( iquad .eq. 91 ) then - idomain = 91 - rk0r = 0.3141592653590793D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 16 - err = 0.6694211637031528D-03 - ierq = 0 - xs( 1) = 0.4675315267958532D-04 - xs( 2) = 0.2489856447353218D-03 - xs( 3) = 0.6247352767331643D-03 - xs( 4) = 0.1200419826694257D-02 - xs( 5) = 0.2022921118841243D-02 - xs( 6) = 0.3177351750263361D-02 - xs( 7) = 0.4823739278701909D-02 - xs( 8) = 0.7267417175019448D-02 - xs( 9) = 0.1121362254938374D-01 - xs( 10) = 0.1748951328735184D-01 - xs( 11) = 0.2591911119598280D-01 - xs( 12) = 0.3557048217554890D-01 - xs( 13) = 0.4581559158320441D-01 - xs( 14) = 0.5637907071678088D-01 - xs( 15) = 0.6703512442150725D-01 - xs( 16) = 0.7730645681133885D-01 - ws( 1) = 0.1203402927978028D-03 - ws( 2) = 0.2860720058414471D-03 - ws( 3) = 0.4697268223208007D-03 - ws( 4) = 0.6892485531085065D-03 - ws( 5) = 0.9690764505091620D-03 - ws( 6) = 0.1366560473693967D-02 - ws( 7) = 0.1970876193392142D-02 - ws( 8) = 0.3035666498730186D-02 - ws( 9) = 0.5022224431017932D-02 - ws( 10) = 0.7493062582937166D-02 - ws( 11) = 0.9186429998596623D-02 - ws( 12) = 0.1001691545983550D-01 - ws( 13) = 0.1045940258023023D-01 - ws( 14) = 0.1081535500972722D-01 - ws( 15) = 0.1099630972268888D-01 - ws( 16) = 0.9036335131906822D-02 - endif - - - if( iquad .eq. 92 ) then - idomain = 92 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 18 - err = 0.2616711373588477D-03 - ierq = 0 - xs( 1) = 0.3586919092495998D-04 - xs( 2) = 0.1998715847477750D-03 - xs( 3) = 0.5252688517447180D-03 - xs( 4) = 0.1044149100989552D-02 - xs( 5) = 0.1799372830722605D-02 - xs( 6) = 0.2858121687285278D-02 - xs( 7) = 0.4337288169765867D-02 - xs( 8) = 0.6445247676153154D-02 - xs( 9) = 0.9595375701618367D-02 - xs( 10) = 0.1444835650894613D-01 - xs( 11) = 0.2136503602946363D-01 - xs( 12) = 0.2990017060356574D-01 - xs( 13) = 0.3937375798891657D-01 - xs( 14) = 0.4936680184649222D-01 - xs( 15) = 0.5967624428298207D-01 - xs( 16) = 0.7019256666650642D-01 - xs( 17) = 0.8075226872552212D-01 - xs( 18) = 0.9092435097400396D-01 - ws( 1) = 0.9352806858671421D-04 - ws( 2) = 0.2396108480645875D-03 - ws( 3) = 0.4163049617013905D-03 - ws( 4) = 0.6284366333997369D-03 - ws( 5) = 0.8927553690370092D-03 - ws( 6) = 0.1243611093180107D-02 - ws( 7) = 0.1747638625794555D-02 - ws( 8) = 0.2534153641151595D-02 - ws( 9) = 0.3886585039936601D-02 - ws( 10) = 0.5893700520521965D-02 - ws( 11) = 0.7849570201994244D-02 - ws( 12) = 0.9099502412437279D-02 - ws( 13) = 0.9781787547654961D-02 - ws( 14) = 0.1017895712391153D-01 - ws( 15) = 0.1045442350717552D-01 - ws( 16) = 0.1071299611020959D-01 - ws( 17) = 0.1089193589537176D-01 - ws( 18) = 0.9116759316668627D-02 - endif - - - if( iquad .eq. 93 ) then - idomain = 93 - rk0r = 0.3141592653590793D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 17 - err = 0.8051843458297642D-03 - ierq = 0 - xs( 1) = 0.6146842396445766D-04 - xs( 2) = 0.3283640033999346D-03 - xs( 3) = 0.8269312118268480D-03 - xs( 4) = 0.1592669907068606D-02 - xs( 5) = 0.2689214740933824D-02 - xs( 6) = 0.4230291464585368D-02 - xs( 7) = 0.6434671197050642D-02 - xs( 8) = 0.9716476037935785D-02 - xs( 9) = 0.1462389151812706D-01 - xs( 10) = 0.2141695150637797D-01 - xs( 11) = 0.2974463059179354D-01 - xs( 12) = 0.3903818766246294D-01 - xs( 13) = 0.4890617116081563D-01 - xs( 14) = 0.5913740125118613D-01 - xs( 15) = 0.6960322055143915D-01 - xs( 16) = 0.8012099009069493D-01 - xs( 17) = 0.9027721179054014D-01 - ws( 1) = 0.1583243370006280D-03 - ws( 2) = 0.3784676451316126D-03 - ws( 3) = 0.6243611136769222D-03 - ws( 4) = 0.9173870361845468D-03 - ws( 5) = 0.1293840429114066D-02 - ws( 6) = 0.1822779674311781D-02 - ws( 7) = 0.2655154071446138D-02 - ws( 8) = 0.4007712276864249D-02 - ws( 9) = 0.5859088421627750D-02 - ws( 10) = 0.7658281922794529D-02 - ws( 11) = 0.8895327194774975D-02 - ws( 12) = 0.9628386792857999D-02 - ws( 13) = 0.1007918653725331D-01 - ws( 14) = 0.1039783873534120D-01 - ws( 15) = 0.1069649376464973D-01 - ws( 16) = 0.1085012799111293D-01 - ws( 17) = 0.8901814742937334D-02 - endif - - - if( iquad .eq. 94 ) then - idomain = 94 - rk0r = 0.3141592653590793D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 17 - err = 0.5472393093021243D-03 - ierq = 0 - xs( 1) = 0.8267111978169590D-04 - xs( 2) = 0.4396831098891188D-03 - xs( 3) = 0.1102134348663499D-02 - xs( 4) = 0.2114235261426296D-02 - xs( 5) = 0.3559371362859162D-02 - xs( 6) = 0.5592928926754940D-02 - xs( 7) = 0.8474960187824778D-02 - xs( 8) = 0.1251399859894775D-01 - xs( 9) = 0.1792683589655212D-01 - xs( 10) = 0.2470558480102537D-01 - xs( 11) = 0.3262272658497063D-01 - xs( 12) = 0.4138049187565728D-01 - xs( 13) = 0.5072789757980065D-01 - xs( 14) = 0.6048136543712246D-01 - xs( 15) = 0.7047765756320798D-01 - xs( 16) = 0.8047208628106331D-01 - xs( 17) = 0.9003287117972875D-01 - ws( 1) = 0.2125509560769685D-03 - ws( 2) = 0.5047575953461732D-03 - ws( 3) = 0.8273056934698027D-03 - ws( 4) = 0.1210283865004340D-02 - ws( 5) = 0.1704892268332852D-02 - ws( 6) = 0.2406512241259168D-02 - ws( 7) = 0.3411358530963646D-02 - ws( 8) = 0.4705255320810728D-02 - ws( 9) = 0.6118905340579054D-02 - ws( 10) = 0.7397352340742570D-02 - ws( 11) = 0.8385109694396278D-02 - ws( 12) = 0.9089029206436425D-02 - ws( 13) = 0.9586397568712776D-02 - ws( 14) = 0.9966474191034691D-02 - ws( 15) = 0.1028014960109561D-01 - ws( 16) = 0.1011014427456368D-01 - ws( 17) = 0.7229847082573961D-02 - endif - - - if( iquad .eq. 95 ) then - idomain = 95 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 15 - err = 0.3606273496269221D-03 - ierq = 0 - xs( 1) = 0.1415211481189704D-03 - xs( 2) = 0.7611201033978185D-03 - xs( 3) = 0.1939230200351339D-02 - xs( 4) = 0.3791641933616380D-02 - xs( 5) = 0.6486742063295566D-02 - xs( 6) = 0.1021474074034496D-01 - xs( 7) = 0.1513360250311383D-01 - xs( 8) = 0.2129694661063751D-01 - xs( 9) = 0.2861078558710505D-01 - xs( 10) = 0.3687029798099020D-01 - xs( 11) = 0.4584256066262873D-01 - xs( 12) = 0.5531861358621386D-01 - xs( 13) = 0.6509514945539906D-01 - xs( 14) = 0.7489573366453257D-01 - xs( 15) = 0.8436932117433772D-01 - ws( 1) = 0.3649895595079242D-03 - ws( 2) = 0.8844805679907808D-03 - ws( 3) = 0.1490804421239619D-02 - ws( 4) = 0.2242411911203390D-02 - ws( 5) = 0.3180023819924237D-02 - ws( 6) = 0.4303061073994027D-02 - ws( 7) = 0.5543818711980926D-02 - ws( 8) = 0.6765411425558451D-02 - ws( 9) = 0.7824664908054738D-02 - ws( 10) = 0.8652046642557797D-02 - ws( 11) = 0.9263475039938943D-02 - ws( 12) = 0.9725480952286866D-02 - ws( 13) = 0.1002575170490710D-01 - ws( 14) = 0.9529686479979853D-02 - ws( 15) = 0.6198370795339862D-02 - endif - - - if( iquad .eq. 96 ) then - idomain = 96 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 15 - err = 0.7610723449596206D-03 - ierq = 0 - xs( 1) = 0.2037654218746554D-03 - xs( 2) = 0.1086587857614937D-02 - xs( 3) = 0.2726212678133693D-02 - xs( 4) = 0.5196551642678316D-02 - xs( 5) = 0.8571300984304126D-02 - xs( 6) = 0.1290135578967493D-01 - xs( 7) = 0.1819612551530146D-01 - xs( 8) = 0.2441556398014959D-01 - xs( 9) = 0.3147444875760895D-01 - xs( 10) = 0.3925769213330332D-01 - xs( 11) = 0.4763641734393540D-01 - xs( 12) = 0.5646706780978707D-01 - xs( 13) = 0.6556137145436074D-01 - xs( 14) = 0.7467590677314764D-01 - xs( 15) = 0.8358741649799632D-01 - ws( 1) = 0.5242324106871663D-03 - ws( 2) = 0.1249818710115723D-02 - ws( 3) = 0.2041817877610160D-02 - ws( 4) = 0.2911211670125943D-02 - ws( 5) = 0.3846499034490187D-02 - ws( 6) = 0.4814390528421376D-02 - ws( 7) = 0.5767381829979994D-02 - ws( 8) = 0.6655833728351705D-02 - ws( 9) = 0.7440850950053370D-02 - ws( 10) = 0.8104043977833273D-02 - ws( 11) = 0.8650714240019969D-02 - ws( 12) = 0.9079136040592472D-02 - ws( 13) = 0.9163803261805617D-02 - ws( 14) = 0.7982138599056185D-02 - ws( 15) = 0.4339899668387145D-02 - endif - - - if( iquad .eq. 97 ) then - idomain = 97 - rk0r = 0.3141592653590793D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 15 - err = 0.1452112617259723D-03 - ierq = 0 - xs( 1) = 0.1847098802117171D-03 - xs( 2) = 0.1013207133823042D-02 - xs( 3) = 0.2599784879777944D-02 - xs( 4) = 0.4999999293362250D-02 - xs( 5) = 0.8222387140830328D-02 - xs( 6) = 0.1224487729431001D-01 - xs( 7) = 0.1702749426854396D-01 - xs( 8) = 0.2252009220290383D-01 - xs( 9) = 0.2866683065709393D-01 - xs( 10) = 0.3540504383262099D-01 - xs( 11) = 0.4264703614572075D-01 - xs( 12) = 0.5024741890915284D-01 - xs( 13) = 0.5802016155476188D-01 - xs( 14) = 0.6581135805925424D-01 - xs( 15) = 0.8107286476653999D-01 - ws( 1) = 0.4797510432956625D-03 - ws( 2) = 0.1191282583142690D-02 - ws( 3) = 0.1989288101915823D-02 - ws( 4) = 0.2814030644353687D-02 - ws( 5) = 0.3626496204381777D-02 - ws( 6) = 0.4409580318545708D-02 - ws( 7) = 0.5151112354463588D-02 - ws( 8) = 0.5836315250074522D-02 - ws( 9) = 0.6456193363349250D-02 - ws( 10) = 0.7031158252096697D-02 - ws( 11) = 0.7600052336396225D-02 - ws( 12) = 0.7986743191534841D-02 - ws( 13) = 0.7348595776741816D-02 - ws( 14) = 0.4471498638312969D-02 - ws( 15) = -.2009262826808949D-02 - endif - - - if( iquad .eq. 98 ) then - idomain = 98 - rk0r = 0.3141592653590793D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 6 - err = 0.9986498392530998D-03 - ierq = 0 - xs( 1) = 0.2639867101917156D-02 - xs( 2) = 0.4700836114392896D-02 - xs( 3) = 0.1047387374020707D-01 - xs( 4) = 0.1723814050939249D-01 - xs( 5) = 0.2053637672798991D-01 - xs( 6) = 0.3364697321899977D-01 - ws( 1) = 0.7148290903276704D-02 - ws( 2) = 0.7243126742245561D-02 - ws( 3) = -.3474408982211670D-02 - ws( 4) = 0.3068865794323548D-02 - ws( 5) = 0.2931362669194879D-02 - ws( 6) = 0.2998449781989297D-02 - endif - - - if( iquad .eq. 99 ) then - idomain = 99 - rk0r = 0.3141592653590793D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.8069781777524005D-04 - ierq = 0 - xs( 1) = 0.1196897223774455D-01 - ws( 1) = 0.6908708147623518D-06 - endif - - - if( iquad .eq. 100 ) then - idomain = 100 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 19 - err = 0.7117437517203304D-03 - ierq = 0 - xs( 1) = 0.2133245903559331D-04 - xs( 2) = 0.1130873841521531D-03 - xs( 3) = 0.2808365134803058D-03 - xs( 4) = 0.5295994258048008D-03 - xs( 5) = 0.8681313386926406D-03 - xs( 6) = 0.1310223710354894D-02 - xs( 7) = 0.1876919127221975D-02 - xs( 8) = 0.2599110489536549D-02 - xs( 9) = 0.3525438253060076D-02 - xs( 10) = 0.4737337920268082D-02 - xs( 11) = 0.6367257304460596D-02 - xs( 12) = 0.8715458944683355D-02 - xs( 13) = 0.1241160001771566D-01 - xs( 14) = 0.1870502145434885D-01 - xs( 15) = 0.2860049021348575D-01 - xs( 16) = 0.4075965639234697D-01 - xs( 17) = 0.5348634713319254D-01 - xs( 18) = 0.6603667896947019D-01 - xs( 19) = 0.7783856093118889D-01 - ws( 1) = 0.5485525335152864D-04 - ws( 2) = 0.1291458000774701D-03 - ws( 3) = 0.2071673869997627D-03 - ws( 4) = 0.2917963824572628D-03 - ws( 5) = 0.3874720771643242D-03 - ws( 6) = 0.5001668147415078D-03 - ws( 7) = 0.6383367009604514D-03 - ws( 8) = 0.8138414174002624D-03 - ws( 9) = 0.1052635035287157D-02 - ws( 10) = 0.1391153427640000D-02 - ws( 11) = 0.1916517326537569D-02 - ws( 12) = 0.2879009120666992D-02 - ws( 13) = 0.4725028994849984D-02 - ws( 14) = 0.8101484778136497D-02 - ws( 15) = 0.1139594727365744D-01 - ws( 16) = 0.1264494890033371D-01 - ws( 17) = 0.1280911086724847D-01 - ws( 18) = 0.1245255803700279D-01 - ws( 19) = 0.9458326247346414D-02 - endif - - - if( iquad .eq. 101 ) then - idomain = 101 - rk0r = 0.6283185307180586D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 19 - err = 0.5752381071903054D-03 - ierq = 0 - xs( 1) = 0.2189025457767790D-04 - xs( 2) = 0.1160462851563196D-03 - xs( 3) = 0.2883222371414113D-03 - xs( 4) = 0.5440074443209571D-03 - xs( 5) = 0.8921452819260726D-03 - xs( 6) = 0.1346816779542793D-02 - xs( 7) = 0.1929566046460465D-02 - xs( 8) = 0.2671872330482466D-02 - xs( 9) = 0.3623532496993792D-02 - xs( 10) = 0.4866932512780325D-02 - xs( 11) = 0.6534306798054257D-02 - xs( 12) = 0.8926304641686231D-02 - xs( 13) = 0.1267601165460821D-01 - xs( 14) = 0.1901665409939802D-01 - xs( 15) = 0.2886649941882053D-01 - xs( 16) = 0.4092337302877692D-01 - xs( 17) = 0.5355453458938306D-01 - xs( 18) = 0.6601191564709553D-01 - xs( 19) = 0.7771103356392693D-01 - ws( 1) = 0.5627258607376526D-04 - ws( 2) = 0.1325706503635394D-03 - ws( 3) = 0.2128356688929054D-03 - ws( 4) = 0.3000255710007630D-03 - ws( 5) = 0.3985084497256077D-03 - ws( 6) = 0.5143875258784239D-03 - ws( 7) = 0.6563072253673348D-03 - ws( 8) = 0.8362787195763977D-03 - ws( 9) = 0.1081106080555447D-02 - ws( 10) = 0.1425500600888005D-02 - ws( 11) = 0.1957341606213427D-02 - ws( 12) = 0.2925871878730604D-02 - ws( 13) = 0.4785801333054513D-02 - ws( 14) = 0.8113501973846337D-02 - ws( 15) = 0.1130423283945353D-01 - ws( 16) = 0.1254231026233969D-01 - ws( 17) = 0.1270881427901337D-01 - ws( 18) = 0.1229106510409265D-01 - ws( 19) = 0.9152067936905598D-02 - endif - - - if( iquad .eq. 102 ) then - idomain = 102 - rk0r = 0.6283185307180586D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 21 - err = 0.1855458766372511D-03 - ierq = 0 - xs( 1) = 0.2157300840598000D-04 - xs( 2) = 0.1141665706466246D-03 - xs( 3) = 0.2832444981270993D-03 - xs( 4) = 0.5338016196899682D-03 - xs( 5) = 0.8741944649800572D-03 - xs( 6) = 0.1317245156876322D-02 - xs( 7) = 0.1881925952583565D-02 - xs( 8) = 0.2595902400103688D-02 - xs( 9) = 0.3499999205522688D-02 - xs( 10) = 0.4656291785759232D-02 - xs( 11) = 0.6164924954436863D-02 - xs( 12) = 0.8194431868204425D-02 - xs( 13) = 0.1108793446556811D-01 - xs( 14) = 0.1552333251564983D-01 - xs( 15) = 0.2253169474500197D-01 - xs( 16) = 0.3237702371819789D-01 - xs( 17) = 0.4389437902771435D-01 - xs( 18) = 0.5598577376614464D-01 - xs( 19) = 0.6815330961950321D-01 - xs( 20) = 0.8011431991095277D-01 - xs( 21) = 0.9140761754307149D-01 - ws( 1) = 0.5540604293548169D-04 - ws( 2) = 0.1302373871600938D-03 - ws( 3) = 0.2087262606979008D-03 - ws( 4) = 0.2937553314255760D-03 - ws( 5) = 0.3891356963972005D-03 - ws( 6) = 0.5001050453500527D-03 - ws( 7) = 0.6337972599485090D-03 - ws( 8) = 0.8008807944797524D-03 - ws( 9) = 0.1017300207041479D-02 - ws( 10) = 0.1311813265880619D-02 - ws( 11) = 0.1731476902215281D-02 - ws( 12) = 0.2382501387547143D-02 - ws( 13) = 0.3513007335052863D-02 - ws( 14) = 0.5550666929778140D-02 - ws( 15) = 0.8533669121699988D-02 - ws( 16) = 0.1091951755921539D-01 - ws( 17) = 0.1192911114007745D-01 - ws( 18) = 0.1219523652637277D-01 - ws( 19) = 0.1219951204915072D-01 - ws( 20) = 0.1179616242978687D-01 - ws( 21) = 0.8843388422008611D-02 - endif - - - if( iquad .eq. 103 ) then - idomain = 103 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 22 - err = 0.3494501695199361D-03 - ierq = 0 - xs( 1) = 0.2200053376605942D-04 - xs( 2) = 0.1170899406334828D-03 - xs( 3) = 0.2928807730916000D-03 - xs( 4) = 0.5570262867484227D-03 - xs( 5) = 0.9202372589009961D-03 - xs( 6) = 0.1397020928871893D-02 - xs( 7) = 0.2007504863156913D-02 - xs( 8) = 0.2780507002920124D-02 - xs( 9) = 0.3757994777272177D-02 - xs( 10) = 0.5002849802793227D-02 - xs( 11) = 0.6612692664347663D-02 - xs( 12) = 0.8751063876998097D-02 - xs( 13) = 0.1173365783427155D-01 - xs( 14) = 0.1615039987691111D-01 - xs( 15) = 0.2280849180577360D-01 - xs( 16) = 0.3193676777304334D-01 - xs( 17) = 0.4272188331267575D-01 - xs( 18) = 0.5425175845500634D-01 - xs( 19) = 0.6604766286753730D-01 - xs( 20) = 0.7790114036840254D-01 - xs( 21) = 0.8961904333003720D-01 - xs( 22) = 0.1007784635856428D+00 - ws( 1) = 0.5659065210828883D-04 - ws( 2) = 0.1344073120885042D-03 - ws( 3) = 0.2184447927880286D-03 - ws( 4) = 0.3116156228115974D-03 - ws( 5) = 0.4171907819825547D-03 - ws( 6) = 0.5396841713908117D-03 - ws( 7) = 0.6860191123545965D-03 - ws( 8) = 0.8668739343021203D-03 - ws( 9) = 0.1098331952310792D-02 - ws( 10) = 0.1407331994352484D-02 - ws( 11) = 0.1838014808529293D-02 - ws( 12) = 0.2489341587200259D-02 - ws( 13) = 0.3572466358157508D-02 - ws( 14) = 0.5411233422517835D-02 - ws( 15) = 0.7957520821259917D-02 - ws( 16) = 0.1013783993327617D-01 - ws( 17) = 0.1127290343680194D-01 - ws( 18) = 0.1171342064571301D-01 - ws( 19) = 0.1186912556816559D-01 - ws( 20) = 0.1193089068916350D-01 - ws( 21) = 0.1168708758353272D-01 - ws( 22) = 0.8923845850138659D-02 - endif - - - if( iquad .eq. 104 ) then - idomain = 104 - rk0r = 0.6283185307180586D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 23 - err = 0.4007786710722439D-03 - ierq = 0 - xs( 1) = 0.2944724103237234D-04 - xs( 2) = 0.1560694377264034D-03 - xs( 3) = 0.3876842845075689D-03 - xs( 4) = 0.7313925028529836D-03 - xs( 5) = 0.1198435185867176D-02 - xs( 6) = 0.1805648991141602D-02 - xs( 7) = 0.2577703621114153D-02 - xs( 8) = 0.3550303353835849D-02 - xs( 9) = 0.4775831675068609D-02 - xs( 10) = 0.6332916431578246D-02 - xs( 11) = 0.8347649803611802D-02 - xs( 12) = 0.1104192390101387D-01 - xs( 13) = 0.1480735632334236D-01 - xs( 14) = 0.2019704191783375D-01 - xs( 15) = 0.2761193387132332D-01 - xs( 16) = 0.3686224454920730D-01 - xs( 17) = 0.4730680843181882D-01 - xs( 18) = 0.5837358693118944D-01 - xs( 19) = 0.6973673978235898D-01 - xs( 20) = 0.8123591810774336D-01 - xs( 21) = 0.9276922969069605D-01 - xs( 22) = 0.1041548290660389D+00 - xs( 23) = 0.1149439774684323D+00 - ws( 1) = 0.7567679650652772D-04 - ws( 2) = 0.1782307194898656D-03 - ws( 3) = 0.2861691595185001D-03 - ws( 4) = 0.4030972867451311D-03 - ws( 5) = 0.5337559987723879D-03 - ws( 6) = 0.6847350358864226D-03 - ws( 7) = 0.8652319631603327D-03 - ws( 8) = 0.1088555692874227D-02 - ws( 9) = 0.1375308465795627D-02 - ws( 10) = 0.1759088985102893D-02 - ws( 11) = 0.2305965933631356D-02 - ws( 12) = 0.3147176374093560D-02 - ws( 13) = 0.4481230967897471D-02 - ws( 14) = 0.6374977225991895D-02 - ws( 15) = 0.8420127662865335D-02 - ws( 16) = 0.9962239945597225D-02 - ws( 17) = 0.1082948805492929D-01 - ws( 18) = 0.1125216758908135D-01 - ws( 19) = 0.1145396245961733D-01 - ws( 20) = 0.1156463049924803D-01 - ws( 21) = 0.1163214834358680D-01 - ws( 22) = 0.1132401034797298D-01 - ws( 23) = 0.8358314543797974D-02 - endif - - - if( iquad .eq. 105 ) then - idomain = 105 - rk0r = 0.6283185307180586D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 22 - err = 0.9245364614762780D-03 - ierq = 0 - xs( 1) = 0.4186619950760341D-04 - xs( 2) = 0.2220877774614570D-03 - xs( 3) = 0.5526058654711131D-03 - xs( 4) = 0.1045082854501124D-02 - xs( 5) = 0.1717952199635905D-02 - xs( 6) = 0.2599024442089710D-02 - xs( 7) = 0.3730952556317909D-02 - xs( 8) = 0.5178721749217774D-02 - xs( 9) = 0.7046107166466780D-02 - xs( 10) = 0.9512122288056904D-02 - xs( 11) = 0.1284847761961974D-01 - xs( 12) = 0.1737303001952988D-01 - xs( 13) = 0.2335016912032333D-01 - xs( 14) = 0.3084805006155295D-01 - xs( 15) = 0.3966261451324031D-01 - xs( 16) = 0.4943327663634439D-01 - xs( 17) = 0.5982149189409597D-01 - xs( 18) = 0.7058683863610120D-01 - xs( 19) = 0.8157154705980736D-01 - xs( 20) = 0.9264006797201338D-01 - xs( 21) = 0.1035762222997626D+00 - xs( 22) = 0.1140025614076550D+00 - ws( 1) = 0.1076106772564294D-03 - ws( 2) = 0.2539156056925821D-03 - ws( 3) = 0.4090410253557982D-03 - ws( 4) = 0.5789502662545345D-03 - ws( 5) = 0.7713266277107652D-03 - ws( 6) = 0.9978125781759371D-03 - ws( 7) = 0.1276672501446745D-02 - ws( 8) = 0.1635457810119619D-02 - ws( 9) = 0.2128688963865831D-02 - ws( 10) = 0.2849529460262694D-02 - ws( 11) = 0.3877745528200808D-02 - ws( 12) = 0.5218076026850971D-02 - ws( 13) = 0.6749343958527058D-02 - ws( 14) = 0.8209955390130162D-02 - ws( 15) = 0.9355499382420139D-02 - ws( 16) = 0.1012804495393762D-01 - ws( 17) = 0.1060846968825695D-01 - ws( 18) = 0.1090116154712786D-01 - ws( 19) = 0.1108530071382634D-01 - ws( 20) = 0.1115439173434889D-01 - ws( 21) = 0.1055269260763350D-01 - ws( 22) = 0.7097630677012805D-02 - endif - - - if( iquad .eq. 106 ) then - idomain = 106 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 19 - err = 0.1079638826002996D-03 - ierq = 0 - xs( 1) = 0.7012910098292185D-04 - xs( 2) = 0.3729164708556288D-03 - xs( 3) = 0.9319404390496619D-03 - xs( 4) = 0.1772919945882405D-02 - xs( 5) = 0.2938078678108139D-02 - xs( 6) = 0.4495532284695933D-02 - xs( 7) = 0.6554469017904347D-02 - xs( 8) = 0.9274402180432640D-02 - xs( 9) = 0.1285392007148829D-01 - xs( 10) = 0.1749752021674287D-01 - xs( 11) = 0.2335848227806030D-01 - xs( 12) = 0.3046773005898892D-01 - xs( 13) = 0.3870250645599319D-01 - xs( 14) = 0.4783561808959230D-01 - xs( 15) = 0.5761786792925602D-01 - xs( 16) = 0.6782122670938996D-01 - xs( 17) = 0.7821813029907393D-01 - xs( 18) = 0.8852585765646617D-01 - xs( 19) = 0.9841876095420123D-01 - ws( 1) = 0.1803179933270094D-03 - ws( 2) = 0.4276990814083784D-03 - ws( 3) = 0.6945684857394482D-03 - ws( 4) = 0.9943209965559254D-03 - ws( 5) = 0.1347098580237715D-02 - ws( 6) = 0.1785841104506532D-02 - ws( 7) = 0.2358839914090041D-02 - ws( 8) = 0.3114681459780388D-02 - ws( 9) = 0.4079398925141173D-02 - ws( 10) = 0.5234691448472191D-02 - ws( 11) = 0.6493017925164224D-02 - ws( 12) = 0.7703875561089308D-02 - ws( 13) = 0.8725762662884223D-02 - ws( 14) = 0.9497825982369567D-02 - ws( 15) = 0.1003361905821430D-01 - ws( 16) = 0.1035457392745431D-01 - ws( 17) = 0.1031640673164153D-01 - ws( 18) = 0.9129469948138085D-02 - ws( 19) = 0.5266744418827516D-02 - endif - - - if( iquad .eq. 107 ) then - idomain = 107 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 20 - err = 0.2794728683890945D-03 - ierq = 0 - xs( 1) = 0.1018389452260023D-03 - xs( 2) = 0.5408423146544483D-03 - xs( 3) = 0.1350208792995983D-02 - xs( 4) = 0.2568210728137127D-02 - xs( 5) = 0.4253362241241271D-02 - xs( 6) = 0.6483025782960585D-02 - xs( 7) = 0.9346224684168673D-02 - xs( 8) = 0.1293207137688913D-01 - xs( 9) = 0.1731706246868781D-01 - xs( 10) = 0.2255218923827692D-01 - xs( 11) = 0.2865112272265113D-01 - xs( 12) = 0.3558414974856555D-01 - xs( 13) = 0.4328206249255998D-01 - xs( 14) = 0.5164865065183510D-01 - xs( 15) = 0.6057489695633126D-01 - xs( 16) = 0.6994388000070506D-01 - xs( 17) = 0.7961126029476534D-01 - xs( 18) = 0.8936641718720829D-01 - xs( 19) = 0.9895304905536194D-01 - xs( 20) = 0.1168712070960723D+00 - ws( 1) = 0.2618328088952862D-03 - ws( 2) = 0.6194551772627266D-03 - ws( 3) = 0.1005647894388486D-02 - ws( 4) = 0.1440111916407468D-02 - ws( 5) = 0.1943184759692507D-02 - ws( 6) = 0.2531155131157616D-02 - ws( 7) = 0.3210284052506692D-02 - ws( 8) = 0.3974321842735796D-02 - ws( 9) = 0.4804259142386689D-02 - ws( 10) = 0.5668240487039459D-02 - ws( 11) = 0.6524493602500802D-02 - ws( 12) = 0.7329807834233852D-02 - ws( 13) = 0.8049957488073666D-02 - ws( 14) = 0.8666288384820003D-02 - ws( 15) = 0.9176730749332753D-02 - ws( 16) = 0.9586569699982382D-02 - ws( 17) = 0.9809862600218915D-02 - ws( 18) = 0.9239003583486172D-02 - ws( 19) = 0.6211635365451834D-02 - ws( 20) = -.3799955370327780D-02 - endif - - - if( iquad .eq. 108 ) then - idomain = 108 - rk0r = 0.6283185307180586D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 17 - err = 0.8694687646845638D-03 - ierq = 0 - xs( 1) = 0.1775829734929590D-03 - xs( 2) = 0.9293378024594666D-03 - xs( 3) = 0.2287426215441521D-02 - xs( 4) = 0.4268640176964993D-02 - xs( 5) = 0.6894638766565761D-02 - xs( 6) = 0.1018474261207344D-01 - xs( 7) = 0.1414808527457849D-01 - xs( 8) = 0.1878079057106154D-01 - xs( 9) = 0.2406633159623889D-01 - xs( 10) = 0.2997579948603151D-01 - xs( 11) = 0.3646581236354304D-01 - xs( 12) = 0.4347231117332442D-01 - xs( 13) = 0.5090104174852978D-01 - xs( 14) = 0.5862639798571631D-01 - xs( 15) = 0.6651150300455617D-01 - xs( 16) = 0.7443755360423386D-01 - xs( 17) = 0.9006263354903125D-01 - ws( 1) = 0.4520348645261929D-03 - ws( 2) = 0.1052837323271644D-02 - ws( 3) = 0.1664238525752339D-02 - ws( 4) = 0.2298505731872260D-02 - ws( 5) = 0.2953858365218558D-02 - ws( 6) = 0.3622633484630265D-02 - ws( 7) = 0.4294744581353842D-02 - ws( 8) = 0.4957618458037216D-02 - ws( 9) = 0.5596527880069322D-02 - ws( 10) = 0.6198109043437767D-02 - ws( 11) = 0.6752213113554441D-02 - ws( 12) = 0.7234385121172381D-02 - ws( 13) = 0.7528571489437631D-02 - ws( 14) = 0.7276739062943904D-02 - ws( 15) = 0.5860960543436364D-02 - ws( 16) = 0.3019242583277843D-02 - ws( 17) = -.9151769477588921D-03 - endif - - - if( iquad .eq. 109 ) then - idomain = 109 - rk0r = 0.6283185307180586D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 7 - err = 0.9092740958606760D-03 - ierq = 0 - xs( 1) = 0.2384206530116218D-02 - xs( 2) = 0.3990572708637029D-02 - xs( 3) = 0.6062558962008757D-02 - xs( 4) = 0.1467634719940029D-01 - xs( 5) = 0.2179652727526413D-01 - xs( 6) = 0.2830434441406070D-01 - xs( 7) = 0.5011778799849477D-01 - ws( 1) = 0.5592324855310778D-02 - ws( 2) = 0.5823676218990224D-02 - ws( 3) = 0.2253116641688956D-02 - ws( 4) = 0.3305000160044541D-03 - ws( 5) = -.2313530879872308D-03 - ws( 6) = 0.9600050505122074D-04 - ws( 7) = -.1232056094039494D-03 - endif - - - if( iquad .eq. 110 ) then - idomain = 110 - rk0r = 0.6283185307180586D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.8069922568362531D-04 - ierq = 0 - xs( 1) = 0.2076188546756314D-01 - ws( 1) = 0.3099588328473123D-06 - endif - - - if( iquad .eq. 111 ) then - idomain = 111 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 24 - err = 0.6208314287913580D-03 - ierq = 0 - xs( 1) = 0.1294518092477695D-04 - xs( 2) = 0.6838198791012408D-04 - xs( 3) = 0.1688505692069578D-03 - xs( 4) = 0.3158337741210537D-03 - xs( 5) = 0.5118396417398959D-03 - xs( 6) = 0.7606638406905513D-03 - xs( 7) = 0.1067833893426832D-02 - xs( 8) = 0.1441152710467479D-02 - xs( 9) = 0.1891251901246066D-02 - xs( 10) = 0.2432839528681316D-02 - xs( 11) = 0.3085905189990327D-02 - xs( 12) = 0.3878454190141418D-02 - xs( 13) = 0.4851385120841217D-02 - xs( 14) = 0.6064214429547351D-02 - xs( 15) = 0.7612866934145038D-02 - xs( 16) = 0.9665853797633977D-02 - xs( 17) = 0.1255572093086663D-01 - xs( 18) = 0.1692590737921812D-01 - xs( 19) = 0.2403153097611031D-01 - xs( 20) = 0.3495738664987713D-01 - xs( 21) = 0.4857271332594471D-01 - xs( 22) = 0.6297968593105946D-01 - xs( 23) = 0.7719289658879842D-01 - xs( 24) = 0.9048037260910190D-01 - ws( 1) = 0.3324861806406794D-04 - ws( 2) = 0.7777253081425990D-04 - ws( 3) = 0.1234039680875593D-03 - ws( 4) = 0.1709829402495155D-03 - ws( 5) = 0.2216537448756695D-03 - ws( 6) = 0.2768931170427188D-03 - ws( 7) = 0.3387369454046336D-03 - ws( 8) = 0.4096542066195259D-03 - ws( 9) = 0.4929644641677715D-03 - ws( 10) = 0.5934927672575325D-03 - ws( 11) = 0.7171576924905008D-03 - ws( 12) = 0.8747239682871783D-03 - ws( 13) = 0.1080637163065414D-02 - ws( 14) = 0.1360720180331077D-02 - ws( 15) = 0.1762668651822306D-02 - ws( 16) = 0.2397435175412826D-02 - ws( 17) = 0.3481916130517454D-02 - ws( 18) = 0.5473258466704954D-02 - ws( 19) = 0.8979863154554308D-02 - ws( 20) = 0.1263588853329485D-01 - ws( 21) = 0.1425384032193890D-01 - ws( 22) = 0.1445270345271014D-01 - ws( 23) = 0.1393335923310571D-01 - ws( 24) = 0.1054770051111872D-01 - endif - - - if( iquad .eq. 112 ) then - idomain = 112 - rk0r = 0.9424777960770379D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 22 - err = 0.9826542838767926D-03 - ierq = 0 - xs( 1) = 0.1392170833812616D-04 - xs( 2) = 0.7348836534490063D-04 - xs( 3) = 0.1812444247167958D-03 - xs( 4) = 0.3386766152598579D-03 - xs( 5) = 0.5485501318602670D-03 - xs( 6) = 0.8147582872970163D-03 - xs( 7) = 0.1143423344190166D-02 - xs( 8) = 0.1543554397880910D-02 - xs( 9) = 0.2026997033561771D-02 - xs( 10) = 0.2610750293330735D-02 - xs( 11) = 0.3318280675982887D-02 - xs( 12) = 0.4182933660651429D-02 - xs( 13) = 0.5258666067707851D-02 - xs( 14) = 0.6624677407227378D-02 - xs( 15) = 0.8446574379562428D-02 - xs( 16) = 0.1108580778336280D-01 - xs( 17) = 0.1523944443843884D-01 - xs( 18) = 0.2242432760300316D-01 - xs( 19) = 0.3404012053598595D-01 - xs( 20) = 0.4846036727243572D-01 - xs( 21) = 0.6329487248617517D-01 - xs( 22) = 0.7719811087222710D-01 - ws( 1) = 0.3572285746567145D-04 - ws( 2) = 0.8350447668250271D-04 - ws( 3) = 0.1322557210859640D-03 - ws( 4) = 0.1831455254067534D-03 - ws( 5) = 0.2372877178482055D-03 - ws( 6) = 0.2961165915768724D-03 - ws( 7) = 0.3626066682718671D-03 - ws( 8) = 0.4395319624352107D-03 - ws( 9) = 0.5300794390019800D-03 - ws( 10) = 0.6412568039940372D-03 - ws( 11) = 0.7788817168707673D-03 - ws( 12) = 0.9594915161090250D-03 - ws( 13) = 0.1204023264780161D-02 - ws( 14) = 0.1553056218794371D-02 - ws( 15) = 0.2150348696455416D-02 - ws( 16) = 0.3232861524913257D-02 - ws( 17) = 0.5329822689888608D-02 - ws( 18) = 0.9365391807890531D-02 - ws( 19) = 0.1351342844043650D-01 - ws( 20) = 0.1490090043070529D-01 - ws( 21) = 0.1436526776195769D-01 - ws( 22) = 0.1058631263044330D-01 - endif - - - if( iquad .eq. 113 ) then - idomain = 113 - rk0r = 0.9424777960770379D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 26 - err = 0.4319427706091561D-03 - ierq = 0 - xs( 1) = 0.1354353427142610D-04 - xs( 2) = 0.7157321013547417D-04 - xs( 3) = 0.1768794165001829D-03 - xs( 4) = 0.3311769554393002D-03 - xs( 5) = 0.5371894490427769D-03 - xs( 6) = 0.7989155756168277D-03 - xs( 7) = 0.1121995106082908D-02 - xs( 8) = 0.1514173808127583D-02 - xs( 9) = 0.1985934230051232D-02 - xs( 10) = 0.2551491060257482D-02 - xs( 11) = 0.3230181052127428D-02 - xs( 12) = 0.4048589270747647D-02 - xs( 13) = 0.5044327346882186D-02 - xs( 14) = 0.6272175006739778D-02 - xs( 15) = 0.7815165567671313D-02 - xs( 16) = 0.9808749799485081D-02 - xs( 17) = 0.1249565191549364D-01 - xs( 18) = 0.1632606229810534D-01 - xs( 19) = 0.2212037919948284D-01 - xs( 20) = 0.3092345156974069D-01 - xs( 21) = 0.4269696739252263D-01 - xs( 22) = 0.5605318353685683D-01 - xs( 23) = 0.6984921505379002D-01 - xs( 24) = 0.8359119917752948D-01 - xs( 25) = 0.9701793507820447D-01 - xs( 26) = 0.1096551943982457D+00 - ws( 1) = 0.3477985389654155D-04 - ws( 2) = 0.8145177958151051D-04 - ws( 3) = 0.1294399904715303D-03 - ws( 4) = 0.1796068101557334D-03 - ws( 5) = 0.2330809589460573D-03 - ws( 6) = 0.2913024620252462D-03 - ws( 7) = 0.3561372588179186D-03 - ws( 8) = 0.4299465412249391D-03 - ws( 9) = 0.5159186440332261D-03 - ws( 10) = 0.6183855189689690D-03 - ws( 11) = 0.7433656524013655D-03 - ws( 12) = 0.8996191657799674D-03 - ws( 13) = 0.1100827921683284D-02 - ws( 14) = 0.1368332788692610D-02 - ws( 15) = 0.1739403274929197D-02 - ws( 16) = 0.2286496478784387D-02 - ws( 17) = 0.3159724781534300D-02 - ws( 18) = 0.4635436597289480D-02 - ws( 19) = 0.7155826144973650D-02 - ws( 20) = 0.1045512117582496D-01 - ws( 21) = 0.1281900663782102D-01 - ws( 22) = 0.1370233730919625D-01 - ws( 23) = 0.1382473759380368D-01 - ws( 24) = 0.1367699088333471D-01 - ws( 25) = 0.1313547725541245D-01 - ws( 26) = 0.1009032131876250D-01 - endif - - - if( iquad .eq. 114 ) then - idomain = 114 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 25 - err = 0.8370730894611702D-03 - ierq = 0 - xs( 1) = 0.1546360074410405D-04 - xs( 2) = 0.8174400673241570D-04 - xs( 3) = 0.2021103360610816D-03 - xs( 4) = 0.3786469790078318D-03 - xs( 5) = 0.6146243862805743D-03 - xs( 6) = 0.9147648549696578D-03 - xs( 7) = 0.1285656285418804D-02 - xs( 8) = 0.1736332694441739D-02 - xs( 9) = 0.2279032462056038D-02 - xs( 10) = 0.2930424130024300D-02 - xs( 11) = 0.3713281071091279D-02 - xs( 12) = 0.4659438957597134D-02 - xs( 13) = 0.5814193932975985D-02 - xs( 14) = 0.7245828078996516D-02 - xs( 15) = 0.9064931803055851D-02 - xs( 16) = 0.1146599749176599D-01 - xs( 17) = 0.1482426211267884D-01 - xs( 18) = 0.1983769061456758D-01 - xs( 19) = 0.2754470025763344D-01 - xs( 20) = 0.3833016390228022D-01 - xs( 21) = 0.5111872083312446D-01 - xs( 22) = 0.6462528501288181D-01 - xs( 23) = 0.7817442555981524D-01 - xs( 24) = 0.9140594884913972D-01 - xs( 25) = 0.1038152729396346D+00 - ws( 1) = 0.3971764228450644D-04 - ws( 2) = 0.9305797875876525D-04 - ws( 3) = 0.1480145067699643D-03 - ws( 4) = 0.2056013437573457D-03 - ws( 5) = 0.2671301329946460D-03 - ws( 6) = 0.3342360263433712D-03 - ws( 7) = 0.4090406026346319D-03 - ws( 8) = 0.4943307632808555D-03 - ws( 9) = 0.5938153510105418D-03 - ws( 10) = 0.7127108395980160D-03 - ws( 11) = 0.8582269221633616D-03 - ws( 12) = 0.1041518437902551D-02 - ws( 13) = 0.1278966613731556D-02 - ws( 14) = 0.1602348728975751D-02 - ws( 15) = 0.2066244693633209D-02 - ws( 16) = 0.2796814614807128D-02 - ws( 17) = 0.4031716292263419D-02 - ws( 18) = 0.6186790543092851D-02 - ws( 19) = 0.9316037144696228D-02 - ws( 20) = 0.1204072766362116D-01 - ws( 21) = 0.1331157867727056D-01 - ws( 22) = 0.1360730141430998D-01 - ws( 23) = 0.1347462039189184D-01 - ws( 24) = 0.1274495448420608D-01 - ws( 25) = 0.9085018062248630D-02 - endif - - - if( iquad .eq. 115 ) then - idomain = 115 - rk0r = 0.9424777960770379D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 26 - err = 0.9991638732966767D-03 - ierq = 0 - xs( 1) = 0.1848629776922338D-04 - xs( 2) = 0.9774442985215126D-04 - xs( 3) = 0.2417332854929159D-03 - xs( 4) = 0.4530617871053845D-03 - xs( 5) = 0.7357904216724357D-03 - xs( 6) = 0.1095728378005537D-02 - xs( 7) = 0.1540874006711583D-02 - xs( 8) = 0.2082081806163903D-02 - xs( 9) = 0.2733858736436957D-02 - xs( 10) = 0.3515794116244957D-02 - xs( 11) = 0.4454818735187752D-02 - xs( 12) = 0.5587926157367851D-02 - xs( 13) = 0.6968142651464546D-02 - xs( 14) = 0.8676142254702968D-02 - xs( 15) = 0.1084152080096589D-01 - xs( 16) = 0.1368862692550198D-01 - xs( 17) = 0.1761557482763924D-01 - xs( 18) = 0.2331694958261616D-01 - xs( 19) = 0.3151672182830600D-01 - xs( 20) = 0.4217521448441262D-01 - xs( 21) = 0.5440144189897142D-01 - xs( 22) = 0.6730487951573610D-01 - xs( 23) = 0.8039371886070562D-01 - xs( 24) = 0.9343966561148187D-01 - xs( 25) = 0.1062408197905680D+00 - xs( 26) = 0.1183384619838997D+00 - ws( 1) = 0.4748281526420580D-04 - ws( 2) = 0.1112939873735406D-03 - ws( 3) = 0.1771126502044106D-03 - ws( 4) = 0.2462157155030153D-03 - ws( 5) = 0.3202010172311062D-03 - ws( 6) = 0.4009947863018894D-03 - ws( 7) = 0.4910951672319761D-03 - ws( 8) = 0.5937156077709487D-03 - ws( 9) = 0.7130609738705688D-03 - ws( 10) = 0.8552579682594002D-03 - ws( 11) = 0.1028868920801127D-02 - ws( 12) = 0.1245966810487926D-02 - ws( 13) = 0.1527654016552193D-02 - ws( 14) = 0.1909065439123740D-02 - ws( 15) = 0.2458182633927219D-02 - ws( 16) = 0.3299034724275233D-02 - ws( 17) = 0.4673823764227073D-02 - ws( 18) = 0.6866998427475131D-02 - ws( 19) = 0.9529114319364101D-02 - ws( 20) = 0.1161890176278436D-01 - ws( 21) = 0.1267963379035402D-01 - ws( 22) = 0.1304978053532601D-01 - ws( 23) = 0.1310362468756097D-01 - ws( 24) = 0.1301511740879377D-01 - ws( 25) = 0.1255779896302114D-01 - ws( 26) = 0.9475696190106816D-02 - endif - - - if( iquad .eq. 116 ) then - idomain = 116 - rk0r = 0.9424777960770379D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 25 - err = 0.7847777331151261D-03 - ierq = 0 - xs( 1) = 0.2476137583779124D-04 - xs( 2) = 0.1308827938019259D-03 - xs( 3) = 0.3235799826291253D-03 - xs( 4) = 0.6064088875980907D-03 - xs( 5) = 0.9851936542166816D-03 - xs( 6) = 0.1468482147053254D-02 - xs( 7) = 0.2068364993054103D-02 - xs( 8) = 0.2801276877774241D-02 - xs( 9) = 0.3689006214822554D-02 - xs( 10) = 0.4762758103098556D-02 - xs( 11) = 0.6066783470622129D-02 - xs( 12) = 0.7664317624785839D-02 - xs( 13) = 0.9657689881357514D-02 - xs( 14) = 0.1221982660146246D-01 - xs( 15) = 0.1562727741670816D-01 - xs( 16) = 0.2025154426780578D-01 - xs( 17) = 0.2647712881043884D-01 - xs( 18) = 0.3452955156091236D-01 - xs( 19) = 0.4427856971990176D-01 - xs( 20) = 0.5527161033579334D-01 - xs( 21) = 0.6700116449364024D-01 - xs( 22) = 0.7908186377451891D-01 - xs( 23) = 0.9123205596205995D-01 - xs( 24) = 0.1031494067728681D+00 - xs( 25) = 0.1144388627535592D+00 - ws( 1) = 0.6359525191798562D-04 - ws( 2) = 0.1489747867321221D-03 - ws( 3) = 0.2369998801765666D-03 - ws( 4) = 0.3296263620807991D-03 - ws( 5) = 0.4293540746974700D-03 - ws( 6) = 0.5392172508560896D-03 - ws( 7) = 0.6632839024628760D-03 - ws( 8) = 0.8060872383615846D-03 - ws( 9) = 0.9745056090448095D-03 - ws( 10) = 0.1180327319188517D-02 - ws( 11) = 0.1437888529037128D-02 - ws( 12) = 0.1773728567321089D-02 - ws( 13) = 0.2241138967925398D-02 - ws( 14) = 0.2929310854317602D-02 - ws( 15) = 0.3948849458036057D-02 - ws( 16) = 0.5366635936394012D-02 - ws( 17) = 0.7126303014365739D-02 - ws( 18) = 0.8956367845694587D-02 - ws( 19) = 0.1046045588124129D-01 - ws( 20) = 0.1143759715634977D-01 - ws( 21) = 0.1195755931534862D-01 - ws( 22) = 0.1215855239300998D-01 - ws( 23) = 0.1202324640964154D-01 - ws( 24) = 0.1086977960941391D-01 - ws( 25) = 0.6671377985609981D-02 - endif - - - if( iquad .eq. 117 ) then - idomain = 117 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 22 - err = 0.2801910467888066D-03 - ierq = 0 - xs( 1) = 0.4379417265835836D-04 - xs( 2) = 0.2318243648233268D-03 - xs( 3) = 0.5747330099988624D-03 - xs( 4) = 0.1081937242769310D-02 - xs( 5) = 0.1768818347223094D-02 - xs( 6) = 0.2656429178593697D-02 - xs( 7) = 0.3772434037925677D-02 - xs( 8) = 0.5163237437907261D-02 - xs( 9) = 0.6916622884663290D-02 - xs( 10) = 0.9167537549413773D-02 - xs( 11) = 0.1208343529085902D-01 - xs( 12) = 0.1585876788265624D-01 - xs( 13) = 0.2071055270754216D-01 - xs( 14) = 0.2684226268438946D-01 - xs( 15) = 0.3436347368363488D-01 - xs( 16) = 0.4320829939581308D-01 - xs( 17) = 0.5313730622444165D-01 - xs( 18) = 0.6383169501019691D-01 - xs( 19) = 0.7498166013823145D-01 - xs( 20) = 0.8629319188762793D-01 - xs( 21) = 0.9743020030680910D-01 - xs( 22) = 0.1080310223931960D+00 - ws( 1) = 0.1125208428697777D-03 - ws( 2) = 0.2643414540502917D-03 - ws( 3) = 0.4230103409800635D-03 - ws( 4) = 0.5939641547013128D-03 - ws( 5) = 0.7833201407849057D-03 - ws( 6) = 0.9963305048223293D-03 - ws( 7) = 0.1242959080620640D-02 - ws( 8) = 0.1553175176378791D-02 - ws( 9) = 0.1976475371682114D-02 - ws( 10) = 0.2553331862585708D-02 - ws( 11) = 0.3310886047165942D-02 - ws( 12) = 0.4276548851677772D-02 - ws( 13) = 0.5462392681497300D-02 - ws( 14) = 0.6820890122397927D-02 - ws( 15) = 0.8210421555021285D-02 - ws( 16) = 0.9437089574685432D-02 - ws( 17) = 0.1036597252256913D-01 - ws( 18) = 0.1097339560091846D-01 - ws( 19) = 0.1127904105071971D-01 - ws( 20) = 0.1113629860543092D-01 - ws( 21) = 0.9717906202810963D-02 - ws( 22) = 0.5474812846569916D-02 - endif - - - if( iquad .eq. 118 ) then - idomain = 118 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 25 - err = 0.4096956304759785D-03 - ierq = 0 - xs( 1) = 0.6389759340100910D-04 - xs( 2) = 0.3383523361393397D-03 - xs( 3) = 0.8390105641105423D-03 - xs( 4) = 0.1578588893395541D-02 - xs( 5) = 0.2578614367437542D-02 - xs( 6) = 0.3873726428001204D-02 - xs( 7) = 0.5514024319089278D-02 - xs( 8) = 0.7563587599469202D-02 - xs( 9) = 0.1009689727872108D-01 - xs( 10) = 0.1319524337354785D-01 - xs( 11) = 0.1694265979052492D-01 - xs( 12) = 0.2141939308649445D-01 - xs( 13) = 0.2669156494625871D-01 - xs( 14) = 0.3279814486867696D-01 - xs( 15) = 0.3973956762387157D-01 - xs( 16) = 0.4747376869837717D-01 - xs( 17) = 0.5592262215178492D-01 - xs( 18) = 0.6498595671917293D-01 - xs( 19) = 0.7455645333707871D-01 - xs( 20) = 0.8452957986170109D-01 - xs( 21) = 0.9480460522148794D-01 - xs( 22) = 0.1052701183677144D+00 - xs( 23) = 0.1157684620965399D+00 - xs( 24) = 0.1260776980165802D+00 - xs( 25) = 0.1359754898086533D+00 - ws( 1) = 0.1641717259720711D-03 - ws( 2) = 0.3859723717713352D-03 - ws( 3) = 0.6174070094741219D-03 - ws( 4) = 0.8652587802490007D-03 - ws( 5) = 0.1140521601268765D-02 - ws( 6) = 0.1458085475454304D-02 - ws( 7) = 0.1833258975658861D-02 - ws( 8) = 0.2278341690424655D-02 - ws( 9) = 0.2801890462113337D-02 - ws( 10) = 0.3408915330507487D-02 - ws( 11) = 0.4099470795075049D-02 - ws( 12) = 0.4865248549341581D-02 - ws( 13) = 0.5685796662266051D-02 - ws( 14) = 0.6527504395057880D-02 - ws( 15) = 0.7348200109532760D-02 - ws( 16) = 0.8106909466775638D-02 - ws( 17) = 0.8773843703718729D-02 - ws( 18) = 0.9334890559824964D-02 - ws( 19) = 0.9789226038669576D-02 - ws( 20) = 0.1014318833050996D-01 - ws( 21) = 0.1040141362143152D-01 - ws( 22) = 0.1052582194699368D-01 - ws( 23) = 0.1022863478282119D-01 - ws( 24) = 0.8545780905044808D-02 - ws( 25) = 0.4396039482148731D-02 - endif - - - if( iquad .eq. 119 ) then - idomain = 119 - rk0r = 0.9424777960770379D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 22 - err = 0.4039854165271934D-03 - ierq = 0 - xs( 1) = 0.1059715492395516D-03 - xs( 2) = 0.5629321061610132D-03 - xs( 3) = 0.1402537262539104D-02 - xs( 4) = 0.2647829609134918D-02 - xs( 5) = 0.4326604786503920D-02 - xs( 6) = 0.6471386216985789D-02 - xs( 7) = 0.9116499951069473D-02 - xs( 8) = 0.1229418396136433D-01 - xs( 9) = 0.1603172458497586D-01 - xs( 10) = 0.2034962025787910D-01 - xs( 11) = 0.2526001846995926D-01 - xs( 12) = 0.3076523160781737D-01 - xs( 13) = 0.3685640048658524D-01 - xs( 14) = 0.4351232298011858D-01 - xs( 15) = 0.5069770484448737D-01 - xs( 16) = 0.5835891269517482D-01 - xs( 17) = 0.6641599837143776D-01 - xs( 18) = 0.7475773483727990D-01 - xs( 19) = 0.8325507451519282D-01 - xs( 20) = 0.9178913131076334D-01 - xs( 21) = 0.1168097616623816D+00 - xs( 22) = 0.1324829447009528D+00 - ws( 1) = 0.2724776861553093D-03 - ws( 2) = 0.6449755464724774D-03 - ws( 3) = 0.1038052253242262D-02 - ws( 4) = 0.1456983444302120D-02 - ws( 5) = 0.1906161743277061D-02 - ws( 6) = 0.2389146603352127D-02 - ws( 7) = 0.2906158838378722D-02 - ws( 8) = 0.3453346468889366D-02 - ws( 9) = 0.4024471969884720D-02 - ws( 10) = 0.4612051639584070D-02 - ws( 11) = 0.5207203674411427D-02 - ws( 12) = 0.5799063850947061D-02 - ws( 13) = 0.6374865926367023D-02 - ws( 14) = 0.6920651540287426D-02 - ws( 15) = 0.7419405023902611D-02 - ws( 16) = 0.7833329630702089D-02 - ws( 17) = 0.8037060115219249D-02 - ws( 18) = 0.7676272235474703D-02 - ws( 19) = 0.6120957709383518D-02 - ws( 20) = 0.3070389957674793D-02 - ws( 21) = 0.2336362075383498D-02 - ws( 22) = -.4316408671260437D-02 - endif - - - if( iquad .eq. 120 ) then - idomain = 120 - rk0r = 0.9424777960770379D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 13 - err = 0.5330208717983231D-03 - ierq = 0 - xs( 1) = 0.1662122539751672D-02 - xs( 2) = 0.3198917253916884D-02 - xs( 3) = 0.5217984410949473D-02 - xs( 4) = 0.7703814092987648D-02 - xs( 5) = 0.1061098993479105D-01 - xs( 6) = 0.1390149754662533D-01 - xs( 7) = 0.1755667371241575D-01 - xs( 8) = 0.2590962358816203D-01 - xs( 9) = 0.3553235010475205D-01 - xs( 10) = 0.4074710543971922D-01 - xs( 11) = 0.5176773194588027D-01 - xs( 12) = 0.6916242537444099D-01 - xs( 13) = 0.8682524265613271D-01 - ws( 1) = 0.8857078524292019D-03 - ws( 2) = 0.2241948984974118D-02 - ws( 3) = 0.3420864768468780D-02 - ws( 4) = 0.4165201524054090D-02 - ws( 5) = 0.4195572718574876D-02 - ws( 6) = 0.3231569935747719D-02 - ws( 7) = 0.1539264330652730D-02 - ws( 8) = -.5314579438177153D-03 - ws( 9) = 0.7195617643415786D-03 - ws( 10) = 0.6850228012226837D-03 - ws( 11) = -.3160488037617894D-03 - ws( 12) = -.3151527608843427D-03 - ws( 13) = -.5032053675506565D-03 - endif - - - if( iquad .eq. 121 ) then - idomain = 121 - rk0r = 0.9424777960770379D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 1 - err = 0.8069951688711912D-04 - ierq = 0 - xs( 1) = 0.3660122906487372D-01 - ws( 1) = 0.7825900051558866D-07 - endif - - - - return - end -c -c -c -c -c - - subroutine hwts3p1(iquad,xs,ws,n) - implicit real *8 (a-h,o-z) - dimension xs(*), ws(*) -c -c 3 digit exponential representation tables for -c exp(ima*rk*sqrt(u^2+v^2)/sqrt(u^2+v^2) - -c#include "../fort.52" - - if( iquad .eq. 1 ) then - idomain = 1 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.9582321516053323D-05 - ierq = 0 - xs( 1) = 0.6348899148734924D-03 - xs( 2) = 0.3203468324366171D-02 - xs( 3) = 0.7413989188275222D-02 - xs( 4) = 0.1289613738867558D-01 - xs( 5) = 0.1936874820833228D-01 - xs( 6) = 0.2662269456002948D-01 - xs( 7) = 0.3450197459044997D-01 - xs( 8) = 0.4289148735326968D-01 - xs( 9) = 0.5170762233021504D-01 - xs( 10) = 0.6089068460993439D-01 - xs( 11) = 0.7039880226354824D-01 - xs( 12) = 0.8020236261846159D-01 - xs( 13) = 0.9027273768052842D-01 - xs( 14) = 0.1004819371840088D+00 - ws( 1) = 0.1610802292328519D-02 - ws( 2) = 0.3458098988522113D-02 - ws( 3) = 0.4900475622568064D-02 - ws( 4) = 0.6017457719196722D-02 - ws( 5) = 0.6893254815620337D-02 - ws( 6) = 0.7588942668107244D-02 - ws( 7) = 0.8150907162171145D-02 - ws( 8) = 0.8615195288146783D-02 - ws( 9) = 0.9009715417063885D-02 - ws( 10) = 0.9356782432164522D-02 - ws( 11) = 0.9677171961654026D-02 - ws( 12) = 0.1000101684389079D-01 - ws( 13) = 0.1042172764916054D-01 - ws( 14) = 0.1158365101631712D-01 - endif - - - if( iquad .eq. 2 ) then - idomain = 2 - rk0r = 0.1000010000000000D-11 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.9348575046472888D-05 - ierq = 0 - xs( 1) = 0.6355439806300355D-03 - xs( 2) = 0.3206081995576839D-02 - xs( 3) = 0.7418805212766845D-02 - xs( 4) = 0.1290339941764155D-01 - xs( 5) = 0.1937852118257171D-01 - xs( 6) = 0.2663449657991387D-01 - xs( 7) = 0.3451491284407957D-01 - xs( 8) = 0.4290454777166605D-01 - xs( 9) = 0.5171987776066600D-01 - xs( 10) = 0.6090144236115421D-01 - xs( 11) = 0.7040778378975811D-01 - xs( 12) = 0.8021000201952486D-01 - xs( 13) = 0.9028090545228172D-01 - xs( 14) = 0.1005007099293025D+00 - ws( 1) = 0.1612347588276215D-02 - ws( 2) = 0.3460244837374216D-02 - ws( 3) = 0.4902778312205083D-02 - ws( 4) = 0.6020014481795308D-02 - ws( 5) = 0.6895616392900985D-02 - ws( 6) = 0.7590567605150767D-02 - ws( 7) = 0.8151533827230332D-02 - ws( 8) = 0.8614821924360614D-02 - ws( 9) = 0.9008499086321077D-02 - ws( 10) = 0.9355024403107520D-02 - ws( 11) = 0.9675356412915434D-02 - ws( 12) = 0.9999902197599121D-02 - ws( 13) = 0.1042280635857491D-01 - ws( 14) = 0.1160746467001396D-01 - endif - - - if( iquad .eq. 3 ) then - idomain = 3 - rk0r = 0.1000010000000000D-11 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999800001D-01 - n = 14 - err = 0.9300909638159976D-05 - ierq = 0 - xs( 1) = 0.6332661636753164D-03 - xs( 2) = 0.3195346306208580D-02 - xs( 3) = 0.7396120757473038D-02 - xs( 4) = 0.1286794010207799D-01 - xs( 5) = 0.1933087288700450D-01 - xs( 6) = 0.2657553347584616D-01 - xs( 7) = 0.3444530643265326D-01 - xs( 8) = 0.4282467698925254D-01 - xs( 9) = 0.5162987009430488D-01 - xs( 10) = 0.6080126025492583D-01 - xs( 11) = 0.7029729122061580D-01 - xs( 12) = 0.8008924449608013D-01 - xs( 13) = 0.9015015033503818D-01 - xs( 14) = 0.1003614502224366D+00 - ws( 1) = 0.1606680747534467D-02 - ws( 2) = 0.3449529463447278D-02 - ws( 3) = 0.4890061694927094D-02 - ws( 4) = 0.6007410993814197D-02 - ws( 5) = 0.6883878336848905D-02 - ws( 6) = 0.7579638424281854D-02 - ws( 7) = 0.8141130804837388D-02 - ws( 8) = 0.8604671917276289D-02 - ws( 9) = 0.8998374494545066D-02 - ws( 10) = 0.9344856283926038D-02 - ws( 11) = 0.9665224898267506D-02 - ws( 12) = 0.9989740858515964D-02 - ws( 13) = 0.1041538050124357D-01 - ws( 14) = 0.1160694699219937D-01 - endif - - - if( iquad .eq. 4 ) then - idomain = 4 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.9999999999800001D-01 - n = 14 - err = 0.8860908775287041D-05 - ierq = 0 - xs( 1) = 0.6387724951370202D-03 - xs( 2) = 0.3217980214552734D-02 - xs( 3) = 0.7435539402316359D-02 - xs( 4) = 0.1291942201453880D-01 - xs( 5) = 0.1939046803569995D-01 - xs( 6) = 0.2663986052995968D-01 - xs( 7) = 0.3451081248712832D-01 - xs( 8) = 0.4288748361858678D-01 - xs( 9) = 0.5168583098852729D-01 - xs( 10) = 0.6084602657853930D-01 - xs( 11) = 0.7032641835999044D-01 - xs( 12) = 0.8009877941903740D-01 - xs( 13) = 0.9013719885453936D-01 - xs( 14) = 0.1003308428453624D+00 - ws( 1) = 0.1619901712503823D-02 - ws( 2) = 0.3468078644035578D-02 - ws( 3) = 0.4904504143748844D-02 - ws( 4) = 0.6017313646135912D-02 - ws( 5) = 0.6890290099321265D-02 - ws( 6) = 0.7582647563166861D-02 - ws( 7) = 0.8140421765453140D-02 - ws( 8) = 0.8599948064495088D-02 - ws( 9) = 0.8989369909240747D-02 - ws( 10) = 0.9331487466877999D-02 - ws( 11) = 0.9647619059596043D-02 - ws( 12) = 0.9968118483043993D-02 - ws( 13) = 0.1039382383207173D-01 - ws( 14) = 0.1160561582808652D-01 - endif - - - if( iquad .eq. 5 ) then - idomain = 5 - rk0r = 0.1000010000000000D-11 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999980000D+00 - n = 13 - err = 0.1515606954060435D-04 - ierq = 0 - xs( 1) = 0.7457119246014986D-03 - xs( 2) = 0.3708318298562128D-02 - xs( 3) = 0.8443422582148474D-02 - xs( 4) = 0.1446996095841361D-01 - xs( 5) = 0.2145412203488825D-01 - xs( 6) = 0.2916725130069961D-01 - xs( 7) = 0.3745143212805376D-01 - xs( 8) = 0.4619739973819766D-01 - xs( 9) = 0.5532956938789802D-01 - xs( 10) = 0.6479630046228164D-01 - xs( 11) = 0.7456448522535290D-01 - xs( 12) = 0.8461146832785862D-01 - xs( 13) = 0.9491253571692101D-01 - ws( 1) = 0.1883743605685598D-02 - ws( 2) = 0.3942311238480543D-02 - ws( 3) = 0.5447537685044368D-02 - ws( 4) = 0.6550770465966986D-02 - ws( 5) = 0.7379997269601931D-02 - ws( 6) = 0.8020478806489179D-02 - ws( 7) = 0.8530591364612788D-02 - ws( 8) = 0.8950969257430197D-02 - ws( 9) = 0.9311571189207132D-02 - ws( 10) = 0.9637833930454786D-02 - ws( 11) = 0.9964952539539851D-02 - ws( 12) = 0.1041071378088745D-01 - ws( 13) = 0.1185850117546539D-01 - endif - - - if( iquad .eq. 6 ) then - idomain = 6 - rk0r = 0.1000010000000000D-11 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999980000D+00 - n = 13 - err = 0.3943766372755769D-04 - ierq = 0 - xs( 1) = 0.7913016310231370D-03 - xs( 2) = 0.3902910963586644D-02 - xs( 3) = 0.8802743667753360D-02 - xs( 4) = 0.1496177132547033D-01 - xs( 5) = 0.2203839366093838D-01 - xs( 6) = 0.2981124580279722D-01 - xs( 7) = 0.3813254609540505D-01 - xs( 8) = 0.4690203064646883D-01 - xs( 9) = 0.5605153766584622D-01 - xs( 10) = 0.6553508660645865D-01 - xs( 11) = 0.7532653533252573D-01 - xs( 12) = 0.8540652681674665D-01 - xs( 13) = 0.9570881756471117D-01 - ws( 1) = 0.1994254752140399D-02 - ws( 2) = 0.4111994597098882D-02 - ws( 3) = 0.5599717294076071D-02 - ws( 4) = 0.6662679835262955D-02 - ws( 5) = 0.7454387536309361D-02 - ws( 6) = 0.8067305103032061D-02 - ws( 7) = 0.8559595334981976D-02 - ws( 8) = 0.8970152083678320D-02 - ws( 9) = 0.9328630900031215D-02 - ws( 10) = 0.9658253316152653D-02 - ws( 11) = 0.9992125498706836D-02 - ws( 12) = 0.1048433839553124D-01 - ws( 13) = 0.1180190215301449D-01 - endif - - - if( iquad .eq. 7 ) then - idomain = 7 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5707963267928966D+00 - n = 13 - err = 0.5888970857792497D-05 - ierq = 0 - xs( 1) = 0.6737436330347126D-03 - xs( 2) = 0.3425343687169454D-02 - xs( 3) = 0.7971473024972989D-02 - xs( 4) = 0.1388103864181848D-01 - xs( 5) = 0.2080415122709939D-01 - xs( 6) = 0.2849209563029835D-01 - xs( 7) = 0.3677560167134097D-01 - xs( 8) = 0.4554092056567723D-01 - xs( 9) = 0.5471224861085772D-01 - xs( 10) = 0.6423962914245701D-01 - xs( 11) = 0.7409581297308064D-01 - xs( 12) = 0.8426968208882186D-01 - xs( 13) = 0.9489532631016127D-01 - ws( 1) = 0.1713565950561532D-02 - ws( 2) = 0.3723222488679070D-02 - ws( 3) = 0.5294980268202744D-02 - ws( 4) = 0.6465771225605969D-02 - ws( 5) = 0.7339534622367505D-02 - ws( 6) = 0.8008867773785688D-02 - ws( 7) = 0.8540362172017141D-02 - ws( 8) = 0.8979830574222638D-02 - ws( 9) = 0.9361276911573482D-02 - ws( 10) = 0.9710447757995134D-02 - ws( 11) = 0.1005848178916536D-01 - ws( 12) = 0.1055205659349074D-01 - ws( 13) = 0.1268730168623171D-01 - endif - - - if( iquad .eq. 8 ) then - idomain = 8 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1570796326792897D+01 - n = 12 - err = 0.3243918939225870D-04 - ierq = 0 - xs( 1) = 0.6089441109075545D-03 - xs( 2) = 0.3124515873822787D-02 - xs( 3) = 0.7360096898901082D-02 - xs( 4) = 0.1296857671438675D-01 - xs( 5) = 0.1963496726479711D-01 - xs( 6) = 0.2711552576907081D-01 - xs( 7) = 0.3523502752776813D-01 - xs( 8) = 0.4387175877958865D-01 - xs( 9) = 0.5294075009335083D-01 - xs( 10) = 0.6239124036355728D-01 - xs( 11) = 0.7218011002647065D-01 - xs( 12) = 0.8212583699960777D-01 - ws( 1) = 0.1552553795717702D-02 - ws( 2) = 0.3431776393971173D-02 - ws( 3) = 0.4979646717931963D-02 - ws( 4) = 0.6184383693506397D-02 - ws( 5) = 0.7108349104476293D-02 - ws( 6) = 0.7825418018990763D-02 - ws( 7) = 0.8397032344784660D-02 - ws( 8) = 0.8873764351530781D-02 - ws( 9) = 0.9292654702522066D-02 - ws( 10) = 0.9694550766925313D-02 - ws( 11) = 0.1032083429971481D-01 - ws( 12) = 0.1140831490357119D-01 - endif - - - if( iquad .eq. 9 ) then - idomain = 9 - rk0r = 0.1000010000000000D-11 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 13 - err = 0.4772590927085871D-04 - ierq = 0 - xs( 1) = 0.4220460392196951D-03 - xs( 2) = 0.2196969725747102D-02 - xs( 3) = 0.5289703511734131D-02 - xs( 4) = 0.9557033370963241D-02 - xs( 5) = 0.1483760708040787D-01 - xs( 6) = 0.2097623325696926D-01 - xs( 7) = 0.2783660754654037D-01 - xs( 8) = 0.3530577611433722D-01 - xs( 9) = 0.4329177712368266D-01 - xs( 10) = 0.5171923329871459D-01 - xs( 11) = 0.6053963100279194D-01 - xs( 12) = 0.6964535143349686D-01 - xs( 13) = 0.7865449143710403D-01 - ws( 1) = 0.1079862900201661D-02 - ws( 2) = 0.2454499919810877D-02 - ws( 3) = 0.3706395144228266D-02 - ws( 4) = 0.4800933189344895D-02 - ws( 5) = 0.5734266454517085D-02 - ws( 6) = 0.6521095950229180D-02 - ws( 7) = 0.7183433958080481D-02 - ws( 8) = 0.7745870948013815D-02 - ws( 9) = 0.8237008988626638D-02 - ws( 10) = 0.8670337261605614D-02 - ws( 11) = 0.9118473686008833D-02 - ws( 12) = 0.9873222519785264D-02 - ws( 13) = 0.1011103869498186D-01 - endif - - - if( iquad .eq. 10 ) then - idomain = 10 - rk0r = 0.1000010000000000D-11 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 9 - err = 0.2307434024725798D-04 - ierq = 0 - xs( 1) = 0.2432273032401166D-03 - xs( 2) = 0.1336701403290745D-02 - xs( 3) = 0.3418864209190344D-02 - xs( 4) = 0.6520651648973716D-02 - xs( 5) = 0.1058676425343800D-01 - xs( 6) = 0.1553767179892639D-01 - xs( 7) = 0.2131238937990470D-01 - xs( 8) = 0.2770559707489491D-01 - xs( 9) = 0.3435943810847623D-01 - ws( 1) = 0.6398171927342425D-03 - ws( 2) = 0.1590349624394484D-02 - ws( 3) = 0.2604064457734107D-02 - ws( 4) = 0.3614353078550571D-02 - ws( 5) = 0.4590082468772705D-02 - ws( 6) = 0.5444255324345933D-02 - ws( 7) = 0.6331548066241932D-02 - ws( 8) = 0.7582115861050232D-02 - ws( 9) = 0.8058069153921051D-02 - endif - - - if( iquad .eq. 11 ) then - idomain = 11 - rk0r = 0.1000010000000000D-11 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 2 - err = 0.4948725106610890D-04 - ierq = 0 - xs( 1) = 0.8857924553573630D-03 - xs( 2) = 0.1748775132083338D-02 - ws( 1) = 0.6755517044149882D-02 - ws( 2) = 0.4103202114442134D-02 - endif - - - if( iquad .eq. 12 ) then - idomain = 12 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.9621644258733339D-05 - ierq = 0 - xs( 1) = 0.6353193969066414D-03 - xs( 2) = 0.3204302304537088D-02 - xs( 3) = 0.7413554893863389D-02 - xs( 4) = 0.1289349914629157D-01 - xs( 5) = 0.1936417368386771D-01 - xs( 6) = 0.2661694018252157D-01 - xs( 7) = 0.3449578528812845D-01 - xs( 8) = 0.4288545541082310D-01 - xs( 9) = 0.5170220378656198D-01 - xs( 10) = 0.6088626424713342D-01 - xs( 11) = 0.7039574872922372D-01 - xs( 12) = 0.8020111333986808D-01 - xs( 13) = 0.9027417168039999D-01 - xs( 14) = 0.1004901640593085D+00 - ws( 1) = 0.1611660464725611D-02 - ws( 2) = 0.3457722588634449D-02 - ws( 3) = 0.4898494746218177D-02 - ws( 4) = 0.6015239510517839D-02 - ws( 5) = 0.6891670213956848D-02 - ws( 6) = 0.7588153137702567D-02 - ws( 7) = 0.8150787587638880D-02 - ws( 8) = 0.8615591225462075D-02 - ws( 9) = 0.9010509627704678D-02 - ws( 10) = 0.9357912447849514D-02 - ws( 11) = 0.9678661025935849D-02 - ws( 12) = 0.1000288393922708D-01 - ws( 13) = 0.1042443486629433D-01 - ws( 14) = 0.1159479543403984D-01 - endif - - - if( iquad .eq. 13 ) then - idomain = 13 - rk0r = 0.2000000000100001D-01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.9378529434234703D-05 - ierq = 0 - xs( 1) = 0.6361760278442733D-03 - xs( 2) = 0.3207840527138049D-02 - xs( 3) = 0.7420193851055682D-02 - xs( 4) = 0.1290331310283997D-01 - xs( 5) = 0.1937690760334727D-01 - xs( 6) = 0.2663180094053537D-01 - xs( 7) = 0.3451163846373072D-01 - xs( 8) = 0.4290111318906690D-01 - xs( 9) = 0.5171661160284281D-01 - xs( 10) = 0.6089862322943164D-01 - xs( 11) = 0.7040567279859938D-01 - xs( 12) = 0.8020889571958163D-01 - xs( 13) = 0.9028138794224143D-01 - xs( 14) = 0.1005054411920017D+00 - ws( 1) = 0.1613706232011046D-02 - ws( 2) = 0.3460745794297265D-02 - ws( 3) = 0.4901654837033968D-02 - ws( 4) = 0.6018374072491809D-02 - ws( 5) = 0.6894275543756621D-02 - ws( 6) = 0.7589742493089978D-02 - ws( 7) = 0.8151174213681486D-02 - ws( 8) = 0.8614830968667771D-02 - ws( 9) = 0.9008794208279646D-02 - ws( 10) = 0.9355556799464301D-02 - ws( 11) = 0.9676133882659175D-02 - ws( 12) = 0.1000090199304771D-01 - ws( 13) = 0.1042428543078726D-01 - ws( 14) = 0.1161428867932267D-01 - endif - - - if( iquad .eq. 14 ) then - idomain = 14 - rk0r = 0.2000000000100001D-01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999800001D-01 - n = 14 - err = 0.9326837771816963D-05 - ierq = 0 - xs( 1) = 0.6346671212149634D-03 - xs( 2) = 0.3200266348320385D-02 - xs( 3) = 0.7402943315948989D-02 - xs( 4) = 0.1287460919539270D-01 - xs( 5) = 0.1933642565994014D-01 - xs( 6) = 0.2657977916833544D-01 - xs( 7) = 0.3444835699634852D-01 - xs( 8) = 0.4282671920586817D-01 - xs( 9) = 0.5163108858027893D-01 - xs( 10) = 0.6080182119651868D-01 - xs( 11) = 0.7029733286490321D-01 - xs( 12) = 0.8008887797906195D-01 - xs( 13) = 0.9014949754274350D-01 - xs( 14) = 0.1003610898674767D+00 - ws( 1) = 0.1609888144251855D-02 - ws( 2) = 0.3452609108320296D-02 - ws( 3) = 0.4890776036348752D-02 - ws( 4) = 0.6006596789392213D-02 - ws( 5) = 0.6882583550650662D-02 - ws( 6) = 0.7578359803370639D-02 - ws( 7) = 0.8140021143590739D-02 - ws( 8) = 0.8603753086292897D-02 - ws( 9) = 0.8997624209249815D-02 - ws( 10) = 0.9344245133178749D-02 - ws( 11) = 0.9664724407476965D-02 - ws( 12) = 0.9989259462976803D-02 - ws( 13) = 0.1041483716631792D-01 - ws( 14) = 0.1160781782815950D-01 - endif - - - if( iquad .eq. 15 ) then - idomain = 15 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.9999999999800001D-01 - n = 14 - err = 0.8872259218005248D-05 - ierq = 0 - xs( 1) = 0.6397999753059770D-03 - xs( 2) = 0.3221913808207650D-02 - xs( 3) = 0.7441607933112620D-02 - xs( 4) = 0.1292600930526994D-01 - xs( 5) = 0.1939649775716523D-01 - xs( 6) = 0.2664484893598097D-01 - xs( 7) = 0.3451459831824780D-01 - xs( 8) = 0.4289004540804975D-01 - xs( 9) = 0.5168720137211733D-01 - xs( 10) = 0.6084625466071248D-01 - xs( 11) = 0.7032554051482726D-01 - xs( 12) = 0.8009678395336772D-01 - xs( 13) = 0.9013393268426244D-01 - xs( 14) = 0.1003254549972443D+00 - ws( 1) = 0.1622318280900948D-02 - ws( 2) = 0.3470940362166965D-02 - ws( 3) = 0.4905793898941862D-02 - ws( 4) = 0.6017174405651746D-02 - ws( 5) = 0.6889415162835298D-02 - ws( 6) = 0.7581490480480658D-02 - ws( 7) = 0.8139193834482529D-02 - ws( 8) = 0.8598735702151951D-02 - ws( 9) = 0.8988201503637570D-02 - ws( 10) = 0.9330367250833213D-02 - ws( 11) = 0.9646530489167754D-02 - ws( 12) = 0.9966977001008823D-02 - ws( 13) = 0.1039242881889413D-01 - ws( 14) = 0.1160283682201080D-01 - endif - - - if( iquad .eq. 16 ) then - idomain = 16 - rk0r = 0.2000000000100001D-01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999980000D+00 - n = 13 - err = 0.1491781448782527D-04 - ierq = 0 - xs( 1) = 0.7410759472792358D-03 - xs( 2) = 0.3691655567106810D-02 - xs( 3) = 0.8416315653567083D-02 - xs( 4) = 0.1443482445946139D-01 - xs( 5) = 0.2141261692317782D-01 - xs( 6) = 0.2912054269497564D-01 - xs( 7) = 0.3740038010692159D-01 - xs( 8) = 0.4614266284450957D-01 - xs( 9) = 0.5527171881264133D-01 - xs( 10) = 0.6473597331560667D-01 - xs( 11) = 0.7450240954330256D-01 - xs( 12) = 0.8454879360163688D-01 - xs( 13) = 0.9485114552878188D-01 - ws( 1) = 0.1873189274199800D-02 - ws( 2) = 0.3930493028275038D-02 - ws( 3) = 0.5438441694753496D-02 - ws( 4) = 0.6543690971758434D-02 - ws( 5) = 0.7374294584203558D-02 - ws( 6) = 0.8015770169696844D-02 - ws( 7) = 0.8526647812520835D-02 - ws( 8) = 0.8947677440829128D-02 - ws( 9) = 0.9308886276794154D-02 - ws( 10) = 0.9636007447319074D-02 - ws( 11) = 0.9964553347252082D-02 - ws( 12) = 0.1041211173066216D-01 - ws( 13) = 0.1186659449074737D-01 - endif - - - if( iquad .eq. 17 ) then - idomain = 17 - rk0r = 0.2000000000100001D-01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999980000D+00 - n = 13 - err = 0.3051439938394616D-04 - ierq = 0 - xs( 1) = 0.7712918411589548D-03 - xs( 2) = 0.3816190207096858D-02 - xs( 3) = 0.8637033522150287D-02 - xs( 4) = 0.1472479073914561D-01 - xs( 5) = 0.2174413836316565D-01 - xs( 6) = 0.2947407560683247D-01 - xs( 7) = 0.3776498285224038D-01 - xs( 8) = 0.4651433775817804D-01 - xs( 9) = 0.5565214230171734D-01 - xs( 10) = 0.6513096110158137D-01 - xs( 11) = 0.7492296907202999D-01 - xs( 12) = 0.8500776640979486D-01 - xs( 13) = 0.9531353275073244D-01 - ws( 1) = 0.1945640550697053D-02 - ws( 2) = 0.4034121158699707D-02 - ws( 3) = 0.5522755091266695D-02 - ws( 4) = 0.6598045080859301D-02 - ws( 5) = 0.7404514606592319D-02 - ws( 6) = 0.8031044859876282D-02 - ws( 7) = 0.8534754255746298D-02 - ws( 8) = 0.8954613797137889D-02 - ws( 9) = 0.9320634782928097D-02 - ws( 10) = 0.9656949829389812D-02 - ws( 11) = 0.9995817889181927D-02 - ws( 12) = 0.1048982067512540D-01 - ws( 13) = 0.1180972183805252D-01 - endif - - - if( iquad .eq. 18 ) then - idomain = 18 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5707963267928966D+00 - n = 13 - err = 0.5883541068794283D-05 - ierq = 0 - xs( 1) = 0.6733496945946370D-03 - xs( 2) = 0.3423709070567770D-02 - xs( 3) = 0.7968624427628912D-02 - xs( 4) = 0.1387740091533143D-01 - xs( 5) = 0.2080010109573293D-01 - xs( 6) = 0.2848787992160617D-01 - xs( 7) = 0.3677137925741097D-01 - xs( 8) = 0.4553680416704268D-01 - xs( 9) = 0.5470832792376305D-01 - xs( 10) = 0.6423598393975408D-01 - xs( 11) = 0.7409252519207335D-01 - xs( 12) = 0.8426689759981740D-01 - xs( 13) = 0.9489499792704678D-01 - ws( 1) = 0.1712616772451092D-02 - ws( 2) = 0.3721869603664284D-02 - ws( 3) = 0.5293965299968810D-02 - ws( 4) = 0.6465193066176968D-02 - ws( 5) = 0.7339264564268165D-02 - ws( 6) = 0.8008791727303816D-02 - ws( 7) = 0.8540416178335699D-02 - ws( 8) = 0.8979981287930178D-02 - ws( 9) = 0.9361504683302350D-02 - ws( 10) = 0.9710741113238856D-02 - ws( 11) = 0.1005878693727029D-01 - ws( 12) = 0.1055216800686555D-01 - ws( 13) = 0.1269619453023042D-01 - endif - - - if( iquad .eq. 19 ) then - idomain = 19 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1570796326792897D+01 - n = 12 - err = 0.1726553785249906D-04 - ierq = 0 - xs( 1) = 0.5960948664608807D-03 - xs( 2) = 0.3065280506823283D-02 - xs( 3) = 0.7241720153225908D-02 - xs( 4) = 0.1279657402959197D-01 - xs( 5) = 0.1942191611719191D-01 - xs( 6) = 0.2687406929328858D-01 - xs( 7) = 0.3497556496055188D-01 - xs( 8) = 0.4360237836938649D-01 - xs( 9) = 0.5266777120593622D-01 - xs( 10) = 0.6211927189331929D-01 - xs( 11) = 0.7191244227102304D-01 - xs( 12) = 0.8186375821864517D-01 - ws( 1) = 0.1520673653705991D-02 - ws( 2) = 0.3375064115637890D-02 - ws( 3) = 0.4921207929650850D-02 - ws( 4) = 0.6136652004828232D-02 - ws( 5) = 0.7073911228257856D-02 - ws( 6) = 0.7802619743332816D-02 - ws( 7) = 0.8383457615333236D-02 - ws( 8) = 0.8867200927088464D-02 - ws( 9) = 0.9291579921115211D-02 - ws( 10) = 0.9697937832719803D-02 - ws( 11) = 0.1032545061927114D-01 - ws( 12) = 0.1141421817591220D-01 - endif - - - if( iquad .eq. 20 ) then - idomain = 20 - rk0r = 0.2000000000100001D-01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 13 - err = 0.5358301194273098D-04 - ierq = 0 - xs( 1) = 0.3124127578461260D-03 - xs( 2) = 0.1716412787465763D-02 - xs( 3) = 0.4368887370462386D-02 - xs( 4) = 0.8245803097765365D-02 - xs( 5) = 0.1322115966624935D-01 - xs( 6) = 0.1913948026819349D-01 - xs( 7) = 0.2585281683927865D-01 - xs( 8) = 0.3323520240116670D-01 - xs( 9) = 0.4118438765835132D-01 - xs( 10) = 0.4961910389551509D-01 - xs( 11) = 0.5849047266809527D-01 - xs( 12) = 0.6771287472629457D-01 - xs( 13) = 0.7698086671018509D-01 - ws( 1) = 0.8123071635422516D-03 - ws( 2) = 0.2019186405614107D-02 - ws( 3) = 0.3280178583661102D-02 - ws( 4) = 0.4451306776283696D-02 - ws( 5) = 0.5472973411760302D-02 - ws( 6) = 0.6339621961963370D-02 - ws( 7) = 0.7068251135365906D-02 - ws( 8) = 0.7684919493028888D-02 - ws( 9) = 0.8221402678466171D-02 - ws( 10) = 0.8696070917759148D-02 - ws( 11) = 0.9180167998335712D-02 - ws( 12) = 0.9998995782702301D-02 - ws( 13) = 0.1061573580342624D-01 - endif - - - if( iquad .eq. 21 ) then - idomain = 21 - rk0r = 0.2000000000100001D-01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 9 - err = 0.2181209469948011D-04 - ierq = 0 - xs( 1) = 0.3103946960400409D-03 - xs( 2) = 0.1627484194358183D-02 - xs( 3) = 0.3966741767994482D-02 - xs( 4) = 0.7278867827421080D-02 - xs( 5) = 0.1148490530359914D-01 - xs( 6) = 0.1651190897248728D-01 - xs( 7) = 0.2229729307583856D-01 - xs( 8) = 0.2862443507861648D-01 - xs( 9) = 0.3511498825458675D-01 - ws( 1) = 0.8037976866267610D-03 - ws( 2) = 0.1849904328618812D-02 - ws( 3) = 0.2843764913308320D-02 - ws( 4) = 0.3796349914922553D-02 - ws( 5) = 0.4697654718542736D-02 - ws( 6) = 0.5484465915857511D-02 - ws( 7) = 0.6348539846261882D-02 - ws( 8) = 0.7506687990887337D-02 - ws( 9) = 0.7655261654909306D-02 - endif - - - if( iquad .eq. 22 ) then - idomain = 22 - rk0r = 0.2000000000100001D-01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 2 - err = 0.4895574519055256D-04 - ierq = 0 - xs( 1) = 0.9091325405158387D-03 - xs( 2) = 0.1782038209167183D-02 - ws( 1) = 0.6666097849276448D-02 - ws( 2) = 0.4230551859180700D-02 - endif - - - if( iquad .eq. 23 ) then - idomain = 23 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.9399813252013230D-05 - ierq = 0 - xs( 1) = 0.6310578114758250D-03 - xs( 2) = 0.3185337141091218D-02 - xs( 3) = 0.7376264770158187D-02 - xs( 4) = 0.1284086920468228D-01 - xs( 5) = 0.1930257476059998D-01 - xs( 6) = 0.2655249325970007D-01 - xs( 7) = 0.3443299166462660D-01 - xs( 8) = 0.4282738619726347D-01 - xs( 9) = 0.5165104130934788D-01 - xs( 10) = 0.6084385355626649D-01 - xs( 11) = 0.7036393759302031D-01 - xs( 12) = 0.8018225323219735D-01 - xs( 13) = 0.9027346247831626D-01 - xs( 14) = 0.1005336137901557D+00 - ws( 1) = 0.1601254833417567D-02 - ws( 2) = 0.3440009427382061D-02 - ws( 3) = 0.4880707241297458D-02 - ws( 4) = 0.6002884473789562D-02 - ws( 5) = 0.6886011020095463D-02 - ws( 6) = 0.7587845026794430D-02 - ws( 7) = 0.8154174914050854D-02 - ws( 8) = 0.8621556320530620D-02 - ws( 9) = 0.9018411317738629D-02 - ws( 10) = 0.9367542520542154D-02 - ws( 11) = 0.9690505004305407D-02 - ws( 12) = 0.1001753618643991D-01 - ws( 13) = 0.1044560378711148D-01 - ws( 14) = 0.1167996289243323D-01 - endif - - - if( iquad .eq. 24 ) then - idomain = 24 - rk0r = 0.4000000000100001D-01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.9272274383822495D-05 - ierq = 0 - xs( 1) = 0.6335501374111292D-03 - xs( 2) = 0.3195707202903953D-02 - xs( 3) = 0.7395027008640183D-02 - xs( 4) = 0.1286621914739790D-01 - xs( 5) = 0.1933207433800292D-01 - xs( 6) = 0.2658356472023963D-01 - xs( 7) = 0.3446324091986461D-01 - xs( 8) = 0.4285477036595706D-01 - xs( 9) = 0.5167389404660861D-01 - xs( 10) = 0.6086084999693712D-01 - xs( 11) = 0.7037411046385759D-01 - xs( 12) = 0.8018504762192578D-01 - xs( 13) = 0.9026856665354432D-01 - xs( 14) = 0.1005188285097633D+00 - ws( 1) = 0.1607240333457720D-02 - ws( 2) = 0.3448791568445271D-02 - ws( 3) = 0.4888375796216263D-02 - ws( 4) = 0.6008308045367423D-02 - ws( 5) = 0.6888860845360767D-02 - ws( 6) = 0.7588166653725971D-02 - ws( 7) = 0.8152264891779828D-02 - ws( 8) = 0.8617789220899046D-02 - ws( 9) = 0.9013144985405338D-02 - ws( 10) = 0.9361131085013064D-02 - ws( 11) = 0.9683273472084440D-02 - ws( 12) = 0.1000987638994357D-01 - ws( 13) = 0.1043755683567413D-01 - ws( 14) = 0.1166604669144219D-01 - endif - - - if( iquad .eq. 25 ) then - idomain = 25 - rk0r = 0.4000000000100001D-01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5999999999800001D-01 - n = 14 - err = 0.9261104946321578D-05 - ierq = 0 - xs( 1) = 0.6358533888226333D-03 - xs( 2) = 0.3203991269067723D-02 - xs( 3) = 0.7405827756650388D-02 - xs( 4) = 0.1287396714525622D-01 - xs( 5) = 0.1933254119241314D-01 - xs( 6) = 0.2657398910632474D-01 - xs( 7) = 0.3444178885631105D-01 - xs( 8) = 0.4282011194209323D-01 - xs( 9) = 0.5162493930312065D-01 - xs( 10) = 0.6079657384681733D-01 - xs( 11) = 0.7029342146798233D-01 - xs( 12) = 0.8008678676566804D-01 - xs( 13) = 0.9015051907015514D-01 - xs( 14) = 0.1003699645336849D+00 - ws( 1) = 0.1612599436938408D-02 - ws( 2) = 0.3453922877712125D-02 - ws( 3) = 0.4888012512620528D-02 - ws( 4) = 0.6002857350837922D-02 - ws( 5) = 0.6879999927405292D-02 - ws( 6) = 0.7577096019381922D-02 - ws( 7) = 0.8139674263117385D-02 - ws( 8) = 0.8604029185865341D-02 - ws( 9) = 0.8998352846782026D-02 - ws( 10) = 0.9345404187238912D-02 - ws( 11) = 0.9666584320173194D-02 - ws( 12) = 0.9991847960701414D-02 - ws( 13) = 0.1041942955208540D-01 - ws( 14) = 0.1162693237956748D-01 - endif - - - if( iquad .eq. 26 ) then - idomain = 26 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.9999999999800001D-01 - n = 14 - err = 0.8835706328121171D-05 - ierq = 0 - xs( 1) = 0.6412180137934368D-03 - xs( 2) = 0.3227991541491369D-02 - xs( 3) = 0.7451066542154662D-02 - xs( 4) = 0.1293568738812913D-01 - xs( 5) = 0.1940480292782010D-01 - xs( 6) = 0.2665134065722068D-01 - xs( 7) = 0.3451912125640611D-01 - xs( 8) = 0.4289245340878500D-01 - xs( 9) = 0.5168734836075082D-01 - xs( 10) = 0.6084403585078222D-01 - xs( 11) = 0.7032084242019314D-01 - xs( 12) = 0.8008935736437661D-01 - xs( 13) = 0.9012332363306737D-01 - xs( 14) = 0.1003084823624966D+00 - ws( 1) = 0.1625837038805148D-02 - ws( 2) = 0.3475757958204825D-02 - ws( 3) = 0.4907436469190644D-02 - ws( 4) = 0.6016309715417431D-02 - ws( 5) = 0.6887732717847899D-02 - ws( 6) = 0.7579597234327128D-02 - ws( 7) = 0.8137165353083595D-02 - ws( 8) = 0.8596580878041262D-02 - ws( 9) = 0.8985930184699497D-02 - ws( 10) = 0.9328033715857820D-02 - ws( 11) = 0.9644272887660588D-02 - ws( 12) = 0.9964597007701980D-02 - ws( 13) = 0.1039004266507257D-01 - ws( 14) = 0.1159715259332607D-01 - endif - - - if( iquad .eq. 27 ) then - idomain = 27 - rk0r = 0.4000000000100001D-01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999980000D+00 - n = 13 - err = 0.1443274055704184D-04 - ierq = 0 - xs( 1) = 0.7252354644295495D-03 - xs( 2) = 0.3632713287863961D-02 - xs( 3) = 0.8316983705668045D-02 - xs( 4) = 0.1430189697411655D-01 - xs( 5) = 0.2125157289798901D-01 - xs( 6) = 0.2893610152762015D-01 - xs( 7) = 0.3719662356127532D-01 - xs( 8) = 0.4592306578581187D-01 - xs( 9) = 0.5503940358436284D-01 - xs( 10) = 0.6449419088284847D-01 - xs( 11) = 0.7425479254199881D-01 - xs( 12) = 0.8430031626557978D-01 - xs( 13) = 0.9460813885249598D-01 - ws( 1) = 0.1836697069350682D-02 - ws( 2) = 0.3886542865968963D-02 - ws( 3) = 0.5401713213582365D-02 - ws( 4) = 0.6513030003515055D-02 - ws( 5) = 0.7348695981128766D-02 - ws( 6) = 0.7994586492365259D-02 - ws( 7) = 0.8509274500371760D-02 - ws( 8) = 0.8933682186518783D-02 - ws( 9) = 0.9298105420529272D-02 - ws( 10) = 0.9629044125747674D-02 - ws( 11) = 0.9963110699259958D-02 - ws( 12) = 0.1041792794932589D-01 - ws( 13) = 0.1188946588935329D-01 - endif - - - if( iquad .eq. 28 ) then - idomain = 28 - rk0r = 0.4000000000100001D-01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5999999999980000D+00 - n = 13 - err = 0.1464932309134910D-04 - ierq = 0 - xs( 1) = 0.7258532330029354D-03 - xs( 2) = 0.3626409820007913D-02 - xs( 3) = 0.8293821958685001D-02 - xs( 4) = 0.1426245463988563D-01 - xs( 5) = 0.2120163406891432D-01 - xs( 6) = 0.2888287158453183D-01 - xs( 7) = 0.3714767658157687D-01 - xs( 8) = 0.4588647860210160D-01 - xs( 9) = 0.5502449378767379D-01 - xs( 10) = 0.6451090530418739D-01 - xs( 11) = 0.7431443326748510D-01 - xs( 12) = 0.8441245904630831D-01 - xs( 13) = 0.9472695853082413D-01 - ws( 1) = 0.1836323831552136D-02 - ws( 2) = 0.3872893956813518D-02 - ws( 3) = 0.5383699169748074D-02 - ws( 4) = 0.6499227407884210D-02 - ws( 5) = 0.7341661646898453D-02 - ws( 6) = 0.7995032945217830D-02 - ws( 7) = 0.8517503464704802D-02 - ws( 8) = 0.8950297857033199D-02 - ws( 9) = 0.9325045724189487D-02 - ws( 10) = 0.9667814704102407D-02 - ws( 11) = 0.1001016367137366D-01 - ws( 12) = 0.1050178163412853D-01 - ws( 13) = 0.1182751823216328D-01 - endif - - - if( iquad .eq. 29 ) then - idomain = 29 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5707963267928966D+00 - n = 13 - err = 0.5860265613983883D-05 - ierq = 0 - xs( 1) = 0.6715003366108472D-03 - xs( 2) = 0.3416063681303026D-02 - xs( 3) = 0.7955415683207238D-02 - xs( 4) = 0.1386075989332208D-01 - xs( 5) = 0.2078187453318819D-01 - xs( 6) = 0.2846922405182775D-01 - xs( 7) = 0.3675298131978288D-01 - xs( 8) = 0.4551910696148959D-01 - xs( 9) = 0.5469165472243725D-01 - xs( 10) = 0.6422061295724232D-01 - xs( 11) = 0.7407875561279889D-01 - xs( 12) = 0.8425531899944141D-01 - xs( 13) = 0.9489326079795640D-01 - ws( 1) = 0.1708164198307334D-02 - ws( 2) = 0.3715587493902439D-02 - ws( 3) = 0.5289408320798681D-02 - ws( 4) = 0.6462804331698148D-02 - ws( 5) = 0.7338358200605580D-02 - ws( 6) = 0.8008760379381934D-02 - ws( 7) = 0.8540918841467753D-02 - ws( 8) = 0.8980846001478724D-02 - ws( 9) = 0.9362637248007037D-02 - ws( 10) = 0.9712094058942185D-02 - ws( 11) = 0.1006017298541094D-01 - ws( 12) = 0.1055281927139630D-01 - ws( 13) = 0.1273203626802229D-01 - endif - - - if( iquad .eq. 30 ) then - idomain = 30 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1570796326792897D+01 - n = 12 - err = 0.1314132286911297D-04 - ierq = 0 - xs( 1) = 0.5858234780093543D-03 - xs( 2) = 0.3016619508149403D-02 - xs( 3) = 0.7140575407237471D-02 - xs( 4) = 0.1264331856330994D-01 - xs( 5) = 0.1922447223841523D-01 - xs( 6) = 0.2664235622970802D-01 - xs( 7) = 0.3471890962012460D-01 - xs( 8) = 0.4332866308350433D-01 - xs( 9) = 0.5238326858447511D-01 - xs( 10) = 0.6182810453085656D-01 - xs( 11) = 0.7161579847019076D-01 - xs( 12) = 0.8155824743921077D-01 - ws( 1) = 0.1495007107965541D-02 - ws( 2) = 0.3326766691387555D-02 - ws( 3) = 0.4867040289744043D-02 - ws( 4) = 0.6087821849755357D-02 - ws( 5) = 0.7034648027887965D-02 - ws( 6) = 0.7773205437587962D-02 - ws( 7) = 0.8362786653174265D-02 - ws( 8) = 0.8853580489316410D-02 - ws( 9) = 0.9283198446429459D-02 - ws( 10) = 0.9693476335361183D-02 - ws( 11) = 0.1031994484987471D-01 - ws( 12) = 0.1140042549432684D-01 - endif - - - if( iquad .eq. 31 ) then - idomain = 31 - rk0r = 0.4000000000100001D-01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 13 - err = 0.4388254054948857D-04 - ierq = 0 - xs( 1) = 0.3040289156049693D-03 - xs( 2) = 0.1677554294085861D-02 - xs( 3) = 0.4283052720008089D-02 - xs( 4) = 0.8096480071237378D-02 - xs( 5) = 0.1299198959549219D-01 - xs( 6) = 0.1881633671580198D-01 - xs( 7) = 0.2542496414322772D-01 - xs( 8) = 0.3269482323717501D-01 - xs( 9) = 0.4052387181345925D-01 - xs( 10) = 0.4883014242040244D-01 - xs( 11) = 0.5756019637537813D-01 - xs( 12) = 0.6659544691455167D-01 - xs( 13) = 0.7558427044965602D-01 - ws( 1) = 0.7916432421469133D-03 - ws( 2) = 0.1980152106131464D-02 - ws( 3) = 0.3225102165009161D-02 - ws( 4) = 0.4379351737284948D-02 - ws( 5) = 0.5385622706385131D-02 - ws( 6) = 0.6239939344286990D-02 - ws( 7) = 0.6959135472927528D-02 - ws( 8) = 0.7569657923711040D-02 - ws( 9) = 0.8100586032959748D-02 - ws( 10) = 0.8562188133709943D-02 - ws( 11) = 0.9045255277874113D-02 - ws( 12) = 0.9832001727525918D-02 - ws( 13) = 0.1013917406759000D-01 - endif - - - if( iquad .eq. 32 ) then - idomain = 32 - rk0r = 0.4000000000100001D-01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 9 - err = 0.2339761035746947D-04 - ierq = 0 - xs( 1) = 0.2541451067429719D-03 - xs( 2) = 0.1376966882337239D-02 - xs( 3) = 0.3479122778062687D-02 - xs( 4) = 0.6585367086651431D-02 - xs( 5) = 0.1064387496137906D-01 - xs( 6) = 0.1557902230915024D-01 - xs( 7) = 0.2132964613265938D-01 - xs( 8) = 0.2768609078470576D-01 - xs( 9) = 0.3428476814275110D-01 - ws( 1) = 0.6659112050679041D-03 - ws( 2) = 0.1618049502648934D-02 - ws( 3) = 0.2615789686909014D-02 - ws( 4) = 0.3613273097026591D-02 - ws( 5) = 0.4578935312502975D-02 - ws( 6) = 0.5424776778118730D-02 - ws( 7) = 0.6309333979836840D-02 - ws( 8) = 0.7544938685006486D-02 - ws( 9) = 0.7971086732974763D-02 - endif - - - if( iquad .eq. 33 ) then - idomain = 33 - rk0r = 0.4000000000100001D-01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 2 - err = 0.4774166645574319D-04 - ierq = 0 - xs( 1) = 0.9551106899271188D-03 - xs( 2) = 0.1741463150676010D-02 - ws( 1) = 0.5823688567260750D-02 - ws( 2) = 0.5152411444760082D-02 - endif - - - if( iquad .eq. 34 ) then - idomain = 34 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.1273117360972583D-04 - ierq = 0 - xs( 1) = 0.5263660708956486D-03 - xs( 2) = 0.2731403593775231D-02 - xs( 3) = 0.6513703453757570D-02 - xs( 4) = 0.1161636757855235D-01 - xs( 5) = 0.1779327454090397D-01 - xs( 6) = 0.2483112547038220D-01 - xs( 7) = 0.3255480894875530D-01 - xs( 8) = 0.4082945627036950D-01 - xs( 9) = 0.4955558484646665D-01 - xs( 10) = 0.5866129587473646D-01 - xs( 11) = 0.6809508335606389D-01 - xs( 12) = 0.7781948773040487D-01 - xs( 13) = 0.8779832869491815D-01 - xs( 14) = 0.9791933731467641D-01 - ws( 1) = 0.1346622077960767D-02 - ws( 2) = 0.3033889927490454D-02 - ws( 3) = 0.4486012595184889D-02 - ws( 4) = 0.5678219087764022D-02 - ws( 5) = 0.6639979569984832D-02 - ws( 6) = 0.7406636569889810D-02 - ws( 7) = 0.8018718453899848D-02 - ws( 8) = 0.8515120102262332D-02 - ws( 9) = 0.8927960658845014D-02 - ws( 10) = 0.9282724360445586D-02 - ws( 11) = 0.9602320480435304D-02 - ws( 12) = 0.9918506264095130D-02 - ws( 13) = 0.1032407298734141D-01 - ws( 14) = 0.1155774928578458D-01 - endif - - - if( iquad .eq. 35 ) then - idomain = 35 - rk0r = 0.1000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.1189834482849274D-04 - ierq = 0 - xs( 1) = 0.5393451188251742D-03 - xs( 2) = 0.2788852701499115D-02 - xs( 3) = 0.6624142458336707D-02 - xs( 4) = 0.1177290849138469D-01 - xs( 5) = 0.1798607887134231D-01 - xs( 6) = 0.2505288856505753D-01 - xs( 7) = 0.3280120240798404D-01 - xs( 8) = 0.4109827986970547D-01 - xs( 9) = 0.4984602209397622D-01 - xs( 10) = 0.5897339023372253D-01 - xs( 11) = 0.6842913663029979D-01 - xs( 12) = 0.7817521059088647D-01 - xs( 13) = 0.8817326241298688D-01 - xs( 14) = 0.9830132028726712D-01 - ws( 1) = 0.1378403301008833D-02 - ws( 2) = 0.3086417979146601D-02 - ws( 3) = 0.4536898747740506D-02 - ws( 4) = 0.5719186870349473D-02 - ws( 5) = 0.6672044446855996D-02 - ws( 6) = 0.7432998428412795D-02 - ws( 7) = 0.8041960992540904D-02 - ws( 8) = 0.8536953321660242D-02 - ws( 9) = 0.8949480966262822D-02 - ws( 10) = 0.9304496983026879D-02 - ws( 11) = 0.9624270016628180D-02 - ws( 12) = 0.9939453847124779D-02 - ws( 13) = 0.1034059316105830D-01 - ws( 14) = 0.1154871559366811D-01 - endif - - - if( iquad .eq. 36 ) then - idomain = 36 - rk0r = 0.1000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5999999999800001D-01 - n = 14 - err = 0.9072083186400843D-05 - ierq = 0 - xs( 1) = 0.6062254938686522D-03 - xs( 2) = 0.3087845708516389D-02 - xs( 3) = 0.7212440801528633D-02 - xs( 4) = 0.1263178851721378D-01 - xs( 5) = 0.1906532808038240D-01 - xs( 6) = 0.2629899430876948D-01 - xs( 7) = 0.3417093888126336D-01 - xs( 8) = 0.4256150940783680D-01 - xs( 9) = 0.5138422820139332D-01 - xs( 10) = 0.6057808452464980D-01 - xs( 11) = 0.7010110369244298D-01 - xs( 12) = 0.7992555951679718D-01 - xs( 13) = 0.9002955806146885D-01 - xs( 14) = 0.1003340202679551D+00 - ws( 1) = 0.1542536270798080D-02 - ws( 2) = 0.3364564815049503D-02 - ws( 3) = 0.4825096978626269D-02 - ws( 4) = 0.5967095545336976D-02 - ws( 5) = 0.6864615647080191D-02 - ws( 6) = 0.7576059005952743D-02 - ws( 7) = 0.8148412882324598D-02 - ws( 8) = 0.8619444619478743D-02 - ws( 9) = 0.9018588407919326D-02 - ws( 10) = 0.9369633606186213D-02 - ws( 11) = 0.9694854511838451D-02 - ws( 12) = 0.1002571801176974D-01 - ws( 13) = 0.1046556217738516D-01 - ws( 14) = 0.1177111058701413D-01 - endif - - - if( iquad .eq. 37 ) then - idomain = 37 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.9999999999800001D-01 - n = 14 - err = 0.8516365479009949D-05 - ierq = 0 - xs( 1) = 0.6240376665236415D-03 - xs( 2) = 0.3164076582725681D-02 - xs( 3) = 0.7355952172106503D-02 - xs( 4) = 0.1283694639154946D-01 - xs( 5) = 0.1932185050585821D-01 - xs( 6) = 0.2659377604222521D-01 - xs( 7) = 0.3449014718424200D-01 - xs( 8) = 0.4289203400075305D-01 - xs( 9) = 0.5171409574219900D-01 - xs( 10) = 0.6089621344873612D-01 - xs( 11) = 0.7039700092709242D-01 - xs( 12) = 0.8018923289781325D-01 - xs( 13) = 0.9025047689005961D-01 - xs( 14) = 0.1004812692512060D+00 - ws( 1) = 0.1585713550193510D-02 - ws( 2) = 0.3431619571293942D-02 - ws( 3) = 0.4890595298919269D-02 - ws( 4) = 0.6024226740459267D-02 - ws( 5) = 0.6909720948445973D-02 - ws( 6) = 0.7607366730168301D-02 - ws( 7) = 0.8166111494800876D-02 - ws( 8) = 0.8624615647758320D-02 - ws( 9) = 0.9012305206787283D-02 - ws( 10) = 0.9352790144356396D-02 - ws( 11) = 0.9668079319465757D-02 - ws( 12) = 0.9989403095922330D-02 - ws( 13) = 0.1042350558058539D-01 - ws( 14) = 0.1165882385832636D-01 - endif - - - if( iquad .eq. 38 ) then - idomain = 38 - rk0r = 0.1000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999980000D+00 - n = 14 - err = 0.7229285399407011D-05 - ierq = 0 - xs( 1) = 0.6474285929233760D-03 - xs( 2) = 0.3276675536226968D-02 - xs( 3) = 0.7590566918668960D-02 - xs( 4) = 0.1319230424153762D-01 - xs( 5) = 0.1978446281757756D-01 - xs( 6) = 0.2715048336658700D-01 - xs( 7) = 0.3513071800539960D-01 - xs( 8) = 0.4360852803740540D-01 - xs( 9) = 0.5249981694493935D-01 - xs( 10) = 0.6174438020014604D-01 - xs( 11) = 0.7129890734815816D-01 - xs( 12) = 0.8113242389543297D-01 - xs( 13) = 0.9121224293187909D-01 - xs( 14) = 0.1013906041952774D+00 - ws( 1) = 0.1644593661003351D-02 - ws( 2) = 0.3544411289685787D-02 - ws( 3) = 0.5015811906722395D-02 - ws( 4) = 0.6138743584560444D-02 - ws( 5) = 0.7009925578711531D-02 - ws( 6) = 0.7695872161289049D-02 - ws( 7) = 0.8245719214946916D-02 - ws( 8) = 0.8697069562788869D-02 - ws( 9) = 0.9078250278805867D-02 - ws( 10) = 0.9411634892109664D-02 - ws( 11) = 0.9716881206734349D-02 - ws( 12) = 0.1002241671290083D-01 - ws( 13) = 0.1043938359803561D-01 - ws( 14) = 0.1150796211816513D-01 - endif - - - if( iquad .eq. 39 ) then - idomain = 39 - rk0r = 0.1000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5999999999980000D+00 - n = 13 - err = 0.1127535434095526D-04 - ierq = 0 - xs( 1) = 0.7077388116606642D-03 - xs( 2) = 0.3558729476831627D-02 - xs( 3) = 0.8188575396147053D-02 - xs( 4) = 0.1413967248102037D-01 - xs( 5) = 0.2107340639152355D-01 - xs( 6) = 0.2875490541964256D-01 - xs( 7) = 0.3702241323124780D-01 - xs( 8) = 0.4576483263562063D-01 - xs( 9) = 0.5490667461773756D-01 - xs( 10) = 0.6439669498291718D-01 - xs( 11) = 0.7420307606525398D-01 - xs( 12) = 0.8430276160486315D-01 - xs( 13) = 0.9461321318089524D-01 - ws( 1) = 0.1794082483844341D-02 - ws( 2) = 0.3824898362467943D-02 - ws( 3) = 0.5357177082889695D-02 - ws( 4) = 0.6489127200187518D-02 - ws( 5) = 0.7339847222988212D-02 - ws( 6) = 0.7996891660195654D-02 - ws( 7) = 0.8520882218211089D-02 - ws( 8) = 0.8954204488226460D-02 - ws( 9) = 0.9328929621476851D-02 - ws( 10) = 0.9671539138401550D-02 - ws( 11) = 0.1001345952789510D-01 - ws( 12) = 0.1050373881456429D-01 - ws( 13) = 0.1182184110919064D-01 - endif - - - if( iquad .eq. 40 ) then - idomain = 40 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5707963267928966D+00 - n = 13 - err = 0.9802830234781786D-05 - ierq = 0 - xs( 1) = 0.5670510908098702D-03 - xs( 2) = 0.2928309166305183D-02 - xs( 3) = 0.6957615965575031D-02 - xs( 4) = 0.1236135643391739D-01 - xs( 5) = 0.1884350251530049D-01 - xs( 6) = 0.2615899794988060D-01 - xs( 7) = 0.3412515843381100D-01 - xs( 8) = 0.4261225862177147D-01 - xs( 9) = 0.5153014862170710D-01 - xs( 10) = 0.6081629002163030D-01 - xs( 11) = 0.7043002145645190D-01 - xs( 12) = 0.8033424867320360D-01 - xs( 13) = 0.9038748449687220D-01 - ws( 1) = 0.1448210435434263D-02 - ws( 2) = 0.3239786816569105D-02 - ws( 3) = 0.4768276319256766D-02 - ws( 4) = 0.5989038990466609D-02 - ws( 5) = 0.6934431881303594D-02 - ws( 6) = 0.7666732374227232D-02 - ws( 7) = 0.8245400984347709D-02 - ws( 8) = 0.8716859215665071D-02 - ws( 9) = 0.9117428191492799D-02 - ws( 10) = 0.9475750867592964D-02 - ws( 11) = 0.9826001362761121D-02 - ws( 12) = 0.1031230240906755D-01 - ws( 13) = 0.1146598681178105D-01 - endif - - - if( iquad .eq. 41 ) then - idomain = 41 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1570796326792897D+01 - n = 13 - err = 0.8958655814070245D-05 - ierq = 0 - xs( 1) = 0.3965027853790614D-03 - xs( 2) = 0.2178967314657735D-02 - xs( 3) = 0.5503654805750194D-02 - xs( 4) = 0.1024618614773451D-01 - xs( 5) = 0.1616604342403701D-01 - xs( 6) = 0.2302564100590123D-01 - xs( 7) = 0.3063113136573410D-01 - xs( 8) = 0.3883666358247199D-01 - xs( 9) = 0.4753573039696281D-01 - xs( 10) = 0.5664981430712692D-01 - xs( 11) = 0.6613061720767048D-01 - xs( 12) = 0.7591821775445667D-01 - xs( 13) = 0.8579341393315858D-01 - ws( 1) = 0.1032132566777814D-02 - ws( 2) = 0.2555704629064899D-02 - ws( 3) = 0.4069658728763262D-02 - ws( 4) = 0.5373409019498809D-02 - ws( 5) = 0.6426242911029297D-02 - ws( 6) = 0.7261214322441182D-02 - ws( 7) = 0.7927222661525733D-02 - ws( 8) = 0.8469349003002004D-02 - ws( 9) = 0.8928216127757705D-02 - ws( 10) = 0.9328728385712887D-02 - ws( 11) = 0.9714017711288322D-02 - ws( 12) = 0.1031788795446455D-01 - ws( 13) = 0.1120404936813389D-01 - endif - - - if( iquad .eq. 42 ) then - idomain = 42 - rk0r = 0.1000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 13 - err = 0.1720475946865115D-04 - ierq = 0 - xs( 1) = 0.3987641805277485D-03 - xs( 2) = 0.2075162555623435D-02 - xs( 3) = 0.4996634301150053D-02 - xs( 4) = 0.9036232178092581D-02 - xs( 5) = 0.1406002950209850D-01 - xs( 6) = 0.1994399749923715D-01 - xs( 7) = 0.2657744643334734D-01 - xs( 8) = 0.3386318646332546D-01 - xs( 9) = 0.4171685605318919D-01 - xs( 10) = 0.5006679583028025D-01 - xs( 11) = 0.5886888767685063D-01 - xs( 12) = 0.6804283699917023D-01 - xs( 13) = 0.7729301748144635D-01 - ws( 1) = 0.1020165723018828D-02 - ws( 2) = 0.2317948852934601D-02 - ws( 3) = 0.3503118149542657D-02 - ws( 4) = 0.4553418427604011D-02 - ws( 5) = 0.5473577203146837D-02 - ws( 6) = 0.6276805744473303D-02 - ws( 7) = 0.6976220476133338D-02 - ws( 8) = 0.7586834568900283D-02 - ws( 9) = 0.8130341498746923D-02 - ws( 10) = 0.8618816750124872D-02 - ws( 11) = 0.9119610873795711D-02 - ws( 12) = 0.9959324231257798D-02 - ws( 13) = 0.1062625700246113D-01 - endif - - - if( iquad .eq. 43 ) then - idomain = 43 - rk0r = 0.1000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 9 - err = 0.2470006179640917D-04 - ierq = 0 - xs( 1) = 0.2603407871666923D-03 - xs( 2) = 0.1399488866005099D-02 - xs( 3) = 0.3506227259370357D-02 - xs( 4) = 0.6597065887906619D-02 - xs( 5) = 0.1062114836925362D-01 - xs( 6) = 0.1550589233274528D-01 - xs( 7) = 0.2118771126769546D-01 - xs( 8) = 0.2744829271990201D-01 - xs( 9) = 0.3391136174879861D-01 - ws( 1) = 0.6819566913491385D-03 - ws( 2) = 0.1631885553632064D-02 - ws( 3) = 0.2611080440722396D-02 - ws( 4) = 0.3590419072920440D-02 - ws( 5) = 0.4538697137105185D-02 - ws( 6) = 0.5368334148545191D-02 - ws( 7) = 0.6244528597711131D-02 - ws( 8) = 0.7448940638970274D-02 - ws( 9) = 0.7774494160347120D-02 - endif - - - if( iquad .eq. 44 ) then - idomain = 44 - rk0r = 0.1000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 2 - err = 0.5317826647494807D-04 - ierq = 0 - xs( 1) = 0.6388406918366426D-03 - xs( 2) = 0.1364246799215743D-02 - ws( 1) = 0.5856793237767464D-02 - ws( 2) = 0.4741136439798743D-02 - endif - - - if( iquad .eq. 45 ) then - idomain = 45 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.1553511593178544D-04 - ierq = 0 - xs( 1) = 0.4388309293462688D-03 - xs( 2) = 0.2355852044867067D-02 - xs( 3) = 0.5815652718642292D-02 - xs( 4) = 0.1064291532738377D-01 - xs( 5) = 0.1659829519729764D-01 - xs( 6) = 0.2346051691323686D-01 - xs( 7) = 0.3104625837237448D-01 - xs( 8) = 0.3921333593460077D-01 - xs( 9) = 0.4785674917003369D-01 - xs( 10) = 0.5690154872849845D-01 - xs( 11) = 0.6629597500881708D-01 - xs( 12) = 0.7600489478142861D-01 - xs( 13) = 0.8599897518294136D-01 - xs( 14) = 0.9619324967619718D-01 - ws( 1) = 0.1134112419440830D-02 - ws( 2) = 0.2704589563737223D-02 - ws( 3) = 0.4182582722089374D-02 - ws( 4) = 0.5430886885813358D-02 - ws( 5) = 0.6442792536816076D-02 - ws( 6) = 0.7251155807271571D-02 - ws( 7) = 0.7897038754507958D-02 - ws( 8) = 0.8420660283728894D-02 - ws( 9) = 0.8856363590783902D-02 - ws( 10) = 0.9232312346327300D-02 - ws( 11) = 0.9573845907228117D-02 - ws( 12) = 0.9915429132304107D-02 - ws( 13) = 0.1035595891529524D-01 - ws( 14) = 0.1168510861826937D-01 - endif - - - if( iquad .eq. 46 ) then - idomain = 46 - rk0r = 0.2000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.1504198031318924D-04 - ierq = 0 - xs( 1) = 0.4210495344312609D-03 - xs( 2) = 0.2295682317813669D-02 - xs( 3) = 0.5738496983226422D-02 - xs( 4) = 0.1057784398108296D-01 - xs( 5) = 0.1655821686945595D-01 - xs( 6) = 0.2344622659166216D-01 - xs( 7) = 0.3105362769740090D-01 - xs( 8) = 0.3923729379923182D-01 - xs( 9) = 0.4789260432750304D-01 - xs( 10) = 0.5694520532466641D-01 - xs( 11) = 0.6634390653018392D-01 - xs( 12) = 0.7605419000666440D-01 - xs( 13) = 0.8604812720878215D-01 - xs( 14) = 0.9624873703622119D-01 - ws( 1) = 0.1093704708804964D-02 - ws( 2) = 0.2670444542826356D-02 - ws( 3) = 0.4182470107659724D-02 - ws( 4) = 0.5452106927779084D-02 - ws( 5) = 0.6469522952836738D-02 - ws( 6) = 0.7275250252349115D-02 - ws( 7) = 0.7916146211526009D-02 - ws( 8) = 0.8434802427628629D-02 - ws( 9) = 0.8866121216501781D-02 - ws( 10) = 0.9238214438630273D-02 - ws( 11) = 0.9576506083216129D-02 - ws( 12) = 0.9915527503418585D-02 - ws( 13) = 0.1035506502267984D-01 - ws( 14) = 0.1170250942609388D-01 - endif - - - if( iquad .eq. 47 ) then - idomain = 47 - rk0r = 0.2000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5999999999800001D-01 - n = 14 - err = 0.1974948319752419D-04 - ierq = 0 - xs( 1) = 0.2790795439652044D-03 - xs( 2) = 0.1928997793278635D-02 - xs( 3) = 0.5333522526116381D-02 - xs( 4) = 0.1023567843152545D-01 - xs( 5) = 0.1630696861986946D-01 - xs( 6) = 0.2328198398969239D-01 - xs( 7) = 0.3096315177555096D-01 - xs( 8) = 0.3920691674374237D-01 - xs( 9) = 0.4791046105010755D-01 - xs( 10) = 0.5700131713121866D-01 - xs( 11) = 0.6642987736027704D-01 - xs( 12) = 0.7616316169841585D-01 - xs( 13) = 0.8617747920971615D-01 - xs( 14) = 0.9642203751732416D-01 - ws( 1) = 0.8069316947659001D-03 - ws( 2) = 0.2545971255299117D-02 - ws( 3) = 0.4211040417024013D-02 - ws( 4) = 0.5537115942706452D-02 - ws( 5) = 0.6561335985550616D-02 - ws( 6) = 0.7356108443424649D-02 - ws( 7) = 0.7982798020090965D-02 - ws( 8) = 0.8488595135247915D-02 - ws( 9) = 0.8909054290800668D-02 - ws( 10) = 0.9271770516946391D-02 - ws( 11) = 0.9602349527600350D-02 - ws( 12) = 0.9935161348321498D-02 - ws( 13) = 0.1037513277076306D-01 - ws( 14) = 0.1178104421091765D-01 - endif - - - if( iquad .eq. 48 ) then - idomain = 48 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.9999999999800001D-01 - n = 14 - err = 0.1328256878947589D-04 - ierq = 0 - xs( 1) = 0.5858615735756994D-03 - xs( 2) = 0.3009288602510282D-02 - xs( 3) = 0.7084086042313242D-02 - xs( 4) = 0.1246825802191570D-01 - xs( 5) = 0.1886939576398320D-01 - xs( 6) = 0.2606805755788517D-01 - xs( 7) = 0.3390277739705308D-01 - xs( 8) = 0.4225528733785736D-01 - xs( 9) = 0.5103994422432370D-01 - xs( 10) = 0.6019578709765897D-01 - xs( 11) = 0.6968047102417015D-01 - xs( 12) = 0.7946547174256738D-01 - xs( 13) = 0.8952429263640151D-01 - xs( 14) = 0.9975138993232910D-01 - ws( 1) = 0.1494609272970976D-02 - ws( 2) = 0.3305737386894456D-02 - ws( 3) = 0.4784544693013312D-02 - ws( 4) = 0.5934974018552345D-02 - ws( 5) = 0.6831105173835685D-02 - ws( 6) = 0.7539699739481462D-02 - ws( 7) = 0.8110608158937405D-02 - ws( 8) = 0.8581275896943892D-02 - ws( 9) = 0.8980586701731482D-02 - ws( 10) = 0.9331979041872183D-02 - ws( 11) = 0.9656206910461332D-02 - ws( 12) = 0.9985605010978241D-02 - ws( 13) = 0.1042382220116643D-01 - ws( 14) = 0.1164773155918328D-01 - endif - - - if( iquad .eq. 49 ) then - idomain = 49 - rk0r = 0.2000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999980000D+00 - n = 13 - err = 0.3200520335690575D-04 - ierq = 0 - xs( 1) = 0.6852640386982329D-03 - xs( 2) = 0.3484365018263241D-02 - xs( 3) = 0.8089874921308034D-02 - xs( 4) = 0.1404110696622070D-01 - xs( 5) = 0.2098129293172288D-01 - xs( 6) = 0.2866539231378682D-01 - xs( 7) = 0.3692814593862848D-01 - xs( 8) = 0.4565743370100102D-01 - xs( 9) = 0.5477674794769161D-01 - xs( 10) = 0.6423473017914334D-01 - xs( 11) = 0.7399985187800001D-01 - xs( 12) = 0.8405088688709685D-01 - xs( 13) = 0.9435005603256479D-01 - ws( 1) = 0.1743600082392900D-02 - ws( 2) = 0.3783115600699997D-02 - ws( 3) = 0.5348399370361386D-02 - ws( 4) = 0.6494909358695855D-02 - ws( 5) = 0.7345393350419319D-02 - ws( 6) = 0.7996161736504184D-02 - ws( 7) = 0.8512051434441770D-02 - ws( 8) = 0.8936671536350487D-02 - ws( 9) = 0.9301787413802049D-02 - ws( 10) = 0.9633441681137290D-02 - ws( 11) = 0.9969429221226327D-02 - ws( 12) = 0.1043341399758520D-01 - ws( 13) = 0.1186224544127422D-01 - endif - - - if( iquad .eq. 50 ) then - idomain = 50 - rk0r = 0.2000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5999999999980000D+00 - n = 13 - err = 0.1567500540483065D-04 - ierq = 0 - xs( 1) = 0.6926778599201611D-03 - xs( 2) = 0.3509876614838526D-02 - xs( 3) = 0.8134135333404208D-02 - xs( 4) = 0.1410866816677011D-01 - xs( 5) = 0.2107570575279556D-01 - xs( 6) = 0.2878773640059491D-01 - xs( 7) = 0.3707892727548914D-01 - xs( 8) = 0.4583829728039431D-01 - xs( 9) = 0.5499162478247726D-01 - xs( 10) = 0.6448899320781534D-01 - xs( 11) = 0.7429997245532613D-01 - xs( 12) = 0.8440242323335317D-01 - xs( 13) = 0.9470470021805384D-01 - ws( 1) = 0.1760078822696787D-02 - ws( 2) = 0.3801037375352020D-02 - ws( 3) = 0.5369103303308434D-02 - ws( 4) = 0.6520471368309880D-02 - ws( 5) = 0.7373029596837122D-02 - ws( 6) = 0.8024206543288271D-02 - ws( 7) = 0.8541043316827233D-02 - ws( 8) = 0.8968224182748862D-02 - ws( 9) = 0.9338325717882038D-02 - ws( 10) = 0.9677452201914518D-02 - ws( 11) = 0.1001774084618291D-01 - ws( 12) = 0.1050963807416536D-01 - ws( 13) = 0.1179253394460405D-01 - endif - - - if( iquad .eq. 51 ) then - idomain = 51 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5707963267928966D+00 - n = 13 - err = 0.1005517678848978D-04 - ierq = 0 - xs( 1) = 0.5587182190429872D-03 - xs( 2) = 0.2889326422237722D-02 - xs( 3) = 0.6877384987663596D-02 - xs( 4) = 0.1224010672569742D-01 - xs( 5) = 0.1868676833434171D-01 - xs( 6) = 0.2597366276104492D-01 - xs( 7) = 0.3391758946313217D-01 - xs( 8) = 0.4238776085336353D-01 - xs( 9) = 0.5129288945412110D-01 - xs( 10) = 0.6056945226590998D-01 - xs( 11) = 0.7017567496712682D-01 - xs( 12) = 0.8007147919936049D-01 - xs( 13) = 0.9009272594065404D-01 - ws( 1) = 0.1427471964172723D-02 - ws( 2) = 0.3201597249148292D-02 - ws( 3) = 0.4725810112735095D-02 - ws( 4) = 0.5950306516951965D-02 - ws( 5) = 0.6902384544860202D-02 - ws( 6) = 0.7641486529132706D-02 - ws( 7) = 0.8225995677189278D-02 - ws( 8) = 0.8702247431555990D-02 - ws( 9) = 0.9106678642354447D-02 - ws( 10) = 0.9467524380312259D-02 - ws( 11) = 0.9820396962043919D-02 - ws( 12) = 0.1030888140777161D-01 - ws( 13) = 0.1138871155237427D-01 - endif - - - if( iquad .eq. 52 ) then - idomain = 52 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1570796326792897D+01 - n = 13 - err = 0.1338558968638988D-04 - ierq = 0 - xs( 1) = 0.3345218051980817D-03 - xs( 2) = 0.1973454037267549D-02 - xs( 3) = 0.5189349879072365D-02 - xs( 4) = 0.9848443098058051D-02 - xs( 5) = 0.1569879164714890D-01 - xs( 6) = 0.2250124504922179D-01 - xs( 7) = 0.3006103602492003D-01 - xs( 8) = 0.3822992182308241D-01 - xs( 9) = 0.4689807180996598D-01 - xs( 10) = 0.5598365582059951D-01 - xs( 11) = 0.6543509984120939D-01 - xs( 12) = 0.7518962991964909D-01 - xs( 13) = 0.8501720766678202D-01 - ws( 1) = 0.8951836479276662D-03 - ws( 2) = 0.2426668754960561D-02 - ws( 3) = 0.3976898980007003D-02 - ws( 4) = 0.5297576206868275D-02 - ws( 5) = 0.6362969069526021D-02 - ws( 6) = 0.7210077192486672D-02 - ws( 7) = 0.7886565222413175D-02 - ws( 8) = 0.8436261049676258D-02 - ws( 9) = 0.8899217279477482D-02 - ws( 10) = 0.9300776691029534D-02 - ws( 11) = 0.9685245558383298D-02 - ws( 12) = 0.1028679168847668D-01 - ws( 13) = 0.1113750016024689D-01 - endif - - - if( iquad .eq. 53 ) then - idomain = 53 - rk0r = 0.2000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 12 - err = 0.1790649649256448D-04 - ierq = 0 - xs( 1) = 0.3395129778495780D-03 - xs( 2) = 0.1801504389153423D-02 - xs( 3) = 0.4445581341611159D-02 - xs( 4) = 0.8221995612430352D-02 - xs( 5) = 0.1302341685494076D-01 - xs( 6) = 0.1872426113672842D-01 - xs( 7) = 0.2520602779017567D-01 - xs( 8) = 0.3236258120855891D-01 - xs( 9) = 0.4010061769745637D-01 - xs( 10) = 0.4834849188576610D-01 - xs( 11) = 0.5696691850892472D-01 - xs( 12) = 0.6556362659275321D-01 - ws( 1) = 0.8729502742676582D-03 - ws( 2) = 0.2054726267146639D-02 - ws( 3) = 0.3224427506475005D-02 - ws( 4) = 0.4309698182908964D-02 - ws( 5) = 0.5272862388935550D-02 - ws( 6) = 0.6111826534169849D-02 - ws( 7) = 0.6842318806591544D-02 - ws( 8) = 0.7485338835758736D-02 - ws( 9) = 0.8048949325372978D-02 - ws( 10) = 0.8624036935010355D-02 - ws( 11) = 0.9489838687690500D-02 - ws( 12) = 0.9816709922948761D-02 - endif - - - if( iquad .eq. 54 ) then - idomain = 54 - rk0r = 0.2000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 9 - err = 0.2873733380629295D-04 - ierq = 0 - xs( 1) = 0.2359185620256533D-03 - xs( 2) = 0.1290044688398222D-02 - xs( 3) = 0.3277049023359303D-02 - xs( 4) = 0.6224338412423554D-02 - xs( 5) = 0.1008409310813134D-01 - xs( 6) = 0.1478674375175362D-01 - xs( 7) = 0.2027263337913444D-01 - xs( 8) = 0.2634444541053641D-01 - xs( 9) = 0.3263332005637587D-01 - ws( 1) = 0.6247965539660553D-03 - ws( 2) = 0.1527332759098831D-02 - ws( 3) = 0.2482315272338048D-02 - ws( 4) = 0.3439961170331091D-02 - ws( 5) = 0.4367517168889066D-02 - ws( 6) = 0.5188764846697259D-02 - ws( 7) = 0.6059026770176642D-02 - ws( 8) = 0.7263534468265265D-02 - ws( 9) = 0.7643001024153524D-02 - endif - - - if( iquad .eq. 55 ) then - idomain = 55 - rk0r = 0.2000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 2 - err = 0.5085167301537056D-04 - ierq = 0 - xs( 1) = 0.8626957978482202D-03 - xs( 2) = 0.1389132862130877D-02 - ws( 1) = 0.5592210469885052D-02 - ws( 2) = 0.5194698579069046D-02 - endif - - - if( iquad .eq. 56 ) then - idomain = 56 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.2360171780993442D-04 - ierq = 0 - xs( 1) = 0.2259744307858396D-03 - xs( 2) = 0.1346832200078956D-02 - xs( 3) = 0.3799811770028211D-02 - xs( 4) = 0.7832812656799899D-02 - xs( 5) = 0.1330680136348393D-01 - xs( 6) = 0.1991000464477627D-01 - xs( 7) = 0.2736459000261408D-01 - xs( 8) = 0.3547007495594864D-01 - xs( 9) = 0.4408895259065464D-01 - xs( 10) = 0.5312629084499763D-01 - xs( 11) = 0.6251653519781894D-01 - xs( 12) = 0.7221515677634341D-01 - xs( 13) = 0.8218550096534338D-01 - xs( 14) = 0.9232985455105029D-01 - ws( 1) = 0.6006317226407558D-03 - ws( 2) = 0.1717265113406400D-02 - ws( 3) = 0.3235426935201523D-02 - ws( 4) = 0.4801555254621494D-02 - ws( 5) = 0.6091110230953208D-02 - ws( 6) = 0.7068728159954917D-02 - ws( 7) = 0.7807686664738409D-02 - ws( 8) = 0.8381574927619534D-02 - ws( 9) = 0.8843209560230103D-02 - ws( 10) = 0.9229319805474734D-02 - ws( 11) = 0.9567780827818510D-02 - ws( 12) = 0.9903089315183751D-02 - ws( 13) = 0.1034177798702210D-01 - ws( 14) = 0.1159901214857440D-01 - endif - - - if( iquad .eq. 57 ) then - idomain = 57 - rk0r = 0.4000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 14 - err = 0.2213506935031719D-04 - ierq = 0 - xs( 1) = 0.2180766170644714D-03 - xs( 2) = 0.1346752476779314D-02 - xs( 3) = 0.3870117532487482D-02 - xs( 4) = 0.8010965783582447D-02 - xs( 5) = 0.1357589455749969D-01 - xs( 6) = 0.2023811424535955D-01 - xs( 7) = 0.2773115633593419D-01 - xs( 8) = 0.3586552439312964D-01 - xs( 9) = 0.4450991984389061D-01 - xs( 10) = 0.5357240166466057D-01 - xs( 11) = 0.6298836217424704D-01 - xs( 12) = 0.7271123276393786D-01 - xs( 13) = 0.8269963005907911D-01 - xs( 14) = 0.9283666637494249D-01 - ws( 1) = 0.5876687909322937D-03 - ws( 2) = 0.1754713632191596D-02 - ws( 3) = 0.3334081954173560D-02 - ws( 4) = 0.4907726019403184D-02 - ws( 5) = 0.6165002371774419D-02 - ws( 6) = 0.7115183032610624D-02 - ws( 7) = 0.7839881771170839D-02 - ws( 8) = 0.8407981358856323D-02 - ws( 9) = 0.8868290311169100D-02 - ws( 10) = 0.9254530331893940D-02 - ws( 11) = 0.9592714487254624D-02 - ws( 12) = 0.9926951104855810D-02 - ws( 13) = 0.1035102754989975D-01 - ws( 14) = 0.1156607563344966D-01 - endif - - - if( iquad .eq. 58 ) then - idomain = 58 - rk0r = 0.4000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5999999999800001D-01 - n = 14 - err = 0.2816990495823738D-04 - ierq = 0 - xs( 1) = 0.1137972031103629D-03 - xs( 2) = 0.1155297792279082D-02 - xs( 3) = 0.3739147122888994D-02 - xs( 4) = 0.8015926329299709D-02 - xs( 5) = 0.1372685488928430D-01 - xs( 6) = 0.2050634776028101D-01 - xs( 7) = 0.2808452386549730D-01 - xs( 8) = 0.3628206339780213D-01 - xs( 9) = 0.4497871706048905D-01 - xs( 10) = 0.5409093636727409D-01 - xs( 11) = 0.6355991163998453D-01 - xs( 12) = 0.7334181612927909D-01 - xs( 13) = 0.8339979690049669D-01 - xs( 14) = 0.9361236833585590D-01 - ws( 1) = 0.4072394435739253D-03 - ws( 2) = 0.1756200170823682D-02 - ws( 3) = 0.3442988320011333D-02 - ws( 4) = 0.5058797636042832D-02 - ws( 5) = 0.6299431184312178D-02 - ws( 6) = 0.7215134429916882D-02 - ws( 7) = 0.7911947091475566D-02 - ws( 8) = 0.8463990892676174D-02 - ws( 9) = 0.8918158810206257D-02 - ws( 10) = 0.9304694155266507D-02 - ws( 11) = 0.9647923268979106D-02 - ws( 12) = 0.9990719813818202D-02 - ws( 13) = 0.1042248789758889D-01 - ws( 14) = 0.1164756830645580D-01 - endif - - - if( iquad .eq. 59 ) then - idomain = 59 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.9999999999800001D-01 - n = 14 - err = 0.1469213286070074D-04 - ierq = 0 - xs( 1) = 0.3648267670560300D-03 - xs( 2) = 0.1994690105747164D-02 - xs( 3) = 0.5110270138387041D-02 - xs( 4) = 0.9715914119937540D-02 - xs( 5) = 0.1558883925130336D-01 - xs( 6) = 0.2244794305443137D-01 - xs( 7) = 0.3006134289298901D-01 - xs( 8) = 0.3826256340167040D-01 - xs( 9) = 0.4693630238447424D-01 - xs( 10) = 0.5600269494559159D-01 - xs( 11) = 0.6540722297799273D-01 - xs( 12) = 0.7511538265470301D-01 - xs( 13) = 0.8509420853637917D-01 - xs( 14) = 0.9521299351335154D-01 - ws( 1) = 0.9456290152227244D-03 - ws( 2) = 0.2349394520483923D-02 - ws( 3) = 0.3883294783213738D-02 - ws( 4) = 0.5287027316640742D-02 - ws( 5) = 0.6410329154250787D-02 - ws( 6) = 0.7269245617512137D-02 - ws( 7) = 0.7930535794756293D-02 - ws( 8) = 0.8454051736812672D-02 - ws( 9) = 0.8883018293970486D-02 - ws( 10) = 0.9249444239192613D-02 - ws( 11) = 0.9579919549446611D-02 - ws( 12) = 0.9910259185477652D-02 - ws( 13) = 0.1036321574378452D-01 - ws( 14) = 0.1149976871200455D-01 - endif - - - if( iquad .eq. 60 ) then - idomain = 60 - rk0r = 0.4000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999980000D+00 - n = 14 - err = 0.1137917965516811D-04 - ierq = 0 - xs( 1) = 0.3822216744968104D-03 - xs( 2) = 0.2088993641667746D-02 - xs( 3) = 0.5339439893385416D-02 - xs( 4) = 0.1011408420771275D-01 - xs( 5) = 0.1615631755024395D-01 - xs( 6) = 0.2316441158750491D-01 - xs( 7) = 0.3090289307573859D-01 - xs( 8) = 0.3921012113013070D-01 - xs( 9) = 0.4797759723500866D-01 - xs( 10) = 0.5713073754410385D-01 - xs( 11) = 0.6661607917160813D-01 - xs( 12) = 0.7639543704996983D-01 - xs( 13) = 0.8642450328601872D-01 - xs( 14) = 0.9649817877104935D-01 - ws( 1) = 0.9908737511409263D-03 - ws( 2) = 0.2457525611958775D-02 - ws( 3) = 0.4040828637907981D-02 - ws( 4) = 0.5461287544764868D-02 - ws( 5) = 0.6571244013792449D-02 - ws( 6) = 0.7405900170557952D-02 - ws( 7) = 0.8044956783040010D-02 - ws( 8) = 0.8552797878568963D-02 - ws( 9) = 0.8972581662261650D-02 - ws( 10) = 0.9333906333063335D-02 - ws( 11) = 0.9656878447803035D-02 - ws( 12) = 0.9975811103716779D-02 - ws( 13) = 0.1041302407042064D-01 - ws( 14) = 0.1130814431271475D-01 - endif - - - if( iquad .eq. 61 ) then - idomain = 61 - rk0r = 0.4000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5999999999980000D+00 - n = 14 - err = 0.1619368736752903D-04 - ierq = 0 - xs( 1) = 0.3653227458900842D-03 - xs( 2) = 0.2073649685205224D-02 - xs( 3) = 0.5401391651833365D-02 - xs( 4) = 0.1026675433250557D-01 - xs( 5) = 0.1638424348314862D-01 - xs( 6) = 0.2345515927384666D-01 - xs( 7) = 0.3124778025610633D-01 - xs( 8) = 0.3960066784139675D-01 - xs( 9) = 0.4840396496873423D-01 - xs( 10) = 0.5758203075389906D-01 - xs( 11) = 0.6708250002308665D-01 - xs( 12) = 0.7687291319119642D-01 - xs( 13) = 0.8691841101468892D-01 - xs( 14) = 0.9703567252404691D-01 - ws( 1) = 0.9604422326333398D-03 - ws( 2) = 0.2503228012769367D-02 - ws( 3) = 0.4135055097874981D-02 - ws( 4) = 0.5544664678639163D-02 - ws( 5) = 0.6639331337989761D-02 - ws( 6) = 0.7464073401924584D-02 - ws( 7) = 0.8095049904676761D-02 - ws( 8) = 0.8593758992512416D-02 - ws( 9) = 0.9002938243343809D-02 - ws( 10) = 0.9354053619710610D-02 - ws( 11) = 0.9668874092148588D-02 - ws( 12) = 0.9986567810912863D-02 - ws( 13) = 0.1046389870267039D-01 - ws( 14) = 0.1138571876610583D-01 - endif - - - if( iquad .eq. 62 ) then - idomain = 62 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5707963267928966D+00 - n = 13 - err = 0.8477779330101958D-05 - ierq = 0 - xs( 1) = 0.5778317820481925D-03 - xs( 2) = 0.2988034564954659D-02 - xs( 3) = 0.7109188547004031D-02 - xs( 4) = 0.1263963817554878D-01 - xs( 5) = 0.1926801384614938D-01 - xs( 6) = 0.2673430383834618D-01 - xs( 7) = 0.3484543963092156D-01 - xs( 8) = 0.4346633525987170D-01 - xs( 9) = 0.5250374875184881D-01 - xs( 10) = 0.6189379540986373D-01 - xs( 11) = 0.7159481196749745D-01 - xs( 12) = 0.8156467329022626D-01 - xs( 13) = 0.9162804517408128D-01 - ws( 1) = 0.1476297975330218D-02 - ws( 2) = 0.3310487926935915D-02 - ws( 3) = 0.4879768188984096D-02 - ws( 4) = 0.6128212090356653D-02 - ws( 5) = 0.7085133753774884D-02 - ws( 6) = 0.7815912889363699D-02 - ws( 7) = 0.8385178528615504D-02 - ws( 8) = 0.8843893753955983D-02 - ws( 9) = 0.9230207838316858D-02 - ws( 10) = 0.9570423886317908D-02 - ws( 11) = 0.9905272945062504D-02 - ws( 12) = 0.1039790283135615D-01 - ws( 13) = 0.1134203846165818D-01 - endif - - - if( iquad .eq. 63 ) then - idomain = 63 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1570796326792897D+01 - n = 13 - err = 0.1010776931025551D-04 - ierq = 0 - xs( 1) = 0.4938054782095628D-03 - xs( 2) = 0.2560584912586260D-02 - xs( 3) = 0.6126517104671321D-02 - xs( 4) = 0.1098381874331592D-01 - xs( 5) = 0.1691207668169023D-01 - xs( 6) = 0.2371303640398085D-01 - xs( 7) = 0.3122381114236056D-01 - xs( 8) = 0.3931714534354179D-01 - xs( 9) = 0.4789466765473475D-01 - xs( 10) = 0.5688099855709230D-01 - xs( 11) = 0.6622256112357157D-01 - xs( 12) = 0.7582710260007292D-01 - xs( 13) = 0.8529648171624200D-01 - ws( 1) = 0.1262407996035137D-02 - ws( 2) = 0.2847374430296769D-02 - ws( 3) = 0.4248864912143099D-02 - ws( 4) = 0.5428450183364480D-02 - ws( 5) = 0.6395057391562954D-02 - ws( 6) = 0.7180494157178410D-02 - ws( 7) = 0.7821458619988541D-02 - ws( 8) = 0.8353121470705254D-02 - ws( 9) = 0.8805649711898076D-02 - ws( 10) = 0.9197223995685755D-02 - ws( 11) = 0.9588197921608302D-02 - ws( 12) = 0.1017101192132087D-01 - ws( 13) = 0.1025171966440421D-01 - endif - - - if( iquad .eq. 64 ) then - idomain = 64 - rk0r = 0.4000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 12 - err = 0.1769921452486737D-04 - ierq = 0 - xs( 1) = 0.3572822658410355D-03 - xs( 2) = 0.1871045967981534D-02 - xs( 3) = 0.4546718740364611D-02 - xs( 4) = 0.8302677195951730D-02 - xs( 5) = 0.1303326274014873D-01 - xs( 6) = 0.1862818497261243D-01 - xs( 7) = 0.2498318419084432D-01 - xs( 8) = 0.3200126904267995D-01 - xs( 9) = 0.3959487885074377D-01 - xs( 10) = 0.4768709549470233D-01 - xs( 11) = 0.5611138994356595D-01 - xs( 12) = 0.6439122614026616D-01 - ws( 1) = 0.9153375482459907D-03 - ws( 2) = 0.2105032246156017D-02 - ws( 3) = 0.3231943719687038D-02 - ws( 4) = 0.4262164532791938D-02 - ws( 5) = 0.5181795742539685D-02 - ws( 6) = 0.5993941769527064D-02 - ws( 7) = 0.6711414280922422D-02 - ws( 8) = 0.7346526195487171D-02 - ws( 9) = 0.7905660536810855D-02 - ws( 10) = 0.8503083032237312D-02 - ws( 11) = 0.9346862423102190D-02 - ws( 12) = 0.8982945398118320D-02 - endif - - - if( iquad .eq. 65 ) then - idomain = 65 - rk0r = 0.4000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 9 - err = 0.2404892608272630D-04 - ierq = 0 - xs( 1) = 0.3062052990329578D-03 - xs( 2) = 0.1614308464126584D-02 - xs( 3) = 0.3936085527254526D-02 - xs( 4) = 0.7220216555725548D-02 - xs( 5) = 0.1139956103601577D-01 - xs( 6) = 0.1639680895062367D-01 - xs( 7) = 0.2213277830919896D-01 - xs( 8) = 0.2844795847450243D-01 - xs( 9) = 0.3488871925585951D-01 - ws( 1) = 0.7982812214217921D-03 - ws( 2) = 0.1834858744937775D-02 - ws( 3) = 0.2831221778036232D-02 - ws( 4) = 0.3775484678499977D-02 - ws( 5) = 0.4660669049897093D-02 - ws( 6) = 0.5480791570588081D-02 - ws( 7) = 0.6322325767256986D-02 - ws( 8) = 0.7394441402373737D-02 - ws( 9) = 0.7492920756261449D-02 - endif - - - if( iquad .eq. 66 ) then - idomain = 66 - rk0r = 0.4000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 2 - err = 0.3989485742073527D-04 - ierq = 0 - xs( 1) = 0.1381150465382123D-02 - xs( 2) = 0.2469850904856677D-02 - ws( 1) = 0.5544478184324231D-02 - ws( 2) = 0.6247486815404608D-02 - endif - - - if( iquad .eq. 67 ) then - idomain = 67 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999800000D-01 - n = 13 - err = 0.7183560265243568D-04 - ierq = 0 - xs( 1) = 0.2507958122227811D-03 - xs( 2) = 0.1416076482793915D-02 - xs( 3) = 0.3904469531272881D-02 - xs( 4) = 0.8194309091732726D-02 - xs( 5) = 0.1425448944716660D-01 - xs( 6) = 0.2158098019791806D-01 - xs( 7) = 0.2973876229522971D-01 - xs( 8) = 0.3847730135659480D-01 - xs( 9) = 0.4765475146697007D-01 - xs( 10) = 0.5718466767481754D-01 - xs( 11) = 0.6700923675164767D-01 - xs( 12) = 0.7706519312118383D-01 - xs( 13) = 0.8716632185767541D-01 - ws( 1) = 0.6541453110584983D-03 - ws( 2) = 0.1740532917505446D-02 - ws( 3) = 0.3330940852798686D-02 - ws( 4) = 0.5241393173554536D-02 - ws( 5) = 0.6782921937034906D-02 - ws( 6) = 0.7797624923855276D-02 - ws( 7) = 0.8479307762796632D-02 - ws( 8) = 0.8979176835259251D-02 - ws( 9) = 0.9373702405768732D-02 - ws( 10) = 0.9704439428350062D-02 - ws( 11) = 0.1002498101328645D-01 - ws( 12) = 0.1045469720184902D-01 - ws( 13) = 0.1125141978710354D-01 - endif - - - if( iquad .eq. 68 ) then - idomain = 68 - rk0r = 0.1000000000001000D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999800000D-01 - n = 13 - err = 0.6721025750724302D-04 - ierq = 0 - xs( 1) = 0.2586372997504268D-03 - xs( 2) = 0.1457468166719655D-02 - xs( 3) = 0.4005552307989710D-02 - xs( 4) = 0.8358928920412628D-02 - xs( 5) = 0.1445213782150414D-01 - xs( 6) = 0.2178790481920767D-01 - xs( 7) = 0.2994729000068875D-01 - xs( 8) = 0.3868761244853657D-01 - xs( 9) = 0.4787131762885833D-01 - xs( 10) = 0.5741471812388591D-01 - xs( 11) = 0.6726145268502512D-01 - xs( 12) = 0.7734734038035621D-01 - xs( 13) = 0.8748457139445892D-01 - ws( 1) = 0.6742561722557453D-03 - ws( 2) = 0.1787739482594359D-02 - ws( 3) = 0.3399769419008256D-02 - ws( 4) = 0.5292041985138403D-02 - ws( 5) = 0.6800700759828377D-02 - ws( 6) = 0.7801141633233471D-02 - ws( 7) = 0.8480064877377964D-02 - ws( 8) = 0.8982620727751613D-02 - ws( 9) = 0.9383105597790943D-02 - ws( 10) = 0.9722186841966811D-02 - ws( 11) = 0.1005270133475533D-01 - ws( 12) = 0.1048776677360969D-01 - ws( 13) = 0.1129579592966058D-01 - endif - - - if( iquad .eq. 69 ) then - idomain = 69 - rk0r = 0.1000000000001000D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5999999999800001D-01 - n = 13 - err = 0.6426149824242299D-04 - ierq = 0 - xs( 1) = 0.2746567781750264D-03 - xs( 2) = 0.1540686827888186D-02 - xs( 3) = 0.4200940576974691D-02 - xs( 4) = 0.8665914239121001D-02 - xs( 5) = 0.1481538013330146D-01 - xs( 6) = 0.2216162558528566D-01 - xs( 7) = 0.3031181800980992D-01 - xs( 8) = 0.3903725909786464D-01 - xs( 9) = 0.4820880799963900D-01 - xs( 10) = 0.5774921609821296D-01 - xs( 11) = 0.6760772133660051D-01 - xs( 12) = 0.7772269644604814D-01 - xs( 13) = 0.8790638129759180D-01 - ws( 1) = 0.7152332452111867D-03 - ws( 2) = 0.1880357542154439D-02 - ws( 3) = 0.3523934190086628D-02 - ws( 4) = 0.5379617117000428D-02 - ws( 5) = 0.6828886374055928D-02 - ws( 6) = 0.7798407814968834D-02 - ws( 7) = 0.8466273281100913D-02 - ws( 8) = 0.8967785604591515D-02 - ws( 9) = 0.9374455553081617D-02 - ws( 10) = 0.9725885986233083D-02 - ws( 11) = 0.1007468669680039D-01 - ws( 12) = 0.1052875829590031D-01 - ws( 13) = 0.1136698676633665D-01 - endif - - - if( iquad .eq. 70 ) then - idomain = 70 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.9999999999800001D-01 - n = 13 - err = 0.6857519266523201D-04 - ierq = 0 - xs( 1) = 0.3040038833632789D-03 - xs( 2) = 0.1695060246792402D-02 - xs( 3) = 0.4561999391449276D-02 - xs( 4) = 0.9234855036713074D-02 - xs( 5) = 0.1552189199948462D-01 - xs( 6) = 0.2293968315615429D-01 - xs( 7) = 0.3111729934786143D-01 - xs( 8) = 0.3983809316752811D-01 - xs( 9) = 0.4898073966261739D-01 - xs( 10) = 0.5847731569694173D-01 - xs( 11) = 0.6828952759198754D-01 - xs( 12) = 0.7837543197786898D-01 - xs( 13) = 0.8855513979185542D-01 - ws( 1) = 0.7906595570826121D-03 - ws( 2) = 0.2053302782775616D-02 - ws( 3) = 0.3749383203706235D-02 - ws( 4) = 0.5556605648597016D-02 - ws( 5) = 0.6929313585956429D-02 - ws( 6) = 0.7844861346509515D-02 - ws( 7) = 0.8476115997795297D-02 - ws( 8) = 0.8949284389703263D-02 - ws( 9) = 0.9335808961225362D-02 - ws( 10) = 0.9678260056432351D-02 - ws( 11) = 0.1003303036514232D-01 - ws( 12) = 0.1051072718809179D-01 - ws( 13) = 0.1139390599867723D-01 - endif - - - if( iquad .eq. 71 ) then - idomain = 71 - rk0r = 0.1000000000001000D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999980000D+00 - n = 13 - err = 0.6712151595449549D-04 - ierq = 0 - xs( 1) = 0.3424998686589873D-03 - xs( 2) = 0.1899673067736643D-02 - xs( 3) = 0.5018168949187977D-02 - xs( 4) = 0.9883316137981319D-02 - xs( 5) = 0.1626420927326662D-01 - xs( 6) = 0.2374058620266894D-01 - xs( 7) = 0.3197829790122180D-01 - xs( 8) = 0.4076698630871140D-01 - xs( 9) = 0.4997856597021470D-01 - xs( 10) = 0.5953364097246021D-01 - xs( 11) = 0.6937984023534764D-01 - xs( 12) = 0.7946754651119171D-01 - xs( 13) = 0.8956488278318439D-01 - ws( 1) = 0.8901817641519536D-03 - ws( 2) = 0.2280816722988876D-02 - ws( 3) = 0.3994658045161876D-02 - ws( 4) = 0.5690879601555922D-02 - ws( 5) = 0.6995790580861522D-02 - ws( 6) = 0.7901348393170055D-02 - ws( 7) = 0.8540521122029982D-02 - ws( 8) = 0.9018983792646831D-02 - ws( 9) = 0.9401285945808522D-02 - ws( 10) = 0.9727590277592270D-02 - ws( 11) = 0.1005039737024441D-01 - ws( 12) = 0.1049894888542843D-01 - ws( 13) = 0.1121820850502993D-01 - endif - - - if( iquad .eq. 72 ) then - idomain = 72 - rk0r = 0.1000000000001000D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5999999999980000D+00 - n = 15 - err = 0.3266160287389311D-04 - ierq = 0 - xs( 1) = 0.3834501523557021D-03 - xs( 2) = 0.2059569056315816D-02 - xs( 3) = 0.5180187812663959D-02 - xs( 4) = 0.9756426355472058D-02 - xs( 5) = 0.1562422202278909D-01 - xs( 6) = 0.2252251337465270D-01 - xs( 7) = 0.3020482420362171D-01 - xs( 8) = 0.3848424391979980D-01 - xs( 9) = 0.4723076463114773D-01 - xs( 10) = 0.5635679848391680D-01 - xs( 11) = 0.6580379715885913D-01 - xs( 12) = 0.7553276627077044D-01 - xs( 13) = 0.8552156609886763D-01 - xs( 14) = 0.9574209961138037D-01 - xs( 15) = 0.1059687242967461D+00 - ws( 1) = 0.9890646155404261D-03 - ws( 2) = 0.2383451350092610D-02 - ws( 3) = 0.3861414011713265D-02 - ws( 4) = 0.5261898341211702D-02 - ws( 5) = 0.6428076412862378D-02 - ws( 6) = 0.7326803679728643D-02 - ws( 7) = 0.8006887857596181D-02 - ws( 8) = 0.8530899088781730D-02 - ws( 9) = 0.8948743544350685D-02 - ws( 10) = 0.9296147531750763D-02 - ws( 11) = 0.9600422272555007D-02 - ws( 12) = 0.9880964255626871D-02 - ws( 13) = 0.1017440641398828D-01 - ws( 14) = 0.1063714324025611D-01 - ws( 15) = 0.1129492155372726D-01 - endif - - - if( iquad .eq. 73 ) then - idomain = 73 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5707963267928966D+00 - n = 13 - err = 0.1205672596506151D-04 - ierq = 0 - xs( 1) = 0.4925371002743692D-03 - xs( 2) = 0.2588122063127423D-02 - xs( 3) = 0.6299871423270623D-02 - xs( 4) = 0.1146666135340378D-01 - xs( 5) = 0.1783877777099517D-01 - xs( 6) = 0.2515478741887070D-01 - xs( 7) = 0.3319691252838489D-01 - xs( 8) = 0.4180417117068191D-01 - xs( 9) = 0.5086265762172109D-01 - xs( 10) = 0.6029299203786114D-01 - xs( 11) = 0.7004120407011853D-01 - xs( 12) = 0.8004153419120322D-01 - xs( 13) = 0.8997007839638713D-01 - ws( 1) = 0.1263595502050701D-02 - ws( 2) = 0.2920456298477757D-02 - ws( 3) = 0.4475744579068503D-02 - ws( 4) = 0.5814693751593675D-02 - ws( 5) = 0.6885159635657656D-02 - ws( 6) = 0.7710886506794691D-02 - ws( 7) = 0.8347853746440901D-02 - ws( 8) = 0.8851087020196246D-02 - ws( 9) = 0.9264551360152879D-02 - ws( 10) = 0.9618456834548716D-02 - ws( 11) = 0.9965921006839920D-02 - ws( 12) = 0.1046916456341664D-01 - ws( 13) = 0.1075141107220566D-01 - endif - - - if( iquad .eq. 74 ) then - idomain = 74 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1570796326792897D+01 - n = 14 - err = 0.6736351670809091D-05 - ierq = 0 - xs( 1) = 0.2169174247175026D-03 - xs( 2) = 0.1515222156707755D-02 - xs( 3) = 0.4265859574431103D-02 - xs( 4) = 0.8380636274130130D-02 - xs( 5) = 0.1367430573285829D-01 - xs( 6) = 0.1995296186630351D-01 - xs( 7) = 0.2704207669835368D-01 - xs( 8) = 0.3479681539594440D-01 - xs( 9) = 0.4310293572284862D-01 - xs( 10) = 0.5187185746715798D-01 - xs( 11) = 0.6103596546636666D-01 - xs( 12) = 0.7054719348807345D-01 - xs( 13) = 0.8031428138429156D-01 - xs( 14) = 0.8992720967570259D-01 - ws( 1) = 0.6290035357808817D-03 - ws( 2) = 0.2020801306208634D-02 - ws( 3) = 0.3460519020579892D-02 - ws( 4) = 0.4737160222055493D-02 - ws( 5) = 0.5817466808828110D-02 - ws( 6) = 0.6710828262998849D-02 - ws( 7) = 0.7443962017353338D-02 - ws( 8) = 0.8048245500209238D-02 - ws( 9) = 0.8554160011082354D-02 - ws( 10) = 0.8989317684480328D-02 - ws( 11) = 0.9373564845020724D-02 - ws( 12) = 0.9767115772038837D-02 - ws( 13) = 0.1035441741857004D-01 - ws( 14) = 0.1010171200379761D-01 - endif - - - if( iquad .eq. 75 ) then - idomain = 75 - rk0r = 0.1000000000001000D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 13 - err = 0.1060495023524716D-04 - ierq = 0 - xs( 1) = 0.3771012386755472D-03 - xs( 2) = 0.1961974542687581D-02 - xs( 3) = 0.4735019043633709D-02 - xs( 4) = 0.8587881894585987D-02 - xs( 5) = 0.1340218107464917D-01 - xs( 6) = 0.1906492066094962D-01 - xs( 7) = 0.2547300134978480D-01 - xs( 8) = 0.3253357778390432D-01 - xs( 9) = 0.4016193784081062D-01 - xs( 10) = 0.4828639957263605D-01 - xs( 11) = 0.5683780214390755D-01 - xs( 12) = 0.6562782826242047D-01 - xs( 13) = 0.7419422073599696D-01 - ws( 1) = 0.9643232557945548D-03 - ws( 2) = 0.2194667365994963D-02 - ws( 3) = 0.3332338844864799D-02 - ws( 4) = 0.4353262632361871D-02 - ws( 5) = 0.5256995607587880D-02 - ws( 6) = 0.6052262497263489D-02 - ws( 7) = 0.6751061074037541D-02 - ws( 8) = 0.7368235627749207D-02 - ws( 9) = 0.7915256585715834D-02 - ws( 10) = 0.8403683022270804D-02 - ws( 11) = 0.8970481918024215D-02 - ws( 12) = 0.9659589391580507D-02 - ws( 13) = 0.8317305084756338D-02 - endif - - - if( iquad .eq. 76 ) then - idomain = 76 - rk0r = 0.1000000000001000D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 10 - err = 0.1974202858839709D-04 - ierq = 0 - xs( 1) = 0.3122546726169477D-03 - xs( 2) = 0.1578057180552874D-02 - xs( 3) = 0.3820441234489794D-02 - xs( 4) = 0.6989808802306720D-02 - xs( 5) = 0.1101699333769612D-01 - xs( 6) = 0.1581906751668090D-01 - xs( 7) = 0.2131836706271756D-01 - xs( 8) = 0.2740116675342628D-01 - xs( 9) = 0.3380077652197402D-01 - xs( 10) = 0.4016264826142281D-01 - ws( 1) = 0.7903519037745924D-03 - ws( 2) = 0.1768090336937637D-02 - ws( 3) = 0.2733654140997285D-02 - ws( 4) = 0.3637105248670675D-02 - ws( 5) = 0.4484285962658467D-02 - ws( 6) = 0.5255905871685766D-02 - ws( 7) = 0.5966234241518629D-02 - ws( 8) = 0.6788574169544841D-02 - ws( 9) = 0.7361862993821673D-02 - ws( 10) = 0.5493703024109987D-02 - endif - - - if( iquad .eq. 77 ) then - idomain = 77 - rk0r = 0.1000000000001000D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 2 - err = 0.3076523398804118D-04 - ierq = 0 - xs( 1) = 0.3031158446770081D-02 - xs( 2) = 0.4576610537464304D-02 - ws( 1) = 0.7738679804934145D-02 - ws( 2) = 0.7066509941614813D-02 - endif - - - if( iquad .eq. 78 ) then - idomain = 78 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999800000D-01 - n = 15 - err = 0.3936020135138729D-04 - ierq = 0 - xs( 1) = 0.1018370240935829D-03 - xs( 2) = 0.5541145974851858D-03 - xs( 3) = 0.1447002189907247D-02 - xs( 4) = 0.2951962797362993D-02 - xs( 5) = 0.5401343569310812D-02 - xs( 6) = 0.9300476046123742D-02 - xs( 7) = 0.1497978669513042D-01 - xs( 8) = 0.2216376620582491D-01 - xs( 9) = 0.3034549112229721D-01 - xs( 10) = 0.3917917919168806D-01 - xs( 11) = 0.4847376230172654D-01 - xs( 12) = 0.5812204008089128D-01 - xs( 13) = 0.6805005303483549D-01 - xs( 14) = 0.7817506838849259D-01 - xs( 15) = 0.8815814654972837D-01 - ws( 1) = 0.2633180311624237D-03 - ws( 2) = 0.6535866218266252D-03 - ws( 3) = 0.1159530892326779D-02 - ws( 4) = 0.1904689455383891D-02 - ws( 5) = 0.3083646244759001D-02 - ws( 6) = 0.4782199254124083D-02 - ws( 7) = 0.6519365958394445D-02 - ws( 8) = 0.7757437511148089D-02 - ws( 9) = 0.8549974315039552D-02 - ws( 10) = 0.9090033774027126D-02 - ws( 11) = 0.9492026895204625D-02 - ws( 12) = 0.9817823793437623D-02 - ws( 13) = 0.1014516800004823D-01 - ws( 14) = 0.1057245355911785D-01 - ws( 15) = 0.1041574353614897D-01 - endif - - - if( iquad .eq. 79 ) then - idomain = 79 - rk0r = 0.1570796326795897D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999800000D-01 - n = 15 - err = 0.4880543074217688D-04 - ierq = 0 - xs( 1) = 0.1022794889480051D-03 - xs( 2) = 0.5569082131467489D-03 - xs( 3) = 0.1455477908701970D-02 - xs( 4) = 0.2971024044430547D-02 - xs( 5) = 0.5438332829030789D-02 - xs( 6) = 0.9366728085127543D-02 - xs( 7) = 0.1507665604489226D-01 - xs( 8) = 0.2227871424766808D-01 - xs( 9) = 0.3046821431778969D-01 - xs( 10) = 0.3930593483879567D-01 - xs( 11) = 0.4860435326221300D-01 - xs( 12) = 0.5825665963230425D-01 - xs( 13) = 0.6818744732552663D-01 - xs( 14) = 0.7831150671983464D-01 - xs( 15) = 0.8828338144370035D-01 - ws( 1) = 0.2645083033640528D-03 - ws( 2) = 0.6573398368352072D-03 - ws( 3) = 0.1167423784443491D-02 - ws( 4) = 0.1918261886055985D-02 - ws( 5) = 0.3107028814804672D-02 - ws( 6) = 0.4815469203415593D-02 - ws( 7) = 0.6544519949653174D-02 - ws( 8) = 0.7769197055359139D-02 - ws( 9) = 0.8554964359054958D-02 - ws( 10) = 0.9093643925842833D-02 - ws( 11) = 0.9495920339481807D-02 - ws( 12) = 0.9822329041768274D-02 - ws( 13) = 0.1014600027214591D-01 - ws( 14) = 0.1056798714171195D-01 - ws( 15) = 0.1039721551549137D-01 - endif - - - if( iquad .eq. 80 ) then - idomain = 80 - rk0r = 0.1570796326795897D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5999999999800001D-01 - n = 16 - err = 0.8629588499659079D-04 - ierq = 0 - xs( 1) = 0.1156834996438464D-03 - xs( 2) = 0.6288745555675023D-03 - xs( 3) = 0.1639800921640974D-02 - xs( 4) = 0.3336465937093240D-02 - xs( 5) = 0.6071895081130547D-02 - xs( 6) = 0.1032290720303055D-01 - xs( 7) = 0.1627196518787746D-01 - xs( 8) = 0.2357102431956197D-01 - xs( 9) = 0.3176441221857998D-01 - xs( 10) = 0.4055716575336921D-01 - xs( 11) = 0.4978684490504848D-01 - xs( 12) = 0.5935929947454055D-01 - xs( 13) = 0.6921319872759731D-01 - xs( 14) = 0.7931317432252763D-01 - xs( 15) = 0.8958744990213065D-01 - xs( 16) = 0.9971384694404666D-01 - ws( 1) = 0.2990364509913962D-03 - ws( 2) = 0.7410099090998479D-03 - ws( 3) = 0.1311022484302346D-02 - ws( 4) = 0.2140530447009507D-02 - ws( 5) = 0.3418238314303661D-02 - ws( 6) = 0.5120959264113475D-02 - ws( 7) = 0.6708026217468039D-02 - ws( 8) = 0.7810322066246705D-02 - ws( 9) = 0.8528755092119717D-02 - ws( 10) = 0.9030992167126507D-02 - ws( 11) = 0.9415067405872673D-02 - ws( 12) = 0.9730554654339628D-02 - ws( 13) = 0.9999334878698207D-02 - ws( 14) = 0.1027293935678726D-01 - ws( 15) = 0.1071925532448044D-01 - ws( 16) = 0.1072341745238059D-01 - endif - - - if( iquad .eq. 81 ) then - idomain = 81 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.9999999999800001D-01 - n = 16 - err = 0.9547188901035835D-04 - ierq = 0 - xs( 1) = 0.1296304802875321D-03 - xs( 2) = 0.7038186633516803D-03 - xs( 3) = 0.1830374334299231D-02 - xs( 4) = 0.3705069534600547D-02 - xs( 5) = 0.6674901663576772D-02 - xs( 6) = 0.1114914250815573D-01 - xs( 7) = 0.1721305260582146D-01 - xs( 8) = 0.2453195712282754D-01 - xs( 9) = 0.3271596289110393D-01 - xs( 10) = 0.4150323415993913D-01 - xs( 11) = 0.5074016738598049D-01 - xs( 12) = 0.6033539938396671D-01 - xs( 13) = 0.7023178018032543D-01 - xs( 14) = 0.8039532865980573D-01 - xs( 15) = 0.9076826317461843D-01 - xs( 16) = 0.1010519099347192D+00 - ws( 1) = 0.3349800487673676D-03 - ws( 2) = 0.8280427309454043D-03 - ws( 3) = 0.1456721937614780D-02 - ws( 4) = 0.2350844767726661D-02 - ws( 5) = 0.3665665736166106D-02 - ws( 6) = 0.5299500182676230D-02 - ws( 7) = 0.6763709181116347D-02 - ws( 8) = 0.7806723358738428D-02 - ws( 9) = 0.8518576871516876D-02 - ws( 10) = 0.9031439354451849D-02 - ws( 11) = 0.9429541843897332D-02 - ws( 12) = 0.9760976483977897D-02 - ws( 13) = 0.1004951305320628D-01 - ws( 14) = 0.1035010523288053D-01 - ws( 15) = 0.1081945002995093D-01 - ws( 16) = 0.1087197507750323D-01 - endif - - - if( iquad .eq. 82 ) then - idomain = 82 - rk0r = 0.1570796326795897D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999980000D+00 - n = 16 - err = 0.3210330593832691D-04 - ierq = 0 - xs( 1) = 0.1407625015056115D-03 - xs( 2) = 0.7618860268904259D-03 - xs( 3) = 0.1968700331498527D-02 - xs( 4) = 0.3940064906877259D-02 - xs( 5) = 0.6968493808115075D-02 - xs( 6) = 0.1136899944589011D-01 - xs( 7) = 0.1721686283172520D-01 - xs( 8) = 0.2427660796711731D-01 - xs( 9) = 0.3222657583126501D-01 - xs( 10) = 0.4081822358489880D-01 - xs( 11) = 0.4989111750632740D-01 - xs( 12) = 0.5934439353524062D-01 - xs( 13) = 0.6911331455217699D-01 - xs( 14) = 0.7915436411230840D-01 - xs( 15) = 0.8939261339808681D-01 - xs( 16) = 0.9946329799875177D-01 - ws( 1) = 0.3634953838148320D-03 - ws( 2) = 0.8928797417992018D-03 - ws( 3) = 0.1549982478258204D-02 - ws( 4) = 0.2442444892626299D-02 - ws( 5) = 0.3672670294535402D-02 - ws( 6) = 0.5142509950380627D-02 - ws( 7) = 0.6508780051442540D-02 - ws( 8) = 0.7554550227312261D-02 - ws( 9) = 0.8304152197777769D-02 - ws( 10) = 0.8853367435880199D-02 - ws( 11) = 0.9278601018445959D-02 - ws( 12) = 0.9627547645481984D-02 - ws( 13) = 0.9927859275476061D-02 - ws( 14) = 0.1023959152967858D-01 - ws( 15) = 0.1070152827502291D-01 - ws( 16) = 0.1039652593016983D-01 - endif - - - if( iquad .eq. 83 ) then - idomain = 83 - rk0r = 0.1570796326795897D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5999999999980000D+00 - n = 16 - err = 0.7165882817498466D-04 - ierq = 0 - xs( 1) = 0.1947828748010091D-03 - xs( 2) = 0.1054032759829644D-02 - xs( 3) = 0.2718020532033727D-02 - xs( 4) = 0.5389966597575352D-02 - xs( 5) = 0.9289056507444569D-02 - xs( 6) = 0.1450358281194117D-01 - xs( 7) = 0.2091997049907725D-01 - xs( 8) = 0.2830560180054541D-01 - xs( 9) = 0.3642816830425298D-01 - xs( 10) = 0.4510952424993232D-01 - xs( 11) = 0.5422688845994796D-01 - xs( 12) = 0.6369720908312465D-01 - xs( 13) = 0.7346381375295119D-01 - xs( 14) = 0.8348527394180071D-01 - xs( 15) = 0.9367280666879169D-01 - xs( 16) = 0.1036159053303963D+00 - ws( 1) = 0.5030002880427959D-03 - ws( 2) = 0.1234523076592509D-02 - ws( 3) = 0.2128431622519445D-02 - ws( 4) = 0.3254939192789031D-02 - ws( 5) = 0.4559409143453497D-02 - ws( 6) = 0.5848908423312710D-02 - ws( 7) = 0.6942874718111026D-02 - ws( 8) = 0.7788991547425057D-02 - ws( 9) = 0.8426825619930382D-02 - ws( 10) = 0.8916309657690488D-02 - ws( 11) = 0.9307636766917433D-02 - ws( 12) = 0.9636120530167753D-02 - ws( 13) = 0.9919689652111322D-02 - ws( 14) = 0.1022008301320917D-01 - ws( 15) = 0.1067405235871945D-01 - ws( 16) = 0.1000764517571787D-01 - endif - - - if( iquad .eq. 84 ) then - idomain = 84 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5707963267928966D+00 - n = 15 - err = 0.1930434232655235D-04 - ierq = 0 - xs( 1) = 0.3005971977876706D-03 - xs( 2) = 0.1608689232947928D-02 - xs( 3) = 0.4045638913779990D-02 - xs( 4) = 0.7695232503477752D-02 - xs( 5) = 0.1257235992894531D-01 - xs( 6) = 0.1858462389191274D-01 - xs( 7) = 0.2556167348922569D-01 - xs( 8) = 0.3331652778257563D-01 - xs( 9) = 0.4168774242700782D-01 - xs( 10) = 0.5055093874691734D-01 - xs( 11) = 0.5981336971897470D-01 - xs( 12) = 0.6940656528955871D-01 - xs( 13) = 0.7927581964610485D-01 - xs( 14) = 0.8929021888467505D-01 - xs( 15) = 0.9896020758062631D-01 - ws( 1) = 0.7745054669387745D-03 - ws( 2) = 0.1856431177989332D-02 - ws( 3) = 0.3032710581320980D-02 - ws( 4) = 0.4269670729635159D-02 - ws( 5) = 0.5468560742037033D-02 - ws( 6) = 0.6526473597786912D-02 - ws( 7) = 0.7395987292375002D-02 - ws( 8) = 0.8087147025252610D-02 - ws( 9) = 0.8635609950701685D-02 - ws( 10) = 0.9079539034907451D-02 - ws( 11) = 0.9449346635783232D-02 - ws( 12) = 0.9763869479751559D-02 - ws( 13) = 0.1009696585065021D-01 - ws( 14) = 0.1050384844081928D-01 - ws( 15) = 0.9133454651242431D-02 - endif - - - if( iquad .eq. 85 ) then - idomain = 85 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1570796326792897D+01 - n = 14 - err = 0.1458417663081657D-04 - ierq = 0 - xs( 1) = 0.3284970078641929D-03 - xs( 2) = 0.1734376723055500D-02 - xs( 3) = 0.4271780079966452D-02 - xs( 4) = 0.7933349749356005D-02 - xs( 5) = 0.1267283605349930D-01 - xs( 6) = 0.1840119736480727D-01 - xs( 7) = 0.2500038505724003D-01 - xs( 8) = 0.3234374030447976D-01 - xs( 9) = 0.4031106378571842D-01 - xs( 10) = 0.4879601994061064D-01 - xs( 11) = 0.5770985793272582D-01 - xs( 12) = 0.6695072608463198D-01 - xs( 13) = 0.7628015174757226D-01 - xs( 14) = 0.8528565114715259D-01 - ws( 1) = 0.8437220951842644D-03 - ws( 2) = 0.1970303078372412D-02 - ws( 3) = 0.3103271450690619D-02 - ws( 4) = 0.4211993424338169D-02 - ws( 5) = 0.5252030479698680D-02 - ws( 6) = 0.6185068791150829D-02 - ws( 7) = 0.6992870890575719D-02 - ws( 8) = 0.7677618761568848D-02 - ws( 9) = 0.8254185513788103D-02 - ws( 10) = 0.8736666873913610D-02 - ws( 11) = 0.9158105507726701D-02 - ws( 12) = 0.9630202270270304D-02 - ws( 13) = 0.9835150158484414D-02 - ws( 14) = 0.7313728120709846D-02 - endif - - - if( iquad .eq. 86 ) then - idomain = 86 - rk0r = 0.1570796326795897D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 13 - err = 0.2527768388109482D-04 - ierq = 0 - xs( 1) = 0.3439375616961776D-03 - xs( 2) = 0.1799176202432329D-02 - xs( 3) = 0.4357648954373160D-02 - xs( 4) = 0.7937218728955094D-02 - xs( 5) = 0.1244265890739115D-01 - xs( 6) = 0.1777748237270927D-01 - xs( 7) = 0.2384967585679401D-01 - xs( 8) = 0.3057202200638158D-01 - xs( 9) = 0.3786290216011018D-01 - xs( 10) = 0.4563125734333773D-01 - xs( 11) = 0.5370629132686055D-01 - xs( 12) = 0.6182766513677950D-01 - xs( 13) = 0.6978984205654797D-01 - ws( 1) = 0.8833735353401854D-03 - ws( 2) = 0.2016970195602262D-02 - ws( 3) = 0.3082783484023854D-02 - ws( 4) = 0.4058290891691476D-02 - ws( 5) = 0.4934009933551020D-02 - ws( 6) = 0.5717098504291929D-02 - ws( 7) = 0.6422512826976431D-02 - ws( 8) = 0.7060443549326945D-02 - ws( 9) = 0.7645416432567412D-02 - ws( 10) = 0.8257737280334548D-02 - ws( 11) = 0.8839613426597248D-02 - ws( 12) = 0.8304794111707163D-02 - ws( 13) = 0.4825938698173043D-02 - endif - - - if( iquad .eq. 87 ) then - idomain = 87 - rk0r = 0.1570796326795897D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 11 - err = 0.2292384056284700D-04 - ierq = 0 - xs( 1) = 0.2847373903387638D-03 - xs( 2) = 0.1448348277830031D-02 - xs( 3) = 0.3511242182264337D-02 - xs( 4) = 0.6435158691333711D-02 - xs( 5) = 0.1014980915472252D-01 - xs( 6) = 0.1458567266035549D-01 - xs( 7) = 0.1968098685305555D-01 - xs( 8) = 0.2529666172276635D-01 - xs( 9) = 0.3121215632750647D-01 - xs( 10) = 0.3727674918587562D-01 - xs( 11) = 0.4341109561635301D-01 - ws( 1) = 0.7000627079102343D-03 - ws( 2) = 0.1621217187308993D-02 - ws( 3) = 0.2463539430274448D-02 - ws( 4) = 0.3270971024602639D-02 - ws( 5) = 0.4072411550040723D-02 - ws( 6) = 0.4833186574235184D-02 - ws( 7) = 0.5659910741580646D-02 - ws( 8) = 0.6741192477347754D-02 - ws( 9) = 0.7527464230611235D-02 - ws( 10) = 0.6487106731988249D-02 - ws( 11) = 0.3100694973792726D-02 - endif - - - if( iquad .eq. 88 ) then - idomain = 88 - rk0r = 0.1570796326795897D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 5 - err = 0.3322672480588900D-04 - ierq = 0 - xs( 1) = 0.6963956592394670D-03 - xs( 2) = 0.1921992108164264D-02 - xs( 3) = 0.3719428738921295D-02 - xs( 4) = 0.1207366041747325D-01 - xs( 5) = 0.1952462625487658D-01 - ws( 1) = 0.3156384154312774D-02 - ws( 2) = 0.4322907880396278D-02 - ws( 3) = 0.2134146174636753D-02 - ws( 4) = 0.5404936659249940D-03 - ws( 5) = -.5348709270023624D-03 - endif - - - if( iquad .eq. 89 ) then - idomain = 89 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 19 - err = 0.9671352530272912D-04 - ierq = 0 - xs( 1) = 0.3865374737538825D-04 - xs( 2) = 0.2059778411163742D-03 - xs( 3) = 0.5171813398771828D-03 - xs( 4) = 0.9927526944304510D-03 - xs( 5) = 0.1668918498638177D-02 - xs( 6) = 0.2606871580266250D-02 - xs( 7) = 0.3909461807570697D-02 - xs( 8) = 0.5755754173582621D-02 - xs( 9) = 0.8475420390473736D-02 - xs( 10) = 0.1263666180074602D-01 - xs( 11) = 0.1880165419487875D-01 - xs( 12) = 0.2680188040647019D-01 - xs( 13) = 0.3592754035291754D-01 - xs( 14) = 0.4565715742668996D-01 - xs( 15) = 0.5574262297744360D-01 - xs( 16) = 0.6607488282365220D-01 - xs( 17) = 0.7659036944063891D-01 - xs( 18) = 0.8717137068807394D-01 - xs( 19) = 0.9738101446741815D-01 - ws( 1) = 0.9945271092555730D-04 - ws( 2) = 0.2368699077169819D-03 - ws( 3) = 0.3888739001132867D-03 - ws( 4) = 0.5681522768054135D-03 - ws( 5) = 0.7940894109809136D-03 - ws( 6) = 0.1098450311795582D-02 - ws( 7) = 0.1535330117939660D-02 - ws( 8) = 0.2210133718413540D-02 - ws( 9) = 0.3325746499031351D-02 - ws( 10) = 0.5108881026394323D-02 - ws( 11) = 0.7187469284886688D-02 - ws( 12) = 0.8678551369184872D-02 - ws( 13) = 0.9487090390084245D-02 - ws( 14) = 0.9934683388309003D-02 - ws( 15) = 0.1022449475758432D-01 - ws( 16) = 0.1045825905369289D-01 - ws( 17) = 0.1071021888398443D-01 - ws( 18) = 0.1093926049489929D-01 - ws( 19) = 0.9412279034130385D-02 - endif - - - if( iquad .eq. 90 ) then - idomain = 90 - rk0r = 0.3141592653590793D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 19 - err = 0.8144624793015619D-04 - ierq = 0 - xs( 1) = 0.3997102512366275D-04 - xs( 2) = 0.2129838668379393D-03 - xs( 3) = 0.5347337008774657D-03 - xs( 4) = 0.1026333446923705D-02 - xs( 5) = 0.1725078588359289D-02 - xs( 6) = 0.2693897140723927D-02 - xs( 7) = 0.4038459791926886D-02 - xs( 8) = 0.5942755169385935D-02 - xs( 9) = 0.8745366492059630D-02 - xs( 10) = 0.1302450640557126D-01 - xs( 11) = 0.1931993803349873D-01 - xs( 12) = 0.2741880228521466D-01 - xs( 13) = 0.3661173149121134D-01 - xs( 14) = 0.4639370839436458D-01 - xs( 15) = 0.5652455427018944D-01 - xs( 16) = 0.6689534701602268D-01 - xs( 17) = 0.7743672953782356D-01 - xs( 18) = 0.8801785450077486D-01 - xs( 19) = 0.9821373207467890D-01 - ws( 1) = 0.1028382968500516D-03 - ws( 2) = 0.2449129040476714D-03 - ws( 3) = 0.4020265663348665D-03 - ws( 4) = 0.5872335977734260D-03 - ws( 5) = 0.8204511498777846D-03 - ws( 6) = 0.1134274226664914D-02 - ws( 7) = 0.1584236676575274D-02 - ws( 8) = 0.2278674546448457D-02 - ws( 9) = 0.3425431023714343D-02 - ws( 10) = 0.5241545029369110D-02 - ws( 11) = 0.7306139439655451D-02 - ws( 12) = 0.8758456642157948D-02 - ws( 13) = 0.9544816515440988D-02 - ws( 14) = 0.9983310171335136D-02 - ws( 15) = 0.1026730849656499D-01 - ws( 16) = 0.1049200892742717D-01 - ws( 17) = 0.1072595696842754D-01 - ws( 18) = 0.1093766309826711D-01 - ws( 19) = 0.9360795411351189D-02 - endif - - - if( iquad .eq. 91 ) then - idomain = 91 - rk0r = 0.3141592653590793D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 23 - err = 0.1067299200025883D-04 - ierq = 0 - xs( 1) = 0.3630493966961712D-04 - xs( 2) = 0.1933640635835397D-03 - xs( 3) = 0.4847654219061698D-03 - xs( 4) = 0.9272598696014909D-03 - xs( 5) = 0.1548630349309315D-02 - xs( 6) = 0.2392699908493773D-02 - xs( 7) = 0.3527716074453228D-02 - xs( 8) = 0.5060562140987351D-02 - xs( 9) = 0.7160205140098749D-02 - xs( 10) = 0.1009035479262975D-01 - xs( 11) = 0.1421576738879840D-01 - xs( 12) = 0.1984879568389362D-01 - xs( 13) = 0.2693345378286111D-01 - xs( 14) = 0.3508790069182901D-01 - xs( 15) = 0.4394110463551788D-01 - xs( 16) = 0.5325996292015204D-01 - xs( 17) = 0.6291562418059553D-01 - xs( 18) = 0.7283707764066710D-01 - xs( 19) = 0.8298392668996057D-01 - xs( 20) = 0.9333106934674741D-01 - xs( 21) = 0.1038497977677967D+00 - xs( 22) = 0.1144448741425846D+00 - xs( 23) = 0.1247032053591951D+00 - ws( 1) = 0.9340384013623050D-04 - ws( 2) = 0.2221815661282048D-03 - ws( 3) = 0.3633629494164682D-03 - ws( 4) = 0.5261759706926021D-03 - ws( 5) = 0.7237352207051233D-03 - ws( 6) = 0.9755486199794351D-03 - ws( 7) = 0.1311920549768422D-02 - ws( 8) = 0.1781326428425144D-02 - ws( 9) = 0.2461518479934725D-02 - ws( 10) = 0.3461556937667422D-02 - ws( 11) = 0.4848805623597465D-02 - ws( 12) = 0.6406817818142686D-02 - ws( 13) = 0.7691395604241041D-02 - ws( 14) = 0.8554133679437267D-02 - ws( 15) = 0.9114394594876410D-02 - ws( 16) = 0.9502858421217493D-02 - ws( 17) = 0.9797777521868242D-02 - ws( 18) = 0.1004191389132086D-01 - ws( 19) = 0.1025806419803188D-01 - ws( 20) = 0.1045580821961298D-01 - ws( 21) = 0.1068465795527306D-01 - ws( 22) = 0.1096344956715140D-01 - ws( 23) = 0.9777679859205857D-02 - endif - - - if( iquad .eq. 92 ) then - idomain = 92 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 21 - err = 0.4962698868685319D-04 - ierq = 0 - xs( 1) = 0.4416275068223666D-04 - xs( 2) = 0.2352357942353511D-03 - xs( 3) = 0.5899173110092883D-03 - xs( 4) = 0.1129284141454490D-02 - xs( 5) = 0.1889109952153181D-02 - xs( 6) = 0.2927317047639861D-02 - xs( 7) = 0.4336455290692823D-02 - xs( 8) = 0.6266578527470782D-02 - xs( 9) = 0.8963720021893997D-02 - xs( 10) = 0.1280377097035422D-01 - xs( 11) = 0.1817527520230297D-01 - xs( 12) = 0.2512381471178013D-01 - xs( 13) = 0.3328465653569615D-01 - xs( 14) = 0.4223393692384123D-01 - xs( 15) = 0.5168948237568181D-01 - xs( 16) = 0.6149498767660670D-01 - xs( 17) = 0.7156599929239739D-01 - xs( 18) = 0.8185579366756780D-01 - xs( 19) = 0.9232469178640200D-01 - xs( 20) = 0.1028528628110580D+00 - xs( 21) = 0.1130300851710283D+00 - ws( 1) = 0.1136227704032162D-03 - ws( 2) = 0.2703315232008872D-03 - ws( 3) = 0.4424714641760244D-03 - ws( 4) = 0.6421018741718462D-03 - ws( 5) = 0.8870060515277752D-03 - ws( 6) = 0.1204473034692877D-02 - ws( 7) = 0.1638154340374958D-02 - ws( 8) = 0.2262250008258473D-02 - ws( 9) = 0.3195832069215125D-02 - ws( 10) = 0.4556908076272866D-02 - ws( 11) = 0.6195442913642536D-02 - ws( 12) = 0.7632614480195559D-02 - ws( 13) = 0.8615366234034166D-02 - ws( 14) = 0.9236916019931188D-02 - ws( 15) = 0.9649459484980742D-02 - ws( 16) = 0.9950956305045233D-02 - ws( 17) = 0.1019350364345525D-01 - ws( 18) = 0.1040442207215421D-01 - ws( 19) = 0.1064440373381994D-01 - ws( 20) = 0.1087962581310745D-01 - ws( 21) = 0.9425481130960846D-02 - endif - - - if( iquad .eq. 93 ) then - idomain = 93 - rk0r = 0.3141592653590793D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 22 - err = 0.7455480368087831D-04 - ierq = 0 - xs( 1) = 0.5285994237140430D-04 - xs( 2) = 0.2815691725496971D-03 - xs( 3) = 0.7060149034916782D-03 - xs( 4) = 0.1350853123697553D-02 - xs( 5) = 0.2257368860716775D-02 - xs( 6) = 0.3491450906009060D-02 - xs( 7) = 0.5156952184542720D-02 - xs( 8) = 0.7417963257801566D-02 - xs( 9) = 0.1053278646821353D-01 - xs( 10) = 0.1484989608219018D-01 - xs( 11) = 0.2061515938870401D-01 - xs( 12) = 0.2773283104107648D-01 - xs( 13) = 0.3586437664855346D-01 - xs( 14) = 0.4468448926203106D-01 - xs( 15) = 0.5397834313107967D-01 - xs( 16) = 0.6362165525020734D-01 - xs( 17) = 0.7354362595122002D-01 - xs( 18) = 0.8370140879424119D-01 - xs( 19) = 0.9406805424021690D-01 - xs( 20) = 0.1046199289364368D+00 - xs( 21) = 0.1152589821041979D+00 - xs( 22) = 0.1255763771561934D+00 - ws( 1) = 0.1360004747728687D-03 - ws( 2) = 0.3235706003933803D-03 - ws( 3) = 0.5293500503182964D-03 - ws( 4) = 0.7670787510260125D-03 - ws( 5) = 0.1056721716435295D-02 - ws( 6) = 0.1428386247485083D-02 - ws( 7) = 0.1929378236130099D-02 - ws( 8) = 0.2635174015145004D-02 - ws( 9) = 0.3655966987056882D-02 - ws( 10) = 0.5024848580304933D-02 - ws( 11) = 0.6487188971438522D-02 - ws( 12) = 0.7686486379814309D-02 - ws( 13) = 0.8521121093312939D-02 - ws( 14) = 0.9083929097964714D-02 - ws( 15) = 0.9483872818263626D-02 - ws( 16) = 0.9791834146247133D-02 - ws( 17) = 0.1004810824766048D-01 - ws( 18) = 0.1027281740145104D-01 - ws( 19) = 0.1048003810060681D-01 - ws( 20) = 0.1072180717251300D-01 - ws( 21) = 0.1101349259062381D-01 - ws( 22) = 0.9690011106244399D-02 - endif - - - if( iquad .eq. 94 ) then - idomain = 94 - rk0r = 0.3141592653590793D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 23 - err = 0.6016765694900801D-04 - ierq = 0 - xs( 1) = 0.6958072209508403D-04 - xs( 2) = 0.3705386800535677D-03 - xs( 3) = 0.9287290706471349D-03 - xs( 4) = 0.1775938942609030D-02 - xs( 5) = 0.2964781915800927D-02 - xs( 6) = 0.4577132723254455D-02 - xs( 7) = 0.6735458946608064D-02 - xs( 8) = 0.9611758421332363D-02 - xs( 9) = 0.1340832347765512D-01 - xs( 10) = 0.1828475870625682D-01 - xs( 11) = 0.2427274788180089D-01 - xs( 12) = 0.3126161009225305D-01 - xs( 13) = 0.3906556260133522D-01 - xs( 14) = 0.4750030177353020D-01 - xs( 15) = 0.5641969054540408D-01 - xs( 16) = 0.6571931689006576D-01 - xs( 17) = 0.7532747292418022D-01 - xs( 18) = 0.8519496491079134D-01 - xs( 19) = 0.9528625850482322D-01 - xs( 20) = 0.1055745295704446D+00 - xs( 21) = 0.1160309144100820D+00 - xs( 22) = 0.1265235775676311D+00 - xs( 23) = 0.1366391637170974D+00 - ws( 1) = 0.1790075311108815D-03 - ws( 2) = 0.4256883596035209D-03 - ws( 3) = 0.6958957213128341D-03 - ws( 4) = 0.1007153236183831D-02 - ws( 5) = 0.1383986051145861D-02 - ws( 6) = 0.1860915436061248D-02 - ws( 7) = 0.2484616130134036D-02 - ws( 8) = 0.3303025042363683D-02 - ws( 9) = 0.4318388924541780D-02 - ws( 10) = 0.5440037818078847D-02 - ws( 11) = 0.6516129308024607D-02 - ws( 12) = 0.7429228912479603D-02 - ws( 13) = 0.8147388606232313D-02 - ws( 14) = 0.8697751096655723D-02 - ws( 15) = 0.9123883383095997D-02 - ws( 16) = 0.9463874626997562D-02 - ws( 17) = 0.9745308230253828D-02 - ws( 18) = 0.9987653802385935D-02 - ws( 19) = 0.1020297808645872D-01 - ws( 20) = 0.1039974413513350D-01 - ws( 21) = 0.1063523197736499D-01 - ws( 22) = 0.1085463164486411D-01 - ws( 23) = 0.8981897050793041D-02 - endif - - - if( iquad .eq. 95 ) then - idomain = 95 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 18 - err = 0.5730300011533574D-04 - ierq = 0 - xs( 1) = 0.1311803401609245D-03 - xs( 2) = 0.7006240880749588D-03 - xs( 3) = 0.1766234416304089D-02 - xs( 4) = 0.3407643402449650D-02 - xs( 5) = 0.5753295126256271D-02 - xs( 6) = 0.8970041254147217D-02 - xs( 7) = 0.1321992196276554D-01 - xs( 8) = 0.1859813859352769D-01 - xs( 9) = 0.2508513881893813D-01 - xs( 10) = 0.3255177695367020D-01 - xs( 11) = 0.4081574710885798D-01 - xs( 12) = 0.4970113310508076D-01 - xs( 13) = 0.5906737433501871D-01 - xs( 14) = 0.6881132186969702D-01 - xs( 15) = 0.7885952940129265D-01 - xs( 16) = 0.8914500601077387D-01 - xs( 17) = 0.9947948591571983D-01 - xs( 18) = 0.1094016849358039D+00 - ws( 1) = 0.3376886090567661D-03 - ws( 2) = 0.8079248240948110D-03 - ws( 3) = 0.1336347097916106D-02 - ws( 4) = 0.1967998321262247D-02 - ws( 5) = 0.2751862265219652D-02 - ws( 6) = 0.3709737210239479D-02 - ws( 7) = 0.4806805634645418D-02 - ws( 8) = 0.5946270935136270D-02 - ws( 9) = 0.7005053442433554D-02 - ws( 10) = 0.7896604951257919D-02 - ws( 11) = 0.8601282542194777D-02 - ws( 12) = 0.9146306078881008D-02 - ws( 13) = 0.9572559368484201D-02 - ws( 14) = 0.9912493801401495D-02 - ws( 15) = 0.1019746967867937D-01 - ws( 16) = 0.1053572201477614D-01 - ws( 17) = 0.1088402744005582D-01 - ws( 18) = 0.8936072227719563D-02 - endif - - - if( iquad .eq. 96 ) then - idomain = 96 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 19 - err = 0.3287833709789119D-04 - ierq = 0 - xs( 1) = 0.1713035107966383D-03 - xs( 2) = 0.9116998753199143D-03 - xs( 3) = 0.2279304301603079D-02 - xs( 4) = 0.4329835034783091D-02 - xs( 5) = 0.7130324260084674D-02 - xs( 6) = 0.1074226370290372D-01 - xs( 7) = 0.1520249182198271D-01 - xs( 8) = 0.2051061290189069D-01 - xs( 9) = 0.2662713110625685D-01 - xs( 10) = 0.3348160879252857D-01 - xs( 11) = 0.4098646725710218D-01 - xs( 12) = 0.4905035001002602D-01 - xs( 13) = 0.5758697276100883D-01 - xs( 14) = 0.6651860572204474D-01 - xs( 15) = 0.7577524731041159D-01 - xs( 16) = 0.8528346491991005D-01 - xs( 17) = 0.9491793219476942D-01 - xs( 18) = 0.1044480766836351D+00 - xs( 19) = 0.1136330008730764D+00 - ws( 1) = 0.4406751284178848D-03 - ws( 2) = 0.1046219201492114D-02 - ws( 3) = 0.1698397769090311D-02 - ws( 4) = 0.2414126232263292D-02 - ws( 5) = 0.3197431982991121D-02 - ws( 6) = 0.4032781680258546D-02 - ws( 7) = 0.4887604860599568D-02 - ws( 8) = 0.5721864071145722D-02 - ws( 9) = 0.6499105111131272D-02 - ws( 10) = 0.7194821107002878D-02 - ws( 11) = 0.7799100671948955D-02 - ws( 12) = 0.8313854444294692D-02 - ws( 13) = 0.8747952883577317D-02 - ws( 14) = 0.9112265335844015D-02 - ws( 15) = 0.9418778639446726D-02 - ws( 16) = 0.9688956958427426D-02 - ws( 17) = 0.9823383067168975D-02 - ws( 18) = 0.8937717189766747D-02 - ws( 19) = 0.5239689922369520D-02 - endif - - - if( iquad .eq. 97 ) then - idomain = 97 - rk0r = 0.3141592653590793D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 16 - err = 0.2037729033119092D-04 - ierq = 0 - xs( 1) = 0.2222497147173600D-03 - xs( 2) = 0.1170731256634969D-02 - xs( 3) = 0.2881892836227376D-02 - xs( 4) = 0.5363747414875169D-02 - xs( 5) = 0.8618226798528495D-02 - xs( 6) = 0.1263413821082847D-01 - xs( 7) = 0.1738447791619904D-01 - xs( 8) = 0.2282873092361083D-01 - xs( 9) = 0.2891677898973304D-01 - xs( 10) = 0.3559271207967182D-01 - xs( 11) = 0.4279579470709671D-01 - xs( 12) = 0.5044755539678666D-01 - xs( 13) = 0.5841370121846626D-01 - xs( 14) = 0.6650017886949211D-01 - xs( 15) = 0.7453737099568850D-01 - xs( 16) = 0.9011088841258584D-01 - ws( 1) = 0.5696964656724567D-03 - ws( 2) = 0.1328330792890811D-02 - ws( 3) = 0.2095091282946993D-02 - ws( 4) = 0.2868596336239712D-02 - ws( 5) = 0.3638338008485416D-02 - ws( 6) = 0.4388541131579056D-02 - ws( 7) = 0.5104932296586243D-02 - ws( 8) = 0.5776826227028039D-02 - ws( 9) = 0.6394980945030333D-02 - ws( 10) = 0.6952883277824610D-02 - ws( 11) = 0.7461320132659839D-02 - ws( 12) = 0.7958156801184595D-02 - ws( 13) = 0.8329020112331543D-02 - ws( 14) = 0.7772908748087695D-02 - ws( 15) = 0.4866489913806908D-02 - ws( 16) = -.2342298762831566D-02 - endif - - - if( iquad .eq. 98 ) then - idomain = 98 - rk0r = 0.3141592653590793D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 12 - err = 0.5147322909190713D-04 - ierq = 0 - xs( 1) = 0.2433492061632145D-03 - xs( 2) = 0.1255403392645147D-02 - xs( 3) = 0.3067365905045146D-02 - xs( 4) = 0.5625858684969845D-02 - xs( 5) = 0.8868398526420422D-02 - xs( 6) = 0.1275746360343620D-01 - xs( 7) = 0.1723385556246503D-01 - xs( 8) = 0.2217682874629804D-01 - xs( 9) = 0.2745682907723078D-01 - xs( 10) = 0.3299073025930299D-01 - xs( 11) = 0.3872144478286554D-01 - xs( 12) = 0.5645104371422791D-01 - ws( 1) = 0.6219996837209018D-03 - ws( 2) = 0.1438090969490567D-02 - ws( 3) = 0.2204306488123923D-02 - ws( 4) = 0.2969984004670002D-02 - ws( 5) = 0.3669719636386474D-02 - ws( 6) = 0.4278518826112398D-02 - ws( 7) = 0.4922811163234575D-02 - ws( 8) = 0.5554719866159459D-02 - ws( 9) = 0.5590864592919770D-02 - ws( 10) = 0.4291034019126116D-02 - ws( 11) = 0.1875103779635995D-02 - ws( 12) = 0.5170803429718507D-03 - endif - - - if( iquad .eq. 99 ) then - idomain = 99 - rk0r = 0.3141592653590793D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 4 - err = 0.3440465414253780D-04 - ierq = 0 - xs( 1) = 0.2977739435325461D-02 - xs( 2) = 0.4770974529286599D-02 - xs( 3) = 0.1273297613551998D-01 - xs( 4) = 0.2712560410831565D-01 - ws( 1) = 0.7796276862691301D-02 - ws( 2) = 0.5993205971971676D-02 - ws( 3) = 0.1745447362241050D-02 - ws( 4) = -.2866757194378493D-02 - endif - - - if( iquad .eq. 100 ) then - idomain = 100 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 24 - err = 0.3716011763527800D-04 - ierq = 0 - xs( 1) = 0.1892317689255393D-04 - xs( 2) = 0.1002381459884944D-03 - xs( 3) = 0.2488053326598665D-03 - xs( 4) = 0.4689210701764700D-03 - xs( 5) = 0.7675522710121227D-03 - xs( 6) = 0.1155245919062756D-02 - xs( 7) = 0.1647449042268917D-02 - xs( 8) = 0.2266515730820809D-02 - xs( 9) = 0.3044877034866976D-02 - xs( 10) = 0.4030386578288414D-02 - xs( 11) = 0.5295480971275468D-02 - xs( 12) = 0.6954064461376678D-02 - xs( 13) = 0.9195100185731447D-02 - xs( 14) = 0.1234600356369182D-01 - xs( 15) = 0.1696586485660683D-01 - xs( 16) = 0.2381285128906743D-01 - xs( 17) = 0.3308549199248204D-01 - xs( 18) = 0.4393710164015605D-01 - xs( 19) = 0.5547020123112372D-01 - xs( 20) = 0.6724102697740648D-01 - xs( 21) = 0.7908541745978614D-01 - xs( 22) = 0.9093405322969333D-01 - xs( 23) = 0.1026687674741081D+00 - xs( 24) = 0.1138408365440972D+00 - ws( 1) = 0.4862234026367881D-04 - ws( 2) = 0.1144086122527743D-03 - ws( 3) = 0.1834288874320506D-03 - ws( 4) = 0.2579498047621959D-03 - ws( 5) = 0.3410483738216632D-03 - ws( 6) = 0.4368810245268279D-03 - ws( 7) = 0.5512019088074266D-03 - ws( 8) = 0.6922519406555037D-03 - ws( 9) = 0.8723017083061850D-03 - ws( 10) = 0.1110530852839806D-02 - ws( 11) = 0.1438118914146931D-02 - ws( 12) = 0.1909488791392737D-02 - ws( 13) = 0.2625559078306579D-02 - ws( 14) = 0.3767755406896173D-02 - ws( 15) = 0.5612201874038224D-02 - ws( 16) = 0.8131230254178464D-02 - ws( 17) = 0.1024543230507298D-01 - ws( 18) = 0.1130205474385568D-01 - ws( 19) = 0.1169453425761214D-01 - ws( 20) = 0.1182183233889496D-01 - ws( 21) = 0.1186175684385264D-01 - ws( 22) = 0.1188236392579304D-01 - ws( 23) = 0.1171891712969554D-01 - ws( 24) = 0.9382931363057069D-02 - endif - - - if( iquad .eq. 101 ) then - idomain = 101 - rk0r = 0.6283185307180586D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 24 - err = 0.2004158195617312D-04 - ierq = 0 - xs( 1) = 0.1848794242542526D-04 - xs( 2) = 0.9803015034730995D-04 - xs( 3) = 0.2436954964237228D-03 - xs( 4) = 0.4600790915065596D-03 - xs( 5) = 0.7542607695729582D-03 - xs( 6) = 0.1136575335651685D-02 - xs( 7) = 0.1621789382217074D-02 - xs( 8) = 0.2230930214380250D-02 - xs( 9) = 0.2994162797913780D-02 - xs( 10) = 0.3955416894329026D-02 - xs( 11) = 0.5180251917072855D-02 - xs( 12) = 0.6770222204905594D-02 - xs( 13) = 0.8890793593716764D-02 - xs( 14) = 0.1183112198134734D-01 - xs( 15) = 0.1609802348176678D-01 - xs( 16) = 0.2243506431362585D-01 - xs( 17) = 0.3122430189109963D-01 - xs( 18) = 0.4177721134669185D-01 - xs( 19) = 0.5314166455561671D-01 - xs( 20) = 0.6479356585994810D-01 - xs( 21) = 0.7652683415300272D-01 - xs( 22) = 0.8825489287915454D-01 - xs( 23) = 0.9983026048153550D-01 - xs( 24) = 0.1107964170401041D+00 - ws( 1) = 0.4751562963286459D-04 - ws( 2) = 0.1120162778723847D-03 - ws( 3) = 0.1800711349438045D-03 - ws( 4) = 0.2538642368401737D-03 - ws( 5) = 0.3362039640370209D-03 - ws( 6) = 0.4308570064681159D-03 - ws( 7) = 0.5430294160527782D-03 - ws( 8) = 0.6802050726213022D-03 - ws( 9) = 0.8534578767260200D-03 - ws( 10) = 0.1079752251272360D-02 - ws( 11) = 0.1386425444363809D-02 - ws( 12) = 0.1820141070619235D-02 - ws( 13) = 0.2467503872754631D-02 - ws( 14) = 0.3495955866068278D-02 - ws( 15) = 0.5170568966088572D-02 - ws( 16) = 0.7589163805925159D-02 - ws( 17) = 0.9851096499846255D-02 - ws( 18) = 0.1108489426647377D-01 - ws( 19) = 0.1156151922440497D-01 - ws( 20) = 0.1171389122939285D-01 - ws( 21) = 0.1175722630694560D-01 - ws( 22) = 0.1179434984968461D-01 - ws( 23) = 0.1165996740683106D-01 - ws( 24) = 0.9198062009774983D-02 - endif - - - if( iquad .eq. 102 ) then - idomain = 102 - rk0r = 0.6283185307180586D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 24 - err = 0.9633791139918030D-04 - ierq = 0 - xs( 1) = 0.2061478922212949D-04 - xs( 2) = 0.1092406099323676D-03 - xs( 3) = 0.2713226811828407D-03 - xs( 4) = 0.5117235615791318D-03 - xs( 5) = 0.8381353177583450D-03 - xs( 6) = 0.1261982195875498D-02 - xs( 7) = 0.1799759006833163D-02 - xs( 8) = 0.2475077449217867D-02 - xs( 9) = 0.3321909492065402D-02 - xs( 10) = 0.4389855114400256D-02 - xs( 11) = 0.5753208172830534D-02 - xs( 12) = 0.7527266413263217D-02 - xs( 13) = 0.9899406303551994D-02 - xs( 14) = 0.1319069025739266D-01 - xs( 15) = 0.1793909844994348D-01 - xs( 16) = 0.2481803407982090D-01 - xs( 17) = 0.3394599577053456D-01 - xs( 18) = 0.4456731396573136D-01 - xs( 19) = 0.5588627277821390D-01 - xs( 20) = 0.6748443753605778D-01 - xs( 21) = 0.7919166201016656D-01 - xs( 22) = 0.9092577040938687D-01 - xs( 23) = 0.1025459140987384D+00 - xs( 24) = 0.1135961683447467D+00 - ws( 1) = 0.5297308331521652D-04 - ws( 2) = 0.1247427668050778D-03 - ws( 3) = 0.2002195688958243D-03 - ws( 4) = 0.2818497852673862D-03 - ws( 5) = 0.3728560990743283D-03 - ws( 6) = 0.4775542624973288D-03 - ws( 7) = 0.6018836185622405D-03 - ws( 8) = 0.7543320978089335D-03 - ws( 9) = 0.9474564508636522D-03 - ws( 10) = 0.1200557955905538D-02 - ws( 11) = 0.1544899213478860D-02 - ws( 12) = 0.2033418095538618D-02 - ws( 13) = 0.2762829744025019D-02 - ws( 14) = 0.3908723647944406D-02 - ws( 15) = 0.5714137081657616D-02 - ws( 16) = 0.8073887094996960D-02 - ws( 17) = 0.1003418428730889D-01 - ws( 18) = 0.1107053828009581D-01 - ws( 19) = 0.1150147557703749D-01 - ws( 20) = 0.1167130583011318D-01 - ws( 21) = 0.1175008582847207D-01 - ws( 22) = 0.1181114774766689D-01 - ws( 23) = 0.1164126878653919D-01 - ws( 24) = 0.9068886012195253D-02 - endif - - - if( iquad .eq. 103 ) then - idomain = 103 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 27 - err = 0.2068758797447146D-04 - ierq = 0 - xs( 1) = 0.2151401874500622D-04 - xs( 2) = 0.1139852293570833D-03 - xs( 3) = 0.2829864087520121D-03 - xs( 4) = 0.5333629492143534D-03 - xs( 5) = 0.8726974463916005D-03 - xs( 6) = 0.1312074020977465D-02 - xs( 7) = 0.1867187070315055D-02 - xs( 8) = 0.2560016308774701D-02 - xs( 9) = 0.3421418709198565D-02 - xs( 10) = 0.4495179029805231D-02 - xs( 11) = 0.5844601237470433D-02 - xs( 12) = 0.7563497479717640D-02 - xs( 13) = 0.9794999896062261D-02 - xs( 14) = 0.1276352198004192D-01 - xs( 15) = 0.1681604890005254D-01 - xs( 16) = 0.2241006623316250D-01 - xs( 17) = 0.2985161112794530D-01 - xs( 18) = 0.3891109431917616D-01 - xs( 19) = 0.4900723857977919D-01 - xs( 20) = 0.5965691063737080D-01 - xs( 21) = 0.7059254345066546D-01 - xs( 22) = 0.8168949987101842D-01 - xs( 23) = 0.9289398833669592D-01 - xs( 24) = 0.1041818984531547D+00 - xs( 25) = 0.1155276322917153D+00 - xs( 26) = 0.1268075796209132D+00 - xs( 27) = 0.1375917995087776D+00 - ws( 1) = 0.5528311806511913D-04 - ws( 2) = 0.1301245107221663D-03 - ws( 3) = 0.2086747786758257D-03 - ws( 4) = 0.2933298749883788D-03 - ws( 5) = 0.3871684615167132D-03 - ws( 6) = 0.4941735235505876D-03 - ws( 7) = 0.6196736017908511D-03 - ws( 8) = 0.7710629088664805D-03 - ws( 9) = 0.9589333370290887D-03 - ws( 10) = 0.1198963420376212D-02 - ws( 11) = 0.1515215526328673D-02 - ws( 12) = 0.1945912042849502D-02 - ws( 13) = 0.2553702605648708D-02 - ws( 14) = 0.3440843849877306D-02 - ws( 15) = 0.4744457238462717D-02 - ws( 16) = 0.6504178251373678D-02 - ws( 17) = 0.8335988957593769D-02 - ws( 18) = 0.9676679277366854D-02 - ws( 19) = 0.1043403987299297D-01 - ws( 20) = 0.1082236065414308D-01 - ws( 21) = 0.1102965886143072D-01 - ws( 22) = 0.1115823109589670D-01 - ws( 23) = 0.1125648572905995D-01 - ws( 24) = 0.1134746223782894D-01 - ws( 25) = 0.1146827721207561D-01 - ws( 26) = 0.1148253694578992D-01 - ws( 27) = 0.9273188760028363D-02 - endif - - - if( iquad .eq. 104 ) then - idomain = 104 - rk0r = 0.6283185307180586D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 26 - err = 0.9878473627560054D-04 - ierq = 0 - xs( 1) = 0.2731184974971695D-04 - xs( 2) = 0.1447127038706940D-03 - xs( 3) = 0.3593106206121026D-03 - xs( 4) = 0.6773246524138808D-03 - xs( 5) = 0.1108490698342448D-02 - xs( 6) = 0.1667060899768325D-02 - xs( 7) = 0.2373292475537447D-02 - xs( 8) = 0.3255743973831958D-02 - xs( 9) = 0.4354891325375914D-02 - xs( 10) = 0.5728826841077227D-02 - xs( 11) = 0.7463392713008871D-02 - xs( 12) = 0.9690338705826081D-02 - xs( 13) = 0.1261946076139733D-01 - xs( 14) = 0.1658498392442064D-01 - xs( 15) = 0.2202526433177685D-01 - xs( 16) = 0.2922234190504757D-01 - xs( 17) = 0.3799670738949990D-01 - xs( 18) = 0.4784852817260572D-01 - xs( 19) = 0.5832173205302143D-01 - xs( 20) = 0.6913763971143737D-01 - xs( 21) = 0.8015364982473540D-01 - xs( 22) = 0.9130184574848640D-01 - xs( 23) = 0.1025483754939980D+00 - xs( 24) = 0.1138586868195331D+00 - xs( 25) = 0.1251014242833256D+00 - xs( 26) = 0.1358692589190604D+00 - ws( 1) = 0.7018284594556710D-04 - ws( 2) = 0.1652149146350154D-03 - ws( 3) = 0.2650040733837001D-03 - ws( 4) = 0.3726305106566703D-03 - ws( 5) = 0.4920523176816289D-03 - ws( 6) = 0.6284277358588571D-03 - ws( 7) = 0.7887356434495845D-03 - ws( 8) = 0.9828248253396326D-03 - ws( 9) = 0.1224991198563379D-02 - ws( 10) = 0.1536897560920875D-02 - ws( 11) = 0.1953679335292600D-02 - ws( 12) = 0.2534294905417746D-02 - ws( 13) = 0.3379311419132655D-02 - ws( 14) = 0.4629456720447558D-02 - ws( 15) = 0.6305213305247930D-02 - ws( 16) = 0.8055671519080690D-02 - ws( 17) = 0.9402179234467456D-02 - ws( 18) = 0.1022372089843468D-01 - ws( 19) = 0.1067732435305690D-01 - ws( 20) = 0.1093209799317734D-01 - ws( 21) = 0.1109162237708303D-01 - ws( 22) = 0.1120913132583828D-01 - ws( 23) = 0.1131335602838375D-01 - ws( 24) = 0.1144143720787521D-01 - ws( 25) = 0.1140178295669231D-01 - ws( 26) = 0.8984753071519358D-02 - endif - - - if( iquad .eq. 105 ) then - idomain = 105 - rk0r = 0.6283185307180586D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 29 - err = 0.3315199246212990D-04 - ierq = 0 - xs( 1) = 0.3469189297216749D-04 - xs( 2) = 0.1837340372656337D-03 - xs( 3) = 0.4558237361525647D-03 - xs( 4) = 0.8581843689649092D-03 - xs( 5) = 0.1402048537985765D-02 - xs( 6) = 0.2103714922513680D-02 - xs( 7) = 0.2986016901147802D-02 - xs( 8) = 0.4080428674509977D-02 - xs( 9) = 0.5430092904134771D-02 - xs( 10) = 0.7094273656552283D-02 - xs( 11) = 0.9155182537033705D-02 - xs( 12) = 0.1172809080173525D-01 - xs( 13) = 0.1497431543219938D-01 - xs( 14) = 0.1910201450216536D-01 - xs( 15) = 0.2431707943592328D-01 - xs( 16) = 0.3072503156294577D-01 - xs( 17) = 0.3826414183017256D-01 - xs( 18) = 0.4673847489751307D-01 - xs( 19) = 0.5591337146593703D-01 - xs( 20) = 0.6558827842882081D-01 - xs( 21) = 0.7561901777065982D-01 - xs( 22) = 0.8591065095181423D-01 - xs( 23) = 0.9640296718612525D-01 - xs( 24) = 0.1070575636344248D+00 - xs( 25) = 0.1178477239126507D+00 - xs( 26) = 0.1287487010333749D+00 - xs( 27) = 0.1397124023212232D+00 - xs( 28) = 0.1505680882290129D+00 - xs( 29) = 0.1608984146422614D+00 - ws( 1) = 0.8913745326666500D-04 - ws( 2) = 0.2096500489143150D-03 - ws( 3) = 0.3357177632858745D-03 - ws( 4) = 0.4708587129456351D-03 - ws( 5) = 0.6195620607819572D-03 - ws( 6) = 0.7875418764405113D-03 - ws( 7) = 0.9822582327813159D-03 - ws( 8) = 0.1213684295757692D-02 - ws( 9) = 0.1495409638216551D-02 - ws( 10) = 0.1846488038343454D-02 - ws( 11) = 0.2294303747331355D-02 - ws( 12) = 0.2878262355966282D-02 - ws( 13) = 0.3649669243829076D-02 - ws( 14) = 0.4641920720778769D-02 - ws( 15) = 0.5807129515976333D-02 - ws( 16) = 0.6997811109311017D-02 - ws( 17) = 0.8045897751732388D-02 - ws( 18) = 0.8862393788343102D-02 - ws( 19) = 0.9453674511709887D-02 - ws( 20) = 0.9872280965306948D-02 - ws( 21) = 0.1017365310812128D-01 - ws( 22) = 0.1039994427372259D-01 - ws( 23) = 0.1057927705079974D-01 - ws( 24) = 0.1072968064980928D-01 - ws( 25) = 0.1086089916978139D-01 - ws( 26) = 0.1098001066557572D-01 - ws( 27) = 0.1109523564554193D-01 - ws( 28) = 0.1084736458407015D-01 - ws( 29) = 0.7910017751463515D-02 - endif - - - if( iquad .eq. 106 ) then - idomain = 106 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 21 - err = 0.5053163374503161D-04 - ierq = 0 - xs( 1) = 0.6594315906305094D-04 - xs( 2) = 0.3501957607666998D-03 - xs( 3) = 0.8734071558740996D-03 - xs( 4) = 0.1657980820452069D-02 - xs( 5) = 0.2739807445364564D-02 - xs( 6) = 0.4174093502620670D-02 - xs( 7) = 0.6047442653856232D-02 - xs( 8) = 0.8490328214937923D-02 - xs( 9) = 0.1167435869570375D-01 - xs( 10) = 0.1578957387271042D-01 - xs( 11) = 0.2100373045079715D-01 - xs( 12) = 0.2740414093035997D-01 - xs( 13) = 0.3494930619375111D-01 - xs( 14) = 0.4347766860157908D-01 - xs( 15) = 0.5277248039813438D-01 - xs( 16) = 0.6262694642297319D-01 - xs( 17) = 0.7287264014325537D-01 - xs( 18) = 0.8337180368367575D-01 - xs( 19) = 0.9397493979965063D-01 - xs( 20) = 0.1044521089267190D+00 - xs( 21) = 0.1144950563920100D+00 - ws( 1) = 0.1695369113684984D-03 - ws( 2) = 0.4009613561070115D-03 - ws( 3) = 0.6491545071891799D-03 - ws( 4) = 0.9258966701030804D-03 - ws( 5) = 0.1246753167672722D-02 - ws( 6) = 0.1635999148420035D-02 - ws( 7) = 0.2132493055020865D-02 - ws( 8) = 0.2782282991225146D-02 - ws( 9) = 0.3618119988586930D-02 - ws( 10) = 0.4641302761706330D-02 - ws( 11) = 0.5802515516286591D-02 - ws( 12) = 0.6991226575810658D-02 - ws( 13) = 0.8070870357169344D-02 - ws( 14) = 0.8948468800118618D-02 - ws( 15) = 0.9606084435210062D-02 - ws( 16) = 0.1007473686458000D-01 - ws( 17) = 0.1039714834892121D-01 - ws( 18) = 0.1059769708943043D-01 - ws( 19) = 0.1056633053374071D-01 - ws( 20) = 0.9555183320383676D-02 - ws( 21) = 0.5766578223804959D-02 - endif - - - if( iquad .eq. 107 ) then - idomain = 107 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 24 - err = 0.2742225377767826D-04 - ierq = 0 - xs( 1) = 0.8100526237654188D-04 - xs( 2) = 0.4323545880848866D-03 - xs( 3) = 0.1085394642167616D-02 - xs( 4) = 0.2072387151243941D-02 - xs( 5) = 0.3437298176229041D-02 - xs( 6) = 0.5237808681867170D-02 - xs( 7) = 0.7545162192747226D-02 - xs( 8) = 0.1043876774978574D-01 - xs( 9) = 0.1399670883950543D-01 - xs( 10) = 0.1828491765757487D-01 - xs( 11) = 0.2334644469925781D-01 - xs( 12) = 0.2919256157938969D-01 - xs( 13) = 0.3579901604202154D-01 - xs( 14) = 0.4310994238549340D-01 - xs( 15) = 0.5104826495397705D-01 - xs( 16) = 0.5952821106438774D-01 - xs( 17) = 0.6846548129873486D-01 - xs( 18) = 0.7778290862492503D-01 - xs( 19) = 0.8741147543892575D-01 - xs( 20) = 0.9728646543378952D-01 - xs( 21) = 0.1073318286470566D+00 - xs( 22) = 0.1174188728731134D+00 - xs( 23) = 0.1273369986719671D+00 - xs( 24) = 0.1368638904953244D+00 - ws( 1) = 0.2085393406260897D-03 - ws( 2) = 0.4977297817371610D-03 - ws( 3) = 0.8137215295115699D-03 - ws( 4) = 0.1167546531725841D-02 - ws( 5) = 0.1571882291925251D-02 - ws( 6) = 0.2041107424914962D-02 - ws( 7) = 0.2587001404429894D-02 - ws( 8) = 0.3213406706928405D-02 - ws( 9) = 0.3913646497781909D-02 - ws( 10) = 0.4670102999932056D-02 - ws( 11) = 0.5454897548536478D-02 - ws( 12) = 0.6233220933770056D-02 - ws( 13) = 0.6970178302517752D-02 - ws( 14) = 0.7638573435595736D-02 - ws( 15) = 0.8223523684871959D-02 - ws( 16) = 0.8722108244257018D-02 - ws( 17) = 0.9139598518162588D-02 - ws( 18) = 0.9484809893831487D-02 - ws( 19) = 0.9765965988626453D-02 - ws( 20) = 0.9988371319646578D-02 - ws( 21) = 0.1013505725682596D-01 - ws( 22) = 0.9985144162853777D-02 - ws( 23) = 0.8589989184917626D-02 - ws( 24) = 0.4606409694958036D-02 - endif - - - if( iquad .eq. 108 ) then - idomain = 108 - rk0r = 0.6283185307180586D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 20 - err = 0.5411008505782236D-04 - ierq = 0 - xs( 1) = 0.1505673254219929D-03 - xs( 2) = 0.7988046680789318D-03 - xs( 3) = 0.1979853835668564D-02 - xs( 4) = 0.3714746967882965D-02 - xs( 5) = 0.6028264448676379D-02 - xs( 6) = 0.8943559643833395D-02 - xs( 7) = 0.1247798739904649D-01 - xs( 8) = 0.1664046647255893D-01 - xs( 9) = 0.2143008690134129D-01 - xs( 10) = 0.2683550077873228D-01 - xs( 11) = 0.3283495583055365D-01 - xs( 12) = 0.3939715882734993D-01 - xs( 13) = 0.4648255561413917D-01 - xs( 14) = 0.5404240686019250D-01 - xs( 15) = 0.6200899893449916D-01 - xs( 16) = 0.7027321545490908D-01 - xs( 17) = 0.7868078412660809D-01 - xs( 18) = 0.8708345571665363D-01 - xs( 19) = 0.1035335840242287D+00 - xs( 20) = 0.1191523285854411D+00 - ws( 1) = 0.3873675146930242D-03 - ws( 2) = 0.9112110967478786D-03 - ws( 3) = 0.1454102941648621D-02 - ws( 4) = 0.2019955573029877D-02 - ws( 5) = 0.2610459814803487D-02 - ws( 6) = 0.3222192441123840D-02 - ws( 7) = 0.3847351441723439D-02 - ws( 8) = 0.4476118877759568D-02 - ws( 9) = 0.5098564861491953D-02 - ws( 10) = 0.5705038762307602D-02 - ws( 11) = 0.6285907592956439D-02 - ws( 12) = 0.6831557677703318D-02 - ws( 13) = 0.7335014133861041D-02 - ws( 14) = 0.7797900058423475D-02 - ws( 15) = 0.8212920983039338D-02 - ws( 16) = 0.8412277233352654D-02 - ws( 17) = 0.7699314301730991D-02 - ws( 18) = 0.4869034266476665D-02 - ws( 19) = -.3020781919945913D-02 - ws( 20) = 0.3396122271542746D-02 - endif - - - if( iquad .eq. 109 ) then - idomain = 109 - rk0r = 0.6283185307180586D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 16 - err = 0.3539096601731777D-04 - ierq = 0 - xs( 1) = 0.1666240460959117D-03 - xs( 2) = 0.8901688673064731D-03 - xs( 3) = 0.2248330116999947D-02 - xs( 4) = 0.4237421661014965D-02 - xs( 5) = 0.6842832598367356D-02 - xs( 6) = 0.1004231225041699D-01 - xs( 7) = 0.1380762453954051D-01 - xs( 8) = 0.1810801416439515D-01 - xs( 9) = 0.2291077715536025D-01 - xs( 10) = 0.2817387023691900D-01 - xs( 11) = 0.3383403989509039D-01 - xs( 12) = 0.3980760437886956D-01 - xs( 13) = 0.4601003958067321D-01 - xs( 14) = 0.5237204275121637D-01 - xs( 15) = 0.5883677499450822D-01 - xs( 16) = 0.7188350203936245D-01 - ws( 1) = 0.4067840859857856D-03 - ws( 2) = 0.1031233826556862D-02 - ws( 3) = 0.1669924709394206D-02 - ws( 4) = 0.2302103177516983D-02 - ws( 5) = 0.2913517939686672D-02 - ws( 6) = 0.3497374910032351D-02 - ws( 7) = 0.4058389278533947D-02 - ws( 8) = 0.4590947730269673D-02 - ws( 9) = 0.5086355705480708D-02 - ws( 10) = 0.5539483879709616D-02 - ws( 11) = 0.5891546860417221D-02 - ws( 12) = 0.5912862183575735D-02 - ws( 13) = 0.5213079257338151D-02 - ws( 14) = 0.3579185780813998D-02 - ws( 15) = 0.1480760879551111D-02 - ws( 16) = -.2608801761692227D-03 - endif - - - if( iquad .eq. 110 ) then - idomain = 110 - rk0r = 0.6283185307180586D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 3 - err = 0.8069523432785095D-04 - ierq = 0 - xs( 1) = 0.1166306844178103D-01 - xs( 2) = 0.2021297057751123D-01 - xs( 3) = 0.3940007091214201D-01 - ws( 1) = 0.1495681870202856D-05 - ws( 2) = 0.4524164478550376D-06 - ws( 3) = -.7954059075231885D-06 - endif - - - if( iquad .eq. 111 ) then - idomain = 111 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 27 - err = 0.3632853209357514D-04 - ierq = 0 - xs( 1) = 0.1150282242763771D-04 - xs( 2) = 0.6080556419589489D-04 - xs( 3) = 0.1503240896850388D-03 - xs( 4) = 0.2815530630198345D-03 - xs( 5) = 0.4567906494172587D-03 - xs( 6) = 0.6793514219621251D-03 - xs( 7) = 0.9538283505068079D-03 - xs( 8) = 0.1286460259453079D-02 - xs( 9) = 0.1685621681806552D-02 - xs( 10) = 0.2162513553495539D-02 - xs( 11) = 0.2732195049231860D-02 - xs( 12) = 0.3415100882702572D-02 - xs( 13) = 0.4239448610790284D-02 - xs( 14) = 0.5244985634569235D-02 - xs( 15) = 0.6489555042309701D-02 - xs( 16) = 0.8060707320342021D-02 - xs( 17) = 0.1009929587713707D-01 - xs( 18) = 0.1284865759182606D-01 - xs( 19) = 0.1675166913454881D-01 - xs( 20) = 0.2260876974340339D-01 - xs( 21) = 0.3140492594507038D-01 - xs( 22) = 0.4311113264695267D-01 - xs( 23) = 0.5637712382960591D-01 - xs( 24) = 0.7006528324139276D-01 - xs( 25) = 0.8367387148149379D-01 - xs( 26) = 0.9692021759291783D-01 - xs( 27) = 0.1093219462664243D+00 - ws( 1) = 0.2954244103961030D-04 - ws( 2) = 0.6921853303244857D-04 - ws( 3) = 0.1100642387004826D-03 - ws( 4) = 0.1527737580148870D-03 - ws( 5) = 0.1982500906205076D-03 - ws( 6) = 0.2476298945307576D-03 - ws( 7) = 0.3023544844133752D-03 - ws( 8) = 0.3642928082642162D-03 - ws( 9) = 0.4358789737310578D-03 - ws( 10) = 0.5203906937900827D-03 - ws( 11) = 0.6223351425738106D-03 - ws( 12) = 0.7481258049653713D-03 - ws( 13) = 0.9070807283626437D-03 - ws( 14) = 0.1113470282530657D-02 - ws( 15) = 0.1389867106446336D-02 - ws( 16) = 0.1775189390215728D-02 - ws( 17) = 0.2340998270163811D-02 - ws( 18) = 0.3228412761619537D-02 - ws( 19) = 0.4710620506051845D-02 - ws( 20) = 0.7192042399438244D-02 - ws( 21) = 0.1040898739718271D-01 - ws( 22) = 0.1273748883637304D-01 - ws( 23) = 0.1360409097322452D-01 - ws( 24) = 0.1370775616274868D-01 - ws( 25) = 0.1353201736085870D-01 - ws( 26) = 0.1290713864360540D-01 - ws( 27) = 0.9496093008059673D-02 - endif - - - if( iquad .eq. 112 ) then - idomain = 112 - rk0r = 0.9424777960770379D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 27 - err = 0.4804762789937297D-04 - ierq = 0 - xs( 1) = 0.1226070342529999D-04 - xs( 2) = 0.6478804681932800D-04 - xs( 3) = 0.1600758739420073D-03 - xs( 4) = 0.2996124960395500D-03 - xs( 5) = 0.4857548785684093D-03 - xs( 6) = 0.7219745351760478D-03 - xs( 7) = 0.1013158152378310D-02 - xs( 8) = 0.1365991429203484D-02 - xs( 9) = 0.1789488904876461D-02 - xs( 10) = 0.2295760347834280D-02 - xs( 11) = 0.2901111351163044D-02 - xs( 12) = 0.3627792050651554D-02 - xs( 13) = 0.4506526754116381D-02 - xs( 14) = 0.5580796378041125D-02 - xs( 15) = 0.6914102611307205D-02 - xs( 16) = 0.8603235319751028D-02 - xs( 17) = 0.1080361838470568D-01 - xs( 18) = 0.1378545824732898D-01 - xs( 19) = 0.1803439681665198D-01 - xs( 20) = 0.2438550359944721D-01 - xs( 21) = 0.3369129110622582D-01 - xs( 22) = 0.4560015052722165D-01 - xs( 23) = 0.5878462048773701D-01 - xs( 24) = 0.7230592397798059D-01 - xs( 25) = 0.8576463036427222D-01 - xs( 26) = 0.9890203556370747D-01 - xs( 27) = 0.1112124421916510D+00 - ws( 1) = 0.3148684174026574D-04 - ws( 2) = 0.7372001376903690D-04 - ws( 3) = 0.1170996649055601D-03 - ws( 4) = 0.1623621902013640D-03 - ws( 5) = 0.2104955925859704D-03 - ws( 6) = 0.2627506544050048D-03 - ws( 7) = 0.3207217551509806D-03 - ws( 8) = 0.3864341782037374D-03 - ws( 9) = 0.4625618077895179D-03 - ws( 10) = 0.5526677092216313D-03 - ws( 11) = 0.6617003961632092D-03 - ws( 12) = 0.7967110088792916D-03 - ws( 13) = 0.9678878076977203D-03 - ws( 14) = 0.1191024449554960D-02 - ws( 15) = 0.1491341601793084D-02 - ws( 16) = 0.1911933274695601D-02 - ws( 17) = 0.2532243816254055D-02 - ws( 18) = 0.3509507453045743D-02 - ws( 19) = 0.5129110009282234D-02 - ws( 20) = 0.7745188490214317D-02 - ws( 21) = 0.1080268850323961D-01 - ws( 22) = 0.1276182940040053D-01 - ws( 23) = 0.1345348567369031D-01 - ws( 24) = 0.1354686423397231D-01 - ws( 25) = 0.1346026186377856D-01 - ws( 26) = 0.1303640569301828D-01 - ws( 27) = 0.9789898982549226D-02 - endif - - - if( iquad .eq. 113 ) then - idomain = 113 - rk0r = 0.9424777960770379D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 30 - err = 0.5441758394929185D-04 - ierq = 0 - xs( 1) = 0.1244162594908077D-04 - xs( 2) = 0.6575986013315770D-04 - xs( 3) = 0.1625447019722877D-03 - xs( 4) = 0.3043753821352580D-03 - xs( 5) = 0.4936803657222072D-03 - xs( 6) = 0.7339403703305021D-03 - xs( 7) = 0.1029944987657210D-02 - xs( 8) = 0.1388135208465121D-02 - xs( 9) = 0.1817078040737948D-02 - xs( 10) = 0.2328127034356672D-02 - xs( 11) = 0.2936370460971436D-02 - xs( 12) = 0.3662037948119352D-02 - xs( 13) = 0.4532621603510606D-02 - xs( 14) = 0.5586152761536060D-02 - xs( 15) = 0.6876515682347187D-02 - xs( 16) = 0.8482361840900621D-02 - xs( 17) = 0.1052271054565397D-01 - xs( 18) = 0.1318544151219283D-01 - xs( 19) = 0.1677647387838049D-01 - xs( 20) = 0.2178539340457501D-01 - xs( 21) = 0.2886265068114550D-01 - xs( 22) = 0.3835871407547595D-01 - xs( 23) = 0.4975772875899992D-01 - xs( 24) = 0.6214482762669610D-01 - xs( 25) = 0.7489343243399907D-01 - xs( 26) = 0.8771840781605426D-01 - xs( 27) = 0.1005146823735741D+00 - xs( 28) = 0.1132326295184294D+00 - xs( 29) = 0.1257417706351885D+00 - xs( 30) = 0.1375924631264914D+00 - ws( 1) = 0.3195244390967345D-04 - ws( 2) = 0.7484881371010888D-04 - ws( 3) = 0.1189801878122715D-03 - ws( 4) = 0.1650828235128019D-03 - ws( 5) = 0.2141031699878816D-03 - ws( 6) = 0.2672096467477597D-03 - ws( 7) = 0.3258652467416871D-03 - ws( 8) = 0.3919321672006237D-03 - ws( 9) = 0.4678302432848090D-03 - ws( 10) = 0.5567593431379629D-03 - ws( 11) = 0.6630648545130860D-03 - ws( 12) = 0.7927990975650278D-03 - ws( 13) = 0.9546223963446067D-03 - ws( 14) = 0.1161277048585031D-02 - ws( 15) = 0.1432313656495400D-02 - ws( 16) = 0.1798762375147307D-02 - ws( 17) = 0.2312428329832392D-02 - ws( 18) = 0.3062835347228827D-02 - ws( 19) = 0.4200088106200165D-02 - ws( 20) = 0.5933630212596692D-02 - ws( 21) = 0.8294445186986965D-02 - ws( 22) = 0.1059958169047085D-01 - ws( 23) = 0.1203232413415507D-01 - ws( 24) = 0.1263855025128570D-01 - ws( 25) = 0.1281468084486358D-01 - ws( 26) = 0.1282252331835065D-01 - ws( 27) = 0.1278784794006670D-01 - ws( 28) = 0.1277542385727231D-01 - ws( 29) = 0.1255331927366492D-01 - ws( 30) = 0.9772345143762311D-02 - endif - - - if( iquad .eq. 114 ) then - idomain = 114 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 30 - err = 0.8326749115097822D-04 - ierq = 0 - xs( 1) = 0.1401623633518066D-04 - xs( 2) = 0.7408888711124719D-04 - xs( 3) = 0.1831585412144364D-03 - xs( 4) = 0.3430366910338852D-03 - xs( 5) = 0.5564892974934629D-03 - xs( 6) = 0.8274525088713839D-03 - xs( 7) = 0.1161307294855065D-02 - xs( 8) = 0.1565252606311160D-02 - xs( 9) = 0.2048822492630839D-02 - xs( 10) = 0.2624609447888253D-02 - xs( 11) = 0.3309298068339849D-02 - xs( 12) = 0.4125189126597208D-02 - xs( 13) = 0.5102508011439349D-02 - xs( 14) = 0.6282943576361738D-02 - xs( 15) = 0.7725399422848986D-02 - xs( 16) = 0.9515670330552872D-02 - xs( 17) = 0.1178354525584755D-01 - xs( 18) = 0.1473287350020874D-01 - xs( 19) = 0.1869376866060818D-01 - xs( 20) = 0.2417814952042205D-01 - xs( 21) = 0.3176189267584110D-01 - xs( 22) = 0.4156193046059837D-01 - xs( 23) = 0.5296126401469879D-01 - xs( 24) = 0.6517110183145010D-01 - xs( 25) = 0.7768709310390584D-01 - xs( 26) = 0.9027270057648480D-01 - xs( 27) = 0.1028296680617161D+00 - xs( 28) = 0.1152965493547201D+00 - xs( 29) = 0.1275211360869552D+00 - xs( 30) = 0.1390669501608658D+00 - ws( 1) = 0.3599708495620199D-04 - ws( 2) = 0.8433785874086356D-04 - ws( 3) = 0.1340992404565846D-03 - ws( 4) = 0.1861147481340592D-03 - ws( 5) = 0.2414420030911823D-03 - ws( 6) = 0.3013751675398195D-03 - ws( 7) = 0.3675256884528422D-03 - ws( 8) = 0.4419420406613336D-03 - ws( 9) = 0.5272795052385838D-03 - ws( 10) = 0.6270505135196034D-03 - ws( 11) = 0.7460056503979027D-03 - ws( 12) = 0.8907578124078949D-03 - ws( 13) = 0.1070735033360170D-02 - ws( 14) = 0.1299801950213532D-02 - ws( 15) = 0.1599132272437922D-02 - ws( 16) = 0.2002572845504662D-02 - ws( 17) = 0.2566275312808220D-02 - ws( 18) = 0.3386174145290839D-02 - ws( 19) = 0.4621696304383055D-02 - ws( 20) = 0.6453482310764421D-02 - ws( 21) = 0.8741222949203115D-02 - ws( 22) = 0.1074218050631048D-01 - ws( 23) = 0.1191713259833866D-01 - ws( 24) = 0.1242019812640530D-01 - ws( 25) = 0.1257538648173199D-01 - ws( 26) = 0.1258320974302987D-01 - ws( 27) = 0.1253622302802980D-01 - ws( 28) = 0.1246076997339564D-01 - ws( 29) = 0.1204509959367852D-01 - ws( 30) = 0.8916866314540464D-02 - endif - - - if( iquad .eq. 115 ) then - idomain = 115 - rk0r = 0.9424777960770379D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 31 - err = 0.6892741183523186D-04 - ierq = 0 - xs( 1) = 0.1646144045661845D-04 - xs( 2) = 0.8700862823581011D-04 - xs( 3) = 0.2150716692999207D-03 - xs( 4) = 0.4027333200744342D-03 - xs( 5) = 0.6531683928958337D-03 - xs( 6) = 0.9708803182252357D-03 - xs( 7) = 0.1361993978109393D-02 - xs( 8) = 0.1834649834844111D-02 - xs( 9) = 0.2399548892441814D-02 - xs( 10) = 0.3070713728062576D-02 - xs( 11) = 0.3866581108031122D-02 - xs( 12) = 0.4811602453239150D-02 - xs( 13) = 0.5938641887317706D-02 - xs( 14) = 0.7292706039505011D-02 - xs( 15) = 0.8936947783826598D-02 - xs( 16) = 0.1096272883167536D-01 - xs( 17) = 0.1350719288550954D-01 - xs( 18) = 0.1678214567057361D-01 - xs( 19) = 0.2111460913733004D-01 - xs( 20) = 0.2695693985471024D-01 - xs( 21) = 0.3470263848698772D-01 - xs( 22) = 0.4430340302730798D-01 - xs( 23) = 0.5523730730096389D-01 - xs( 24) = 0.6691570562731891D-01 - xs( 25) = 0.7894342809512574D-01 - xs( 26) = 0.9111279388429848D-01 - xs( 27) = 0.1033263338107451D+00 - xs( 28) = 0.1155362585173669D+00 - xs( 29) = 0.1276936057245295D+00 - xs( 30) = 0.1396441397302305D+00 - xs( 31) = 0.1509553679666867D+00 - ws( 1) = 0.4227644300367247D-04 - ws( 2) = 0.9903671899416131D-04 - ws( 3) = 0.1574318067288725D-03 - ws( 4) = 0.2184169572884532D-03 - ws( 5) = 0.2831989673576960D-03 - ws( 6) = 0.3532392213182346D-03 - ws( 7) = 0.4303358403322456D-03 - ws( 8) = 0.5167469853606341D-03 - ws( 9) = 0.6153703834985614D-03 - ws( 10) = 0.7300060470365516D-03 - ws( 11) = 0.8657650630900713D-03 - ws( 12) = 0.1029695194946435D-02 - ws( 13) = 0.1231787636174430D-02 - ws( 14) = 0.1486708850260886D-02 - ws( 15) = 0.1816715093095473D-02 - ws( 16) = 0.2257237710849000D-02 - ws( 17) = 0.2866260682357336D-02 - ws( 18) = 0.3737563538605523D-02 - ws( 19) = 0.5005330348203142D-02 - ws( 20) = 0.6753341919386156D-02 - ws( 21) = 0.8730946932038226D-02 - ws( 22) = 0.1037450707145505D-01 - ws( 23) = 0.1139091388631541D-01 - ws( 24) = 0.1190076766339771D-01 - ws( 25) = 0.1212174897021765D-01 - ws( 26) = 0.1220303979445242D-01 - ws( 27) = 0.1222240011822448D-01 - ws( 28) = 0.1221642589254337D-01 - ws( 29) = 0.1218906992898259D-01 - ws( 30) = 0.1179602828979627D-01 - ws( 31) = 0.8664087092775366D-02 - endif - - - if( iquad .eq. 116 ) then - idomain = 116 - rk0r = 0.9424777960770379D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 30 - err = 0.9638477897556067D-04 - ierq = 0 - xs( 1) = 0.2151706803648739D-04 - xs( 2) = 0.1138688864444464D-03 - xs( 3) = 0.2820090840873802D-03 - xs( 4) = 0.5293141790819256D-03 - xs( 5) = 0.8606087628910842D-03 - xs( 6) = 0.1282408870197722D-02 - xs( 7) = 0.1803319037641040D-02 - xs( 8) = 0.2434653048651450D-02 - xs( 9) = 0.3191240492603739D-02 - xs( 10) = 0.4092576516547790D-02 - xs( 11) = 0.5164552695854670D-02 - xs( 12) = 0.6441710308397808D-02 - xs( 13) = 0.7971419364998879D-02 - xs( 14) = 0.9820649794108459D-02 - xs( 15) = 0.1208746594611276D-01 - xs( 16) = 0.1492334253003166D-01 - xs( 17) = 0.1855558451444655D-01 - xs( 18) = 0.2328125103654411D-01 - xs( 19) = 0.2939527676456932D-01 - xs( 20) = 0.3704761179578734D-01 - xs( 21) = 0.4612714422041994D-01 - xs( 22) = 0.5630816150978346D-01 - xs( 23) = 0.6722026282764088D-01 - xs( 24) = 0.7857187130104751D-01 - xs( 25) = 0.9017312685555952D-01 - xs( 26) = 0.1019088784942807D+00 - xs( 27) = 0.1137011350739634D+00 - xs( 28) = 0.1254571998428487D+00 - xs( 29) = 0.1369798771813496D+00 - xs( 30) = 0.1479101200227650D+00 - ws( 1) = 0.5527692449938904D-04 - ws( 2) = 0.1297944991085753D-03 - ws( 3) = 0.2070455050728621D-03 - ws( 4) = 0.2883648730661351D-03 - ws( 5) = 0.3753039273097811D-03 - ws( 6) = 0.4697197905204201D-03 - ws( 7) = 0.5739728700479715D-03 - ws( 8) = 0.6911489251495474D-03 - ws( 9) = 0.8252442153178723D-03 - ws( 10) = 0.9817102270571261D-03 - ws( 11) = 0.1167931823864112D-02 - ws( 12) = 0.1394162479348419D-02 - ws( 13) = 0.1676257887302827D-02 - ws( 14) = 0.2038144419774864D-02 - ws( 15) = 0.2520291129561638D-02 - ws( 16) = 0.3189346745116666D-02 - ws( 17) = 0.4125788208696694D-02 - ws( 18) = 0.5377326322405371D-02 - ws( 19) = 0.6878111121700814D-02 - ws( 20) = 0.8407153557916901D-02 - ws( 21) = 0.9694219074210648D-02 - ws( 22) = 0.1060392095709563D-01 - ws( 23) = 0.1117143872610815D-01 - ws( 24) = 0.1150065470623876D-01 - ws( 25) = 0.1168382906837754D-01 - ws( 26) = 0.1178014996259616D-01 - ws( 27) = 0.1181712845256473D-01 - ws( 28) = 0.1173307392475904D-01 - ws( 29) = 0.1089778671421236D-01 - ws( 30) = 0.7100023231058349D-02 - endif - - - if( iquad .eq. 117 ) then - idomain = 117 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 24 - err = 0.6597762967793323D-04 - ierq = 0 - xs( 1) = 0.2657491467708167D-04 - xs( 2) = 0.1541933097489155D-03 - xs( 3) = 0.4131804445974601D-03 - xs( 4) = 0.8193370514208363D-03 - xs( 5) = 0.1385230619116109D-02 - xs( 6) = 0.2127200410597383D-02 - xs( 7) = 0.3068266338376163D-02 - xs( 8) = 0.4238959394699865D-02 - xs( 9) = 0.5680857734844618D-02 - xs( 10) = 0.7461845297799323D-02 - xs( 11) = 0.9697227440488997D-02 - xs( 12) = 0.1255102925159598D-01 - xs( 13) = 0.1621924255680681D-01 - xs( 14) = 0.2091355080389390D-01 - xs( 15) = 0.2682941959655931D-01 - xs( 16) = 0.3407927899606208D-01 - xs( 17) = 0.4262110455092488D-01 - xs( 18) = 0.5225403710003813D-01 - xs( 19) = 0.6269835809630583D-01 - xs( 20) = 0.7368535841725617D-01 - xs( 21) = 0.8499106112683091D-01 - xs( 22) = 0.9640418016795327D-01 - xs( 23) = 0.1076582765169747D+00 - xs( 24) = 0.1184292896074264D+00 - ws( 1) = 0.7036883738582367D-04 - ws( 2) = 0.1898194178793092D-03 - ws( 3) = 0.3305443926088709D-03 - ws( 4) = 0.4837572217796941D-03 - ws( 5) = 0.6507052505828811D-03 - ws( 6) = 0.8370665053791748D-03 - ws( 7) = 0.1050125907883440D-02 - ws( 8) = 0.1297936174235847D-02 - ws( 9) = 0.1596729412114515D-02 - ws( 10) = 0.1984456105026042D-02 - ws( 11) = 0.2514013039572361D-02 - ws( 12) = 0.3226467098338264D-02 - ws( 13) = 0.4145708608413015D-02 - ws( 14) = 0.5276673751979922D-02 - ws( 15) = 0.6575218400962223D-02 - ws( 16) = 0.7917625687576086D-02 - ws( 17) = 0.9130912461916331D-02 - ws( 18) = 0.1008651235888277D-01 - ws( 19) = 0.1075686057227318D-01 - ws( 20) = 0.1118359652281337D-01 - ws( 21) = 0.1140401990627289D-01 - ws( 22) = 0.1128553916053801D-01 - ws( 23) = 0.1002004641134980D-01 - ws( 24) = 0.5852250310168722D-02 - endif - - - if( iquad .eq. 118 ) then - idomain = 118 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 27 - err = 0.5243325697299362D-04 - ierq = 0 - xs( 1) = 0.5804224705188919D-04 - xs( 2) = 0.3071362843950239D-03 - xs( 3) = 0.7608086341297614D-03 - xs( 4) = 0.1429289881282355D-02 - xs( 5) = 0.2328465460317522D-02 - xs( 6) = 0.3481091845346948D-02 - xs( 7) = 0.4918913244986323D-02 - xs( 8) = 0.6686553958183995D-02 - xs( 9) = 0.8845365633057281D-02 - xs( 10) = 0.1147253136839139D-01 - xs( 11) = 0.1465415644441954D-01 - xs( 12) = 0.1847640567831891D-01 - xs( 13) = 0.2301701986902631D-01 - xs( 14) = 0.2833589793990827D-01 - xs( 15) = 0.3446456083356960D-01 - xs( 16) = 0.4139781997892299D-01 - xs( 17) = 0.4909226080649387D-01 - xs( 18) = 0.5747339914007735D-01 - xs( 19) = 0.6644864536734818D-01 - xs( 20) = 0.7592062407742145D-01 - xs( 21) = 0.8579650869637680D-01 - xs( 22) = 0.9599159409315232D-01 - xs( 23) = 0.1064258481342401D+00 - xs( 24) = 0.1170070825603432D+00 - xs( 25) = 0.1275925685774302D+00 - xs( 26) = 0.1379678052485125D+00 - xs( 27) = 0.1479157206539107D+00 - ws( 1) = 0.1491038011981716D-03 - ws( 2) = 0.3500889496762393D-03 - ws( 3) = 0.5589379288309951D-03 - ws( 4) = 0.7806546762113832D-03 - ws( 5) = 0.1021457634548424D-02 - ws( 6) = 0.1289017712128462D-02 - ws( 7) = 0.1593983610637372D-02 - ws( 8) = 0.1951533902807682D-02 - ws( 9) = 0.2379083635129987D-02 - ws( 10) = 0.2889753209965052D-02 - ws( 11) = 0.3487993635080252D-02 - ws( 12) = 0.4169617605677704D-02 - ws( 13) = 0.4921778843495983D-02 - ws( 14) = 0.5721382350354064D-02 - ws( 15) = 0.6535107457484006D-02 - ws( 16) = 0.7324041446183508D-02 - ws( 17) = 0.8052180477614938D-02 - ws( 18) = 0.8694411259407731D-02 - ws( 19) = 0.9239714445915235D-02 - ws( 20) = 0.9688992562914838D-02 - ws( 21) = 0.1004998053022576D-01 - ws( 22) = 0.1033180179226042D-01 - ws( 23) = 0.1053854193641785D-01 - ws( 24) = 0.1063288804450934D-01 - ws( 25) = 0.1033013300570456D-01 - ws( 26) = 0.8641638822448137D-02 - ws( 27) = 0.4436484437244440D-02 - endif - - - if( iquad .eq. 119 ) then - idomain = 119 - rk0r = 0.9424777960770379D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 27 - err = 0.8492860166783056D-04 - ierq = 0 - xs( 1) = 0.1033613853924956D-03 - xs( 2) = 0.5470218243765072D-03 - xs( 3) = 0.1354594432921459D-02 - xs( 4) = 0.2541190438888656D-02 - xs( 5) = 0.4126808816266542D-02 - xs( 6) = 0.6135258841598394D-02 - xs( 7) = 0.8592407645020953D-02 - xs( 8) = 0.1152404079458906D-01 - xs( 9) = 0.1495376422246983D-01 - xs( 10) = 0.1890114697136029D-01 - xs( 11) = 0.2338008441999282D-01 - xs( 12) = 0.2839738195900006D-01 - xs( 13) = 0.3395168729931151D-01 - xs( 14) = 0.4003297698258541D-01 - xs( 15) = 0.4662275042823370D-01 - xs( 16) = 0.5369493114941051D-01 - xs( 17) = 0.6121729439822386D-01 - xs( 18) = 0.6915308824505502D-01 - xs( 19) = 0.7746242718324972D-01 - xs( 20) = 0.8610299489607302D-01 - xs( 21) = 0.9502936469473618D-01 - xs( 22) = 0.1041892725197270D+00 - xs( 23) = 0.1135134587496165D+00 - xs( 24) = 0.1229001205067823D+00 - xs( 25) = 0.1322154710715394D+00 - xs( 26) = 0.1413327084878461D+00 - xs( 27) = 0.1501675551104291D+00 - ws( 1) = 0.2655412960200289D-03 - ws( 2) = 0.6235289862729520D-03 - ws( 3) = 0.9941361376973217D-03 - ws( 4) = 0.1382408657249078D-02 - ws( 5) = 0.1792827009114435D-02 - ws( 6) = 0.2228422746516836D-02 - ws( 7) = 0.2690210375377886D-02 - ws( 8) = 0.3177024171529769D-02 - ws( 9) = 0.3685714748911989D-02 - ws( 10) = 0.4211393750995743D-02 - ws( 11) = 0.4747635373202935D-02 - ws( 12) = 0.5286739810318524D-02 - ws( 13) = 0.5820181040927724D-02 - ws( 14) = 0.6339256736716765D-02 - ws( 15) = 0.6835822223216264D-02 - ws( 16) = 0.7302936985075370D-02 - ws( 17) = 0.7735251770581508D-02 - ws( 18) = 0.8129026641687350D-02 - ws( 19) = 0.8481717111367691D-02 - ws( 20) = 0.8791053231127175D-02 - ws( 21) = 0.9053170974735004D-02 - ws( 22) = 0.9255922961666342D-02 - ws( 23) = 0.9345070310056649D-02 - ws( 24) = 0.9106015367389499D-02 - ws( 25) = 0.8000530768672045D-02 - ws( 26) = 0.5451784492344545D-02 - ws( 27) = 0.2058422952586754D-02 - endif - - - if( iquad .eq. 120 ) then - idomain = 120 - rk0r = 0.9424777960770379D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 23 - err = 0.3210881330035616D-04 - ierq = 0 - xs( 1) = 0.1480718191789204D-03 - xs( 2) = 0.7798723426747533D-03 - xs( 3) = 0.1914258370877456D-02 - xs( 4) = 0.3549006491949854D-02 - xs( 5) = 0.5681454664856504D-02 - xs( 6) = 0.8308683317406137D-02 - xs( 7) = 0.1142727990824730D-01 - xs( 8) = 0.1503274924273821D-01 - xs( 9) = 0.1911885685382609D-01 - xs( 10) = 0.2367708546091594D-01 - xs( 11) = 0.2869616179484278D-01 - xs( 12) = 0.3416154919428786D-01 - xs( 13) = 0.4005492921363312D-01 - xs( 14) = 0.4635372966456506D-01 - xs( 15) = 0.5303036817713286D-01 - xs( 16) = 0.6004975181496092D-01 - xs( 17) = 0.6736324557000166D-01 - xs( 18) = 0.7490200600719422D-01 - xs( 19) = 0.8258098609655769D-01 - xs( 20) = 0.9031844975001312D-01 - xs( 21) = 0.9805299736952412D-01 - xs( 22) = 0.1133554030557897D+00 - xs( 23) = 0.1354694321377654D+00 - ws( 1) = 0.3801797170653350D-03 - ws( 2) = 0.8833140966337590D-03 - ws( 3) = 0.1384859586857922D-02 - ws( 4) = 0.1883731425908944D-02 - ws( 5) = 0.2379953993697995D-02 - ws( 6) = 0.2873178251558586D-02 - ws( 7) = 0.3362427245902512D-02 - ws( 8) = 0.3846359024518371D-02 - ws( 9) = 0.4323074635786373D-02 - ws( 10) = 0.4789934949932439D-02 - ws( 11) = 0.5243878753230692D-02 - ws( 12) = 0.5681725015960782D-02 - ws( 13) = 0.6099616660110860D-02 - ws( 14) = 0.6491599568883182D-02 - ws( 15) = 0.6848172046916978D-02 - ws( 16) = 0.7151712830587984D-02 - ws( 17) = 0.7350818731488128D-02 - ws( 18) = 0.7285949069938830D-02 - ws( 19) = 0.6607501061048257D-02 - ws( 20) = 0.4912228093162745D-02 - ws( 21) = 0.2319236080004781D-02 - ws( 22) = -.6370774889936459D-03 - ws( 23) = -.4324501609850843D-03 - endif - - - if( iquad .eq. 121 ) then - idomain = 121 - rk0r = 0.9424777960770379D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 5 - err = 0.8069753366120679D-04 - ierq = 0 - xs( 1) = 0.1289622892730841D-01 - xs( 2) = 0.1503094853726972D-01 - xs( 3) = 0.2159136564092467D-01 - xs( 4) = 0.5271911001724298D-01 - xs( 5) = 0.6629962580265682D-01 - ws( 1) = 0.1773261826795476D-06 - ws( 2) = 0.8283573620080044D-06 - ws( 3) = 0.1286094660759250D-07 - ws( 4) = -.2635768965417281D-06 - ws( 5) = -.7105966478137332D-06 - endif - - - - return - end -c -c -c -c -c - subroutine hwts3p2(iquad,xs,ws,n) - implicit real *8 (a-h,o-z) - dimension xs(*), ws(*) -c -c 6 digit exponential representation tables for -c exp(ima*rk*sqrt(u^2+v^2)/sqrt(u^2+v^2) -c - -c#include "../fort.53" - - if( iquad .eq. 1 ) then - idomain = 1 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 22 - err = 0.2374442961547602D-07 - ierq = 0 - xs( 1) = 0.4263475826520879D-03 - xs( 2) = 0.2201837566092728D-02 - xs( 3) = 0.5242209577985515D-02 - xs( 4) = 0.9362432343515081D-02 - xs( 5) = 0.1438937307561495D-01 - xs( 6) = 0.2017954856535106D-01 - xs( 7) = 0.2661733868722887D-01 - xs( 8) = 0.3360898206557718D-01 - xs( 9) = 0.4107770606763431D-01 - xs( 10) = 0.4896048762145591D-01 - xs( 11) = 0.5720579750051194D-01 - xs( 12) = 0.6577183349591047D-01 - xs( 13) = 0.7462504265386656D-01 - xs( 14) = 0.8373889161753141D-01 - xs( 15) = 0.9309289458526981D-01 - xs( 16) = 0.1026719168894660D+00 - xs( 17) = 0.1124657941551417D+00 - xs( 18) = 0.1224693250758203D+00 - xs( 19) = 0.1326827016396219D+00 - xs( 20) = 0.1431127622858226D+00 - xs( 21) = 0.1537751971065782D+00 - xs( 22) = 0.1647281804575546D+00 - ws( 1) = 0.1088745011003584D-02 - ws( 2) = 0.2437661433150703D-02 - ws( 3) = 0.3611277891107724D-02 - ws( 4) = 0.4600079727891918D-02 - ws( 5) = 0.5429953717064406D-02 - ws( 6) = 0.6131237452760487D-02 - ws( 7) = 0.6728796899643803D-02 - ws( 8) = 0.7241746657796191D-02 - ws( 9) = 0.7685234423152148D-02 - ws( 10) = 0.8071770804599242D-02 - ws( 11) = 0.8411909584551975D-02 - ws( 12) = 0.8714598716330275D-02 - ws( 13) = 0.8987435032838432D-02 - ws( 14) = 0.9236917363013146D-02 - ws( 15) = 0.9468731425427262D-02 - ws( 16) = 0.9688085010790475D-02 - ws( 17) = 0.9900172209248905D-02 - ws( 18) = 0.1011124834288656D-01 - ws( 19) = 0.1033118089110113D-01 - ws( 20) = 0.1058380129414994D-01 - ws( 21) = 0.1096763500088111D-01 - ws( 22) = 0.1247303389981593D-01 - endif - - - if( iquad .eq. 2 ) then - idomain = 2 - rk0r = 0.1000010000000000D-11 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 22 - err = 0.1988372771880309D-07 - ierq = 0 - xs( 1) = 0.4289790397256618D-03 - xs( 2) = 0.2214623572683101D-02 - xs( 3) = 0.5270139200143780D-02 - xs( 4) = 0.9407859593719047D-02 - xs( 5) = 0.1445292752942627D-01 - xs( 6) = 0.2026069925860701D-01 - xs( 7) = 0.2671473825082018D-01 - xs( 8) = 0.3372077345864921D-01 - xs( 9) = 0.4120180168265642D-01 - xs( 10) = 0.4909478186004204D-01 - xs( 11) = 0.5734829936673454D-01 - xs( 12) = 0.6592073283149841D-01 - xs( 13) = 0.7477873268428657D-01 - xs( 14) = 0.8389596798219792D-01 - xs( 15) = 0.9325214558500859D-01 - xs( 16) = 0.1028323158915488D+00 - xs( 17) = 0.1126265014160512D+00 - xs( 18) = 0.1226297066636130D+00 - xs( 19) = 0.1328423903578910D+00 - xs( 20) = 0.1432717862827013D+00 - xs( 21) = 0.1539344780501237D+00 - xs( 22) = 0.1648919694255021D+00 - ws( 1) = 0.1095358194379508D-02 - ws( 2) = 0.2450827532704331D-02 - ws( 3) = 0.3627953774907076D-02 - ws( 4) = 0.4618120252323702D-02 - ws( 5) = 0.5447977463530805D-02 - ws( 6) = 0.6148270243501071D-02 - ws( 7) = 0.6744177284692141D-02 - ws( 8) = 0.7255112696078822D-02 - ws( 9) = 0.7696475219165935D-02 - ws( 10) = 0.8080947446450184D-02 - ws( 11) = 0.8419179015310722D-02 - ws( 12) = 0.8720158435768307D-02 - ws( 13) = 0.8991490369589666D-02 - ws( 14) = 0.9239666423262982D-02 - ws( 15) = 0.9470361781351707D-02 - ws( 16) = 0.9688779123239151D-02 - ws( 17) = 0.9900124570189867D-02 - ws( 18) = 0.1011067620751514D-01 - ws( 19) = 0.1033038400567296D-01 - ws( 20) = 0.1058328915630034D-01 - ws( 21) = 0.1096856862562623D-01 - ws( 22) = 0.1248117694662737D-01 - endif - - - if( iquad .eq. 3 ) then - idomain = 3 - rk0r = 0.1000010000000000D-11 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999800001D-01 - n = 22 - err = 0.1817775808049965D-07 - ierq = 0 - xs( 1) = 0.4329134588002159D-03 - xs( 2) = 0.2233454345642098D-02 - xs( 3) = 0.5310492466101970D-02 - xs( 4) = 0.9472415445676750D-02 - xs( 5) = 0.1454226954666421D-01 - xs( 6) = 0.2037422738451799D-01 - xs( 7) = 0.2685101278202636D-01 - xs( 8) = 0.3387775736599068D-01 - xs( 9) = 0.4137710869834951D-01 - xs( 10) = 0.4928589254850273D-01 - xs( 11) = 0.5755271216348397D-01 - xs( 12) = 0.6613604956505599D-01 - xs( 13) = 0.7500269498125212D-01 - xs( 14) = 0.8412646304620405D-01 - xs( 15) = 0.9348719665378409D-01 - xs( 16) = 0.1030700684009784D+00 - xs( 17) = 0.1128652137593101D+00 - xs( 18) = 0.1228677624090206D+00 - xs( 19) = 0.1330782955562814D+00 - xs( 20) = 0.1435043272624447D+00 - xs( 21) = 0.1541632642060460D+00 - xs( 22) = 0.1651158010678913D+00 - ws( 1) = 0.1105205251241624D-02 - ws( 2) = 0.2469870192567935D-02 - ws( 3) = 0.3651293281115201D-02 - ws( 4) = 0.4642857428920176D-02 - ws( 5) = 0.5472624111232188D-02 - ws( 6) = 0.6171856545044937D-02 - ws( 7) = 0.6765983856778421D-02 - ws( 8) = 0.7274667259790542D-02 - ws( 9) = 0.7713545841407771D-02 - ws( 10) = 0.8095488254573523D-02 - ws( 11) = 0.8431260463863962D-02 - ws( 12) = 0.8729908663212471D-02 - ws( 13) = 0.8999055830885510D-02 - ws( 14) = 0.9245189525036168D-02 - ws( 15) = 0.9473971721161266D-02 - ws( 16) = 0.9690594795029145D-02 - ws( 17) = 0.9900257551547900D-02 - ws( 18) = 0.1010927278315083D-01 - ws( 19) = 0.1032768276966518D-01 - ws( 20) = 0.1057938019061695D-01 - ws( 21) = 0.1096706175579500D-01 - ws( 22) = 0.1247357103048985D-01 - endif - - - if( iquad .eq. 4 ) then - idomain = 4 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.9999999999800001D-01 - n = 22 - err = 0.1154388084066343D-07 - ierq = 0 - xs( 1) = 0.4373499088756725D-03 - xs( 2) = 0.2254624139305528D-02 - xs( 3) = 0.5355715213103873D-02 - xs( 4) = 0.9544800845481946D-02 - xs( 5) = 0.1464313974507967D-01 - xs( 6) = 0.2050412494591575D-01 - xs( 7) = 0.2700981891785930D-01 - xs( 8) = 0.3406468983715191D-01 - xs( 9) = 0.4159082993849612D-01 - xs( 10) = 0.4952467976120437D-01 - xs( 11) = 0.5781461115761803D-01 - xs( 12) = 0.6641897702704724D-01 - xs( 13) = 0.7530448707484930D-01 - xs( 14) = 0.8444488019399583D-01 - xs( 15) = 0.9381989533014548D-01 - xs( 16) = 0.1034145465568504D+00 - xs( 17) = 0.1132187326543655D+00 - xs( 18) = 0.1232272566990897D+00 - xs( 19) = 0.1334401930875304D+00 - xs( 20) = 0.1438643568939806D+00 - xs( 21) = 0.1545161486064125D+00 - xs( 22) = 0.1654514016447410D+00 - ws( 1) = 0.1116299932170604D-02 - ws( 2) = 0.2491200668330871D-02 - ws( 3) = 0.3677361405653995D-02 - ws( 4) = 0.4670847857390717D-02 - ws( 5) = 0.5501487534288032D-02 - ws( 6) = 0.6200938021662768D-02 - ws( 7) = 0.6794606509189637D-02 - ws( 8) = 0.7302203684966861D-02 - ws( 9) = 0.7739523119674799D-02 - ws( 10) = 0.8119605237893870D-02 - ws( 11) = 0.8453346381656511D-02 - ws( 12) = 0.8749866847948455D-02 - ws( 13) = 0.9016814598820701D-02 - ws( 14) = 0.9260663917799051D-02 - ws( 15) = 0.9487033845902115D-02 - ws( 16) = 0.9701054561733504D-02 - ws( 17) = 0.9907832639176942D-02 - ws( 18) = 0.1011358170613836D-01 - ws( 19) = 0.1032823229420982D-01 - ws( 20) = 0.1057500882370149D-01 - ws( 21) = 0.1095886798863527D-01 - ws( 22) = 0.1244807538990826D-01 - endif - - - if( iquad .eq. 5 ) then - idomain = 5 - rk0r = 0.1000010000000000D-11 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999980000D+00 - n = 22 - err = 0.9523767260932736D-08 - ierq = 0 - xs( 1) = 0.4468412254101733D-03 - xs( 2) = 0.2299507093451959D-02 - xs( 3) = 0.5449222362247186D-02 - xs( 4) = 0.9687936363135282D-02 - xs( 5) = 0.1483097568704569D-01 - xs( 6) = 0.2073029352164591D-01 - xs( 7) = 0.2726850186693059D-01 - xs( 8) = 0.3435120322844649D-01 - xs( 9) = 0.4190165458296878D-01 - xs( 10) = 0.4985732383595023D-01 - xs( 11) = 0.5816744052277862D-01 - xs( 12) = 0.6679105433958248D-01 - xs( 13) = 0.7569543053912357D-01 - xs( 14) = 0.8485474190630062D-01 - xs( 15) = 0.9424905413749053D-01 - xs( 16) = 0.1038635977679854D+00 - xs( 17) = 0.1136883579191339D+00 - xs( 18) = 0.1237180844202633D+00 - xs( 19) = 0.1339524077540842D+00 - xs( 20) = 0.1443973337827729D+00 - xs( 21) = 0.1550670653301649D+00 - xs( 22) = 0.1659962034466561D+00 - ws( 1) = 0.1139999096886685D-02 - ws( 2) = 0.2535715810997444D-02 - ws( 3) = 0.3727994371431960D-02 - ws( 4) = 0.4718528690569081D-02 - ws( 5) = 0.5543012041251157D-02 - ws( 6) = 0.6236192492465402D-02 - ws( 7) = 0.6824577863066894D-02 - ws( 8) = 0.7328089549170426D-02 - ws( 9) = 0.7762431269700095D-02 - ws( 10) = 0.8140478595440969D-02 - ws( 11) = 0.8472959238723939D-02 - ws( 12) = 0.8768841671768652D-02 - ws( 13) = 0.9035643670288754D-02 - ws( 14) = 0.9279725237527599D-02 - ws( 15) = 0.9506599136652012D-02 - ws( 16) = 0.9721292109094427D-02 - ws( 17) = 0.9928735262530262D-02 - ws( 18) = 0.1013500221060494D-01 - ws( 19) = 0.1034978022784961D-01 - ws( 20) = 0.1059450081010029D-01 - ws( 21) = 0.1097859985573644D-01 - ws( 22) = 0.1240957025857229D-01 - endif - - - if( iquad .eq. 6 ) then - idomain = 6 - rk0r = 0.1000010000000000D-11 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999980000D+00 - n = 22 - err = 0.8509847541883504D-08 - ierq = 0 - xs( 1) = 0.2613560428903532D-03 - xs( 2) = 0.1593944189925823D-02 - xs( 3) = 0.4247027221837374D-02 - xs( 4) = 0.8100491254352978D-02 - xs( 5) = 0.1295728763032710D-01 - xs( 6) = 0.1864398921968073D-01 - xs( 7) = 0.2502202014163344D-01 - xs( 8) = 0.3198164183730131D-01 - xs( 9) = 0.3943543217660168D-01 - xs( 10) = 0.4731350283247444D-01 - xs( 11) = 0.5556000737454345D-01 - xs( 12) = 0.6413046083733771D-01 - xs( 13) = 0.7298963107453096D-01 - xs( 14) = 0.8210989320679161D-01 - xs( 15) = 0.9146999552398967D-01 - xs( 16) = 0.1010541623757585D+00 - xs( 17) = 0.1108515684597170D+00 - xs( 18) = 0.1208563693453967D+00 - xs( 19) = 0.1310671096622139D+00 - xs( 20) = 0.1414893572278551D+00 - xs( 21) = 0.1521360071788532D+00 - xs( 22) = 0.1629864311412880D+00 - ws( 1) = 0.7098930759123719D-03 - ws( 2) = 0.1994549446252649D-02 - ws( 3) = 0.3285879847859066D-02 - ws( 4) = 0.4387010982716334D-02 - ws( 5) = 0.5297621093360714D-02 - ws( 6) = 0.6052813380386838D-02 - ws( 7) = 0.6685069365981114D-02 - ws( 8) = 0.7219681928327054D-02 - ws( 9) = 0.7676308317161653D-02 - ws( 10) = 0.8070570994881914D-02 - ws( 11) = 0.8415062663503307D-02 - ws( 12) = 0.8720008101545147D-02 - ws( 13) = 0.8993774179637998D-02 - ws( 14) = 0.9243290764047066D-02 - ws( 15) = 0.9474464734584170D-02 - ws( 16) = 0.9692627779747671D-02 - ws( 17) = 0.9902757056509323D-02 - ws( 18) = 0.1011136588999152D-01 - ws( 19) = 0.1032846396122731D-01 - ws( 20) = 0.1057206482265001D-01 - ws( 21) = 0.1097934781302502D-01 - ws( 22) = 0.1225001025494144D-01 - endif - - - if( iquad .eq. 7 ) then - idomain = 7 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5707963267928966D+00 - n = 21 - err = 0.8190650351083246D-07 - ierq = 0 - xs( 1) = 0.4848354992078287D-03 - xs( 2) = 0.2492459454350024D-02 - xs( 3) = 0.5893919961754241D-02 - xs( 4) = 0.1044512677012738D-01 - xs( 5) = 0.1592693907468119D-01 - xs( 6) = 0.2216534325902521D-01 - xs( 7) = 0.2902664882428869D-01 - xs( 8) = 0.3640816650293992D-01 - xs( 9) = 0.4423044820770002D-01 - xs( 10) = 0.5243165457917566D-01 - xs( 11) = 0.6096351239844187D-01 - xs( 12) = 0.6978837420159531D-01 - xs( 13) = 0.7887707341060061D-01 - xs( 14) = 0.8820739575676995D-01 - xs( 15) = 0.9776301239940210D-01 - xs( 16) = 0.1075328895946011D+00 - xs( 17) = 0.1175113209205423D+00 - xs( 18) = 0.1276974048257042D+00 - xs( 19) = 0.1380981705930268D+00 - xs( 20) = 0.1487306469996005D+00 - xs( 21) = 0.1595934174838636D+00 - ws( 1) = 0.1236659274652454D-02 - ws( 2) = 0.2744619944958322D-02 - ws( 3) = 0.4016341208203271D-02 - ws( 4) = 0.5049311155292519D-02 - ws( 5) = 0.5885436674282598D-02 - ws( 6) = 0.6569255783311269D-02 - ws( 7) = 0.7136369855648726D-02 - ws( 8) = 0.7613516890350349D-02 - ws( 9) = 0.8020807612278462D-02 - ws( 10) = 0.8373611334370890D-02 - ws( 11) = 0.8683872814613223D-02 - ws( 12) = 0.8961039743491467D-02 - ws( 13) = 0.9212738559908163D-02 - ws( 14) = 0.9445358019452409D-02 - ws( 15) = 0.9664591550131453D-02 - ws( 16) = 0.9875710887700617D-02 - ws( 17) = 0.1008563812242772D-01 - ws( 18) = 0.1030483988074271D-01 - ws( 19) = 0.1055217647160337D-01 - ws( 20) = 0.1096782354691959D-01 - ws( 21) = 0.1228902851939749D-01 - endif - - - if( iquad .eq. 8 ) then - idomain = 8 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1570796326792897D+01 - n = 21 - err = 0.1610221874325854D-07 - ierq = 0 - xs( 1) = 0.2855287267968659D-03 - xs( 2) = 0.1606762084090508D-02 - xs( 3) = 0.4149591077246142D-02 - xs( 4) = 0.7875294694119749D-02 - xs( 5) = 0.1264110364371068D-01 - xs( 6) = 0.1828597056186870D-01 - xs( 7) = 0.2466380080356057D-01 - xs( 8) = 0.3165263993107478D-01 - xs( 9) = 0.3915446489664641D-01 - xs( 10) = 0.4709186493964818D-01 - xs( 11) = 0.5540420152346170D-01 - xs( 12) = 0.6404418195188183D-01 - xs( 13) = 0.7297510761989953D-01 - xs( 14) = 0.8216879660617923D-01 - xs( 15) = 0.9160399351478933D-01 - xs( 16) = 0.1012654751383775D+00 - xs( 17) = 0.1111437974418257D+00 - xs( 18) = 0.1212327764306507D+00 - xs( 19) = 0.1315367156512746D+00 - xs( 20) = 0.1420604120928701D+00 - xs( 21) = 0.1526758002097055D+00 - ws( 1) = 0.7490331655516029D-03 - ws( 2) = 0.1923174255848672D-02 - ws( 3) = 0.3153451164047998D-02 - ws( 4) = 0.4272804607328482D-02 - ws( 5) = 0.5231490967038668D-02 - ws( 6) = 0.6033771604601287D-02 - ws( 7) = 0.6701580130295049D-02 - ws( 8) = 0.7259822178087135D-02 - ws( 9) = 0.7730993971631222D-02 - ws( 10) = 0.8133761200027120D-02 - ws( 11) = 0.8483084975756614D-02 - ws( 12) = 0.8790831502643277D-02 - ws( 13) = 0.9066430982063101D-02 - ws( 14) = 0.9317630809062626D-02 - ws( 15) = 0.9551057954110249D-02 - ws( 16) = 0.9772195758629429D-02 - ws( 17) = 0.9989659726826732D-02 - ws( 18) = 0.1021280840955136D-01 - ws( 19) = 0.1045555094699742D-01 - ws( 20) = 0.1092806747314801D-01 - ws( 21) = 0.1186064029539894D-01 - endif - - - if( iquad .eq. 9 ) then - idomain = 9 - rk0r = 0.1000010000000000D-11 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 21 - err = 0.3079905825974346D-07 - ierq = 0 - xs( 1) = 0.3352516245481946D-03 - xs( 2) = 0.1753061546958143D-02 - xs( 3) = 0.4251975306705359D-02 - xs( 4) = 0.7753329045706739D-02 - xs( 5) = 0.1216019180345731D-01 - xs( 6) = 0.1736962469908338D-01 - xs( 7) = 0.2328173103688547D-01 - xs( 8) = 0.2980524284349172D-01 - xs( 9) = 0.3686016126819554D-01 - xs( 10) = 0.4437835322477409D-01 - xs( 11) = 0.5230296157173045D-01 - xs( 12) = 0.6058725521553592D-01 - xs( 13) = 0.6919334896399659D-01 - xs( 14) = 0.7809104539879792D-01 - xs( 15) = 0.8725668344622491D-01 - xs( 16) = 0.9667264425252142D-01 - xs( 17) = 0.1063274379764288D+00 - xs( 18) = 0.1162110980871338D+00 - xs( 19) = 0.1263299756105114D+00 - xs( 20) = 0.1366784014514412D+00 - xs( 21) = 0.1470057242954640D+00 - ws( 1) = 0.8588134572685417D-03 - ws( 2) = 0.1969235749536581D-02 - ws( 3) = 0.3015223148755781D-02 - ws( 4) = 0.3971123614854789D-02 - ws( 5) = 0.4825293530472934D-02 - ws( 6) = 0.5576831269074768D-02 - ws( 7) = 0.6232128366963268D-02 - ws( 8) = 0.6801554173134184D-02 - ws( 9) = 0.7296940964127203D-02 - ws( 10) = 0.7729992091751576D-02 - ws( 11) = 0.8111467610478228D-02 - ws( 12) = 0.8450878700889045D-02 - ws( 13) = 0.8756412436378494D-02 - ws( 14) = 0.9035334913086304D-02 - ws( 15) = 0.9294264462596222D-02 - ws( 16) = 0.9538369354061669D-02 - ws( 17) = 0.9778791386944832D-02 - ws( 18) = 0.1002448365808354D-01 - ws( 19) = 0.1029023954828856D-01 - ws( 20) = 0.1089578369142928D-01 - ws( 21) = 0.1143974831870823D-01 - endif - - - if( iquad .eq. 10 ) then - idomain = 10 - rk0r = 0.1000010000000000D-11 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 18 - err = 0.5747313141660382D-07 - ierq = 0 - xs( 1) = 0.1785397440388210D-03 - xs( 2) = 0.1011770764180739D-02 - xs( 3) = 0.2650843587042472D-02 - xs( 4) = 0.5133856462549036D-02 - xs( 5) = 0.8439171764658261D-02 - xs( 6) = 0.1252080521077910D-01 - xs( 7) = 0.1732211158946733D-01 - xs( 8) = 0.2278242849981753D-01 - xs( 9) = 0.2884136004817767D-01 - xs( 10) = 0.3544180302228401D-01 - xs( 11) = 0.4253176759838200D-01 - xs( 12) = 0.5006507998893089D-01 - xs( 13) = 0.5800288516517330D-01 - xs( 14) = 0.6631291121086264D-01 - xs( 15) = 0.7496434878435260D-01 - xs( 16) = 0.8395103420447125D-01 - xs( 17) = 0.9322922048549148D-01 - xs( 18) = 0.1025208837652166D+00 - ws( 1) = 0.4689960885303370D-03 - ws( 2) = 0.1221910182772176D-02 - ws( 3) = 0.2061418526115046D-02 - ws( 4) = 0.2900459169877586D-02 - ws( 5) = 0.3702312503363616D-02 - ws( 6) = 0.4451427588217221D-02 - ws( 7) = 0.5141013788300236D-02 - ws( 8) = 0.5769546111195610D-02 - ws( 9) = 0.6338968570411362D-02 - ws( 10) = 0.6853502384345156D-02 - ws( 11) = 0.7319509922776894D-02 - ws( 12) = 0.7743409920929086D-02 - ws( 13) = 0.8131303804799045D-02 - ws( 14) = 0.8500478931737596D-02 - ws( 15) = 0.8852483252207739D-02 - ws( 16) = 0.9219323308174297D-02 - ws( 17) = 0.9948326825208990D-02 - ws( 18) = 0.1043394108649984D-01 - endif - - - if( iquad .eq. 11 ) then - idomain = 11 - rk0r = 0.1000010000000000D-11 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 17 - err = 0.8129877880431225D-07 - ierq = 0 - xs( 1) = 0.7688196853321577D-04 - xs( 2) = 0.6887723502801891D-03 - xs( 3) = 0.2065928665923204D-02 - xs( 4) = 0.4204698794294789D-02 - xs( 5) = 0.7077721172645903D-02 - xs( 6) = 0.1064961698278019D-01 - xs( 7) = 0.1488011283339386D-01 - xs( 8) = 0.1972629213321786D-01 - xs( 9) = 0.2514483437364395D-01 - xs( 10) = 0.3109376439644042D-01 - xs( 11) = 0.3753287358289957D-01 - xs( 12) = 0.4442631545402193D-01 - xs( 13) = 0.5174240317433493D-01 - xs( 14) = 0.5944607790887908D-01 - xs( 15) = 0.6752883540302933D-01 - xs( 16) = 0.7593532573909667D-01 - xs( 17) = 0.8437506214375863D-01 - ws( 1) = 0.2581718913375390D-03 - ws( 2) = 0.9905518698478403D-03 - ws( 3) = 0.1761635903127734D-02 - ws( 4) = 0.2511258953777767D-02 - ws( 5) = 0.3228921262556291D-02 - ws( 6) = 0.3908248343663378D-02 - ws( 7) = 0.4545685808719012D-02 - ws( 8) = 0.5139920624629636D-02 - ws( 9) = 0.5690938281910820D-02 - ws( 10) = 0.6201619279871565D-02 - ws( 11) = 0.6675366105474451D-02 - ws( 12) = 0.7113706210803498D-02 - ws( 13) = 0.7534884942840761D-02 - ws( 14) = 0.7936283958752339D-02 - ws( 15) = 0.8343019193366864D-02 - ws( 16) = 0.9119338098267673D-02 - ws( 17) = 0.9581794014219495D-02 - endif - - - if( iquad .eq. 12 ) then - idomain = 12 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 22 - err = 0.2359926810342683D-07 - ierq = 0 - xs( 1) = 0.4102503685274307D-03 - xs( 2) = 0.2125855990894457D-02 - xs( 3) = 0.5083677171901966D-02 - xs( 4) = 0.9118360356610547D-02 - xs( 5) = 0.1406677655460325D-01 - xs( 6) = 0.1978921782055258D-01 - xs( 7) = 0.2617084503271673D-01 - xs( 8) = 0.3311724524773597D-01 - xs( 9) = 0.4055033018375245D-01 - xs( 10) = 0.4840554852680973D-01 - xs( 11) = 0.5662989107906684D-01 - xs( 12) = 0.6518024629024299D-01 - xs( 13) = 0.7402195560395082D-01 - xs( 14) = 0.8312756895570453D-01 - xs( 15) = 0.9247583612693991D-01 - xs( 16) = 0.1020509636767072D+00 - xs( 17) = 0.1118421846600706D+00 - xs( 18) = 0.1218436977071391D+00 - xs( 19) = 0.1320549924860389D+00 - xs( 20) = 0.1424819606980690D+00 - xs( 21) = 0.1531384581731853D+00 - xs( 22) = 0.1640774979293354D+00 - ws( 1) = 0.1048584624927996D-02 - ws( 2) = 0.2362358724063175D-02 - ws( 3) = 0.3524822159553206D-02 - ws( 4) = 0.4517041761211584D-02 - ws( 5) = 0.5356518172369511D-02 - ws( 6) = 0.6069311492355725D-02 - ws( 7) = 0.6678276658722466D-02 - ws( 8) = 0.7201554054934180D-02 - ws( 9) = 0.7653890085698545D-02 - ws( 10) = 0.8047740388379231D-02 - ws( 11) = 0.8393787063922339D-02 - ws( 12) = 0.8701176341682682D-02 - ws( 13) = 0.8977706969209156D-02 - ws( 14) = 0.9230050235742924D-02 - ws( 15) = 0.9464023035308248D-02 - ws( 16) = 0.9684917660453277D-02 - ws( 17) = 0.9897954763388606D-02 - ws( 18) = 0.1010937821536580D-01 - ws( 19) = 0.1032893558783671D-01 - ws( 20) = 0.1058003197851173D-01 - ws( 21) = 0.1096029845567283D-01 - ws( 22) = 0.1245523197221350D-01 - endif - - - if( iquad .eq. 13 ) then - idomain = 13 - rk0r = 0.2000000000100001D-01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 22 - err = 0.2189596240159655D-07 - ierq = 0 - xs( 1) = 0.4154252522183359D-03 - xs( 2) = 0.2150687613981903D-02 - xs( 3) = 0.5136733013651648D-02 - xs( 4) = 0.9202121430806998D-02 - xs( 5) = 0.1417999271135121D-01 - xs( 6) = 0.1992866915982033D-01 - xs( 7) = 0.2633244922163520D-01 - xs( 8) = 0.3329677879538103D-01 - xs( 9) = 0.4074386546794830D-01 - xs( 10) = 0.4860966581314721D-01 - xs( 11) = 0.5684173747241038D-01 - xs( 12) = 0.6539751050833169D-01 - xs( 13) = 0.7424280829592898D-01 - xs( 14) = 0.8335059812860436D-01 - xs( 15) = 0.9269999320121095D-01 - xs( 16) = 0.1022755287142229D+00 - xs( 17) = 0.1120667557581890D+00 - xs( 18) = 0.1220682082987337D+00 - xs( 19) = 0.1322797857652054D+00 - xs( 20) = 0.1427079607740566D+00 - xs( 21) = 0.1533676893254536D+00 - xs( 22) = 0.1643147696011130D+00 - ws( 1) = 0.1061550927229434D-02 - ws( 2) = 0.2387494304141917D-02 - ws( 3) = 0.3555099291981268D-02 - ws( 4) = 0.4547569041300943D-02 - ws( 5) = 0.5384583476140460D-02 - ws( 6) = 0.6093578724603513D-02 - ws( 7) = 0.6698296284539377D-02 - ws( 8) = 0.7217446241072687D-02 - ws( 9) = 0.7666088527859608D-02 - ws( 10) = 0.8056801712344092D-02 - ws( 11) = 0.8400274645714844D-02 - ws( 12) = 0.8705604624674271D-02 - ws( 13) = 0.8980524632338952D-02 - ws( 14) = 0.9231645010323477D-02 - ws( 15) = 0.9464737092444515D-02 - ws( 16) = 0.9685068005999871D-02 - ws( 17) = 0.9897862467481656D-02 - ws( 18) = 0.1010939473348612D-01 - ws( 19) = 0.1032950128494977D-01 - ws( 20) = 0.1058185618153280D-01 - ws( 21) = 0.1096471056062838D-01 - ws( 22) = 0.1246551433592299D-01 - endif - - - if( iquad .eq. 14 ) then - idomain = 14 - rk0r = 0.2000000000100001D-01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999800001D-01 - n = 22 - err = 0.2384025742018476D-07 - ierq = 0 - xs( 1) = 0.4231554322141376D-03 - xs( 2) = 0.2187398137629609D-02 - xs( 3) = 0.5214390473852980D-02 - xs( 4) = 0.9324200471446277D-02 - xs( 5) = 0.1434538583653039D-01 - xs( 6) = 0.2013390138584017D-01 - xs( 7) = 0.2657277899099879D-01 - xs( 8) = 0.3356693125659184D-01 - xs( 9) = 0.4103857290306726D-01 - xs( 10) = 0.4892401112201884D-01 - xs( 11) = 0.5717132098757366D-01 - xs( 12) = 0.6573849377687484D-01 - xs( 13) = 0.7459188975138070D-01 - xs( 14) = 0.8370496084301955D-01 - xs( 15) = 0.9305725019208180D-01 - xs( 16) = 0.1026336813859082D+00 - xs( 17) = 0.1124241771104326D+00 - xs( 18) = 0.1224236663558022D+00 - xs( 19) = 0.1326324915775987D+00 - xs( 20) = 0.1430578540752067D+00 - xs( 21) = 0.1537162854951759D+00 - xs( 22) = 0.1646640941739710D+00 - ws( 1) = 0.1080859904652992D-02 - ws( 2) = 0.2424232894631037D-02 - ws( 3) = 0.3598826370633218D-02 - ws( 4) = 0.4591959609987836D-02 - ws( 5) = 0.5426443560638775D-02 - ws( 6) = 0.6131190297379214D-02 - ws( 7) = 0.6730793819338397D-02 - ws( 8) = 0.7244598652981103D-02 - ws( 9) = 0.7688107473140387D-02 - ws( 10) = 0.8074146692601161D-02 - ws( 11) = 0.8413500544267188D-02 - ws( 12) = 0.8715267905416400D-02 - ws( 13) = 0.8987138090196896D-02 - ws( 14) = 0.9235664694867168D-02 - ws( 15) = 0.9466569033140934D-02 - ws( 16) = 0.9685088215620733D-02 - ws( 17) = 0.9896440480514095D-02 - ws( 18) = 0.1010696035082935D-01 - ws( 19) = 0.1032661920340438D-01 - ws( 20) = 0.1057913920276173D-01 - ws( 21) = 0.1096662078398066D-01 - ws( 22) = 0.1246366926410158D-01 - endif - - - if( iquad .eq. 15 ) then - idomain = 15 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.9999999999800001D-01 - n = 22 - err = 0.1708861183913257D-07 - ierq = 0 - xs( 1) = 0.4316930955418110D-03 - xs( 2) = 0.2228071522174234D-02 - xs( 3) = 0.5301031287569801D-02 - xs( 4) = 0.9462161829444003D-02 - xs( 5) = 0.1453598617605165D-01 - xs( 6) = 0.2037643067684227D-01 - xs( 7) = 0.2686505204344208D-01 - xs( 8) = 0.3390561832143653D-01 - xs( 9) = 0.4141960615146640D-01 - xs( 10) = 0.4934297687818454D-01 - xs( 11) = 0.5762374493560864D-01 - xs( 12) = 0.6622000180020882D-01 - xs( 13) = 0.7509826969448810D-01 - xs( 14) = 0.8423215806547236D-01 - xs( 15) = 0.9360132398860765D-01 - xs( 16) = 0.1031907417585499D+00 - xs( 17) = 0.1129903114496349D+00 - xs( 18) = 0.1229948768748591D+00 - xs( 19) = 0.1332046053634940D+00 - xs( 20) = 0.1436264816823399D+00 - xs( 21) = 0.1542771896825166D+00 - xs( 22) = 0.1652126496102937D+00 - ws( 1) = 0.1102201273419304D-02 - ws( 2) = 0.2465129144581242D-02 - ws( 3) = 0.3648442500138331D-02 - ws( 4) = 0.4644366005454281D-02 - ws( 5) = 0.5478999458646432D-02 - ws( 6) = 0.6182247476542339D-02 - ws( 7) = 0.6779031335047152D-02 - ws( 8) = 0.7289066446148653D-02 - ws( 9) = 0.7728276294659436D-02 - ws( 10) = 0.8109834743412071D-02 - ws( 11) = 0.8444746958823373D-02 - ws( 12) = 0.8742217223107616D-02 - ws( 13) = 0.9009958384647259D-02 - ws( 14) = 0.9254496728409081D-02 - ws( 15) = 0.9481495558330970D-02 - ws( 16) = 0.9696124786734853D-02 - ws( 17) = 0.9903531278381703D-02 - ws( 18) = 0.1010997458787569D-01 - ws( 19) = 0.1032542321027608D-01 - ws( 20) = 0.1057321901076925D-01 - ws( 21) = 0.1095837869773226D-01 - ws( 22) = 0.1244755880328323D-01 - endif - - - if( iquad .eq. 16 ) then - idomain = 16 - rk0r = 0.2000000000100001D-01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999980000D+00 - n = 22 - err = 0.1306523403301365D-07 - ierq = 0 - xs( 1) = 0.4442977246411265D-03 - xs( 2) = 0.2286796431012451D-02 - xs( 3) = 0.5421058750419141D-02 - xs( 4) = 0.9642760950449591D-02 - xs( 5) = 0.1477009946397890D-01 - xs( 6) = 0.2065637448720116D-01 - xs( 7) = 0.2718440335295574D-01 - xs( 8) = 0.3425942719851959D-01 - xs( 9) = 0.4180417260741175D-01 - xs( 10) = 0.4975560310162951D-01 - xs( 11) = 0.5806253565896195D-01 - xs( 12) = 0.6668370371028653D-01 - xs( 13) = 0.7558613556370940D-01 - xs( 14) = 0.8474382549462989D-01 - xs( 15) = 0.9413670109491030D-01 - xs( 16) = 0.1037498826774534D+00 - xs( 17) = 0.1135732589063646D+00 - xs( 18) = 0.1236014912640073D+00 - xs( 19) = 0.1338341367678168D+00 - xs( 20) = 0.1442770541089302D+00 - xs( 21) = 0.1549444294552598D+00 - xs( 22) = 0.1658709882921092D+00 - ws( 1) = 0.1133545596327491D-02 - ws( 2) = 0.2522300660609328D-02 - ws( 3) = 0.3711163416463722D-02 - ws( 4) = 0.4701823535344291D-02 - ws( 5) = 0.5528531342683145D-02 - ws( 6) = 0.6224611442518363D-02 - ws( 7) = 0.6815733101202089D-02 - ws( 8) = 0.7321487790440315D-02 - ws( 9) = 0.7757536054792380D-02 - ws( 10) = 0.8136827380776855D-02 - ws( 11) = 0.8470189577075019D-02 - ws( 12) = 0.8766680232358524D-02 - ws( 13) = 0.9033885843461089D-02 - ws( 14) = 0.9278215857563341D-02 - ws( 15) = 0.9505213667020736D-02 - ws( 16) = 0.9719927468887578D-02 - ws( 17) = 0.9927304830502848D-02 - ws( 18) = 0.1013339042799079D-01 - ws( 19) = 0.1034790905481381D-01 - ws( 20) = 0.1059221062064229D-01 - ws( 21) = 0.1097538520945387D-01 - ws( 22) = 0.1240633569539139D-01 - endif - - - if( iquad .eq. 17 ) then - idomain = 17 - rk0r = 0.2000000000100001D-01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999980000D+00 - n = 22 - err = 0.8609290529223161D-08 - ierq = 0 - xs( 1) = 0.2941982765287151D-03 - xs( 2) = 0.1677656562124169D-02 - xs( 3) = 0.4335081907488556D-02 - xs( 4) = 0.8171092074343191D-02 - xs( 5) = 0.1300591593048081D-01 - xs( 6) = 0.1867229671958017D-01 - xs( 7) = 0.2503323249691357D-01 - xs( 8) = 0.3197894717448288D-01 - xs( 9) = 0.3942152351958282D-01 - xs( 10) = 0.4729052462581457D-01 - xs( 11) = 0.5552962251002238D-01 - xs( 12) = 0.6409393950116186D-01 - xs( 13) = 0.7294793056038304D-01 - xs( 14) = 0.8206372104726245D-01 - xs( 15) = 0.9141985554025518D-01 - xs( 16) = 0.1010003848558636D+00 - xs( 17) = 0.1107943252481638D+00 - xs( 18) = 0.1207956702036682D+00 - xs( 19) = 0.1310027691519851D+00 - xs( 20) = 0.1414209072709407D+00 - xs( 21) = 0.1520622429238478D+00 - xs( 22) = 0.1629027462103213D+00 - ws( 1) = 0.7765431956727624D-03 - ws( 2) = 0.2019708953658486D-02 - ws( 3) = 0.3275071588757844D-02 - ws( 4) = 0.4365632427969644D-02 - ws( 5) = 0.5275975004782288D-02 - ws( 6) = 0.6034035492682836D-02 - ws( 7) = 0.6669633804306868D-02 - ws( 8) = 0.7207215159529839D-02 - ws( 9) = 0.7666254001315530D-02 - ws( 10) = 0.8062405663097410D-02 - ws( 11) = 0.8408349323489035D-02 - ws( 12) = 0.8714396481860648D-02 - ws( 13) = 0.8988985836962036D-02 - ws( 14) = 0.9239101660671318D-02 - ws( 15) = 0.9470688912727942D-02 - ws( 16) = 0.9689101746422487D-02 - ws( 17) = 0.9899324678614169D-02 - ws( 18) = 0.1010786286913634D-01 - ws( 19) = 0.1032466764712797D-01 - ws( 20) = 0.1056765701517098D-01 - ws( 21) = 0.1097346733267053D-01 - ws( 22) = 0.1223453415075185D-01 - endif - - - if( iquad .eq. 18 ) then - idomain = 18 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5707963267928966D+00 - n = 21 - err = 0.5310997477565309D-07 - ierq = 0 - xs( 1) = 0.4742454264074323D-03 - xs( 2) = 0.2441337603613140D-02 - xs( 3) = 0.5784332324523373D-02 - xs( 4) = 0.1027259064099278D-01 - xs( 5) = 0.1569531511936870D-01 - xs( 6) = 0.2188206141612259D-01 - xs( 7) = 0.2869981828993336D-01 - xs( 8) = 0.3604524422445662D-01 - xs( 9) = 0.4383781689551353D-01 - xs( 10) = 0.5201462563039901D-01 - xs( 11) = 0.6052648384001830D-01 - xs( 12) = 0.6933501952200642D-01 - xs( 13) = 0.7841051369962322D-01 - xs( 14) = 0.8773034209323988D-01 - xs( 15) = 0.9727787947965956D-01 - xs( 16) = 0.1070418804640240D+00 - xs( 17) = 0.1170164891895759D+00 - xs( 18) = 0.1272007102516168D+00 - xs( 19) = 0.1376014572940496D+00 - xs( 20) = 0.1482355418672230D+00 - xs( 21) = 0.1590999748422916D+00 - ws( 1) = 0.1210072030983168D-02 - ws( 2) = 0.2692581065916502D-02 - ws( 3) = 0.3953769879288937D-02 - ws( 4) = 0.4987359227048461D-02 - ws( 5) = 0.5829772683344377D-02 - ws( 6) = 0.6521690875489951D-02 - ws( 7) = 0.7096714059482308D-02 - ws( 8) = 0.7580803636322971D-02 - ws( 9) = 0.7993922017011089D-02 - ws( 10) = 0.8351549138580211D-02 - ws( 11) = 0.8665815504901041D-02 - ws( 12) = 0.8946353336041341D-02 - ws( 13) = 0.9200947577591446D-02 - ws( 14) = 0.9436113289615255D-02 - ws( 15) = 0.9657643073244185D-02 - ws( 16) = 0.9870889105342983D-02 - ws( 17) = 0.1008280937174985D-01 - ws( 18) = 0.1030392857158779D-01 - ws( 19) = 0.1055315607518586D-01 - ws( 20) = 0.1097012552824926D-01 - ws( 21) = 0.1228951825441621D-01 - endif - - - if( iquad .eq. 19 ) then - idomain = 19 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1570796326792897D+01 - n = 21 - err = 0.1343560321209874D-07 - ierq = 0 - xs( 1) = 0.2929017961180009D-03 - xs( 2) = 0.1628854084913899D-02 - xs( 3) = 0.4175328368980900D-02 - xs( 4) = 0.7896015287835376D-02 - xs( 5) = 0.1265319732324128D-01 - xs( 6) = 0.1828852718023307D-01 - xs( 7) = 0.2465706624699913D-01 - xs( 8) = 0.3163727510447419D-01 - xs( 9) = 0.3913121929756683D-01 - xs( 10) = 0.4706144122796403D-01 - xs( 11) = 0.5536720494192568D-01 - xs( 12) = 0.6400110662117565D-01 - xs( 13) = 0.7292633799332328D-01 - xs( 14) = 0.8211461390646579D-01 - xs( 15) = 0.9154458162236503D-01 - xs( 16) = 0.1012009239025305D+00 - xs( 17) = 0.1110740960711216D+00 - xs( 18) = 0.1211577876297010D+00 - xs( 19) = 0.1314561283203858D+00 - xs( 20) = 0.1419732614469767D+00 - xs( 21) = 0.1525782297482780D+00 - ws( 1) = 0.7650524450282607D-03 - ws( 2) = 0.1933032494663825D-02 - ws( 3) = 0.3151743747183161D-02 - ws( 4) = 0.4265349015985960D-02 - ws( 5) = 0.5222122214381032D-02 - ws( 6) = 0.6024245690798823D-02 - ws( 7) = 0.6692586425002096D-02 - ws( 8) = 0.7251567199789903D-02 - ws( 9) = 0.7723478328839075D-02 - ws( 10) = 0.8126903855944900D-02 - ws( 11) = 0.8476777906238240D-02 - ws( 12) = 0.8784962972390647D-02 - ws( 13) = 0.9060894251000023D-02 - ws( 14) = 0.9312326608270229D-02 - ws( 15) = 0.9545892338097819D-02 - ws( 16) = 0.9767075191838276D-02 - ws( 17) = 0.9984492429347031D-02 - ws( 18) = 0.1020744851687332D-01 - ws( 19) = 0.1044987668291160D-01 - ws( 20) = 0.1092143619642029D-01 - ws( 21) = 0.1184461624967865D-01 - endif - - - if( iquad .eq. 20 ) then - idomain = 20 - rk0r = 0.2000000000100001D-01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 21 - err = 0.5176151869057155D-07 - ierq = 0 - xs( 1) = 0.3313827198473736D-03 - xs( 2) = 0.1733159621466616D-02 - xs( 3) = 0.4205124828354850D-02 - xs( 4) = 0.7671510272189935D-02 - xs( 5) = 0.1203877085703789D-01 - xs( 6) = 0.1720713343421448D-01 - xs( 7) = 0.2307915107712896D-01 - xs( 8) = 0.2956513213303356D-01 - xs( 9) = 0.3658588100898525D-01 - xs( 10) = 0.4407350284688098D-01 - xs( 11) = 0.5197101971465568D-01 - xs( 12) = 0.6023137796912287D-01 - xs( 13) = 0.6881626944395471D-01 - xs( 14) = 0.7769502883941558D-01 - xs( 15) = 0.8684351197975078D-01 - xs( 16) = 0.9624360178228318D-01 - xs( 17) = 0.1058832487121683D+00 - xs( 18) = 0.1157519246675949D+00 - xs( 19) = 0.1258551931287577D+00 - xs( 20) = 0.1361853796755478D+00 - xs( 21) = 0.1464918902942641D+00 - ws( 1) = 0.8489403176357596D-03 - ws( 2) = 0.1947339198527513D-02 - ws( 3) = 0.2983716566044767D-02 - ws( 4) = 0.3933270552410012D-02 - ws( 5) = 0.4784478433704852D-02 - ws( 6) = 0.5535916370906274D-02 - ws( 7) = 0.6193126523608821D-02 - ws( 8) = 0.6765624682104026D-02 - ws( 9) = 0.7264567505635536D-02 - ws( 10) = 0.7701202666123072D-02 - ws( 11) = 0.8086019150945241D-02 - ws( 12) = 0.8428385213583918D-02 - ws( 13) = 0.8736424798667892D-02 - ws( 14) = 0.9017375938154210D-02 - ws( 15) = 0.9277836938523536D-02 - ws( 16) = 0.9522998874097858D-02 - ws( 17) = 0.9763923721651517D-02 - ws( 18) = 0.1000933766505367D-01 - ws( 19) = 0.1027488758726937D-01 - ws( 20) = 0.1087737942945283D-01 - ws( 21) = 0.1141569589870408D-01 - endif - - - if( iquad .eq. 21 ) then - idomain = 21 - rk0r = 0.2000000000100001D-01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 18 - err = 0.7188804913404905D-07 - ierq = 0 - xs( 1) = 0.1977016854464865D-03 - xs( 2) = 0.1074331671474976D-02 - xs( 3) = 0.2730046793381596D-02 - xs( 4) = 0.5200366540236249D-02 - xs( 5) = 0.8475008930534449D-02 - xs( 6) = 0.1251677870102978D-01 - xs( 7) = 0.1727465978206571D-01 - xs( 8) = 0.2269149287411334D-01 - xs( 9) = 0.2870898096926320D-01 - xs( 10) = 0.3527118578142629D-01 - xs( 11) = 0.4232666783356697D-01 - xs( 12) = 0.4982940336959660D-01 - xs( 13) = 0.5774043501242367D-01 - xs( 14) = 0.6602720466702425D-01 - xs( 15) = 0.7465842334702047D-01 - xs( 16) = 0.8362722296322028D-01 - xs( 17) = 0.9288786997461673D-01 - xs( 18) = 0.1021566376021640D+00 - ws( 1) = 0.5118928271904203D-03 - ws( 2) = 0.1255648627744982D-02 - ws( 3) = 0.2061559734080546D-02 - ws( 4) = 0.2876996151235991D-02 - ws( 5) = 0.3665881038964040D-02 - ws( 6) = 0.4409052018716999D-02 - ws( 7) = 0.5097111201900907D-02 - ws( 8) = 0.5726824710877477D-02 - ws( 9) = 0.6298996692495657D-02 - ws( 10) = 0.6817092224195666D-02 - ws( 11) = 0.7286990534589641D-02 - ws( 12) = 0.7714796397269232D-02 - ws( 13) = 0.8106392387282738D-02 - ws( 14) = 0.8478963159304517D-02 - ws( 15) = 0.8833858537057118D-02 - ws( 16) = 0.9203027466057480D-02 - ws( 17) = 0.9932241149749424D-02 - ws( 18) = 0.1040225905526379D-01 - endif - - - if( iquad .eq. 22 ) then - idomain = 22 - rk0r = 0.2000000000100001D-01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 17 - err = 0.7787633307763314D-07 - ierq = 0 - xs( 1) = 0.9487936794596480D-04 - xs( 2) = 0.7214329441319941D-03 - xs( 3) = 0.2100301552134051D-02 - xs( 4) = 0.4238124613860284D-02 - xs( 5) = 0.7109000447480953D-02 - xs( 6) = 0.1067779870215329D-01 - xs( 7) = 0.1490426351280338D-01 - xs( 8) = 0.1974543146499556D-01 - xs( 9) = 0.2515791183856651D-01 - xs( 10) = 0.3109962508677664D-01 - xs( 11) = 0.3753023080383087D-01 - xs( 12) = 0.4441372154795636D-01 - xs( 13) = 0.5171801684782156D-01 - xs( 14) = 0.5940759110440250D-01 - xs( 15) = 0.6747302760550260D-01 - xs( 16) = 0.7585448295489426D-01 - xs( 17) = 0.8425607504510442D-01 - ws( 1) = 0.2877007038145861D-03 - ws( 2) = 0.9952649749059375D-03 - ws( 3) = 0.1761539622626698D-02 - ws( 4) = 0.2509634218400469D-02 - ws( 5) = 0.3226287271094475D-02 - ws( 6) = 0.3904688831930341D-02 - ws( 7) = 0.4541180652016962D-02 - ws( 8) = 0.5134401277046292D-02 - ws( 9) = 0.5684324036395880D-02 - ws( 10) = 0.6193822840052435D-02 - ws( 11) = 0.6666192164946200D-02 - ws( 12) = 0.7103007942810548D-02 - ws( 13) = 0.7522419738807784D-02 - ws( 14) = 0.7920844203033954D-02 - ws( 15) = 0.8325130030412740D-02 - ws( 16) = 0.9093679759935802D-02 - ws( 17) = 0.9524082827102188D-02 - endif - - - if( iquad .eq. 23 ) then - idomain = 23 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 23 - err = 0.1070293426710295D-07 - ierq = 0 - xs( 1) = 0.3683827239380510D-03 - xs( 2) = 0.1924715679742439D-02 - xs( 3) = 0.4655434612867833D-02 - xs( 4) = 0.8447730738795716D-02 - xs( 5) = 0.1316741625390645D-01 - xs( 6) = 0.1868463058449804D-01 - xs( 7) = 0.2488487275717870D-01 - xs( 8) = 0.3167065865921689D-01 - xs( 9) = 0.3896013275420422D-01 - xs( 10) = 0.4668522879939450D-01 - xs( 11) = 0.5478991099975167D-01 - xs( 12) = 0.6322852331775598D-01 - xs( 13) = 0.7196427005598065D-01 - xs( 14) = 0.8096788453375210D-01 - xs( 15) = 0.9021654125011916D-01 - xs( 16) = 0.9969305069184910D-01 - xs( 17) = 0.1093853760735507D+00 - xs( 18) = 0.1192865564449562D+00 - xs( 19) = 0.1293951830976691D+00 - xs( 20) = 0.1397167933924788D+00 - xs( 21) = 0.1502673114523187D+00 - xs( 22) = 0.1610856030078347D+00 - xs( 23) = 0.1727354381784082D+00 - ws( 1) = 0.9435988341724773D-03 - ws( 2) = 0.2158879986787136D-02 - ws( 3) = 0.3283177803706898D-02 - ws( 4) = 0.4278598715710571D-02 - ws( 5) = 0.5138965883710690D-02 - ws( 6) = 0.5876367666055261D-02 - ws( 7) = 0.6507897645230438D-02 - ws( 8) = 0.7050063041185789D-02 - ws( 9) = 0.7517570298793708D-02 - ws( 10) = 0.7923310642368276D-02 - ws( 11) = 0.8278471102641315D-02 - ws( 12) = 0.8592645882049844D-02 - ws( 13) = 0.8873994450958213D-02 - ws( 14) = 0.9129459917620928D-02 - ws( 15) = 0.9365038301712949D-02 - ws( 16) = 0.9586089647790215D-02 - ws( 17) = 0.9797716127496149D-02 - ws( 18) = 0.1000532962889748D-01 - ws( 19) = 0.1021571624434933D-01 - ws( 20) = 0.1043958864538842D-01 - ws( 21) = 0.1070015350339503D-01 - ws( 22) = 0.1107910523987152D-01 - ws( 23) = 0.1454424501663159D-01 - endif - - - if( iquad .eq. 24 ) then - idomain = 24 - rk0r = 0.4000000000100001D-01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 23 - err = 0.1068983078974134D-07 - ierq = 0 - xs( 1) = 0.3729477037627370D-03 - xs( 2) = 0.1945682985092512D-02 - xs( 3) = 0.4697200588333166D-02 - xs( 4) = 0.8508566919155677D-02 - xs( 5) = 0.1324371116528662D-01 - xs( 6) = 0.1877318863836112D-01 - xs( 7) = 0.2498340949929855D-01 - xs( 8) = 0.3177761200557568D-01 - xs( 9) = 0.3907439339897995D-01 - xs( 10) = 0.4680595177080074D-01 - xs( 11) = 0.5491640461904076D-01 - xs( 12) = 0.6336018337273989D-01 - xs( 13) = 0.7210053583335006D-01 - xs( 14) = 0.8110820374464162D-01 - xs( 15) = 0.9036033653063184D-01 - xs( 16) = 0.9983968251737570D-01 - xs( 17) = 0.1095340968507015D+00 - xs( 18) = 0.1194364491446691D+00 - xs( 19) = 0.1295450700303977D+00 - xs( 20) = 0.1398650891740390D+00 - xs( 21) = 0.1504117414672438D+00 - xs( 22) = 0.1612224712702942D+00 - xs( 23) = 0.1728271551861337D+00 - ws( 1) = 0.9549134255596571D-03 - ws( 2) = 0.2178864452547504D-02 - ws( 3) = 0.3303742834758143D-02 - ws( 4) = 0.4295904943172880D-02 - ws( 5) = 0.5152677286549897D-02 - ws( 6) = 0.5887344048303199D-02 - ws( 7) = 0.6516999343514474D-02 - ws( 8) = 0.7057868350280116D-02 - ws( 9) = 0.7524422340165038D-02 - ws( 10) = 0.7929408116777009D-02 - ws( 11) = 0.8283929229067637D-02 - ws( 12) = 0.8597527871412363D-02 - ws( 13) = 0.8878325612875753D-02 - ws( 14) = 0.9133232220606859D-02 - ws( 15) = 0.9368209674186641D-02 - ws( 16) = 0.9588578479125949D-02 - ws( 17) = 0.9799390216270699D-02 - ws( 18) = 0.1000599418862271D-01 - ws( 19) = 0.1021509424658238D-01 - ws( 20) = 0.1043730824131002D-01 - ws( 21) = 0.1069599530533295D-01 - ws( 22) = 0.1107517442695008D-01 - ws( 23) = 0.1438902562082521D-01 - endif - - - if( iquad .eq. 25 ) then - idomain = 25 - rk0r = 0.4000000000100001D-01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5999999999800001D-01 - n = 22 - err = 0.2165725691311464D-07 - ierq = 0 - xs( 1) = 0.3957494516886786D-03 - xs( 2) = 0.2056247052068887D-02 - xs( 3) = 0.4935728362282700D-02 - xs( 4) = 0.8888001054374100D-02 - xs( 5) = 0.1376173680668756D-01 - xs( 6) = 0.1942210873406220D-01 - xs( 7) = 0.2575480526533286D-01 - xs( 8) = 0.3266382206371181D-01 - xs( 9) = 0.4006880773010916D-01 - xs( 10) = 0.4790302997728829D-01 - xs( 11) = 0.5611167041469870D-01 - xs( 12) = 0.6465022427416962D-01 - xs( 13) = 0.7348300036233481D-01 - xs( 14) = 0.8258179652644773D-01 - xs( 15) = 0.9192481789104177D-01 - xs( 16) = 0.1014958763599549D+00 - xs( 17) = 0.1112839126645392D+00 - xs( 18) = 0.1212829160137822D+00 - xs( 19) = 0.1314921900024081D+00 - xs( 20) = 0.1419175306011693D+00 - xs( 21) = 0.1525729625150805D+00 - xs( 22) = 0.1635078017868028D+00 - ws( 1) = 0.1012233249669996D-02 - ws( 2) = 0.2292003394633015D-02 - ws( 3) = 0.3441800916105161D-02 - ws( 4) = 0.4437185792020236D-02 - ws( 5) = 0.5287779421937862D-02 - ws( 6) = 0.6013961747653583D-02 - ws( 7) = 0.6635476117663900D-02 - ws( 8) = 0.7169198772518114D-02 - ws( 9) = 0.7629679278995411D-02 - ws( 10) = 0.8029657439697283D-02 - ws( 11) = 0.8380235341165797D-02 - ws( 12) = 0.8690955820684498D-02 - ws( 13) = 0.8969939245841175D-02 - ws( 14) = 0.9224098482106946D-02 - ws( 15) = 0.9459427657194840D-02 - ws( 16) = 0.9681349162623160D-02 - ws( 17) = 0.9895169713485873D-02 - ws( 18) = 0.1010722501295146D-01 - ws( 19) = 0.1032740397450106D-01 - ws( 20) = 0.1057885706122138D-01 - ws( 21) = 0.1096260938072648D-01 - ws( 22) = 0.1244854543041797D-01 - endif - - - if( iquad .eq. 26 ) then - idomain = 26 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.9999999999800001D-01 - n = 22 - err = 0.2219966550817869D-07 - ierq = 0 - xs( 1) = 0.4168017227392957D-03 - xs( 2) = 0.2157707567814143D-02 - xs( 3) = 0.5153389297047625D-02 - xs( 4) = 0.9232271797432110D-02 - xs( 5) = 0.1422710847440238D-01 - xs( 6) = 0.1999500052969019D-01 - xs( 7) = 0.2641853354303728D-01 - xs( 8) = 0.3340155114836366D-01 - xs( 9) = 0.4086510644997185D-01 - xs( 10) = 0.4874448989854253D-01 - xs( 11) = 0.5698697205957109D-01 - xs( 12) = 0.6554993842506050D-01 - xs( 13) = 0.7439930109662563D-01 - xs( 14) = 0.8350817851255486D-01 - xs( 15) = 0.9285585914574729D-01 - xs( 16) = 0.1024270635790166D+00 - xs( 17) = 0.1122115456578407D+00 - xs( 18) = 0.1222040949164635D+00 - xs( 19) = 0.1324048631115089D+00 - xs( 20) = 0.1428209422364515D+00 - xs( 21) = 0.1534686738273507D+00 - xs( 22) = 0.1643987297062931D+00 - ws( 1) = 0.1065051895461254D-02 - ws( 2) = 0.2395186834510781D-02 - ws( 3) = 0.3566672753007484D-02 - ws( 4) = 0.4562931209854895D-02 - ws( 5) = 0.5402940293353710D-02 - ws( 6) = 0.6113356465879754D-02 - ws( 7) = 0.6717751965719645D-02 - ws( 8) = 0.7235174097058207D-02 - ws( 9) = 0.7681189251299633D-02 - ws( 10) = 0.8068822122045250D-02 - ws( 11) = 0.8409070299372184D-02 - ws( 12) = 0.8711212757688677D-02 - ws( 13) = 0.8983074814846559D-02 - ws( 14) = 0.9231304637966594D-02 - ws( 15) = 0.9461689944752100D-02 - ws( 16) = 0.9679518121783640D-02 - ws( 17) = 0.9890023816895284D-02 - ws( 18) = 0.1009961957755819D-01 - ws( 19) = 0.1031834031367024D-01 - ws( 20) = 0.1056957732624863D-01 - ws( 21) = 0.1095892770337315D-01 - ws( 22) = 0.1244058078790781D-01 - endif - - - if( iquad .eq. 27 ) then - idomain = 27 - rk0r = 0.4000000000100001D-01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999980000D+00 - n = 22 - err = 0.2078595208232849D-07 - ierq = 0 - xs( 1) = 0.4370460344871822D-03 - xs( 2) = 0.2252048009776193D-02 - xs( 3) = 0.5347670653542312D-02 - xs( 4) = 0.9529843449340490D-02 - xs( 5) = 0.1462284442868185D-01 - xs( 6) = 0.2048189047739708D-01 - xs( 7) = 0.2698931932833606D-01 - xs( 8) = 0.3404902358508954D-01 - xs( 9) = 0.4158232695976973D-01 - xs( 10) = 0.4952503722719426D-01 - xs( 11) = 0.5782510740567072D-01 - xs( 12) = 0.6644064909286658D-01 - xs( 13) = 0.7533824403057782D-01 - xs( 14) = 0.8449155928085426D-01 - xs( 15) = 0.9388027107047088D-01 - xs( 16) = 0.1034892923455417D+00 - xs( 17) = 0.1133083455980849D+00 - xs( 18) = 0.1233319217729691D+00 - xs( 19) = 0.1335593881911953D+00 - xs( 20) = 0.1439965120021679D+00 - xs( 21) = 0.1546568690349428D+00 - xs( 22) = 0.1655751606996339D+00 - ws( 1) = 0.1115370298109056D-02 - ws( 2) = 0.2487306071461046D-02 - ws( 3) = 0.3670659849011870D-02 - ws( 4) = 0.4664273738912724D-02 - ws( 5) = 0.5497691100846595D-02 - ws( 6) = 0.6200887833543673D-02 - ws( 7) = 0.6798019140596573D-02 - ws( 8) = 0.7308324501493049D-02 - ws( 9) = 0.7747622522871006D-02 - ws( 10) = 0.8129157886187349D-02 - ws( 11) = 0.8464032378553796D-02 - ws( 12) = 0.8761512388593434D-02 - ws( 13) = 0.9029328813462231D-02 - ws( 14) = 0.9273985813034138D-02 - ws( 15) = 0.9501091666256931D-02 - ws( 16) = 0.9715727541320801D-02 - ws( 17) = 0.9922861847252449D-02 - ws( 18) = 0.1012862689608602D-01 - ws( 19) = 0.1034257651722714D-01 - ws( 20) = 0.1058636823445097D-01 - ws( 21) = 0.1096959755758351D-01 - ws( 22) = 0.1239931735327190D-01 - endif - - - if( iquad .eq. 28 ) then - idomain = 28 - rk0r = 0.4000000000100001D-01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5999999999980000D+00 - n = 22 - err = 0.8859667733088445D-08 - ierq = 0 - xs( 1) = 0.3290892367396269D-03 - xs( 2) = 0.1781830148901616D-02 - xs( 3) = 0.4457454962205411D-02 - xs( 4) = 0.8275705531299287D-02 - xs( 5) = 0.1308193195963424D-01 - xs( 6) = 0.1872020194533475D-01 - xs( 7) = 0.2505694476516430D-01 - xs( 8) = 0.3198276382523652D-01 - xs( 9) = 0.3940917872982942D-01 - xs( 10) = 0.4726501389773592D-01 - xs( 11) = 0.5549326744783057D-01 - xs( 12) = 0.6404850620257882D-01 - xs( 13) = 0.7289474150689450D-01 - xs( 14) = 0.8200374431784943D-01 - xs( 15) = 0.9135376940871072D-01 - xs( 16) = 0.1009286194098206D+00 - xs( 17) = 0.1107170806394354D+00 - xs( 18) = 0.1207129079523399D+00 - xs( 19) = 0.1309141590557146D+00 - xs( 20) = 0.1413256794560770D+00 - xs( 21) = 0.1519584842313404D+00 - xs( 22) = 0.1627827809341149D+00 - ws( 1) = 0.8522272054979397D-03 - ws( 2) = 0.2066035688985851D-02 - ws( 3) = 0.3269943781039775D-02 - ws( 4) = 0.4339548618701045D-02 - ws( 5) = 0.5246612125830966D-02 - ws( 6) = 0.6007670662244543D-02 - ws( 7) = 0.6647644543454715D-02 - ws( 8) = 0.7189308289907784D-02 - ws( 9) = 0.7651711519863782D-02 - ws( 10) = 0.8050503220656414D-02 - ws( 11) = 0.8398470570914649D-02 - ws( 12) = 0.8706045015949931D-02 - ws( 13) = 0.8981766759236166D-02 - ws( 14) = 0.9232696914945993D-02 - ws( 15) = 0.9464833272666361D-02 - ws( 16) = 0.9683560226639491D-02 - ws( 17) = 0.9893870770486830D-02 - ws( 18) = 0.1010225093615636D-01 - ws( 19) = 0.1031856989741162D-01 - ws( 20) = 0.1056059202654430D-01 - ws( 21) = 0.1096408674997460D-01 - ws( 22) = 0.1220907534741298D-01 - endif - - - if( iquad .eq. 29 ) then - idomain = 29 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5707963267928966D+00 - n = 21 - err = 0.2451929091623531D-07 - ierq = 0 - xs( 1) = 0.4599322687565399D-03 - xs( 2) = 0.2372986724096145D-02 - xs( 3) = 0.5640291145841999D-02 - xs( 4) = 0.1005034944217780D-01 - xs( 5) = 0.1540307775669273D-01 - xs( 6) = 0.2153157938733474D-01 - xs( 7) = 0.2830259290499280D-01 - xs( 8) = 0.3561113367278516D-01 - xs( 9) = 0.4337483072491775D-01 - xs( 10) = 0.5152915931529087D-01 - xs( 11) = 0.6002364960953907D-01 - xs( 12) = 0.6881894760836099D-01 - xs( 13) = 0.7788459156670785D-01 - xs( 14) = 0.8719739236175825D-01 - xs( 15) = 0.9674028713998584D-01 - xs( 16) = 0.1065016741427790D+00 - xs( 17) = 0.1164753819510490D+00 - xs( 18) = 0.1266601117352566D+00 - xs( 19) = 0.1370623570307732D+00 - xs( 20) = 0.1476981035006266D+00 - xs( 21) = 0.1585613645912863D+00 - ws( 1) = 0.1174235221639936D-02 - ws( 2) = 0.2623990771817168D-02 - ws( 3) = 0.3874286278691295D-02 - ws( 4) = 0.4912187662543283D-02 - ws( 5) = 0.5765481056037284D-02 - ws( 6) = 0.6469411634500744D-02 - ws( 7) = 0.7055214317861319D-02 - ws( 8) = 0.7548218591445132D-02 - ws( 9) = 0.7968485700275307D-02 - ws( 10) = 0.8331812025114939D-02 - ws( 11) = 0.8650654348226525D-02 - ws( 12) = 0.8934916403874841D-02 - ws( 13) = 0.9192591190328421D-02 - ws( 14) = 0.9430343588520263D-02 - ws( 15) = 0.9654068913350302D-02 - ws( 16) = 0.9869190409382424D-02 - ws( 17) = 0.1008267372570871D-01 - ws( 18) = 0.1030503112491431D-01 - ws( 19) = 0.1055511808160295D-01 - ws( 20) = 0.1097168335333250D-01 - ws( 21) = 0.1228517453756934D-01 - endif - - - if( iquad .eq. 30 ) then - idomain = 30 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1570796326792897D+01 - n = 21 - err = 0.1496961801759082D-07 - ierq = 0 - xs( 1) = 0.5813220102529288D-04 - xs( 2) = 0.1135029893713078D-02 - xs( 3) = 0.3585036042531729D-02 - xs( 4) = 0.7264693487078212D-02 - xs( 5) = 0.1200167113844848D-01 - xs( 6) = 0.1762620683720853D-01 - xs( 7) = 0.2398883292309016D-01 - xs( 8) = 0.3096582326243271D-01 - xs( 9) = 0.3845804083380876D-01 - xs( 10) = 0.4638732785411738D-01 - xs( 11) = 0.5469254013867185D-01 - xs( 12) = 0.6332605002798015D-01 - xs( 13) = 0.7225095115634901D-01 - xs( 14) = 0.8143896072439728D-01 - xs( 15) = 0.9086882604232466D-01 - xs( 16) = 0.1005254303356531D+00 - xs( 17) = 0.1103996245250557D+00 - xs( 18) = 0.1204857959248670D+00 - xs( 19) = 0.1307891918435908D+00 - xs( 20) = 0.1413184502037618D+00 - xs( 21) = 0.1519590003814126D+00 - ws( 1) = 0.3583776366528706D-03 - ws( 2) = 0.1783188267113321D-02 - ws( 3) = 0.3092359798762523D-02 - ws( 4) = 0.4237672492726384D-02 - ws( 5) = 0.5207703941084135D-02 - ws( 6) = 0.6016380726231383D-02 - ws( 7) = 0.6688279540420366D-02 - ws( 8) = 0.7249243525738312D-02 - ws( 9) = 0.7722235210330563D-02 - ws( 10) = 0.8126210891303083D-02 - ws( 11) = 0.8476331334623622D-02 - ws( 12) = 0.8784609287844350D-02 - ws( 13) = 0.9060588601981773D-02 - ws( 14) = 0.9312111372740154D-02 - ws( 15) = 0.9545924594709905D-02 - ws( 16) = 0.9767632880149143D-02 - ws( 17) = 0.9985967710874209D-02 - ws( 18) = 0.1021093383503589D-01 - ws( 19) = 0.1045657489661943D-01 - ws( 20) = 0.1093584819886504D-01 - ws( 21) = 0.1191414746708110D-01 - endif - - - if( iquad .eq. 31 ) then - idomain = 31 - rk0r = 0.4000000000100001D-01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 20 - err = 0.3597573241746271D-07 - ierq = 0 - xs( 1) = 0.3307672127231464D-03 - xs( 2) = 0.1730142383730937D-02 - xs( 3) = 0.4198601060930996D-02 - xs( 4) = 0.7661437944280772D-02 - xs( 5) = 0.1202617546387291D-01 - xs( 6) = 0.1719396869031683D-01 - xs( 7) = 0.2306812688664008D-01 - xs( 8) = 0.2955954432382569D-01 - xs( 9) = 0.3658944939462280D-01 - xs( 10) = 0.4409022168568010D-01 - xs( 11) = 0.5200502386641050D-01 - xs( 12) = 0.6028687537178214D-01 - xs( 13) = 0.6889750527734817D-01 - xs( 14) = 0.7780604758311332D-01 - xs( 15) = 0.8698854894867598D-01 - xs( 16) = 0.9642689485423638D-01 - xs( 17) = 0.1061040201878459D+00 - xs( 18) = 0.1160200938261686D+00 - xs( 19) = 0.1261334213965223D+00 - xs( 20) = 0.1361005886314073D+00 - ws( 1) = 0.8473875949776309D-03 - ws( 2) = 0.1944220857331367D-02 - ws( 3) = 0.2980003872734154D-02 - ws( 4) = 0.3930066271873788D-02 - ws( 5) = 0.4782791640849850D-02 - ws( 6) = 0.5536589624351565D-02 - ws( 7) = 0.6196832155535614D-02 - ws( 8) = 0.6772865943042100D-02 - ws( 9) = 0.7275685193189088D-02 - ws( 10) = 0.7716418806347263D-02 - ws( 11) = 0.8105449352985378D-02 - ws( 12) = 0.8452020401132769D-02 - ws( 13) = 0.8764523050786333D-02 - ws( 14) = 0.9050149418861515D-02 - ws( 15) = 0.9314819639657614D-02 - ws( 16) = 0.9571210801799556D-02 - ws( 17) = 0.9822596013671716D-02 - ws( 18) = 0.1009774349814052D-01 - ws( 19) = 0.1069662830985228D-01 - ws( 20) = 0.1079411491470456D-01 - endif - - - if( iquad .eq. 32 ) then - idomain = 32 - rk0r = 0.4000000000100001D-01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 18 - err = 0.2004951379739127D-07 - ierq = 0 - xs( 1) = 0.2187226396371152D-03 - xs( 2) = 0.1163300350333565D-02 - xs( 3) = 0.2891295252005020D-02 - xs( 4) = 0.5415343679594375D-02 - xs( 5) = 0.8720774180895778D-02 - xs( 6) = 0.1277164271977689D-01 - xs( 7) = 0.1751995292393718D-01 - xs( 8) = 0.2291251633425351D-01 - xs( 9) = 0.2889533190381616D-01 - xs( 10) = 0.3541644920729291D-01 - xs( 11) = 0.4242766706113939D-01 - xs( 12) = 0.4988531358760128D-01 - xs( 13) = 0.5775194530756288D-01 - xs( 14) = 0.6599558713095549D-01 - xs( 15) = 0.7458497113124980D-01 - xs( 16) = 0.8351249704323634D-01 - xs( 17) = 0.9272713100611221D-01 - xs( 18) = 0.1019360725219628D+00 - ws( 1) = 0.5627430715591837D-03 - ws( 2) = 0.1332022257644168D-02 - ws( 3) = 0.2126225627518706D-02 - ws( 4) = 0.2919277980339242D-02 - ws( 5) = 0.3685429114303596D-02 - ws( 6) = 0.4408214142308508D-02 - ws( 7) = 0.5079479401712422D-02 - ws( 8) = 0.5696651324521241D-02 - ws( 9) = 0.6260506023968287D-02 - ws( 10) = 0.6773955452934689D-02 - ws( 11) = 0.7242044550953878D-02 - ws( 12) = 0.7669892757335940D-02 - ws( 13) = 0.8062708719451915D-02 - ws( 14) = 0.8437028966595230D-02 - ws( 15) = 0.8792675812258659D-02 - ws( 16) = 0.9163585279137363D-02 - ws( 17) = 0.9888595220112728D-02 - ws( 18) = 0.1031455518325344D-01 - endif - - - if( iquad .eq. 33 ) then - idomain = 33 - rk0r = 0.4000000000100001D-01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 17 - err = 0.6912310036535205D-07 - ierq = 0 - xs( 1) = 0.6353015298899514D-04 - xs( 2) = 0.6629018679975981D-03 - xs( 3) = 0.2028652139608668D-02 - xs( 4) = 0.4150448128007989D-02 - xs( 5) = 0.6999738105266189D-02 - xs( 6) = 0.1054033590566199D-01 - xs( 7) = 0.1473116545163399D-01 - xs( 8) = 0.1952852566988232D-01 - xs( 9) = 0.2488834199098378D-01 - xs( 10) = 0.3076780781060602D-01 - xs( 11) = 0.3712591732104174D-01 - xs( 12) = 0.4392595210783433D-01 - xs( 13) = 0.5113413190990650D-01 - xs( 14) = 0.5871374994479868D-01 - xs( 15) = 0.6665214863654183D-01 - xs( 16) = 0.7487400389648845D-01 - xs( 17) = 0.8307817404233427D-01 - ws( 1) = 0.2369054796535463D-03 - ws( 2) = 0.9810138360534112D-03 - ws( 3) = 0.1747737779553111D-02 - ws( 4) = 0.2491056634556353D-02 - ws( 5) = 0.3201539366550359D-02 - ws( 6) = 0.3872909524349293D-02 - ws( 7) = 0.4501613958171412D-02 - ws( 8) = 0.5086290057023854D-02 - ws( 9) = 0.5627051057658060D-02 - ws( 10) = 0.6126801118592652D-02 - ws( 11) = 0.6588435850589460D-02 - ws( 12) = 0.7014270295170582D-02 - ws( 13) = 0.7421655261645082D-02 - ws( 14) = 0.7803291550592567D-02 - ws( 15) = 0.8197508886348773D-02 - ws( 16) = 0.8934657850295931D-02 - ws( 17) = 0.9261999875212328D-02 - endif - - - if( iquad .eq. 34 ) then - idomain = 34 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 23 - err = 0.1812303865428789D-07 - ierq = 0 - xs( 1) = 0.1401869780145832D-03 - xs( 2) = 0.1082583035985430D-02 - xs( 3) = 0.3154515320500977D-02 - xs( 4) = 0.6327076082690924D-02 - xs( 5) = 0.1049407901483122D-01 - xs( 6) = 0.1553031110760073D-01 - xs( 7) = 0.2131610662075753D-01 - xs( 8) = 0.2774605692490594D-01 - xs( 9) = 0.3473002532012930D-01 - xs( 10) = 0.4219200801874146D-01 - xs( 11) = 0.5006869306164989D-01 - xs( 12) = 0.5830799432468130D-01 - xs( 13) = 0.6686758273761154D-01 - xs( 14) = 0.7571348819207889D-01 - xs( 15) = 0.8481886681820226D-01 - xs( 16) = 0.9416300234642118D-01 - xs( 17) = 0.1037305805336980D+00 - xs( 18) = 0.1135112934688194D+00 - xs( 19) = 0.1234998154712089D+00 - xs( 20) = 0.1336961920423028D+00 - xs( 21) = 0.1441070866073618D+00 - xs( 22) = 0.1547472929633167D+00 - xs( 23) = 0.1656671061348286D+00 - ws( 1) = 0.4290090039133298D-03 - ws( 2) = 0.1499504656455275D-02 - ws( 3) = 0.2636458399099375D-02 - ws( 4) = 0.3690215327472133D-02 - ws( 5) = 0.4622522328681961D-02 - ws( 6) = 0.5429875888145423D-02 - ws( 7) = 0.6124143131300314D-02 - ws( 8) = 0.6720757068123254D-02 - ws( 9) = 0.7234536810899488D-02 - ws( 10) = 0.7678901533734881D-02 - ws( 11) = 0.8065813561156453D-02 - ws( 12) = 0.8405760790021500D-02 - ws( 13) = 0.8707783123652519D-02 - ws( 14) = 0.8979592576122268D-02 - ws( 15) = 0.9227781873907668D-02 - ws( 16) = 0.9458104958956872D-02 - ws( 17) = 0.9675808709559834D-02 - ws( 18) = 0.9886112555904937D-02 - ws( 19) = 0.1009532627507771D-01 - ws( 20) = 0.1031326364120206D-01 - ws( 21) = 0.1056367941423266D-01 - ws( 22) = 0.1094469710837576D-01 - ws( 23) = 0.1242599943927941D-01 - endif - - - if( iquad .eq. 35 ) then - idomain = 35 - rk0r = 0.1000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 23 - err = 0.1927518144463719D-07 - ierq = 0 - xs( 1) = 0.3540834537635659D-03 - xs( 2) = 0.1856639563174608D-02 - xs( 3) = 0.4511995132333461D-02 - xs( 4) = 0.8225264477052154D-02 - xs( 5) = 0.1287200924828278D-01 - xs( 6) = 0.1832600047047727D-01 - xs( 7) = 0.2447334839173738D-01 - xs( 8) = 0.3121593614537595D-01 - xs( 9) = 0.3847079181371294D-01 - xs( 10) = 0.4616860454907931D-01 - xs( 11) = 0.5425216698441912D-01 - xs( 12) = 0.6267483071498235D-01 - xs( 13) = 0.7139902635952960D-01 - xs( 14) = 0.8039493392525572D-01 - xs( 15) = 0.8963938300127863D-01 - xs( 16) = 0.9911504379592898D-01 - xs( 17) = 0.1088099538615084D+00 - xs( 18) = 0.1187174560803779D+00 - xs( 19) = 0.1288368339566023D+00 - xs( 20) = 0.1391747292690772D+00 - xs( 21) = 0.1497485956074202D+00 - xs( 22) = 0.1605982291433071D+00 - xs( 23) = 0.1725873141596738D+00 - ws( 1) = 0.9078369462731389D-03 - ws( 2) = 0.2090725725610895D-02 - ws( 3) = 0.3203675830389629D-02 - ws( 4) = 0.4201618807299036D-02 - ws( 5) = 0.5070613846321353D-02 - ws( 6) = 0.5818347452986643D-02 - ws( 7) = 0.6460012740683100D-02 - ws( 8) = 0.7011360019427239D-02 - ws( 9) = 0.7486825593959792D-02 - ws( 10) = 0.7899291345820104D-02 - ws( 11) = 0.8260084174806484D-02 - ws( 12) = 0.8579005561676867D-02 - ws( 13) = 0.8864437273333260D-02 - ws( 14) = 0.9123538317420686D-02 - ws( 15) = 0.9362505584518956D-02 - ws( 16) = 0.9586887069366074D-02 - ws( 17) = 0.9802010073361950D-02 - ws( 18) = 0.1001344968480883D-01 - ws( 19) = 0.1022805212740471D-01 - ws( 20) = 0.1045631418917193D-01 - ws( 21) = 0.1071538354248271D-01 - ws( 22) = 0.1104360416709843D-01 - ws( 23) = 0.1609047588853686D-01 - endif - - - if( iquad .eq. 36 ) then - idomain = 36 - rk0r = 0.1000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5999999999800001D-01 - n = 23 - err = 0.2131820826965418D-07 - ierq = 0 - xs( 1) = 0.3635264577670765D-03 - xs( 2) = 0.1901609189933220D-02 - xs( 3) = 0.4606508443136432D-02 - xs( 4) = 0.8371579277618099D-02 - xs( 5) = 0.1306697072145249D-01 - xs( 6) = 0.1856506616519418D-01 - xs( 7) = 0.2475189380069814D-01 - xs( 8) = 0.3152952034017231D-01 - xs( 9) = 0.3881524970597353D-01 - xs( 10) = 0.4654012093889265D-01 - xs( 11) = 0.5464730678173438D-01 - xs( 12) = 0.6309051502642675D-01 - xs( 13) = 0.7183246882119568D-01 - xs( 14) = 0.8084355391988736D-01 - xs( 15) = 0.9010070575675395D-01 - xs( 16) = 0.9958659066192667D-01 - xs( 17) = 0.1092891124578359D+00 - xs( 18) = 0.1192013232040339D+00 - xs( 19) = 0.1293220424776570D+00 - xs( 20) = 0.1396570733267866D+00 - xs( 21) = 0.1502226951044810D+00 - xs( 22) = 0.1610585309158376D+00 - xs( 23) = 0.1729164241586240D+00 - ws( 1) = 0.9314646942522785D-03 - ws( 2) = 0.2135692790784562D-02 - ws( 3) = 0.3255764470853306D-02 - ws( 4) = 0.4252290816450390D-02 - ws( 5) = 0.5117051964831614D-02 - ws( 6) = 0.5860118288367812D-02 - ws( 7) = 0.6497233183091068D-02 - ws( 8) = 0.7044263218356829D-02 - ws( 9) = 0.7515728989934250D-02 - ws( 10) = 0.7924569344486775D-02 - ws( 11) = 0.8282113258564830D-02 - ws( 12) = 0.8598115068520630D-02 - ws( 13) = 0.8880879341950738D-02 - ws( 14) = 0.9137471581392602D-02 - ws( 15) = 0.9373983602108024D-02 - ws( 16) = 0.9595847730810911D-02 - ws( 17) = 0.9808272436853225D-02 - ws( 18) = 0.1001665329822220D-01 - ws( 19) = 0.1022774412513711D-01 - ws( 20) = 0.1045220212154287D-01 - ws( 21) = 0.1070764353818517D-01 - ws( 22) = 0.1105135073880695D-01 - ws( 23) = 0.1552893328911862D-01 - endif - - - if( iquad .eq. 37 ) then - idomain = 37 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.9999999999800001D-01 - n = 22 - err = 0.3054910375910552D-07 - ierq = 0 - xs( 1) = 0.3943612003653972D-03 - xs( 2) = 0.2050609300066647D-02 - xs( 3) = 0.4925876284841571D-02 - xs( 4) = 0.8875322567742948D-02 - xs( 5) = 0.1374832805783065D-01 - xs( 6) = 0.1941023821001008D-01 - xs( 7) = 0.2574612071616564D-01 - xs( 8) = 0.3265896433067142D-01 - xs( 9) = 0.4006749953769399D-01 - xs( 10) = 0.4790437712113962D-01 - xs( 11) = 0.5611446820657728D-01 - xs( 12) = 0.6465318718304604D-01 - xs( 13) = 0.7348490953390116D-01 - xs( 14) = 0.8258158642651156D-01 - xs( 15) = 0.9192162847142990D-01 - xs( 16) = 0.1014891034747792D+00 - xs( 17) = 0.1112732461286491D+00 - xs( 18) = 0.1212684147512584D+00 - xs( 19) = 0.1314744872123939D+00 - xs( 20) = 0.1418978854701434D+00 - xs( 21) = 0.1525545901639707D+00 - xs( 22) = 0.1634935177947934D+00 - ws( 1) = 0.1008919061082494D-02 - ws( 2) = 0.2287409336643668D-02 - ws( 3) = 0.3438146605014647D-02 - ws( 4) = 0.4435312926540231D-02 - ws( 5) = 0.5288226342608161D-02 - ws( 6) = 0.6016478674479518D-02 - ws( 7) = 0.6639154702487012D-02 - ws( 8) = 0.7173017522755547D-02 - ws( 9) = 0.7632856946599889D-02 - ws( 10) = 0.8031739825972486D-02 - ws( 11) = 0.8381042028434373D-02 - ws( 12) = 0.8690491280820315D-02 - ws( 13) = 0.8968320526596300D-02 - ws( 14) = 0.9221511649088115D-02 - ws( 15) = 0.9456097052157064D-02 - ws( 16) = 0.9677541251354687D-02 - ws( 17) = 0.9891253050700193D-02 - ws( 18) = 0.1010351984769174D-01 - ws( 19) = 0.1032464388116745D-01 - ws( 20) = 0.1057788153877034D-01 - ws( 21) = 0.1096627201875926D-01 - ws( 22) = 0.1244749100009261D-01 - endif - - - if( iquad .eq. 38 ) then - idomain = 38 - rk0r = 0.1000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999980000D+00 - n = 22 - err = 0.2122790759942799D-07 - ierq = 0 - xs( 1) = 0.4162192853199851D-03 - xs( 2) = 0.2157575429271451D-02 - xs( 3) = 0.5161030081203824D-02 - xs( 4) = 0.9258026555801935D-02 - xs( 5) = 0.1428096461123429D-01 - xs( 6) = 0.2008492058285181D-01 - xs( 7) = 0.2654967916205531D-01 - xs( 8) = 0.3357633143900156D-01 - xs( 9) = 0.4108378373023558D-01 - xs( 10) = 0.4900591706746858D-01 - xs( 11) = 0.5728919759286950D-01 - xs( 12) = 0.6589060616439894D-01 - xs( 13) = 0.7477586903033377D-01 - xs( 14) = 0.8391800361028882D-01 - xs( 15) = 0.9329619069661382D-01 - xs( 16) = 0.1028949667721295D+00 - xs( 17) = 0.1127037512193229D+00 - xs( 18) = 0.1227168393314071D+00 - xs( 19) = 0.1329335032771488D+00 - xs( 20) = 0.1433594636270903D+00 - xs( 21) = 0.1540092179149569D+00 - xs( 22) = 0.1649188053270844D+00 - ws( 1) = 0.1063964727614075D-02 - ws( 2) = 0.2398403931705617D-02 - ws( 3) = 0.3579472380064455D-02 - ws( 4) = 0.4586271825357262D-02 - ws( 5) = 0.5435452834997290D-02 - ws( 6) = 0.6152489807252306D-02 - ws( 7) = 0.6760601305161298D-02 - ws( 8) = 0.7279234593854900D-02 - ws( 9) = 0.7724690370942473D-02 - ws( 10) = 0.8110690052428680D-02 - ws( 11) = 0.8448734462494761D-02 - ws( 12) = 0.8748403522715324D-02 - ws( 13) = 0.9017667413244548D-02 - ws( 14) = 0.9263208556076178D-02 - ws( 15) = 0.9490763621126492D-02 - ws( 16) = 0.9705524995499879D-02 - ws( 17) = 0.9912548694740024D-02 - ws( 18) = 0.1011799001998681D-01 - ws( 19) = 0.1033178428353540D-01 - ws( 20) = 0.1057549972953653D-01 - ws( 21) = 0.1095980882492324D-01 - ws( 22) = 0.1239621174506831D-01 - endif - - - if( iquad .eq. 39 ) then - idomain = 39 - rk0r = 0.1000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5999999999980000D+00 - n = 22 - err = 0.9070610582706526D-08 - ierq = 0 - xs( 1) = 0.3467584602081589D-03 - xs( 2) = 0.1843335611094381D-02 - xs( 3) = 0.4542479270624624D-02 - xs( 4) = 0.8360790244629903D-02 - xs( 5) = 0.1315567263024596D-01 - xs( 6) = 0.1877893901404809D-01 - xs( 7) = 0.2510042545983060D-01 - xs( 8) = 0.3201202767144251D-01 - xs( 9) = 0.3942563086982071D-01 - xs( 10) = 0.4727003165257408D-01 - xs( 11) = 0.5548804981271457D-01 - xs( 12) = 0.6403403124958354D-01 - xs( 13) = 0.7287176668066517D-01 - xs( 14) = 0.8197281906578512D-01 - xs( 15) = 0.9131524526051726D-01 - xs( 16) = 0.1008826504118749D+00 - xs( 17) = 0.1106636080171701D+00 - xs( 18) = 0.1206516102809365D+00 - xs( 19) = 0.1308443436037875D+00 - xs( 20) = 0.1412460401147192D+00 - xs( 21) = 0.1518657846817437D+00 - xs( 22) = 0.1626625351670086D+00 - ws( 1) = 0.8926533436243487D-03 - ws( 2) = 0.2103707728443177D-02 - ws( 3) = 0.3279746995408054D-02 - ws( 4) = 0.4332125287811687D-02 - ws( 5) = 0.5232599018571206D-02 - ws( 6) = 0.5992204931794930D-02 - ws( 7) = 0.6632794757655583D-02 - ws( 8) = 0.7175777200344746D-02 - ws( 9) = 0.7639610805268079D-02 - ws( 10) = 0.8039703758618963D-02 - ws( 11) = 0.8388761734734296D-02 - ws( 12) = 0.8697202263717877D-02 - ws( 13) = 0.8973575200401035D-02 - ws( 14) = 0.9224954923107096D-02 - ws( 15) = 0.9457346446390033D-02 - ws( 16) = 0.9676126783688331D-02 - ws( 17) = 0.9886266117221076D-02 - ws( 18) = 0.1009420239469175D-01 - ws( 19) = 0.1030963169331153D-01 - ws( 20) = 0.1055013812116937D-01 - ws( 21) = 0.1094996627347099D-01 - ws( 22) = 0.1216238179238820D-01 - endif - - - if( iquad .eq. 40 ) then - idomain = 40 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5707963267928966D+00 - n = 21 - err = 0.1366524705794754D-07 - ierq = 0 - xs( 1) = 0.4491621345351175D-03 - xs( 2) = 0.2321405390196980D-02 - xs( 3) = 0.5531101619076818D-02 - xs( 4) = 0.9880995523680068D-02 - xs( 5) = 0.1517924289691754D-01 - xs( 6) = 0.2126198810190702D-01 - xs( 7) = 0.2799611094472624D-01 - xs( 8) = 0.3527555946037662D-01 - xs( 9) = 0.4301659362094715D-01 - xs( 10) = 0.5115340844829132D-01 - xs( 11) = 0.5963446435049883D-01 - xs( 12) = 0.6841955269183472D-01 - xs( 13) = 0.7747753580603137D-01 - xs( 14) = 0.8678468162154661D-01 - xs( 15) = 0.9632347450176884D-01 - xs( 16) = 0.1060819076583104D+00 - xs( 17) = 0.1160534048699973D+00 - xs( 18) = 0.1262362104160651D+00 - xs( 19) = 0.1366361599600060D+00 - xs( 20) = 0.1472677681418146D+00 - xs( 21) = 0.1581193438170776D+00 - ws( 1) = 0.1147249185412468D-02 - ws( 2) = 0.2572031579525502D-02 - ws( 3) = 0.3813487716002034D-02 - ws( 4) = 0.4854003091380957D-02 - ws( 5) = 0.5715168373102520D-02 - ws( 6) = 0.6428206954218215D-02 - ws( 7) = 0.7022445416444165D-02 - ws( 8) = 0.7522568918615630D-02 - ws( 9) = 0.7948594551180322D-02 - ws( 10) = 0.8316497475613407D-02 - ws( 11) = 0.8638958497250515D-02 - ws( 12) = 0.8926081235003842D-02 - ws( 13) = 0.9186015338196274D-02 - ws( 14) = 0.9425536697078678D-02 - ws( 15) = 0.9650608034508559D-02 - ws( 16) = 0.9866687967023233D-02 - ws( 17) = 0.1008072056236453D-01 - ws( 18) = 0.1030311269741117D-01 - ws( 19) = 0.1055256999219070D-01 - ws( 20) = 0.1096673880095607D-01 - ws( 21) = 0.1226570965386197D-01 - endif - - - if( iquad .eq. 41 ) then - idomain = 41 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1570796326792897D+01 - n = 21 - err = 0.8680752304077725D-08 - ierq = 0 - xs( 1) = 0.2797379642378933D-03 - xs( 2) = 0.1568786809562116D-02 - xs( 3) = 0.4048187033395980D-02 - xs( 4) = 0.7691916577712309D-02 - xs( 5) = 0.1237147545941269D-01 - xs( 6) = 0.1793478346667607D-01 - xs( 7) = 0.2423957896047513D-01 - xs( 8) = 0.3116456079629833D-01 - xs( 9) = 0.3861086793944094D-01 - xs( 10) = 0.4649976017734459D-01 - xs( 11) = 0.5476925299866194D-01 - xs( 12) = 0.6337087304633215D-01 - xs( 13) = 0.7226695100775950D-01 - xs( 14) = 0.8142853686696516D-01 - xs( 15) = 0.9083378787881180D-01 - xs( 16) = 0.1004670460008745D+00 - xs( 17) = 0.1103185815897392D+00 - xs( 18) = 0.1203820603868186D+00 - xs( 19) = 0.1306617253855765D+00 - xs( 20) = 0.1411621110323260D+00 - xs( 21) = 0.1517501891606670D+00 - ws( 1) = 0.7327883039015243D-03 - ws( 2) = 0.1874162072976594D-02 - ws( 3) = 0.3078078903095448D-02 - ws( 4) = 0.4186697299026499D-02 - ws( 5) = 0.5146578297529239D-02 - ws( 6) = 0.5956168414772369D-02 - ws( 7) = 0.6633194001039649D-02 - ws( 8) = 0.7200337983552601D-02 - ws( 9) = 0.7679213683431953D-02 - ws( 10) = 0.8088299089590453D-02 - ws( 11) = 0.8442662512817585D-02 - ws( 12) = 0.8754372453923114D-02 - ws( 13) = 0.9033069966671510D-02 - ws( 14) = 0.9286693043239244D-02 - ws( 15) = 0.9522045106973992D-02 - ws( 16) = 0.9744761224547102D-02 - ws( 17) = 0.9963593890586448D-02 - ws( 18) = 0.1018811703424548D-01 - ws( 19) = 0.1043263606219851D-01 - ws( 20) = 0.1090672005253994D-01 - ws( 21) = 0.1182454416616950D-01 - endif - - - if( iquad .eq. 42 ) then - idomain = 42 - rk0r = 0.1000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 20 - err = 0.1352622159602293D-07 - ierq = 0 - xs( 1) = 0.3255075483779248D-03 - xs( 2) = 0.1703089191818884D-02 - xs( 3) = 0.4134785959105611D-02 - xs( 4) = 0.7549269055529297D-02 - xs( 5) = 0.1185769259599865D-01 - xs( 6) = 0.1696454962915142D-01 - xs( 7) = 0.2277595744196567D-01 - xs( 8) = 0.2920501859139859D-01 - xs( 9) = 0.3617456417215602D-01 - xs( 10) = 0.4361800232212603D-01 - xs( 11) = 0.5147901618707542D-01 - xs( 12) = 0.5971072748076910D-01 - xs( 13) = 0.6827464510467690D-01 - xs( 14) = 0.7713944864974064D-01 - xs( 15) = 0.8628056171531664D-01 - xs( 16) = 0.9567910804478572D-01 - xs( 17) = 0.1053172034502448D+00 - xs( 18) = 0.1151939274653519D+00 - xs( 19) = 0.1252656948826193D+00 - xs( 20) = 0.1351882467868771D+00 - ws( 1) = 0.8339673573398374D-03 - ws( 2) = 0.1914441505057945D-02 - ws( 3) = 0.2936837444700307D-02 - ws( 4) = 0.3877139417803059D-02 - ws( 5) = 0.4723650344992897D-02 - ws( 6) = 0.5474327420614433D-02 - ws( 7) = 0.6133961701534817D-02 - ws( 8) = 0.6711290553063970D-02 - ws( 9) = 0.7216712243855071D-02 - ws( 10) = 0.7660809517020722D-02 - ws( 11) = 0.8053499894191957D-02 - ws( 12) = 0.8403657814211677D-02 - ws( 13) = 0.8719399886844257D-02 - ws( 14) = 0.9007727484480860D-02 - ws( 15) = 0.9274448547204005D-02 - ws( 16) = 0.9532131933719996D-02 - ws( 17) = 0.9783978275652519D-02 - ws( 18) = 0.1005961296917733D-01 - ws( 19) = 0.1065621092930927D-01 - ws( 20) = 0.1074753781070362D-01 - endif - - - if( iquad .eq. 43 ) then - idomain = 43 - rk0r = 0.1000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 18 - err = 0.5950901178918264D-07 - ierq = 0 - xs( 1) = 0.2210613222239810D-03 - xs( 2) = 0.1174691479000492D-02 - xs( 3) = 0.2915940202650347D-02 - xs( 4) = 0.5453949987875149D-02 - xs( 5) = 0.8770713475756680D-02 - xs( 6) = 0.1282768096464196D-01 - xs( 7) = 0.1757548636474324D-01 - xs( 8) = 0.2296093127385724D-01 - xs( 9) = 0.2893104865867124D-01 - xs( 10) = 0.3543543368320836D-01 - xs( 11) = 0.4242744504693154D-01 - xs( 12) = 0.4986469224337858D-01 - xs( 13) = 0.5771061080554066D-01 - xs( 14) = 0.6593357558483838D-01 - xs( 15) = 0.7450236559184445D-01 - xs( 16) = 0.8340884375673074D-01 - xs( 17) = 0.9259873315859822D-01 - xs( 18) = 0.1017723755667864D+00 - ws( 1) = 0.5686283399327590D-03 - ws( 2) = 0.1343742112615884D-02 - ws( 3) = 0.2140420211445270D-02 - ws( 4) = 0.2932440580713005D-02 - ws( 5) = 0.3694489211543004D-02 - ws( 6) = 0.4411121715765152D-02 - ws( 7) = 0.5075566642587110D-02 - ws( 8) = 0.5686512933580279D-02 - ws( 9) = 0.6245518399712153D-02 - ws( 10) = 0.6755747810480816D-02 - ws( 11) = 0.7222087281733914D-02 - ws( 12) = 0.7649240449202132D-02 - ws( 13) = 0.8042084878708318D-02 - ws( 14) = 0.8416717573126682D-02 - ws( 15) = 0.8772128782253313D-02 - ws( 16) = 0.9143651284749569D-02 - ws( 17) = 0.9864724559429343D-02 - ws( 18) = 0.1025708324830489D-01 - endif - - - if( iquad .eq. 44 ) then - idomain = 44 - rk0r = 0.1000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 17 - err = 0.1127818835584216D-07 - ierq = 0 - xs( 1) = 0.2173379783610140D-03 - xs( 2) = 0.1141727668097831D-02 - xs( 3) = 0.2791310843252346D-02 - xs( 4) = 0.5144790976684961D-02 - xs( 5) = 0.8173711844419746D-02 - xs( 6) = 0.1184516061825558D-01 - xs( 7) = 0.1612394390303462D-01 - xs( 8) = 0.2097421511672106D-01 - xs( 9) = 0.2636087991760463D-01 - xs( 10) = 0.3225015923785433D-01 - xs( 11) = 0.3860939387013051D-01 - xs( 12) = 0.4540936441615584D-01 - xs( 13) = 0.5262261856535686D-01 - xs( 14) = 0.6021800351859136D-01 - xs( 15) = 0.6819026332931800D-01 - xs( 16) = 0.7647949204629943D-01 - xs( 17) = 0.8480438601230757D-01 - ws( 1) = 0.5573683197348970D-03 - ws( 2) = 0.1289805489390659D-02 - ws( 3) = 0.2005774055024363D-02 - ws( 4) = 0.2696421177379360D-02 - ws( 5) = 0.3356003057134929D-02 - ws( 6) = 0.3981111672397782D-02 - ws( 7) = 0.4570629108521943D-02 - ws( 8) = 0.5124636244091293D-02 - ws( 9) = 0.5643815237315952D-02 - ws( 10) = 0.6130970251064515D-02 - ws( 11) = 0.6587739397578994D-02 - ws( 12) = 0.7015193851907697D-02 - ws( 13) = 0.7430642298707286D-02 - ws( 14) = 0.7825767256923412D-02 - ws( 15) = 0.8235977220912240D-02 - ws( 16) = 0.9011283782665580D-02 - ws( 17) = 0.9440119763478033D-02 - endif - - - if( iquad .eq. 45 ) then - idomain = 45 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 23 - err = 0.1878834325367126D-07 - ierq = 0 - xs( 1) = 0.2903825851405598D-03 - xs( 2) = 0.1543874298101953D-02 - xs( 3) = 0.3828313260592586D-02 - xs( 4) = 0.7130002125378784D-02 - xs( 5) = 0.1137979452593363D-01 - xs( 6) = 0.1647821027668913D-01 - xs( 7) = 0.2231951486739953D-01 - xs( 8) = 0.2880399730169779D-01 - xs( 9) = 0.3584282905239754D-01 - xs( 10) = 0.4335957890037379D-01 - xs( 11) = 0.5129013100669727D-01 - xs( 12) = 0.5958173461709455D-01 - xs( 13) = 0.6819164457476211D-01 - xs( 14) = 0.7708568542803822D-01 - xs( 15) = 0.8623694838838954D-01 - xs( 16) = 0.9562473532768766D-01 - xs( 17) = 0.1052338015922250D+00 - xs( 18) = 0.1150539490876401D+00 - xs( 19) = 0.1250800731241066D+00 - xs( 20) = 0.1353127208821456D+00 - xs( 21) = 0.1457596855349091D+00 - xs( 22) = 0.1564411418479504D+00 - xs( 23) = 0.1675004491032640D+00 - ws( 1) = 0.7471232190736834D-03 - ws( 2) = 0.1766211459447530D-02 - ws( 3) = 0.2800519684102481D-02 - ws( 4) = 0.3790797716262619D-02 - ws( 5) = 0.4691793756795291D-02 - ws( 6) = 0.5487226679218029D-02 - ws( 7) = 0.6178692675184662D-02 - ws( 8) = 0.6775445807788507D-02 - ws( 9) = 0.7289482299150393D-02 - ws( 10) = 0.7733348972049130D-02 - ws( 11) = 0.8118988384518449D-02 - ws( 12) = 0.8457122544001478D-02 - ws( 13) = 0.8757031922402117D-02 - ws( 14) = 0.9026604714702419D-02 - ws( 15) = 0.9272542477615399D-02 - ws( 16) = 0.9500656119323712D-02 - ws( 17) = 0.9716233070883607D-02 - ws( 18) = 0.9924557763631830D-02 - ws( 19) = 0.1013197200262995D-01 - ws( 20) = 0.1034862396954645D-01 - ws( 21) = 0.1059847197660024D-01 - ws( 22) = 0.1098145912508026D-01 - ws( 23) = 0.1277717307396706D-01 - endif - - - if( iquad .eq. 46 ) then - idomain = 46 - rk0r = 0.2000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 23 - err = 0.1606551032246354D-07 - ierq = 0 - xs( 1) = 0.2955755827106548D-03 - xs( 2) = 0.1568764892458881D-02 - xs( 3) = 0.3880440394502067D-02 - xs( 4) = 0.7208815827625673D-02 - xs( 5) = 0.1148024932030131D-01 - xs( 6) = 0.1659408980392964D-01 - xs( 7) = 0.2244501212785517D-01 - xs( 8) = 0.2893420229455407D-01 - xs( 9) = 0.3597380310626590D-01 - xs( 10) = 0.4348828121761179D-01 - xs( 11) = 0.5141427431729005D-01 - xs( 12) = 0.5969961071168892D-01 - xs( 13) = 0.6830195013327948D-01 - xs( 14) = 0.7718736384104641D-01 - xs( 15) = 0.8632904843587504D-01 - xs( 16) = 0.9570627584164422D-01 - xs( 17) = 0.1053036209934801D+00 - xs( 18) = 0.1151105110455853D+00 - xs( 19) = 0.1251211507132597D+00 - xs( 20) = 0.1353348157674175D+00 - xs( 21) = 0.1457567426494494D+00 - xs( 22) = 0.1563994059876818D+00 - xs( 23) = 0.1673026138186601D+00 - ws( 1) = 0.7601498871933984D-03 - ws( 2) = 0.1791197780484725D-02 - ws( 3) = 0.2828582818648600D-02 - ws( 4) = 0.3815374244084354D-02 - ws( 5) = 0.4710338130167615D-02 - ws( 6) = 0.5499617403446937D-02 - ws( 7) = 0.6185692628555059D-02 - ws( 8) = 0.6778025292872252D-02 - ws( 9) = 0.7288591712052283D-02 - ws( 10) = 0.7729822158209072D-02 - ws( 11) = 0.8113493690313188D-02 - ws( 12) = 0.8450150059096382D-02 - ws( 13) = 0.8748904503479859D-02 - ws( 14) = 0.9017496474421844D-02 - ws( 15) = 0.9262492096242532D-02 - ws( 16) = 0.9489567531544849D-02 - ws( 17) = 0.9703848338179962D-02 - ws( 18) = 0.9910397782899807D-02 - ws( 19) = 0.1011524920411115D-01 - ws( 20) = 0.1032795321597303D-01 - ws( 21) = 0.1057167565233257D-01 - ws( 22) = 0.1094348268613135D-01 - ws( 23) = 0.1239409446198097D-01 - endif - - - if( iquad .eq. 47 ) then - idomain = 47 - rk0r = 0.2000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5999999999800001D-01 - n = 23 - err = 0.2402228409693287D-07 - ierq = 0 - xs( 1) = 0.3066587607184814D-03 - xs( 2) = 0.1622101088479564D-02 - xs( 3) = 0.3992979836917417D-02 - xs( 4) = 0.7380638270735764D-02 - xs( 5) = 0.1170181099464687D-01 - xs( 6) = 0.1685342744692105D-01 - xs( 7) = 0.2273129158513148D-01 - xs( 8) = 0.2923870587245246D-01 - xs( 9) = 0.3628990352091194D-01 - xs( 10) = 0.4381113033658261D-01 - xs( 11) = 0.5174044052661995D-01 - xs( 12) = 0.6002673826290580D-01 - xs( 13) = 0.6862846736533747D-01 - xs( 14) = 0.7751224677117835D-01 - xs( 15) = 0.8665163319104319D-01 - xs( 16) = 0.9602610447579793D-01 - xs( 17) = 0.1056202983785863D+00 - xs( 18) = 0.1154235442792406D+00 - xs( 19) = 0.1254297264143037D+00 - xs( 20) = 0.1356373402756095D+00 - xs( 21) = 0.1460499647796290D+00 - xs( 22) = 0.1566747932635004D+00 - xs( 23) = 0.1674951194522393D+00 - ws( 1) = 0.7879766092221529D-03 - ws( 2) = 0.1845052609419274D-02 - ws( 3) = 0.2890164456555122D-02 - ws( 4) = 0.3870774954989987D-02 - ws( 5) = 0.4754085379357848D-02 - ws( 6) = 0.5531652193623935D-02 - ws( 7) = 0.6207908655050838D-02 - ws( 8) = 0.6792609577640767D-02 - ws( 9) = 0.7297498181572209D-02 - ws( 10) = 0.7734648717883749D-02 - ws( 11) = 0.8115479761410848D-02 - ws( 12) = 0.8450216429195436D-02 - ws( 13) = 0.8747708059421981D-02 - ws( 14) = 0.9015484343802789D-02 - ws( 15) = 0.9259943622036117D-02 - ws( 16) = 0.9486619037404579D-02 - ws( 17) = 0.9700496706579912D-02 - ws( 18) = 0.9906455527135189D-02 - ws( 19) = 0.1011030322644797D-01 - ws( 20) = 0.1032114967121136D-01 - ws( 21) = 0.1056086394005440D-01 - ws( 22) = 0.1092516256672283D-01 - ws( 23) = 0.1220574230239046D-01 - endif - - - if( iquad .eq. 48 ) then - idomain = 48 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.9999999999800001D-01 - n = 23 - err = 0.5019048048208373D-07 - ierq = 0 - xs( 1) = 0.3430205341960357D-03 - xs( 2) = 0.1804323454719854D-02 - xs( 3) = 0.4403357081761526D-02 - xs( 4) = 0.8060059725386072D-02 - xs( 5) = 0.1265900588438420D-01 - xs( 6) = 0.1807895644267620D-01 - xs( 7) = 0.2420705307360691D-01 - xs( 8) = 0.3094312579772742D-01 - xs( 9) = 0.3820090649906144D-01 - xs( 10) = 0.4590792108715595D-01 - xs( 11) = 0.5400448396664077D-01 - xs( 12) = 0.6244219257023419D-01 - xs( 13) = 0.7118229348327809D-01 - xs( 14) = 0.8019417310885971D-01 - xs( 15) = 0.8945410999881744D-01 - xs( 16) = 0.9894435667176052D-01 - xs( 17) = 0.1086525873129753D+00 - xs( 18) = 0.1185717920556445D+00 - xs( 19) = 0.1287008628490381D+00 - xs( 20) = 0.1390459415030522D+00 - xs( 21) = 0.1496237543358472D+00 - xs( 22) = 0.1604742795013739D+00 - xs( 23) = 0.1724781537406302D+00 - ws( 1) = 0.8801987164419585D-03 - ws( 2) = 0.2038934554749252D-02 - ws( 3) = 0.3145324265183358D-02 - ws( 4) = 0.4148290042479391D-02 - ws( 5) = 0.5029190424725773D-02 - ws( 6) = 0.5791844473908363D-02 - ws( 7) = 0.6447635879114780D-02 - ws( 8) = 0.7010134048080005D-02 - ws( 9) = 0.7493366128372253D-02 - ws( 10) = 0.7910741590047931D-02 - ws( 11) = 0.8274345371625845D-02 - ws( 12) = 0.8594639509585457D-02 - ws( 13) = 0.8880484008268503D-02 - ws( 14) = 0.9139345995095310D-02 - ws( 15) = 0.9377603788241646D-02 - ws( 16) = 0.9600902841701783D-02 - ws( 17) = 0.9814582508532231D-02 - ws( 18) = 0.1002419643503272D-01 - ws( 19) = 0.1023659003736643D-01 - ws( 20) = 0.1046206324013092D-01 - ws( 21) = 0.1071589469346269D-01 - ws( 22) = 0.1103483605416448D-01 - ws( 23) = 0.1629171058885420D-01 - endif - - - if( iquad .eq. 49 ) then - idomain = 49 - rk0r = 0.2000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999980000D+00 - n = 22 - err = 0.4351139315402138D-07 - ierq = 0 - xs( 1) = 0.3749510144357636D-03 - xs( 2) = 0.1958765188513477D-02 - xs( 3) = 0.4734740192161724D-02 - xs( 4) = 0.8583350159879096D-02 - xs( 5) = 0.1336726155259788D-01 - xs( 6) = 0.1895730601380711D-01 - xs( 7) = 0.2523921275704889D-01 - xs( 8) = 0.3211346268561111D-01 - xs( 9) = 0.3949499686279261D-01 - xs( 10) = 0.4731283098022471D-01 - xs( 11) = 0.5550896561333120D-01 - xs( 12) = 0.6403676428876867D-01 - xs( 13) = 0.7285920990617273D-01 - xs( 14) = 0.8194733098592663D-01 - xs( 15) = 0.9127893143637660D-01 - xs( 16) = 0.1008376868271219D+00 - xs( 17) = 0.1106125884444842D+00 - xs( 18) = 0.1205978909248950D+00 - xs( 19) = 0.1307933584924651D+00 - xs( 20) = 0.1412057375487785D+00 - xs( 21) = 0.1518515513057890D+00 - xs( 22) = 0.1627679515977986D+00 - ws( 1) = 0.9604308130881244D-03 - ws( 2) = 0.2196346669170599D-02 - ws( 3) = 0.3334949674912573D-02 - ws( 4) = 0.4338939116238122D-02 - ws( 5) = 0.5207286733882460D-02 - ws( 6) = 0.5953772851776446D-02 - ws( 7) = 0.6593456235909543D-02 - ws( 8) = 0.7140872085365449D-02 - ws( 9) = 0.7610384817354356D-02 - ws( 10) = 0.8015645971072636D-02 - ws( 11) = 0.8368883281060731D-02 - ws( 12) = 0.8680578770301256D-02 - ws( 13) = 0.8959526025374667D-02 - ws( 14) = 0.9213089867824490D-02 - ws( 15) = 0.9447562646422981D-02 - ws( 16) = 0.9668593193841104D-02 - ws( 17) = 0.9881675876566328D-02 - ws( 18) = 0.1009333009097908D-01 - ws( 19) = 0.1031399874688957D-01 - ws( 20) = 0.1056620533721570D-01 - ws( 21) = 0.1096177295265329D-01 - ws( 22) = 0.1240151646570786D-01 - endif - - - if( iquad .eq. 50 ) then - idomain = 50 - rk0r = 0.2000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5999999999980000D+00 - n = 22 - err = 0.3080708673412698D-07 - ierq = 0 - xs( 1) = 0.4056466208487843D-03 - xs( 2) = 0.2108924033082692D-02 - xs( 3) = 0.5065581846100515D-02 - xs( 4) = 0.9124504491137260D-02 - xs( 5) = 0.1412401286543081D-01 - xs( 6) = 0.1991759227787243D-01 - xs( 7) = 0.2638106492449921D-01 - xs( 8) = 0.3341155249716439D-01 - xs( 9) = 0.4092482026494467D-01 - xs( 10) = 0.4885264262931992D-01 - xs( 11) = 0.5714030596392056D-01 - xs( 12) = 0.6574430676190512D-01 - xs( 13) = 0.7463035132553976D-01 - xs( 14) = 0.8377172882535140D-01 - xs( 15) = 0.9314808038030646D-01 - xs( 16) = 0.1027445138322721D+00 - xs( 17) = 0.1125511337864455D+00 - xs( 18) = 0.1225631555962508D+00 - xs( 19) = 0.1327803804339160D+00 - xs( 20) = 0.1432105978458188D+00 - xs( 21) = 0.1538711063961765D+00 - xs( 22) = 0.1647525976864322D+00 - ws( 1) = 0.1037710459051538D-02 - ws( 2) = 0.2352238900622210D-02 - ws( 3) = 0.3535097545958406D-02 - ws( 4) = 0.4555378228872600D-02 - ws( 5) = 0.5419131843357453D-02 - ws( 6) = 0.6147362764673150D-02 - ws( 7) = 0.6762482671489920D-02 - ws( 8) = 0.7284497273229040D-02 - ws( 9) = 0.7730709560818979D-02 - ws( 10) = 0.8115856310354677D-02 - ws( 11) = 0.8452256516981923D-02 - ws( 12) = 0.8750064253381018D-02 - ws( 13) = 0.9017618346367129D-02 - ws( 14) = 0.9261821375841452D-02 - ws( 15) = 0.9488569988027664D-02 - ws( 16) = 0.9703203456768223D-02 - ws( 17) = 0.9910727891764143D-02 - ws( 18) = 0.1011793819686106D-01 - ws( 19) = 0.1033507169841680D-01 - ws( 20) = 0.1058089779439867D-01 - ws( 21) = 0.1099788398314359D-01 - ws( 22) = 0.1229179014038778D-01 - endif - - - if( iquad .eq. 51 ) then - idomain = 51 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5707963267928966D+00 - n = 21 - err = 0.1235977812138644D-07 - ierq = 0 - xs( 1) = 0.4429459242189340D-03 - xs( 2) = 0.2293551590347451D-02 - xs( 3) = 0.5478559445780905D-02 - xs( 4) = 0.9811282532881421D-02 - xs( 5) = 0.1510289985869198D-01 - xs( 6) = 0.2118766518528154D-01 - xs( 7) = 0.2792920046093645D-01 - xs( 8) = 0.3521865380589732D-01 - xs( 9) = 0.4297040486854874D-01 - xs( 10) = 0.5111756921192572D-01 - xs( 11) = 0.5960807735473525D-01 - xs( 12) = 0.6840152253238929D-01 - xs( 13) = 0.7746675078925325D-01 - xs( 14) = 0.8678010219525291D-01 - xs( 15) = 0.9632416808403688D-01 - xs( 16) = 0.1060870593541560D+00 - xs( 17) = 0.1160623097274743D+00 - xs( 18) = 0.1262482416840956D+00 - xs( 19) = 0.1366508270932814D+00 - xs( 20) = 0.1472843221745046D+00 - xs( 21) = 0.1581306163161836D+00 - ws( 1) = 0.1131925382411353D-02 - ws( 2) = 0.2546535634536123D-02 - ws( 3) = 0.3791441132675811D-02 - ws( 4) = 0.4842148008609255D-02 - ws( 5) = 0.5713384415630228D-02 - ws( 6) = 0.6433459691333583D-02 - ws( 7) = 0.7031545231115204D-02 - ws( 8) = 0.7533168368063381D-02 - ws( 9) = 0.7959253536833796D-02 - ws( 10) = 0.8326452811553128D-02 - ws( 11) = 0.8647877174812312D-02 - ws( 12) = 0.8933875429273661D-02 - ws( 13) = 0.9192723828875511D-02 - ws( 14) = 0.9431258954271634D-02 - ws( 15) = 0.9655457129718398D-02 - ws( 16) = 0.9870776430099802D-02 - ws( 17) = 0.1008419721222615D-01 - ws( 18) = 0.1030603334534307D-01 - ws( 19) = 0.1055512365288025D-01 - ws( 20) = 0.1096969173402364D-01 - ws( 21) = 0.1224812774503569D-01 - endif - - - if( iquad .eq. 52 ) then - idomain = 52 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1570796326792897D+01 - n = 21 - err = 0.9405266907214374D-08 - ierq = 0 - xs( 1) = 0.8275569470009364D-04 - xs( 2) = 0.1123553452280393D-02 - xs( 3) = 0.3482436144691160D-02 - xs( 4) = 0.7044198113966836D-02 - xs( 5) = 0.1165651232560753D-01 - xs( 6) = 0.1716264708606087D-01 - xs( 7) = 0.2341932635324343D-01 - xs( 8) = 0.3030444551149441D-01 - xs( 9) = 0.3771814408220468D-01 - xs( 10) = 0.4558064035387991D-01 - xs( 11) = 0.5382901645054545D-01 - xs( 12) = 0.6241404697335774D-01 - xs( 13) = 0.7129751221527987D-01 - xs( 14) = 0.8045011428580062D-01 - xs( 15) = 0.8984987151917635D-01 - xs( 16) = 0.9948118500108453D-01 - xs( 17) = 0.1093346580282295D+00 - xs( 18) = 0.1194047135313766D+00 - xs( 19) = 0.1296968432756310D+00 - xs( 20) = 0.1402200177920412D+00 - xs( 21) = 0.1508512464072436D+00 - ws( 1) = 0.3776624781612471D-03 - ws( 2) = 0.1713248447997170D-02 - ws( 3) = 0.2984065236629553D-02 - ws( 4) = 0.4113581065029205D-02 - ws( 5) = 0.5084630711536380D-02 - ws( 6) = 0.5903640645339178D-02 - ws( 7) = 0.6589357810642727D-02 - ws( 8) = 0.7164278749694291D-02 - ws( 9) = 0.7649879569637728D-02 - ws( 10) = 0.8064684589643753D-02 - ws( 11) = 0.8423917953554398D-02 - ws( 12) = 0.8739845495347729D-02 - ws( 13) = 0.9022313483873298D-02 - ws( 14) = 0.9279456740952895D-02 - ws( 15) = 0.9518289325205282D-02 - ws( 16) = 0.9744684703004672D-02 - ws( 17) = 0.9967580504107018D-02 - ws( 18) = 0.1019727890162894D-01 - ws( 19) = 0.1044875077969097D-01 - ws( 20) = 0.1093419404423004D-01 - ws( 21) = 0.1188760977498374D-01 - endif - - - if( iquad .eq. 53 ) then - idomain = 53 - rk0r = 0.2000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 20 - err = 0.1689887518894462D-07 - ierq = 0 - xs( 1) = 0.3124837568488564D-03 - xs( 2) = 0.1635816633782795D-02 - xs( 3) = 0.3975094071752803D-02 - xs( 4) = 0.7266637190572804D-02 - xs( 5) = 0.1143044868573331D-01 - xs( 6) = 0.1637957272697039D-01 - xs( 7) = 0.2202740771078509D-01 - xs( 8) = 0.2829267412321080D-01 - xs( 9) = 0.3510217827827566D-01 - xs( 10) = 0.4239189221665804D-01 - xs( 11) = 0.5010695660930552D-01 - xs( 12) = 0.5820114096806214D-01 - xs( 13) = 0.6663604682978783D-01 - xs( 14) = 0.7538012799801204D-01 - xs( 15) = 0.8440836254196257D-01 - xs( 16) = 0.9370119917703636D-01 - xs( 17) = 0.1032402936641514D+00 - xs( 18) = 0.1130232686026957D+00 - xs( 19) = 0.1230023527986842D+00 - xs( 20) = 0.1328349760265689D+00 - ws( 1) = 0.8007010656493695D-03 - ws( 2) = 0.1840018052803056D-02 - ws( 3) = 0.2827726686469293D-02 - ws( 4) = 0.3741870680592249D-02 - ws( 5) = 0.4571136337701765D-02 - ws( 6) = 0.5312595040270940D-02 - ws( 7) = 0.5969483982694126D-02 - ws( 8) = 0.6548837077667376D-02 - ws( 9) = 0.7059506054282531D-02 - ws( 10) = 0.7510808891538942D-02 - ws( 11) = 0.7911708520845946D-02 - ws( 12) = 0.8270423512123027D-02 - ws( 13) = 0.8594623380741788D-02 - ws( 14) = 0.8891039185624871D-02 - ws( 15) = 0.9165536752754409D-02 - ws( 16) = 0.9430300004767026D-02 - ws( 17) = 0.9688255254172193D-02 - ws( 18) = 0.9971779774719502D-02 - ws( 19) = 0.1056597355836524D-01 - ws( 20) = 0.1068505256856012D-01 - endif - - - if( iquad .eq. 54 ) then - idomain = 54 - rk0r = 0.2000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 18 - err = 0.9267552666509979D-07 - ierq = 0 - xs( 1) = 0.1890941632373842D-03 - xs( 2) = 0.1046830014162619D-02 - xs( 3) = 0.2697021722621099D-02 - xs( 4) = 0.5171490031994540D-02 - xs( 5) = 0.8446794213834225D-02 - xs( 6) = 0.1247606278837275D-01 - xs( 7) = 0.1720434137115949D-01 - xs( 8) = 0.2257528123659384D-01 - xs( 9) = 0.2853420514857961D-01 - xs( 10) = 0.3502971181532585D-01 - xs( 11) = 0.4201446170121445D-01 - xs( 12) = 0.4944547630503016D-01 - xs( 13) = 0.5728559927648656D-01 - xs( 14) = 0.6550253775301618D-01 - xs( 15) = 0.7406447413340242D-01 - xs( 16) = 0.8296200053342138D-01 - xs( 17) = 0.9213876036934761D-01 - xs( 18) = 0.1012873177039802D+00 - ws( 1) = 0.4926649015649505D-03 - ws( 2) = 0.1241982561688000D-02 - ws( 3) = 0.2063007279773200D-02 - ws( 4) = 0.2881474160611451D-02 - ws( 5) = 0.3661092832566189D-02 - ws( 6) = 0.4388202532956275D-02 - ws( 7) = 0.5058926742459267D-02 - ws( 8) = 0.5673870996797994D-02 - ws( 9) = 0.6235614455686142D-02 - ws( 10) = 0.6747789364800010D-02 - ws( 11) = 0.7215443281949500D-02 - ws( 12) = 0.7643345998626353D-02 - ws( 13) = 0.8036436905706790D-02 - ws( 14) = 0.8410572945938057D-02 - ws( 15) = 0.8764831651645766D-02 - ws( 16) = 0.9135667269567162D-02 - ws( 17) = 0.9850187677136146D-02 - ws( 18) = 0.1020836986914364D-01 - endif - - - if( iquad .eq. 55 ) then - idomain = 55 - rk0r = 0.2000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 15 - err = 0.7021921720612556D-07 - ierq = 0 - xs( 1) = 0.2297367850099180D-03 - xs( 2) = 0.1206713071070752D-02 - xs( 3) = 0.2948839054994928D-02 - xs( 4) = 0.5431269237359098D-02 - xs( 5) = 0.8620360536153237D-02 - xs( 6) = 0.1247640824181280D-01 - xs( 7) = 0.1695652628489744D-01 - xs( 8) = 0.2201685922800650D-01 - xs( 9) = 0.2761423748338594D-01 - xs( 10) = 0.3370956653949541D-01 - xs( 11) = 0.4026575413451329D-01 - xs( 12) = 0.4724539321586084D-01 - xs( 13) = 0.5463533640429909D-01 - xs( 14) = 0.6235730451178003D-01 - xs( 15) = 0.7012343245336432D-01 - ws( 1) = 0.5892819621075448D-03 - ws( 2) = 0.1362894507903104D-02 - ws( 3) = 0.2117407223477689D-02 - ws( 4) = 0.2842127990743272D-02 - ws( 5) = 0.3529901895267268D-02 - ws( 6) = 0.4176026856782199D-02 - ws( 7) = 0.4778316640885002D-02 - ws( 8) = 0.5338237877598134D-02 - ws( 9) = 0.5857166441150571D-02 - ws( 10) = 0.6338902410370598D-02 - ws( 11) = 0.6801330093401745D-02 - ws( 12) = 0.7234699866551465D-02 - ws( 13) = 0.7695243658441475D-02 - ws( 14) = 0.8495971340572532D-02 - ws( 15) = 0.8876233907522093D-02 - endif - - - if( iquad .eq. 56 ) then - idomain = 56 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 23 - err = 0.3985976172550864D-07 - ierq = 0 - xs( 1) = 0.1644958009230663D-03 - xs( 2) = 0.9035983029333625D-03 - xs( 3) = 0.2357690369333288D-02 - xs( 4) = 0.4661535676679496D-02 - xs( 5) = 0.7896421071613284D-02 - xs( 6) = 0.1206452674964044D-01 - xs( 7) = 0.1710748902598723D-01 - xs( 8) = 0.2293404009407303D-01 - xs( 9) = 0.2944208689817361D-01 - xs( 10) = 0.3653371834104469D-01 - xs( 11) = 0.4412306782092058D-01 - xs( 12) = 0.5213875254995801D-01 - xs( 13) = 0.6052325767950784D-01 - xs( 14) = 0.6923110762160740D-01 - xs( 15) = 0.7822685250720826D-01 - xs( 16) = 0.8748332608228146D-01 - xs( 17) = 0.9698028199277113D-01 - xs( 18) = 0.1067035285296666D+00 - xs( 19) = 0.1166445251223334D+00 - xs( 20) = 0.1268003615975390D+00 - xs( 21) = 0.1371743290883696D+00 - xs( 22) = 0.1477754412565334D+00 - xs( 23) = 0.1586087603720306D+00 - ws( 1) = 0.4266511079445794D-03 - ws( 2) = 0.1072797383721374D-02 - ws( 3) = 0.1859125670883324D-02 - ws( 4) = 0.2762542259373117D-02 - ws( 5) = 0.3707157337775443D-02 - ws( 6) = 0.4618848610158648D-02 - ws( 7) = 0.5451494975565687D-02 - ws( 8) = 0.6184340569606686D-02 - ws( 9) = 0.6815308504548197D-02 - ws( 10) = 0.7353609252709895D-02 - ws( 11) = 0.7813208538821182D-02 - ws( 12) = 0.8208610871561965D-02 - ws( 13) = 0.8552863234724659D-02 - ws( 14) = 0.8856980863684945D-02 - ws( 15) = 0.9130062625152695D-02 - ws( 16) = 0.9379695475021084D-02 - ws( 17) = 0.9612354905802371D-02 - ws( 18) = 0.9834146605787197D-02 - ws( 19) = 0.1005200348287412D-01 - ws( 20) = 0.1027565010350440D-01 - ws( 21) = 0.1052827551231520D-01 - ws( 22) = 0.1090850992027939D-01 - ws( 23) = 0.1227208169879799D-01 - endif - - - if( iquad .eq. 57 ) then - idomain = 57 - rk0r = 0.4000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 23 - err = 0.4460897395753653D-07 - ierq = 0 - xs( 1) = 0.1619866400413873D-03 - xs( 2) = 0.8996027852313152D-03 - xs( 3) = 0.2371673880836726D-02 - xs( 4) = 0.4720193180220120D-02 - xs( 5) = 0.8019472924161119D-02 - xs( 6) = 0.1225600645310886D-01 - xs( 7) = 0.1735828000047243D-01 - xs( 8) = 0.2323006119154612D-01 - xs( 9) = 0.2976990685519558D-01 - xs( 10) = 0.3688256891312233D-01 - xs( 11) = 0.4448496620358960D-01 - xs( 12) = 0.5250798326691806D-01 - xs( 13) = 0.6089578387636730D-01 - xs( 14) = 0.6960409430433560D-01 - xs( 15) = 0.7859832048598835D-01 - xs( 16) = 0.8785192637257498D-01 - xs( 17) = 0.9734514214880452D-01 - xs( 18) = 0.1070641624438765D+00 - xs( 19) = 0.1170008536518941D+00 - xs( 20) = 0.1271526628751571D+00 - xs( 21) = 0.1375233404640555D+00 - xs( 22) = 0.1481239369335254D+00 - xs( 23) = 0.1589594400425155D+00 - ws( 1) = 0.4215336399352057D-03 - ws( 2) = 0.1078552516890833D-02 - ws( 3) = 0.1890504668872992D-02 - ws( 4) = 0.2819284584657980D-02 - ws( 5) = 0.3776350004532076D-02 - ws( 6) = 0.4684225388221000D-02 - ws( 7) = 0.5503980821197710D-02 - ws( 8) = 0.6222487090236945D-02 - ws( 9) = 0.6841232802799507D-02 - ws( 10) = 0.7370219272397066D-02 - ws( 11) = 0.7823072304539902D-02 - ws( 12) = 0.8213689340982457D-02 - ws( 13) = 0.8554572882026984D-02 - ws( 14) = 0.8856332538996410D-02 - ws( 15) = 0.9127778210814343D-02 - ws( 16) = 0.9376316595886156D-02 - ws( 17) = 0.9608321737825309D-02 - ws( 18) = 0.9829804455120689D-02 - ws( 19) = 0.1004770869991103D-01 - ws( 20) = 0.1027209748681139D-01 - ws( 21) = 0.1052539945872883D-01 - ws( 22) = 0.1091010342537663D-01 - ws( 23) = 0.1227606169513123D-01 - endif - - - if( iquad .eq. 58 ) then - idomain = 58 - rk0r = 0.4000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5999999999800001D-01 - n = 25 - err = 0.1132356930938573D-07 - ierq = 0 - xs( 1) = 0.1958846547141799D-03 - xs( 2) = 0.1052848683914684D-02 - xs( 3) = 0.2666484031560385D-02 - xs( 4) = 0.5113068067754321D-02 - xs( 5) = 0.8427657963100701D-02 - xs( 6) = 0.1259040698335579D-01 - xs( 7) = 0.1754351424240176D-01 - xs( 8) = 0.2321072013423749D-01 - xs( 9) = 0.2951006225991656D-01 - xs( 10) = 0.3636194672512702D-01 - xs( 11) = 0.4369405669094392D-01 - xs( 12) = 0.5144367665925100D-01 - xs( 13) = 0.5955811977265080D-01 - xs( 14) = 0.6799405246777244D-01 - xs( 15) = 0.7671635910279315D-01 - xs( 16) = 0.8569693913866000D-01 - xs( 17) = 0.9491364725560820D-01 - xs( 18) = 0.1043494430892669D+00 - xs( 19) = 0.1139917768190453D+00 - xs( 20) = 0.1238323002967295D+00 - xs( 21) = 0.1338668721989081D+00 - xs( 22) = 0.1440954981902771D+00 - xs( 23) = 0.1545236143341837D+00 - xs( 24) = 0.1651570443624879D+00 - xs( 25) = 0.1759570769668224D+00 - ws( 1) = 0.5051861245231101D-03 - ws( 2) = 0.1221303425863181D-02 - ws( 3) = 0.2019611480755664D-02 - ws( 4) = 0.2879600066484756D-02 - ws( 5) = 0.3745898208488284D-02 - ws( 6) = 0.4569630153218333D-02 - ws( 7) = 0.5323671020855785D-02 - ws( 8) = 0.5996948649045466D-02 - ws( 9) = 0.6588389150776833D-02 - ws( 10) = 0.7103290065938597D-02 - ws( 11) = 0.7550472366740277D-02 - ws( 12) = 0.7939999727264091D-02 - ws( 13) = 0.8281685486304162D-02 - ws( 14) = 0.8584350945695511D-02 - ws( 15) = 0.8855604288158942D-02 - ws( 16) = 0.9101902371090582D-02 - ws( 17) = 0.9328741335909146D-02 - ws( 18) = 0.9540921971279865D-02 - ws( 19) = 0.9742854362001514D-02 - ws( 20) = 0.9938902904146512D-02 - ws( 21) = 0.1013473483207493D-01 - ws( 22) = 0.1033903311328862D-01 - ws( 23) = 0.1057221683130547D-01 - ws( 24) = 0.1093068578975510D-01 - ws( 25) = 0.1213602979561376D-01 - endif - - - if( iquad .eq. 59 ) then - idomain = 59 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.9999999999800001D-01 - n = 23 - err = 0.3683648951063390D-07 - ierq = 0 - xs( 1) = 0.2290357407798198D-03 - xs( 2) = 0.1231732715700516D-02 - xs( 3) = 0.3118623202517908D-02 - xs( 4) = 0.5963555722859513D-02 - xs( 5) = 0.9771259212946843D-02 - xs( 6) = 0.1447565404731932D-01 - xs( 7) = 0.1997865958026538D-01 - xs( 8) = 0.2617793233329604D-01 - xs( 9) = 0.3297783214716964D-01 - xs( 10) = 0.4029383480306432D-01 - xs( 11) = 0.4805419859909159D-01 - xs( 12) = 0.5619977752735443D-01 - xs( 13) = 0.6468276497658680D-01 - xs( 14) = 0.7346506583983428D-01 - xs( 15) = 0.8251671776264329D-01 - xs( 16) = 0.9181457256021290D-01 - xs( 17) = 0.1013412900949646D+00 - xs( 18) = 0.1110846834366195D+00 - xs( 19) = 0.1210374060643634D+00 - xs( 20) = 0.1311968123053649D+00 - xs( 21) = 0.1415651444602872D+00 - xs( 22) = 0.1521463103365875D+00 - xs( 23) = 0.1628817310978747D+00 - ws( 1) = 0.5908000426514893D-03 - ws( 2) = 0.1429316458836837D-02 - ws( 3) = 0.2358042516086364D-02 - ws( 4) = 0.3332542129708114D-02 - ws( 5) = 0.4271040182144812D-02 - ws( 6) = 0.5120956655715335D-02 - ws( 7) = 0.5867844542799615D-02 - ws( 8) = 0.6514693133953799D-02 - ws( 9) = 0.7070993060378204D-02 - ws( 10) = 0.7549061145967343D-02 - ws( 11) = 0.7961832973963719D-02 - ws( 12) = 0.8321389072860046D-02 - ws( 13) = 0.8638273964921091D-02 - ws( 14) = 0.8921380608924835D-02 - ws( 15) = 0.9178150142908825D-02 - ws( 16) = 0.9414862278204440D-02 - ws( 17) = 0.9637076698603706D-02 - ws( 18) = 0.9850047096080781D-02 - ws( 19) = 0.1005990081433275D-01 - ws( 20) = 0.1027552013803008D-01 - ws( 21) = 0.1051937190676094D-01 - ws( 22) = 0.1088600430532337D-01 - ws( 23) = 0.1206422189806806D-01 - endif - - - if( iquad .eq. 60 ) then - idomain = 60 - rk0r = 0.4000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999980000D+00 - n = 24 - err = 0.2206134146680401D-07 - ierq = 0 - xs( 1) = 0.2475659153040282D-03 - xs( 2) = 0.1323074485397464D-02 - xs( 3) = 0.3317476409592077D-02 - xs( 4) = 0.6276607887001506D-02 - xs( 5) = 0.1018850189990385D-01 - xs( 6) = 0.1498295939941299D-01 - xs( 7) = 0.2056032157066882D-01 - xs( 8) = 0.2681625610017559D-01 - xs( 9) = 0.3365430808145477D-01 - xs( 10) = 0.4099074547049930D-01 - xs( 11) = 0.4875555815951153D-01 - xs( 12) = 0.5689156764457627D-01 - xs( 13) = 0.6535275803987294D-01 - xs( 14) = 0.7410247280904643D-01 - xs( 15) = 0.8311179594623770D-01 - xs( 16) = 0.9235823740286077D-01 - xs( 17) = 0.1018247639102104D+00 - xs( 18) = 0.1114991569629746D+00 - xs( 19) = 0.1213736828910667D+00 - xs( 20) = 0.1314452152763528D+00 - xs( 21) = 0.1417154682701716D+00 - xs( 22) = 0.1521934363871394D+00 - xs( 23) = 0.1628981866969040D+00 - xs( 24) = 0.1738533276423277D+00 - ws( 1) = 0.6376239835487585D-03 - ws( 2) = 0.1524265672652578D-02 - ws( 3) = 0.2473069670346595D-02 - ws( 4) = 0.3443134683538750D-02 - ws( 5) = 0.4368375587623975D-02 - ws( 6) = 0.5203508772228371D-02 - ws( 7) = 0.5933633413643609D-02 - ws( 8) = 0.6562087777932352D-02 - ws( 9) = 0.7100048444706395D-02 - ws( 10) = 0.7561175537022458D-02 - ws( 11) = 0.7958949844854233D-02 - ws( 12) = 0.8305431788506040D-02 - ws( 13) = 0.8610869616088021D-02 - ws( 14) = 0.8883769979150240D-02 - ws( 15) = 0.9131165793210312D-02 - ws( 16) = 0.9358943566901909D-02 - ws( 17) = 0.9572233936919498D-02 - ws( 18) = 0.9775740179662854D-02 - ws( 19) = 0.9974141963887328D-02 - ws( 20) = 0.1017356922300970D-01 - ws( 21) = 0.1038361177750458D-01 - ws( 22) = 0.1062693894466525D-01 - ws( 23) = 0.1102022155424618D-01 - ws( 24) = 0.1239740228613576D-01 - endif - - - if( iquad .eq. 61 ) then - idomain = 61 - rk0r = 0.4000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5999999999980000D+00 - n = 24 - err = 0.1497610614044548D-07 - ierq = 0 - xs( 1) = 0.2869894199727308D-03 - xs( 2) = 0.1522993100982661D-02 - xs( 3) = 0.3775446063671993D-02 - xs( 4) = 0.7047528875619579D-02 - xs( 5) = 0.1128804633112920D-01 - xs( 6) = 0.1639952136166537D-01 - xs( 7) = 0.2226600568516267D-01 - xs( 8) = 0.2877557982606396D-01 - xs( 9) = 0.3583071585239623D-01 - xs( 10) = 0.4335057511023033D-01 - xs( 11) = 0.5126975528778156D-01 - xs( 12) = 0.5953594781616964D-01 - xs( 13) = 0.6810755258813801D-01 - xs( 14) = 0.7695162179553497D-01 - xs( 15) = 0.8604221833412330D-01 - xs( 16) = 0.9535917492585398D-01 - xs( 17) = 0.1048872066897177D+00 - xs( 18) = 0.1146153192391768D+00 - xs( 19) = 0.1245365401184233D+00 - xs( 20) = 0.1346482220819872D+00 - xs( 21) = 0.1449516862955038D+00 - xs( 22) = 0.1554552114555849D+00 - xs( 23) = 0.1661752041023871D+00 - xs( 24) = 0.1770797954724399D+00 - ws( 1) = 0.7379104240648227D-03 - ws( 2) = 0.1740052369864639D-02 - ws( 3) = 0.2765921093921901D-02 - ws( 4) = 0.3769515172035163D-02 - ws( 5) = 0.4694738747191260D-02 - ws( 6) = 0.5508502105824199D-02 - ws( 7) = 0.6205654655732175D-02 - ws( 8) = 0.6797211858229785D-02 - ws( 9) = 0.7299613478091031D-02 - ws( 10) = 0.7729246035536414D-02 - ws( 11) = 0.8100437075979773D-02 - ws( 12) = 0.8425050205767802D-02 - ws( 13) = 0.8712698383713495D-02 - ws( 14) = 0.8971144544558827D-02 - ws( 15) = 0.9206724706538053D-02 - ws( 16) = 0.9424710863621649D-02 - ws( 17) = 0.9629675449863720D-02 - ws( 18) = 0.9825907964396223D-02 - ws( 19) = 0.1001753863949048D-01 - ws( 20) = 0.1021055514744395D-01 - ws( 21) = 0.1041477726256364D-01 - ws( 22) = 0.1064703335421389D-01 - ws( 23) = 0.1105013522216988D-01 - ws( 24) = 0.1226045284089774D-01 - endif - - - if( iquad .eq. 62 ) then - idomain = 62 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5707963267928966D+00 - n = 22 - err = 0.5429329054508342D-08 - ierq = 0 - xs( 1) = 0.3418822854409552D-03 - xs( 2) = 0.1796469038027576D-02 - xs( 3) = 0.4386995794073182D-02 - xs( 4) = 0.8053010017565218D-02 - xs( 5) = 0.1269586691235858D-01 - xs( 6) = 0.1819420350355067D-01 - xs( 7) = 0.2442385986251022D-01 - xs( 8) = 0.3127182359141326D-01 - xs( 9) = 0.3864219653345143D-01 - xs( 10) = 0.4645677992777934D-01 - xs( 11) = 0.5465315731127923D-01 - xs( 12) = 0.6318206475777295D-01 - xs( 13) = 0.7200488709578547D-01 - xs( 14) = 0.8109158053441867D-01 - xs( 15) = 0.9041906716461580D-01 - xs( 16) = 0.9997006118448973D-01 - xs( 17) = 0.1097323374326784D+00 - xs( 18) = 0.1196984231343365D+00 - xs( 19) = 0.1298645240669327D+00 - xs( 20) = 0.1402330723026617D+00 - xs( 21) = 0.1508054444607896D+00 - xs( 22) = 0.1614714217754313D+00 - ws( 1) = 0.8768976961559474D-03 - ws( 2) = 0.2029146485159173D-02 - ws( 3) = 0.3141831884402757D-02 - ws( 4) = 0.4173462730978962D-02 - ws( 5) = 0.5091664244623843D-02 - ws( 6) = 0.5884081152947160D-02 - ws( 7) = 0.6556304762795851D-02 - ws( 8) = 0.7123637323631873D-02 - ws( 9) = 0.7604112137322187D-02 - ws( 10) = 0.8014699120635547D-02 - ws( 11) = 0.8369890524966197D-02 - ws( 12) = 0.8681532712874286D-02 - ws( 13) = 0.8959159769802811D-02 - ws( 14) = 0.9210464458541812D-02 - ws( 15) = 0.9441827109330557D-02 - ws( 16) = 0.9658748955834942D-02 - ws( 17) = 0.9866141679015549D-02 - ws( 18) = 0.1007072125954139D-01 - ws( 19) = 0.1028064688423438D-01 - ws( 20) = 0.1051386938619647D-01 - ws( 21) = 0.1090637425658941D-01 - ws( 22) = 0.1189194906177293D-01 - endif - - - if( iquad .eq. 63 ) then - idomain = 63 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1570796326792897D+01 - n = 21 - err = 0.7284343064654758D-08 - ierq = 0 - xs( 1) = 0.3860386645411498D-03 - xs( 2) = 0.2012950420022907D-02 - xs( 3) = 0.4859420480526778D-02 - xs( 4) = 0.8807337907048657D-02 - xs( 5) = 0.1371838226853250D-01 - xs( 6) = 0.1945412737169396D-01 - xs( 7) = 0.2588851353254988D-01 - xs( 8) = 0.3291339334712114D-01 - xs( 9) = 0.4043938600166348D-01 - xs( 10) = 0.4839428766052153D-01 - xs( 11) = 0.5672058021460918D-01 - xs( 12) = 0.6537287835207796D-01 - xs( 13) = 0.7431570093158228D-01 - xs( 14) = 0.8352167713081061D-01 - xs( 15) = 0.9297015039214251D-01 - xs( 16) = 0.1026463850724910D+00 - xs( 17) = 0.1125411839189339D+00 - xs( 18) = 0.1226486479106358D+00 - xs( 19) = 0.1329736058754651D+00 - xs( 20) = 0.1435164754809863D+00 - xs( 21) = 0.1540980334090828D+00 - ws( 1) = 0.9882421324053342D-03 - ws( 2) = 0.2253449848758505D-02 - ws( 3) = 0.3419352921698453D-02 - ws( 4) = 0.4453089628347878D-02 - ws( 5) = 0.5345722315204517D-02 - ws( 6) = 0.6104671603864398D-02 - ws( 7) = 0.6746067617207383D-02 - ws( 8) = 0.7288826096664584D-02 - ws( 9) = 0.7751170607017170D-02 - ws( 10) = 0.8149093096242139D-02 - ws( 11) = 0.8495976888171950D-02 - ws( 12) = 0.8802774346844474D-02 - ws( 13) = 0.9078407204223812D-02 - ws( 14) = 0.9330350811289681D-02 - ws( 15) = 0.9564981985472575D-02 - ws( 16) = 0.9787794555544103D-02 - ws( 17) = 0.1000757652092725D-01 - ws( 18) = 0.1023229843655791D-01 - ws( 19) = 0.1047905337813322D-01 - ws( 20) = 0.1095837131722081D-01 - ws( 21) = 0.1169478847794589D-01 - endif - - - if( iquad .eq. 64 ) then - idomain = 64 - rk0r = 0.4000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 20 - err = 0.7887441224436060D-07 - ierq = 0 - xs( 1) = 0.3191779958001902D-03 - xs( 2) = 0.1669864174902083D-02 - xs( 3) = 0.4054055002658829D-02 - xs( 4) = 0.7402800477183964D-02 - xs( 5) = 0.1163125104431056D-01 - xs( 6) = 0.1664873159305066D-01 - xs( 7) = 0.2236615068992240D-01 - xs( 8) = 0.2870084340628818D-01 - xs( 9) = 0.3557909834460490D-01 - xs( 10) = 0.4293692807718157D-01 - xs( 11) = 0.5071977987314560D-01 - xs( 12) = 0.5888178397273861D-01 - xs( 13) = 0.6738482075324856D-01 - xs( 14) = 0.7619760645931216D-01 - xs( 15) = 0.8529545085463104D-01 - xs( 16) = 0.9465925269468450D-01 - xs( 17) = 0.1042717423318143D+00 - xs( 18) = 0.1141336664357530D+00 - xs( 19) = 0.1242076167983004D+00 - xs( 20) = 0.1341610222476100D+00 - ws( 1) = 0.8177334193797506D-03 - ws( 2) = 0.1876995188149165D-02 - ws( 3) = 0.2879667864575976D-02 - ws( 4) = 0.3803515093777487D-02 - ws( 5) = 0.4638149312335409D-02 - ws( 6) = 0.5381882263093420D-02 - ws( 7) = 0.6039138900320097D-02 - ws( 8) = 0.6617953343655232D-02 - ws( 9) = 0.7127901461354794D-02 - ws( 10) = 0.7578704330389678D-02 - ws( 11) = 0.7979449271698320D-02 - ws( 12) = 0.8338346245928822D-02 - ws( 13) = 0.8663018301453912D-02 - ws( 14) = 0.8960079215265761D-02 - ws( 15) = 0.9235565821000071D-02 - ws( 16) = 0.9502401031879026D-02 - ws( 17) = 0.9762883355440611D-02 - ws( 18) = 0.1005118768471463D-01 - ws( 19) = 0.1067211590964889D-01 - ws( 20) = 0.1079080343826801D-01 - endif - - - if( iquad .eq. 65 ) then - idomain = 65 - rk0r = 0.4000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 18 - err = 0.6976929300233203D-07 - ierq = 0 - xs( 1) = 0.2613460872208381D-03 - xs( 2) = 0.1370639505079281D-02 - xs( 3) = 0.3341421237406350D-02 - xs( 4) = 0.6135307058584494D-02 - xs( 5) = 0.9703335728662525D-02 - xs( 6) = 0.1399108104328568D-01 - xs( 7) = 0.1894230552026819D-01 - xs( 8) = 0.2450137390721589D-01 - xs( 9) = 0.3061490650742237D-01 - xs( 10) = 0.3723297777985832D-01 - xs( 11) = 0.4430988652093885D-01 - xs( 12) = 0.5180481738359523D-01 - xs( 13) = 0.5968274216108105D-01 - xs( 14) = 0.6791282114539779D-01 - xs( 15) = 0.7646689457356667D-01 - xs( 16) = 0.8533443336851765D-01 - xs( 17) = 0.9444695570669098D-01 - xs( 18) = 0.1034410491301361D+00 - ws( 1) = 0.6699550762144736D-03 - ws( 2) = 0.1545234545060238D-02 - ws( 3) = 0.2389806770816468D-02 - ws( 4) = 0.3189716474660876D-02 - ws( 5) = 0.3937214989816697D-02 - ws( 6) = 0.4628874642573831D-02 - ws( 7) = 0.5264293078359674D-02 - ws( 8) = 0.5845023410380287D-02 - ws( 9) = 0.6373896654797390D-02 - ws( 10) = 0.6854930775326964D-02 - ws( 11) = 0.7293251749812871D-02 - ws( 12) = 0.7693716444564587D-02 - ws( 13) = 0.8062865164168773D-02 - ws( 14) = 0.8414521372379660D-02 - ws( 15) = 0.8745838742172848D-02 - ws( 16) = 0.9112822934252260D-02 - ws( 17) = 0.9788945888740923D-02 - ws( 18) = 0.9742424792168495D-02 - endif - - - if( iquad .eq. 66 ) then - idomain = 66 - rk0r = 0.4000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 16 - err = 0.1625212299209879D-07 - ierq = 0 - xs( 1) = 0.2049960273839407D-03 - xs( 2) = 0.1078122434768921D-02 - xs( 3) = 0.2640186703729718D-02 - xs( 4) = 0.4876697825831058D-02 - xs( 5) = 0.7766755903713349D-02 - xs( 6) = 0.1128412794930978D-01 - xs( 7) = 0.1539870032643303D-01 - xs( 8) = 0.2007803729530048D-01 - xs( 9) = 0.2528839909566663D-01 - xs( 10) = 0.3099622282775984D-01 - xs( 11) = 0.3717002825743656D-01 - xs( 12) = 0.4377646837075620D-01 - xs( 13) = 0.5078249427523076D-01 - xs( 14) = 0.5816432912358351D-01 - xs( 15) = 0.6581299399453013D-01 - xs( 16) = 0.7330219148649834D-01 - ws( 1) = 0.5259736396844414D-03 - ws( 2) = 0.1219468559369379D-02 - ws( 3) = 0.1902396396266449D-02 - ws( 4) = 0.2567378713438874D-02 - ws( 5) = 0.3208690677227582D-02 - ws( 6) = 0.3821696386114336D-02 - ws( 7) = 0.4403031155461746D-02 - ws( 8) = 0.4951437897987162D-02 - ws( 9) = 0.5467487759747151D-02 - ws( 10) = 0.5950406832429108D-02 - ws( 11) = 0.6405470150615974D-02 - ws( 12) = 0.6842572369176006D-02 - ws( 13) = 0.7250561924602497D-02 - ws( 14) = 0.7702423591699393D-02 - ws( 15) = 0.8408441855038624D-02 - ws( 16) = 0.8038953499321849D-02 - endif - - - if( iquad .eq. 67 ) then - idomain = 67 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999800000D-01 - n = 23 - err = 0.3104211487509390D-07 - ierq = 0 - xs( 1) = 0.1399444657465961D-03 - xs( 2) = 0.7603389252459709D-03 - xs( 3) = 0.1970061314757931D-02 - xs( 4) = 0.3920711152902764D-02 - xs( 5) = 0.6783676198747732D-02 - xs( 6) = 0.1066777156769430D-01 - xs( 7) = 0.1555608323711884D-01 - xs( 8) = 0.2133042642399223D-01 - xs( 9) = 0.2784359912671920D-01 - xs( 10) = 0.3496509650582674D-01 - xs( 11) = 0.4259189636726175D-01 - xs( 12) = 0.5064500879156258D-01 - xs( 13) = 0.5906389258402524D-01 - xs( 14) = 0.6780197004677432D-01 - xs( 15) = 0.7682342645145335D-01 - xs( 16) = 0.8610094255958728D-01 - xs( 17) = 0.9561410362657265D-01 - xs( 18) = 0.1053483925817165D+00 - xs( 19) = 0.1152946230042092D+00 - xs( 20) = 0.1254485502269931D+00 - xs( 21) = 0.1358111429981517D+00 - xs( 22) = 0.1463826290208446D+00 - xs( 23) = 0.1570883668870511D+00 - ws( 1) = 0.3617564420617586D-03 - ws( 2) = 0.8942855048728956D-03 - ws( 3) = 0.1551063259935329D-02 - ws( 4) = 0.2380336036882817D-02 - ws( 5) = 0.3365034012742651D-02 - ws( 6) = 0.4399775568691657D-02 - ws( 7) = 0.5355714146067397D-02 - ws( 8) = 0.6167692553894817D-02 - ws( 9) = 0.6836785173055757D-02 - ws( 10) = 0.7389123342402052D-02 - ws( 11) = 0.7851411149740140D-02 - ws( 12) = 0.8244801295840062D-02 - ws( 13) = 0.8585266362792561D-02 - ws( 14) = 0.8884984886401628D-02 - ws( 15) = 0.9153467359171849D-02 - ws( 16) = 0.9398373416432364D-02 - ws( 17) = 0.9626098020238090D-02 - ws( 18) = 0.9842521992974512D-02 - ws( 19) = 0.1005441821422725D-01 - ws( 20) = 0.1027065782658016D-01 - ws( 21) = 0.1051336640479967D-01 - ws( 22) = 0.1088066144415962D-01 - ws( 23) = 0.1199509227036965D-01 - endif - - - if( iquad .eq. 68 ) then - idomain = 68 - rk0r = 0.1000000000001000D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999800000D-01 - n = 23 - err = 0.2549359997364294D-07 - ierq = 0 - xs( 1) = 0.1454925828324888D-03 - xs( 2) = 0.7897815272056185D-03 - xs( 3) = 0.2043322591889741D-02 - xs( 4) = 0.4058008011718593D-02 - xs( 5) = 0.7000288358705573D-02 - xs( 6) = 0.1096382636031349D-01 - xs( 7) = 0.1591418497360613D-01 - xs( 8) = 0.2172701771748506D-01 - xs( 9) = 0.2825973858881451D-01 - xs( 10) = 0.3538902891957459D-01 - xs( 11) = 0.4301727621386205D-01 - xs( 12) = 0.5106870202373480D-01 - xs( 13) = 0.5948452960940807D-01 - xs( 14) = 0.6821916245992315D-01 - xs( 15) = 0.7723736755246838D-01 - xs( 16) = 0.8651220556590992D-01 - xs( 17) = 0.9602356199532551D-01 - xs( 18) = 0.1057571907892032D+00 - xs( 19) = 0.1157041429364497D+00 - xs( 20) = 0.1258605158625405D+00 - xs( 21) = 0.1362278483044201D+00 - xs( 22) = 0.1468071558752528D+00 - xs( 23) = 0.1575308233852082D+00 - ws( 1) = 0.3760174498508208D-03 - ws( 2) = 0.9279690404859847D-03 - ws( 3) = 0.1605143343622090D-02 - ws( 4) = 0.2453639159182755D-02 - ws( 5) = 0.3447690174743345D-02 - ws( 6) = 0.4472772290882524D-02 - ws( 7) = 0.5405834744127430D-02 - ws( 8) = 0.6195488361981041D-02 - ws( 9) = 0.6849349911493149D-02 - ws( 10) = 0.7393045437608753D-02 - ws( 11) = 0.7850903888673133D-02 - ws( 12) = 0.8242217976281786D-02 - ws( 13) = 0.8581894417853805D-02 - ws( 14) = 0.8881560179747899D-02 - ws( 15) = 0.9150448555043402D-02 - ws( 16) = 0.9396083262652368D-02 - ws( 17) = 0.9624811982850347D-02 - ws( 18) = 0.9842502882026491D-02 - ws( 19) = 0.1005590232713034D-01 - ws( 20) = 0.1027393419409699D-01 - ws( 21) = 0.1051931946658124D-01 - ws( 22) = 0.1088956945317075D-01 - ws( 23) = 0.1202342910309505D-01 - endif - - - if( iquad .eq. 69 ) then - idomain = 69 - rk0r = 0.1000000000001000D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5999999999800001D-01 - n = 24 - err = 0.6664996662711130D-07 - ierq = 0 - xs( 1) = 0.1569067355335069D-03 - xs( 2) = 0.8504808172090679D-03 - xs( 3) = 0.2193635879717798D-02 - xs( 4) = 0.4334123328480682D-02 - xs( 5) = 0.7421108746603479D-02 - xs( 6) = 0.1151792387685983D-01 - xs( 7) = 0.1656353022740727D-01 - xs( 8) = 0.2242445724411254D-01 - xs( 9) = 0.2896277416699199D-01 - xs( 10) = 0.3606491339802884D-01 - xs( 11) = 0.4364286606571197D-01 - xs( 12) = 0.5162835045778495D-01 - xs( 13) = 0.5996777250150023D-01 - xs( 14) = 0.6861884201337627D-01 - xs( 15) = 0.7754825355392250D-01 - xs( 16) = 0.8672999823558622D-01 - xs( 17) = 0.9614413254985790D-01 - xs( 18) = 0.1057759049212946D+00 - xs( 19) = 0.1156151899753846D+00 - xs( 20) = 0.1256563255978490D+00 - xs( 21) = 0.1358980446413840D+00 - xs( 22) = 0.1463450318217769D+00 - xs( 23) = 0.1570054925409294D+00 - xs( 24) = 0.1678490350265009D+00 - ws( 1) = 0.4053850117736771D-03 - ws( 2) = 0.9974276524842987D-03 - ws( 3) = 0.1714384186527666D-02 - ws( 4) = 0.2593163647238825D-02 - ws( 5) = 0.3592169508391706D-02 - ws( 6) = 0.4590137110831579D-02 - ws( 7) = 0.5477560518129875D-02 - ws( 8) = 0.6220888044781731D-02 - ws( 9) = 0.6836851189026187D-02 - ws( 10) = 0.7352870848931208D-02 - ws( 11) = 0.7791738621800163D-02 - ws( 12) = 0.8170353687779651D-02 - ws( 13) = 0.8501482189623284D-02 - ws( 14) = 0.8795141627658484D-02 - ws( 15) = 0.9059390704586421D-02 - ws( 16) = 0.9300844541740207D-02 - ws( 17) = 0.9525143091854637D-02 - ws( 18) = 0.9737228343769996D-02 - ws( 19) = 0.9941802378146932D-02 - ws( 20) = 0.1014491686142145D-01 - ws( 21) = 0.1035516984961686D-01 - ws( 22) = 0.1059473629264053D-01 - ws( 23) = 0.1096765931769351D-01 - ws( 24) = 0.1219874123550015D-01 - endif - - - if( iquad .eq. 70 ) then - idomain = 70 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.9999999999800001D-01 - n = 26 - err = 0.2684226858679528D-07 - ierq = 0 - xs( 1) = 0.1595648771264442D-03 - xs( 2) = 0.8606731146808272D-03 - xs( 3) = 0.2200323649962255D-02 - xs( 4) = 0.4294351092726592D-02 - xs( 5) = 0.7252799860017874D-02 - xs( 6) = 0.1111946126444549D-01 - xs( 7) = 0.1585225584786010D-01 - xs( 8) = 0.2135812047897986D-01 - xs( 9) = 0.2753356802351954D-01 - xs( 10) = 0.3428387566931711D-01 - xs( 11) = 0.4152794365600988D-01 - xs( 12) = 0.4919820513410640D-01 - xs( 13) = 0.5723922599046573D-01 - xs( 14) = 0.6560599673478572D-01 - xs( 15) = 0.7426225194111796D-01 - xs( 16) = 0.8317898146894025D-01 - xs( 17) = 0.9233321183478113D-01 - xs( 18) = 0.1017070535058775D+00 - xs( 19) = 0.1112870413571175D+00 - xs( 20) = 0.1210637478309168D+00 - xs( 21) = 0.1310316313957531D+00 - xs( 22) = 0.1411892381103508D+00 - xs( 23) = 0.1515392799192044D+00 - xs( 24) = 0.1620897242494136D+00 - xs( 25) = 0.1728575597684367D+00 - xs( 26) = 0.1838348634022386D+00 - ws( 1) = 0.4117890653225856D-03 - ws( 2) = 0.1003448559846354D-02 - ws( 3) = 0.1695933288877424D-02 - ws( 4) = 0.2511655169489882D-02 - ws( 5) = 0.3412917212827159D-02 - ws( 6) = 0.4312632660127992D-02 - ws( 7) = 0.5136712545344076D-02 - ws( 8) = 0.5857483082571316D-02 - ws( 9) = 0.6477566759237261D-02 - ws( 10) = 0.7009540256572469D-02 - ws( 11) = 0.7467359706400317D-02 - ws( 12) = 0.7863953517709910D-02 - ws( 13) = 0.8210615347006390D-02 - ws( 14) = 0.8516907957109883D-02 - ws( 15) = 0.8790789968705351D-02 - ws( 16) = 0.9038862497198975D-02 - ws( 17) = 0.9266646803656792D-02 - ws( 18) = 0.9478848203726608D-02 - ws( 19) = 0.9679693645496739D-02 - ws( 20) = 0.9873232316342240D-02 - ws( 21) = 0.1006354477129769D-01 - ws( 22) = 0.1025622948959143D-01 - ws( 23) = 0.1045964639060132D-01 - ws( 24) = 0.1069450263317318D-01 - ws( 25) = 0.1107225164995656D-01 - ws( 26) = 0.1233807780010132D-01 - endif - - - if( iquad .eq. 71 ) then - idomain = 71 - rk0r = 0.1000000000001000D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999980000D+00 - n = 24 - err = 0.4893689363836416D-07 - ierq = 0 - xs( 1) = 0.1376452526195883D-03 - xs( 2) = 0.7809926390402757D-03 - xs( 3) = 0.2098358359774698D-02 - xs( 4) = 0.4251997708302142D-02 - xs( 5) = 0.7377511873266664D-02 - xs( 6) = 0.1152658742020310D-01 - xs( 7) = 0.1663839269552965D-01 - xs( 8) = 0.2258141085912225D-01 - xs( 9) = 0.2921331047913814D-01 - xs( 10) = 0.3641225593331855D-01 - xs( 11) = 0.4408284490498975D-01 - xs( 12) = 0.5215226829190089D-01 - xs( 13) = 0.6056499820692354D-01 - xs( 14) = 0.6927844328743116D-01 - xs( 15) = 0.7825982322865414D-01 - xs( 16) = 0.8748400025997331D-01 - xs( 17) = 0.9693198934759367D-01 - xs( 18) = 0.1065900091096810D+00 - xs( 19) = 0.1164489692386821D+00 - xs( 20) = 0.1265042681269927D+00 - xs( 21) = 0.1367557729092961D+00 - xs( 22) = 0.1472098186506696D+00 - xs( 23) = 0.1578765305892113D+00 - xs( 24) = 0.1687181198160976D+00 - ws( 1) = 0.3607206713502358D-03 - ws( 2) = 0.9528864496074680D-03 - ws( 3) = 0.1709185938834279D-02 - ws( 4) = 0.2621867648759537D-02 - ws( 5) = 0.3638400426155355D-02 - ws( 6) = 0.4648713129030346D-02 - ws( 7) = 0.5551858621657628D-02 - ws( 8) = 0.6309966176469681D-02 - ws( 9) = 0.6933470915180082D-02 - ws( 10) = 0.7448601561036589D-02 - ws( 11) = 0.7880534956385273D-02 - ws( 12) = 0.8249130933893737D-02 - ws( 13) = 0.8569284383590234D-02 - ws( 14) = 0.8852186837080471D-02 - ws( 15) = 0.9106432155710817D-02 - ws( 16) = 0.9338829146486342D-02 - ws( 17) = 0.9555038163655659D-02 - ws( 18) = 0.9760015496777024D-02 - ws( 19) = 0.9958559799228019D-02 - ws( 20) = 0.1015690251002607D-01 - ws( 21) = 0.1036344120804763D-01 - ws( 22) = 0.1060125195017526D-01 - ws( 23) = 0.1098493562562506D-01 - ws( 24) = 0.1216129969955136D-01 - endif - - - if( iquad .eq. 72 ) then - idomain = 72 - rk0r = 0.1000000000001000D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5999999999980000D+00 - n = 24 - err = 0.6833845619790563D-07 - ierq = 0 - xs( 1) = 0.2359546888045510D-03 - xs( 2) = 0.1260914426712483D-02 - xs( 3) = 0.3167199218359071D-02 - xs( 4) = 0.6022778566134989D-02 - xs( 5) = 0.9853294354197951D-02 - xs( 6) = 0.1461468249887200D-01 - xs( 7) = 0.2020774399455956D-01 - xs( 8) = 0.2651273871143247D-01 - xs( 9) = 0.3341600016028116D-01 - xs( 10) = 0.4082133687343561D-01 - xs( 11) = 0.4865159142401411D-01 - xs( 12) = 0.5684624113268633D-01 - xs( 13) = 0.6535816393257135D-01 - xs( 14) = 0.7415073755848943D-01 - xs( 15) = 0.8319555612608395D-01 - xs( 16) = 0.9247073905967007D-01 - xs( 17) = 0.1019597233968953D+00 - xs( 18) = 0.1116504424891930D+00 - xs( 19) = 0.1215348532029429D+00 - xs( 20) = 0.1316088844495712D+00 - xs( 21) = 0.1418714062867123D+00 - xs( 22) = 0.1523263631037770D+00 - xs( 23) = 0.1629723272883986D+00 - xs( 24) = 0.1736365590304936D+00 - ws( 1) = 0.6076409858083154D-03 - ws( 2) = 0.1453272917152670D-02 - ws( 3) = 0.2371552124849302D-02 - ws( 4) = 0.3344400289263224D-02 - ws( 5) = 0.4308967971535752D-02 - ws( 6) = 0.5196620325078091D-02 - ws( 7) = 0.5969092223385083D-02 - ws( 8) = 0.6621780841526511D-02 - ws( 9) = 0.7168698925234173D-02 - ws( 10) = 0.7629161953719352D-02 - ws( 11) = 0.8021316743414832D-02 - ws( 12) = 0.8360179216390292D-02 - ws( 13) = 0.8657603710583864D-02 - ws( 14) = 0.8922845835163121D-02 - ws( 15) = 0.9163190497619272D-02 - ws( 16) = 0.9384493342520634D-02 - ws( 17) = 0.9591653958825417D-02 - ws( 18) = 0.9789037726117724D-02 - ws( 19) = 0.9980721836209974D-02 - ws( 20) = 0.1017250645429244D-01 - ws( 21) = 0.1037206720631698D-01 - ws( 22) = 0.1059740015440968D-01 - ws( 23) = 0.1098000971447549D-01 - ws( 24) = 0.1170945528792369D-01 - endif - - - if( iquad .eq. 73 ) then - idomain = 73 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5707963267928966D+00 - n = 23 - err = 0.2834634424704682D-07 - ierq = 0 - xs( 1) = 0.3202116556750014D-03 - xs( 2) = 0.1689459843894578D-02 - xs( 3) = 0.4153296351949465D-02 - xs( 4) = 0.7686105318112090D-02 - xs( 5) = 0.1221755961583825D-01 - xs( 6) = 0.1763852234693842D-01 - xs( 7) = 0.2382306797077802D-01 - xs( 8) = 0.3064971481544345D-01 - xs( 9) = 0.3801314256407343D-01 - xs( 10) = 0.4582739475998213D-01 - xs( 11) = 0.5402451722352637D-01 - xs( 12) = 0.6255161599690821D-01 - xs( 13) = 0.7136782412230779D-01 - xs( 14) = 0.8044172684626079D-01 - xs( 15) = 0.8974936550531312D-01 - xs( 16) = 0.9927278236650983D-01 - xs( 17) = 0.1089989992571578D+00 - xs( 18) = 0.1189194318555406D+00 - xs( 19) = 0.1290297614734811D+00 - xs( 20) = 0.1393290558448741D+00 - xs( 21) = 0.1498226384486943D+00 - xs( 22) = 0.1605156994161008D+00 - xs( 23) = 0.1712702339560388D+00 - ws( 1) = 0.8221201166448940D-03 - ws( 2) = 0.1917611082676046D-02 - ws( 3) = 0.3006101963687922D-02 - ws( 4) = 0.4047675136974972D-02 - ws( 5) = 0.4996626664776708D-02 - ws( 6) = 0.5823937547484359D-02 - ws( 7) = 0.6524717397223116D-02 - ws( 8) = 0.7110980411848444D-02 - ws( 9) = 0.7601578937448674D-02 - ws( 10) = 0.8015652512208747D-02 - ws( 11) = 0.8369829786132502D-02 - ws( 12) = 0.8677602562085550D-02 - ws( 13) = 0.8949619285501715D-02 - ws( 14) = 0.9194243180124037D-02 - ws( 15) = 0.9418119141441646D-02 - ws( 16) = 0.9626731205823358D-02 - ws( 17) = 0.9824859949960008D-02 - ws( 18) = 0.1001683691875338D-01 - ws( 19) = 0.1020882378990350D-01 - ws( 20) = 0.1040924608797049D-01 - ws( 21) = 0.1063634580177363D-01 - ws( 22) = 0.1102965907707038D-01 - ws( 23) = 0.1187474594963352D-01 - endif - - - if( iquad .eq. 74 ) then - idomain = 74 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1570796326792897D+01 - n = 22 - err = 0.7955675120481615D-08 - ierq = 0 - xs( 1) = 0.3388583715281035D-03 - xs( 2) = 0.1775271313085447D-02 - xs( 3) = 0.4317918424021011D-02 - xs( 4) = 0.7897386213423894D-02 - xs( 5) = 0.1241950846639456D-01 - xs( 6) = 0.1777670118754833D-01 - xs( 7) = 0.2385972365892893D-01 - xs( 8) = 0.3056662306333566D-01 - xs( 9) = 0.3780767547370644D-01 - xs( 10) = 0.4550697940361337D-01 - xs( 11) = 0.5360196765574405D-01 - xs( 12) = 0.6204193286733480D-01 - xs( 13) = 0.7078627098717362D-01 - xs( 14) = 0.7980281805109679D-01 - xs( 15) = 0.8906641611492842D-01 - xs( 16) = 0.9855773691982046D-01 - xs( 17) = 0.1082624879185930D+00 - xs( 18) = 0.1181706771934041D+00 - xs( 19) = 0.1282741074169774D+00 - xs( 20) = 0.1385715488789501D+00 - xs( 21) = 0.1490326961618704D+00 - xs( 22) = 0.1593146754068182D+00 - ws( 1) = 0.8684658515591328D-03 - ws( 2) = 0.1998551757006856D-02 - ws( 3) = 0.3075025673973478D-02 - ws( 4) = 0.4068019831567523D-02 - ws( 5) = 0.4958088806220385D-02 - ws( 6) = 0.5737938315658358D-02 - ws( 7) = 0.6411034306396332D-02 - ws( 8) = 0.6987787440031508D-02 - ws( 9) = 0.7481678713274240D-02 - ws( 10) = 0.7906529565632193D-02 - ws( 11) = 0.8275030331904437D-02 - ws( 12) = 0.8598175609919691D-02 - ws( 13) = 0.8885206848813403D-02 - ws( 14) = 0.9143806936406533D-02 - ws( 15) = 0.9380472206110451D-02 - ws( 16) = 0.9600722437325007D-02 - ws( 17) = 0.9809373416466984D-02 - ws( 18) = 0.1001397881839593D-01 - ws( 19) = 0.1021948207994825D-01 - ws( 20) = 0.1044845407176049D-01 - ws( 21) = 0.1088397675285782D-01 - ws( 22) = 0.1086227201954308D-01 - endif - - - if( iquad .eq. 75 ) then - idomain = 75 - rk0r = 0.1000000000001000D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 21 - err = 0.1611335314161287D-07 - ierq = 0 - xs( 1) = 0.3014621408743480D-03 - xs( 2) = 0.1578743320949911D-02 - xs( 3) = 0.3839124217440683D-02 - xs( 4) = 0.7025030979692205D-02 - xs( 5) = 0.1106388997698575D-01 - xs( 6) = 0.1587625034258677D-01 - xs( 7) = 0.2138211731039035D-01 - xs( 8) = 0.2750538450480265D-01 - xs( 9) = 0.3417647161074174D-01 - xs( 10) = 0.4133355057283457D-01 - xs( 11) = 0.4892281882596040D-01 - xs( 12) = 0.5689820834962443D-01 - xs( 13) = 0.6522083378536794D-01 - xs( 14) = 0.7385822933455272D-01 - xs( 15) = 0.8278366112147313D-01 - xs( 16) = 0.9197580020224512D-01 - xs( 17) = 0.1014169890937387D+00 - xs( 18) = 0.1110912206489633D+00 - xs( 19) = 0.1209943638324727D+00 - xs( 20) = 0.1310479446857745D+00 - xs( 21) = 0.1408316671694781D+00 - ws( 1) = 0.7725300228258173D-03 - ws( 2) = 0.1776698455051904D-02 - ws( 3) = 0.2734290335695561D-02 - ws( 4) = 0.3625292932610123D-02 - ws( 5) = 0.4439076516096341D-02 - ws( 6) = 0.5172237217757975D-02 - ws( 7) = 0.5826768218573654D-02 - ws( 8) = 0.6408149924831889D-02 - ws( 9) = 0.6923716374615620D-02 - ws( 10) = 0.7381485128247265D-02 - ws( 11) = 0.7789413043598976D-02 - ws( 12) = 0.8154975534634738D-02 - ws( 13) = 0.8485037711894915D-02 - ws( 14) = 0.8785940529858503D-02 - ws( 15) = 0.9063086118250893D-02 - ws( 16) = 0.9322296222332296D-02 - ws( 17) = 0.9573896194054361D-02 - ws( 18) = 0.9817231719044339D-02 - ws( 19) = 0.1010480214981846D-01 - ws( 20) = 0.1067198342752510D-01 - ws( 21) = 0.9995832273055349D-02 - endif - - - if( iquad .eq. 76 ) then - idomain = 76 - rk0r = 0.1000000000001000D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 19 - err = 0.1523003394100713D-07 - ierq = 0 - xs( 1) = 0.2491503208227362D-03 - xs( 2) = 0.1307335988056703D-02 - xs( 3) = 0.3190014739904590D-02 - xs( 4) = 0.5864324648410638D-02 - xs( 5) = 0.9287461109361813D-02 - xs( 6) = 0.1341072799906051D-01 - xs( 7) = 0.1818271275336789D-01 - xs( 8) = 0.2355174170066877D-01 - xs( 9) = 0.2946772278010138D-01 - xs( 10) = 0.3588354900272578D-01 - xs( 11) = 0.4275599206579259D-01 - xs( 12) = 0.5004600896842518D-01 - xs( 13) = 0.5771895826516522D-01 - xs( 14) = 0.6574478245835499D-01 - xs( 15) = 0.7409495890557873D-01 - xs( 16) = 0.8274224507530881D-01 - xs( 17) = 0.9166804736701925D-01 - xs( 18) = 0.1007361016302760D+00 - xs( 19) = 0.1094966951642145D+00 - ws( 1) = 0.6387571953883552D-03 - ws( 2) = 0.1474824122363675D-02 - ws( 3) = 0.2284950368207119D-02 - ws( 4) = 0.3056465149380180D-02 - ws( 5) = 0.3781638892441327D-02 - ws( 6) = 0.4456295314691361D-02 - ws( 7) = 0.5079048224247823D-02 - ws( 8) = 0.5650679162841461D-02 - ws( 9) = 0.6173562273418731D-02 - ws( 10) = 0.6651123462708578D-02 - ws( 11) = 0.7087746795463393D-02 - ws( 12) = 0.7488233923376311D-02 - ws( 13) = 0.7856562681284368D-02 - ws( 14) = 0.8199100716290703D-02 - ws( 15) = 0.8526752862446531D-02 - ws( 16) = 0.8832056487570128D-02 - ws( 17) = 0.9200379325114675D-02 - ws( 18) = 0.9753496453000138D-02 - ws( 19) = 0.8437551331056134D-02 - endif - - - if( iquad .eq. 77 ) then - idomain = 77 - rk0r = 0.1000000000001000D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 17 - err = 0.1182900111758562D-07 - ierq = 0 - xs( 1) = 0.1421038374477961D-03 - xs( 2) = 0.8046122302731622D-03 - xs( 3) = 0.2108672586842341D-02 - xs( 4) = 0.4089331919419706D-02 - xs( 5) = 0.6737473665685380D-02 - xs( 6) = 0.1002731646584051D-01 - xs( 7) = 0.1392650126574049D-01 - xs( 8) = 0.1840040250776078D-01 - xs( 9) = 0.2341401019628127D-01 - xs( 10) = 0.2893272192962715D-01 - xs( 11) = 0.3492319084562698D-01 - xs( 12) = 0.4135342298476507D-01 - xs( 13) = 0.4818824964346356D-01 - xs( 14) = 0.5539453074099546D-01 - xs( 15) = 0.6293351974243935D-01 - xs( 16) = 0.7062445502419352D-01 - xs( 17) = 0.7807035492861621D-01 - ws( 1) = 0.3731392598474709D-03 - ws( 2) = 0.9715100433840338D-03 - ws( 3) = 0.1641605995893264D-02 - ws( 4) = 0.2317958531364534D-02 - ws( 5) = 0.2974206807540340D-02 - ws( 6) = 0.3600536321283362D-02 - ws( 7) = 0.4192895140607729D-02 - ws( 8) = 0.4750142124501290D-02 - ws( 9) = 0.5273328798685156D-02 - ws( 10) = 0.5763596220572632D-02 - ws( 11) = 0.6221782540412343D-02 - ws( 12) = 0.6654637487585203D-02 - ws( 13) = 0.7068018861573318D-02 - ws( 14) = 0.7453320772130709D-02 - ws( 15) = 0.7923399623501817D-02 - ws( 16) = 0.8418997275788093D-02 - ws( 17) = 0.6739810897642044D-02 - endif - - - if( iquad .eq. 78 ) then - idomain = 78 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999800000D-01 - n = 26 - err = 0.5632379248130720D-07 - ierq = 0 - xs( 1) = 0.7239565339628558D-04 - xs( 2) = 0.3894037297203545D-03 - xs( 3) = 0.9939722797201284D-03 - xs( 4) = 0.1951986399125901D-02 - xs( 5) = 0.3373035026025106D-02 - xs( 6) = 0.5420021422173919D-02 - xs( 7) = 0.8299183607792414D-02 - xs( 8) = 0.1219798620271225D-01 - xs( 9) = 0.1717802628304357D-01 - xs( 10) = 0.2313664968711049D-01 - xs( 11) = 0.2989262658735333D-01 - xs( 12) = 0.3727632775587499D-01 - xs( 13) = 0.4515831370382588D-01 - xs( 14) = 0.5344537883045884D-01 - xs( 15) = 0.6207091173911095D-01 - xs( 16) = 0.7098711520875990D-01 - xs( 17) = 0.8015959357944882D-01 - xs( 18) = 0.8956372405044941D-01 - xs( 19) = 0.9918219764438613D-01 - xs( 20) = 0.1090035461798976D+00 - xs( 21) = 0.1190217980365798D+00 - xs( 22) = 0.1292367606375958D+00 - xs( 23) = 0.1396535155126834D+00 - xs( 24) = 0.1502869784722319D+00 - xs( 25) = 0.1611727607111456D+00 - xs( 26) = 0.1726764804640872D+00 - ws( 1) = 0.1866816499841245D-03 - ws( 2) = 0.4528409599377554D-03 - ws( 3) = 0.7670794242737069D-03 - ws( 4) = 0.1167015815389463D-02 - ws( 5) = 0.1702303030405693D-02 - ws( 6) = 0.2427035977184489D-02 - ws( 7) = 0.3364667142997199D-02 - ws( 8) = 0.4444096296551459D-02 - ws( 9) = 0.5496963952413086D-02 - ws( 10) = 0.6388441627319583D-02 - ws( 11) = 0.7094885956451392D-02 - ws( 12) = 0.7651070189560237D-02 - ws( 13) = 0.8097540045879800D-02 - ws( 14) = 0.8465618046039130D-02 - ws( 15) = 0.8777570394874510D-02 - ws( 16) = 0.9049162395094169D-02 - ws( 17) = 0.9291743489279150D-02 - ws( 18) = 0.9513679659726675D-02 - ws( 19) = 0.9721406425459583D-02 - ws( 20) = 0.9920579348868482D-02 - ws( 21) = 0.1011643039011004D-01 - ws( 22) = 0.1031607286224846D-01 - ws( 23) = 0.1052954719057419D-01 - ws( 24) = 0.1076105909900511D-01 - ws( 25) = 0.1111985558130378D-01 - ws( 26) = 0.1446544657799726D-01 - endif - - - if( iquad .eq. 79 ) then - idomain = 79 - rk0r = 0.1570796326795897D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999800000D-01 - n = 26 - err = 0.5156324705126093D-07 - ierq = 0 - xs( 1) = 0.7461863662788897D-04 - xs( 2) = 0.4012517967033681D-03 - xs( 3) = 0.1023663488024362D-02 - xs( 4) = 0.2008500782835587D-02 - xs( 5) = 0.3465921401525604D-02 - xs( 6) = 0.5558079650769341D-02 - xs( 7) = 0.8487241796422348D-02 - xs( 8) = 0.1243299057877150D-01 - xs( 9) = 0.1744968974500156D-01 - xs( 10) = 0.2343375997450275D-01 - xs( 11) = 0.3020698853036503D-01 - xs( 12) = 0.3760234252365005D-01 - xs( 13) = 0.4549175953605918D-01 - xs( 14) = 0.5378276148711914D-01 - xs( 15) = 0.6240919822467437D-01 - xs( 16) = 0.7132360384249016D-01 - xs( 17) = 0.8049183411262710D-01 - xs( 18) = 0.8988945365160621D-01 - xs( 19) = 0.9949928184755126D-01 - xs( 20) = 0.1093098581273716D+00 - xs( 21) = 0.1193150196039939D+00 - xs( 22) = 0.1295140064993260D+00 - xs( 23) = 0.1399113951623123D+00 - xs( 24) = 0.1505202803900046D+00 - xs( 25) = 0.1613660098431762D+00 - xs( 26) = 0.1726277633188872D+00 - ws( 1) = 0.1924021720345328D-03 - ws( 2) = 0.4664611001022589D-03 - ws( 3) = 0.7892787717385094D-03 - ws( 4) = 0.1198575377511477D-02 - ws( 5) = 0.1743398051632003D-02 - ws( 6) = 0.2475648559597255D-02 - ws( 7) = 0.3414659682967814D-02 - ws( 8) = 0.4486652484990799D-02 - ws( 9) = 0.5527644184133786D-02 - ws( 10) = 0.6409243296843204D-02 - ws( 11) = 0.7109023421079628D-02 - ws( 12) = 0.7660455544356426D-02 - ws( 13) = 0.8103132219587807D-02 - ws( 14) = 0.8467974637351267D-02 - ws( 15) = 0.8777076911460549D-02 - ws( 16) = 0.9046105891375432D-02 - ws( 17) = 0.9286336879422714D-02 - ws( 18) = 0.9506096630217222D-02 - ws( 19) = 0.9711755390138913D-02 - ws( 20) = 0.9908731392118394D-02 - ws( 21) = 0.1010231416802553D-01 - ws( 22) = 0.1029950810993381D-01 - ws( 23) = 0.1050925082358234D-01 - ws( 24) = 0.1074679702431670D-01 - ws( 25) = 0.1112620200629503D-01 - ws( 26) = 0.1334008298059605D-01 - endif - - - if( iquad .eq. 80 ) then - idomain = 80 - rk0r = 0.1570796326795897D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5999999999800001D-01 - n = 27 - err = 0.6642453708413551D-07 - ierq = 0 - xs( 1) = 0.7578300912772955D-04 - xs( 2) = 0.4071875014579311D-03 - xs( 3) = 0.1037053054459910D-02 - xs( 4) = 0.2028797935790793D-02 - xs( 5) = 0.3484938893149059D-02 - xs( 6) = 0.5552547863709971D-02 - xs( 7) = 0.8410915900768676D-02 - xs( 8) = 0.1221943371183669D-01 - xs( 9) = 0.1703578153572832D-01 - xs( 10) = 0.2278409515462683D-01 - xs( 11) = 0.2931398830592559D-01 - xs( 12) = 0.3647335281237435D-01 - xs( 13) = 0.4413919109912517D-01 - xs( 14) = 0.5221938437237277D-01 - xs( 15) = 0.6064626818567490D-01 - xs( 16) = 0.6937018195973678D-01 - xs( 17) = 0.7835456280174780D-01 - xs( 18) = 0.8757245843162149D-01 - xs( 19) = 0.9700411455660149D-01 - xs( 20) = 0.1066353644419329D+00 - xs( 21) = 0.1164566405456946D+00 - xs( 22) = 0.1264624691494516D+00 - xs( 23) = 0.1366512405588157D+00 - xs( 24) = 0.1470248962764006D+00 - xs( 25) = 0.1575946771991057D+00 - xs( 26) = 0.1683690273584096D+00 - xs( 27) = 0.1792441480532404D+00 - ws( 1) = 0.1953705280261661D-03 - ws( 2) = 0.4728762036557623D-03 - ws( 3) = 0.7972707021094898D-03 - ws( 4) = 0.1203181270701684D-02 - ws( 5) = 0.1733751298867539D-02 - ws( 6) = 0.2432205933510464D-02 - ws( 7) = 0.3312703015120866D-02 - ws( 8) = 0.4314646637366758D-02 - ws( 9) = 0.5304123884229008D-02 - ws( 10) = 0.6166089156181272D-02 - ws( 11) = 0.6867900117574449D-02 - ws( 12) = 0.7430352503764917D-02 - ws( 13) = 0.7886093431631760D-02 - ws( 14) = 0.8263125703005027D-02 - ws( 15) = 0.8582447061239829D-02 - ws( 16) = 0.8859344293112109D-02 - ws( 17) = 0.9104972172923151D-02 - ws( 18) = 0.9327575889402315D-02 - ws( 19) = 0.9533428648757525D-02 - ws( 20) = 0.9727632317108832D-02 - ws( 21) = 0.9914517469126114D-02 - ws( 22) = 0.1009794065731519D-01 - ws( 23) = 0.1028474859032332D-01 - ws( 24) = 0.1048007869510505D-01 - ws( 25) = 0.1071210493596086D-01 - ws( 26) = 0.1109794728716047D-01 - ws( 27) = 0.1199012258114378D-01 - endif - - - if( iquad .eq. 81 ) then - idomain = 81 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.9999999999800001D-01 - n = 29 - err = 0.2221763925389106D-07 - ierq = 0 - xs( 1) = 0.7904729639192441D-04 - xs( 2) = 0.4238187256488939D-03 - xs( 3) = 0.1075106054886444D-02 - xs( 4) = 0.2090568083311903D-02 - xs( 5) = 0.3561611388889570D-02 - xs( 6) = 0.5616590232260517D-02 - xs( 7) = 0.8409273449371151D-02 - xs( 8) = 0.1207699277297129D-01 - xs( 9) = 0.1667738669614801D-01 - xs( 10) = 0.2215961425720062D-01 - xs( 11) = 0.2840256390586804D-01 - xs( 12) = 0.3527268855649334D-01 - xs( 13) = 0.4265545189338368D-01 - xs( 14) = 0.5046171950579083D-01 - xs( 15) = 0.5862424142805912D-01 - xs( 16) = 0.6709250507721029D-01 - xs( 17) = 0.7582839822432494D-01 - xs( 18) = 0.8480298901491480D-01 - xs( 19) = 0.9399423519744533D-01 - xs( 20) = 0.1033853907516578D+00 - xs( 21) = 0.1129639231141672D+00 - xs( 22) = 0.1227208156192079D+00 - xs( 23) = 0.1326502320357948D+00 - xs( 24) = 0.1427494649808444D+00 - xs( 25) = 0.1530194204669147D+00 - xs( 26) = 0.1634631609734106D+00 - xs( 27) = 0.1740909646886066D+00 - xs( 28) = 0.1849183465623409D+00 - xs( 29) = 0.1958532180635392D+00 - ws( 1) = 0.2036857471430674D-03 - ws( 2) = 0.4909029516146623D-03 - ws( 3) = 0.8211631499577164D-03 - ws( 4) = 0.1224915704814388D-02 - ws( 5) = 0.1738706804585509D-02 - ws( 6) = 0.2397576140583349D-02 - ws( 7) = 0.3211902507645015D-02 - ws( 8) = 0.4133745435343407D-02 - ws( 9) = 0.5057756848139873D-02 - ws( 10) = 0.5885423403184554D-02 - ws( 11) = 0.6577720932684287D-02 - ws( 12) = 0.7143374883025378D-02 - ws( 13) = 0.7607372400381177D-02 - ws( 14) = 0.7994044527656261D-02 - ws( 15) = 0.8322653065075512D-02 - ws( 16) = 0.8607575379535675D-02 - ws( 17) = 0.8859427379484792D-02 - ws( 18) = 0.9086108367507492D-02 - ws( 19) = 0.9293615393830546D-02 - ws( 20) = 0.9486637979317026D-02 - ws( 21) = 0.9668973819940608D-02 - ws( 22) = 0.9843957479217839D-02 - ws( 23) = 0.1001488042078583D-01 - ws( 24) = 0.1018495222284907D-01 - ws( 25) = 0.1035972457686044D-01 - ws( 26) = 0.1054567291553904D-01 - ws( 27) = 0.1076181356602231D-01 - ws( 28) = 0.1114703829849993D-01 - ws( 29) = 0.1208582141292755D-01 - endif - - - if( iquad .eq. 82 ) then - idomain = 82 - rk0r = 0.1570796326795897D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999980000D+00 - n = 29 - err = 0.1287159767093966D-07 - ierq = 0 - xs( 1) = 0.8175962035973496D-04 - xs( 2) = 0.4390587662639565D-03 - xs( 3) = 0.1115756089739284D-02 - xs( 4) = 0.2171210218748942D-02 - xs( 5) = 0.3694089668551503D-02 - xs( 6) = 0.5802738118610718D-02 - xs( 7) = 0.8633328752788983D-02 - xs( 8) = 0.1230483189724498D-01 - xs( 9) = 0.1686984629592502D-01 - xs( 10) = 0.2229151024279723D-01 - xs( 11) = 0.2846926373666388D-01 - xs( 12) = 0.3528352630500901D-01 - xs( 13) = 0.4262505476977255D-01 - xs( 14) = 0.5040469488553220D-01 - xs( 15) = 0.5855294272530184D-01 - xs( 16) = 0.6701646539035731D-01 - xs( 17) = 0.7575449824616910D-01 - xs( 18) = 0.8473589599012590D-01 - xs( 19) = 0.9393689409564784D-01 - xs( 20) = 0.1033394626075788D+00 - xs( 21) = 0.1129301311297704D+00 - xs( 22) = 0.1226991885071780D+00 - xs( 23) = 0.1326401600579067D+00 - xs( 24) = 0.1427495390508365D+00 - xs( 25) = 0.1530272079595188D+00 - xs( 26) = 0.1634746712343872D+00 - xs( 27) = 0.1740995340018790D+00 - xs( 28) = 0.1849044740609455D+00 - xs( 29) = 0.1957234003918917D+00 - ws( 1) = 0.2107652333540952D-03 - ws( 2) = 0.5093874718907864D-03 - ws( 3) = 0.8538407289177421D-03 - ws( 4) = 0.1271816295408369D-02 - ws( 5) = 0.1793828429968840D-02 - ws( 6) = 0.2446756999523222D-02 - ws( 7) = 0.3235194520128681D-02 - ws( 8) = 0.4117042729595438D-02 - ws( 9) = 0.5006307029404113D-02 - ws( 10) = 0.5819420199216707D-02 - ws( 11) = 0.6515669895040070D-02 - ws( 12) = 0.7094514189868970D-02 - ws( 13) = 0.7573707784212288D-02 - ws( 14) = 0.7974052387938340D-02 - ws( 15) = 0.8313615920477213D-02 - ws( 16) = 0.8606684628077147D-02 - ws( 17) = 0.8864228444321894D-02 - ws( 18) = 0.9094635564804514D-02 - ws( 19) = 0.9304380522203639D-02 - ws( 20) = 0.9498547159578936D-02 - ws( 21) = 0.9681230455011201D-02 - ws( 22) = 0.9855934009508458D-02 - ws( 23) = 0.1002595263130633D-01 - ws( 24) = 0.1019408204422240D-01 - ws( 25) = 0.1036612647357677D-01 - ws( 26) = 0.1054759524047082D-01 - ws( 27) = 0.1075475314110633D-01 - ws( 28) = 0.1112397936566468D-01 - ws( 29) = 0.1182518741083477D-01 - endif - - - if( iquad .eq. 83 ) then - idomain = 83 - rk0r = 0.1570796326795897D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5999999999980000D+00 - n = 28 - err = 0.5388121222548560D-07 - ierq = 0 - xs( 1) = 0.1201868951492775D-03 - xs( 2) = 0.6426716339539047D-03 - xs( 3) = 0.1621479249283811D-02 - xs( 4) = 0.3124049460669196D-02 - xs( 5) = 0.5244933720831793D-02 - xs( 6) = 0.8092244252705008D-02 - xs( 7) = 0.1175801126212245D-01 - xs( 8) = 0.1628232220895873D-01 - xs( 9) = 0.2163660663205707D-01 - xs( 10) = 0.2773887177998770D-01 - xs( 11) = 0.3448478338486682D-01 - xs( 12) = 0.4177260110168461D-01 - xs( 13) = 0.4951490267195146D-01 - xs( 14) = 0.5764098966225298D-01 - xs( 15) = 0.6609519838561526D-01 - xs( 16) = 0.7483416085220373D-01 - xs( 17) = 0.8382423568966815D-01 - xs( 18) = 0.9303943817053476D-01 - xs( 19) = 0.1024598740422456D+00 - xs( 20) = 0.1120706018369715D+00 - xs( 21) = 0.1218608507367137D+00 - xs( 22) = 0.1318235170400686D+00 - xs( 23) = 0.1419549702663031D+00 - xs( 24) = 0.1522552357531198D+00 - xs( 25) = 0.1627272184257660D+00 - xs( 26) = 0.1733812705571362D+00 - xs( 27) = 0.1842237634819846D+00 - xs( 28) = 0.1950624171309059D+00 - ws( 1) = 0.3095077581079815D-03 - ws( 2) = 0.7418872789515417D-03 - ws( 3) = 0.1226983198433307D-02 - ws( 4) = 0.1794124195207728D-02 - ws( 5) = 0.2466177078179720D-02 - ws( 6) = 0.3244456197207627D-02 - ws( 7) = 0.4094078337255244D-02 - ws( 8) = 0.4949474662871665D-02 - ws( 9) = 0.5744848527068106D-02 - ws( 10) = 0.6441864427008679D-02 - ws( 11) = 0.7032820430542878D-02 - ws( 12) = 0.7528217970176114D-02 - ws( 13) = 0.7944637148317977D-02 - ws( 14) = 0.8298307771304617D-02 - ws( 15) = 0.8602925424021437D-02 - ws( 16) = 0.8869428117776709D-02 - ws( 17) = 0.9106418738689826D-02 - ws( 18) = 0.9320695995928881D-02 - ws( 19) = 0.9517721457177379D-02 - ws( 20) = 0.9701995310245131D-02 - ws( 21) = 0.9877469781512844D-02 - ws( 22) = 0.1004781250527565D-01 - ws( 23) = 0.1021642793399469D-01 - ws( 24) = 0.1038972733532476D-01 - ws( 25) = 0.1057431843229650D-01 - ws( 26) = 0.1078927329828406D-01 - ws( 27) = 0.1119413172488238D-01 - ws( 28) = 0.1172878669568672D-01 - endif - - - if( iquad .eq. 84 ) then - idomain = 84 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5707963267928966D+00 - n = 25 - err = 0.4429812579226249D-07 - ierq = 0 - xs( 1) = 0.1934553490685684D-03 - xs( 2) = 0.1029863150581517D-02 - xs( 3) = 0.2575503969623286D-02 - xs( 4) = 0.4890742287580688D-02 - xs( 5) = 0.8037416463908294D-02 - xs( 6) = 0.1205238327536751D-01 - xs( 7) = 0.1692626058854473D-01 - xs( 8) = 0.2260133058176311D-01 - xs( 9) = 0.2898816495141239D-01 - xs( 10) = 0.3598761471666732D-01 - xs( 11) = 0.4350671157810931D-01 - xs( 12) = 0.5146593661227081D-01 - xs( 13) = 0.5980054258700669D-01 - xs( 14) = 0.6845911259231510D-01 - xs( 15) = 0.7740132663894696D-01 - xs( 16) = 0.8659581681071234D-01 - xs( 17) = 0.9601840552937646D-01 - xs( 18) = 0.1056507632987129D+00 - xs( 19) = 0.1154793982368952D+00 - xs( 20) = 0.1254950101700180D+00 - xs( 21) = 0.1356920142688586D+00 - xs( 22) = 0.1460669917253445D+00 - xs( 23) = 0.1566227227239044D+00 - xs( 24) = 0.1673415594364215D+00 - xs( 25) = 0.1779154845491539D+00 - ws( 1) = 0.4976922661628153D-03 - ws( 2) = 0.1182194970655212D-02 - ws( 3) = 0.1919449802581094D-02 - ws( 4) = 0.2721810883730665D-02 - ws( 5) = 0.3578076293711233D-02 - ws( 6) = 0.4450326511539467D-02 - ws( 7) = 0.5287491273332573D-02 - ws( 8) = 0.6047347568961689D-02 - ws( 9) = 0.6709527733471822D-02 - ws( 10) = 0.7273764430212051D-02 - ws( 11) = 0.7751162294980211D-02 - ws( 12) = 0.8156525522651326D-02 - ws( 13) = 0.8504157178755075D-02 - ws( 14) = 0.8806302025593141D-02 - ws( 15) = 0.9072937025397737D-02 - ws( 16) = 0.9312061379270903D-02 - ws( 17) = 0.9530134514229979D-02 - ws( 18) = 0.9732529628970614D-02 - ws( 19) = 0.9923826720728675D-02 - ws( 20) = 0.1010810280947444D-01 - ws( 21) = 0.1029147894270922D-01 - ws( 22) = 0.1048009140388928D-01 - ws( 23) = 0.1069425984557492D-01 - ws( 24) = 0.1108549844442057D-01 - ws( 25) = 0.1112330813015461D-01 - endif - - - if( iquad .eq. 85 ) then - idomain = 85 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1570796326792897D+01 - n = 25 - err = 0.3710303660133977D-07 - ierq = 0 - xs( 1) = 0.1319390028708354D-03 - xs( 2) = 0.8424924734842319D-03 - xs( 3) = 0.2348363899583102D-02 - xs( 4) = 0.4701436779998229D-02 - xs( 5) = 0.7905499964061915D-02 - xs( 6) = 0.1194037084664263D-01 - xs( 7) = 0.1676325816167359D-01 - xs( 8) = 0.2231268782172026D-01 - xs( 9) = 0.2851603368759732D-01 - xs( 10) = 0.3529770745915912D-01 - xs( 11) = 0.4258558482595402D-01 - xs( 12) = 0.5031483770201677D-01 - xs( 13) = 0.5842951232861993D-01 - xs( 14) = 0.6688261460157471D-01 - xs( 15) = 0.7563540521968454D-01 - xs( 16) = 0.8465638566407639D-01 - xs( 17) = 0.9392026830327802D-01 - xs( 18) = 0.1034070215998326D+00 - xs( 19) = 0.1131010202164915D+00 - xs( 20) = 0.1229905409214591D+00 - xs( 21) = 0.1330667908712997D+00 - xs( 22) = 0.1433206266784009D+00 - xs( 23) = 0.1537509461530758D+00 - xs( 24) = 0.1642971095928284D+00 - xs( 25) = 0.1745219167824722D+00 - ws( 1) = 0.3642555120789965D-03 - ws( 2) = 0.1091674827936861D-02 - ws( 3) = 0.1926607997714231D-02 - ws( 4) = 0.2780007072467412D-02 - ws( 5) = 0.3624765564882442D-02 - ws( 6) = 0.4437776797662429D-02 - ws( 7) = 0.5197618145356758D-02 - ws( 8) = 0.5888994189290553D-02 - ws( 9) = 0.6504990625875155D-02 - ws( 10) = 0.7046273413707844D-02 - ws( 11) = 0.7518652454026483D-02 - ws( 12) = 0.7930528991769006D-02 - ws( 13) = 0.8291003448420700D-02 - ws( 14) = 0.8608767336582036D-02 - ws( 15) = 0.8891599845931032D-02 - ws( 16) = 0.9146212097410147D-02 - ws( 17) = 0.9378318445314383D-02 - ws( 18) = 0.9592905466356046D-02 - ws( 19) = 0.9794170426364343D-02 - ws( 20) = 0.9985725826663240D-02 - ws( 21) = 0.1017506408753737D-01 - ws( 22) = 0.1036272773616776D-01 - ws( 23) = 0.1057339202693230D-01 - ws( 24) = 0.1099358612396579D-01 - ws( 25) = 0.1012500653560899D-01 - endif - - - if( iquad .eq. 86 ) then - idomain = 86 - rk0r = 0.1570796326795897D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 21 - err = 0.2327349370627135D-07 - ierq = 0 - xs( 1) = 0.2776081169284655D-03 - xs( 2) = 0.1455879015133394D-02 - xs( 3) = 0.3548825721937405D-02 - xs( 4) = 0.6514375913092635D-02 - xs( 5) = 0.1029756138641939D-01 - xs( 6) = 0.1483570922231568D-01 - xs( 7) = 0.2006285099806814D-01 - xs( 8) = 0.2591329213628563D-01 - xs( 9) = 0.3232423947876650D-01 - xs( 10) = 0.3923753330123540D-01 - xs( 11) = 0.4660062276108368D-01 - xs( 12) = 0.5436693838009233D-01 - xs( 13) = 0.6249575055988023D-01 - xs( 14) = 0.7095165980474021D-01 - xs( 15) = 0.7970420601400374D-01 - xs( 16) = 0.8872654255934312D-01 - xs( 17) = 0.9799132142258404D-01 - xs( 18) = 0.1074744125555994D+00 - xs( 19) = 0.1171342434613844D+00 - xs( 20) = 0.1267450639542007D+00 - xs( 21) = 0.1359353856666329D+00 - ws( 1) = 0.7116437854550740D-03 - ws( 2) = 0.1641243464696571D-02 - ws( 3) = 0.2537524667333274D-02 - ws( 4) = 0.3384329477922437D-02 - ws( 5) = 0.4171520000820016D-02 - ws( 6) = 0.4893719609999848D-02 - ws( 7) = 0.5549568071720142D-02 - ws( 8) = 0.6140809244584034D-02 - ws( 9) = 0.6671359453972190D-02 - ws( 10) = 0.7146463336361827D-02 - ws( 11) = 0.7571980122920567D-02 - ws( 12) = 0.7953935520648941D-02 - ws( 13) = 0.8298277364992617D-02 - ws( 14) = 0.8610136377321796D-02 - ws( 15) = 0.8894185054085254D-02 - ws( 16) = 0.9158450593453136D-02 - ws( 17) = 0.9405835774634519D-02 - ws( 18) = 0.9632228879655005D-02 - ws( 19) = 0.9956216256506277D-02 - ws( 20) = 0.1005518531324903D-01 - ws( 21) = 0.7201154967032560D-02 - endif - - - if( iquad .eq. 87 ) then - idomain = 87 - rk0r = 0.1570796326795897D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 20 - err = 0.1931222948755542D-07 - ierq = 0 - xs( 1) = 0.0000000000000000D+00 - xs( 2) = 0.5978468860201948D-03 - xs( 3) = 0.1993912787846497D-02 - xs( 4) = 0.4160234175605922D-02 - xs( 5) = 0.7063132077032522D-02 - xs( 6) = 0.1066213136074984D-01 - xs( 7) = 0.1491270614102474D-01 - xs( 8) = 0.1976857193530222D-01 - xs( 9) = 0.2518344627870947D-01 - xs( 10) = 0.3111238743438776D-01 - xs( 11) = 0.3751269610047406D-01 - xs( 12) = 0.4434433878247564D-01 - xs( 13) = 0.5157012924793683D-01 - xs( 14) = 0.5915546105077466D-01 - xs( 15) = 0.6706609310003561D-01 - xs( 16) = 0.7526574325242374D-01 - xs( 17) = 0.8371406194248490D-01 - xs( 18) = 0.9231035211751899D-01 - xs( 19) = 0.1008240323184169D+00 - xs( 20) = 0.1090459672104403D+00 - ws( 1) = 0.1632177589166175D-03 - ws( 2) = 0.1001905498727147D-02 - ws( 3) = 0.1786108235731671D-02 - ws( 4) = 0.2540884496344431D-02 - ws( 5) = 0.3258109391030698D-02 - ws( 6) = 0.3932402938146000D-02 - ws( 7) = 0.4560948473590725D-02 - ws( 8) = 0.5142956373697080D-02 - ws( 9) = 0.5679140826253832D-02 - ws( 10) = 0.6171344473395667D-02 - ws( 11) = 0.6622411174995090D-02 - ws( 12) = 0.7035815247762792D-02 - ws( 13) = 0.7415094584517110D-02 - ws( 14) = 0.7765912425506295D-02 - ws( 15) = 0.8096079373327181D-02 - ws( 16) = 0.8405013704785970D-02 - ws( 17) = 0.8712950181606696D-02 - ws( 18) = 0.9004255026210106D-02 - ws( 19) = 0.8405458337622070D-02 - ws( 20) = 0.4983060047614141D-02 - endif - - - if( iquad .eq. 88 ) then - idomain = 88 - rk0r = 0.1570796326795897D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 18 - err = 0.1550743654258189D-07 - ierq = 0 - xs( 1) = 0.1529237352687516D-03 - xs( 2) = 0.8283956724560468D-03 - xs( 3) = 0.2100367256298481D-02 - xs( 4) = 0.3998423565995756D-02 - xs( 5) = 0.6521891029604113D-02 - xs( 6) = 0.9652648936695506D-02 - xs( 7) = 0.1336396168707630D-01 - xs( 8) = 0.1762519148532155D-01 - xs( 9) = 0.2240406868237534D-01 - xs( 10) = 0.2766774974946865D-01 - xs( 11) = 0.3338390043856540D-01 - xs( 12) = 0.3951966334356141D-01 - xs( 13) = 0.4603818310340597D-01 - xs( 14) = 0.5289910369465583D-01 - xs( 15) = 0.6004366857757829D-01 - xs( 16) = 0.6733101118935750D-01 - xs( 17) = 0.7457197662320930D-01 - xs( 18) = 0.8165791608953110D-01 - ws( 1) = 0.3953343234722036D-03 - ws( 2) = 0.9656323828619208D-03 - ws( 3) = 0.1582975317989498D-02 - ws( 4) = 0.2212633364834136D-02 - ws( 5) = 0.2830826499669804D-02 - ws( 6) = 0.3425671338321423D-02 - ws( 7) = 0.3991174093339868D-02 - ws( 8) = 0.4524515907038205D-02 - ws( 9) = 0.5025579141380323D-02 - ws( 10) = 0.5495224380435816D-02 - ws( 11) = 0.5936390440972737D-02 - ws( 12) = 0.6360242020180151D-02 - ws( 13) = 0.6778240129543295D-02 - ws( 14) = 0.7197459083112516D-02 - ws( 15) = 0.7656770750049251D-02 - ws( 16) = 0.7947460248204643D-02 - ws( 17) = 0.6923142917410081D-02 - ws( 18) = 0.3541731049982255D-02 - endif - - - if( iquad .eq. 89 ) then - idomain = 89 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 30 - err = 0.9383864628341432D-07 - ierq = 0 - xs( 1) = 0.2897836772532139D-04 - xs( 2) = 0.1540883669935626D-03 - xs( 3) = 0.3851009912723310D-03 - xs( 4) = 0.7330772880316381D-03 - xs( 5) = 0.1215912206427297D-02 - xs( 6) = 0.1860845954694234D-02 - xs( 7) = 0.2708307525188608D-02 - xs( 8) = 0.3817755089172211D-02 - xs( 9) = 0.5276235997172237D-02 - xs( 10) = 0.7209716966902595D-02 - xs( 11) = 0.9793853921372579D-02 - xs( 12) = 0.1325059775921657D-01 - xs( 13) = 0.1779876284519421D-01 - xs( 14) = 0.2353622948778874D-01 - xs( 15) = 0.3035085903340996D-01 - xs( 16) = 0.3799996919652269D-01 - xs( 17) = 0.4625228408149443D-01 - xs( 18) = 0.5494470360639352D-01 - xs( 19) = 0.6397383862327889D-01 - xs( 20) = 0.7327498087246237D-01 - xs( 21) = 0.8280660863724992D-01 - xs( 22) = 0.9254125289917323D-01 - xs( 23) = 0.1024603729780349D+00 - xs( 24) = 0.1125516020923480D+00 - xs( 25) = 0.1228074165372949D+00 - xs( 26) = 0.1332231787364607D+00 - xs( 27) = 0.1437970407835012D+00 - xs( 28) = 0.1545310184108744D+00 - xs( 29) = 0.1654018839467527D+00 - xs( 30) = 0.1761216531533690D+00 - ws( 1) = 0.7452605791922448D-04 - ws( 2) = 0.1766915496960297D-03 - ws( 3) = 0.2871485780334660D-03 - ws( 4) = 0.4117460163553411D-03 - ws( 5) = 0.5584013552910253D-03 - ws( 6) = 0.7381089016623310D-03 - ws( 7) = 0.9665822513601893D-03 - ws( 8) = 0.1266626699680033D-02 - ws( 9) = 0.1671122346737772D-02 - ws( 10) = 0.2225094293317135D-02 - ws( 11) = 0.2980883725093191D-02 - ws( 12) = 0.3971244806692067D-02 - ws( 13) = 0.5143479510266940D-02 - ws( 14) = 0.6310992793964131D-02 - ws( 15) = 0.7275003436859675D-02 - ws( 16) = 0.7983881263406411D-02 - ws( 17) = 0.8493843763709027D-02 - ws( 18) = 0.8874144007694507D-02 - ws( 19) = 0.9173596433839162D-02 - ws( 20) = 0.9421915088746452D-02 - ws( 21) = 0.9636845537147824D-02 - ws( 22) = 0.9829435809901733D-02 - ws( 23) = 0.1000697029546102D-01 - ws( 24) = 0.1017467640677645D-01 - ws( 25) = 0.1033732671750757D-01 - ws( 26) = 0.1050070019629557D-01 - ws( 27) = 0.1066673981156270D-01 - ws( 28) = 0.1086881497279949D-01 - ws( 29) = 0.1123730768576098D-01 - ws( 30) = 0.1112802673903739D-01 - endif - - - if( iquad .eq. 90 ) then - idomain = 90 - rk0r = 0.3141592653590793D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 30 - err = 0.7691021736581908D-07 - ierq = 0 - xs( 1) = 0.3000306359718152D-04 - xs( 2) = 0.1595335251421457D-03 - xs( 3) = 0.3986915587180424D-03 - xs( 4) = 0.7588897176189966D-03 - xs( 5) = 0.1258574764002164D-02 - xs( 6) = 0.1925795508889989D-02 - xs( 7) = 0.2802119891977341D-02 - xs( 8) = 0.3948554143954897D-02 - xs( 9) = 0.5454130335978425D-02 - xs( 10) = 0.7447017924744640D-02 - xs( 11) = 0.1010425119688805D-01 - xs( 12) = 0.1364523106488913D-01 - xs( 13) = 0.1827701117584129D-01 - xs( 14) = 0.2407807668391251D-01 - xs( 15) = 0.3092670502755926D-01 - xs( 16) = 0.3858779534414654D-01 - xs( 17) = 0.4684208343188831D-01 - xs( 18) = 0.5553436713526490D-01 - xs( 19) = 0.6456496378661984D-01 - xs( 20) = 0.7387053234871799D-01 - xs( 21) = 0.8340984431967284D-01 - xs( 22) = 0.9315526750813177D-01 - xs( 23) = 0.1030879051561959D+00 - xs( 24) = 0.1131948890159246D+00 - xs( 25) = 0.1234680497686214D+00 - xs( 26) = 0.1339020194359735D+00 - xs( 27) = 0.1444935250530225D+00 - xs( 28) = 0.1552426191962352D+00 - xs( 29) = 0.1661207900522734D+00 - xs( 30) = 0.1768323247600069D+00 - ws( 1) = 0.7716097730455167D-04 - ws( 2) = 0.1829302693739357D-03 - ws( 3) = 0.2972585371087455D-03 - ws( 4) = 0.4261708229355453D-03 - ws( 5) = 0.5778103240684847D-03 - ws( 6) = 0.7634623371009370D-03 - ws( 7) = 0.9992116180321071D-03 - ws( 8) = 0.1308303946814830D-02 - ws( 9) = 0.1724017075538566D-02 - ws( 10) = 0.2291290445603946D-02 - ws( 11) = 0.3060560443902473D-02 - ws( 12) = 0.4058111281197264D-02 - ws( 13) = 0.5220217312457143D-02 - ws( 14) = 0.6359698176618947D-02 - ws( 15) = 0.7295871724087992D-02 - ws( 16) = 0.7989110273883047D-02 - ws( 17) = 0.8493858996203228D-02 - ws( 18) = 0.8874440005998446D-02 - ws( 19) = 0.9176431477615998D-02 - ws( 20) = 0.9427974497600985D-02 - ws( 21) = 0.9646125949983686D-02 - ws( 22) = 0.9841648781517500D-02 - ws( 23) = 0.1002170187515066D-01 - ws( 24) = 0.1019136735961466D-01 - ws( 25) = 0.1035513046837603D-01 - ws( 26) = 0.1051892708487070D-01 - ws( 27) = 0.1068338460687602D-01 - ws( 28) = 0.1087701091797272D-01 - ws( 29) = 0.1124219795070532D-01 - ws( 30) = 0.1107018972887898D-01 - endif - - - if( iquad .eq. 91 ) then - idomain = 91 - rk0r = 0.3141592653590793D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 34 - err = 0.1410995771684983D-07 - ierq = 0 - xs( 1) = 0.2799687450324112D-04 - xs( 2) = 0.1487567702873563D-03 - xs( 3) = 0.3712148161759048D-03 - xs( 4) = 0.7048781922052750D-03 - xs( 5) = 0.1164700517793362D-02 - xs( 6) = 0.1772717114846257D-02 - xs( 7) = 0.2560466131009223D-02 - xs( 8) = 0.3572507302281661D-02 - xs( 9) = 0.4871313446100471D-02 - xs( 10) = 0.6543485417629814D-02 - xs( 11) = 0.8705988362082048D-02 - xs( 12) = 0.1150769936670443D-01 - xs( 13) = 0.1511510910289173D-01 - xs( 14) = 0.1966741410485492D-01 - xs( 15) = 0.2520896280536554D-01 - xs( 16) = 0.3165836076656481D-01 - xs( 17) = 0.3885618977391115D-01 - xs( 18) = 0.4663818929574379D-01 - xs( 19) = 0.5487360831813286D-01 - xs( 20) = 0.6346924143064214D-01 - xs( 21) = 0.7236079867223007D-01 - xs( 22) = 0.8150371232053498D-01 - xs( 23) = 0.9086649203730075D-01 - xs( 24) = 0.1004264622682292D+00 - xs( 25) = 0.1101671323931884D+00 - xs( 26) = 0.1200766006384311D+00 - xs( 27) = 0.1301465549753002D+00 - xs( 28) = 0.1403716774029541D+00 - xs( 29) = 0.1507494727172949D+00 - xs( 30) = 0.1612798325931244D+00 - xs( 31) = 0.1719639760147580D+00 - xs( 32) = 0.1828097166743020D+00 - xs( 33) = 0.1938006095548253D+00 - xs( 34) = 0.2046567309944455D+00 - ws( 1) = 0.7198964577389072D-04 - ws( 2) = 0.1704139792792293D-03 - ws( 3) = 0.2760668456642021D-03 - ws( 4) = 0.3937257985810607D-03 - ws( 5) = 0.5295517675271184D-03 - ws( 6) = 0.6916798899493436D-03 - ws( 7) = 0.8911634407183674D-03 - ws( 8) = 0.1143225172642226D-02 - ws( 9) = 0.1468706949395194D-02 - ws( 10) = 0.1895079295641211D-02 - ws( 11) = 0.2454933193893953D-02 - ws( 12) = 0.3176980717064545D-02 - ws( 13) = 0.4062335308246291D-02 - ws( 14) = 0.5050344286165861D-02 - ws( 15) = 0.6018197298501732D-02 - ws( 16) = 0.6852635315822659D-02 - ws( 17) = 0.7515038824079116D-02 - ws( 18) = 0.8027163286145072D-02 - ws( 19) = 0.8428310511213002D-02 - ws( 20) = 0.8752398897507962D-02 - ws( 21) = 0.9023397379396272D-02 - ws( 22) = 0.9257251045122190D-02 - ws( 23) = 0.9464572275448165D-02 - ws( 24) = 0.9652652342512977D-02 - ws( 25) = 0.9826738896844300D-02 - ws( 26) = 0.9990849183849000D-02 - ws( 27) = 0.1014831516242633D-01 - ws( 28) = 0.1030204785794818D-01 - ws( 29) = 0.1045467796780851D-01 - ws( 30) = 0.1061156177650463D-01 - ws( 31) = 0.1077592169509228D-01 - ws( 32) = 0.1096623783618308D-01 - ws( 33) = 0.1132986971957913D-01 - ws( 34) = 0.1134614015659638D-01 - endif - - - if( iquad .eq. 92 ) then - idomain = 92 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 33 - err = 0.8717641899354633D-07 - ierq = 0 - xs( 1) = 0.3318959765984834D-04 - xs( 2) = 0.1763931727024746D-03 - xs( 3) = 0.4403981171371887D-03 - xs( 4) = 0.8368976380472048D-03 - xs( 5) = 0.1384399188974596D-02 - xs( 6) = 0.2110374609432419D-02 - xs( 7) = 0.3054452670561153D-02 - xs( 8) = 0.4273038250736709D-02 - xs( 9) = 0.5845579172793689D-02 - xs( 10) = 0.7881847318581140D-02 - xs( 11) = 0.1052671175630766D-01 - xs( 12) = 0.1395200594115606D-01 - xs( 13) = 0.1831718344021566D-01 - xs( 14) = 0.2369583179112738D-01 - xs( 15) = 0.3002562571435799D-01 - xs( 16) = 0.3714652252159679D-01 - xs( 17) = 0.4488292574747244D-01 - xs( 18) = 0.5309257457640171D-01 - xs( 19) = 0.6167422956255935D-01 - xs( 20) = 0.7055874454130724D-01 - xs( 21) = 0.7969876469313300D-01 - xs( 22) = 0.8906120309403288D-01 - xs( 23) = 0.9862243421080674D-01 - xs( 24) = 0.1083653584903127D+00 - xs( 25) = 0.1182776320736099D+00 - xs( 26) = 0.1283505967712715D+00 - xs( 27) = 0.1385786303590083D+00 - xs( 28) = 0.1489589329531948D+00 - xs( 29) = 0.1594909686602017D+00 - xs( 30) = 0.1701757977178724D+00 - xs( 31) = 0.1810202880632454D+00 - xs( 32) = 0.1920111575890398D+00 - xs( 33) = 0.2028454481516465D+00 - ws( 1) = 0.8534698837319037D-04 - ws( 2) = 0.2021393456507755D-03 - ws( 3) = 0.3277938173324186D-03 - ws( 4) = 0.4682550804224105D-03 - ws( 5) = 0.6312743637764312D-03 - ws( 6) = 0.8272050395981151D-03 - ws( 7) = 0.1070246655808204D-02 - ws( 8) = 0.1380037772744179D-02 - ws( 9) = 0.1783237030707006D-02 - ws( 10) = 0.2313529666263042D-02 - ws( 11) = 0.3005457327566506D-02 - ws( 12) = 0.3873081059918462D-02 - ws( 13) = 0.4870618881459651D-02 - ws( 14) = 0.5875486180498234D-02 - ws( 15) = 0.6755819142676308D-02 - ws( 16) = 0.7455909964936560D-02 - ws( 17) = 0.7993132936725430D-02 - ws( 18) = 0.8409473899462373D-02 - ws( 19) = 0.8742490160819277D-02 - ws( 20) = 0.9018771539127125D-02 - ws( 21) = 0.9255832129982230D-02 - ws( 22) = 0.9465155009722791D-02 - ws( 23) = 0.9654491950598270D-02 - ws( 24) = 0.9829330847354970D-02 - ws( 25) = 0.9993802470739414D-02 - ws( 26) = 0.1015132380584141D-01 - ws( 27) = 0.1030479810687919D-01 - ws( 28) = 0.1045690775244889D-01 - ws( 29) = 0.1061298449904553D-01 - ws( 30) = 0.1077480640431654D-01 - ws( 31) = 0.1096713441425170D-01 - ws( 32) = 0.1133560398545517D-01 - ws( 33) = 0.1127840124579740D-01 - endif - - - if( iquad .eq. 93 ) then - idomain = 93 - rk0r = 0.3141592653590793D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 35 - err = 0.2482481819635442D-07 - ierq = 0 - xs( 1) = 0.3724526777154332D-04 - xs( 2) = 0.1977744052132385D-03 - xs( 3) = 0.4929837440037930D-03 - xs( 4) = 0.9345623078855874D-03 - xs( 5) = 0.1540809519193412D-02 - xs( 6) = 0.2338475023858214D-02 - xs( 7) = 0.3365345161945305D-02 - xs( 8) = 0.4673748565296233D-02 - xs( 9) = 0.6334884484926115D-02 - xs( 10) = 0.8443045408810265D-02 - xs( 11) = 0.1111664222725935D-01 - xs( 12) = 0.1448898131644911D-01 - xs( 13) = 0.1867951194586552D-01 - xs( 14) = 0.2374831524015228D-01 - xs( 15) = 0.2966553061868911D-01 - xs( 16) = 0.3632782486004874D-01 - xs( 17) = 0.4360523178342714D-01 - xs( 18) = 0.5137848706657672D-01 - xs( 19) = 0.5955314001961518D-01 - xs( 20) = 0.6805902201074321D-01 - xs( 21) = 0.7684497222340950D-01 - xs( 22) = 0.8587354299545094D-01 - xs( 23) = 0.9511697177247092D-01 - xs( 24) = 0.1045544041124659D+00 - xs( 25) = 0.1141700496886647D+00 - xs( 26) = 0.1239519747263470D+00 - xs( 27) = 0.1338913211584308D+00 - xs( 28) = 0.1439817842106937D+00 - xs( 29) = 0.1542192957393170D+00 - xs( 30) = 0.1646018548031746D+00 - xs( 31) = 0.1751292385518592D+00 - xs( 32) = 0.1858010613306681D+00 - xs( 33) = 0.1966218956987686D+00 - xs( 34) = 0.2075546724096317D+00 - xs( 35) = 0.2182520576754294D+00 - ws( 1) = 0.9575666363557374D-04 - ws( 2) = 0.2263966916133335D-03 - ws( 3) = 0.3659464470968697D-03 - ws( 4) = 0.5202307953522643D-03 - ws( 5) = 0.6966792062190306D-03 - ws( 6) = 0.9048910741787708D-03 - ws( 7) = 0.1157496800614002D-02 - ws( 8) = 0.1471099719982259D-02 - ws( 9) = 0.1866853847256300D-02 - ws( 10) = 0.2369329440173425D-02 - ws( 11) = 0.3000555486985446D-02 - ws( 12) = 0.3764875829143057D-02 - ws( 13) = 0.4626819132732507D-02 - ws( 14) = 0.5505477895073732D-02 - ws( 15) = 0.6310827119729579D-02 - ws( 16) = 0.6991453380426977D-02 - ws( 17) = 0.7543278583208843D-02 - ws( 18) = 0.7987524042444700D-02 - ws( 19) = 0.8350185005872110D-02 - ws( 20) = 0.8653142609446421D-02 - ws( 21) = 0.8912583311521319D-02 - ws( 22) = 0.9139976787746841D-02 - ws( 23) = 0.9343435502151384D-02 - ws( 24) = 0.9528817888855977D-02 - ws( 25) = 0.9700502658180080D-02 - ws( 26) = 0.9861894930378439D-02 - ws( 27) = 0.1001578643319178D-01 - ws( 28) = 0.1016461146308389D-01 - ws( 29) = 0.1031058535700913D-01 - ws( 30) = 0.1045556417496236D-01 - ws( 31) = 0.1060448078986237D-01 - ws( 32) = 0.1075799730642483D-01 - ws( 33) = 0.1093920857285367D-01 - ws( 34) = 0.1126870055709565D-01 - ws( 35) = 0.1087988721035680D-01 - endif - - - if( iquad .eq. 94 ) then - idomain = 94 - rk0r = 0.3141592653590793D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 34 - err = 0.7323066230863565D-07 - ierq = 0 - xs( 1) = 0.4896084900311146D-04 - xs( 2) = 0.2599974196746060D-03 - xs( 3) = 0.6480583114655996D-03 - xs( 4) = 0.1228148723665883D-02 - xs( 5) = 0.2023157410890064D-02 - xs( 6) = 0.3065565018814740D-02 - xs( 7) = 0.4399706181295377D-02 - xs( 8) = 0.6084445880667823D-02 - xs( 9) = 0.8195633904936883D-02 - xs( 10) = 0.1082658135900972D-01 - xs( 11) = 0.1408251539179938D-01 - xs( 12) = 0.1806298711222945D-01 - xs( 13) = 0.2283201823585881D-01 - xs( 14) = 0.2839256764821542D-01 - xs( 15) = 0.3468670375917499D-01 - xs( 16) = 0.4162030843910106D-01 - xs( 17) = 0.4909181445493498D-01 - xs( 18) = 0.5701023242496029D-01 - xs( 19) = 0.6530149371316887D-01 - xs( 20) = 0.7390805811111811D-01 - xs( 21) = 0.8278607145014757D-01 - xs( 22) = 0.9190226194628587D-01 - xs( 23) = 0.1012313493520405D+00 - xs( 24) = 0.1107540985236039D+00 - xs( 25) = 0.1204559276934081D+00 - xs( 26) = 0.1303259537887034D+00 - xs( 27) = 0.1403563224678426D+00 - xs( 28) = 0.1505418244202597D+00 - xs( 29) = 0.1608797604812434D+00 - xs( 30) = 0.1713692398591751D+00 - xs( 31) = 0.1820099355538816D+00 - xs( 32) = 0.1928079562335344D+00 - xs( 33) = 0.2037121673648073D+00 - xs( 34) = 0.2143324679475556D+00 - ws( 1) = 0.1258793574261420D-03 - ws( 2) = 0.2976328442498543D-03 - ws( 3) = 0.4809665384984449D-03 - ws( 4) = 0.6830012934012592D-03 - ws( 5) = 0.9123914825024587D-03 - ws( 6) = 0.1179766952841030D-02 - ws( 7) = 0.1498281648567629D-02 - ws( 8) = 0.1883822235643240D-02 - ws( 9) = 0.2354181018694036D-02 - ws( 10) = 0.2925536913887292D-02 - ws( 11) = 0.3603464646338389D-02 - ws( 12) = 0.4368642575470370D-02 - ws( 13) = 0.5169904189795574D-02 - ws( 14) = 0.5941064460994392D-02 - ws( 15) = 0.6631005242693178D-02 - ws( 16) = 0.7218978238875113D-02 - ws( 17) = 0.7708777606178684D-02 - ws( 18) = 0.8115730546982048D-02 - ws( 19) = 0.8457254195570607D-02 - ws( 20) = 0.8748618938062669D-02 - ws( 21) = 0.9001906183084590D-02 - ws( 22) = 0.9226294412612914D-02 - ws( 23) = 0.9428699348310587D-02 - ws( 24) = 0.9614393413173435D-02 - ws( 25) = 0.9787484365836761D-02 - ws( 26) = 0.9951308818857328D-02 - ws( 27) = 0.1010875073712838D-01 - ws( 28) = 0.1026240148197302D-01 - ws( 29) = 0.1041465744434963D-01 - ws( 30) = 0.1057088911529184D-01 - ws( 31) = 0.1073250192822082D-01 - ws( 32) = 0.1092283802787716D-01 - ws( 33) = 0.1127804816421284D-01 - ws( 34) = 0.1049356317215855D-01 - endif - - - if( iquad .eq. 95 ) then - idomain = 95 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 30 - err = 0.8699769547375502D-07 - ierq = 0 - xs( 1) = 0.8766392198743970D-04 - xs( 2) = 0.4655565812168514D-03 - xs( 3) = 0.1160623203429236D-02 - xs( 4) = 0.2200166970807819D-02 - xs( 5) = 0.3625718878678505D-02 - xs( 6) = 0.5494966150829218D-02 - xs( 7) = 0.7882010399927577D-02 - xs( 8) = 0.1087271693503594D-01 - xs( 9) = 0.1455155499306025D-01 - xs( 10) = 0.1898076463635764D-01 - xs( 11) = 0.2418067784175902D-01 - xs( 12) = 0.3012297293327796D-01 - xs( 13) = 0.3674075317336954D-01 - xs( 14) = 0.4394790864938729D-01 - xs( 15) = 0.5165692521666144D-01 - xs( 16) = 0.5978958210871399D-01 - xs( 17) = 0.6828091939731042D-01 - xs( 18) = 0.7707915537458659D-01 - xs( 19) = 0.8614389593607781D-01 - xs( 20) = 0.9544397464358863D-01 - xs( 21) = 0.1049555009975252D+00 - xs( 22) = 0.1146602844620437D+00 - xs( 23) = 0.1245445848790271D+00 - xs( 24) = 0.1345981976746054D+00 - xs( 25) = 0.1448137583955603D+00 - xs( 26) = 0.1551852366025937D+00 - xs( 27) = 0.1657063034771193D+00 - xs( 28) = 0.1763703482826378D+00 - xs( 29) = 0.1870856387229394D+00 - xs( 30) = 0.1974337116113508D+00 - ws( 1) = 0.2253890629890906D-03 - ws( 2) = 0.5330004560387540D-03 - ws( 3) = 0.8616425189691704D-03 - ws( 4) = 0.1224332253753729D-02 - ws( 5) = 0.1636373607455617D-02 - ws( 6) = 0.2114537930545727D-02 - ws( 7) = 0.2674080531105991D-02 - ws( 8) = 0.3321781150359782D-02 - ws( 9) = 0.4046629970345800D-02 - ws( 10) = 0.4815301578244604D-02 - ws( 11) = 0.5579614127188505D-02 - ws( 12) = 0.6293473946146918D-02 - ws( 13) = 0.6927425086658651D-02 - ws( 14) = 0.7472124677380371D-02 - ws( 15) = 0.7932812959016686D-02 - ws( 16) = 0.8321681312697572D-02 - ws( 17) = 0.8652396044378870D-02 - ws( 18) = 0.8937381459710672D-02 - ws( 19) = 0.9186941229412975D-02 - ws( 20) = 0.9409270838847588D-02 - ws( 21) = 0.9610792581272187D-02 - ws( 22) = 0.9796571230292088D-02 - ws( 23) = 0.9970621028904421D-02 - ws( 24) = 0.1013614317355940D-01 - ws( 25) = 0.1029603769440788D-01 - ws( 26) = 0.1045474255654166D-01 - ws( 27) = 0.1060988509842996D-01 - ws( 28) = 0.1079847363190368D-01 - ws( 29) = 0.1106096057137146D-01 - ws( 30) = 0.9477500405442617D-02 - endif - - - if( iquad .eq. 96 ) then - idomain = 96 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 29 - err = 0.5740700107398231D-07 - ierq = 0 - xs( 1) = 0.1233760170526411D-03 - xs( 2) = 0.6538906476719204D-03 - xs( 3) = 0.1623972835150999D-02 - xs( 4) = 0.3060567928719831D-02 - xs( 5) = 0.5001454972518619D-02 - xs( 6) = 0.7492630059951930D-02 - xs( 7) = 0.1058228190655259D-01 - xs( 8) = 0.1431160235318924D-01 - xs( 9) = 0.1870504813604257D-01 - xs( 10) = 0.2376388866049993D-01 - xs( 11) = 0.2946543407851303D-01 - xs( 12) = 0.3576756901805380D-01 - xs( 13) = 0.4261617996701519D-01 - xs( 14) = 0.4995270056220318D-01 - xs( 15) = 0.5771994791585613D-01 - xs( 16) = 0.6586570112318064D-01 - xs( 17) = 0.7434433918307382D-01 - xs( 18) = 0.8311716202969985D-01 - xs( 19) = 0.9215197042332388D-01 - xs( 20) = 0.1014223101653752D+00 - xs( 21) = 0.1109065917484211D+00 - xs( 22) = 0.1205871794737529D+00 - xs( 23) = 0.1304495830376841D+00 - xs( 24) = 0.1404813106222702D+00 - xs( 25) = 0.1506686232452065D+00 - xs( 26) = 0.1609956643110874D+00 - xs( 27) = 0.1714272172227585D+00 - xs( 28) = 0.1817688323521395D+00 - xs( 29) = 0.1916345295039071D+00 - ws( 1) = 0.3170592946434397D-03 - ws( 2) = 0.7467425485063246D-03 - ws( 3) = 0.1197907239981239D-02 - ws( 4) = 0.1681620967357200D-02 - ws( 5) = 0.2207919217864914D-02 - ws( 6) = 0.2782622391632000D-02 - ws( 7) = 0.3403719382792063D-02 - ws( 8) = 0.4059111426913813D-02 - ws( 9) = 0.4728003283637132D-02 - ws( 10) = 0.5385814044646125D-02 - ws( 11) = 0.6010126577225482D-02 - ws( 12) = 0.6584994147416923D-02 - ws( 13) = 0.7102368292980451D-02 - ws( 14) = 0.7561083711937440D-02 - ws( 15) = 0.7964681551257806D-02 - ws( 16) = 0.8319216484828388D-02 - ws( 17) = 0.8631616579698144D-02 - ws( 18) = 0.8908678713010256D-02 - ws( 19) = 0.9156557732632613D-02 - ws( 20) = 0.9380585983221487D-02 - ws( 21) = 0.9585283026226993D-02 - ws( 22) = 0.9774276655902383D-02 - ws( 23) = 0.9950412458983392D-02 - ws( 24) = 0.1011753634550080D-01 - ws( 25) = 0.1027665129967683D-01 - ws( 26) = 0.1042229721058942D-01 - ws( 27) = 0.1060805970860055D-01 - ws( 28) = 0.1047058746504268D-01 - ws( 29) = 0.7425985627364097D-02 - endif - - - if( iquad .eq. 97 ) then - idomain = 97 - rk0r = 0.3141592653590793D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 27 - err = 0.7584105911580679D-07 - ierq = 0 - xs( 1) = 0.1822262259964327D-03 - xs( 2) = 0.9608653027275201D-03 - xs( 3) = 0.2364182054482184D-02 - xs( 4) = 0.4394980253032333D-02 - xs( 5) = 0.7053559449001317D-02 - xs( 6) = 0.1033559422578455D-01 - xs( 7) = 0.1423047782753280D-01 - xs( 8) = 0.1872065497185533D-01 - xs( 9) = 0.2378193288188291D-01 - xs( 10) = 0.2938454383579622D-01 - xs( 11) = 0.3549466421681273D-01 - xs( 12) = 0.4207610295733920D-01 - xs( 13) = 0.4909192067067186D-01 - xs( 14) = 0.5650581251577309D-01 - xs( 15) = 0.6428316759775973D-01 - xs( 16) = 0.7239178608623603D-01 - xs( 17) = 0.8080228113827612D-01 - xs( 18) = 0.8948820177784576D-01 - xs( 19) = 0.9842592029905106D-01 - xs( 20) = 0.1075943783478920D+00 - xs( 21) = 0.1169744776627890D+00 - xs( 22) = 0.1265471502482307D+00 - xs( 23) = 0.1362913986118066D+00 - xs( 24) = 0.1461801709435101D+00 - xs( 25) = 0.1561160645141820D+00 - xs( 26) = 0.1658447474365971D+00 - xs( 27) = 0.1751399110756193D+00 - ws( 1) = 0.4677387917079603D-03 - ws( 2) = 0.1090387274335785D-02 - ws( 3) = 0.1716731359826852D-02 - ws( 4) = 0.2344954479209602D-02 - ws( 5) = 0.2971511520851613D-02 - ws( 6) = 0.3590801250063053D-02 - ws( 7) = 0.4196034300296437D-02 - ws( 8) = 0.4780269407332720D-02 - ws( 9) = 0.5337299076386471D-02 - ws( 10) = 0.5862256814452026D-02 - ws( 11) = 0.6351924669533569D-02 - ws( 12) = 0.6804772690083261D-02 - ws( 13) = 0.7220793292631755D-02 - ws( 14) = 0.7601208487730477D-02 - ws( 15) = 0.7948126192784680D-02 - ws( 16) = 0.8264203259101271D-02 - ws( 17) = 0.8552361456412865D-02 - ws( 18) = 0.8815547977212113D-02 - ws( 19) = 0.9056444664122504D-02 - ws( 20) = 0.9277408669667900D-02 - ws( 21) = 0.9481848816736697D-02 - ws( 22) = 0.9673830929465287D-02 - ws( 23) = 0.9854023945738340D-02 - ws( 24) = 0.1005835328492745D-01 - ws( 25) = 0.1029289440321975D-01 - ws( 26) = 0.9576944794846571D-02 - ws( 27) = 0.5639707196885429D-02 - endif - - - if( iquad .eq. 98 ) then - idomain = 98 - rk0r = 0.3141592653590793D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 22 - err = 0.1684860186073318D-07 - ierq = 0 - xs( 1) = 0.1978225449082997D-03 - xs( 2) = 0.1039859882135342D-02 - xs( 3) = 0.2545479659849289D-02 - xs( 4) = 0.4700640065527834D-02 - xs( 5) = 0.7486511835657114D-02 - xs( 6) = 0.1088061863069971D-01 - xs( 7) = 0.1485746821601756D-01 - xs( 8) = 0.1938917546283266D-01 - xs( 9) = 0.2444613804694830D-01 - xs( 10) = 0.2999770657345856D-01 - xs( 11) = 0.3601277653836885D-01 - xs( 12) = 0.4246025733803592D-01 - xs( 13) = 0.4930950297824070D-01 - xs( 14) = 0.5653068575395868D-01 - xs( 15) = 0.6409416323879864D-01 - xs( 16) = 0.7196885139233643D-01 - xs( 17) = 0.8012384660738560D-01 - xs( 18) = 0.8852378170878164D-01 - xs( 19) = 0.9706937012120770D-01 - xs( 20) = 0.1055508677019086D+00 - xs( 21) = 0.1138076252910319D+00 - xs( 22) = 0.1295443261116160D+00 - ws( 1) = 0.5073739840560849D-03 - ws( 2) = 0.1175672456251102D-02 - ws( 3) = 0.1833175091633968D-02 - ws( 4) = 0.2473979194669612D-02 - ws( 5) = 0.3094011873211263D-02 - ws( 6) = 0.3689946239521191D-02 - ws( 7) = 0.4259083853110754D-02 - ws( 8) = 0.4799390998736311D-02 - ws( 9) = 0.5309458867896174D-02 - ws( 10) = 0.5788518916081793D-02 - ws( 11) = 0.6236490921140582D-02 - ws( 12) = 0.6653706348267923D-02 - ws( 13) = 0.7040382173591660D-02 - ws( 14) = 0.7397455622509166D-02 - ws( 15) = 0.7727989767062592D-02 - ws( 16) = 0.8030950589389213D-02 - ws( 17) = 0.8299055583530857D-02 - ws( 18) = 0.8572749091547904D-02 - ws( 19) = 0.8857810261548336D-02 - ws( 20) = 0.8346234286963633D-02 - ws( 21) = 0.5241207980109396D-02 - ws( 22) = -.2318068487660628D-02 - endif - - - if( iquad .eq. 99 ) then - idomain = 99 - rk0r = 0.3141592653590793D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 19 - err = 0.4144449831573290D-07 - ierq = 0 - xs( 1) = 0.1817485182212061D-03 - xs( 2) = 0.9558772413586589D-03 - xs( 3) = 0.2341850744088395D-02 - xs( 4) = 0.4329134474752103D-02 - xs( 5) = 0.6901256833270523D-02 - xs( 6) = 0.1003723874157852D-01 - xs( 7) = 0.1371317894556288D-01 - xs( 8) = 0.1790322755691846D-01 - xs( 9) = 0.2258039871246960D-01 - xs( 10) = 0.2771817888871252D-01 - xs( 11) = 0.3328936399923976D-01 - xs( 12) = 0.3926268446907426D-01 - xs( 13) = 0.4560962198700495D-01 - xs( 14) = 0.5230754352842628D-01 - xs( 15) = 0.5927471657634194D-01 - xs( 16) = 0.6630873321324737D-01 - xs( 17) = 0.7325970363870375D-01 - xs( 18) = 0.8686155897884798D-01 - xs( 19) = 0.9997372038246731D-01 - ws( 1) = 0.4664214493775021D-03 - ws( 2) = 0.1081511479709603D-02 - ws( 3) = 0.1689027012986161D-02 - ws( 4) = 0.2282989377219112D-02 - ws( 5) = 0.2858173372952612D-02 - ws( 6) = 0.3410559799072195D-02 - ws( 7) = 0.3937944162785430D-02 - ws( 8) = 0.4439714394817292D-02 - ws( 9) = 0.4914056769600657D-02 - ws( 10) = 0.5360231682265152D-02 - ws( 11) = 0.5785564344424187D-02 - ws( 12) = 0.6189180727819583D-02 - ws( 13) = 0.6546687777129074D-02 - ws( 14) = 0.6908770148488995D-02 - ws( 15) = 0.7395302225050511D-02 - ws( 16) = 0.7378911845173605D-02 - ws( 17) = 0.5001028159960058D-02 - ws( 18) = -.3074559775216862D-02 - ws( 19) = 0.3138275998077182D-02 - endif - - - if( iquad .eq. 100 ) then - idomain = 100 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 35 - err = 0.2671689118923789D-07 - ierq = 0 - xs( 1) = 0.1503263260035136D-04 - xs( 2) = 0.7958381302321729D-04 - xs( 3) = 0.1972910093520448D-03 - xs( 4) = 0.3710142884730661D-03 - xs( 5) = 0.6051590833963655D-03 - xs( 6) = 0.9060545249835793D-03 - xs( 7) = 0.1282471993391908D-02 - xs( 8) = 0.1746360759737634D-02 - xs( 9) = 0.2313899162834190D-02 - xs( 10) = 0.3007012428983026D-02 - xs( 11) = 0.3855587725890562D-02 - xs( 12) = 0.4900732378526558D-02 - xs( 13) = 0.6199573969136179D-02 - xs( 14) = 0.7832244125522438D-02 - xs( 15) = 0.9911609071160716D-02 - xs( 16) = 0.1259524587290899D-01 - xs( 17) = 0.1609487924304450D-01 - xs( 18) = 0.2066566479365734D-01 - xs( 19) = 0.2653520699334700D-01 - xs( 20) = 0.3375689640888049D-01 - xs( 21) = 0.4212724302042311D-01 - xs( 22) = 0.5131036538117286D-01 - xs( 23) = 0.6101247251822333D-01 - xs( 24) = 0.7104159580923299D-01 - xs( 25) = 0.8128835698752081D-01 - xs( 26) = 0.9169410155765340D-01 - xs( 27) = 0.1022284187800064D+00 - xs( 28) = 0.1128762372204710D+00 - xs( 29) = 0.1236308855665393D+00 - xs( 30) = 0.1344903716391390D+00 - xs( 31) = 0.1454547010841551D+00 - xs( 32) = 0.1565239749477469D+00 - xs( 33) = 0.1676954688898102D+00 - xs( 34) = 0.1789037725742420D+00 - xs( 35) = 0.1897313137870500D+00 - ws( 1) = 0.3862138449115391D-04 - ws( 2) = 0.9076433460649755D-04 - ws( 3) = 0.1451209077036396D-03 - ws( 4) = 0.2030538670864593D-03 - ws( 5) = 0.2662820871580280D-03 - ws( 6) = 0.3369586587397409D-03 - ws( 7) = 0.4178506528866712D-03 - ws( 8) = 0.5125985071790436D-03 - ws( 9) = 0.6260963916531386D-03 - ws( 10) = 0.7650582149362884D-03 - ws( 11) = 0.9388651809505993D-03 - ws( 12) = 0.1160830634247052D-02 - ws( 13) = 0.1450045488717827D-02 - ws( 14) = 0.1833897968088535D-02 - ws( 15) = 0.2350902195977840D-02 - ws( 16) = 0.3051735820581892D-02 - ws( 17) = 0.3991117590085760D-02 - ws( 18) = 0.5191192344571567D-02 - ws( 19) = 0.6558787659103308D-02 - ws( 20) = 0.7847966595283312D-02 - ws( 21) = 0.8833364309914648D-02 - ws( 22) = 0.9483130655131393D-02 - ws( 23) = 0.9889580310908577D-02 - ws( 24) = 0.1015100267479947D-01 - ws( 25) = 0.1033310740091003D-01 - ws( 26) = 0.1047350735408708D-01 - ws( 27) = 0.1059271668000794D-01 - ws( 28) = 0.1070189794670369D-01 - ws( 29) = 0.1080728268559326D-01 - ws( 30) = 0.1091260731317142D-01 - ws( 31) = 0.1102141096914357D-01 - ws( 32) = 0.1113360272802591D-01 - ws( 33) = 0.1127915030408189D-01 - ws( 34) = 0.1148692877919315D-01 - ws( 35) = 0.1023902482690772D-01 - endif - - - if( iquad .eq. 101 ) then - idomain = 101 - rk0r = 0.6283185307180586D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 35 - err = 0.5158366874449359D-07 - ierq = 0 - xs( 1) = 0.1278096044703885D-04 - xs( 2) = 0.6886919113165935D-04 - xs( 3) = 0.1746376074240730D-03 - xs( 4) = 0.3355442333434226D-03 - xs( 5) = 0.5573188488297645D-03 - xs( 6) = 0.8467307472508840D-03 - xs( 7) = 0.1212528887440979D-02 - xs( 8) = 0.1666396484541638D-02 - xs( 9) = 0.2224087103691634D-02 - xs( 10) = 0.2906956963168227D-02 - xs( 11) = 0.3744154760073725D-02 - xs( 12) = 0.4775829118424568D-02 - xs( 13) = 0.6057866785060136D-02 - xs( 14) = 0.7668841987018242D-02 - xs( 15) = 0.9719844197398042D-02 - xs( 16) = 0.1236693202993209D-01 - xs( 17) = 0.1582181337624674D-01 - xs( 18) = 0.2034349850054477D-01 - xs( 19) = 0.2616950663242742D-01 - xs( 20) = 0.3336502672464312D-01 - xs( 21) = 0.4172978544385052D-01 - xs( 22) = 0.5092176566655605D-01 - xs( 23) = 0.6063985322681974D-01 - xs( 24) = 0.7068758225937004D-01 - xs( 25) = 0.8095350491993829D-01 - xs( 26) = 0.9137819654461946D-01 - xs( 27) = 0.1019310640127615D+00 - xs( 28) = 0.1125970980530971D+00 - xs( 29) = 0.1233698067269189D+00 - xs( 30) = 0.1342473813568505D+00 - xs( 31) = 0.1452300415712744D+00 - xs( 32) = 0.1563181584948558D+00 - xs( 33) = 0.1675099265191481D+00 - xs( 34) = 0.1787385552517702D+00 - xs( 35) = 0.1895929895818903D+00 - ws( 1) = 0.3299248839011553D-04 - ws( 2) = 0.8002810324177814D-04 - ws( 3) = 0.1324218128738446D-03 - ws( 4) = 0.1903309720712744D-03 - ws( 5) = 0.2543307889282037D-03 - ws( 6) = 0.3259357282575600D-03 - ws( 7) = 0.4075893172989205D-03 - ws( 8) = 0.5027465338075537D-03 - ws( 9) = 0.6161584097461500D-03 - ws( 10) = 0.7543871778106202D-03 - ws( 11) = 0.9266225419568840D-03 - ws( 12) = 0.1145926665722187D-02 - ws( 13) = 0.1431080997981774D-02 - ws( 14) = 0.1809169454387580D-02 - ws( 15) = 0.2318632501974187D-02 - ws( 16) = 0.3010864818341815D-02 - ws( 17) = 0.3943073030329677D-02 - ws( 18) = 0.5142743131059338D-02 - ws( 19) = 0.6522376930962786D-02 - ws( 20) = 0.7832577415707842D-02 - ws( 21) = 0.8836372285873896D-02 - ws( 22) = 0.9496560230440980D-02 - ws( 23) = 0.9907378825085999D-02 - ws( 24) = 0.1017009065017641D-01 - ws( 25) = 0.1035222236714200D-01 - ws( 26) = 0.1049225356814716D-01 - ws( 27) = 0.1061107286896497D-01 - ws( 28) = 0.1071998290553806D-01 - ws( 29) = 0.1082526972107478D-01 - ws( 30) = 0.1093077764559734D-01 - ws( 31) = 0.1104018528786352D-01 - ws( 32) = 0.1115246710690402D-01 - ws( 33) = 0.1130328816953631D-01 - ws( 34) = 0.1151959217605767D-01 - ws( 35) = 0.1029227438709393D-01 - endif - - - if( iquad .eq. 102 ) then - idomain = 102 - rk0r = 0.6283185307180586D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 38 - err = 0.8785075052940798D-07 - ierq = 0 - xs( 1) = 0.1623459772298517D-04 - xs( 2) = 0.8594156160959020D-04 - xs( 3) = 0.2130227140090882D-03 - xs( 4) = 0.4004998226852957D-03 - xs( 5) = 0.6529912999518863D-03 - xs( 6) = 0.9770748900910806D-03 - xs( 7) = 0.1381783069049377D-02 - xs( 8) = 0.1879302915346561D-02 - xs( 9) = 0.2485965430289169D-02 - xs( 10) = 0.3223650128069723D-02 - xs( 11) = 0.4121788959619423D-02 - xs( 12) = 0.5220229404950080D-02 - xs( 13) = 0.6573295895848079D-02 - xs( 14) = 0.8255407429335733D-02 - xs( 15) = 0.1036835711765550D-01 - xs( 16) = 0.1304924592239792D-01 - xs( 17) = 0.1647468625360340D-01 - xs( 18) = 0.2084899119573867D-01 - xs( 19) = 0.2635382997793294D-01 - xs( 20) = 0.3305307347131313D-01 - xs( 21) = 0.4082613608102388D-01 - xs( 22) = 0.4942510253120644D-01 - xs( 23) = 0.5859736266460590D-01 - xs( 24) = 0.6815480593804946D-01 - xs( 25) = 0.7797777866200860D-01 - xs( 26) = 0.8799546602736913D-01 - xs( 27) = 0.9816714527730749D-01 - xs( 28) = 0.1084696997017240D+00 - xs( 29) = 0.1188902636286293D+00 - xs( 30) = 0.1294220876463877D+00 - xs( 31) = 0.1400622391400958D+00 - xs( 32) = 0.1508103047411799D+00 - xs( 33) = 0.1616677957177195D+00 - xs( 34) = 0.1726368520703531D+00 - xs( 35) = 0.1837199771397708D+00 - xs( 36) = 0.1949202551031768D+00 - xs( 37) = 0.2061805144663061D+00 - xs( 38) = 0.2171439678377202D+00 - ws( 1) = 0.4170885166092502D-04 - ws( 2) = 0.9800698167428283D-04 - ws( 3) = 0.1566531867785822D-03 - ws( 4) = 0.2190650167247499D-03 - ws( 5) = 0.2870061099157685D-03 - ws( 6) = 0.3626550144777061D-03 - ws( 7) = 0.4487763272738182D-03 - ws( 8) = 0.5489622195026655D-03 - ws( 9) = 0.6679766116841526D-03 - ws( 10) = 0.8122512137154755D-03 - ws( 11) = 0.9906009411044072D-03 - ws( 12) = 0.1215240931450575D-02 - ws( 13) = 0.1503172291958270D-02 - ws( 14) = 0.1877875471760576D-02 - ws( 15) = 0.2370777314310938D-02 - ws( 16) = 0.3020572939400485D-02 - ws( 17) = 0.3865145720384995D-02 - ws( 18) = 0.4915506891373455D-02 - ws( 19) = 0.6106289481184002D-02 - ws( 20) = 0.7270936471677662D-02 - ws( 21) = 0.8231441807533118D-02 - ws( 22) = 0.8923264745812140D-02 - ws( 23) = 0.9389965246212462D-02 - ws( 24) = 0.9705358797641317D-02 - ws( 25) = 0.9929103463495280D-02 - ws( 26) = 0.1009968695048875D-01 - ws( 27) = 0.1023993650717379D-01 - ws( 28) = 0.1036309643798010D-01 - ws( 29) = 0.1047694700289730D-01 - ws( 30) = 0.1058626612036423D-01 - ws( 31) = 0.1069414277204008D-01 - ws( 32) = 0.1080273188217099D-01 - ws( 33) = 0.1091405118327570D-01 - ws( 34) = 0.1103177690676363D-01 - ws( 35) = 0.1115573659148326D-01 - ws( 36) = 0.1132508161233709D-01 - ws( 37) = 0.1159230798862286D-01 - ws( 38) = 0.1076000483076171D-01 - endif - - - if( iquad .eq. 103 ) then - idomain = 103 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 38 - err = 0.9303271077140993D-07 - ierq = 0 - xs( 1) = 0.1797715171101303D-04 - xs( 2) = 0.9516092919350807D-04 - xs( 3) = 0.2358489471234531D-03 - xs( 4) = 0.4433352840798591D-03 - xs( 5) = 0.7226347857154748D-03 - xs( 6) = 0.1080856953589730D-02 - xs( 7) = 0.1527713864365056D-02 - xs( 8) = 0.2076234664361446D-02 - xs( 9) = 0.2743768406609313D-02 - xs( 10) = 0.3553393419560464D-02 - xs( 11) = 0.4535901161926607D-02 - xs( 12) = 0.5732581605074658D-02 - xs( 13) = 0.7199083680599500D-02 - xs( 14) = 0.9010580096927573D-02 - xs( 15) = 0.1126810020159861D-01 - xs( 16) = 0.1410461037601869D-01 - xs( 17) = 0.1768597214538635D-01 - xs( 18) = 0.2219502732402826D-01 - xs( 19) = 0.2778167847860123D-01 - xs( 20) = 0.3448355114223439D-01 - xs( 21) = 0.4218305188836034D-01 - xs( 22) = 0.5066215653541744D-01 - xs( 23) = 0.5969973991866770D-01 - xs( 24) = 0.6912648389515487D-01 - xs( 25) = 0.7883017727397514D-01 - xs( 26) = 0.8874137864476671D-01 - xs( 27) = 0.9881834065400893D-01 - xs( 28) = 0.1090362977295946D+00 - xs( 29) = 0.1193808023738869D+00 - xs( 30) = 0.1298437925984295D+00 - xs( 31) = 0.1404213086398801D+00 - xs( 32) = 0.1511121252945354D+00 - xs( 33) = 0.1619170839419385D+00 - xs( 34) = 0.1728378203779788D+00 - xs( 35) = 0.1838760737488439D+00 - xs( 36) = 0.1950324120439411D+00 - xs( 37) = 0.2062442645517566D+00 - xs( 38) = 0.2171126131547972D+00 - ws( 1) = 0.4618513265479990D-04 - ws( 2) = 0.1085130614708168D-03 - ws( 3) = 0.1734059061892339D-03 - ws( 4) = 0.2423966633468275D-03 - ws( 5) = 0.3173789286640952D-03 - ws( 6) = 0.4006723672068693D-03 - ws( 7) = 0.4951965408539096D-03 - ws( 8) = 0.6047134736706369D-03 - ws( 9) = 0.7341678768547721D-03 - ws( 10) = 0.8901683137970322D-03 - ws( 11) = 0.1081665141391886D-02 - ws( 12) = 0.1320884475697126D-02 - ws( 13) = 0.1624540333964486D-02 - ws( 14) = 0.2015179375292147D-02 - ws( 15) = 0.2521979024764734D-02 - ws( 16) = 0.3178900622048540D-02 - ws( 17) = 0.4015111003875063D-02 - ws( 18) = 0.5029484182250562D-02 - ws( 19) = 0.6151037769965301D-02 - ws( 20) = 0.7231998214214033D-02 - ws( 21) = 0.8128782790619073D-02 - ws( 22) = 0.8791677895922285D-02 - ws( 23) = 0.9255271618696581D-02 - ws( 24) = 0.9579795640995514D-02 - ws( 25) = 0.9816276883939823D-02 - ws( 26) = 0.9999343877948154D-02 - ws( 27) = 0.1015055995494149D-01 - ws( 28) = 0.1028301127954723D-01 - ws( 29) = 0.1040469580449227D-01 - ws( 30) = 0.1052066617647435D-01 - ws( 31) = 0.1063428007479268D-01 - ws( 32) = 0.1074786602187199D-01 - ws( 33) = 0.1086348226256740D-01 - ws( 34) = 0.1098387115868777D-01 - ws( 35) = 0.1111179137055378D-01 - ws( 36) = 0.1127031954554728D-01 - ws( 37) = 0.1149913476598714D-01 - ws( 38) = 0.1038897833860799D-01 - endif - - - if( iquad .eq. 104 ) then - idomain = 104 - rk0r = 0.6283185307180586D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 39 - err = 0.9515297646385291D-07 - ierq = 0 - xs( 1) = 0.2116727549467739D-04 - xs( 2) = 0.1120220701521179D-03 - xs( 3) = 0.2775230194851159D-03 - xs( 4) = 0.5213560253694675D-03 - xs( 5) = 0.8491248817133394D-03 - xs( 6) = 0.1268763964429013D-02 - xs( 7) = 0.1791093638895335D-02 - xs( 8) = 0.2430595016444567D-02 - xs( 9) = 0.3206486231341639D-02 - xs( 10) = 0.4144218225294631D-02 - xs( 11) = 0.5277555757622080D-02 - xs( 12) = 0.6651460007584232D-02 - xs( 13) = 0.8326007513784801D-02 - xs( 14) = 0.1038145129474032D-01 - xs( 15) = 0.1292392451628617D-01 - xs( 16) = 0.1608938775458856D-01 - xs( 17) = 0.2003881966559043D-01 - xs( 18) = 0.2493090919117017D-01 - xs( 19) = 0.3086281344321265D-01 - xs( 20) = 0.3780877036972968D-01 - xs( 21) = 0.4562151779296342D-01 - xs( 22) = 0.5410213880119243D-01 - xs( 23) = 0.6306965900597385D-01 - xs( 24) = 0.7238923525719865D-01 - xs( 25) = 0.8197007706248574D-01 - xs( 26) = 0.9175380392426918D-01 - xs( 27) = 0.1017035059679185D+00 - xs( 28) = 0.1117959625641417D+00 - xs( 29) = 0.1220166530997073D+00 - xs( 30) = 0.1323566964504545D+00 - xs( 31) = 0.1428110061334673D+00 - xs( 32) = 0.1533771814875985D+00 - xs( 33) = 0.1640548427232501D+00 - xs( 34) = 0.1748451986582816D+00 - xs( 35) = 0.1857503042796613D+00 - xs( 36) = 0.1967704160796106D+00 - xs( 37) = 0.2079052943153908D+00 - xs( 38) = 0.2190986065688969D+00 - xs( 39) = 0.2299328316201850D+00 - ws( 1) = 0.5437798858313454D-04 - ws( 2) = 0.1277041095399380D-03 - ws( 3) = 0.2039052282838988D-03 - ws( 4) = 0.2846882363055480D-03 - ws( 5) = 0.3721627566372530D-03 - ws( 6) = 0.4689060798140085D-03 - ws( 7) = 0.5781491257783858D-03 - ws( 8) = 0.7040321137804210D-03 - ws( 9) = 0.8519579794344447D-03 - ws( 10) = 0.1029086028864795D-02 - ws( 11) = 0.1245017658396966D-02 - ws( 12) = 0.1512718506163077D-02 - ws( 13) = 0.1849652324358606D-02 - ws( 14) = 0.2278843257243188D-02 - ws( 15) = 0.2828808536830304D-02 - ws( 16) = 0.3529362638539612D-02 - ws( 17) = 0.4396996878914738D-02 - ws( 18) = 0.5404612368776250D-02 - ws( 19) = 0.6454904982490366D-02 - ws( 20) = 0.7411068613199011D-02 - ws( 21) = 0.8180013891710263D-02 - ws( 22) = 0.8750647833987378D-02 - ws( 23) = 0.9162008385337265D-02 - ws( 24) = 0.9462228219175554D-02 - ws( 25) = 0.9689911472155756D-02 - ws( 26) = 0.9871518996962954D-02 - ws( 27) = 0.1002409660529928D-01 - ws( 28) = 0.1015844782200131D-01 - ws( 29) = 0.1028148996763877D-01 - ws( 30) = 0.1039778496671032D-01 - ws( 31) = 0.1051048588709648D-01 - ws( 32) = 0.1062197129962457D-01 - ws( 33) = 0.1073404892843517D-01 - ws( 34) = 0.1084846966936615D-01 - ws( 35) = 0.1096826254154436D-01 - ws( 36) = 0.1109082141945060D-01 - ws( 37) = 0.1124932848723952D-01 - ws( 38) = 0.1147908877153646D-01 - ws( 39) = 0.1027371692400312D-01 - endif - - - if( iquad .eq. 105 ) then - idomain = 105 - rk0r = 0.6283185307180586D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 43 - err = 0.8908527939367177D-07 - ierq = 0 - xs( 1) = 0.2738469429866357D-04 - xs( 2) = 0.1448662294918559D-03 - xs( 3) = 0.3586165386174357D-03 - xs( 4) = 0.6729207152911999D-03 - xs( 5) = 0.1094221006751114D-02 - xs( 6) = 0.1631511374145822D-02 - xs( 7) = 0.2296835763064514D-02 - xs( 8) = 0.3105946993960979D-02 - xs( 9) = 0.4079165669510914D-02 - xs( 10) = 0.5242486852941577D-02 - xs( 11) = 0.6628986069039298D-02 - xs( 12) = 0.8280557358261866D-02 - xs( 13) = 0.1024993457739774D-01 - xs( 14) = 0.1260271713793511D-01 - xs( 15) = 0.1541858307312238D-01 - xs( 16) = 0.1878980752059546D-01 - xs( 17) = 0.2281368716921259D-01 - xs( 18) = 0.2757524654595531D-01 - xs( 19) = 0.3312206567495595D-01 - xs( 20) = 0.3944421611596675D-01 - xs( 21) = 0.4647507160412305D-01 - xs( 22) = 0.5411326881637984D-01 - xs( 23) = 0.6225008654355012D-01 - xs( 24) = 0.7078823461157538D-01 - xs( 25) = 0.7964925098053247D-01 - xs( 26) = 0.8877343394217053D-01 - xs( 27) = 0.9811668683627360D-01 - xs( 28) = 0.1076468483412399D+00 - xs( 29) = 0.1173405419462576D+00 - xs( 30) = 0.1271807750810602D+00 - xs( 31) = 0.1371552101676869D+00 - xs( 32) = 0.1472549549021260D+00 - xs( 33) = 0.1574737280751688D+00 - xs( 34) = 0.1678072890067475D+00 - xs( 35) = 0.1782530497118840D+00 - xs( 36) = 0.1888097924422750D+00 - xs( 37) = 0.1994774842200844D+00 - xs( 38) = 0.2102570344659000D+00 - xs( 39) = 0.2211496191200764D+00 - xs( 40) = 0.2321546122297753D+00 - xs( 41) = 0.2432667616722778D+00 - xs( 42) = 0.2544027744148291D+00 - xs( 43) = 0.2651349277650032D+00 - ws( 1) = 0.7034359183591724D-04 - ws( 2) = 0.1650615301656700D-03 - ws( 3) = 0.2631457414533524D-03 - ws( 4) = 0.3665301571607733D-03 - ws( 5) = 0.4775611997478382D-03 - ws( 6) = 0.5990159687085535D-03 - ws( 7) = 0.7342440792884124D-03 - ws( 8) = 0.8873468352181547D-03 - ws( 9) = 0.1063399692676072D-02 - ws( 10) = 0.1268726231389223D-02 - ws( 11) = 0.1511220303856947D-02 - ws( 12) = 0.1800675758593328D-02 - ws( 13) = 0.2148987492222492D-02 - ws( 14) = 0.2569873693140576D-02 - ws( 15) = 0.3077352643623809D-02 - ws( 16) = 0.3681601129866593D-02 - ws( 17) = 0.4380782586962783D-02 - ws( 18) = 0.5150648720326655D-02 - ws( 19) = 0.5941322124077879D-02 - ws( 20) = 0.6691460742081813D-02 - ws( 21) = 0.7352862836000479D-02 - ws( 22) = 0.7905094699381360D-02 - ws( 23) = 0.8352214601401944D-02 - ws( 24) = 0.8711016747754634D-02 - ws( 25) = 0.9001124157914502D-02 - ws( 26) = 0.9239955616051808D-02 - ws( 27) = 0.9441242818203782D-02 - ws( 28) = 0.9615223861775546D-02 - ws( 29) = 0.9769359740575257D-02 - ws( 30) = 0.9909070273750266D-02 - ws( 31) = 0.1003833200832898D-01 - ws( 32) = 0.1016012145811277D-01 - ws( 33) = 0.1027673021039877D-01 - ws( 34) = 0.1038998079231726D-01 - ws( 35) = 0.1050137976079655D-01 - ws( 36) = 0.1061225765628737D-01 - ws( 37) = 0.1072375051824361D-01 - ws( 38) = 0.1083716927336298D-01 - ws( 39) = 0.1095481532723591D-01 - ws( 40) = 0.1107554651524164D-01 - ws( 41) = 0.1122197173577458D-01 - ws( 42) = 0.1139703474333230D-01 - ws( 43) = 0.9791565029074337D-02 - endif - - - if( iquad .eq. 106 ) then - idomain = 106 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 34 - err = 0.8818767642264114D-07 - ierq = 0 - xs( 1) = 0.3449837099416382D-04 - xs( 2) = 0.1923077549776585D-03 - xs( 3) = 0.5022783788674871D-03 - xs( 4) = 0.9833367354376184D-03 - xs( 5) = 0.1651312616761798D-02 - xs( 6) = 0.2524544258348292D-02 - xs( 7) = 0.3626961010755820D-02 - xs( 8) = 0.4990328945618135D-02 - xs( 9) = 0.6656631025754555D-02 - xs( 10) = 0.8680881861411915D-02 - xs( 11) = 0.1113417415925831D-01 - xs( 12) = 0.1410574813937411D-01 - xs( 13) = 0.1770038539207121D-01 - xs( 14) = 0.2202474963862665D-01 - xs( 15) = 0.2716080654643967D-01 - xs( 16) = 0.3313765400249523D-01 - xs( 17) = 0.3991990555301655D-01 - xs( 18) = 0.4742026777190190D-01 - xs( 19) = 0.5552655695475978D-01 - xs( 20) = 0.6412701521232840D-01 - xs( 21) = 0.7312506004707707D-01 - xs( 22) = 0.8244393556178276D-01 - xs( 23) = 0.9202551088034192D-01 - xs( 24) = 0.1018268888264017D+00 - xs( 25) = 0.1118168085748216D+00 - xs( 26) = 0.1219725851065011D+00 - xs( 27) = 0.1322776993734021D+00 - xs( 28) = 0.1427198886856978D+00 - xs( 29) = 0.1532893427569371D+00 - xs( 30) = 0.1639758497877644D+00 - xs( 31) = 0.1747642057623119D+00 - xs( 32) = 0.1856162004835506D+00 - xs( 33) = 0.1963676409816000D+00 - xs( 34) = 0.2066213920830577D+00 - ws( 1) = 0.9001628945927662D-04 - ws( 2) = 0.2301125581407358D-03 - ws( 3) = 0.3928589142564670D-03 - ws( 4) = 0.5718023095425495D-03 - ws( 5) = 0.7671597692810109D-03 - ws( 6) = 0.9832562716727243D-03 - ws( 7) = 0.1226832578006389D-02 - ws( 8) = 0.1506853211576994D-02 - ws( 9) = 0.1834867007673048D-02 - ws( 10) = 0.2225441018764370D-02 - ws( 11) = 0.2696042093201485D-02 - ws( 12) = 0.3264787140077130D-02 - ws( 13) = 0.3942737679803947D-02 - ws( 14) = 0.4720173435547890D-02 - ws( 15) = 0.5557005291742094D-02 - ws( 16) = 0.6390553063206971D-02 - ws( 17) = 0.7158905606690871D-02 - ws( 18) = 0.7822678341477466D-02 - ws( 19) = 0.8371031960366796D-02 - ws( 20) = 0.8813721692607773D-02 - ws( 21) = 0.9169603985743728D-02 - ws( 22) = 0.9458518897328258D-02 - ws( 23) = 0.9697542947519408D-02 - ws( 24) = 0.9900054118050736D-02 - ws( 25) = 0.1007605529078192D-01 - ws( 26) = 0.1023285406467454D-01 - ws( 27) = 0.1037567440195681D-01 - ws( 28) = 0.1050816031071434D-01 - ws( 29) = 0.1063322438528870D-01 - ws( 30) = 0.1075232419484940D-01 - ws( 31) = 0.1086278083101771D-01 - ws( 32) = 0.1096471520742949D-01 - ws( 33) = 0.1069498105422668D-01 - ws( 34) = 0.7700581358704322D-02 - endif - - - if( iquad .eq. 107 ) then - idomain = 107 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 34 - err = 0.3833756582284052D-07 - ierq = 0 - xs( 1) = 0.6879032301692865D-04 - xs( 2) = 0.3640217735878150D-03 - xs( 3) = 0.9016619381171363D-03 - xs( 4) = 0.1693335384704342D-02 - xs( 5) = 0.2756516860654876D-02 - xs( 6) = 0.4115513603021233D-02 - xs( 7) = 0.5802466865345525D-02 - xs( 8) = 0.7858047947540322D-02 - xs( 9) = 0.1033111345382469D-01 - xs( 10) = 0.1327637301126273D-01 - xs( 11) = 0.1674948342622236D-01 - xs( 12) = 0.2080003348857849D-01 - xs( 13) = 0.2546399192687939D-01 - xs( 14) = 0.3075765888385167D-01 - xs( 15) = 0.3667486773094562D-01 - xs( 16) = 0.4318824044780613D-01 - xs( 17) = 0.5025394975886759D-01 - xs( 18) = 0.5781831993218645D-01 - xs( 19) = 0.6582433608357124D-01 - xs( 20) = 0.7421672010191788D-01 - xs( 21) = 0.8294511378966432D-01 - xs( 22) = 0.9196557025436988D-01 - xs( 23) = 0.1012408346134231D+00 - xs( 24) = 0.1107398950635694D+00 - xs( 25) = 0.1204371584445904D+00 - xs( 26) = 0.1303114519659665D+00 - xs( 27) = 0.1403449205863776D+00 - xs( 28) = 0.1505217111842348D+00 - xs( 29) = 0.1608258799154567D+00 - xs( 30) = 0.1712373471473232D+00 - xs( 31) = 0.1817229189807981D+00 - xs( 32) = 0.1921984383906319D+00 - xs( 33) = 0.2024606363225213D+00 - xs( 34) = 0.2122405410907290D+00 - ws( 1) = 0.1767164317846530D-03 - ws( 2) = 0.4149338826732327D-03 - ws( 3) = 0.6622642785710192D-03 - ws( 4) = 0.9239793248396220D-03 - ws( 5) = 0.1206417292694031D-02 - ws( 6) = 0.1516919683259053D-02 - ws( 7) = 0.1863768638681788D-02 - ws( 8) = 0.2255573413096895D-02 - ws( 9) = 0.2699758713891543D-02 - ws( 10) = 0.3200157522662321D-02 - ws( 11) = 0.3754459138720330D-02 - ws( 12) = 0.4352740999762961D-02 - ws( 13) = 0.4977941323002559D-02 - ws( 14) = 0.5608342507579730D-02 - ws( 15) = 0.6221428436125476D-02 - ws( 16) = 0.6797897447729927D-02 - ws( 17) = 0.7324463402731797D-02 - ws( 18) = 0.7794688823070292D-02 - ws( 19) = 0.8208077881268417D-02 - ws( 20) = 0.8568273100503850D-02 - ws( 21) = 0.8881185406105998D-02 - ws( 22) = 0.9153525070781862D-02 - ws( 23) = 0.9391846417185750D-02 - ws( 24) = 0.9602022386530868D-02 - ws( 25) = 0.9789005464467483D-02 - ws( 26) = 0.9956726454446011D-02 - ws( 27) = 0.1010804440236213D-01 - ws( 28) = 0.1024489458778998D-01 - ws( 29) = 0.1036827561468723D-01 - ws( 30) = 0.1047474851779148D-01 - ws( 31) = 0.1054865956048718D-01 - ws( 32) = 0.1046499251033853D-01 - ws( 33) = 0.9401189105524161D-02 - ws( 34) = 0.5507514272952742D-02 - endif - - - if( iquad .eq. 108 ) then - idomain = 108 - rk0r = 0.6283185307180586D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 32 - err = 0.1647667708038789D-07 - ierq = 0 - xs( 1) = 0.1169711951633061D-03 - xs( 2) = 0.6182059985038008D-03 - xs( 3) = 0.1527510359089714D-02 - xs( 4) = 0.2857293289359980D-02 - xs( 5) = 0.4623589605789938D-02 - xs( 6) = 0.6844473407409967D-02 - xs( 7) = 0.9537987992917499D-02 - xs( 8) = 0.1271999010625776D-01 - xs( 9) = 0.1640221404895529D-01 - xs( 10) = 0.2059078479270029D-01 - xs( 11) = 0.2528530154132316D-01 - xs( 12) = 0.3047852852220089D-01 - xs( 13) = 0.3615667216409216D-01 - xs( 14) = 0.4230017017009701D-01 - xs( 15) = 0.4888486217964345D-01 - xs( 16) = 0.5588337012132971D-01 - xs( 17) = 0.6326650701998890D-01 - xs( 18) = 0.7100455940574603D-01 - xs( 19) = 0.7906833832183111D-01 - xs( 20) = 0.8742994870692242D-01 - xs( 21) = 0.9606327106556393D-01 - xs( 22) = 0.1049441724645153D+00 - xs( 23) = 0.1140504625613227D+00 - xs( 24) = 0.1233616011300287D+00 - xs( 25) = 0.1328581206078413D+00 - xs( 26) = 0.1425203906063384D+00 - xs( 27) = 0.1523260907235553D+00 - xs( 28) = 0.1622462201377981D+00 - xs( 29) = 0.1722283688622981D+00 - xs( 30) = 0.1821405594814766D+00 - xs( 31) = 0.1917694399739951D+00 - xs( 32) = 0.2009679442120734D+00 - ws( 1) = 0.3004032655049547D-03 - ws( 2) = 0.7035482594316934D-03 - ws( 3) = 0.1117134041606268D-02 - ws( 4) = 0.1545132718196408D-02 - ws( 5) = 0.1990507531696707D-02 - ws( 6) = 0.2454303981433183D-02 - ws( 7) = 0.2935400805157850D-02 - ws( 8) = 0.3430584193734802D-02 - ws( 9) = 0.3934899868336370D-02 - ws( 10) = 0.4442179925601117D-02 - ws( 11) = 0.4945642817590432D-02 - ws( 12) = 0.5438498745290928D-02 - ws( 13) = 0.5914508207422995D-02 - ws( 14) = 0.6368437601651937D-02 - ws( 15) = 0.6796359513865416D-02 - ws( 16) = 0.7195770152941309D-02 - ws( 17) = 0.7565533465446870D-02 - ws( 18) = 0.7905693063165142D-02 - ws( 19) = 0.8217207201895985D-02 - ws( 20) = 0.8501657446477368D-02 - ws( 21) = 0.8760967959885730D-02 - ws( 22) = 0.8997154967460534D-02 - ws( 23) = 0.9212084403511536D-02 - ws( 24) = 0.9407179247416891D-02 - ws( 25) = 0.9583282596607805D-02 - ws( 26) = 0.9740638761952441D-02 - ws( 27) = 0.9876467251052729D-02 - ws( 28) = 0.9982857735236425D-02 - ws( 29) = 0.1004165754100161D-01 - ws( 30) = 0.9786099515107756D-02 - ws( 31) = 0.8081918238140761D-02 - ws( 32) = 0.3939833316055659D-02 - endif - - - if( iquad .eq. 109 ) then - idomain = 109 - rk0r = 0.6283185307180586D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 27 - err = 0.3604430565723700D-07 - ierq = 0 - xs( 1) = 0.1551108113318464D-03 - xs( 2) = 0.8168503137181292D-03 - xs( 3) = 0.2005700392342354D-02 - xs( 4) = 0.3719046884729088D-02 - xs( 5) = 0.5952596687853854D-02 - xs( 6) = 0.8700372353502709D-02 - xs( 7) = 0.1195449792415616D-01 - xs( 8) = 0.1570500858814753D-01 - xs( 9) = 0.1993973418486480D-01 - xs( 10) = 0.2464428518711237D-01 - xs( 11) = 0.2980215552345606D-01 - xs( 12) = 0.3539493848507788D-01 - xs( 13) = 0.4140263495612473D-01 - xs( 14) = 0.4780401979073844D-01 - xs( 15) = 0.5457701813583119D-01 - xs( 16) = 0.6169904043866932D-01 - xs( 17) = 0.6914723004259576D-01 - xs( 18) = 0.7689856606414527D-01 - xs( 19) = 0.8492961619919799D-01 - xs( 20) = 0.9321558571797614D-01 - xs( 21) = 0.1017286364991596D+00 - xs( 22) = 0.1104341180112783D+00 - xs( 23) = 0.1192750742085888D+00 - xs( 24) = 0.1281434121430402D+00 - xs( 25) = 0.1368969432084896D+00 - xs( 26) = 0.1454383013770487D+00 - xs( 27) = 0.1617809906338767D+00 - ws( 1) = 0.3980144064984491D-03 - ws( 2) = 0.9255643605333252D-03 - ws( 3) = 0.1451681550668975D-02 - ws( 4) = 0.1974296775573009D-02 - ws( 5) = 0.2491809716138327D-02 - ws( 6) = 0.3002431410638723D-02 - ws( 7) = 0.3504159399318133D-02 - ws( 8) = 0.3994831966824020D-02 - ws( 9) = 0.4472216878573652D-02 - ws( 10) = 0.4934125593605959D-02 - ws( 11) = 0.5378533163331383D-02 - ws( 12) = 0.5803681217327888D-02 - ws( 13) = 0.6208150967302446D-02 - ws( 14) = 0.6590903152572828D-02 - ws( 15) = 0.6951282567757897D-02 - ws( 16) = 0.7288957510808811D-02 - ws( 17) = 0.7603785978532824D-02 - ws( 18) = 0.7895788631590416D-02 - ws( 19) = 0.8165321127981587D-02 - ws( 20) = 0.8412193822226636D-02 - ws( 21) = 0.8632509699629351D-02 - ws( 22) = 0.8817006556621085D-02 - ws( 23) = 0.8920904548881574D-02 - ws( 24) = 0.8656652637578829D-02 - ws( 25) = 0.7190296620594916D-02 - ws( 26) = 0.3824284962602486D-02 - ws( 27) = -.1158891493347005D-02 - endif - - - if( iquad .eq. 110 ) then - idomain = 110 - rk0r = 0.6283185307180586D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 21 - err = 0.5242911385037675D-07 - ierq = 0 - xs( 1) = 0.5442256409329083D-04 - xs( 2) = 0.5177051424190277D-03 - xs( 3) = 0.1557118723457172D-02 - xs( 4) = 0.3165131416863135D-02 - xs( 5) = 0.5325726008073271D-02 - xs( 6) = 0.8019007132073904D-02 - xs( 7) = 0.1122506232901188D-01 - xs( 8) = 0.1492387804099545D-01 - xs( 9) = 0.1909443274605775D-01 - xs( 10) = 0.2371500628308958D-01 - xs( 11) = 0.2876350945184068D-01 - xs( 12) = 0.3421556952293070D-01 - xs( 13) = 0.4004328243801212D-01 - xs( 14) = 0.4621638079308318D-01 - xs( 15) = 0.5269010745884680D-01 - xs( 16) = 0.5937689415046309D-01 - xs( 17) = 0.6615913086008636D-01 - xs( 18) = 0.7295525374398580D-01 - xs( 19) = 0.8649454321241909D-01 - xs( 20) = 0.9989867532187292D-01 - xs( 21) = 0.1129519589635300D+00 - ws( 1) = 0.1902719867583440D-03 - ws( 2) = 0.7497403946601863D-03 - ws( 3) = 0.1325429627168752D-02 - ws( 4) = 0.1886758770591284D-02 - ws( 5) = 0.2429453907547157D-02 - ws( 6) = 0.2952974071083928D-02 - ws( 7) = 0.3456303885776570D-02 - ws( 8) = 0.3939171179354637D-02 - ws( 9) = 0.4401645017882184D-02 - ws( 10) = 0.4842246813614126D-02 - ws( 11) = 0.5261768474104805D-02 - ws( 12) = 0.5663300821834527D-02 - ws( 13) = 0.6041414192134634D-02 - ws( 14) = 0.6384608733070399D-02 - ws( 15) = 0.6680436410671860D-02 - ws( 16) = 0.6751674935770522D-02 - ws( 17) = 0.5940702564834860D-02 - ws( 18) = 0.3469668029777640D-02 - ws( 19) = -.1711601505382485D-02 - ws( 20) = 0.1851448667397402D-02 - ws( 21) = -.1679471738729377D-02 - endif - - - if( iquad .eq. 111 ) then - idomain = 111 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 40 - err = 0.3867012946231425D-07 - ierq = 0 - xs( 1) = 0.7017309651382774D-05 - xs( 2) = 0.3853590917482622D-04 - xs( 3) = 0.9932193332490311D-04 - xs( 4) = 0.1924733837453517D-03 - xs( 5) = 0.3203211178809535D-03 - xs( 6) = 0.4852326210626862D-03 - xs( 7) = 0.6900886304347744D-03 - xs( 8) = 0.9385691208373220D-03 - xs( 9) = 0.1235404454917164D-02 - xs( 10) = 0.1586664447335505D-02 - xs( 11) = 0.2000130121246941D-02 - xs( 12) = 0.2485793026393982D-02 - xs( 13) = 0.3056540932708099D-02 - xs( 14) = 0.3729114380565788D-02 - xs( 15) = 0.4525459336924664D-02 - xs( 16) = 0.5474663616909365D-02 - xs( 17) = 0.6615758391747427D-02 - xs( 18) = 0.8001799631674415D-02 - xs( 19) = 0.9705810964083914D-02 - xs( 20) = 0.1182929607983841D-01 - xs( 21) = 0.1451380182192639D-01 - xs( 22) = 0.1795435149561509D-01 - xs( 23) = 0.2240711164610492D-01 - xs( 24) = 0.2816458800266220D-01 - xs( 25) = 0.3544743734856766D-01 - xs( 26) = 0.4422833660387213D-01 - xs( 27) = 0.5418958358205168D-01 - xs( 28) = 0.6491148663529957D-01 - xs( 29) = 0.7605950575612924D-01 - xs( 30) = 0.8742822145669020D-01 - xs( 31) = 0.9890856415390774D-01 - xs( 32) = 0.1104484864401579D+00 - xs( 33) = 0.1220266293455631D+00 - xs( 34) = 0.1336373801275944D+00 - xs( 35) = 0.1452828602306947D+00 - xs( 36) = 0.1569678012425178D+00 - xs( 37) = 0.1686951032416810D+00 - xs( 38) = 0.1804574439366262D+00 - xs( 39) = 0.1921759694245712D+00 - xs( 40) = 0.2034292043431837D+00 - ws( 1) = 0.1822211311475561D-04 - ws( 2) = 0.4552973276604145D-04 - ws( 3) = 0.7654737936444869D-04 - ws( 4) = 0.1101293487165622D-03 - ws( 5) = 0.1459534325673264D-03 - ws( 6) = 0.1843452754792185D-03 - ws( 7) = 0.2259760359945312D-03 - ws( 8) = 0.2717686180975562D-03 - ws( 9) = 0.3229075920123467D-03 - ws( 10) = 0.3809010437333152D-03 - ws( 11) = 0.4476843293932950D-03 - ws( 12) = 0.5257737900165911D-03 - ws( 13) = 0.6184900028120119D-03 - ws( 14) = 0.7302829337691334D-03 - ws( 15) = 0.8672092272426780D-03 - ws( 16) = 0.1037637891929184D-02 - ws( 17) = 0.1253297051811380D-02 - ws( 18) = 0.1530815746296422D-02 - ws( 19) = 0.1893930172919920D-02 - ws( 20) = 0.2376393925426667D-02 - ws( 21) = 0.3024938971838931D-02 - ws( 22) = 0.3899121320196868D-02 - ws( 23) = 0.5056879843509277D-02 - ws( 24) = 0.6498407898070301D-02 - ws( 25) = 0.8063893642389195D-02 - ws( 26) = 0.9440913935340975D-02 - ws( 27) = 0.1040817770617614D-01 - ws( 28) = 0.1097942124593234D-01 - ws( 29) = 0.1128309642129475D-01 - ws( 30) = 0.1143684455320387D-01 - ws( 31) = 0.1151560263786846D-01 - ws( 32) = 0.1156092749989315D-01 - ws( 33) = 0.1159457969901746D-01 - ws( 34) = 0.1162748850882083D-01 - ws( 35) = 0.1166482442568521D-01 - ws( 36) = 0.1170791906178901D-01 - ws( 37) = 0.1175553188983221D-01 - ws( 38) = 0.1181298778047102D-01 - ws( 39) = 0.1179920792701390D-01 - ws( 40) = 0.9961084337227281D-02 - endif - - - if( iquad .eq. 112 ) then - idomain = 112 - rk0r = 0.9424777960770379D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 38 - err = 0.9518529367619247D-07 - ierq = 0 - xs( 1) = 0.1017814281783947D-04 - xs( 2) = 0.5378495820501526D-04 - xs( 3) = 0.1328884166033106D-03 - xs( 4) = 0.2486670805126040D-03 - xs( 5) = 0.4028992139182083D-03 - xs( 6) = 0.5980845903323555D-03 - xs( 7) = 0.8375921539859420D-03 - xs( 8) = 0.1125854304709613D-02 - xs( 9) = 0.1468624648947185D-02 - xs( 10) = 0.1873323839852344D-02 - xs( 11) = 0.2349509899625097D-02 - xs( 12) = 0.2909526651493967D-02 - xs( 13) = 0.3569410247246917D-02 - xs( 14) = 0.4350174266146377D-02 - xs( 15) = 0.5279657041374545D-02 - xs( 16) = 0.6395212807173619D-02 - xs( 17) = 0.7747676662533955D-02 - xs( 18) = 0.9407242505320160D-02 - xs( 19) = 0.1147212888945374D-01 - xs( 20) = 0.1408093581273007D-01 - xs( 21) = 0.1742847540010583D-01 - xs( 22) = 0.2177892974568667D-01 - xs( 23) = 0.2744922666497192D-01 - xs( 24) = 0.3470032387297074D-01 - xs( 25) = 0.4353253342014734D-01 - xs( 26) = 0.5361433626104006D-01 - xs( 27) = 0.6449041622250481D-01 - xs( 28) = 0.7579987316094589D-01 - xs( 29) = 0.8732583850882333D-01 - xs( 30) = 0.9895642586303403D-01 - xs( 31) = 0.1106401693850107D+00 - xs( 32) = 0.1223571506757063D+00 - xs( 33) = 0.1341028568383313D+00 - xs( 34) = 0.1458790918641161D+00 - xs( 35) = 0.1576880103400021D+00 - xs( 36) = 0.1695191038140572D+00 - xs( 37) = 0.1812757578029819D+00 - xs( 38) = 0.1925316699931408D+00 - ws( 1) = 0.2613820250732898D-04 - ws( 2) = 0.6120212274030284D-04 - ws( 3) = 0.9719865216329142D-04 - ws( 4) = 0.1346531713223061D-03 - ws( 5) = 0.1742252939959039D-03 - ws( 6) = 0.2167037500506898D-03 - ws( 7) = 0.2630458717489918D-03 - ws( 8) = 0.3144316847412376D-03 - ws( 9) = 0.3723380642425201D-03 - ws( 10) = 0.4386426992878751D-03 - ws( 11) = 0.5157718927541295D-03 - ws( 12) = 0.6069133094165070D-03 - ws( 13) = 0.7163260054085728D-03 - ws( 14) = 0.8497979020464664D-03 - ws( 15) = 0.1015328769609773D-02 - ws( 16) = 0.1224159442532597D-02 - ws( 17) = 0.1492325288043722D-02 - ws( 18) = 0.1842971074056712D-02 - ws( 19) = 0.2309628545575408D-02 - ws( 20) = 0.2940182677027795D-02 - ws( 21) = 0.3799035947259638D-02 - ws( 22) = 0.4956355522319360D-02 - ws( 23) = 0.6431821012265146D-02 - ws( 24) = 0.8072283781522306D-02 - ws( 25) = 0.9532335286335061D-02 - ws( 26) = 0.1055131482387024D-01 - ws( 27) = 0.1114021708971612D-01 - ws( 28) = 0.1144340081086832D-01 - ws( 29) = 0.1159065675563765D-01 - ws( 30) = 0.1166241672287404D-01 - ws( 31) = 0.1170200853794042D-01 - ws( 32) = 0.1173139366047748D-01 - ws( 33) = 0.1176119205008810D-01 - ws( 34) = 0.1179518605949065D-01 - ws( 35) = 0.1183252392720953D-01 - ws( 36) = 0.1188543521525567D-01 - ws( 37) = 0.1184027874999234D-01 - ws( 38) = 0.9760278246810946D-02 - endif - - - if( iquad .eq. 113 ) then - idomain = 113 - rk0r = 0.9424777960770379D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 41 - err = 0.7335337096795119D-07 - ierq = 0 - xs( 1) = 0.1014463159631614D-04 - xs( 2) = 0.5360969754932548D-04 - xs( 3) = 0.1324606606239819D-03 - xs( 4) = 0.2478695576179586D-03 - xs( 5) = 0.4015831114904482D-03 - xs( 6) = 0.5960234187051708D-03 - xs( 7) = 0.8344102170363007D-03 - xs( 8) = 0.1120924166166690D-02 - xs( 9) = 0.1460924658836945D-02 - xs( 10) = 0.1861241043098067D-02 - xs( 11) = 0.2330564594825150D-02 - xs( 12) = 0.2879980911952395D-02 - xs( 13) = 0.3523700590370723D-02 - xs( 14) = 0.4280073094117305D-02 - xs( 15) = 0.5173009025337206D-02 - xs( 16) = 0.6233995392507925D-02 - xs( 17) = 0.7504972932324734D-02 - xs( 18) = 0.9042454393353544D-02 - xs( 19) = 0.1092337017224664D-01 - xs( 20) = 0.1325310548387675D-01 - xs( 21) = 0.1617559624113287D-01 - xs( 22) = 0.1988280442464313D-01 - xs( 23) = 0.2461291879231735D-01 - xs( 24) = 0.3061011934817220D-01 - xs( 25) = 0.3801642199492888D-01 - xs( 26) = 0.4674877478020399D-01 - xs( 27) = 0.5651299333485501D-01 - xs( 28) = 0.6696057890700306D-01 - xs( 29) = 0.7781603534091343D-01 - xs( 30) = 0.8890395019756087D-01 - xs( 31) = 0.1001253889950564D+00 - xs( 32) = 0.1114290174585857D+00 - xs( 33) = 0.1227906929338448D+00 - xs( 34) = 0.1342012590755858D+00 - xs( 35) = 0.1456596556977363D+00 - xs( 36) = 0.1571689924795662D+00 - xs( 37) = 0.1687337014288406D+00 - xs( 38) = 0.1803564518841004D+00 - xs( 39) = 0.1920313514500974D+00 - xs( 40) = 0.2036742627426147D+00 - xs( 41) = 0.2148462446833387D+00 - ws( 1) = 0.2605237806012959D-04 - ws( 2) = 0.6100491909960287D-04 - ws( 3) = 0.9689005836381803D-04 - ws( 4) = 0.1342173272070090D-03 - ws( 5) = 0.1736114528012239D-03 - ws( 6) = 0.2158030937968324D-03 - ws( 7) = 0.2616636931775671D-03 - ws( 8) = 0.3122526471433176D-03 - ws( 9) = 0.3688801222022875D-03 - ws( 10) = 0.4331924533869699D-03 - ws( 11) = 0.5072902688109574D-03 - ws( 12) = 0.5938941908370623D-03 - ws( 13) = 0.6965801347538495D-03 - ws( 14) = 0.8201170144881059D-03 - ws( 15) = 0.9709556246748712D-03 - ws( 16) = 0.1157939785602565D-02 - ws( 17) = 0.1393337937725467D-02 - ws( 18) = 0.1694313061372119D-02 - ws( 19) = 0.2084909992053675D-02 - ws( 20) = 0.2598371082138748D-02 - ws( 21) = 0.3278570270361282D-02 - ws( 22) = 0.4176106475187140D-02 - ws( 23) = 0.5326700281563556D-02 - ws( 24) = 0.6693937048897525D-02 - ws( 25) = 0.8104646057657393D-02 - ws( 26) = 0.9307801054175514D-02 - ws( 27) = 0.1016029625570936D-01 - ws( 28) = 0.1068869197673519D-01 - ws( 29) = 0.1099348777353096D-01 - ws( 30) = 0.1116635843780105D-01 - ws( 31) = 0.1126830372566409D-01 - ws( 32) = 0.1133513835026406D-01 - ws( 33) = 0.1138683896588338D-01 - ws( 34) = 0.1143432287260789D-01 - ws( 35) = 0.1148342750683690D-01 - ws( 36) = 0.1153751218453986D-01 - ws( 37) = 0.1159855807498041D-01 - ws( 38) = 0.1166596111693094D-01 - ws( 39) = 0.1175646238575084D-01 - ws( 40) = 0.1181899960030417D-01 - ws( 41) = 0.1000029895071827D-01 - endif - - - if( iquad .eq. 114 ) then - idomain = 114 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 44 - err = 0.9879941814495202D-07 - ierq = 0 - xs( 1) = 0.1134869357850885D-04 - xs( 2) = 0.5996759793605718D-04 - xs( 3) = 0.1481472605976174D-03 - xs( 4) = 0.2771601315488512D-03 - xs( 5) = 0.4488983294986128D-03 - xs( 6) = 0.6659789356991238D-03 - xs( 7) = 0.9318698583322737D-03 - xs( 8) = 0.1251056667620009D-02 - xs( 9) = 0.1629263402592033D-02 - xs( 10) = 0.2073745101808282D-02 - xs( 11) = 0.2593677266202902D-02 - xs( 12) = 0.3200678020197645D-02 - xs( 13) = 0.3909513741101268D-02 - xs( 14) = 0.4739060246002867D-02 - xs( 15) = 0.5713621486955229D-02 - xs( 16) = 0.6864747936513578D-02 - xs( 17) = 0.8233746222086981D-02 - xs( 18) = 0.9875117729274583D-02 - xs( 19) = 0.1186116069525280D-01 - xs( 20) = 0.1428777833770903D-01 - xs( 21) = 0.1728078076341530D-01 - xs( 22) = 0.2099977175279923D-01 - xs( 23) = 0.2563162065602453D-01 - xs( 24) = 0.3135814770345860D-01 - xs( 25) = 0.3828665049708462D-01 - xs( 26) = 0.4637460250087436D-01 - xs( 27) = 0.5542656618560478D-01 - xs( 28) = 0.6518092319112974D-01 - xs( 29) = 0.7540294941945086D-01 - xs( 30) = 0.8592350395983157D-01 - xs( 31) = 0.9663498447213098D-01 - xs( 32) = 0.1074737819646155D+00 - xs( 33) = 0.1184042541768716D+00 - xs( 34) = 0.1294076446331368D+00 - xs( 35) = 0.1404752062872311D+00 - xs( 36) = 0.1516041287455239D+00 - xs( 37) = 0.1627951536205750D+00 - xs( 38) = 0.1740511386473558D+00 - xs( 39) = 0.1853761515852418D+00 - xs( 40) = 0.1967741061719704D+00 - xs( 41) = 0.2082471884102227D+00 - xs( 42) = 0.2197896424620399D+00 - xs( 43) = 0.2313209189128846D+00 - xs( 44) = 0.2424216463049807D+00 - ws( 1) = 0.2914395750414344D-04 - ws( 2) = 0.6823280140740217D-04 - ws( 3) = 0.1083361149562987D-03 - ws( 4) = 0.1500033901317817D-03 - ws( 5) = 0.1939071157587521D-03 - ws( 6) = 0.2408293300801856D-03 - ws( 7) = 0.2916964714825828D-03 - ws( 8) = 0.3476263369199397D-03 - ws( 9) = 0.4099898985014603D-03 - ws( 10) = 0.4804941658090310D-03 - ws( 11) = 0.5612949248024376D-03 - ws( 12) = 0.6551518647574058D-03 - ws( 13) = 0.7656439025732221D-03 - ws( 14) = 0.8974699148637016D-03 - ws( 15) = 0.1056869731786073D-02 - ws( 16) = 0.1252210913671393D-02 - ws( 17) = 0.1494792809865158D-02 - ws( 18) = 0.1799901922556370D-02 - ws( 19) = 0.2188057092162030D-02 - ws( 20) = 0.2686064395352697D-02 - ws( 21) = 0.3326611111540093D-02 - ws( 22) = 0.4143008683816619D-02 - ws( 23) = 0.5152208958189436D-02 - ws( 24) = 0.6320230828297498D-02 - ws( 25) = 0.7529814879175171D-02 - ws( 26) = 0.8611785720214182D-02 - ws( 27) = 0.9446827881915443D-02 - ws( 28) = 0.1002218408213032D-01 - ws( 29) = 0.1039382551007664D-01 - ws( 30) = 0.1062967444536731D-01 - ws( 31) = 0.1078295730490189D-01 - ws( 32) = 0.1088887943248757D-01 - ws( 33) = 0.1096905108941663D-01 - ws( 34) = 0.1103634121587059D-01 - ws( 35) = 0.1109836139908858D-01 - ws( 36) = 0.1115965784818745D-01 - ws( 37) = 0.1122299289347698D-01 - ws( 38) = 0.1129002587468118D-01 - ws( 39) = 0.1136175543053488D-01 - ws( 40) = 0.1143917611148056D-01 - ws( 41) = 0.1152248136680295D-01 - ws( 42) = 0.1162290066448635D-01 - ws( 43) = 0.1172267463349887D-01 - ws( 44) = 0.1005475709918949D-01 - endif - - - if( iquad .eq. 115 ) then - idomain = 115 - rk0r = 0.9424777960770379D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 44 - err = 0.8782553581987353D-07 - ierq = 0 - xs( 1) = 0.1329372630659053D-04 - xs( 2) = 0.7023844321467991D-04 - xs( 3) = 0.1734897466640581D-03 - xs( 4) = 0.3244854869907131D-03 - xs( 5) = 0.5253588914205202D-03 - xs( 6) = 0.7790537648581173D-03 - xs( 7) = 0.1089460307164999D-02 - xs( 8) = 0.1461594145241692D-02 - xs( 9) = 0.1901831710957804D-02 - xs( 10) = 0.2418219586591263D-02 - xs( 11) = 0.3020882693210374D-02 - xs( 12) = 0.3722566423050613D-02 - xs( 13) = 0.4539362135189223D-02 - xs( 14) = 0.5491685272852122D-02 - xs( 15) = 0.6605602162803738D-02 - xs( 16) = 0.7914635613954205D-02 - xs( 17) = 0.9462216445915725D-02 - xs( 18) = 0.1130496916279747D-01 - xs( 19) = 0.1351696498190122D-01 - xs( 20) = 0.1619477456279108D-01 - xs( 21) = 0.1946218125156584D-01 - xs( 22) = 0.2347089919505890D-01 - xs( 23) = 0.2838873180557601D-01 - xs( 24) = 0.3436242053506575D-01 - xs( 25) = 0.4145443719395648D-01 - xs( 26) = 0.4959331552874708D-01 - xs( 27) = 0.5859273922433634D-01 - xs( 28) = 0.6822770634512335D-01 - xs( 29) = 0.7830134744720833D-01 - xs( 30) = 0.8866990781888165D-01 - xs( 31) = 0.9923875851448309D-01 - xs( 32) = 0.1099493053026373D+00 - xs( 33) = 0.1207668007559758D+00 - xs( 34) = 0.1316715774410227D+00 - xs( 35) = 0.1426533567982099D+00 - xs( 36) = 0.1537077129006046D+00 - xs( 37) = 0.1648338929270275D+00 - xs( 38) = 0.1760334322651904D+00 - xs( 39) = 0.1873091151879560D+00 - xs( 40) = 0.1986636266370562D+00 - xs( 41) = 0.2100971468410124D+00 - xs( 42) = 0.2215980581522899D+00 - xs( 43) = 0.2330691050562586D+00 - xs( 44) = 0.2440604991758879D+00 - ws( 1) = 0.3413810963607016D-04 - ws( 2) = 0.7990954473092715D-04 - ws( 3) = 0.1268298830271629D-03 - ws( 4) = 0.1755154071100180D-03 - ws( 5) = 0.2267198015089734D-03 - ws( 6) = 0.2813153576045047D-03 - ws( 7) = 0.3403297829194824D-03 - ws( 8) = 0.4049955342102477D-03 - ws( 9) = 0.4768139730966690D-03 - ws( 10) = 0.5576403449655393D-03 - ws( 11) = 0.6497981707889618D-03 - ws( 12) = 0.7562351057064479D-03 - ws( 13) = 0.8807370868767846D-03 - ws( 14) = 0.1028223884736392D-02 - ws( 15) = 0.1205156642677498D-02 - ws( 16) = 0.1420094366285661D-02 - ws( 17) = 0.1684433662785302D-02 - ws( 18) = 0.2013330625461008D-02 - ws( 19) = 0.2426669979030151D-02 - ws( 20) = 0.2949548090075894D-02 - ws( 21) = 0.3610712754622133D-02 - ws( 22) = 0.4435290544739176D-02 - ws( 23) = 0.5425983211683204D-02 - ws( 24) = 0.6532819458933202D-02 - ws( 25) = 0.7638949509135251D-02 - ws( 26) = 0.8606271382193879D-02 - ws( 27) = 0.9353888350493441D-02 - ws( 28) = 0.9882869970755114D-02 - ws( 29) = 0.1024057178858167D-01 - ws( 30) = 0.1048101715653357D-01 - ws( 31) = 0.1064712568736488D-01 - ws( 32) = 0.1076832133959418D-01 - ws( 33) = 0.1086348497716608D-01 - ws( 34) = 0.1094441557441670D-01 - ws( 35) = 0.1101845166548856D-01 - ws( 36) = 0.1109019887189485D-01 - ws( 37) = 0.1116258068201530D-01 - ws( 38) = 0.1123744219797578D-01 - ws( 39) = 0.1131601086749770D-01 - ws( 40) = 0.1139949642498877D-01 - ws( 41) = 0.1148926628803743D-01 - ws( 42) = 0.1159705612481211D-01 - ws( 43) = 0.1165234980767924D-01 - ws( 44) = 0.9637037503755811D-02 - endif - - - if( iquad .eq. 116 ) then - idomain = 116 - rk0r = 0.9424777960770379D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 50 - err = 0.2044414136093930D-07 - ierq = 0 - xs( 1) = 0.1594175407832242D-04 - xs( 2) = 0.8425732676399357D-04 - xs( 3) = 0.2082251227959014D-03 - xs( 4) = 0.3896879583220913D-03 - xs( 5) = 0.6312766960952522D-03 - xs( 6) = 0.9364715885124167D-03 - xs( 7) = 0.1309689970142968D-02 - xs( 8) = 0.1756424795434913D-02 - xs( 9) = 0.2283438853136760D-02 - xs( 10) = 0.2899019492070705D-02 - xs( 11) = 0.3613302939434648D-02 - xs( 12) = 0.4438683551221290D-02 - xs( 13) = 0.5390330805546496D-02 - xs( 14) = 0.6486845228726312D-02 - xs( 15) = 0.7751093052922309D-02 - xs( 16) = 0.9211265919243788D-02 - xs( 17) = 0.1090221013655469D-01 - xs( 18) = 0.1286704519761061D-01 - xs( 19) = 0.1515901053199282D-01 - xs( 20) = 0.1784327310685900D-01 - xs( 21) = 0.2099796973030823D-01 - xs( 22) = 0.2471290571518673D-01 - xs( 23) = 0.2908323840099630D-01 - xs( 24) = 0.3419533877271996D-01 - xs( 25) = 0.4010535713794588D-01 - xs( 26) = 0.4681854070824820D-01 - xs( 27) = 0.5428243163879150D-01 - xs( 28) = 0.6240022549293249D-01 - xs( 29) = 0.7105611684777564D-01 - xs( 30) = 0.8013843317780943D-01 - xs( 31) = 0.8955272160936566D-01 - xs( 32) = 0.9922538611959011D-01 - xs( 33) = 0.1091019034059385D+00 - xs( 34) = 0.1191430873933415D+00 - xs( 35) = 0.1293212909388052D+00 - xs( 36) = 0.1396172598847794D+00 - xs( 37) = 0.1500177599824464D+00 - xs( 38) = 0.1605138715868009D+00 - xs( 39) = 0.1710997959595608D+00 - xs( 40) = 0.1817720305276128D+00 - xs( 41) = 0.1925287978651737D+00 - xs( 42) = 0.2033696491558553D+00 - xs( 43) = 0.2142951518328184D+00 - xs( 44) = 0.2253065826599996D+00 - xs( 45) = 0.2364053651415148D+00 - xs( 46) = 0.2475916751263711D+00 - xs( 47) = 0.2588641528698590D+00 - xs( 48) = 0.2702099337949541D+00 - xs( 49) = 0.2815067347619614D+00 - xs( 50) = 0.2922817193340020D+00 - ws( 1) = 0.4094151996006087D-04 - ws( 2) = 0.9589586372376241D-04 - ws( 3) = 0.1523446976741192D-03 - ws( 4) = 0.2110186777756206D-03 - ws( 5) = 0.2727374058646725D-03 - ws( 6) = 0.3383863004299593D-03 - ws( 7) = 0.4089627283901455D-03 - ws( 8) = 0.4856298291313528D-03 - ws( 9) = 0.5697741418506916D-03 - ws( 10) = 0.6630697403053678D-03 - ws( 11) = 0.7675543379292636D-03 - ws( 12) = 0.8857242952316117D-03 - ws( 13) = 0.1020656503204402D-02 - ws( 14) = 0.1176165834057681D-02 - ws( 15) = 0.1357006333450144D-02 - ws( 16) = 0.1569120042079293D-02 - ws( 17) = 0.1819923654772436D-02 - ws( 18) = 0.2118588018917758D-02 - ws( 19) = 0.2476182850177011D-02 - ws( 20) = 0.2905380192450925D-02 - ws( 21) = 0.3419077780325302D-02 - ws( 22) = 0.4026888307743075D-02 - ws( 23) = 0.4728549029912587D-02 - ws( 24) = 0.5505392147740183D-02 - ws( 25) = 0.6315651894600440D-02 - ws( 26) = 0.7101725370092436D-02 - ws( 27) = 0.7809459851007432D-02 - ws( 28) = 0.8406422525138919D-02 - ws( 29) = 0.8886534130683618D-02 - ws( 30) = 0.9262306983137684D-02 - ws( 31) = 0.9554042113950580D-02 - ws( 32) = 0.9782266192239276D-02 - ws( 33) = 0.9964302126735599D-02 - ws( 34) = 0.1011351056793429D-01 - ws( 35) = 0.1023972673624485D-01 - ws( 36) = 0.1035003348910579D-01 - ws( 37) = 0.1044949978344122D-01 - ws( 38) = 0.1054177097447317D-01 - ws( 39) = 0.1062950495039943D-01 - ws( 40) = 0.1071468251641025D-01 - ws( 41) = 0.1079881254522331D-01 - ws( 42) = 0.1088305968639142D-01 - ws( 43) = 0.1096835473732952D-01 - ws( 44) = 0.1105559405903304D-01 - ws( 45) = 0.1114510815249501D-01 - ws( 46) = 0.1123548590176561D-01 - ws( 47) = 0.1132148121842346D-01 - ws( 48) = 0.1143728344620809D-01 - ws( 49) = 0.1149357860389918D-01 - ws( 50) = 0.9218657888750469D-02 - endif - - - if( iquad .eq. 117 ) then - idomain = 117 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 39 - err = 0.9409041148133237D-07 - ierq = 0 - xs( 1) = 0.3080990606697595D-04 - xs( 2) = 0.1628039337080818D-03 - xs( 3) = 0.4022086215272177D-03 - xs( 4) = 0.7525024165006830D-03 - xs( 5) = 0.1218875216457320D-02 - xs( 6) = 0.1808529606289296D-02 - xs( 7) = 0.2531039522827791D-02 - xs( 8) = 0.3398823288037852D-02 - xs( 9) = 0.4427769300456249D-02 - xs( 10) = 0.5638066602283186D-02 - xs( 11) = 0.7055316743005993D-02 - xs( 12) = 0.8712032297160440D-02 - xs( 13) = 0.1064965656528407D-01 - xs( 14) = 0.1292121811021906D-01 - xs( 15) = 0.1559448629220994D-01 - xs( 16) = 0.1875481031921173D-01 - xs( 17) = 0.2250529636274189D-01 - xs( 18) = 0.2695955193103248D-01 - xs( 19) = 0.3222202376943786D-01 - xs( 20) = 0.3835838349271855D-01 - xs( 21) = 0.4537042453553788D-01 - xs( 22) = 0.5319221308166834D-01 - xs( 23) = 0.6171032091333341D-01 - xs( 24) = 0.7079453226715429D-01 - xs( 25) = 0.8032289084510769D-01 - xs( 26) = 0.9019441873474890D-01 - xs( 27) = 0.1003316894387753D+00 - xs( 28) = 0.1106780882584508D+00 - xs( 29) = 0.1211934089238135D+00 - xs( 30) = 0.1318496084037594D+00 - xs( 31) = 0.1426273204103574D+00 - xs( 32) = 0.1535131326733640D+00 - xs( 33) = 0.1644973770291614D+00 - xs( 34) = 0.1755718831102446D+00 - xs( 35) = 0.1867264912232222D+00 - xs( 36) = 0.1979424082574719D+00 - xs( 37) = 0.2091641042177905D+00 - xs( 38) = 0.2202106695788198D+00 - xs( 39) = 0.2307230260528924D+00 - ws( 1) = 0.7912136407096634D-04 - ws( 2) = 0.1852451078377242D-03 - ws( 3) = 0.2941370384198708D-03 - ws( 4) = 0.4073109603924581D-03 - ws( 5) = 0.5266291710696810D-03 - ws( 6) = 0.6542674686458619D-03 - ws( 7) = 0.7928117758784107D-03 - ws( 8) = 0.9453901582655720D-03 - ws( 9) = 0.1115848427178760D-02 - ws( 10) = 0.1308988448866474D-02 - ws( 11) = 0.1530897299374104D-02 - ws( 12) = 0.1789396625342825D-02 - ws( 13) = 0.2094635766206295D-02 - ws( 14) = 0.2459729921272827D-02 - ws( 15) = 0.2901016530999685D-02 - ws( 16) = 0.3436921253874496D-02 - ws( 17) = 0.4083315787669844D-02 - ws( 18) = 0.4843135726972135D-02 - ws( 19) = 0.5693219939006579D-02 - ws( 20) = 0.6579870618221437D-02 - ws( 21) = 0.7432845368970063D-02 - ws( 22) = 0.8191271151920318D-02 - ws( 23) = 0.8822809717689149D-02 - ws( 24) = 0.9325083249818979D-02 - ws( 25) = 0.9714774279470427D-02 - ws( 26) = 0.1001543130811782D-01 - ws( 27) = 0.1024975127042672D-01 - ws( 28) = 0.1043641626084010D-01 - ws( 29) = 0.1058960771619451D-01 - ws( 30) = 0.1071961292821227D-01 - ws( 31) = 0.1083366194054778D-01 - ws( 32) = 0.1093661991422417D-01 - ws( 33) = 0.1103151715824435D-01 - ws( 34) = 0.1112000997254606D-01 - ws( 35) = 0.1120083202603659D-01 - ws( 36) = 0.1126616313810639D-01 - ws( 37) = 0.1125697222526974D-01 - ws( 38) = 0.1058921722510367D-01 - ws( 39) = 0.6980517968170957D-02 - endif - - - if( iquad .eq. 118 ) then - idomain = 118 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 39 - err = 0.7495433309166141D-07 - ierq = 0 - xs( 1) = 0.4506027352803311D-04 - xs( 2) = 0.2381502799977738D-03 - xs( 3) = 0.5885499213971444D-03 - xs( 4) = 0.1101651464894265D-02 - xs( 5) = 0.1785476527353365D-02 - xs( 6) = 0.2651121958373035D-02 - xs( 7) = 0.3713301484309425D-02 - xs( 8) = 0.4991049262943945D-02 - xs( 9) = 0.6508585591496538D-02 - xs( 10) = 0.8296291102269933D-02 - xs( 11) = 0.1039163813558058D-01 - xs( 12) = 0.1283976866217115D-01 - xs( 13) = 0.1569317344444600D-01 - xs( 14) = 0.1900971400145789D-01 - xs( 15) = 0.2284837601535442D-01 - xs( 16) = 0.2726289056580787D-01 - xs( 17) = 0.3229435307697084D-01 - xs( 18) = 0.3796462395948817D-01 - xs( 19) = 0.4427237313522368D-01 - xs( 20) = 0.5119305599779300D-01 - xs( 21) = 0.5868288559411351D-01 - xs( 22) = 0.6668548289997388D-01 - xs( 23) = 0.7513915756224301D-01 - xs( 24) = 0.8398305287252360D-01 - xs( 25) = 0.9316128510006300D-01 - xs( 26) = 0.1026250715495410D+00 - xs( 27) = 0.1123333188047837D+00 - xs( 28) = 0.1222522438259879D+00 - xs( 29) = 0.1323544934694050D+00 - xs( 30) = 0.1426180591157193D+00 - xs( 31) = 0.1530251256367283D+00 - xs( 32) = 0.1635608646098318D+00 - xs( 33) = 0.1742119885805928D+00 - xs( 34) = 0.1849644913653730D+00 - xs( 35) = 0.1957993355380233D+00 - xs( 36) = 0.2066814052396282D+00 - xs( 37) = 0.2175197516309849D+00 - xs( 38) = 0.2281118173488270D+00 - xs( 39) = 0.2382120283416922D+00 - ws( 1) = 0.1157222172143327D-03 - ws( 2) = 0.2710403197478042D-03 - ws( 3) = 0.4306475845852251D-03 - ws( 4) = 0.5968856682234657D-03 - ws( 5) = 0.7726049859594321D-03 - ws( 6) = 0.9611264460427524D-03 - ws( 7) = 0.1166390427721532D-02 - ws( 8) = 0.1393125272084815D-02 - ws( 9) = 0.1646994595873000D-02 - ws( 10) = 0.1934650903445921D-02 - ws( 11) = 0.2263570224476480D-02 - ws( 12) = 0.2641470498132461D-02 - ws( 13) = 0.3075053634761648D-02 - ws( 14) = 0.3567967611006575D-02 - ws( 15) = 0.4118439096356697D-02 - ws( 16) = 0.4717553916121235D-02 - ws( 17) = 0.5349083803460636D-02 - ws( 18) = 0.5991236937643826D-02 - ws( 19) = 0.6620101001752985D-02 - ws( 20) = 0.7213850713727585D-02 - ws( 21) = 0.7756286162127792D-02 - ws( 22) = 0.8238522275631932D-02 - ws( 23) = 0.8658615429284321D-02 - ws( 24) = 0.9019826995338980D-02 - ws( 25) = 0.9328498499743144D-02 - ws( 26) = 0.9592232599061487D-02 - ws( 27) = 0.9818646119517856D-02 - ws( 28) = 0.1001466235564640D-01 - ws( 29) = 0.1018618787534203D-01 - ws( 30) = 0.1033800738535597D-01 - ws( 31) = 0.1047374888947986D-01 - ws( 32) = 0.1059583007879561D-01 - ws( 33) = 0.1070538882947283D-01 - ws( 34) = 0.1080146991228522D-01 - ws( 35) = 0.1087707448969503D-01 - ws( 36) = 0.1090596238583581D-01 - ws( 37) = 0.1071138518325568D-01 - ws( 38) = 0.9385076870913526D-02 - ws( 39) = 0.5258986592477379D-02 - endif - - - if( iquad .eq. 119 ) then - idomain = 119 - rk0r = 0.9424777960770379D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 37 - err = 0.8282924016024553D-07 - ierq = 0 - xs( 1) = 0.6829254635890208D-04 - xs( 2) = 0.3644333722051729D-03 - xs( 3) = 0.9128201025876791D-03 - xs( 4) = 0.1732344945935544D-02 - xs( 5) = 0.2842054355695898D-02 - xs( 6) = 0.4261234803930252D-02 - xs( 7) = 0.6010312415588318D-02 - xs( 8) = 0.8111178760143991D-02 - xs( 9) = 0.1058675352648394D-01 - xs( 10) = 0.1345997631665957D-01 - xs( 11) = 0.1675247515611717D-01 - xs( 12) = 0.2048313146716919D-01 - xs( 13) = 0.2466671540643734D-01 - xs( 14) = 0.2931273006366313D-01 - xs( 15) = 0.3442458393471718D-01 - xs( 16) = 0.3999919165382087D-01 - xs( 17) = 0.4602706267078528D-01 - xs( 18) = 0.5249287163896024D-01 - xs( 19) = 0.5937642832163102D-01 - xs( 20) = 0.6665390422936601D-01 - xs( 21) = 0.7429914754691525D-01 - xs( 22) = 0.8228493108387687D-01 - xs( 23) = 0.9058401886333396D-01 - xs( 24) = 0.9916998757957818D-01 - xs( 25) = 0.1080177835850668D+00 - xs( 26) = 0.1171040248940762D+00 - xs( 27) = 0.1264070671833067D+00 - xs( 28) = 0.1359068425252449D+00 - xs( 29) = 0.1455844454009898D+00 - xs( 30) = 0.1554213489039282D+00 - xs( 31) = 0.1653978845399870D+00 - xs( 32) = 0.1754901695463161D+00 - xs( 33) = 0.1856630415319160D+00 - xs( 34) = 0.1958497459473437D+00 - xs( 35) = 0.2059175022260946D+00 - xs( 36) = 0.2156879971593487D+00 - xs( 37) = 0.2250396515431867D+00 - ws( 1) = 0.1758242155227425D-03 - ws( 2) = 0.4192141967578341D-03 - ws( 3) = 0.6807593977642450D-03 - ws( 4) = 0.9614554394943057D-03 - ws( 5) = 0.1261159897159539D-02 - ws( 6) = 0.1580599830640240D-02 - ws( 7) = 0.1921211828164300D-02 - ws( 8) = 0.2284358225737070D-02 - ws( 9) = 0.2670637295001031D-02 - ws( 10) = 0.3079437281651313D-02 - ws( 11) = 0.3508730366834045D-02 - ws( 12) = 0.3955063495751737D-02 - ws( 13) = 0.4413702271019044D-02 - ws( 14) = 0.4878901934554716D-02 - ws( 15) = 0.5344290091844807D-02 - ws( 16) = 0.5803333878686950D-02 - ws( 17) = 0.6249837408493392D-02 - ws( 18) = 0.6678394620966335D-02 - ws( 19) = 0.7084725018140975D-02 - ws( 20) = 0.7465847050037382D-02 - ws( 21) = 0.7820083707485985D-02 - ws( 22) = 0.8146930119630755D-02 - ws( 23) = 0.8446832001085723D-02 - ws( 24) = 0.8720924686848019D-02 - ws( 25) = 0.8970770668351469D-02 - ws( 26) = 0.9198116879834177D-02 - ws( 27) = 0.9404676345190693D-02 - ws( 28) = 0.9591923151144495D-02 - ws( 29) = 0.9760888812602989D-02 - ws( 30) = 0.9911968577796084D-02 - ws( 31) = 0.1004442421296450D-01 - ws( 32) = 0.1015407266987382D-01 - ws( 33) = 0.1022461662456230D-01 - ws( 34) = 0.1017010779059917D-01 - ws( 35) = 0.9568523592332437D-02 - ws( 36) = 0.7384933543593310D-02 - ws( 37) = 0.3271719699575174D-02 - endif - - - if( iquad .eq. 120 ) then - idomain = 120 - rk0r = 0.9424777960770379D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 30 - err = 0.3936080241743527D-07 - ierq = 0 - xs( 1) = 0.1185737865438273D-03 - xs( 2) = 0.6253929568237292D-03 - xs( 3) = 0.1539675106682011D-02 - xs( 4) = 0.2865499799036278D-02 - xs( 5) = 0.4607783937197499D-02 - xs( 6) = 0.6771799704113179D-02 - xs( 7) = 0.9362493863926749D-02 - xs( 8) = 0.1238381490858154D-01 - xs( 9) = 0.1583812281096731D-01 - xs( 10) = 0.1972571792051025D-01 - xs( 11) = 0.2404449940872884D-01 - xs( 12) = 0.2878975258138373D-01 - xs( 13) = 0.3395406254065416D-01 - xs( 14) = 0.3952735057959887D-01 - xs( 15) = 0.4549702427517961D-01 - xs( 16) = 0.5184822101952455D-01 - xs( 17) = 0.5856411153693628D-01 - xs( 18) = 0.6562621852103299D-01 - xs( 19) = 0.7301469678421843D-01 - xs( 20) = 0.8070849312447027D-01 - xs( 21) = 0.8868521346299978D-01 - xs( 22) = 0.9692041108365436D-01 - xs( 23) = 0.1053859568126234D+00 - xs( 24) = 0.1140461812443646D+00 - xs( 25) = 0.1228472915889809D+00 - xs( 26) = 0.1317006384373012D+00 - xs( 27) = 0.1404897896213706D+00 - xs( 28) = 0.1491205343999235D+00 - xs( 29) = 0.1657738619031828D+00 - xs( 30) = 0.1815538754911064D+00 - ws( 1) = 0.3043730231978648D-03 - ws( 2) = 0.7099418045018532D-03 - ws( 3) = 0.1119295732659977D-02 - ws( 4) = 0.1533183529762038D-02 - ws( 5) = 0.1952274892178463D-02 - ws( 6) = 0.2376592307863320D-02 - ws( 7) = 0.2805464137471216D-02 - ws( 8) = 0.3237578835077938D-02 - ws( 9) = 0.3671091690798489D-02 - ws( 10) = 0.4103750645512680D-02 - ws( 11) = 0.4533026050982812D-02 - ws( 12) = 0.4956239769574777D-02 - ws( 13) = 0.5370690612533644D-02 - ws( 14) = 0.5773771764602266D-02 - ws( 15) = 0.6163074849791550D-02 - ws( 16) = 0.6536473336016844D-02 - ws( 17) = 0.6892169791279631D-02 - ws( 18) = 0.7228681951506290D-02 - ws( 19) = 0.7544759605755858D-02 - ws( 20) = 0.7839279676411442D-02 - ws( 21) = 0.8111025705662214D-02 - ws( 22) = 0.8357503100222612D-02 - ws( 23) = 0.8571256140445445D-02 - ws( 24) = 0.8730683938403361D-02 - ws( 25) = 0.8760375692714314D-02 - ws( 26) = 0.8384469122117785D-02 - ws( 27) = 0.6938603831280621D-02 - ws( 28) = 0.3815776638394102D-02 - ws( 29) = -.1602121488876745D-02 - ws( 30) = 0.1092177145689067D-02 - endif - - - if( iquad .eq. 121 ) then - idomain = 121 - rk0r = 0.9424777960770379D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 25 - err = 0.3375898348625802D-07 - ierq = 0 - xs( 1) = 0.1375769576072697D-03 - xs( 2) = 0.7227055001500403D-03 - xs( 3) = 0.1770842993725889D-02 - xs( 4) = 0.3275818305740102D-02 - xs( 5) = 0.5230628388308495D-02 - xs( 6) = 0.7628281443688023D-02 - xs( 7) = 0.1046163443454781D-01 - xs( 8) = 0.1372327021036812D-01 - xs( 9) = 0.1740530980091468D-01 - xs( 10) = 0.2149893599661688D-01 - xs( 11) = 0.2599397890400872D-01 - xs( 12) = 0.3087882107455200D-01 - xs( 13) = 0.3614016432862307D-01 - xs( 14) = 0.4176215610630384D-01 - xs( 15) = 0.4772537312235590D-01 - xs( 16) = 0.5400626901082941D-01 - xs( 17) = 0.6057416044931942D-01 - xs( 18) = 0.6738171177827525D-01 - xs( 19) = 0.7435839194969683D-01 - xs( 20) = 0.8142695848902812D-01 - xs( 21) = 0.8853139078310074D-01 - xs( 22) = 0.1027523661179848D+00 - xs( 23) = 0.1168925794415639D+00 - xs( 24) = 0.1376036077094628D+00 - xs( 25) = 0.1508538764033075D+00 - ws( 1) = 0.3520192665928948D-03 - ws( 2) = 0.8170848116884543D-03 - ws( 3) = 0.1277116503533937D-02 - ws( 4) = 0.1730682655444857D-02 - ws( 5) = 0.2177088880385403D-02 - ws( 6) = 0.2616287499989636D-02 - ws( 7) = 0.3048465639116878D-02 - ws( 8) = 0.3473069542507735D-02 - ws( 9) = 0.3889181037699867D-02 - ws( 10) = 0.4296010043611090D-02 - ws( 11) = 0.4692281135187878D-02 - ws( 12) = 0.5075886022726321D-02 - ws( 13) = 0.5445011364944652D-02 - ws( 14) = 0.5797791757293038D-02 - ws( 15) = 0.6127204569252634D-02 - ws( 16) = 0.6415156049841406D-02 - ws( 17) = 0.6626664619459047D-02 - ws( 18) = 0.6668141036901369D-02 - ws( 19) = 0.6274115817257236D-02 - ws( 20) = 0.4986390897957610D-02 - ws( 21) = 0.2606678240503943D-02 - ws( 22) = -.1061004152435294D-02 - ws( 23) = 0.9520003138817283D-03 - ws( 24) = 0.2035935653866377D-02 - ws( 25) = -.3115119308646458D-02 - endif - - - - return - end -c -c -c -c -c - subroutine hwts3p3(iquad,xs,ws,n) - implicit real *8 (a-h,o-z) - dimension xs(*), ws(*) -c -c 9 digit exponential representation tables for -c exp(ima*rk*sqrt(u^2+v^2)/sqrt(u^2+v^2) -c - -c#include "../fort.54" - - if( iquad .eq. 1 ) then - idomain = 1 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 31 - err = 0.2303601877620770D-10 - ierq = 0 - xs( 1) = 0.2865826039157708D-03 - xs( 2) = 0.1501756598798927D-02 - xs( 3) = 0.3652463451932766D-02 - xs( 4) = 0.6677366960252474D-02 - xs( 5) = 0.1049599197552150D-01 - xs( 6) = 0.1502286406778916D-01 - xs( 7) = 0.2017734698120521D-01 - xs( 8) = 0.2588773428867541D-01 - xs( 9) = 0.3209174698055321D-01 - xs( 10) = 0.3873559888733980D-01 - xs( 11) = 0.4577279225094340D-01 - xs( 12) = 0.5316306335092857D-01 - xs( 13) = 0.6087154504879999D-01 - xs( 14) = 0.6886809930472401D-01 - xs( 15) = 0.7712676310513430D-01 - xs( 16) = 0.8562527121748432D-01 - xs( 17) = 0.9434463863076599D-01 - xs( 18) = 0.1032687972854914D+00 - xs( 19) = 0.1123842871220365D+00 - xs( 20) = 0.1216800036072089D+00 - xs( 21) = 0.1311470052279369D+00 - xs( 22) = 0.1407783868441328D+00 - xs( 23) = 0.1505692283596481D+00 - xs( 24) = 0.1605166371585589D+00 - xs( 25) = 0.1706199205359754D+00 - xs( 26) = 0.1808809458263995D+00 - xs( 27) = 0.1913048318421973D+00 - xs( 28) = 0.2019011906201449D+00 - xs( 29) = 0.2126864833485447D+00 - xs( 30) = 0.2236906393430837D+00 - xs( 31) = 0.2350141172789998D+00 - ws( 1) = 0.7345549491097831D-03 - ws( 2) = 0.1690864736961325D-02 - ws( 3) = 0.2600112681446471D-02 - ws( 4) = 0.3436025904536243D-02 - ws( 5) = 0.4186812929400897D-02 - ws( 6) = 0.4853430392843086D-02 - ws( 7) = 0.5443581440237560D-02 - ws( 8) = 0.5966831508314801D-02 - ws( 9) = 0.6432250421556213D-02 - ws( 10) = 0.6847721406753368D-02 - ws( 11) = 0.7219968510193455D-02 - ws( 12) = 0.7554773482492319D-02 - ws( 13) = 0.7857176057760434D-02 - ws( 14) = 0.8131613207055879D-02 - ws( 15) = 0.8382010483658192D-02 - ws( 16) = 0.8611847658522034D-02 - ws( 17) = 0.8824214390668498D-02 - ws( 18) = 0.9021864002654190D-02 - ws( 19) = 0.9207268668075950D-02 - ws( 20) = 0.9382677655865842D-02 - ws( 21) = 0.9550179761762105D-02 - ws( 22) = 0.9711774201993210D-02 - ws( 23) = 0.9869457552711279D-02 - ws( 24) = 0.1002533869639298D-01 - ws( 25) = 0.1018183163703890D-01 - ws( 26) = 0.1034202331415482D-01 - ws( 27) = 0.1051052219803457D-01 - ws( 28) = 0.1069623391281746D-01 - ws( 29) = 0.1092242953492793D-01 - ws( 30) = 0.1128913307228216D-01 - ws( 31) = 0.1282184540340112D-01 - endif - - - if( iquad .eq. 2 ) then - idomain = 2 - rk0r = 0.1000010000000000D-11 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 31 - err = 0.2013938355966012D-10 - ierq = 0 - xs( 1) = 0.2882012079463528D-03 - xs( 2) = 0.1509527620607123D-02 - xs( 3) = 0.3669001050453846D-02 - xs( 4) = 0.6703294368419271D-02 - xs( 5) = 0.1053091245778160D-01 - xs( 6) = 0.1506611118366644D-01 - xs( 7) = 0.2022830681766615D-01 - xs( 8) = 0.2594590893683640D-01 - xs( 9) = 0.3215672177900239D-01 - xs( 10) = 0.3880699581840599D-01 - xs( 11) = 0.4585023781393911D-01 - xs( 12) = 0.5324617404078220D-01 - xs( 13) = 0.6095992509710743D-01 - xs( 14) = 0.6896134453315678D-01 - xs( 15) = 0.7722446650965985D-01 - xs( 16) = 0.8572702789550249D-01 - xs( 17) = 0.9445004909902173D-01 - xs( 18) = 0.1033774690508671D+00 - xs( 19) = 0.1124958347310562D+00 - xs( 20) = 0.1217940475020183D+00 - xs( 21) = 0.1312631697299505D+00 - xs( 22) = 0.1408962974341699D+00 - xs( 23) = 0.1506885085059601D+00 - xs( 24) = 0.1606369048011656D+00 - xs( 25) = 0.1707407837204749D+00 - xs( 26) = 0.1810019977173383D+00 - xs( 27) = 0.1914256437708187D+00 - xs( 28) = 0.2020213067806103D+00 - xs( 29) = 0.2128054148611641D+00 - xs( 30) = 0.2238078163059962D+00 - xs( 31) = 0.2351293911244079D+00 - ws( 1) = 0.7386129473498250D-03 - ws( 2) = 0.1698720457412764D-02 - ws( 3) = 0.2609445378284488D-02 - ws( 4) = 0.3445309090225277D-02 - ws( 5) = 0.4195478792388777D-02 - ws( 6) = 0.4861430715988766D-02 - ws( 7) = 0.5451027280287275D-02 - ws( 8) = 0.5973829272019788D-02 - ws( 9) = 0.6438858769893196D-02 - ws( 10) = 0.6853957766426323D-02 - ws( 11) = 0.7225827542589889D-02 - ws( 12) = 0.7560242563076181D-02 - ws( 13) = 0.7862244268582022D-02 - ws( 14) = 0.8136274899864212D-02 - ws( 15) = 0.8386265521722119D-02 - ws( 16) = 0.8615700100567650D-02 - ws( 17) = 0.8827670719819424D-02 - ws( 18) = 0.9024931459209332D-02 - ws( 19) = 0.9209953897680163D-02 - ws( 20) = 0.9384985647144586D-02 - ws( 21) = 0.9552113145303444D-02 - ws( 22) = 0.9713332668224696D-02 - ws( 23) = 0.9870637285025208D-02 - ws( 24) = 0.1002613192234703D-01 - ws( 25) = 0.1018222769092990D-01 - ws( 26) = 0.1034200127346654D-01 - ws( 27) = 0.1051005792184963D-01 - ws( 28) = 0.1069529569505813D-01 - ws( 29) = 0.1092098435228123D-01 - ws( 30) = 0.1128722965496990D-01 - ws( 31) = 0.1282021804548320D-01 - endif - - - if( iquad .eq. 3 ) then - idomain = 3 - rk0r = 0.1000010000000000D-11 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999800001D-01 - n = 31 - err = 0.2917002990667229D-10 - ierq = 0 - xs( 1) = 0.2916148502027313D-03 - xs( 2) = 0.1525880576161600D-02 - xs( 3) = 0.3703640495994789D-02 - xs( 4) = 0.6757186356569000D-02 - xs( 5) = 0.1060271952229562D-01 - xs( 6) = 0.1515386202638046D-01 - xs( 7) = 0.2033017104685056D-01 - xs( 8) = 0.2606040223720927D-01 - xs( 9) = 0.3228267491523942D-01 - xs( 10) = 0.3894346463197787D-01 - xs( 11) = 0.4599642284337998D-01 - xs( 12) = 0.5340136612049137D-01 - xs( 13) = 0.6112347352819601D-01 - xs( 14) = 0.6913263983183317D-01 - xs( 15) = 0.7740293086975170D-01 - xs( 16) = 0.8591210891927355D-01 - xs( 17) = 0.9464121438788052D-01 - xs( 18) = 0.1035742005452441D+00 - xs( 19) = 0.1126976223611773D+00 - xs( 20) = 0.1220003819820681D+00 - xs( 21) = 0.1314735343870054D+00 - xs( 22) = 0.1411101588218496D+00 - xs( 23) = 0.1509053052305552D+00 - xs( 24) = 0.1608560347654835D+00 - xs( 25) = 0.1709615860828348D+00 - xs( 26) = 0.1812237282456667D+00 - xs( 27) = 0.1916474499409500D+00 - xs( 28) = 0.2022421253276252D+00 - xs( 29) = 0.2130239140160914D+00 - xs( 30) = 0.2240222383718972D+00 - xs( 31) = 0.2353323883198235D+00 - ws( 1) = 0.7471670928557087D-03 - ws( 2) = 0.1715197558536511D-02 - ws( 3) = 0.2628782269796964D-02 - ws( 4) = 0.3464105548627842D-02 - ws( 5) = 0.4212423342071819D-02 - ws( 6) = 0.4876406442824676D-02 - ws( 7) = 0.5464339515186067D-02 - ws( 8) = 0.5985828424782397D-02 - ws( 9) = 0.6449816527613034D-02 - ws( 10) = 0.6864055006238081D-02 - ws( 11) = 0.7235177400224440D-02 - ws( 12) = 0.7568916311751283D-02 - ws( 13) = 0.7870289969630500D-02 - ws( 14) = 0.8143728164152726D-02 - ws( 15) = 0.8393154603665742D-02 - ws( 16) = 0.8622047685142084D-02 - ws( 17) = 0.8833494068703738D-02 - ws( 18) = 0.9030241867973287D-02 - ws( 19) = 0.9214755914491828D-02 - ws( 20) = 0.9389276144940036D-02 - ws( 21) = 0.9555880240096390D-02 - ws( 22) = 0.9716554553305359D-02 - ws( 23) = 0.9873279785055086D-02 - ws( 24) = 0.1002814628287211D-01 - ws( 25) = 0.1018354797903562D-01 - ws( 26) = 0.1034252870883047D-01 - ws( 27) = 0.1050966283670178D-01 - ws( 28) = 0.1069381647150189D-01 - ws( 29) = 0.1091779952476364D-01 - ws( 30) = 0.1128367262545191D-01 - ws( 31) = 0.1280012654534398D-01 - endif - - - if( iquad .eq. 4 ) then - idomain = 4 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.9999999999800001D-01 - n = 31 - err = 0.3597727496947557D-10 - ierq = 0 - xs( 1) = 0.3016114090892449D-03 - xs( 2) = 0.1574484432016562D-02 - xs( 3) = 0.3808726106237248D-02 - xs( 4) = 0.6923963279646539D-02 - xs( 5) = 0.1082834601215546D-01 - xs( 6) = 0.1543206124289303D-01 - xs( 7) = 0.2065400290916379D-01 - xs( 8) = 0.2642349808206367D-01 - xs( 9) = 0.3267962175858745D-01 - xs( 10) = 0.3936981258580194D-01 - xs( 11) = 0.4644856079164347D-01 - xs( 12) = 0.5387637311478372D-01 - xs( 13) = 0.6161898496299092D-01 - xs( 14) = 0.6964673767919415D-01 - xs( 15) = 0.7793405625701962D-01 - xs( 16) = 0.8645899245335600D-01 - xs( 17) = 0.9520281973454904D-01 - xs( 18) = 0.1041496776532816D+00 - xs( 19) = 0.1132862675596873D+00 - xs( 20) = 0.1226016027278909D+00 - xs( 21) = 0.1320868167514682D+00 - xs( 22) = 0.1417350357530016D+00 - xs( 23) = 0.1515413232696624D+00 - xs( 24) = 0.1615027166587031D+00 - xs( 25) = 0.1716183839551557D+00 - xs( 26) = 0.1818899578673574D+00 - xs( 27) = 0.1923222014076421D+00 - xs( 28) = 0.2029240672297752D+00 - xs( 29) = 0.2137109184900084D+00 - xs( 30) = 0.2247104440859160D+00 - xs( 31) = 0.2360065259048729D+00 - ws( 1) = 0.7723154403746644D-03 - ws( 2) = 0.1765083971527411D-02 - ws( 3) = 0.2689661103369611D-02 - ws( 4) = 0.3525278315800161D-02 - ws( 5) = 0.4268412737628925D-02 - ws( 6) = 0.4925477902076013D-02 - ws( 7) = 0.5506642062518391D-02 - ws( 8) = 0.6022218842038744D-02 - ws( 9) = 0.6481290505796228D-02 - ws( 10) = 0.6891523298891911D-02 - ws( 11) = 0.7259403814755020D-02 - ws( 12) = 0.7590520289868672D-02 - ws( 13) = 0.7889768924781873D-02 - ws( 14) = 0.8161481598713593D-02 - ws( 15) = 0.8409504276864405D-02 - ws( 16) = 0.8637252990181525D-02 - ws( 17) = 0.8847763324368546D-02 - ws( 18) = 0.9043740453916467D-02 - ws( 19) = 0.9227611985971542D-02 - ws( 20) = 0.9401584285693067D-02 - ws( 21) = 0.9567703183909300D-02 - ws( 22) = 0.9727923136676501D-02 - ws( 23) = 0.9884190066220390D-02 - ws( 24) = 0.1003855271522984D-01 - ws( 25) = 0.1019335552217023D-01 - ws( 26) = 0.1035156051972064D-01 - ws( 27) = 0.1051762968199494D-01 - ws( 28) = 0.1070029237434078D-01 - ws( 29) = 0.1092138239382819D-01 - ws( 30) = 0.1128371274557851D-01 - ws( 31) = 0.1277065001427972D-01 - endif - - - if( iquad .eq. 5 ) then - idomain = 5 - rk0r = 0.1000010000000000D-11 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999980000D+00 - n = 31 - err = 0.2776248376345950D-10 - ierq = 0 - xs( 1) = 0.1806875544235477D-03 - xs( 2) = 0.1109633142673881D-02 - xs( 3) = 0.3001859613616219D-02 - xs( 4) = 0.5835017859241411D-02 - xs( 5) = 0.9515285237020561D-02 - xs( 6) = 0.1394140533741423D-01 - xs( 7) = 0.1902137473895671D-01 - xs( 8) = 0.2467592286501742D-01 - xs( 9) = 0.3083769781270094D-01 - xs( 10) = 0.3744939517650971D-01 - xs( 11) = 0.4446199107953289D-01 - xs( 12) = 0.5183335940236106D-01 - xs( 13) = 0.5952723526296496D-01 - xs( 14) = 0.6751241845665194D-01 - xs( 15) = 0.7576213006115534D-01 - xs( 16) = 0.8425347051699357D-01 - xs( 17) = 0.9296695402270805D-01 - xs( 18) = 0.1018861090333190D+00 - xs( 19) = 0.1109971415907671D+00 - xs( 20) = 0.1202886611900868D+00 - xs( 21) = 0.1297514707646787D+00 - xs( 22) = 0.1393784246527567D+00 - xs( 23) = 0.1491643625197674D+00 - xs( 24) = 0.1591061377033340D+00 - xs( 25) = 0.1692027649372541D+00 - xs( 26) = 0.1794557466343898D+00 - xs( 27) = 0.1898697532143420D+00 - xs( 28) = 0.2004535417418195D+00 - xs( 29) = 0.2112224780539038D+00 - xs( 30) = 0.2222040238938797D+00 - xs( 31) = 0.2334664211506504D+00 - ws( 1) = 0.4912013738708447D-03 - ws( 2) = 0.1401509503599836D-02 - ws( 3) = 0.2375972802202439D-02 - ws( 4) = 0.3273897428049851D-02 - ws( 5) = 0.4069537327070624D-02 - ws( 6) = 0.4767327921370681D-02 - ws( 7) = 0.5379419456434305D-02 - ws( 8) = 0.5918485009186795D-02 - ws( 9) = 0.6395544062137187D-02 - ws( 10) = 0.6819702886672838D-02 - ws( 11) = 0.7198484893449735D-02 - ws( 12) = 0.7538220672429171D-02 - ws( 13) = 0.7844341621690220D-02 - ws( 14) = 0.8121570594213664D-02 - ws( 15) = 0.8374043772772474D-02 - ws( 16) = 0.8605396189248004D-02 - ws( 17) = 0.8818831259721731D-02 - ws( 18) = 0.9017184551773465D-02 - ws( 19) = 0.9202986227911656D-02 - ws( 20) = 0.9378524090468719D-02 - ws( 21) = 0.9545909444004196D-02 - ws( 22) = 0.9707150098104430D-02 - ws( 23) = 0.9864234526879623D-02 - ws( 24) = 0.1001924876812932D-01 - ws( 25) = 0.1017457328715998D-01 - ws( 26) = 0.1033316414415999D-01 - ws( 27) = 0.1049961105686218D-01 - ws( 28) = 0.1068262686091170D-01 - ws( 29) = 0.1090347874894812D-01 - ws( 30) = 0.1127136343511475D-01 - ws( 31) = 0.1271076939415867D-01 - endif - - - if( iquad .eq. 6 ) then - idomain = 6 - rk0r = 0.1000010000000000D-11 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999980000D+00 - n = 30 - err = 0.1474009819624352D-10 - ierq = 0 - xs( 1) = 0.3384393081178811D-03 - xs( 2) = 0.1759345366850531D-02 - xs( 3) = 0.4228981614413572D-02 - xs( 4) = 0.7632341305966242D-02 - xs( 5) = 0.1184944623562672D-01 - xs( 6) = 0.1677170497568323D-01 - xs( 7) = 0.2230660299702004D-01 - xs( 8) = 0.2837684487677400D-01 - xs( 9) = 0.3491786251693164D-01 - xs( 10) = 0.4187537025188014D-01 - xs( 11) = 0.4920342547229464D-01 - xs( 12) = 0.5686297839384648D-01 - xs( 13) = 0.6482077939249069D-01 - xs( 14) = 0.7304852635112719D-01 - xs( 15) = 0.8152217514284417D-01 - xs( 16) = 0.9022136957833454D-01 - xs( 17) = 0.9912896750876507D-01 - xs( 18) = 0.1082306506335008D+00 - xs( 19) = 0.1175146112340122D+00 - xs( 20) = 0.1269713131668901D+00 - xs( 21) = 0.1365933274446574D+00 - xs( 22) = 0.1463752469043419D+00 - xs( 23) = 0.1563137020069949D+00 - xs( 24) = 0.1664074870198235D+00 - xs( 25) = 0.1766578560735550D+00 - xs( 26) = 0.1870692750030136D+00 - xs( 27) = 0.1976498910378887D+00 - xs( 28) = 0.2084147698436308D+00 - xs( 29) = 0.2193918584002766D+00 - xs( 30) = 0.2306090758301491D+00 - ws( 1) = 0.8657064610134624D-03 - ws( 2) = 0.1962663914958256D-02 - ws( 3) = 0.2956883069043221D-02 - ws( 4) = 0.3829582213249472D-02 - ws( 5) = 0.4586466791926361D-02 - ws( 6) = 0.5242654983843604D-02 - ws( 7) = 0.5814303542418440D-02 - ws( 8) = 0.6315460415843166D-02 - ws( 9) = 0.6757559408671602D-02 - ws( 10) = 0.7149822775031285D-02 - ws( 11) = 0.7499797294052975D-02 - ws( 12) = 0.7813780979404425D-02 - ws( 13) = 0.8097115397263406D-02 - ws( 14) = 0.8354380626314436D-02 - ws( 15) = 0.8589532160976885D-02 - ws( 16) = 0.8806006267353554D-02 - ws( 17) = 0.9006808644853101D-02 - ws( 18) = 0.9194594241978802D-02 - ws( 19) = 0.9371742182747623D-02 - ws( 20) = 0.9540429454631301D-02 - ws( 21) = 0.9702711160417999D-02 - ws( 22) = 0.9860604485215361D-02 - ws( 23) = 0.1001620726571570D-01 - ws( 24) = 0.1017193000982068D-01 - ws( 25) = 0.1033063934767150D-01 - ws( 26) = 0.1049705414537469D-01 - ws( 27) = 0.1068029102480196D-01 - ws( 28) = 0.1089849546485212D-01 - ws( 29) = 0.1128519097870355D-01 - ws( 30) = 0.1260677640751204D-01 - endif - - - if( iquad .eq. 7 ) then - idomain = 7 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5707963267928966D+00 - n = 30 - err = 0.9085795279844273D-11 - ierq = 0 - xs( 1) = 0.3340217928260356D-03 - xs( 2) = 0.1738802199902810D-02 - xs( 3) = 0.4187954687273276D-02 - xs( 4) = 0.7574147797804823D-02 - xs( 5) = 0.1178112635221497D-01 - xs( 6) = 0.1670034728495449D-01 - xs( 7) = 0.2223739575376293D-01 - xs( 8) = 0.2831255724401064D-01 - xs( 9) = 0.3485910078619375D-01 - xs( 10) = 0.4182112380674506D-01 - xs( 11) = 0.4915163407885650D-01 - xs( 12) = 0.5681100270735235D-01 - xs( 13) = 0.6476574233811568D-01 - xs( 14) = 0.7298753460747863D-01 - xs( 15) = 0.8145244522029714D-01 - xs( 16) = 0.9014028457153975D-01 - xs( 17) = 0.9903408631134847D-01 - xs( 18) = 0.1081196854104573D+00 - xs( 19) = 0.1173853831659828D+00 - xs( 20) = 0.1268216912758111D+00 - xs( 21) = 0.1364211505170988D+00 - xs( 22) = 0.1461782230317182D+00 - xs( 23) = 0.1560892745121155D+00 - xs( 24) = 0.1661526397934145D+00 - xs( 25) = 0.1763687981789890D+00 - xs( 26) = 0.1867409485725240D+00 - xs( 27) = 0.1972748379480981D+00 - xs( 28) = 0.2079806036883584D+00 - xs( 29) = 0.2188717118155392D+00 - xs( 30) = 0.2298616324809458D+00 - ws( 1) = 0.8547117607214873D-03 - ws( 2) = 0.1942855054759022D-02 - ws( 3) = 0.2937065985290367D-02 - ws( 4) = 0.3815673807822258D-02 - ws( 5) = 0.4580097724687723D-02 - ws( 6) = 0.5242607474192206D-02 - ws( 7) = 0.5818236416835980D-02 - ws( 8) = 0.6321001996990620D-02 - ws( 9) = 0.6762800143623621D-02 - ws( 10) = 0.7153439483650595D-02 - ws( 11) = 0.7500996414726191D-02 - ws( 12) = 0.7812175681542682D-02 - ws( 13) = 0.8092596843725750D-02 - ws( 14) = 0.8347009252772385D-02 - ws( 15) = 0.8579455725653634D-02 - ws( 16) = 0.8793402362211097D-02 - ws( 17) = 0.8991846089711661D-02 - ws( 18) = 0.9177407259305390D-02 - ws( 19) = 0.9352411890785148D-02 - ws( 20) = 0.9518967756197259D-02 - ws( 21) = 0.9679042723450061D-02 - ws( 22) = 0.9834539644702144D-02 - ws( 23) = 0.9987397647299865D-02 - ws( 24) = 0.1013980411393839D-01 - ws( 25) = 0.1029423551590475D-01 - ws( 26) = 0.1045474103239906D-01 - ws( 27) = 0.1062948326064027D-01 - ws( 28) = 0.1083209533795848D-01 - ws( 29) = 0.1118520655541814D-01 - ws( 30) = 0.1218109164362829D-01 - endif - - - if( iquad .eq. 8 ) then - idomain = 8 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1570796326792897D+01 - n = 29 - err = 0.6419056817282430D-10 - ierq = 0 - xs( 1) = 0.3296344440480620D-03 - xs( 2) = 0.1719855334684575D-02 - xs( 3) = 0.4156782670546586D-02 - xs( 4) = 0.7547986060844491D-02 - xs( 5) = 0.1178706224096548D-01 - xs( 6) = 0.1676842234472137D-01 - xs( 7) = 0.2239535304747179D-01 - xs( 8) = 0.2858313756183557D-01 - xs( 9) = 0.3525936494296270D-01 - xs( 10) = 0.4236295642724406D-01 - xs( 11) = 0.4984275224219389D-01 - xs( 12) = 0.5765605728764969D-01 - xs( 13) = 0.6576731143707484D-01 - xs( 14) = 0.7414694064980247D-01 - xs( 15) = 0.8277039652997915D-01 - xs( 16) = 0.9161737217901363D-01 - xs( 17) = 0.1006711759051062D+00 - xs( 18) = 0.1099182444817139D+00 - xs( 19) = 0.1193477830162302D+00 - xs( 20) = 0.1289515240977508D+00 - xs( 21) = 0.1387236008158073D+00 - xs( 22) = 0.1486605849899794D+00 - xs( 23) = 0.1587616884590961D+00 - xs( 24) = 0.1690290873297239D+00 - xs( 25) = 0.1794697616568903D+00 - xs( 26) = 0.1900951995018253D+00 - xs( 27) = 0.2009272975494060D+00 - xs( 28) = 0.2120454311094084D+00 - xs( 29) = 0.2238307382625823D+00 - ws( 1) = 0.8439611623276199D-03 - ws( 2) = 0.1926827472774333D-02 - ws( 3) = 0.2931249323945770D-02 - ws( 4) = 0.3833178019674942D-02 - ws( 5) = 0.4627246741148270D-02 - ws( 6) = 0.5319308027859729D-02 - ws( 7) = 0.5920432370389949D-02 - ws( 8) = 0.6443086286479851D-02 - ws( 9) = 0.6899213098149165D-02 - ws( 10) = 0.7299467829282674D-02 - ws( 11) = 0.7653030225465857D-02 - ws( 12) = 0.7967672338421775D-02 - ws( 13) = 0.8249922934272513D-02 - ws( 14) = 0.8505257135525024D-02 - ws( 15) = 0.8738280621467412D-02 - ws( 16) = 0.8952896946767833D-02 - ws( 17) = 0.9152456335743105D-02 - ws( 18) = 0.9339887453591354D-02 - ws( 19) = 0.9517816604009658D-02 - ws( 20) = 0.9688696694382234D-02 - ws( 21) = 0.9854921864230723D-02 - ws( 22) = 0.1001896129661289D-01 - ws( 23) = 0.1018389862350328D-01 - ws( 24) = 0.1035297136426274D-01 - ws( 25) = 0.1053181427948214D-01 - ws( 26) = 0.1073577421162434D-01 - ws( 27) = 0.1095690800238627D-01 - ws( 28) = 0.1141329109088436D-01 - ws( 29) = 0.1481470742514064D-01 - endif - - - if( iquad .eq. 9 ) then - idomain = 9 - rk0r = 0.1000010000000000D-11 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 29 - err = 0.3898038271150069D-10 - ierq = 0 - xs( 1) = 0.2803891581825451D-03 - xs( 2) = 0.1468949412875695D-02 - xs( 3) = 0.3574245818616803D-02 - xs( 4) = 0.6544901792642425D-02 - xs( 5) = 0.1031509696044421D-01 - xs( 6) = 0.1481180080289287D-01 - xs( 7) = 0.1996072590052667D-01 - xs( 8) = 0.2569064764126730D-01 - xs( 9) = 0.3193605419477387D-01 - xs( 10) = 0.3863842305407112D-01 - xs( 11) = 0.4574653083014291D-01 - xs( 12) = 0.5321616988410915D-01 - xs( 13) = 0.6100955526822497D-01 - xs( 14) = 0.6909461144605437D-01 - xs( 15) = 0.7744425289672881D-01 - xs( 16) = 0.8603572046547034D-01 - xs( 17) = 0.9485000233390392D-01 - xs( 18) = 0.1038713494763406D+00 - xs( 19) = 0.1130868890143910D+00 - xs( 20) = 0.1224863317133826D+00 - xs( 21) = 0.1320617656698869D+00 - xs( 22) = 0.1418075933584156D+00 - xs( 23) = 0.1517204991983726D+00 - xs( 24) = 0.1617995202596541D+00 - xs( 25) = 0.1720474238430325D+00 - xs( 26) = 0.1824673972881072D+00 - xs( 27) = 0.1930727787627274D+00 - xs( 28) = 0.2038840928033464D+00 - xs( 29) = 0.2146626664333431D+00 - ws( 1) = 0.7185979431231677D-03 - ws( 2) = 0.1653878420031285D-02 - ws( 3) = 0.2548002919712136D-02 - ws( 4) = 0.3382218916804479D-02 - ws( 5) = 0.4145899138261115D-02 - ws( 6) = 0.4835055316417714D-02 - ws( 7) = 0.5450880746126137D-02 - ws( 8) = 0.5998023845540277D-02 - ws( 9) = 0.6483031256437920D-02 - ws( 10) = 0.6913174626682101D-02 - ws( 11) = 0.7295683313402125D-02 - ws( 12) = 0.7637309462340958D-02 - ws( 13) = 0.7944127519785876D-02 - ws( 14) = 0.8221481740551984D-02 - ws( 15) = 0.8474017834692335D-02 - ws( 16) = 0.8705757064644307D-02 - ws( 17) = 0.8920189184117912D-02 - ws( 18) = 0.9120368170513248D-02 - ws( 19) = 0.9309006062737596D-02 - ws( 20) = 0.9488587095875845D-02 - ws( 21) = 0.9661431891021897D-02 - ws( 22) = 0.9829834530231446D-02 - ws( 23) = 0.9996566618638382D-02 - ws( 24) = 0.1016382930224001D-01 - ws( 25) = 0.1033800013071778D-01 - ws( 26) = 0.1053094459024742D-01 - ws( 27) = 0.1074248108234175D-01 - ws( 28) = 0.1126942565544234D-01 - ws( 29) = 0.1181859384707582D-01 - endif - - - if( iquad .eq. 10 ) then - idomain = 10 - rk0r = 0.1000010000000000D-11 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 27 - err = 0.4229454535590209D-10 - ierq = 0 - xs( 1) = 0.2343095293189091D-03 - xs( 2) = 0.1230205188271482D-02 - xs( 3) = 0.3004532294515526D-02 - xs( 4) = 0.5529513921982193D-02 - xs( 5) = 0.8767695079805782D-02 - xs( 6) = 0.1267503664825548D-01 - xs( 7) = 0.1720374787522541D-01 - xs( 8) = 0.2230479418347421D-01 - xs( 9) = 0.2792991456501418D-01 - xs( 10) = 0.3403309442166645D-01 - xs( 11) = 0.4057152944693525D-01 - xs( 12) = 0.4750616628174374D-01 - xs( 13) = 0.5480192276245229D-01 - xs( 14) = 0.6242768623993209D-01 - xs( 15) = 0.7035617271041303D-01 - xs( 16) = 0.7856371227496393D-01 - xs( 17) = 0.8703001317747093D-01 - xs( 18) = 0.9573792853312527D-01 - xs( 19) = 0.1046732657858092D+00 - xs( 20) = 0.1138247084715538D+00 - xs( 21) = 0.1231836246882211D+00 - xs( 22) = 0.1327443515939870D+00 - xs( 23) = 0.1425050900245044D+00 - xs( 24) = 0.1524634030579116D+00 - xs( 25) = 0.1626336825558407D+00 - xs( 26) = 0.1730150595828907D+00 - xs( 27) = 0.1833804706252162D+00 - ws( 1) = 0.6008127917348132D-03 - ws( 2) = 0.1388752961658580D-02 - ws( 3) = 0.2155201104048343D-02 - ws( 4) = 0.2888470235324899D-02 - ws( 5) = 0.3580504423103597D-02 - ws( 6) = 0.4226171378690418D-02 - ws( 7) = 0.4823044905383261D-02 - ws( 8) = 0.5370979761689696D-02 - ws( 9) = 0.5871576062773164D-02 - ws( 10) = 0.6327640860860539D-02 - ws( 11) = 0.6742716882836984D-02 - ws( 12) = 0.7120710133329775D-02 - ws( 13) = 0.7465620282895028D-02 - ws( 14) = 0.7781363631579354D-02 - ws( 15) = 0.8071670911698714D-02 - ws( 16) = 0.8340036947336526D-02 - ws( 17) = 0.8589721608930933D-02 - ws( 18) = 0.8823793401233730D-02 - ws( 19) = 0.9045108517326785D-02 - ws( 20) = 0.9256584728277784D-02 - ws( 21) = 0.9461417051298682D-02 - ws( 22) = 0.9661896986726976D-02 - ws( 23) = 0.9867053926633094D-02 - ws( 24) = 0.1008275825190105D-01 - ws( 25) = 0.1032051558808247D-01 - ws( 26) = 0.1089383038922932D-01 - ws( 27) = 0.1134236678696409D-01 - endif - - - if( iquad .eq. 11 ) then - idomain = 11 - rk0r = 0.1000010000000000D-11 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 25 - err = 0.2427916387714277D-10 - ierq = 0 - xs( 1) = 0.1985585985833702D-03 - xs( 2) = 0.1043773655770487D-02 - xs( 3) = 0.2554660759482144D-02 - xs( 4) = 0.4715497900136420D-02 - xs( 5) = 0.7504371495516511D-02 - xs( 6) = 0.1089461311319152D-01 - xs( 7) = 0.1485611537650728D-01 - xs( 8) = 0.1935662506571287D-01 - xs( 9) = 0.2436293318375194D-01 - xs( 10) = 0.2984190064981777D-01 - xs( 11) = 0.3576128984866474D-01 - xs( 12) = 0.4209039965286472D-01 - xs( 13) = 0.4880051934818007D-01 - xs( 14) = 0.5586523186623911D-01 - xs( 15) = 0.6326060414830341D-01 - xs( 16) = 0.7096528215887329D-01 - xs( 17) = 0.7896055354815834D-01 - xs( 18) = 0.8723044833944429D-01 - xs( 19) = 0.9576160991894729D-01 - xs( 20) = 0.1045437046435274D+00 - xs( 21) = 0.1135702624688476D+00 - xs( 22) = 0.1228336908732573D+00 - xs( 23) = 0.1323438867196377D+00 - xs( 24) = 0.1420901081937320D+00 - xs( 25) = 0.1518386572634866D+00 - ws( 1) = 0.5092879512894348D-03 - ws( 2) = 0.1180059217835857D-02 - ws( 3) = 0.1839053046096220D-02 - ws( 4) = 0.2478947399968888D-02 - ws( 5) = 0.3094332981003618D-02 - ws( 6) = 0.3681110582192063D-02 - ws( 7) = 0.4236498445711145D-02 - ws( 8) = 0.4758969024955398D-02 - ws( 9) = 0.5248110322562222D-02 - ws( 10) = 0.5704441681447064D-02 - ws( 11) = 0.6129213633105659D-02 - ws( 12) = 0.6524217768753521D-02 - ws( 13) = 0.6891621800872913D-02 - ws( 14) = 0.7233827117579232D-02 - ws( 15) = 0.7553383306210623D-02 - ws( 16) = 0.7852945639166300D-02 - ws( 17) = 0.8135134300278469D-02 - ws( 18) = 0.8402857566777965D-02 - ws( 19) = 0.8659390992357961D-02 - ws( 20) = 0.8906957079326207D-02 - ws( 21) = 0.9155639968081742D-02 - ws( 22) = 0.9410032942068498D-02 - ws( 23) = 0.9685242216350812D-02 - ws( 24) = 0.1029926663015245D-01 - ws( 25) = 0.1075515261517791D-01 - endif - - - if( iquad .eq. 12 ) then - idomain = 12 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 31 - err = 0.2427064006811811D-10 - ierq = 0 - xs( 1) = 0.2811748903251862D-03 - xs( 2) = 0.1475131322154226D-02 - xs( 3) = 0.3593896878379453D-02 - xs( 4) = 0.6582722289682704D-02 - xs( 5) = 0.1036568155659135D-01 - xs( 6) = 0.1485946259730118D-01 - xs( 7) = 0.1998407334287660D-01 - xs( 8) = 0.2566776526326880D-01 - xs( 9) = 0.3184799346782875D-01 - xs( 10) = 0.3847067211657314D-01 - xs( 11) = 0.4548902703723844D-01 - xs( 12) = 0.5286254955285255D-01 - xs( 13) = 0.6055615504729474D-01 - xs( 14) = 0.6853951114239913D-01 - xs( 15) = 0.7678648099826393D-01 - xs( 16) = 0.8527464456267797D-01 - xs( 17) = 0.9398487985008309D-01 - xs( 18) = 0.1029009984269387D+00 - xs( 19) = 0.1120094350059583D+00 - xs( 20) = 0.1212989933030280D+00 - xs( 21) = 0.1307606516691668D+00 - xs( 22) = 0.1403874345143610D+00 - xs( 23) = 0.1501743586713844D+00 - xs( 24) = 0.1601184727310800D+00 - xs( 25) = 0.1702190277155973D+00 - xs( 26) = 0.1804778288063222D+00 - xs( 27) = 0.1908999130469002D+00 - xs( 28) = 0.2014948011444317D+00 - xs( 29) = 0.2122787038891948D+00 - xs( 30) = 0.2232809848391308D+00 - xs( 31) = 0.2345985638675682D+00 - ws( 1) = 0.7209049995817480D-03 - ws( 2) = 0.1663117428356580D-02 - ws( 3) = 0.2565125808668441D-02 - ws( 4) = 0.3399615949682674D-02 - ws( 5) = 0.4152234143477954D-02 - ws( 6) = 0.4821920096055591D-02 - ws( 7) = 0.5415333049595492D-02 - ws( 8) = 0.5941641999943931D-02 - ws( 9) = 0.6409820251201953D-02 - ws( 10) = 0.6827758932760590D-02 - ws( 11) = 0.7202213361036372D-02 - ws( 12) = 0.7538995291741571D-02 - ws( 13) = 0.7843169493953363D-02 - ws( 14) = 0.8119194502194825D-02 - ws( 15) = 0.8371015516868724D-02 - ws( 16) = 0.8602130724102462D-02 - ws( 17) = 0.8815647042074290D-02 - ws( 18) = 0.9014333706123735D-02 - ws( 19) = 0.9200677216067895D-02 - ws( 20) = 0.9376939467224413D-02 - ws( 21) = 0.9545219956325705D-02 - ws( 22) = 0.9707526342745396D-02 - ws( 23) = 0.9865861776884397D-02 - ws( 24) = 0.1002233806989799D-01 - ws( 25) = 0.1017936977916481D-01 - ws( 26) = 0.1034004682498735D-01 - ws( 27) = 0.1050892086939369D-01 - ws( 28) = 0.1069493125243153D-01 - ws( 29) = 0.1092125207331508D-01 - ws( 30) = 0.1128705610489488D-01 - ws( 31) = 0.1281412385408936D-01 - endif - - - if( iquad .eq. 13 ) then - idomain = 13 - rk0r = 0.2000000000100001D-01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 31 - err = 0.2158260966065155D-10 - ierq = 0 - xs( 1) = 0.2835687954016939D-03 - xs( 2) = 0.1486836548386108D-02 - xs( 3) = 0.3619493206137951D-02 - xs( 4) = 0.6624089496757535D-02 - xs( 5) = 0.1042306281566836D-01 - xs( 6) = 0.1493240726167317D-01 - xs( 7) = 0.2007190994546349D-01 - xs( 8) = 0.2576975444889108D-01 - xs( 9) = 0.3196334968750023D-01 - xs( 10) = 0.3859855772816607D-01 - xs( 11) = 0.4562855523561897D-01 - xs( 12) = 0.5301279996245168D-01 - xs( 13) = 0.6071619548183460D-01 - xs( 14) = 0.6870841887840742D-01 - xs( 15) = 0.7696335972241730D-01 - xs( 16) = 0.8545863578426105D-01 - xs( 17) = 0.9417516917439121D-01 - xs( 18) = 0.1030968177793243D+00 - xs( 19) = 0.1122100620222805D+00 - xs( 20) = 0.1215037489718903D+00 - xs( 21) = 0.1309688971194821D+00 - xs( 22) = 0.1405985675643680D+00 - xs( 23) = 0.1503878108453977D+00 - xs( 24) = 0.1603337074300742D+00 - xs( 25) = 0.1704355397123087D+00 - xs( 26) = 0.1806951468912913D+00 - xs( 27) = 0.1911176107318562D+00 - xs( 28) = 0.2017125080288570D+00 - xs( 29) = 0.2124961965561257D+00 - xs( 30) = 0.2234983828061582D+00 - xs( 31) = 0.2348183768550705D+00 - ws( 1) = 0.7269350889485550D-03 - ws( 2) = 0.1675228279272498D-02 - ws( 3) = 0.2580328796613748D-02 - ws( 4) = 0.3415686801345888D-02 - ws( 5) = 0.4168084654417368D-02 - ws( 6) = 0.4837164860625693D-02 - ws( 7) = 0.5429862788579125D-02 - ws( 8) = 0.5955410027758176D-02 - ws( 9) = 0.6422777390805582D-02 - ws( 10) = 0.6839852152466155D-02 - ws( 11) = 0.7213399619367658D-02 - ws( 12) = 0.7549251503199943D-02 - ws( 13) = 0.7852494988016259D-02 - ws( 14) = 0.8127608108523251D-02 - ws( 15) = 0.8378550277016297D-02 - ws( 16) = 0.8608828374876424D-02 - ws( 17) = 0.8821553362041044D-02 - ws( 18) = 0.9019495083734196D-02 - ws( 19) = 0.9205138402417481D-02 - ws( 20) = 0.9380742268690435D-02 - ws( 21) = 0.9548402746824256D-02 - ws( 22) = 0.9710124263377615D-02 - ws( 23) = 0.9867907280876451D-02 - ws( 24) = 0.1002386188485090D-01 - ws( 25) = 0.1018040359333712D-01 - ws( 26) = 0.1034062438788810D-01 - ws( 27) = 0.1050910209926256D-01 - ws( 28) = 0.1069477119326032D-01 - ws( 29) = 0.1092093838179664D-01 - ws( 30) = 0.1128707578167292D-01 - ws( 31) = 0.1281802299419470D-01 - endif - - - if( iquad .eq. 14 ) then - idomain = 14 - rk0r = 0.2000000000100001D-01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999800001D-01 - n = 31 - err = 0.2267063487206433D-10 - ierq = 0 - xs( 1) = 0.2861173062928971D-03 - xs( 2) = 0.1499152923446561D-02 - xs( 3) = 0.3645950778864207D-02 - xs( 4) = 0.6665985864717118D-02 - xs( 5) = 0.1048002219100238D-01 - xs( 6) = 0.1500353163471746D-01 - xs( 7) = 0.2015630566653758D-01 - xs( 8) = 0.2586665753469146D-01 - xs( 9) = 0.3207209384238104D-01 - xs( 10) = 0.3871851491398360D-01 - xs( 11) = 0.4575909490446323D-01 - xs( 12) = 0.5315327275639146D-01 - xs( 13) = 0.6086593357020369D-01 - xs( 14) = 0.6886674385883751D-01 - xs( 15) = 0.7712959181978266D-01 - xs( 16) = 0.8563210113429810D-01 - xs( 17) = 0.9435520408690895D-01 - xs( 18) = 0.1032827700031634D+00 - xs( 19) = 0.1124012894788335D+00 - xs( 20) = 0.1216996165031291D+00 - xs( 21) = 0.1311687716898424D+00 - xs( 22) = 0.1408018121853535D+00 - xs( 23) = 0.1505937771856735D+00 - xs( 24) = 0.1605417277191970D+00 - xs( 25) = 0.1706449147763384D+00 - xs( 26) = 0.1809051324168018D+00 - xs( 27) = 0.1913274094532469D+00 - xs( 28) = 0.2019211992118875D+00 - xs( 29) = 0.2127027612642846D+00 - xs( 30) = 0.2237017033021411D+00 - xs( 31) = 0.2350131713496337D+00 - ws( 1) = 0.7333355175607730D-03 - ws( 2) = 0.1687782432137818D-02 - ws( 3) = 0.2595523522616427D-02 - ws( 4) = 0.3431098645336040D-02 - ws( 5) = 0.4182723414441088D-02 - ws( 6) = 0.4850863360055393D-02 - ws( 7) = 0.5442730899660305D-02 - ws( 8) = 0.5967573188214930D-02 - ws( 9) = 0.6434302345685872D-02 - ws( 10) = 0.6850752406609484D-02 - ws( 11) = 0.7223660919113273D-02 - ws( 12) = 0.7558853256693939D-02 - ws( 13) = 0.7861422047302419D-02 - ws( 14) = 0.8135854641190796D-02 - ws( 15) = 0.8386119015323551D-02 - ws( 16) = 0.8615727887591733D-02 - ws( 17) = 0.8827794921843633D-02 - ws( 18) = 0.9025089866541970D-02 - ws( 19) = 0.9210095256818377D-02 - ws( 20) = 0.9385065940518966D-02 - ws( 21) = 0.9552092453965403D-02 - ws( 22) = 0.9713172754311161D-02 - ws( 23) = 0.9870299028770802D-02 - ws( 24) = 0.1002557235701944D-01 - ws( 25) = 0.1018139909377100D-01 - ws( 26) = 0.1034084362676152D-01 - ws( 27) = 0.1050848550262768D-01 - ws( 28) = 0.1069325719743357D-01 - ws( 29) = 0.1091805550435128D-01 - ws( 30) = 0.1128498844854558D-01 - ws( 31) = 0.1280207548503803D-01 - endif - - - if( iquad .eq. 15 ) then - idomain = 15 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.9999999999800001D-01 - n = 31 - err = 0.2065227735933534D-10 - ierq = 0 - xs( 1) = 0.2923128039571712D-03 - xs( 2) = 0.1529160032033977D-02 - xs( 3) = 0.3710493630732118D-02 - xs( 4) = 0.6767977573092868D-02 - xs( 5) = 0.1061777087750675D-01 - xs( 6) = 0.1517369232010300D-01 - xs( 7) = 0.2035546492333674D-01 - xs( 8) = 0.2609189408728101D-01 - xs( 9) = 0.3232104150564588D-01 - xs( 10) = 0.3898925665019247D-01 - xs( 11) = 0.4605003740078598D-01 - xs( 12) = 0.5346305038069688D-01 - xs( 13) = 0.6119334636016330D-01 - xs( 14) = 0.6921072014544419D-01 - xs( 15) = 0.7748916503644743D-01 - xs( 16) = 0.8600639330003040D-01 - xs( 17) = 0.9474341157296140D-01 - xs( 18) = 0.1036841493707856D+00 - xs( 19) = 0.1128151423769111D+00 - xs( 20) = 0.1221252731003343D+00 - xs( 21) = 0.1316055722639551D+00 - xs( 22) = 0.1412490859978671D+00 - xs( 23) = 0.1510508177141812D+00 - xs( 24) = 0.1610077626750434D+00 - xs( 25) = 0.1711190664931934D+00 - xs( 26) = 0.1813863617117024D+00 - xs( 27) = 0.1918144424938411D+00 - xs( 28) = 0.2024123460057620D+00 - xs( 29) = 0.2131956814882707D+00 - xs( 30) = 0.2241927004864862D+00 - xs( 31) = 0.2354906064084990D+00 - ws( 1) = 0.7489057595630934D-03 - ws( 2) = 0.1718435304702912D-02 - ws( 3) = 0.2632585379632385D-02 - ws( 4) = 0.3468179113581554D-02 - ws( 5) = 0.4216907340952320D-02 - ws( 6) = 0.4881509098565460D-02 - ws( 7) = 0.5470172030015662D-02 - ws( 8) = 0.5992381545572617D-02 - ws( 9) = 0.6456991165480875D-02 - ws( 10) = 0.6871705102755834D-02 - ws( 11) = 0.7243147095893732D-02 - ws( 12) = 0.7577064537694686D-02 - ws( 13) = 0.7878502251697141D-02 - ws( 14) = 0.8151918843590953D-02 - ws( 15) = 0.8401263403753717D-02 - ws( 16) = 0.8630033790608397D-02 - ws( 17) = 0.8841329708070890D-02 - ws( 18) = 0.9037906377109843D-02 - ws( 19) = 0.9222230593601008D-02 - ws( 20) = 0.9396539741665376D-02 - ws( 21) = 0.9562904772355959D-02 - ws( 22) = 0.9723301135162487D-02 - ws( 23) = 0.9879693350434544D-02 - ws( 24) = 0.1003414896823826D-01 - ws( 25) = 0.1018903214414519D-01 - ws( 26) = 0.1034732979955947D-01 - ws( 27) = 0.1051355646555625D-01 - ws( 28) = 0.1069647402052565D-01 - ws( 29) = 0.1091816132230606D-01 - ws( 30) = 0.1128219557778081D-01 - ws( 31) = 0.1277650931647740D-01 - endif - - - if( iquad .eq. 16 ) then - idomain = 16 - rk0r = 0.2000000000100001D-01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999980000D+00 - n = 31 - err = 0.2372001095084975D-10 - ierq = 0 - xs( 1) = 0.2146254831416836D-03 - xs( 2) = 0.1197144049478179D-02 - xs( 3) = 0.3085204297935457D-02 - xs( 4) = 0.5877801363922464D-02 - xs( 5) = 0.9503227229624024D-02 - xs( 6) = 0.1387144178127073D-01 - xs( 7) = 0.1889553796529085D-01 - xs( 8) = 0.2449829332103804D-01 - xs( 9) = 0.3061296361744857D-01 - xs( 10) = 0.3718220634059122D-01 - xs( 11) = 0.4415668655810703D-01 - xs( 12) = 0.5149386459567691D-01 - xs( 13) = 0.5915703836074932D-01 - xs( 14) = 0.6711458463364524D-01 - xs( 15) = 0.7533933416925181D-01 - xs( 16) = 0.8380803813680740D-01 - xs( 17) = 0.9250090504085992D-01 - xs( 18) = 0.1014012002833178D+00 - xs( 19) = 0.1104949065980192D+00 - xs( 20) = 0.1197704460324120D+00 - xs( 21) = 0.1292184657165303D+00 - xs( 22) = 0.1388316915433415D+00 - xs( 23) = 0.1486048577889346D+00 - xs( 24) = 0.1585347311603309D+00 - xs( 25) = 0.1686202530137556D+00 - xs( 26) = 0.1788628587770973D+00 - xs( 27) = 0.1892671443387098D+00 - xs( 28) = 0.1998417517290101D+00 - xs( 29) = 0.2106018411926239D+00 - xs( 30) = 0.2215737724587944D+00 - xs( 31) = 0.2328175559681848D+00 - ws( 1) = 0.5609830769386774D-03 - ws( 2) = 0.1425742488900568D-02 - ws( 3) = 0.2348796226658269D-02 - ws( 4) = 0.3223593084494710D-02 - ws( 5) = 0.4011939379524498D-02 - ws( 6) = 0.4709915358038968D-02 - ws( 7) = 0.5325401636845635D-02 - ws( 8) = 0.5869006222500966D-02 - ws( 9) = 0.6350801478522127D-02 - ws( 10) = 0.6779481749672995D-02 - ws( 11) = 0.7162404527976358D-02 - ws( 12) = 0.7505847013531112D-02 - ws( 13) = 0.7815240298060742D-02 - ws( 14) = 0.8095332892527621D-02 - ws( 15) = 0.8350299088495829D-02 - ws( 16) = 0.8583816967899841D-02 - ws( 17) = 0.8799133488784741D-02 - ws( 18) = 0.8999125641299814D-02 - ws( 19) = 0.9186361494118835D-02 - ws( 20) = 0.9363162632955344D-02 - ws( 21) = 0.9531669880417490D-02 - ws( 22) = 0.9693916260693464D-02 - ws( 23) = 0.9851911481972087D-02 - ws( 24) = 0.1000775765249505D-01 - ws( 25) = 0.1016384771521981D-01 - ws( 26) = 0.1032314166806849D-01 - ws( 27) = 0.1049020974438073D-01 - ws( 28) = 0.1067376785557831D-01 - ws( 29) = 0.1089484071833425D-01 - ws( 30) = 0.1126182828930807D-01 - ws( 31) = 0.1268033736320925D-01 - endif - - - if( iquad .eq. 17 ) then - idomain = 17 - rk0r = 0.2000000000100001D-01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999980000D+00 - n = 30 - err = 0.2835055015193426D-10 - ierq = 0 - xs( 1) = 0.3405242170728110D-03 - xs( 2) = 0.1769497399904608D-02 - xs( 3) = 0.4250996740227614D-02 - xs( 4) = 0.7667433142877874D-02 - xs( 5) = 0.1189716864571062D-01 - xs( 6) = 0.1683086639767283D-01 - xs( 7) = 0.2237581583644038D-01 - xs( 8) = 0.2845477750673986D-01 - xs( 9) = 0.3500332974685551D-01 - xs( 10) = 0.4196735200649906D-01 - xs( 11) = 0.4930105799688578D-01 - xs( 12) = 0.5696553689851741D-01 - xs( 13) = 0.6492765940799980D-01 - xs( 14) = 0.7315922628086684D-01 - xs( 15) = 0.8163628069141564D-01 - xs( 16) = 0.9033854011963655D-01 - xs( 17) = 0.9924892426654097D-01 - xs( 18) = 0.1083531664858843D+00 - xs( 19) = 0.1176395019411302D+00 - xs( 20) = 0.1270984297891501D+00 - xs( 21) = 0.1367225496877345D+00 - xs( 22) = 0.1465064772591269D+00 - xs( 23) = 0.1564468598510454D+00 - xs( 24) = 0.1665425038574280D+00 - xs( 25) = 0.1767946678605135D+00 - xs( 26) = 0.1872078131274621D+00 - xs( 27) = 0.1977900809829184D+00 - xs( 28) = 0.2085564741967284D+00 - xs( 29) = 0.2195349238143589D+00 - xs( 30) = 0.2307528072630478D+00 - ws( 1) = 0.8709531803011234D-03 - ws( 2) = 0.1973106291297831D-02 - ws( 3) = 0.2969719182966434D-02 - ws( 4) = 0.3842625246432155D-02 - ws( 5) = 0.4598567684918326D-02 - ws( 6) = 0.5253404444873438D-02 - ws( 7) = 0.5823668789256959D-02 - ws( 8) = 0.6323560241948977D-02 - ws( 9) = 0.6764556702877364D-02 - ws( 10) = 0.7155880701376724D-02 - ws( 11) = 0.7505064079902554D-02 - ws( 12) = 0.7818386183513016D-02 - ws( 13) = 0.8101170327618996D-02 - ws( 14) = 0.8357980041444148D-02 - ws( 15) = 0.8592756230963448D-02 - ws( 16) = 0.8808922462980248D-02 - ws( 17) = 0.9009473463738876D-02 - ws( 18) = 0.9197054733333031D-02 - ws( 19) = 0.9374037237442779D-02 - ws( 20) = 0.9542590962815026D-02 - ws( 21) = 0.9704764671210094D-02 - ws( 22) = 0.9862570047325183D-02 - ws( 23) = 0.1001809862260466D-01 - ws( 24) = 0.1017375609106267D-01 - ws( 25) = 0.1033240602693070D-01 - ws( 26) = 0.1049874820065555D-01 - ws( 27) = 0.1068185866623935D-01 - ws( 28) = 0.1089990169713471D-01 - ws( 29) = 0.1128644939421688D-01 - ws( 30) = 0.1260725802521627D-01 - endif - - - if( iquad .eq. 18 ) then - idomain = 18 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5707963267928966D+00 - n = 30 - err = 0.7397885930055927D-11 - ierq = 0 - xs( 1) = 0.3321251705804676D-03 - xs( 2) = 0.1729547035132686D-02 - xs( 3) = 0.4167940700695209D-02 - xs( 4) = 0.7542675794473251D-02 - xs( 5) = 0.1173946313412465D-01 - xs( 6) = 0.1665072179846390D-01 - xs( 7) = 0.2218224383299676D-01 - xs( 8) = 0.2825410705860316D-01 - xs( 9) = 0.3479920763382982D-01 - xs( 10) = 0.4176124563638599D-01 - xs( 11) = 0.4909287221097384D-01 - xs( 12) = 0.5675416489991236D-01 - xs( 13) = 0.6471140699304531D-01 - xs( 14) = 0.7293610723363825D-01 - xs( 15) = 0.8140420461962350D-01 - xs( 16) = 0.9009541914771506D-01 - xs( 17) = 0.9899272202695392D-01 - xs( 18) = 0.1080819071810232D+00 - xs( 19) = 0.1173512513572046D+00 - xs( 20) = 0.1267912547773413D+00 - xs( 21) = 0.1363944577356967D+00 - xs( 22) = 0.1461553318326844D+00 - xs( 23) = 0.1560702625922863D+00 - xs( 24) = 0.1661376177796348D+00 - xs( 25) = 0.1763579277231010D+00 - xs( 26) = 0.1867344697011092D+00 - xs( 27) = 0.1972731213341233D+00 - xs( 28) = 0.2079842941610055D+00 - xs( 29) = 0.2188822244873169D+00 - xs( 30) = 0.2298811601923693D+00 - ws( 1) = 0.8499344457538752D-03 - ws( 2) = 0.1933327423999962D-02 - ws( 3) = 0.2925546056741246D-02 - ws( 4) = 0.3804608620124114D-02 - ws( 5) = 0.4570935585664571D-02 - ws( 6) = 0.5235873503750978D-02 - ws( 7) = 0.5813878760659749D-02 - ws( 8) = 0.6318698728562306D-02 - ws( 9) = 0.6762150246774634D-02 - ws( 10) = 0.7154059584253987D-02 - ws( 11) = 0.7502560000880495D-02 - ws( 12) = 0.7814422133429534D-02 - ws( 13) = 0.8095326678715575D-02 - ws( 14) = 0.8350074409337247D-02 - ws( 15) = 0.8582749188304735D-02 - ws( 16) = 0.8796848955096189D-02 - ws( 17) = 0.8995395012133233D-02 - ws( 18) = 0.9181026402285441D-02 - ws( 19) = 0.9356083700972927D-02 - ws( 20) = 0.9522686490593636D-02 - ws( 21) = 0.9682812954801310D-02 - ws( 22) = 0.9838375821402574D-02 - ws( 23) = 0.9991324582902384D-02 - ws( 24) = 0.1014386341822041D-01 - ws( 25) = 0.1029848061519415D-01 - ws( 26) = 0.1045928430593288D-01 - ws( 27) = 0.1063445493187846D-01 - ws( 28) = 0.1083811126774075D-01 - ws( 29) = 0.1119347493889783D-01 - ws( 30) = 0.1218772203324906D-01 - endif - - - if( iquad .eq. 19 ) then - idomain = 19 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1570796326792897D+01 - n = 29 - err = 0.3049381782697901D-10 - ierq = 0 - xs( 1) = 0.3241034559039153D-03 - xs( 2) = 0.1691826793622632D-02 - xs( 3) = 0.4092170985081088D-02 - xs( 4) = 0.7437386303616819D-02 - xs( 5) = 0.1162516614988325D-01 - xs( 6) = 0.1655280245054911D-01 - xs( 7) = 0.2212535413834516D-01 - xs( 8) = 0.2825910438721228D-01 - xs( 9) = 0.3488216090730110D-01 - xs( 10) = 0.4193366995334603D-01 - xs( 11) = 0.4936251175423985D-01 - xs( 12) = 0.5712590834147554D-01 - xs( 13) = 0.6518813078258066D-01 - xs( 14) = 0.7351937287614950D-01 - xs( 15) = 0.8209480382926564D-01 - xs( 16) = 0.9089378975930236D-01 - xs( 17) = 0.9989926610562432D-01 - xs( 18) = 0.1090972423696670D+00 - xs( 19) = 0.1184764248253116D+00 - xs( 20) = 0.1280279451858315D+00 - xs( 21) = 0.1377451875954363D+00 - xs( 22) = 0.1476237463274510D+00 - xs( 23) = 0.1576614693483022D+00 - xs( 24) = 0.1678586298435478D+00 - xs( 25) = 0.1782189903616239D+00 - xs( 26) = 0.1887485893294696D+00 - xs( 27) = 0.1994613156943947D+00 - xs( 28) = 0.2103863520313352D+00 - xs( 29) = 0.2214301622200837D+00 - ws( 1) = 0.8299009543974235D-03 - ws( 2) = 0.1896526415749215D-02 - ws( 3) = 0.2889193653720515D-02 - ws( 4) = 0.3783949727796882D-02 - ws( 5) = 0.4574359322476236D-02 - ws( 6) = 0.5265037004120586D-02 - ws( 7) = 0.5866107099062374D-02 - ws( 8) = 0.6389426426008097D-02 - ws( 9) = 0.6846567011983299D-02 - ws( 10) = 0.7247954719512575D-02 - ws( 11) = 0.7602620905546003D-02 - ws( 12) = 0.7918236244510751D-02 - ws( 13) = 0.8201256708902260D-02 - ws( 14) = 0.8457101984975828D-02 - ws( 15) = 0.8690331490759155D-02 - ws( 16) = 0.8904804739666773D-02 - ws( 17) = 0.9103823241908069D-02 - ws( 18) = 0.9290254110120478D-02 - ws( 19) = 0.9466640740716115D-02 - ws( 20) = 0.9635315984803829D-02 - ws( 21) = 0.9798490651920457D-02 - ws( 22) = 0.9958384715960038D-02 - ws( 23) = 0.1011760152843707D-01 - ws( 24) = 0.1027872366991009D-01 - ws( 25) = 0.1044697899755413D-01 - ws( 26) = 0.1063314302022070D-01 - ws( 27) = 0.1084325244905034D-01 - ws( 28) = 0.1128482005882030D-01 - ws( 29) = 0.1227796112432061D-01 - endif - - - if( iquad .eq. 20 ) then - idomain = 20 - rk0r = 0.2000000000100001D-01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 28 - err = 0.3912098081583568D-10 - ierq = 0 - xs( 1) = 0.2435174467342341D-03 - xs( 2) = 0.1286223250488757D-02 - xs( 3) = 0.3167531913452869D-02 - xs( 4) = 0.5877988182804879D-02 - xs( 5) = 0.9384468525452055D-02 - xs( 6) = 0.1363411684967988D-01 - xs( 7) = 0.1856285348921884D-01 - xs( 8) = 0.2410315566741142D-01 - xs( 9) = 0.3018942144570766D-01 - xs( 10) = 0.3676105450597161D-01 - xs( 11) = 0.4376388798752046D-01 - xs( 12) = 0.5115054787973620D-01 - xs( 13) = 0.5888021075118686D-01 - xs( 14) = 0.6691806206439621D-01 - xs( 15) = 0.7523464504559570D-01 - xs( 16) = 0.8380520903054976D-01 - xs( 17) = 0.9260911506530962D-01 - xs( 18) = 0.1016293290679975D+00 - xs( 19) = 0.1108520083343563D+00 - xs( 20) = 0.1202661858769740D+00 - xs( 21) = 0.1298636100202477D+00 - xs( 22) = 0.1396385722740270D+00 - xs( 23) = 0.1495879641958324D+00 - xs( 24) = 0.1597123958045033D+00 - xs( 25) = 0.1700122786650687D+00 - xs( 26) = 0.1804994459921297D+00 - xs( 27) = 0.1911834941939053D+00 - xs( 28) = 0.2018030635310828D+00 - ws( 1) = 0.6253901882245321D-03 - ws( 2) = 0.1461743223728416D-02 - ws( 3) = 0.2299412548096662D-02 - ws( 4) = 0.3115893502264337D-02 - ws( 5) = 0.3888103126758930D-02 - ws( 6) = 0.4600380911810857D-02 - ws( 7) = 0.5245749994187855D-02 - ws( 8) = 0.5823870923240171D-02 - ws( 9) = 0.6338538979654335D-02 - ws( 10) = 0.6795694355650595D-02 - ws( 11) = 0.7202081699662140D-02 - ws( 12) = 0.7564443646346520D-02 - ws( 13) = 0.7889090831776123D-02 - ws( 14) = 0.8181713537124944D-02 - ws( 15) = 0.8447337556542707D-02 - ws( 16) = 0.8690360343880890D-02 - ws( 17) = 0.8914623896904427D-02 - ws( 18) = 0.9123509288891682D-02 - ws( 19) = 0.9320055843866358D-02 - ws( 20) = 0.9507016880085274D-02 - ws( 21) = 0.9687064351154705D-02 - ws( 22) = 0.9863214625905791D-02 - ws( 23) = 0.1003772413228357D-01 - ws( 24) = 0.1021767895484808D-01 - ws( 25) = 0.1041283903987286D-01 - ws( 26) = 0.1062482875048182D-01 - ws( 27) = 0.1115806316005438D-01 - ws( 28) = 0.1161475312649123D-01 - endif - - - if( iquad .eq. 21 ) then - idomain = 21 - rk0r = 0.2000000000100001D-01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 26 - err = 0.5187055652112896D-10 - ierq = 0 - xs( 1) = 0.2204135689951596D-03 - xs( 2) = 0.1158475313655744D-02 - xs( 3) = 0.2834449235599619D-02 - xs( 4) = 0.5228962168066022D-02 - xs( 5) = 0.8314345334503351D-02 - xs( 6) = 0.1205618625153086D-01 - xs( 7) = 0.1641511673562031D-01 - xs( 8) = 0.2134881751303480D-01 - xs( 9) = 0.2681395608380279D-01 - xs( 10) = 0.3276783773490085D-01 - xs( 11) = 0.3916966434494184D-01 - xs( 12) = 0.4598139326808341D-01 - xs( 13) = 0.5316824797343767D-01 - xs( 14) = 0.6069895669866895D-01 - xs( 15) = 0.6854580012126268D-01 - xs( 16) = 0.7668453931757317D-01 - xs( 17) = 0.8509427063636751D-01 - xs( 18) = 0.9375727679623976D-01 - xs( 19) = 0.1026589216596340D+00 - xs( 20) = 0.1117873861316491D+00 - xs( 21) = 0.1211339790545772D+00 - xs( 22) = 0.1306934185056012D+00 - xs( 23) = 0.1404593226812811D+00 - xs( 24) = 0.1504413426232060D+00 - xs( 25) = 0.1606192265917941D+00 - xs( 26) = 0.1707198183044201D+00 - ws( 1) = 0.5653246040735377D-03 - ws( 2) = 0.1309462958875678D-02 - ws( 3) = 0.2039216376006210D-02 - ws( 4) = 0.2745174942945943D-02 - ws( 5) = 0.3419825652878913D-02 - ws( 6) = 0.4057260652483136D-02 - ws( 7) = 0.4653514261280884D-02 - ws( 8) = 0.5206637464003166D-02 - ws( 9) = 0.5716502922633926D-02 - ws( 10) = 0.6184446550756132D-02 - ws( 11) = 0.6612858143182189D-02 - ws( 12) = 0.7004800278861379D-02 - ws( 13) = 0.7363697393951199D-02 - ws( 14) = 0.7693105092995261D-02 - ws( 15) = 0.7996551877364854D-02 - ws( 16) = 0.8277460626796228D-02 - ws( 17) = 0.8539113556828844D-02 - ws( 18) = 0.8784589072831771D-02 - ws( 19) = 0.9017056328213962D-02 - ws( 20) = 0.9239732050784415D-02 - ws( 21) = 0.9455055179049310D-02 - ws( 22) = 0.9672398099555399D-02 - ws( 23) = 0.9894641532927007D-02 - ws( 24) = 0.1013857829228064D-01 - ws( 25) = 0.1070531663635420D-01 - ws( 26) = 0.1098195270934213D-01 - endif - - - if( iquad .eq. 22 ) then - idomain = 22 - rk0r = 0.2000000000100001D-01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 24 - err = 0.4202476886872558D-10 - ierq = 0 - xs( 1) = 0.1952676793495160D-03 - xs( 2) = 0.1026558708193162D-02 - xs( 3) = 0.2512900327163203D-02 - xs( 4) = 0.4639411976617166D-02 - xs( 5) = 0.7385355210334545D-02 - xs( 6) = 0.1072550179743013D-01 - xs( 7) = 0.1463135943931396D-01 - xs( 8) = 0.1907235863204154D-01 - xs( 9) = 0.2401693495730804D-01 - xs( 10) = 0.2943346135884441D-01 - xs( 11) = 0.3529101105792505D-01 - xs( 12) = 0.4155995016278557D-01 - xs( 13) = 0.4821237845479982D-01 - xs( 14) = 0.5522243969850346D-01 - xs( 15) = 0.6256650505579521D-01 - xs( 16) = 0.7022331306227750D-01 - xs( 17) = 0.7817405171741618D-01 - xs( 18) = 0.8640214176069455D-01 - xs( 19) = 0.9489378754778281D-01 - xs( 20) = 0.1036374918869393D+00 - xs( 21) = 0.1126194112793958D+00 - xs( 22) = 0.1218411815530300D+00 - xs( 23) = 0.1312502860437906D+00 - xs( 24) = 0.1405165349998396D+00 - ws( 1) = 0.5008566316142536D-03 - ws( 2) = 0.1160715046683071D-02 - ws( 3) = 0.1809447521151877D-02 - ws( 4) = 0.2440098884050708D-02 - ws( 5) = 0.3047562315685059D-02 - ws( 6) = 0.3627962254302507D-02 - ws( 7) = 0.4178640108512249D-02 - ws( 8) = 0.4698082202956516D-02 - ws( 9) = 0.5185787510773903D-02 - ws( 10) = 0.5642102824426552D-02 - ws( 11) = 0.6068053440772629D-02 - ws( 12) = 0.6465179771240357D-02 - ws( 13) = 0.6835384243179522D-02 - ws( 14) = 0.7180838765944339D-02 - ws( 15) = 0.7503879438539333D-02 - ws( 16) = 0.7806854357788427D-02 - ws( 17) = 0.8092504643644157D-02 - ws( 18) = 0.8363480571319106D-02 - ws( 19) = 0.8621842325364129D-02 - ws( 20) = 0.8877683630189235D-02 - ws( 21) = 0.9128906428486990D-02 - ws( 22) = 0.9404049473362198D-02 - ws( 23) = 0.9976260199841491D-02 - ws( 24) = 0.1000718920706664D-01 - endif - - - if( iquad .eq. 23 ) then - idomain = 23 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 31 - err = 0.2323061750490762D-10 - ierq = 0 - xs( 1) = 0.2544316012453074D-03 - xs( 2) = 0.1341805672111571D-02 - xs( 3) = 0.3295266761418017D-02 - xs( 4) = 0.6091056137175237D-02 - xs( 5) = 0.9678246613338569D-02 - xs( 6) = 0.1398846896198100D-01 - xs( 7) = 0.1894856608599486D-01 - xs( 8) = 0.2448876094687561D-01 - xs( 9) = 0.3054598698159227D-01 - xs( 10) = 0.3706448870441145D-01 - xs( 11) = 0.4399537491106103D-01 - xs( 12) = 0.5129593506988920D-01 - xs( 13) = 0.5892898617453672D-01 - xs( 14) = 0.6686229304839350D-01 - xs( 15) = 0.7506804707797199D-01 - xs( 16) = 0.8352238924048698D-01 - xs( 17) = 0.9220497441890066D-01 - xs( 18) = 0.1010985809270127D+00 - xs( 19) = 0.1101887711362271D+00 - xs( 20) = 0.1194636087180883D+00 - xs( 21) = 0.1289134376048447D+00 - xs( 22) = 0.1385307284856838D+00 - xs( 23) = 0.1483100022919553D+00 - xs( 24) = 0.1582478483171516D+00 - xs( 25) = 0.1683430664330262D+00 - xs( 26) = 0.1785969943554967D+00 - xs( 27) = 0.1890141474669173D+00 - xs( 28) = 0.1996033251472302D+00 - xs( 29) = 0.2103798566765427D+00 - xs( 30) = 0.2213707412442923D+00 - xs( 31) = 0.2326681266593079D+00 - ws( 1) = 0.6531844240312910D-03 - ws( 2) = 0.1522019514525546D-02 - ws( 3) = 0.2381005203631482D-02 - ws( 4) = 0.3201888763433774D-02 - ws( 5) = 0.3960868553459916D-02 - ws( 6) = 0.4647248936030648D-02 - ws( 7) = 0.5261266345611562D-02 - ws( 8) = 0.5808606312700561D-02 - ws( 9) = 0.6296562376134840D-02 - ws( 10) = 0.6732304434738830D-02 - ws( 11) = 0.7122360484273640D-02 - ws( 12) = 0.7472572273421985D-02 - ws( 13) = 0.7788166061016814D-02 - ws( 14) = 0.8073820867931666D-02 - ws( 15) = 0.8333717972592036D-02 - ws( 16) = 0.8571582054639941D-02 - ws( 17) = 0.8790723774185336D-02 - ws( 18) = 0.8994087903237935D-02 - ws( 19) = 0.9184307388952212D-02 - ws( 20) = 0.9363762552898162D-02 - ws( 21) = 0.9534645794190756D-02 - ws( 22) = 0.9699034480283791D-02 - ws( 23) = 0.9858976966679145D-02 - ws( 24) = 0.1001661099663276D-01 - ws( 25) = 0.1017435338531840D-01 - ws( 26) = 0.1033522828515242D-01 - ws( 27) = 0.1050378988533743D-01 - ws( 28) = 0.1068866549487399D-01 - ws( 29) = 0.1091258796435514D-01 - ws( 30) = 0.1127445952406251D-01 - ws( 31) = 0.1278957254722222D-01 - endif - - - if( iquad .eq. 24 ) then - idomain = 24 - rk0r = 0.4000000000100001D-01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 31 - err = 0.2173140892705483D-10 - ierq = 0 - xs( 1) = 0.2581519018418500D-03 - xs( 2) = 0.1360068686346353D-02 - xs( 3) = 0.3335224713375432D-02 - xs( 4) = 0.6155090654903885D-02 - xs( 5) = 0.9765362018483024D-02 - xs( 6) = 0.1409601396048440D-01 - xs( 7) = 0.1907341104764413D-01 - xs( 8) = 0.2462789487316266D-01 - xs( 9) = 0.3069675300219800D-01 - xs( 10) = 0.3722463952775115D-01 - xs( 11) = 0.4416305128049064D-01 - xs( 12) = 0.5146961769870544D-01 - xs( 13) = 0.5910744351808212D-01 - xs( 14) = 0.6704453359823836D-01 - xs( 15) = 0.7525327873755078D-01 - xs( 16) = 0.8370998587661571D-01 - xs( 17) = 0.9239444884849803D-01 - xs( 18) = 0.1012895634247475D+00 - xs( 19) = 0.1103809926177857D+00 - xs( 20) = 0.1196568879000176D+00 - xs( 21) = 0.1291076716239588D+00 - xs( 22) = 0.1387258865629727D+00 - xs( 23) = 0.1485061223497605D+00 - xs( 24) = 0.1584450366371735D+00 - xs( 25) = 0.1685414997455426D+00 - xs( 26) = 0.1787969283621633D+00 - xs( 27) = 0.1892159298328112D+00 - xs( 28) = 0.1998074113083269D+00 - xs( 29) = 0.2105868678200809D+00 - xs( 30) = 0.2215815901708446D+00 - xs( 31) = 0.2328835430103180D+00 - ws( 1) = 0.6625682735306665D-03 - ws( 2) = 0.1540977401143992D-02 - ws( 3) = 0.2404606511031134D-02 - ws( 4) = 0.3225875139920693D-02 - ws( 5) = 0.3982779225532425D-02 - ws( 6) = 0.4666127812574321D-02 - ws( 7) = 0.5277013007392107D-02 - ws( 8) = 0.5821499400295716D-02 - ws( 9) = 0.6307002902256709D-02 - ws( 10) = 0.6740698566017046D-02 - ws( 11) = 0.7129074146319180D-02 - ws( 12) = 0.7477918998711966D-02 - ws( 13) = 0.7792408648122787D-02 - ws( 14) = 0.8077177807547679D-02 - ws( 15) = 0.8336370805707252D-02 - ws( 16) = 0.8573682241448201D-02 - ws( 17) = 0.8792398672978187D-02 - ws( 18) = 0.8995445849843882D-02 - ws( 19) = 0.9185441991723019D-02 - ws( 20) = 0.9364756372347951D-02 - ws( 21) = 0.9535573621346166D-02 - ws( 22) = 0.9699966164691038D-02 - ws( 23) = 0.9859980375616251D-02 - ws( 24) = 0.1001775529292059D-01 - ws( 25) = 0.1017571087487321D-01 - ws( 26) = 0.1033688438914241D-01 - ws( 27) = 0.1050584567999415D-01 - ws( 28) = 0.1069122913974079D-01 - ws( 29) = 0.1091585764327621D-01 - ws( 30) = 0.1127862245462533D-01 - ws( 31) = 0.1279311343993915D-01 - endif - - - if( iquad .eq. 25 ) then - idomain = 25 - rk0r = 0.4000000000100001D-01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5999999999800001D-01 - n = 31 - err = 0.2992925616127859D-10 - ierq = 0 - xs( 1) = 0.2654105104326995D-03 - xs( 2) = 0.1395698321981107D-02 - xs( 3) = 0.3413218689977640D-02 - xs( 4) = 0.6280301605354262D-02 - xs( 5) = 0.9936269242078199D-02 - xs( 6) = 0.1430796938612723D-01 - xs( 7) = 0.1932076175611759D-01 - xs( 8) = 0.2490502921325884D-01 - xs( 9) = 0.3099853060515996D-01 - xs( 10) = 0.3754653311984846D-01 - xs( 11) = 0.4450116262341419D-01 - xs( 12) = 0.5182063910558887D-01 - xs( 13) = 0.5946859698231285D-01 - xs( 14) = 0.6741350325002610D-01 - xs( 15) = 0.7562814491263904D-01 - xs( 16) = 0.8408916510691457D-01 - xs( 17) = 0.9277664170781984D-01 - xs( 18) = 0.1016737107319838D+00 - xs( 19) = 0.1107662397091931D+00 - xs( 20) = 0.1200425563364731D+00 - xs( 21) = 0.1294932376235370D+00 - xs( 22) = 0.1391109656354058D+00 - xs( 23) = 0.1488904596555554D+00 - xs( 24) = 0.1588285033735144D+00 - xs( 25) = 0.1689240958635245D+00 - xs( 26) = 0.1791787924601380D+00 - xs( 27) = 0.1895973696121115D+00 - xs( 28) = 0.2001889192835355D+00 - xs( 29) = 0.2109692825794049D+00 - xs( 30) = 0.2219664798686174D+00 - xs( 31) = 0.2332681181842590D+00 - ws( 1) = 0.6808759072309557D-03 - ws( 2) = 0.1577965634610645D-02 - ws( 3) = 0.2450755687012739D-02 - ws( 4) = 0.3273095988195775D-02 - ws( 5) = 0.4026452550898481D-02 - ws( 6) = 0.4704401907958846D-02 - ws( 7) = 0.5309546121131152D-02 - ws( 8) = 0.5848616487864856D-02 - ws( 9) = 0.6329276420584140D-02 - ws( 10) = 0.6758762690063207D-02 - ws( 11) = 0.7143544288542216D-02 - ws( 12) = 0.7489357359912488D-02 - ws( 13) = 0.7801311388888908D-02 - ws( 14) = 0.8083973372371780D-02 - ws( 15) = 0.8341424186813823D-02 - ws( 16) = 0.8577302171373001D-02 - ws( 17) = 0.8794845909228010D-02 - ws( 18) = 0.8996941477950795D-02 - ws( 19) = 0.9186175203112235D-02 - ws( 20) = 0.9364891558908569D-02 - ws( 21) = 0.9535256746872138D-02 - ws( 22) = 0.9699330860655837D-02 - ws( 23) = 0.9859153558265436D-02 - ws( 24) = 0.1001686295416690D-01 - ws( 25) = 0.1017488807099487D-01 - ws( 26) = 0.1033627739428706D-01 - ws( 27) = 0.1050564737279262D-01 - ws( 28) = 0.1069175181839880D-01 - ws( 29) = 0.1091715870262605D-01 - ws( 30) = 0.1128364933133573D-01 - ws( 31) = 0.1278507411993640D-01 - endif - - - if( iquad .eq. 26 ) then - idomain = 26 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.9999999999800001D-01 - n = 31 - err = 0.3339020938330264D-10 - ierq = 0 - xs( 1) = 0.2807092619110890D-03 - xs( 2) = 0.1471554011054937D-02 - xs( 3) = 0.3582047182247872D-02 - xs( 4) = 0.6557107641382463D-02 - xs( 5) = 0.1032315741973199D-01 - xs( 6) = 0.1479997369439118D-01 - xs( 7) = 0.1990988224275562D-01 - xs( 8) = 0.2558230782300971D-01 - xs( 9) = 0.3175496038546182D-01 - xs( 10) = 0.3837344451219545D-01 - xs( 11) = 0.4539040561250537D-01 - xs( 12) = 0.5276467870324259D-01 - xs( 13) = 0.6046055683665731D-01 - xs( 14) = 0.6844716920512188D-01 - xs( 15) = 0.7669793761965858D-01 - xs( 16) = 0.8519009146490748D-01 - xs( 17) = 0.9390423438600416D-01 - xs( 18) = 0.1028239632146534D+00 - xs( 19) = 0.1119355420814813D+00 - xs( 20) = 0.1212276349779921D+00 - xs( 21) = 0.1306911004602468D+00 - xs( 22) = 0.1403188537586967D+00 - xs( 23) = 0.1501058051487723D+00 - xs( 24) = 0.1600488932573143D+00 - xs( 25) = 0.1701472430659477D+00 - xs( 26) = 0.1804025081258374D+00 - xs( 27) = 0.1908195568557698D+00 - xs( 28) = 0.2014075486772662D+00 - xs( 29) = 0.2121823721222968D+00 - xs( 30) = 0.2231727380219392D+00 - xs( 31) = 0.2344644301965642D+00 - ws( 1) = 0.7195579202782795D-03 - ws( 2) = 0.1657749464512838D-02 - ws( 3) = 0.2553890012826142D-02 - ws( 4) = 0.3383754293390025D-02 - ws( 5) = 0.4134817623581312D-02 - ws( 6) = 0.4805797795276692D-02 - ws( 7) = 0.5402241611239403D-02 - ws( 8) = 0.5932236954349681D-02 - ws( 9) = 0.6404017469269651D-02 - ws( 10) = 0.6825072730564800D-02 - ws( 11) = 0.7202000771358028D-02 - ws( 12) = 0.7540604533993349D-02 - ws( 13) = 0.7846015613153859D-02 - ws( 14) = 0.8122787502834510D-02 - ws( 15) = 0.8374961463579293D-02 - ws( 16) = 0.8606119895539589D-02 - ws( 17) = 0.8819437614146847D-02 - ws( 18) = 0.9017735425946133D-02 - ws( 19) = 0.9203536994149157D-02 - ws( 20) = 0.9379129141976384D-02 - ws( 21) = 0.9546626424288039D-02 - ws( 22) = 0.9708043595491930D-02 - ws( 23) = 0.9865381836136354D-02 - ws( 24) = 0.1002074581538108D-01 - ws( 25) = 0.1017653822642006D-01 - ws( 26) = 0.1033578640265249D-01 - ws( 27) = 0.1050309234848677D-01 - ws( 28) = 0.1068727391239136D-01 - ws( 29) = 0.1091068459021128D-01 - ws( 30) = 0.1127772894420029D-01 - ws( 31) = 0.1276825935319179D-01 - endif - - - if( iquad .eq. 27 ) then - idomain = 27 - rk0r = 0.4000000000100001D-01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999980000D+00 - n = 31 - err = 0.1516170504961992D-10 - ierq = 0 - xs( 1) = 0.2388347392581624D-03 - xs( 2) = 0.1275894923014971D-02 - xs( 3) = 0.3179079079579640D-02 - xs( 4) = 0.5944150588896568D-02 - xs( 5) = 0.9519954264950387D-02 - xs( 6) = 0.1383145942320246D-01 - xs( 7) = 0.1879931513454402D-01 - xs( 8) = 0.2434948246198047D-01 - xs( 9) = 0.3041630327900868D-01 - xs( 10) = 0.3694259348079604D-01 - xs( 11) = 0.4387878171369158D-01 - xs( 12) = 0.5118193289561603D-01 - xs( 13) = 0.5881489875310517D-01 - xs( 14) = 0.6674561213771073D-01 - xs( 15) = 0.7494648896866837D-01 - xs( 16) = 0.8339390734603744D-01 - xs( 17) = 0.9206774878098667D-01 - xs( 18) = 0.1009509970934035D+00 - xs( 19) = 0.1100293953943912D+00 - xs( 20) = 0.1192911632270989D+00 - xs( 21) = 0.1287267769488835D+00 - xs( 22) = 0.1383288178362139D+00 - xs( 23) = 0.1480918958862067D+00 - xs( 24) = 0.1580126678258125D+00 - xs( 25) = 0.1680899710690588D+00 - xs( 26) = 0.1783251314860014D+00 - xs( 27) = 0.1887226191672938D+00 - xs( 28) = 0.1992908663716309D+00 - xs( 29) = 0.2100446509005583D+00 - xs( 30) = 0.2210090344366532D+00 - xs( 31) = 0.2322349440044391D+00 - ws( 1) = 0.6153817787599102D-03 - ws( 2) = 0.1466254478704673D-02 - ws( 3) = 0.2339374653833500D-02 - ws( 4) = 0.3181778647089330D-02 - ws( 5) = 0.3956992039824456D-02 - ws( 6) = 0.4652643649443057D-02 - ws( 7) = 0.5270685669869092D-02 - ws( 8) = 0.5818708964091332D-02 - ws( 9) = 0.6305418089499755D-02 - ws( 10) = 0.6738917130578241D-02 - ws( 11) = 0.7126317624670181D-02 - ws( 12) = 0.7473805017798742D-02 - ws( 13) = 0.7786792068020921D-02 - ws( 14) = 0.8070046008010697D-02 - ws( 15) = 0.8327778321312118D-02 - ws( 16) = 0.8563712071829505D-02 - ws( 17) = 0.8781140577542148D-02 - ws( 18) = 0.8982984839243474D-02 - ws( 19) = 0.9171852611588333D-02 - ws( 20) = 0.9350099977677816D-02 - ws( 21) = 0.9519896664034574D-02 - ws( 22) = 0.9683299100269689D-02 - ws( 23) = 0.9842334315251907D-02 - ws( 24) = 0.9999115335990138D-02 - ws( 25) = 0.1015603894405625D-01 - ws( 26) = 0.1031604648818809D-01 - ws( 27) = 0.1048369627646842D-01 - ws( 28) = 0.1066760678108987D-01 - ws( 29) = 0.1088856524928872D-01 - ws( 30) = 0.1125378090846034D-01 - ws( 31) = 0.1264835658775069D-01 - endif - - - if( iquad .eq. 28 ) then - idomain = 28 - rk0r = 0.4000000000100001D-01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5999999999980000D+00 - n = 30 - err = 0.3685511715085980D-10 - ierq = 0 - xs( 1) = 0.3288928973069644D-03 - xs( 2) = 0.1711381594710604D-02 - xs( 3) = 0.4119857303650234D-02 - xs( 4) = 0.7448474133585955D-02 - xs( 5) = 0.1158502619646857D-01 - xs( 6) = 0.1642639495777560D-01 - xs( 7) = 0.2188353241156474D-01 - xs( 8) = 0.2788113736521881D-01 - xs( 9) = 0.3435560599530874D-01 - xs( 10) = 0.4125291519239968D-01 - xs( 11) = 0.4852693178976982D-01 - xs( 12) = 0.5613815111600448D-01 - xs( 13) = 0.6405274138210085D-01 - xs( 14) = 0.7224178334442748D-01 - xs( 15) = 0.8068063742316396D-01 - xs( 16) = 0.8934840440475467D-01 - xs( 17) = 0.9822746515290276D-01 - xs( 18) = 0.1073030936701910D+00 - xs( 19) = 0.1165631414906093D+00 - xs( 20) = 0.1259977937435644D+00 - xs( 21) = 0.1355993993711332D+00 - xs( 22) = 0.1453623810915043D+00 - xs( 23) = 0.1552832465797142D+00 - xs( 24) = 0.1653607138600018D+00 - xs( 25) = 0.1755960091646069D+00 - xs( 26) = 0.1859936180665569D+00 - xs( 27) = 0.1965617624585790D+00 - xs( 28) = 0.2073157222655773D+00 - xs( 29) = 0.2182835258862194D+00 - xs( 30) = 0.2294907765761105D+00 - ws( 1) = 0.8414913911080585D-03 - ws( 2) = 0.1911350660114726D-02 - ws( 3) = 0.2887456785361558D-02 - ws( 4) = 0.3750829712286424D-02 - ws( 5) = 0.4505018465413770D-02 - ws( 6) = 0.5162891602144257D-02 - ws( 7) = 0.5738870833454845D-02 - ws( 8) = 0.6245774614736296D-02 - ws( 9) = 0.6694186847507034D-02 - ws( 10) = 0.7092763369557250D-02 - ws( 11) = 0.7448701371495381D-02 - ws( 12) = 0.7768111168712850D-02 - ws( 13) = 0.8056259970477557D-02 - ws( 14) = 0.8317726331673214D-02 - ws( 15) = 0.8556506321596049D-02 - ws( 16) = 0.8776097666946602D-02 - ws( 17) = 0.8979575009792368D-02 - ws( 18) = 0.9169662004222643D-02 - ws( 19) = 0.9348802538266764D-02 - ws( 20) = 0.9519233077657185D-02 - ws( 21) = 0.9683062311611460D-02 - ws( 22) = 0.9842357856372238D-02 - ws( 23) = 0.9999264255919590D-02 - ws( 24) = 0.1015623559766288D-01 - ws( 25) = 0.1031618944427299D-01 - ws( 26) = 0.1048390502529658D-01 - ws( 27) = 0.1066849297457476D-01 - ws( 28) = 0.1088826122897703D-01 - ws( 29) = 0.1127714802959823D-01 - ws( 30) = 0.1258601741866627D-01 - endif - - - if( iquad .eq. 29 ) then - idomain = 29 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5707963267928966D+00 - n = 30 - err = 0.8450882646415939D-11 - ierq = 0 - xs( 1) = 0.3211208814997869D-03 - xs( 2) = 0.1673688364009559D-02 - xs( 3) = 0.4038884683344292D-02 - xs( 4) = 0.7321394890068100D-02 - xs( 5) = 0.1141560455940339D-01 - xs( 6) = 0.1622067176654874D-01 - xs( 7) = 0.2164711964529606D-01 - xs( 8) = 0.2761811368813753D-01 - xs( 9) = 0.3406839428972583D-01 - xs( 10) = 0.4094259793297159D-01 - xs( 11) = 0.4819367496715772D-01 - xs( 12) = 0.5578158040784941D-01 - xs( 13) = 0.6367221920552418D-01 - xs( 14) = 0.7183658743290085D-01 - xs( 15) = 0.8025006102267165D-01 - xs( 16) = 0.8889180099911813D-01 - xs( 17) = 0.9774425667957935D-01 - xs( 18) = 0.1067927555197098D+00 - xs( 19) = 0.1160251723336414D+00 - xs( 20) = 0.1254316739104455D+00 - xs( 21) = 0.1350045374134973D+00 - xs( 22) = 0.1447380442794830D+00 - xs( 23) = 0.1546284666248546D+00 - xs( 24) = 0.1646741502621336D+00 - xs( 25) = 0.1748757159640470D+00 - xs( 26) = 0.1852366819007553D+00 - xs( 27) = 0.1957635393818568D+00 - xs( 28) = 0.2064676505641759D+00 - xs( 29) = 0.2173667457539280D+00 - xs( 30) = 0.2284127748465695D+00 - ws( 1) = 0.8219484759287718D-03 - ws( 2) = 0.1872820698176023D-02 - ws( 3) = 0.2841263699025725D-02 - ws( 4) = 0.3705906646702279D-02 - ws( 5) = 0.4465604485411787D-02 - ws( 6) = 0.5129603267236719D-02 - ws( 7) = 0.5710508483751810D-02 - ws( 8) = 0.6220632446677339D-02 - ws( 9) = 0.6670728163386843D-02 - ws( 10) = 0.7069859236187719D-02 - ws( 11) = 0.7425638093091862D-02 - ws( 12) = 0.7744504480370067D-02 - ws( 13) = 0.8031950916963466D-02 - ws( 14) = 0.8292691411922140D-02 - ws( 15) = 0.8530790898215092D-02 - ws( 16) = 0.8749770869126214D-02 - ws( 17) = 0.8952700818225433D-02 - ws( 18) = 0.9142280928570145D-02 - ws( 19) = 0.9320918864161896D-02 - ws( 20) = 0.9490803772719878D-02 - ws( 21) = 0.9653984862589565D-02 - ws( 22) = 0.9812449705577719D-02 - ws( 23) = 0.9968229664004109D-02 - ws( 24) = 0.1012362137800642D-01 - ws( 25) = 0.1028126798825529D-01 - ws( 26) = 0.1044539768107624D-01 - ws( 27) = 0.1062455562505976D-01 - ws( 28) = 0.1083368230426914D-01 - ws( 29) = 0.1119544256285412D-01 - ws( 30) = 0.1231647284834207D-01 - endif - - - if( iquad .eq. 30 ) then - idomain = 30 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1570796326792897D+01 - n = 29 - err = 0.2342256663074948D-10 - ierq = 0 - xs( 1) = 0.3223672071804863D-03 - xs( 2) = 0.1683126043906391D-02 - xs( 3) = 0.4072495417934494D-02 - xs( 4) = 0.7404565442214711D-02 - xs( 5) = 0.1157858135863589D-01 - xs( 6) = 0.1649284915793287D-01 - xs( 7) = 0.2205296762515719D-01 - xs( 8) = 0.2817544173132470D-01 - xs( 9) = 0.3478841516248888D-01 - xs( 10) = 0.4183097080717138D-01 - xs( 11) = 0.4925187812714851D-01 - xs( 12) = 0.5700823132209023D-01 - xs( 13) = 0.6506417368507730D-01 - xs( 14) = 0.7338978024872625D-01 - xs( 15) = 0.8196011442451424D-01 - xs( 16) = 0.9075445055535514D-01 - xs( 17) = 0.9975564580801947D-01 - xs( 18) = 0.1089496436700411D+00 - xs( 19) = 0.1183250951603237D+00 - xs( 20) = 0.1278730860189442D+00 - xs( 21) = 0.1375869624673478D+00 - xs( 22) = 0.1474622878123107D+00 - xs( 23) = 0.1574968858762873D+00 - xs( 24) = 0.1676910086778997D+00 - xs( 25) = 0.1780484069042285D+00 - xs( 26) = 0.1885751216410551D+00 - xs( 27) = 0.1992850190111817D+00 - xs( 28) = 0.2102071638762916D+00 - xs( 29) = 0.2212479606074540D+00 - ws( 1) = 0.8254991277317136D-03 - ws( 2) = 0.1887254064893935D-02 - ws( 3) = 0.2876835166360218D-02 - ws( 4) = 0.3770279957840397D-02 - ws( 5) = 0.4560668578614784D-02 - ws( 6) = 0.5252077861488205D-02 - ws( 7) = 0.5854234540023508D-02 - ws( 8) = 0.6378751291814322D-02 - ws( 9) = 0.6837064573464992D-02 - ws( 10) = 0.7239531407634340D-02 - ws( 11) = 0.7595153676370799D-02 - ws( 12) = 0.7911595251580307D-02 - ws( 13) = 0.8195317690067018D-02 - ws( 14) = 0.8451752297041875D-02 - ws( 15) = 0.8685472339854677D-02 - ws( 16) = 0.8900351271366973D-02 - ws( 17) = 0.9099703560932974D-02 - ws( 18) = 0.9286407803450166D-02 - ws( 19) = 0.9463017474879265D-02 - ws( 20) = 0.9631873986576322D-02 - ws( 21) = 0.9795195467527412D-02 - ws( 22) = 0.9955208937367916D-02 - ws( 23) = 0.1011452352214527D-01 - ws( 24) = 0.1027573202335274D-01 - ws( 25) = 0.1044403940786061D-01 - ws( 26) = 0.1063026235585700D-01 - ws( 27) = 0.1084061298285357D-01 - ws( 28) = 0.1128195008651123D-01 - ws( 29) = 0.1227596051643833D-01 - endif - - - if( iquad .eq. 31 ) then - idomain = 31 - rk0r = 0.4000000000100001D-01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 28 - err = 0.2097938001573999D-10 - ierq = 0 - xs( 1) = 0.2390989853689857D-03 - xs( 2) = 0.1263705195967502D-02 - xs( 3) = 0.3114933843295477D-02 - xs( 4) = 0.5786089560026048D-02 - xs( 5) = 0.9246642081486348D-02 - xs( 6) = 0.1344611486420326D-01 - xs( 7) = 0.1832256370274034D-01 - xs( 8) = 0.2381026598378361D-01 - xs( 9) = 0.2984502066254414D-01 - xs( 10) = 0.3636723100595582D-01 - xs( 11) = 0.4332337456918356D-01 - xs( 12) = 0.5066643580350892D-01 - xs( 13) = 0.5835573656417078D-01 - xs( 14) = 0.6635645972259034D-01 - xs( 15) = 0.7463905134782277D-01 - xs( 16) = 0.8317860987810967D-01 - xs( 17) = 0.9195432156795411D-01 - xs( 18) = 0.1009489745583509D+00 - xs( 19) = 0.1101485602407930D+00 - xs( 20) = 0.1195419684794650D+00 - xs( 21) = 0.1291208324289750D+00 - xs( 22) = 0.1388793713744383D+00 - xs( 23) = 0.1488144562510095D+00 - xs( 24) = 0.1589266716031497D+00 - xs( 25) = 0.1692167761869858D+00 - xs( 26) = 0.1796966193899654D+00 - xs( 27) = 0.1903762671745310D+00 - xs( 28) = 0.2010008339159345D+00 - ws( 1) = 0.6141458166670951D-03 - ws( 2) = 0.1437194169090392D-02 - ws( 3) = 0.2264270655429854D-02 - ws( 4) = 0.3072865666671806D-02 - ws( 5) = 0.3839672487187609D-02 - ws( 6) = 0.4548818174808779D-02 - ws( 7) = 0.5193038288021937D-02 - ws( 8) = 0.5771616302212048D-02 - ws( 9) = 0.6287937164623239D-02 - ws( 10) = 0.6747556938933125D-02 - ws( 11) = 0.7156897785322500D-02 - ws( 12) = 0.7522453362535680D-02 - ws( 13) = 0.7850355573061213D-02 - ws( 14) = 0.8146175615704647D-02 - ws( 15) = 0.8414867138442044D-02 - ws( 16) = 0.8660790387529642D-02 - ws( 17) = 0.8887775322759346D-02 - ws( 18) = 0.9099208538477122D-02 - ws( 19) = 0.9298145607022242D-02 - ws( 20) = 0.9487368718334405D-02 - ws( 21) = 0.9669584551932880D-02 - ws( 22) = 0.9847829960092199D-02 - ws( 23) = 0.1002451988318622D-01 - ws( 24) = 0.1020659172759602D-01 - ws( 25) = 0.1040398589214720D-01 - ws( 26) = 0.1062026993547532D-01 - ws( 27) = 0.1115294316256661D-01 - ws( 28) = 0.1162786562243569D-01 - endif - - - if( iquad .eq. 32 ) then - idomain = 32 - rk0r = 0.4000000000100001D-01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 26 - err = 0.4444904722844570D-10 - ierq = 0 - xs( 1) = 0.1385892568923074D-03 - xs( 2) = 0.8299348724939889D-03 - xs( 3) = 0.2240806155865107D-02 - xs( 4) = 0.4401351757987717D-02 - xs( 5) = 0.7290632558010054D-02 - xs( 6) = 0.1087140422831843D-01 - xs( 7) = 0.1509930917138797D-01 - xs( 8) = 0.1992689881523245D-01 - xs( 9) = 0.2530624863188318D-01 - xs( 10) = 0.3119080810135006D-01 - xs( 11) = 0.3753665378314382D-01 - xs( 12) = 0.4430325818307322D-01 - xs( 13) = 0.5145388631620273D-01 - xs( 14) = 0.5895572537326166D-01 - xs( 15) = 0.6677984079490218D-01 - xs( 16) = 0.7490103446490284D-01 - xs( 17) = 0.8329764854013723D-01 - xs( 18) = 0.9195138174114052D-01 - xs( 19) = 0.1008471845948836D+00 - xs( 20) = 0.1099729885315760D+00 - xs( 21) = 0.1193200063315609D+00 - xs( 22) = 0.1288834379492091D+00 - xs( 23) = 0.1386575390625626D+00 - xs( 24) = 0.1486536630989186D+00 - xs( 25) = 0.1588654174031013D+00 - xs( 26) = 0.1690429497031980D+00 - ws( 1) = 0.3720988112105757D-03 - ws( 2) = 0.1038039155712059D-02 - ws( 3) = 0.1786938925465696D-02 - ws( 4) = 0.2530236587108459D-02 - ws( 5) = 0.3241997254139913D-02 - ws( 6) = 0.3912091351039416D-02 - ws( 7) = 0.4535767790070322D-02 - ws( 8) = 0.5111393563367057D-02 - ws( 9) = 0.5639527036313909D-02 - ws( 10) = 0.6122258798025602D-02 - ws( 11) = 0.6562671860312306D-02 - ws( 12) = 0.6964412971809426D-02 - ws( 13) = 0.7331376103997653D-02 - ws( 14) = 0.7667485581523067D-02 - ws( 15) = 0.7976556645304700D-02 - ws( 16) = 0.8262238010346921D-02 - ws( 17) = 0.8528003524007699D-02 - ws( 18) = 0.8777086728072278D-02 - ws( 19) = 0.9012802446816915D-02 - ws( 20) = 0.9238641250529173D-02 - ws( 21) = 0.9457050288121771D-02 - ws( 22) = 0.9677769172539454D-02 - ws( 23) = 0.9906243555483649D-02 - ws( 24) = 0.1015284034907007D-01 - ws( 25) = 0.1074334425897491D-01 - ws( 26) = 0.1116425627177599D-01 - endif - - - if( iquad .eq. 33 ) then - idomain = 33 - rk0r = 0.4000000000100001D-01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 24 - err = 0.8541738582518263D-10 - ierq = 0 - xs( 1) = 0.1977592066668024D-03 - xs( 2) = 0.1039587327402918D-02 - xs( 3) = 0.2544495721260078D-02 - xs( 4) = 0.4696992624408059D-02 - xs( 5) = 0.7475555451473967D-02 - xs( 6) = 0.1085408593693953D-01 - xs( 7) = 0.1480321291439626D-01 - xs( 8) = 0.1929154013241102D-01 - xs( 9) = 0.2428677104175930D-01 - xs( 10) = 0.2975666780201417D-01 - xs( 11) = 0.3566983049564502D-01 - xs( 12) = 0.4199629974490220D-01 - xs( 13) = 0.4870800332717894D-01 - xs( 14) = 0.5577907940450604D-01 - xs( 15) = 0.6318607994925578D-01 - xs( 16) = 0.7090811641714442D-01 - xs( 17) = 0.7892704057113507D-01 - xs( 18) = 0.8722732858217744D-01 - xs( 19) = 0.9579652623372384D-01 - xs( 20) = 0.1046260320230880D+00 - xs( 21) = 0.1137062988669350D+00 - xs( 22) = 0.1230437685132315D+00 - xs( 23) = 0.1326274452141518D+00 - xs( 24) = 0.1422115934780381D+00 - ws( 1) = 0.5072392783439343D-03 - ws( 2) = 0.1175349776382300D-02 - ws( 3) = 0.1831842838678894D-02 - ws( 4) = 0.2469541959798701D-02 - ws( 5) = 0.3083212096223794D-02 - ws( 6) = 0.3668932726170453D-02 - ws( 7) = 0.4224069873468290D-02 - ws( 8) = 0.4747185920149882D-02 - ws( 9) = 0.5237890548054083D-02 - ws( 10) = 0.5696661494535734D-02 - ws( 11) = 0.6124665724310695D-02 - ws( 12) = 0.6523596552610996D-02 - ws( 13) = 0.6895516342937552D-02 - ws( 14) = 0.7242757300017065D-02 - ws( 15) = 0.7567866332102551D-02 - ws( 16) = 0.7873423810646280D-02 - ws( 17) = 0.8162336531074515D-02 - ws( 18) = 0.8437972719062352D-02 - ws( 19) = 0.8702652584492619D-02 - ws( 20) = 0.8966248725983242D-02 - ws( 21) = 0.9235102922032069D-02 - ws( 22) = 0.9522051843734138D-02 - ws( 23) = 0.1014259342846982D-01 - ws( 24) = 0.1063283070123270D-01 - endif - - - if( iquad .eq. 34 ) then - idomain = 34 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 31 - err = 0.4635394995903862D-10 - ierq = 0 - xs( 1) = 0.2397925567268091D-03 - xs( 2) = 0.1267967293962153D-02 - xs( 3) = 0.3127392502892308D-02 - xs( 4) = 0.5811153494672123D-02 - xs( 5) = 0.9283835181366995D-02 - xs( 6) = 0.1348715959103538D-01 - xs( 7) = 0.1835254898315751D-01 - xs( 8) = 0.2381116307607610D-01 - xs( 9) = 0.2979905618448116D-01 - xs( 10) = 0.3625892028743544D-01 - xs( 11) = 0.4314020255118878D-01 - xs( 12) = 0.5039865270655808D-01 - xs( 13) = 0.5799574248459290D-01 - xs( 14) = 0.6589809268968599D-01 - xs( 15) = 0.7407693465014729D-01 - xs( 16) = 0.8250760892523605D-01 - xs( 17) = 0.9116910478713471D-01 - xs( 18) = 0.1000436468096885D+00 - xs( 19) = 0.1091163352608797D+00 - xs( 20) = 0.1183748459771590D+00 - xs( 21) = 0.1278091946873617D+00 - xs( 22) = 0.1374115712379981D+00 - xs( 23) = 0.1471762528382307D+00 - xs( 24) = 0.1570996138570627D+00 - xs( 25) = 0.1671802610891432D+00 - xs( 26) = 0.1774193534172725D+00 - xs( 27) = 0.1878212384250127D+00 - xs( 28) = 0.1983945346411199D+00 - xs( 29) = 0.2091544008762306D+00 - xs( 30) = 0.2201277365197564D+00 - xs( 31) = 0.2314057066960228D+00 - ws( 1) = 0.6159986205453370D-03 - ws( 2) = 0.1442814506737378D-02 - ws( 3) = 0.2275069568195960D-02 - ws( 4) = 0.3086424596570571D-02 - ws( 5) = 0.3848991573517193D-02 - ws( 6) = 0.4546057022623965D-02 - ws( 7) = 0.5173167349924887D-02 - ws( 8) = 0.5733378708602198D-02 - ws( 9) = 0.6232856610530445D-02 - ws( 10) = 0.6678454583781386D-02 - ws( 11) = 0.7076744822136465D-02 - ws( 12) = 0.7433743694389536D-02 - ws( 13) = 0.7754881640326046D-02 - ws( 14) = 0.8045032360202931D-02 - ws( 15) = 0.8308549358252714D-02 - ws( 16) = 0.8549304343880407D-02 - ws( 17) = 0.8770730903040858D-02 - ws( 18) = 0.8975875082969743D-02 - ws( 19) = 0.9167452315773787D-02 - ws( 20) = 0.9347909447736153D-02 - ws( 21) = 0.9519492029930582D-02 - ws( 22) = 0.9684319432439237D-02 - ws( 23) = 0.9844472743834223D-02 - ws( 24) = 0.1000211518676276D-01 - ws( 25) = 0.1015968378766833D-01 - ws( 26) = 0.1032021627795530D-01 - ws( 27) = 0.1048828243867409D-01 - ws( 28) = 0.1067255622125600D-01 - ws( 29) = 0.1089578780200364D-01 - ws( 30) = 0.1125721887249325D-01 - ws( 31) = 0.1277153927227742D-01 - endif - - - if( iquad .eq. 35 ) then - idomain = 35 - rk0r = 0.1000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 31 - err = 0.3490245704220431D-10 - ierq = 0 - xs( 1) = 0.2427558489379841D-03 - xs( 2) = 0.1282558671412280D-02 - xs( 3) = 0.3159418908418712D-02 - xs( 4) = 0.5862610572405229D-02 - xs( 5) = 0.9354086815415665D-02 - xs( 6) = 0.1357447133748242D-01 - xs( 7) = 0.1845506908807252D-01 - xs( 8) = 0.2392729536027121D-01 - xs( 9) = 0.2992749830964837D-01 - xs( 10) = 0.3639859374285188D-01 - xs( 11) = 0.4329018138989171D-01 - xs( 12) = 0.5055812022372926D-01 - xs( 13) = 0.5816397230519185D-01 - xs( 14) = 0.6607444323698235D-01 - xs( 15) = 0.7426084821663394D-01 - xs( 16) = 0.8269861062832606D-01 - xs( 17) = 0.9136679971973097D-01 - xs( 18) = 0.1002477153095728D+00 - xs( 19) = 0.1093265268295496D+00 - xs( 20) = 0.1185909724472751D+00 - xs( 21) = 0.1280311230851078D+00 - xs( 22) = 0.1376392165844315D+00 - xs( 23) = 0.1474095709639333D+00 - xs( 24) = 0.1573385937688133D+00 - xs( 25) = 0.1674249168598575D+00 - xs( 26) = 0.1776697147970893D+00 - xs( 27) = 0.1880773371398774D+00 - xs( 28) = 0.1986563815087415D+00 - xs( 29) = 0.2094219503635784D+00 - xs( 30) = 0.2204008069726606D+00 - xs( 31) = 0.2316839121404951D+00 - ws( 1) = 0.6234797359631760D-03 - ws( 2) = 0.1458011204002914D-02 - ws( 3) = 0.2294075522687526D-02 - ws( 4) = 0.3105837427694521D-02 - ws( 5) = 0.3866996388142531D-02 - ws( 6) = 0.4562163644708385D-02 - ws( 7) = 0.5187525371242725D-02 - ws( 8) = 0.5746295506376864D-02 - ws( 9) = 0.6244596639364336D-02 - ws( 10) = 0.6689202108343252D-02 - ws( 11) = 0.7086625852584502D-02 - ws( 12) = 0.7442854860984537D-02 - ws( 13) = 0.7763309147318013D-02 - ws( 14) = 0.8052860293551258D-02 - ws( 15) = 0.8315861300401914D-02 - ws( 16) = 0.8556182035325053D-02 - ws( 17) = 0.8777252230785708D-02 - ws( 18) = 0.8982112422397171D-02 - ws( 19) = 0.9173471495144331D-02 - ws( 20) = 0.9353769241784122D-02 - ws( 21) = 0.9525244008115608D-02 - ws( 22) = 0.9690007952773765D-02 - ws( 23) = 0.9850134831890518D-02 - ws( 24) = 0.1000778002125069D-01 - ws( 25) = 0.1016537018026470D-01 - ws( 26) = 0.1032593283557416D-01 - ws( 27) = 0.1049402163201323D-01 - ws( 28) = 0.1067826145091635D-01 - ws( 29) = 0.1090130311497075D-01 - ws( 30) = 0.1126224540216686D-01 - ws( 31) = 0.1277593321625329D-01 - endif - - - if( iquad .eq. 36 ) then - idomain = 36 - rk0r = 0.1000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5999999999800001D-01 - n = 32 - err = 0.1679552950059353D-10 - ierq = 0 - xs( 1) = 0.2355300307713705D-03 - xs( 2) = 0.1243660867698791D-02 - xs( 3) = 0.3061643285520325D-02 - xs( 4) = 0.5679064896572798D-02 - xs( 5) = 0.9061241155720517D-02 - xs( 6) = 0.1315373240585310D-01 - xs( 7) = 0.1789275288675557D-01 - xs( 8) = 0.2321391749562994D-01 - xs( 9) = 0.2905701233050335D-01 - xs( 10) = 0.3536774705073371D-01 - xs( 11) = 0.4209795908395222D-01 - xs( 12) = 0.4920523247949139D-01 - xs( 13) = 0.5665237594983805D-01 - xs( 14) = 0.6440691055101840D-01 - xs( 15) = 0.7244059745924333D-01 - xs( 16) = 0.8072900373126424D-01 - xs( 17) = 0.8925110261614766D-01 - xs( 18) = 0.9798890960539798D-01 - xs( 19) = 0.1069271582604237D+00 - xs( 20) = 0.1160530204049983D+00 - xs( 21) = 0.1253558748468031D+00 - xs( 22) = 0.1348271286213401D+00 - xs( 23) = 0.1444600957649790D+00 - xs( 24) = 0.1542499415393050D+00 - xs( 25) = 0.1641937064223222D+00 - xs( 26) = 0.1742904311410057D+00 - xs( 27) = 0.1845414350889232D+00 - xs( 28) = 0.1949508174474821D+00 - xs( 29) = 0.2055262235977934D+00 - xs( 30) = 0.2162800641121695D+00 - xs( 31) = 0.2272295468158456D+00 - xs( 32) = 0.2383702814286426D+00 - ws( 1) = 0.6048242837586873D-03 - ws( 2) = 0.1412948813234964D-02 - ws( 3) = 0.2221420370883113D-02 - ws( 4) = 0.3007544781296850D-02 - ws( 5) = 0.3747540682964206D-02 - ws( 6) = 0.4426661118227201D-02 - ws( 7) = 0.5040572943596847D-02 - ws( 8) = 0.5591695228744974D-02 - ws( 9) = 0.6085444888213876D-02 - ws( 10) = 0.6528004763024287D-02 - ws( 11) = 0.6925358966605317D-02 - ws( 12) = 0.7282997856312611D-02 - ws( 13) = 0.7605883783251392D-02 - ws( 14) = 0.7898486178717268D-02 - ws( 15) = 0.8164822151243758D-02 - ws( 16) = 0.8408492023769445D-02 - ws( 17) = 0.8632713776138137D-02 - ws( 18) = 0.8840360554959431D-02 - ws( 19) = 0.9034002810773861D-02 - ws( 20) = 0.9215954869200075D-02 - ws( 21) = 0.9388325495627646D-02 - ws( 22) = 0.9553073060363826D-02 - ws( 23) = 0.9712067635658439D-02 - ws( 24) = 0.9867164856750163D-02 - ws( 25) = 0.1002030801029922D-01 - ws( 26) = 0.1017368650643453D-01 - ws( 27) = 0.1033003370350721D-01 - ws( 28) = 0.1049345741293928D-01 - ws( 29) = 0.1067173975902353D-01 - ws( 30) = 0.1088541102863186D-01 - ws( 31) = 0.1122451865096003D-01 - ws( 32) = 0.1246225502399264D-01 - endif - - - if( iquad .eq. 37 ) then - idomain = 37 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.9999999999800001D-01 - n = 31 - err = 0.2925189725658315D-10 - ierq = 0 - xs( 1) = 0.2574762857976283D-03 - xs( 2) = 0.1355770424790204D-02 - xs( 3) = 0.3322550144461166D-02 - xs( 4) = 0.6128877418660236D-02 - xs( 5) = 0.9722028299215644D-02 - xs( 6) = 0.1403435403129868D-01 - xs( 7) = 0.1899419718100262D-01 - xs( 8) = 0.2453306038235716D-01 - xs( 9) = 0.3058866716750243D-01 - xs( 10) = 0.3710562595505972D-01 - xs( 11) = 0.4403513121518356D-01 - xs( 12) = 0.5133441361297969D-01 - xs( 13) = 0.5896617985052594D-01 - xs( 14) = 0.6689808687926513D-01 - xs( 15) = 0.7510224597648822D-01 - xs( 16) = 0.8355475358082796D-01 - xs( 17) = 0.9223525434638358D-01 - xs( 18) = 0.1011265457973325D+00 - xs( 19) = 0.1102142335306597D+00 - xs( 20) = 0.1194864439885336D+00 - xs( 21) = 0.1289336005544682D+00 - xs( 22) = 0.1385482689064546D+00 - xs( 23) = 0.1483250813243014D+00 - xs( 24) = 0.1582607587482493D+00 - xs( 25) = 0.1683542570507245D+00 - xs( 26) = 0.1786071052517545D+00 - xs( 27) = 0.1890240868709434D+00 - xs( 28) = 0.1996142877613143D+00 - xs( 29) = 0.2103936464893441D+00 - xs( 30) = 0.2213906168135149D+00 - xs( 31) = 0.2326891855732583D+00 - ws( 1) = 0.6607363835498338D-03 - ws( 2) = 0.1535224002896251D-02 - ws( 3) = 0.2393529166286638D-02 - ws( 4) = 0.3210164504247547D-02 - ws( 5) = 0.3964666270594628D-02 - ws( 6) = 0.4647923909856327D-02 - ws( 7) = 0.5260300097179595D-02 - ws( 8) = 0.5807039309320386D-02 - ws( 9) = 0.6294948863791878D-02 - ws( 10) = 0.6730844078775508D-02 - ws( 11) = 0.7121047607349197D-02 - ws( 12) = 0.7471310375547632D-02 - ws( 13) = 0.7786839850423478D-02 - ws( 14) = 0.8072333925897512D-02 - ws( 15) = 0.8332007658791668D-02 - ws( 16) = 0.8569621632612216D-02 - ws( 17) = 0.8788518662143027D-02 - ws( 18) = 0.8991670170516037D-02 - ws( 19) = 0.9181730668132203D-02 - ws( 20) = 0.9361098271478437D-02 - ws( 21) = 0.9531981174335156D-02 - ws( 22) = 0.9696472570075916D-02 - ws( 23) = 0.9856638072183505D-02 - ws( 24) = 0.1001463719280584D-01 - ws( 25) = 0.1017292366755981D-01 - ws( 26) = 0.1033454611936544D-01 - ws( 27) = 0.1050418366091532D-01 - ws( 28) = 0.1069064745547004D-01 - ws( 29) = 0.1091625239140170D-01 - ws( 30) = 0.1128586084767723D-01 - ws( 31) = 0.1277552580900457D-01 - endif - - - if( iquad .eq. 38 ) then - idomain = 38 - rk0r = 0.1000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999980000D+00 - n = 31 - err = 0.2179602497295884D-10 - ierq = 0 - xs( 1) = 0.2714656304386217D-03 - xs( 2) = 0.1426435228112946D-02 - xs( 3) = 0.3484332028530340D-02 - xs( 4) = 0.6402828407049230D-02 - xs( 5) = 0.1011739049773923D-01 - xs( 6) = 0.1455213093264741D-01 - xs( 7) = 0.1963033480854888D-01 - xs( 8) = 0.2528058802560715D-01 - xs( 9) = 0.3143904965392081D-01 - xs( 10) = 0.3804965868079421D-01 - xs( 11) = 0.4506355822566357D-01 - xs( 12) = 0.5243834310519783D-01 - xs( 13) = 0.6013733562050899D-01 - xs( 14) = 0.6812893048719433D-01 - xs( 15) = 0.7638600543867545D-01 - xs( 16) = 0.8488539130754230D-01 - xs( 17) = 0.9360740034573432D-01 - xs( 18) = 0.1025354145033912D+00 - xs( 19) = 0.1116555358682717D+00 - xs( 20) = 0.1209563011377110D+00 - xs( 21) = 0.1304284623406816D+00 - xs( 22) = 0.1400648374532257D+00 - xs( 23) = 0.1498602385530470D+00 - xs( 24) = 0.1598114965499673D+00 - xs( 25) = 0.1699176047268641D+00 - xs( 26) = 0.1801800439952637D+00 - xs( 27) = 0.1906034679697193D+00 - xs( 28) = 0.2011966198815301D+00 - xs( 29) = 0.2119748963230050D+00 - xs( 30) = 0.2229662413718034D+00 - xs( 31) = 0.2342433005325762D+00 - ws( 1) = 0.6962743869699066D-03 - ws( 2) = 0.1611272262663819D-02 - ws( 3) = 0.2497394071889858D-02 - ws( 4) = 0.3328638913980704D-02 - ws( 5) = 0.4087652726434222D-02 - ws( 6) = 0.4768943242984399D-02 - ws( 7) = 0.5375529138249675D-02 - ws( 8) = 0.5914336727106200D-02 - ws( 9) = 0.6393253928736454D-02 - ws( 10) = 0.6819834244138970D-02 - ws( 11) = 0.7200909439483867D-02 - ws( 12) = 0.7542558266595756D-02 - ws( 13) = 0.7850169025264874D-02 - ws( 14) = 0.8128509164988761D-02 - ws( 15) = 0.8381787086941504D-02 - ws( 16) = 0.8613710255663938D-02 - ws( 17) = 0.8827544055251081D-02 - ws( 18) = 0.9026172902221892D-02 - ws( 19) = 0.9212163480937395D-02 - ws( 20) = 0.9387829774227177D-02 - ws( 21) = 0.9555300935816066D-02 - ws( 22) = 0.9716596265327376D-02 - ws( 23) = 0.9873710796517429D-02 - ws( 24) = 0.1002873284540112D-01 - ws( 25) = 0.1018404460932710D-01 - ws( 26) = 0.1034260460207532D-01 - ws( 27) = 0.1050898244389563D-01 - ws( 28) = 0.1069198191396184D-01 - ws( 29) = 0.1091280672047787D-01 - ws( 30) = 0.1128111817599840D-01 - ws( 31) = 0.1273612863405989D-01 - endif - - - if( iquad .eq. 39 ) then - idomain = 39 - rk0r = 0.1000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5999999999980000D+00 - n = 31 - err = 0.5577800134218858D-10 - ierq = 0 - xs( 1) = 0.1615510229586064D-03 - xs( 2) = 0.1040823825685723D-02 - xs( 3) = 0.2873357138919287D-02 - xs( 4) = 0.5641180895656623D-02 - xs( 5) = 0.9258664874369063D-02 - xs( 6) = 0.1363004458550167D-01 - xs( 7) = 0.1866529994349250D-01 - xs( 8) = 0.2428495793560823D-01 - xs( 9) = 0.3042042939228696D-01 - xs( 10) = 0.3701283366252189D-01 - xs( 11) = 0.4401160462870044D-01 - xs( 12) = 0.5137328312226538D-01 - xs( 13) = 0.5906053846305023D-01 - xs( 14) = 0.6704136565097149D-01 - xs( 15) = 0.7528840599013667D-01 - xs( 16) = 0.8377836032880739D-01 - xs( 17) = 0.9249148069442914D-01 - xs( 18) = 0.1014111346839423D+00 - xs( 19) = 0.1105234403215910D+00 - xs( 20) = 0.1198169702983199D+00 - xs( 21) = 0.1292825260215252D+00 - xs( 22) = 0.1389129837314511D+00 - xs( 23) = 0.1487032175631826D+00 - xs( 24) = 0.1586501224362387D+00 - xs( 25) = 0.1687527512400935D+00 - xs( 26) = 0.1790126028850103D+00 - xs( 27) = 0.1894343982268175D+00 - xs( 28) = 0.2000265955490920D+00 - xs( 29) = 0.2108041731681505D+00 - xs( 30) = 0.2217958213671476D+00 - xs( 31) = 0.2330187241897463D+00 - ws( 1) = 0.4489394480472060D-03 - ws( 2) = 0.1346694946035157D-02 - ws( 3) = 0.2312110568190487D-02 - ws( 4) = 0.3208590428410140D-02 - ws( 5) = 0.4010190047940180D-02 - ws( 6) = 0.4717498840378070D-02 - ws( 7) = 0.5339767420392034D-02 - ws( 8) = 0.5888139386381567D-02 - ws( 9) = 0.6373014073470335D-02 - ws( 10) = 0.6803386911991525D-02 - ws( 11) = 0.7186927974425437D-02 - ws( 12) = 0.7530220484578727D-02 - ws( 13) = 0.7838967285013508D-02 - ws( 14) = 0.8118137062501534D-02 - ws( 15) = 0.8372068896696337D-02 - ws( 16) = 0.8604555738659607D-02 - ws( 17) = 0.8818919102117292D-02 - ws( 18) = 0.9018080361429395D-02 - ws( 19) = 0.9204630719857627D-02 - ws( 20) = 0.9380900517878602D-02 - ws( 21) = 0.9549029373972730D-02 - ws( 22) = 0.9711044480491050D-02 - ws( 23) = 0.9868944033292072D-02 - ws( 24) = 0.1002480865538371D-01 - ws( 25) = 0.1018104636208001D-01 - ws( 26) = 0.1034053601022626D-01 - ws( 27) = 0.1050787363430576D-01 - ws( 28) = 0.1069257443702765D-01 - ws( 29) = 0.1091180655637985D-01 - ws( 30) = 0.1129806400244036D-01 - ws( 31) = 0.1260309371571566D-01 - endif - - - if( iquad .eq. 40 ) then - idomain = 40 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5707963267928966D+00 - n = 30 - err = 0.8439612832865367D-11 - ierq = 0 - xs( 1) = 0.3202555370493963D-03 - xs( 2) = 0.1669497268723743D-02 - xs( 3) = 0.4029923297871955D-02 - xs( 4) = 0.7307491447816742D-02 - xs( 5) = 0.1139749707997460D-01 - xs( 6) = 0.1619958101315373D-01 - xs( 7) = 0.2162443740534723D-01 - xs( 8) = 0.2759519628164932D-01 - xs( 9) = 0.3404642993498046D-01 - xs( 10) = 0.4092253608165104D-01 - xs( 11) = 0.4817620816538367D-01 - xs( 12) = 0.5576716320171729D-01 - xs( 13) = 0.6366110671048551D-01 - xs( 14) = 0.7182887963751459D-01 - xs( 15) = 0.8024574425433634D-01 - xs( 16) = 0.8889078259034630D-01 - xs( 17) = 0.9774639186697955D-01 - xs( 18) = 0.1067978671693730D+00 - xs( 19) = 0.1160330646709758D+00 - xs( 20) = 0.1254421414988333D+00 - xs( 21) = 0.1350173705084520D+00 - xs( 22) = 0.1447530310841857D+00 - xs( 23) = 0.1546453932015948D+00 - xs( 24) = 0.1646927973315368D+00 - xs( 25) = 0.1748958543419001D+00 - xs( 26) = 0.1852580614098591D+00 - xs( 27) = 0.1957858444527007D+00 - xs( 28) = 0.2064904592528957D+00 - xs( 29) = 0.2173891168196349D+00 - xs( 30) = 0.2284278962514238D+00 - ws( 1) = 0.8197730072002714D-03 - ws( 2) = 0.1868547244550799D-02 - ws( 3) = 0.2836217449790469D-02 - ws( 4) = 0.3701220569948558D-02 - ws( 5) = 0.4461960576407633D-02 - ws( 6) = 0.5127307400821783D-02 - ws( 7) = 0.5709614298373223D-02 - ws( 8) = 0.6221027246335044D-02 - ws( 9) = 0.6672198777575467D-02 - ws( 10) = 0.7072150189631539D-02 - ws( 11) = 0.7428497254314489D-02 - ws( 12) = 0.7747711190266936D-02 - ws( 13) = 0.8035327833305241D-02 - ws( 14) = 0.8296105071705374D-02 - ws( 15) = 0.8534146259837654D-02 - ws( 16) = 0.8753003664879902D-02 - ws( 17) = 0.8955769920512153D-02 - ws( 18) = 0.9145161722614599D-02 - ws( 19) = 0.9323597893904762D-02 - ws( 20) = 0.9493274594690885D-02 - ws( 21) = 0.9656244687023115D-02 - ws( 22) = 0.9814497235625497D-02 - ws( 23) = 0.9970061434544156D-02 - ws( 24) = 0.1012523097287369D-01 - ws( 25) = 0.1028263959462412D-01 - ws( 26) = 0.1044651847692044D-01 - ws( 27) = 0.1062539563085542D-01 - ws( 28) = 0.1083415199515377D-01 - ws( 29) = 0.1119527916028436D-01 - ws( 30) = 0.1229604605918792D-01 - endif - - - if( iquad .eq. 41 ) then - idomain = 41 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1570796326792897D+01 - n = 29 - err = 0.1768359373681278D-10 - ierq = 0 - xs( 1) = 0.3197557677225525D-03 - xs( 2) = 0.1669957226804271D-02 - xs( 3) = 0.4042439746154599D-02 - xs( 4) = 0.7353932281613659D-02 - xs( 5) = 0.1150607986451259D-01 - xs( 6) = 0.1639888943895509D-01 - xs( 7) = 0.2193893720133454D-01 - xs( 8) = 0.2804316331980562D-01 - xs( 9) = 0.3463980830138685D-01 - xs( 10) = 0.4166786683539704D-01 - xs( 11) = 0.4907593251386518D-01 - xs( 12) = 0.5682089258537525D-01 - xs( 13) = 0.6486668319551406D-01 - xs( 14) = 0.7318318755953537D-01 - xs( 15) = 0.8174529920997557D-01 - xs( 16) = 0.9053214617106188D-01 - xs( 17) = 0.9952646187377724D-01 - xs( 18) = 0.1087140865056437D+00 - xs( 19) = 0.1180835856615859D+00 - xs( 20) = 0.1276259751558839D+00 - xs( 21) = 0.1373345445637709D+00 - xs( 22) = 0.1472048119825071D+00 - xs( 23) = 0.1572345655148577D+00 - xs( 24) = 0.1674240322831985D+00 - xs( 25) = 0.1777769322161380D+00 - xs( 26) = 0.1882993225507777D+00 - xs( 27) = 0.1990050100095105D+00 - xs( 28) = 0.2099228668229401D+00 - xs( 29) = 0.2209586136474674D+00 - ws( 1) = 0.8188678890326846D-03 - ws( 2) = 0.1873112858293870D-02 - ws( 3) = 0.2857658900390682D-02 - ws( 4) = 0.3748708678118904D-02 - ws( 5) = 0.4538786437246626D-02 - ws( 6) = 0.5231202980923289D-02 - ws( 7) = 0.5835036998198838D-02 - ws( 8) = 0.6361466445668341D-02 - ws( 9) = 0.6821676241524969D-02 - ws( 10) = 0.7225895300257630D-02 - ws( 11) = 0.7583071518189709D-02 - ws( 12) = 0.7900856394375596D-02 - ws( 13) = 0.8185720971186305D-02 - ws( 14) = 0.8443116282777191D-02 - ws( 15) = 0.8677638938113824D-02 - ws( 16) = 0.8893185752547142D-02 - ws( 17) = 0.9093092799298090D-02 - ws( 18) = 0.9280257922739959D-02 - ws( 19) = 0.9457251132575594D-02 - ws( 20) = 0.9626428217571016D-02 - ws( 21) = 0.9790019703058012D-02 - ws( 22) = 0.9950264197348381D-02 - ws( 23) = 0.1010977736735343D-01 - ws( 24) = 0.1027117031549277D-01 - ws( 25) = 0.1043962834308382D-01 - ws( 26) = 0.1062598417451210D-01 - ws( 27) = 0.1083682498897160D-01 - ws( 28) = 0.1127735557743805D-01 - ws( 29) = 0.1226761288802869D-01 - endif - - - if( iquad .eq. 42 ) then - idomain = 42 - rk0r = 0.1000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 28 - err = 0.1292437229458512D-10 - ierq = 0 - xs( 1) = 0.2622337366593951D-03 - xs( 2) = 0.1375389908560465D-02 - xs( 3) = 0.3353050378275268D-02 - xs( 4) = 0.6155595671117424D-02 - xs( 5) = 0.9730714759369173D-02 - xs( 6) = 0.1401837917701573D-01 - xs( 7) = 0.1895530780271204D-01 - xs( 8) = 0.2447864371631836D-01 - xs( 9) = 0.3052861075097354D-01 - xs( 10) = 0.3705016625439624D-01 - xs( 11) = 0.4399382326446206D-01 - xs( 12) = 0.5131586991581948D-01 - xs( 13) = 0.5897820060579838D-01 - xs( 14) = 0.6694792943124346D-01 - xs( 15) = 0.7519690701427745D-01 - xs( 16) = 0.8370121911270918D-01 - xs( 17) = 0.9244071455895261D-01 - xs( 18) = 0.1013985913842398D+00 - xs( 19) = 0.1105610495064626D+00 - xs( 20) = 0.1199170205681246D+00 - xs( 21) = 0.1294580240768352D+00 - xs( 22) = 0.1391779897490394D+00 - xs( 23) = 0.1490733267008025D+00 - xs( 24) = 0.1591437505924505D+00 - xs( 25) = 0.1693884875651836D+00 - xs( 26) = 0.1798174334275547D+00 - xs( 27) = 0.1904278661168329D+00 - xs( 28) = 0.2009323293170296D+00 - ws( 1) = 0.6722502752844855D-03 - ws( 2) = 0.1550675683191707D-02 - ws( 3) = 0.2397938794211706D-02 - ws( 4) = 0.3198351949930683D-02 - ws( 5) = 0.3941805896044596D-02 - ws( 6) = 0.4622914249924205D-02 - ws( 7) = 0.5240422656823272D-02 - ws( 8) = 0.5796259384148489D-02 - ws( 9) = 0.6294487774043032D-02 - ws( 10) = 0.6740372274504377D-02 - ws( 11) = 0.7139659664024601D-02 - ws( 12) = 0.7498089437108602D-02 - ws( 13) = 0.7821099266243591D-02 - ws( 14) = 0.8113675509905762D-02 - ws( 15) = 0.8380302194027951D-02 - ws( 16) = 0.8624971868511388D-02 - ws( 17) = 0.8851228946411892D-02 - ws( 18) = 0.9062237321267038D-02 - ws( 19) = 0.9260871411001218D-02 - ws( 20) = 0.9449753241395988D-02 - ws( 21) = 0.9631450629929449D-02 - ws( 22) = 0.9808800247732397D-02 - ws( 23) = 0.9983971613743006D-02 - ws( 24) = 0.1016387219844051D-01 - ws( 25) = 0.1035644684789995D-01 - ws( 26) = 0.1056778580780419D-01 - ws( 27) = 0.1108422334283899D-01 - ws( 28) = 0.1140783741943339D-01 - endif - - - if( iquad .eq. 43 ) then - idomain = 43 - rk0r = 0.1000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 26 - err = 0.1485578005293707D-10 - ierq = 0 - xs( 1) = 0.2024872396532051D-03 - xs( 2) = 0.1068432438272514D-02 - xs( 3) = 0.2629819860674740D-02 - xs( 4) = 0.4884889088047279D-02 - xs( 5) = 0.7820673987080076D-02 - xs( 6) = 0.1141245044218805D-01 - xs( 7) = 0.1562623220486326D-01 - xs( 8) = 0.2042224505867274D-01 - xs( 9) = 0.2575809839296109D-01 - xs( 10) = 0.3159122862876514D-01 - xs( 11) = 0.3788059742553201D-01 - xs( 12) = 0.4458776815172532D-01 - xs( 13) = 0.5167751232445857D-01 - xs( 14) = 0.5911808456839851D-01 - xs( 15) = 0.6688128228290048D-01 - xs( 16) = 0.7494237887666463D-01 - xs( 17) = 0.8327998226296629D-01 - xs( 18) = 0.9187589346185877D-01 - xs( 19) = 0.1007150253456427D+00 - xs( 20) = 0.1097851315923753D+00 - xs( 21) = 0.1190771385245750D+00 - xs( 22) = 0.1285857077987236D+00 - xs( 23) = 0.1383041347064382D+00 - xs( 24) = 0.1482426281692863D+00 - xs( 25) = 0.1583877837174033D+00 - xs( 26) = 0.1684681363375429D+00 - ws( 1) = 0.5198539943880663D-03 - ws( 2) = 0.1213187317182550D-02 - ws( 3) = 0.1909368014509240D-02 - ws( 4) = 0.2598615769409921D-02 - ws( 5) = 0.3268785870605390D-02 - ws( 6) = 0.3909041862857254D-02 - ws( 7) = 0.4511838947717733D-02 - ws( 8) = 0.5073081010625437D-02 - ws( 9) = 0.5591503763688025D-02 - ws( 10) = 0.6067899439059501D-02 - ws( 11) = 0.6504422557638423D-02 - ws( 12) = 0.6904043661361386D-02 - ws( 13) = 0.7270153789596666D-02 - ws( 14) = 0.7606295506631625D-02 - ws( 15) = 0.7915989357328622D-02 - ws( 16) = 0.8202656085944057D-02 - ws( 17) = 0.8469586029969122D-02 - ws( 18) = 0.8719859116169796D-02 - ws( 19) = 0.8956681582892298D-02 - ws( 20) = 0.9183395512469600D-02 - ws( 21) = 0.9402274536321613D-02 - ws( 22) = 0.9623157143402524D-02 - ws( 23) = 0.9850184535811787D-02 - ws( 24) = 0.1009500523905476D-01 - ws( 25) = 0.1067891655398664D-01 - ws( 26) = 0.1101565820122409D-01 - endif - - - if( iquad .eq. 44 ) then - idomain = 44 - rk0r = 0.1000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 24 - err = 0.1989753310014615D-10 - ierq = 0 - xs( 1) = 0.1959553462036717D-03 - xs( 2) = 0.1030177018862668D-02 - xs( 3) = 0.2521767670222237D-02 - xs( 4) = 0.4655798163739943D-02 - xs( 5) = 0.7411445393069735D-02 - xs( 6) = 0.1076336277529667D-01 - xs( 7) = 0.1468292064178620D-01 - xs( 8) = 0.1913941835805522D-01 - xs( 9) = 0.2410119543784449D-01 - xs( 10) = 0.2953658904361109D-01 - xs( 11) = 0.3541471474768305D-01 - xs( 12) = 0.4170606855663985D-01 - xs( 13) = 0.4838297066232577D-01 - xs( 14) = 0.5541988155625065D-01 - xs( 15) = 0.6279359876243068D-01 - xs( 16) = 0.7048340120480702D-01 - xs( 17) = 0.7847121541131540D-01 - xs( 18) = 0.8674149037730683D-01 - xs( 19) = 0.9528168274039855D-01 - xs( 20) = 0.1040828675396064D+00 - xs( 21) = 0.1131349922653443D+00 - xs( 22) = 0.1224443386450027D+00 - xs( 23) = 0.1319954036905613D+00 - xs( 24) = 0.1415413448018011D+00 - ws( 1) = 0.5026208927161572D-03 - ws( 2) = 0.1164810108219726D-02 - ws( 3) = 0.1815842482976644D-02 - ws( 4) = 0.2448727505003785D-02 - ws( 5) = 0.3058321690535134D-02 - ws( 6) = 0.3640721096301165D-02 - ws( 7) = 0.4193259405242852D-02 - ws( 8) = 0.4714443436428310D-02 - ws( 9) = 0.5203821269659900D-02 - ws( 10) = 0.5661810356597758D-02 - ws( 11) = 0.6089518951249917D-02 - ws( 12) = 0.6488578494788197D-02 - ws( 13) = 0.6860985061532961D-02 - ws( 14) = 0.7209000788575761D-02 - ws( 15) = 0.7535090006667117D-02 - ws( 16) = 0.7841744414543685D-02 - ws( 17) = 0.8131813026909261D-02 - ws( 18) = 0.8408509823389183D-02 - ws( 19) = 0.8674075575242189D-02 - ws( 20) = 0.8938606552493926D-02 - ws( 21) = 0.9206867462114181D-02 - ws( 22) = 0.9495043419216177D-02 - ws( 23) = 0.1011226464826737D-01 - ws( 24) = 0.1057330268490045D-01 - endif - - - if( iquad .eq. 45 ) then - idomain = 45 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 32 - err = 0.4832460334391983D-10 - ierq = 0 - xs( 1) = 0.1309413432094281D-03 - xs( 2) = 0.7566486978416731D-03 - xs( 3) = 0.2029403670630347D-02 - xs( 4) = 0.4028988327072497D-02 - xs( 5) = 0.6783888242210321D-02 - xs( 6) = 0.1028298741930133D-01 - xs( 7) = 0.1448604918116208D-01 - xs( 8) = 0.1933701482822091D-01 - xs( 9) = 0.2477493572905275D-01 - xs( 10) = 0.3074041132057505D-01 - xs( 11) = 0.3717851357456076D-01 - xs( 12) = 0.4403977531155386D-01 - xs( 13) = 0.5128031073082166D-01 - xs( 14) = 0.5886158683105523D-01 - xs( 15) = 0.6675005383246070D-01 - xs( 16) = 0.7491671614938272D-01 - xs( 17) = 0.8333668480754693D-01 - xs( 18) = 0.9198873948035252D-01 - xs( 19) = 0.1008549213917498D+00 - xs( 20) = 0.1099201721924627D+00 - xs( 21) = 0.1191720287772520D+00 - xs( 22) = 0.1286003809480259D+00 - xs( 23) = 0.1381972979686338D+00 - xs( 24) = 0.1479569326748272D+00 - xs( 25) = 0.1578755193712792D+00 - xs( 26) = 0.1679514900847149D+00 - xs( 27) = 0.1781857678718941D+00 - xs( 28) = 0.1885823434995585D+00 - xs( 29) = 0.1991492392506235D+00 - xs( 30) = 0.2099003535298534D+00 - xs( 31) = 0.2208589512466162D+00 - xs( 32) = 0.2320919298012388D+00 - ws( 1) = 0.3459464182168265D-03 - ws( 2) = 0.9305548468162607D-03 - ws( 3) = 0.1627735722192994D-02 - ws( 4) = 0.2376058791683778D-02 - ws( 5) = 0.3131712631629485D-02 - ws( 6) = 0.3859540952021576D-02 - ws( 7) = 0.4537053155081541D-02 - ws( 8) = 0.5154616242399422D-02 - ws( 9) = 0.5711280843528419D-02 - ws( 10) = 0.6210501694312880D-02 - ws( 11) = 0.6657457395360307D-02 - ws( 12) = 0.7057756011002377D-02 - ws( 13) = 0.7416898985292155D-02 - ws( 14) = 0.7740068827200284D-02 - ws( 15) = 0.8032040109660665D-02 - ws( 16) = 0.8297143725880925D-02 - ws( 17) = 0.8539263726304180D-02 - ws( 18) = 0.8761858623287140D-02 - ws( 19) = 0.8968000806948234D-02 - ws( 20) = 0.9160428277839036D-02 - ws( 21) = 0.9341604414538107D-02 - ws( 22) = 0.9513784204913179D-02 - ws( 23) = 0.9679088065665429D-02 - ws( 24) = 0.9839588071662041D-02 - ws( 25) = 0.9997425509855157D-02 - ws( 26) = 0.1015498835948069D-01 - ws( 27) = 0.1031524493233420D-01 - ws( 28) = 0.1048261164968949D-01 - ws( 29) = 0.1066543152599809D-01 - ws( 30) = 0.1088568845476073D-01 - ws( 31) = 0.1123881044877438D-01 - ws( 32) = 0.1268971064585492D-01 - endif - - - if( iquad .eq. 46 ) then - idomain = 46 - rk0r = 0.2000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 32 - err = 0.5402253811313244D-10 - ierq = 0 - xs( 1) = 0.9190089907973929D-04 - xs( 2) = 0.6599055040593838D-03 - xs( 3) = 0.1920889609889293D-02 - xs( 4) = 0.3931479793911836D-02 - xs( 5) = 0.6706980883440065D-02 - xs( 6) = 0.1023044948285631D-01 - xs( 7) = 0.1445885340772164D-01 - xs( 8) = 0.1933481154348568D-01 - xs( 9) = 0.2479675503350146D-01 - xs( 10) = 0.3078497286403444D-01 - xs( 11) = 0.3724437174727986D-01 - xs( 12) = 0.4412541002274374D-01 - xs( 13) = 0.5138420063849739D-01 - xs( 14) = 0.5898227027112304D-01 - xs( 15) = 0.6688617509365950D-01 - xs( 16) = 0.7506705616869248D-01 - xs( 17) = 0.8350017808597492D-01 - xs( 18) = 0.9216448056163888D-01 - xs( 19) = 0.1010421645227308D+00 - xs( 20) = 0.1101183273534882D+00 - xs( 21) = 0.1193806566231413D+00 - xs( 22) = 0.1288191886629425D+00 - xs( 23) = 0.1384261376651524D+00 - xs( 24) = 0.1481958039575596D+00 - xs( 25) = 0.1581245783454792D+00 - xs( 26) = 0.1682110683703756D+00 - xs( 27) = 0.1784564071979005D+00 - xs( 28) = 0.1888648662146920D+00 - xs( 29) = 0.1994448825455732D+00 - xs( 30) = 0.2102111135111882D+00 - xs( 31) = 0.2211888302211109D+00 - xs( 32) = 0.2324575506057545D+00 - ws( 1) = 0.2689434361840808D-03 - ws( 2) = 0.8993791620223689D-03 - ws( 3) = 0.1630573547353365D-02 - ws( 4) = 0.2393218347275214D-02 - ws( 5) = 0.3154842869307588D-02 - ws( 6) = 0.3884706157125615D-02 - ws( 7) = 0.4562364185361357D-02 - ws( 8) = 0.5179193021128963D-02 - ws( 9) = 0.5734699951095779D-02 - ws( 10) = 0.6232540257000957D-02 - ws( 11) = 0.6677999903239325D-02 - ws( 12) = 0.7076766564550936D-02 - ws( 13) = 0.7434409021481087D-02 - ws( 14) = 0.7756163781496324D-02 - ws( 15) = 0.8046843805495607D-02 - ws( 16) = 0.8310803314225063D-02 - ws( 17) = 0.8551937442087695D-02 - ws( 18) = 0.8773707188189166D-02 - ws( 19) = 0.8979182310322405D-02 - ws( 20) = 0.9171095924491625D-02 - ws( 21) = 0.9351906500711922D-02 - ws( 22) = 0.9523865881266158D-02 - ws( 23) = 0.9689094673461164D-02 - ws( 24) = 0.9849670158861235D-02 - ws( 25) = 0.1000774627111377D-01 - ws( 26) = 0.1016573633257008D-01 - ws( 27) = 0.1032665265332294D-01 - ws( 28) = 0.1049500510795294D-01 - ws( 29) = 0.1067927996523085D-01 - ws( 30) = 0.1090192676454385D-01 - ws( 31) = 0.1126038939564610D-01 - ws( 32) = 0.1274415467219463D-01 - endif - - - if( iquad .eq. 47 ) then - idomain = 47 - rk0r = 0.2000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5999999999800001D-01 - n = 32 - err = 0.6296003769495937D-10 - ierq = 0 - xs( 1) = 0.2118341290290866D-03 - xs( 2) = 0.1124439435462421D-02 - xs( 3) = 0.2791334602329732D-02 - xs( 4) = 0.5229502884358265D-02 - xs( 5) = 0.8429959346897683D-02 - xs( 6) = 0.1235635922104008D-01 - xs( 7) = 0.1695463395673511D-01 - xs( 8) = 0.2216375615819532D-01 - xs( 9) = 0.2792295150678803D-01 - xs( 10) = 0.3417531828344418D-01 - xs( 11) = 0.4086923122865627D-01 - xs( 12) = 0.4795867127935338D-01 - xs( 13) = 0.5540309595951912D-01 - xs( 14) = 0.6316711543161857D-01 - xs( 15) = 0.7122008130632132D-01 - xs( 16) = 0.7953564011083938D-01 - xs( 17) = 0.8809128554702204D-01 - xs( 18) = 0.9686793502407219D-01 - xs( 19) = 0.1058495488036857D+00 - xs( 20) = 0.1150228040113278D+00 - xs( 21) = 0.1243768317083764D+00 - xs( 22) = 0.1339030240105397D+00 - xs( 23) = 0.1435949201597133D+00 - xs( 24) = 0.1534481861017769D+00 - xs( 25) = 0.1634607186620193D+00 - xs( 26) = 0.1736329253817009D+00 - xs( 27) = 0.1839682883795344D+00 - xs( 28) = 0.1944744828854764D+00 - xs( 29) = 0.2051654466074961D+00 - xs( 30) = 0.2160658029548924D+00 - xs( 31) = 0.2272289984804778D+00 - xs( 32) = 0.2393328346442553D+00 - ws( 1) = 0.5446758428038299D-03 - ws( 2) = 0.1285403790639579D-02 - ws( 3) = 0.2051535321871526D-02 - ws( 4) = 0.2823307350042465D-02 - ws( 5) = 0.3571359679772873D-02 - ws( 6) = 0.4272239242211060D-02 - ws( 7) = 0.4914020205795556D-02 - ws( 8) = 0.5494038680812136D-02 - ws( 9) = 0.6014847759852640D-02 - ws( 10) = 0.6481277452454708D-02 - ws( 11) = 0.6898881305202825D-02 - ws( 12) = 0.7273247333667872D-02 - ws( 13) = 0.7609710685733163D-02 - ws( 14) = 0.7913227715974823D-02 - ws( 15) = 0.8188319313914673D-02 - ws( 16) = 0.8439054353231433D-02 - ws( 17) = 0.8669062479882061D-02 - ws( 18) = 0.8881568680466370D-02 - ws( 19) = 0.9079442911160342D-02 - ws( 20) = 0.9265259550765553D-02 - ws( 21) = 0.9441363988153945D-02 - ws( 22) = 0.9609946532076048D-02 - ws( 23) = 0.9773128201420496D-02 - ws( 24) = 0.9933068469610139D-02 - ws( 25) = 0.1009211215633797D-01 - ws( 26) = 0.1025303930997907D-01 - ws( 27) = 0.1041950080492463D-01 - ws( 28) = 0.1059693269903071D-01 - ws( 29) = 0.1079541364888184D-01 - ws( 30) = 0.1103592372086877D-01 - ws( 31) = 0.1139834267924261D-01 - ws( 32) = 0.1528593086330191D-01 - endif - - - if( iquad .eq. 48 ) then - idomain = 48 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.9999999999800001D-01 - n = 32 - err = 0.2919470965933113D-10 - ierq = 0 - xs( 1) = 0.1840011687463040D-03 - xs( 2) = 0.9860376917150116D-03 - xs( 3) = 0.2480922769654539D-02 - xs( 4) = 0.4714178604587197D-02 - xs( 5) = 0.7698610230021835D-02 - xs( 6) = 0.1141109361672870D-01 - xs( 7) = 0.1580437051502255D-01 - xs( 8) = 0.2082047323579462D-01 - xs( 9) = 0.2639974353253861D-01 - xs( 10) = 0.3248539541821464D-01 - xs( 11) = 0.3902535368099620D-01 - xs( 12) = 0.4597279194797032D-01 - xs( 13) = 0.5328613038825321D-01 - xs( 14) = 0.6092881004579025D-01 - xs( 15) = 0.6886896046877010D-01 - xs( 16) = 0.7707901106612335D-01 - xs( 17) = 0.8553527991442102D-01 - xs( 18) = 0.9421756788524804D-01 - xs( 19) = 0.1031087800695483D+00 - xs( 20) = 0.1121945901015758D+00 - xs( 21) = 0.1214631576597854D+00 - xs( 22) = 0.1309049063254544D+00 - xs( 23) = 0.1405123683963445D+00 - xs( 24) = 0.1502801055879648D+00 - xs( 25) = 0.1602047227646589D+00 - xs( 26) = 0.1702850005385741D+00 - xs( 27) = 0.1805222005146839D+00 - xs( 28) = 0.1909206850261186D+00 - xs( 29) = 0.2014888572103170D+00 - xs( 30) = 0.2122411863355929D+00 - xs( 31) = 0.2232021350732097D+00 - xs( 32) = 0.2344311442107637D+00 - ws( 1) = 0.4742686639739816D-03 - ws( 2) = 0.1139138591813612D-02 - ws( 3) = 0.1858707040235272D-02 - ws( 4) = 0.2609959547478680D-02 - ws( 5) = 0.3354816841466528D-02 - ws( 6) = 0.4062037017975697D-02 - ws( 7) = 0.4714707012983848D-02 - ws( 8) = 0.5307484189408775D-02 - ws( 9) = 0.5841564870612502D-02 - ws( 10) = 0.6321052418776966D-02 - ws( 11) = 0.6751060402482666D-02 - ws( 12) = 0.7136890149105909D-02 - ws( 13) = 0.7483699216605769D-02 - ws( 14) = 0.7796354914011284D-02 - ws( 15) = 0.8079357759023759D-02 - ws( 16) = 0.8336803278482333D-02 - ws( 17) = 0.8572374276525024D-02 - ws( 18) = 0.8789358218520033D-02 - ws( 19) = 0.8990683367665205D-02 - ws( 20) = 0.9178967617586815D-02 - ws( 21) = 0.9356575646396973D-02 - ws( 22) = 0.9525682768773032D-02 - ws( 23) = 0.9688347253875074D-02 - ws( 24) = 0.9846594961610678D-02 - ws( 25) = 0.1000253563300736D-01 - ws( 26) = 0.1015854817640265D-01 - ws( 27) = 0.1031758934265540D-01 - ws( 28) = 0.1048413141650589D-01 - ws( 29) = 0.1066666888941163D-01 - ws( 30) = 0.1088669731131138D-01 - ws( 31) = 0.1124485449019397D-01 - ws( 32) = 0.1266731341309802D-01 - endif - - - if( iquad .eq. 49 ) then - idomain = 49 - rk0r = 0.2000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999980000D+00 - n = 31 - err = 0.7731058054562121D-10 - ierq = 0 - xs( 1) = 0.2404726282757475D-03 - xs( 2) = 0.1271900022253447D-02 - xs( 3) = 0.3137776976325043D-02 - xs( 4) = 0.5830647696192655D-02 - xs( 5) = 0.9313998298336868D-02 - xs( 6) = 0.1352914015303226D-01 - xs( 7) = 0.1840784056055466D-01 - xs( 8) = 0.2388164946518687D-01 - xs( 9) = 0.2988657996689480D-01 - xs( 10) = 0.3636483693818333D-01 - xs( 11) = 0.4326514854371678D-01 - xs( 12) = 0.5054253573665719D-01 - xs( 13) = 0.5815787217331831D-01 - xs( 14) = 0.6607736660095419D-01 - xs( 15) = 0.7427202239441233D-01 - xs( 16) = 0.8271710636899969D-01 - xs( 17) = 0.9139165060041805D-01 - xs( 18) = 0.1002780043912910D+00 - xs( 19) = 0.1093614473681317D+00 - xs( 20) = 0.1186298700574724D+00 - xs( 21) = 0.1280735261393724D+00 - xs( 22) = 0.1376848604360397D+00 - xs( 23) = 0.1474584206626730D+00 - xs( 24) = 0.1573908719583068D+00 - xs( 25) = 0.1674811347936392D+00 - xs( 26) = 0.1777307190969535D+00 - xs( 27) = 0.1881444355848627D+00 - xs( 28) = 0.1987313096337291D+00 - xs( 29) = 0.2095074734727067D+00 - xs( 30) = 0.2205019563209645D+00 - xs( 31) = 0.2317880518329629D+00 - ws( 1) = 0.6177945656113102D-03 - ws( 2) = 0.1447646333481453D-02 - ws( 3) = 0.2283037090934756D-02 - ws( 4) = 0.3096466535988668D-02 - ws( 5) = 0.3860220239786194D-02 - ws( 6) = 0.4558535540799101D-02 - ws( 7) = 0.5187384088558962D-02 - ws( 8) = 0.5749544207431655D-02 - ws( 9) = 0.6250680600056893D-02 - ws( 10) = 0.6697292609247866D-02 - ws( 11) = 0.7095841690913681D-02 - ws( 12) = 0.7452420377981306D-02 - ws( 13) = 0.7772629703504580D-02 - ws( 14) = 0.8061535297152967D-02 - ws( 15) = 0.8323662450643797D-02 - ws( 16) = 0.8563018375061999D-02 - ws( 17) = 0.8783134861822035D-02 - ws( 18) = 0.8987124880989241D-02 - ws( 19) = 0.9177747586242294D-02 - ws( 20) = 0.9357477985745884D-02 - ws( 21) = 0.9528580811731540D-02 - ws( 22) = 0.9693191642640748D-02 - ws( 23) = 0.9853407213981721D-02 - ws( 24) = 0.1001141288741130D-01 - ws( 25) = 0.1016968768791861D-01 - ws( 26) = 0.1033127803670446D-01 - ws( 27) = 0.1050095757280215D-01 - ws( 28) = 0.1068764317664607D-01 - ws( 29) = 0.1091284465865781D-01 - ws( 30) = 0.1128851326986225D-01 - ws( 31) = 0.1274159536527091D-01 - endif - - - if( iquad .eq. 50 ) then - idomain = 50 - rk0r = 0.2000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5999999999980000D+00 - n = 31 - err = 0.6811394345682848D-10 - ierq = 0 - xs( 1) = 0.2161737677114302D-03 - xs( 2) = 0.1174069906124950D-02 - xs( 3) = 0.2975199665202228D-02 - xs( 4) = 0.5636638827668518D-02 - xs( 5) = 0.9116663550939841D-02 - xs( 6) = 0.1334525070410194D-01 - xs( 7) = 0.1824552763976548D-01 - xs( 8) = 0.2374396598466921D-01 - xs( 9) = 0.2977392564101610D-01 - xs( 10) = 0.3627628904189770D-01 - xs( 11) = 0.4319913812446913D-01 - xs( 12) = 0.5049720029587514D-01 - xs( 13) = 0.5813125405195652D-01 - xs( 14) = 0.6606752923194814D-01 - xs( 15) = 0.7427711489988133D-01 - xs( 16) = 0.8273539224435893D-01 - xs( 17) = 0.9142151100396728D-01 - xs( 18) = 0.1003179238168753D+00 - xs( 19) = 0.1094099871933070D+00 - xs( 20) = 0.1186856331651119D+00 - xs( 21) = 0.1281351138221677D+00 - xs( 22) = 0.1377508209254565D+00 - xs( 23) = 0.1475271848174404D+00 - xs( 24) = 0.1574606723755954D+00 - xs( 25) = 0.1675498933638013D+00 - xs( 26) = 0.1777958568031613D+00 - xs( 27) = 0.1882026725236409D+00 - xs( 28) = 0.1987778969667728D+00 - xs( 29) = 0.2095351889390975D+00 - xs( 30) = 0.2204989456335354D+00 - xs( 31) = 0.2316715447627679D+00 - ws( 1) = 0.5597424614543395D-03 - ws( 2) = 0.1370477258729109D-02 - ws( 3) = 0.2234361828061758D-02 - ws( 4) = 0.3080983461690930D-02 - ws( 5) = 0.3867043788047252D-02 - ws( 6) = 0.4577161144147709D-02 - ws( 7) = 0.5211088034969689D-02 - ws( 8) = 0.5774675726501375D-02 - ws( 9) = 0.6275397474178716D-02 - ws( 10) = 0.6720685865759604D-02 - ws( 11) = 0.7117476815412608D-02 - ws( 12) = 0.7472120632318418D-02 - ws( 13) = 0.7790368435194270D-02 - ws( 14) = 0.8077372940081283D-02 - ws( 15) = 0.8337704035603338D-02 - ws( 16) = 0.8575383426659760D-02 - ws( 17) = 0.8793936293430168D-02 - ws( 18) = 0.8996454465774021D-02 - ws( 19) = 0.9185665847616065D-02 - ws( 20) = 0.9364006332517076D-02 - ws( 21) = 0.9533693290456731D-02 - ws( 22) = 0.9696806449668348D-02 - ws( 23) = 0.9855372071699404D-02 - ws( 24) = 0.1001147678099248D-01 - ws( 25) = 0.1016749382369588D-01 - ws( 26) = 0.1032623045372628D-01 - ws( 27) = 0.1049218677444968D-01 - ws( 28) = 0.1067430191983222D-01 - ws( 29) = 0.1088949711625904D-01 - ws( 30) = 0.1126721112904235D-01 - ws( 31) = 0.1252246440172255D-01 - endif - - - if( iquad .eq. 51 ) then - idomain = 51 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5707963267928966D+00 - n = 30 - err = 0.1004729865533481D-10 - ierq = 0 - xs( 1) = 0.2813165920374692D-03 - xs( 2) = 0.1477740064369957D-02 - xs( 3) = 0.3607792605371711D-02 - xs( 4) = 0.6625264253402811D-02 - xs( 5) = 0.1046065096793343D-01 - xs( 6) = 0.1503261752278578D-01 - xs( 7) = 0.2025909554741816D-01 - xs( 8) = 0.2606382606412114D-01 - xs( 9) = 0.3237885461550635D-01 - xs( 10) = 0.3914484130660213D-01 - xs( 11) = 0.4631051432310680D-01 - xs( 12) = 0.5383187657770745D-01 - xs( 13) = 0.6167137796599861D-01 - xs( 14) = 0.6979711995475825D-01 - xs( 15) = 0.7818211984643875D-01 - xs( 16) = 0.8680365121247065D-01 - xs( 17) = 0.9564267026098573D-01 - xs( 18) = 0.1046833318727002D+00 - xs( 19) = 0.1139125947537652D+00 - xs( 20) = 0.1233199137623240D+00 - xs( 21) = 0.1328970176885000D+00 - xs( 22) = 0.1426377735843964D+00 - xs( 23) = 0.1525381541677638D+00 - xs( 24) = 0.1625963126032298D+00 - xs( 25) = 0.1728128032240582D+00 - xs( 26) = 0.1831912150492679D+00 - xs( 27) = 0.1937384109052195D+00 - xs( 28) = 0.2044668696072492D+00 - xs( 29) = 0.2153974559564233D+00 - xs( 30) = 0.2265123006667086D+00 - ws( 1) = 0.7214870441214596D-03 - ws( 2) = 0.1668602345917864D-02 - ws( 3) = 0.2583717708676824D-02 - ws( 4) = 0.3439427382479070D-02 - ws( 5) = 0.4217595537084015D-02 - ws( 6) = 0.4912553464454658D-02 - ws( 7) = 0.5527656271711078D-02 - ws( 8) = 0.6070476985251725D-02 - ws( 9) = 0.6549700531834145D-02 - ws( 10) = 0.6973741177357422D-02 - ws( 11) = 0.7350285927670391D-02 - ws( 12) = 0.7686193547924604D-02 - ws( 13) = 0.7987505114265417D-02 - ws( 14) = 0.8259492777169612D-02 - ws( 15) = 0.8506728874723450D-02 - ws( 16) = 0.8733168061338758D-02 - ws( 17) = 0.8942236001837876D-02 - ws( 18) = 0.9136919461338568D-02 - ws( 19) = 0.9319854417829209D-02 - ws( 20) = 0.9493412136284959D-02 - ws( 21) = 0.9659788343241504D-02 - ws( 22) = 0.9821093339846017D-02 - ws( 23) = 0.9979469059880834D-02 - ws( 24) = 0.1013731156073496D-01 - ws( 25) = 0.1029740411079488D-01 - ws( 26) = 0.1046417129501302D-01 - ws( 27) = 0.1064629069394583D-01 - ws( 28) = 0.1086032834534473D-01 - ws( 29) = 0.1123122997682680D-01 - ws( 30) = 0.1243290750997541D-01 - endif - - - if( iquad .eq. 52 ) then - idomain = 52 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1570796326792897D+01 - n = 29 - err = 0.1196780049846907D-10 - ierq = 0 - xs( 1) = 0.3162874985279277D-03 - xs( 2) = 0.1652789711392694D-02 - xs( 3) = 0.4004555470447316D-02 - xs( 4) = 0.7293142517090612D-02 - xs( 5) = 0.1142432788494946D-01 - xs( 6) = 0.1630058912902298D-01 - xs( 7) = 0.2182930968990155D-01 - xs( 8) = 0.2792709021184173D-01 - xs( 9) = 0.3452126967824252D-01 - xs( 10) = 0.4154980566850364D-01 - xs( 11) = 0.4896035206749571D-01 - xs( 12) = 0.5670904357490589D-01 - xs( 13) = 0.6475925938003450D-01 - xs( 14) = 0.7308049379690912D-01 - xs( 15) = 0.8164738199238711D-01 - xs( 16) = 0.9043888884853495D-01 - xs( 17) = 0.9943765110205345D-01 - xs( 18) = 0.1086294569494759D+00 - xs( 19) = 0.1180028490523305D+00 - xs( 20) = 0.1275488382341400D+00 - xs( 21) = 0.1372607193989178D+00 - xs( 22) = 0.1471340211262139D+00 - xs( 23) = 0.1571665421702891D+00 - xs( 24) = 0.1673585168169293D+00 - xs( 25) = 0.1777136691346984D+00 - xs( 26) = 0.1882380179211933D+00 - xs( 27) = 0.1989453543256459D+00 - xs( 28) = 0.2098640422699838D+00 - xs( 29) = 0.2208946820322024D+00 - ws( 1) = 0.8100994887825327D-03 - ws( 2) = 0.1855125826531231D-02 - ws( 3) = 0.2835050566562419D-02 - ws( 4) = 0.3726210754494816D-02 - ws( 5) = 0.4519770435359847D-02 - ws( 6) = 0.5217247097627907D-02 - ws( 7) = 0.5826271635755728D-02 - ws( 8) = 0.6357183219964999D-02 - ws( 9) = 0.6820851850546117D-02 - ws( 10) = 0.7227516646741642D-02 - ws( 11) = 0.7586286155249455D-02 - ws( 12) = 0.7905012321066794D-02 - ws( 13) = 0.8190351269358031D-02 - ws( 14) = 0.8447903627295739D-02 - ws( 15) = 0.8682377972995535D-02 - ws( 16) = 0.8897750751397633D-02 - ws( 17) = 0.9097412502579704D-02 - ws( 18) = 0.9284297039422629D-02 - ws( 19) = 0.9460997246490731D-02 - ws( 20) = 0.9629882560442235D-02 - ws( 21) = 0.9793190867145337D-02 - ws( 22) = 0.9953163670521004D-02 - ws( 23) = 0.1011241382893194D-01 - ws( 24) = 0.1027355398785783D-01 - ws( 25) = 0.1044177119944263D-01 - ws( 26) = 0.1062781657565832D-01 - ws( 27) = 0.1083824898870817D-01 - ws( 28) = 0.1127850540505917D-01 - ws( 29) = 0.1225309728918952D-01 - endif - - - if( iquad .eq. 53 ) then - idomain = 53 - rk0r = 0.2000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 28 - err = 0.1797007098806977D-10 - ierq = 0 - xs( 1) = 0.2055199624918369D-03 - xs( 2) = 0.1114623271066316D-02 - xs( 3) = 0.2823600389508327D-02 - xs( 4) = 0.5357042417458880D-02 - xs( 5) = 0.8689868936568382D-02 - xs( 6) = 0.1276993119241121D-01 - xs( 7) = 0.1753371738524715D-01 - xs( 8) = 0.2291505096903220D-01 - xs( 9) = 0.2884993612159758D-01 - xs( 10) = 0.3527916755276665D-01 - xs( 11) = 0.4214954060226135D-01 - xs( 12) = 0.4941418735640708D-01 - xs( 13) = 0.5703239921534494D-01 - xs( 14) = 0.6496918037810930D-01 - xs( 15) = 0.7319469033177949D-01 - xs( 16) = 0.8168367127736255D-01 - xs( 17) = 0.9041491518696414D-01 - xs( 18) = 0.9937080152019154D-01 - xs( 19) = 0.1085369154731072D+00 - xs( 20) = 0.1179017565877983D+00 - xs( 21) = 0.1274565829588385D+00 - xs( 22) = 0.1371952647192884D+00 - xs( 23) = 0.1471143899094292D+00 - xs( 24) = 0.1572141132390528D+00 - xs( 25) = 0.1674951305580515D+00 - xs( 26) = 0.1779693648619113D+00 - xs( 27) = 0.1886432209545296D+00 - xs( 28) = 0.1992714290002013D+00 - ws( 1) = 0.5318809769364224D-03 - ws( 2) = 0.1299840927188462D-02 - ws( 3) = 0.2122023248066905D-02 - ws( 4) = 0.2940249823741432D-02 - ws( 5) = 0.3716460492996208D-02 - ws( 6) = 0.4432941372670108D-02 - ws( 7) = 0.5083524239228321D-02 - ws( 8) = 0.5668435296138812D-02 - ws( 9) = 0.6191448500034284D-02 - ws( 10) = 0.6658142161660401D-02 - ws( 11) = 0.7074796153921244D-02 - ws( 12) = 0.7447720401804659D-02 - ws( 13) = 0.7782880254630671D-02 - ws( 14) = 0.8085718524327816D-02 - ws( 15) = 0.8361101031776168D-02 - ws( 16) = 0.8613335286307864D-02 - ws( 17) = 0.8846226393242396D-02 - ws( 18) = 0.9063156871475136D-02 - ws( 19) = 0.9267189193343199D-02 - ws( 20) = 0.9461126830754965D-02 - ws( 21) = 0.9647710065978959D-02 - ws( 22) = 0.9829940952573160D-02 - ws( 23) = 0.1001040410367515D-01 - ws( 24) = 0.1019605892070922D-01 - ws( 25) = 0.1039572885314823D-01 - ws( 26) = 0.1061903893579140D-01 - ws( 27) = 0.1114867075644633D-01 - ws( 28) = 0.1161290129968529D-01 - endif - - - if( iquad .eq. 54 ) then - idomain = 54 - rk0r = 0.2000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 26 - err = 0.2627341174084980D-10 - ierq = 0 - xs( 1) = 0.2274484233053541D-03 - xs( 2) = 0.1194491531084947D-02 - xs( 3) = 0.2918632794415647D-02 - xs( 4) = 0.5374803231242372D-02 - xs( 5) = 0.8529017986388675D-02 - xs( 6) = 0.1234108841905614D-01 - xs( 7) = 0.1676711045207234D-01 - xs( 8) = 0.2176170520200745D-01 - xs( 9) = 0.2727986243686758D-01 - xs( 10) = 0.3327832605204162D-01 - xs( 11) = 0.3971653867951516D-01 - xs( 12) = 0.4655721051038492D-01 - xs( 13) = 0.5376659705214628D-01 - xs( 14) = 0.6131456998130413D-01 - xs( 15) = 0.6917455579694178D-01 - xs( 16) = 0.7732340295090434D-01 - xs( 17) = 0.8574121367955086D-01 - xs( 18) = 0.9441119586564450D-01 - xs( 19) = 0.1033195824036889D+00 - xs( 20) = 0.1124554325999842D+00 - xs( 21) = 0.1218109692705894D+00 - xs( 22) = 0.1313820483949965D+00 - xs( 23) = 0.1411643547228295D+00 - xs( 24) = 0.1511693320025272D+00 - xs( 25) = 0.1613883390348661D+00 - xs( 26) = 0.1715785465238338D+00 - ws( 1) = 0.5832554309184722D-03 - ws( 2) = 0.1348865506438336D-02 - ws( 3) = 0.2095174801188273D-02 - ws( 4) = 0.2811458957584769D-02 - ws( 5) = 0.3490230483470885D-02 - ws( 6) = 0.4126555308940791D-02 - ws( 7) = 0.4717894743970805D-02 - ws( 8) = 0.5263770021073010D-02 - ws( 9) = 0.5765319536642509D-02 - ws( 10) = 0.6224838900785798D-02 - ws( 11) = 0.6645367172462092D-02 - ws( 12) = 0.7030351859091804D-02 - ws( 13) = 0.7383401900406946D-02 - ws( 14) = 0.7708120762013726D-02 - ws( 15) = 0.8008002591959756D-02 - ws( 16) = 0.8286393650168540D-02 - ws( 17) = 0.8546490567480860D-02 - ws( 18) = 0.8791307523434549D-02 - ws( 19) = 0.9023960995407003D-02 - ws( 20) = 0.9247691981524203D-02 - ws( 21) = 0.9465156993270453D-02 - ws( 22) = 0.9685540896767812D-02 - ws( 23) = 0.9913477668254157D-02 - ws( 24) = 0.1016642693504613D-01 - ws( 25) = 0.1074390445224903D-01 - ws( 26) = 0.1114131777304447D-01 - endif - - - if( iquad .eq. 55 ) then - idomain = 55 - rk0r = 0.2000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 24 - err = 0.1180616509531663D-10 - ierq = 0 - xs( 1) = 0.1942448446709642D-03 - xs( 2) = 0.1021238295683412D-02 - xs( 3) = 0.2500113946418205D-02 - xs( 4) = 0.4616390673425620D-02 - xs( 5) = 0.7349812122868561D-02 - xs( 6) = 0.1067565319518698D-01 - xs( 7) = 0.1456591022857969D-01 - xs( 8) = 0.1899048025729187D-01 - xs( 9) = 0.2391825480510508D-01 - xs( 10) = 0.2931806970257005D-01 - xs( 11) = 0.3515948161870264D-01 - xs( 12) = 0.4141336568712672D-01 - xs( 13) = 0.4805235408102610D-01 - xs( 14) = 0.5505114416313705D-01 - xs( 15) = 0.6238668634668840D-01 - xs( 16) = 0.7003832940043392D-01 - xs( 17) = 0.7798796662560446D-01 - xs( 18) = 0.8621989228638777D-01 - xs( 19) = 0.9472135730988156D-01 - xs( 20) = 0.1034828693500014D+00 - xs( 21) = 0.1124937232636301D+00 - xs( 22) = 0.1217595936958097D+00 - xs( 23) = 0.1312582626301218D+00 - xs( 24) = 0.1407320593352367D+00 - ws( 1) = 0.4982397188877993D-03 - ws( 2) = 0.1154777305536360D-02 - ws( 3) = 0.1800521218771801D-02 - ws( 4) = 0.2428636759206505D-02 - ws( 5) = 0.3034065310942672D-02 - ws( 6) = 0.3612929752475142D-02 - ws( 7) = 0.4162548949930674D-02 - ws( 8) = 0.4681390666079704D-02 - ws( 9) = 0.5168952260527920D-02 - ws( 10) = 0.5625595572467409D-02 - ws( 11) = 0.6052369770942922D-02 - ws( 12) = 0.6450841388874386D-02 - ws( 13) = 0.6822935260612940D-02 - ws( 14) = 0.7170839018147126D-02 - ws( 15) = 0.7496924265174369D-02 - ws( 16) = 0.7803590520801125D-02 - ws( 17) = 0.8093632685249361D-02 - ws( 18) = 0.8370053926359720D-02 - ws( 19) = 0.8635048397819704D-02 - ws( 20) = 0.8898857464721695D-02 - ws( 21) = 0.9164460680434907D-02 - ws( 22) = 0.9452136093292452D-02 - ws( 23) = 0.1006296879049301D-01 - ws( 24) = 0.1045056161261874D-01 - endif - - - if( iquad .eq. 56 ) then - idomain = 56 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 32 - err = 0.9816818767352957D-10 - ierq = 0 - xs( 1) = 0.1386397780154753D-03 - xs( 2) = 0.7435655264002667D-03 - xs( 3) = 0.1881016030836484D-02 - xs( 4) = 0.3618311175409138D-02 - xs( 5) = 0.6017925744425382D-02 - xs( 6) = 0.9115465895607664D-02 - xs( 7) = 0.1291203050156277D-01 - xs( 8) = 0.1738023028903005D-01 - xs( 9) = 0.2247501646283680D-01 - xs( 10) = 0.2814304926360415D-01 - xs( 11) = 0.3432904534166459D-01 - xs( 12) = 0.4097962531669543D-01 - xs( 13) = 0.4804546046761903D-01 - xs( 14) = 0.5548230777751299D-01 - xs( 15) = 0.6325132420640962D-01 - xs( 16) = 0.7131893354842427D-01 - xs( 17) = 0.7965644503736161D-01 - xs( 18) = 0.8823956394598098D-01 - xs( 19) = 0.9704788530430086D-01 - xs( 20) = 0.1060644242116238D+00 - xs( 21) = 0.1152752105771466D+00 - xs( 22) = 0.1246689633510215D+00 - xs( 23) = 0.1342368504762454D+00 - xs( 24) = 0.1439723411895857D+00 - xs( 25) = 0.1538711690617613D+00 - xs( 26) = 0.1639314158983969D+00 - xs( 27) = 0.1741538219324580D+00 - xs( 28) = 0.1845424108482991D+00 - xs( 29) = 0.1951051627130412D+00 - xs( 30) = 0.2058566376029397D+00 - xs( 31) = 0.2168227321602382D+00 - xs( 32) = 0.2280752754218257D+00 - ws( 1) = 0.3573247776482675D-03 - ws( 2) = 0.8608866827248022D-03 - ws( 3) = 0.1425668619559455D-02 - ws( 4) = 0.2059738091980332D-02 - ws( 5) = 0.2745547269475939D-02 - ws( 6) = 0.3449589178078982D-02 - ws( 7) = 0.4138779672695836D-02 - ws( 8) = 0.4789953370305255D-02 - ws( 9) = 0.5390625134544445D-02 - ws( 10) = 0.5936164474577093D-02 - ws( 11) = 0.6426896712120462D-02 - ws( 12) = 0.6866025427826813D-02 - ws( 13) = 0.7258266436414369D-02 - ws( 14) = 0.7608957035189361D-02 - ws( 15) = 0.7923486482474085D-02 - ws( 16) = 0.8206958787752690D-02 - ws( 17) = 0.8464023664240353D-02 - ws( 18) = 0.8698821310578322D-02 - ws( 19) = 0.8914997588390561D-02 - ws( 20) = 0.9115757894796525D-02 - ws( 21) = 0.9303940428177407D-02 - ws( 22) = 0.9482099762176767D-02 - ws( 23) = 0.9652599105117289D-02 - ws( 24) = 0.9817707028657075D-02 - ws( 25) = 0.9979724243815167D-02 - ws( 26) = 0.1014121145663330D-01 - ws( 27) = 0.1030527243655360D-01 - ws( 28) = 0.1047648780869255D-01 - ws( 29) = 0.1066345993057535D-01 - ws( 30) = 0.1088767572205305D-01 - ws( 31) = 0.1125199839980481D-01 - ws( 32) = 0.1271244164765363D-01 - endif - - - if( iquad .eq. 57 ) then - idomain = 57 - rk0r = 0.4000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 32 - err = 0.7859863348646145D-10 - ierq = 0 - xs( 1) = 0.1419169267714281D-03 - xs( 2) = 0.7606304687095516D-03 - xs( 3) = 0.1921975371060418D-02 - xs( 4) = 0.3691497275094161D-02 - xs( 5) = 0.6129043974452682D-02 - xs( 6) = 0.9267269041185440D-02 - xs( 7) = 0.1310464225185489D-01 - xs( 8) = 0.1761185365202663D-01 - xs( 9) = 0.2274267660172632D-01 - xs( 10) = 0.2844316166556611D-01 - xs( 11) = 0.3465779549491374D-01 - xs( 12) = 0.4133322379206832D-01 - xs( 13) = 0.4842031622338909D-01 - xs( 14) = 0.5587513505505091D-01 - xs( 15) = 0.6365919334105898D-01 - xs( 16) = 0.7173927992494215D-01 - xs( 17) = 0.8008705178499498D-01 - xs( 18) = 0.8867853146610813D-01 - xs( 19) = 0.9749359665067847D-01 - xs( 20) = 0.1065155117897141D+00 - xs( 21) = 0.1157305270696154D+00 - xs( 22) = 0.1251275580207165D+00 - xs( 23) = 0.1346979516213564D+00 - xs( 24) = 0.1444353461819421D+00 - xs( 25) = 0.1543356428724763D+00 - xs( 26) = 0.1643970995278326D+00 - xs( 27) = 0.1746206517993330D+00 - xs( 28) = 0.1850105814166854D+00 - xs( 29) = 0.1955752702237264D+00 - xs( 30) = 0.2063299053083839D+00 - xs( 31) = 0.2173013724830457D+00 - xs( 32) = 0.2285665871488318D+00 - ws( 1) = 0.3657128708246403D-03 - ws( 2) = 0.8799410839424062D-03 - ws( 3) = 0.1454106647736423D-02 - ws( 4) = 0.2095305832024790D-02 - ws( 5) = 0.2785339832341013D-02 - ws( 6) = 0.3490721699358794D-02 - ws( 7) = 0.4178944074758088D-02 - ws( 8) = 0.4827619360589086D-02 - ws( 9) = 0.5424934381981242D-02 - ws( 10) = 0.5966723398923598D-02 - ws( 11) = 0.6453618761779424D-02 - ws( 12) = 0.6889034190719769D-02 - ws( 13) = 0.7277824063493908D-02 - ws( 14) = 0.7625402501301714D-02 - ws( 15) = 0.7937186002279394D-02 - ws( 16) = 0.8218271917890934D-02 - ws( 17) = 0.8473284215667409D-02 - ws( 18) = 0.8706329382067692D-02 - ws( 19) = 0.8921018649519132D-02 - ws( 20) = 0.9120525923842963D-02 - ws( 21) = 0.9307662851499770D-02 - ws( 22) = 0.9484963366565350D-02 - ws( 23) = 0.9654776536234939D-02 - ws( 24) = 0.9819364367246472D-02 - ws( 25) = 0.9981033716467181D-02 - ws( 26) = 0.1014235130420440D-01 - ws( 27) = 0.1030645385152260D-01 - ws( 28) = 0.1047804889397594D-01 - ws( 29) = 0.1066576652011166D-01 - ws( 30) = 0.1089169570038227D-01 - ws( 31) = 0.1125869898009263D-01 - ws( 32) = 0.1272944988659281D-01 - endif - - - if( iquad .eq. 58 ) then - idomain = 58 - rk0r = 0.4000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5999999999800001D-01 - n = 32 - err = 0.6897900522112947D-10 - ierq = 0 - xs( 1) = 0.1473226323980426D-03 - xs( 2) = 0.7889162596816029D-03 - xs( 3) = 0.1990357127029875D-02 - xs( 4) = 0.3814603095475886D-02 - xs( 5) = 0.6317134127266057D-02 - xs( 6) = 0.9525479919262510D-02 - xs( 7) = 0.1343367113102333D-01 - xs( 8) = 0.1800934594930921D-01 - xs( 9) = 0.2320451723699231D-01 - xs( 10) = 0.2896436791239934D-01 - xs( 11) = 0.3523305082992306D-01 - xs( 12) = 0.4195719076621988D-01 - xs( 13) = 0.4908783120899051D-01 - xs( 14) = 0.5658133097811899D-01 - xs( 15) = 0.6439956767001304D-01 - xs( 16) = 0.7250971936822329D-01 - xs( 17) = 0.8088382591808772D-01 - xs( 18) = 0.8949826710987768D-01 - xs( 19) = 0.9833324248254526D-01 - xs( 20) = 0.1073722997744588D+00 - xs( 21) = 0.1166019349499827D+00 - xs( 22) = 0.1260112750794766D+00 - xs( 23) = 0.1355918486523891D+00 - xs( 24) = 0.1453374508557976D+00 - xs( 25) = 0.1552441240432452D+00 - xs( 26) = 0.1653102580924223D+00 - xs( 27) = 0.1755369090508450D+00 - xs( 28) = 0.1859285274018285D+00 - xs( 29) = 0.1964937164833284D+00 - xs( 30) = 0.2072482430116797D+00 - xs( 31) = 0.2182202631811093D+00 - xs( 32) = 0.2294891536503938D+00 - ws( 1) = 0.3795660050431078D-03 - ws( 2) = 0.9117037739850325D-03 - ws( 3) = 0.1502109958474757D-02 - ws( 4) = 0.2156003004094258D-02 - ws( 5) = 0.2853729724092880D-02 - ws( 6) = 0.3561822078254446D-02 - ws( 7) = 0.4248974117677416D-02 - ws( 8) = 0.4894230184074957D-02 - ws( 9) = 0.5486881794213908D-02 - ws( 10) = 0.6023455125532640D-02 - ws( 11) = 0.6504983539697059D-02 - ws( 12) = 0.6935122798910904D-02 - ws( 13) = 0.7318881810028937D-02 - ws( 14) = 0.7661768112951797D-02 - ws( 15) = 0.7969242592626357D-02 - ws( 16) = 0.8246409681208228D-02 - ws( 17) = 0.8497875528291111D-02 - ws( 18) = 0.8727714783512124D-02 - ws( 19) = 0.8939500800755720D-02 - ws( 20) = 0.9136368985007892D-02 - ws( 21) = 0.9321094792403527D-02 - ws( 22) = 0.9496179821475133D-02 - ws( 23) = 0.9663946183324014D-02 - ws( 24) = 0.9826633737583660D-02 - ws( 25) = 0.9986538130150003D-02 - ws( 26) = 0.1014622426522485D-01 - ws( 27) = 0.1030879781228033D-01 - ws( 28) = 0.1047909875228598D-01 - ws( 29) = 0.1066590399999123D-01 - ws( 30) = 0.1089102449312226D-01 - ws( 31) = 0.1126159189614408D-01 - ws( 32) = 0.1273310389767529D-01 - endif - - - if( iquad .eq. 59 ) then - idomain = 59 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.9999999999800001D-01 - n = 34 - err = 0.3942513333519105D-10 - ierq = 0 - xs( 1) = 0.1503996338835400D-03 - xs( 2) = 0.8028476620600831D-03 - xs( 3) = 0.2015075359827010D-02 - xs( 4) = 0.3837760356882736D-02 - xs( 5) = 0.6314706090532520D-02 - xs( 6) = 0.9466461793242892D-02 - xs( 7) = 0.1328575414931059D-01 - xs( 8) = 0.1774305808883895D-01 - xs( 9) = 0.2279537505318256D-01 - xs( 10) = 0.2839359132678199D-01 - xs( 11) = 0.3448738691870512D-01 - xs( 12) = 0.4102821066407238D-01 - xs( 13) = 0.4797097145097336D-01 - xs( 14) = 0.5527488895684931D-01 - xs( 15) = 0.6290378724856471D-01 - xs( 16) = 0.7082602910238769D-01 - xs( 17) = 0.7901423818678090D-01 - xs( 18) = 0.8744491663371311D-01 - xs( 19) = 0.9609803139300899D-01 - xs( 20) = 0.1049566151990455D+00 - xs( 21) = 0.1140064080360875D+00 - xs( 22) = 0.1232355523483275D+00 - xs( 23) = 0.1326343479987150D+00 - xs( 24) = 0.1421950704069851D+00 - xs( 25) = 0.1519118567351611D+00 - xs( 26) = 0.1617806668839594D+00 - xs( 27) = 0.1717993360347835D+00 - xs( 28) = 0.1819677572224861D+00 - xs( 29) = 0.1922882081680503D+00 - xs( 30) = 0.2027660925735977D+00 - xs( 31) = 0.2134110399515823D+00 - xs( 32) = 0.2242388118087272D+00 - xs( 33) = 0.2352793055194794D+00 - xs( 34) = 0.2466091015184002D+00 - ws( 1) = 0.3871979558394839D-03 - ws( 2) = 0.9243648780866384D-03 - ws( 3) = 0.1508891130264163D-02 - ws( 4) = 0.2144077452752872D-02 - ws( 5) = 0.2813307672450501D-02 - ws( 6) = 0.3488878404764154D-02 - ws( 7) = 0.4144628119901964D-02 - ws( 8) = 0.4762689374515816D-02 - ws( 9) = 0.5333678877488392D-02 - ws( 10) = 0.5854319039132775D-02 - ws( 11) = 0.6325153112413584D-02 - ws( 12) = 0.6748965657371124D-02 - ws( 13) = 0.7129754762050621D-02 - ws( 14) = 0.7472052369867760D-02 - ws( 15) = 0.7780476228435054D-02 - ws( 16) = 0.8059451304595334D-02 - ws( 17) = 0.8313057557290377D-02 - ws( 18) = 0.8544967216645933D-02 - ws( 19) = 0.8758440454100274D-02 - ws( 20) = 0.8956355645962092D-02 - ws( 21) = 0.9141258071325696D-02 - ws( 22) = 0.9315417378350926D-02 - ws( 23) = 0.9480889749284351D-02 - ws( 24) = 0.9639582760163190D-02 - ws( 25) = 0.9793326223282387D-02 - ws( 26) = 0.9943962718236726D-02 - ws( 27) = 0.1009344896319642D-01 - ws( 28) = 0.1024404447872309D-01 - ws( 29) = 0.1039870860518561D-01 - ws( 30) = 0.1056174729715295D-01 - ws( 31) = 0.1074205706392249D-01 - ws( 32) = 0.1096105719764042D-01 - ws( 33) = 0.1132223381474930D-01 - ws( 34) = 0.1278225329787849D-01 - endif - - - if( iquad .eq. 60 ) then - idomain = 60 - rk0r = 0.4000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999980000D+00 - n = 34 - err = 0.8531891610359592D-11 - ierq = 0 - xs( 1) = 0.1569815257726135D-03 - xs( 2) = 0.8368671282739252D-03 - xs( 3) = 0.2095425383529176D-02 - xs( 4) = 0.3977537162503196D-02 - xs( 5) = 0.6519025289387264D-02 - xs( 6) = 0.9732392806108306D-02 - xs( 7) = 0.1360434033058996D-01 - xs( 8) = 0.1810221282573833D-01 - xs( 9) = 0.2318243973198700D-01 - xs( 10) = 0.2879700742683572D-01 - xs( 11) = 0.3489749807166304D-01 - xs( 12) = 0.4143744405777389D-01 - xs( 13) = 0.4837366612670439D-01 - xs( 14) = 0.5566697373779693D-01 - xs( 15) = 0.6328243310849962D-01 - xs( 16) = 0.7118933818851537D-01 - xs( 17) = 0.7936099130667168D-01 - xs( 18) = 0.8777437943390441D-01 - xs( 19) = 0.9640981034695226D-01 - xs( 20) = 0.1052505522596558D+00 - xs( 21) = 0.1142825036185612D+00 - xs( 22) = 0.1234939079467327D+00 - xs( 23) = 0.1328751214420202D+00 - xs( 24) = 0.1424184380553938D+00 - xs( 25) = 0.1521179769485894D+00 - xs( 26) = 0.1619696388131283D+00 - xs( 27) = 0.1719711503918065D+00 - xs( 28) = 0.1821222125929589D+00 - xs( 29) = 0.1924248032875150D+00 - xs( 30) = 0.2028838152042543D+00 - xs( 31) = 0.2135077843622697D+00 - xs( 32) = 0.2243107061214848D+00 - xs( 33) = 0.2353152697626115D+00 - xs( 34) = 0.2465388037357688D+00 - ws( 1) = 0.4040181878448346D-03 - ws( 2) = 0.9619653525783229D-03 - ws( 3) = 0.1562972817930915D-02 - ws( 4) = 0.2207479721853696D-02 - ws( 5) = 0.2877611154718694D-02 - ws( 6) = 0.3546779936658337D-02 - ws( 7) = 0.4191522854084845D-02 - ws( 8) = 0.4796852579260224D-02 - ws( 9) = 0.5355533890440475D-02 - ws( 10) = 0.5865494227041201D-02 - ws( 11) = 0.6327720995376710D-02 - ws( 12) = 0.6744963208680137D-02 - ws( 13) = 0.7120945013543398D-02 - ws( 14) = 0.7459848648639657D-02 - ws( 15) = 0.7765956279970030D-02 - ws( 16) = 0.8043409818478522D-02 - ws( 17) = 0.8296067084141164D-02 - ws( 18) = 0.8527433212594996D-02 - ws( 19) = 0.8740645549659264D-02 - ws( 20) = 0.8938492866990132D-02 - ws( 21) = 0.9123454531189814D-02 - ws( 22) = 0.9297750286894526D-02 - ws( 23) = 0.9463395780451057D-02 - ws( 24) = 0.9622262176786345D-02 - ws( 25) = 0.9776143480090555D-02 - ws( 26) = 0.9926833652329017D-02 - ws( 27) = 0.1007623509512804D-01 - ws( 28) = 0.1022653368555726D-01 - ws( 29) = 0.1038047717249564D-01 - ws( 30) = 0.1054227627200242D-01 - ws( 31) = 0.1072021726400946D-01 - ws( 32) = 0.1093359921712680D-01 - ws( 33) = 0.1128703784102341D-01 - ws( 34) = 0.1258303209345869D-01 - endif - - - if( iquad .eq. 61 ) then - idomain = 61 - rk0r = 0.4000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5999999999980000D+00 - n = 33 - err = 0.7881244902160714D-10 - ierq = 0 - xs( 1) = 0.2047510064261813D-03 - xs( 2) = 0.1084095158184358D-02 - xs( 3) = 0.2683162802321382D-02 - xs( 4) = 0.5016640224563555D-02 - xs( 5) = 0.8082747198132208D-02 - xs( 6) = 0.1185766938094902D-01 - xs( 7) = 0.1629944618352289D-01 - xs( 8) = 0.2135575897800220D-01 - xs( 9) = 0.2697060508039188D-01 - xs( 10) = 0.3308858306452685D-01 - xs( 11) = 0.3965739657339883D-01 - xs( 12) = 0.4662925050720738D-01 - xs( 13) = 0.5396150299906484D-01 - xs( 14) = 0.6161678824051888D-01 - xs( 15) = 0.6956278879765397D-01 - xs( 16) = 0.7777181186182176D-01 - xs( 17) = 0.8622028665745184D-01 - xs( 18) = 0.9488825969714941D-01 - xs( 19) = 0.1037589312556009D+00 - xs( 20) = 0.1128182537943541D+00 - xs( 21) = 0.1220545999005149D+00 - xs( 22) = 0.1314585007921584D+00 - xs( 23) = 0.1410224551703907D+00 - xs( 24) = 0.1507408099176550D+00 - xs( 25) = 0.1606097176552284D+00 - xs( 26) = 0.1706271929104506D+00 - xs( 27) = 0.1807932832209707D+00 - xs( 28) = 0.1911103962807718D+00 - xs( 29) = 0.2015841600414334D+00 - xs( 30) = 0.2122239733726229D+00 - xs( 31) = 0.2230459240289835D+00 - xs( 32) = 0.2340806927354944D+00 - xs( 33) = 0.2453445359078672D+00 - ws( 1) = 0.5261038244776428D-03 - ws( 2) = 0.1235991611612427D-02 - ws( 3) = 0.1964832711199385D-02 - ws( 4) = 0.2701922532937896D-02 - ws( 5) = 0.3426239743493108D-02 - ws( 6) = 0.4116468437716817D-02 - ws( 7) = 0.4758252372334094D-02 - ws( 8) = 0.5344970213459059D-02 - ws( 9) = 0.5875448340626329D-02 - ws( 10) = 0.6351769062005756D-02 - ws( 11) = 0.6777881710912973D-02 - ws( 12) = 0.7158717559306256D-02 - ws( 13) = 0.7499563959666509D-02 - ws( 14) = 0.7805627627485373D-02 - ws( 15) = 0.8081766576262365D-02 - ws( 16) = 0.8332359605989147D-02 - ws( 17) = 0.8561272186317531D-02 - ws( 18) = 0.8771880678122531D-02 - ws( 19) = 0.8967126805121179D-02 - ws( 20) = 0.9149584937806708D-02 - ws( 21) = 0.9321532887312705D-02 - ws( 22) = 0.9485022350453169D-02 - ws( 23) = 0.9641949238823298D-02 - ws( 24) = 0.9794130845315430D-02 - ws( 25) = 0.9943389105498962D-02 - ws( 26) = 0.1009166523652523D-01 - ws( 27) = 0.1024125316736641D-01 - ws( 28) = 0.1039496987359556D-01 - ws( 29) = 0.1055743123767403D-01 - ws( 30) = 0.1073815759123174D-01 - ws( 31) = 0.1095431623985720D-01 - ws( 32) = 0.1134069013713683D-01 - ws( 33) = 0.1262461696285486D-01 - endif - - - if( iquad .eq. 62 ) then - idomain = 62 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5707963267928966D+00 - n = 32 - err = 0.4690136519618986D-10 - ierq = 0 - xs( 1) = 0.2667826827561955D-03 - xs( 2) = 0.1400783230314817D-02 - xs( 3) = 0.3420059886870403D-02 - xs( 4) = 0.6287147271199858D-02 - xs( 5) = 0.9947146575785323D-02 - xs( 6) = 0.1433328428065847D-01 - xs( 7) = 0.1937398926446226D-01 - xs( 8) = 0.2499884560976269D-01 - xs( 9) = 0.3114228129058310D-01 - xs( 10) = 0.3774530441574048D-01 - xs( 11) = 0.4475599787437391D-01 - xs( 12) = 0.5212933430210170D-01 - xs( 13) = 0.5982665322306207D-01 - xs( 14) = 0.6781499569615124D-01 - xs( 15) = 0.7606640914424836D-01 - xs( 16) = 0.8455728665838504D-01 - xs( 17) = 0.9326777468123332D-01 - xs( 18) = 0.1021812638388515D+00 - xs( 19) = 0.1112839666215024D+00 - xs( 20) = 0.1205645803470776D+00 - xs( 21) = 0.1300140324797891D+00 - xs( 22) = 0.1396253079339734D+00 - xs( 23) = 0.1493933621502545D+00 - xs( 24) = 0.1593151310618638D+00 - xs( 25) = 0.1693896781241029D+00 - xs( 26) = 0.1796185195106380D+00 - xs( 27) = 0.1900061767557925D+00 - xs( 28) = 0.2005617075610378D+00 - xs( 29) = 0.2113003442943260D+00 - xs( 30) = 0.2222482032479565D+00 - xs( 31) = 0.2334767862142663D+00 - xs( 32) = 0.2456560511219228D+00 - ws( 1) = 0.6841054516662123D-03 - ws( 2) = 0.1581247524378532D-02 - ws( 3) = 0.2451014287049185D-02 - ws( 4) = 0.3273914095513742D-02 - ws( 5) = 0.4034829862653798D-02 - ws( 6) = 0.4725415411697432D-02 - ws( 7) = 0.5344198343168561D-02 - ws( 8) = 0.5894558625812836D-02 - ws( 9) = 0.6382473847362386D-02 - ws( 10) = 0.6814923410731425D-02 - ws( 11) = 0.7198968099967657D-02 - ws( 12) = 0.7541272688275234D-02 - ws( 13) = 0.7847883729795311D-02 - ws( 14) = 0.8124153542395297D-02 - ws( 15) = 0.8374748776053521D-02 - ws( 16) = 0.8603705823909562D-02 - ws( 17) = 0.8814509040307825D-02 - ws( 18) = 0.9010177013131749D-02 - ws( 19) = 0.9193349115658781D-02 - ws( 20) = 0.9366369389642550D-02 - ws( 21) = 0.9531368159267525D-02 - ws( 22) = 0.9690343828835117D-02 - ws( 23) = 0.9845257208937199D-02 - ws( 24) = 0.9998141713340108D-02 - ws( 25) = 0.1015123753377664D-01 - ws( 26) = 0.1030734861884020D-01 - ws( 27) = 0.1047004053002207D-01 - ws( 28) = 0.1064464836842985D-01 - ws( 29) = 0.1084413476888840D-01 - ws( 30) = 0.1107713054666305D-01 - ws( 31) = 0.1145559414160423D-01 - ws( 32) = 0.1583907281671947D-01 - endif - - - if( iquad .eq. 63 ) then - idomain = 63 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1570796326792897D+01 - n = 29 - err = 0.3400033141481256D-10 - ierq = 0 - xs( 1) = 0.2984425422742566D-03 - xs( 2) = 0.1562963006078890D-02 - xs( 3) = 0.3800304763745336D-02 - xs( 4) = 0.6951192481137433D-02 - xs( 5) = 0.1093910147370691D-01 - xs( 6) = 0.1567909362785620D-01 - xs( 7) = 0.2108551061124116D-01 - xs( 8) = 0.2707752435392023D-01 - xs( 9) = 0.3358229779446919D-01 - xs( 10) = 0.4053620882536689D-01 - xs( 11) = 0.4788480882439033D-01 - xs( 12) = 0.5558210014095504D-01 - xs( 13) = 0.6358953438808744D-01 - xs( 14) = 0.7187496779201595D-01 - xs( 15) = 0.8041169405977203D-01 - xs( 16) = 0.8917760540707663D-01 - xs( 17) = 0.9815449488467712D-01 - xs( 18) = 0.1073274955528873D+00 - xs( 19) = 0.1166846473640085D+00 - xs( 20) = 0.1262165797755408D+00 - xs( 21) = 0.1359163042607154D+00 - xs( 22) = 0.1457791425351949D+00 - xs( 23) = 0.1558027367401040D+00 - xs( 24) = 0.1659872256179578D+00 - xs( 25) = 0.1763362033366504D+00 - xs( 26) = 0.1868555013776792D+00 - xs( 27) = 0.1975588346816667D+00 - xs( 28) = 0.2084712440137129D+00 - xs( 29) = 0.2194663700093632D+00 - ws( 1) = 0.7648036195332647D-03 - ws( 2) = 0.1758905390021725D-02 - ws( 3) = 0.2705735400636986D-02 - ws( 4) = 0.3583137431874832D-02 - ws( 5) = 0.4378392910662872D-02 - ws( 6) = 0.5087222072792438D-02 - ws( 7) = 0.5712089168370603D-02 - ws( 8) = 0.6259780125272728D-02 - ws( 9) = 0.6739165182894562D-02 - ws( 10) = 0.7159595095445552D-02 - ws( 11) = 0.7529955866610503D-02 - ws( 12) = 0.7858219721331829D-02 - ws( 13) = 0.8151307716985455D-02 - ws( 14) = 0.8415122098834002D-02 - ws( 15) = 0.8654657555450968D-02 - ws( 16) = 0.8874140236729338D-02 - ws( 17) = 0.9077168986649035D-02 - ws( 18) = 0.9266846973074835D-02 - ws( 19) = 0.9445903789464883D-02 - ws( 20) = 0.9616816979989265D-02 - ws( 21) = 0.9781908497962278D-02 - ws( 22) = 0.9943500081514019D-02 - ws( 23) = 0.1010422380944877D-01 - ws( 24) = 0.1026676359348243D-01 - ws( 25) = 0.1043639053748391D-01 - ws( 26) = 0.1062327370456698D-01 - ws( 27) = 0.1083587102379231D-01 - ws( 28) = 0.1127509596483999D-01 - ws( 29) = 0.1215012848705804D-01 - endif - - - if( iquad .eq. 64 ) then - idomain = 64 - rk0r = 0.4000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 28 - err = 0.1871751419317895D-10 - ierq = 0 - xs( 1) = 0.2663298594464503D-03 - xs( 2) = 0.1396403277164951D-02 - xs( 3) = 0.3402364442643676D-02 - xs( 4) = 0.6241592172244960D-02 - xs( 5) = 0.9858544601575446D-02 - xs( 6) = 0.1419035745329067D-01 - xs( 7) = 0.1917163338622252D-01 - xs( 8) = 0.2473816753540013D-01 - xs( 9) = 0.3082948331678888D-01 - xs( 10) = 0.3739030329846184D-01 - xs( 11) = 0.4437119840054742D-01 - xs( 12) = 0.5172867335636440D-01 - xs( 13) = 0.5942490726873073D-01 - xs( 14) = 0.6742731244851989D-01 - xs( 15) = 0.7570802237888954D-01 - xs( 16) = 0.8424337846668807D-01 - xs( 17) = 0.9301345692734726D-01 - xs( 18) = 0.1020016601936181D+00 - xs( 19) = 0.1111943777478107D+00 - xs( 20) = 0.1205807331943172D+00 - xs( 21) = 0.1301524625526746D+00 - xs( 22) = 0.1399037399026701D+00 - xs( 23) = 0.1498313296579207D+00 - xs( 24) = 0.1599355729408984D+00 - xs( 25) = 0.1702161868530260D+00 - xs( 26) = 0.1806857456735198D+00 - xs( 27) = 0.1913464672602720D+00 - xs( 28) = 0.2018994494360045D+00 - ws( 1) = 0.6826954949568664D-03 - ws( 2) = 0.1573726611356119D-02 - ws( 3) = 0.2430974925192885D-02 - ws( 4) = 0.3238131514257746D-02 - ws( 5) = 0.3985215059516005D-02 - ws( 6) = 0.4667448729972113D-02 - ws( 7) = 0.5284360418601198D-02 - ws( 8) = 0.5838604553822960D-02 - ws( 9) = 0.6334803917584279D-02 - ws( 10) = 0.6778596972840774D-02 - ws( 11) = 0.7175948734145785D-02 - ws( 12) = 0.7532705314391959D-02 - ws( 13) = 0.7854340016231160D-02 - ws( 14) = 0.8145834770735437D-02 - ws( 15) = 0.8411650262220639D-02 - ws( 16) = 0.8655749864278731D-02 - ws( 17) = 0.8881650801133787D-02 - ws( 18) = 0.9092499695456464D-02 - ws( 19) = 0.9291162159068134D-02 - ws( 20) = 0.9480261617387927D-02 - ws( 21) = 0.9662427782950048D-02 - ws( 22) = 0.9840528589709137D-02 - ws( 23) = 0.1001675209409864D-01 - ws( 24) = 0.1019875038109048D-01 - ws( 25) = 0.1039410123212700D-01 - ws( 26) = 0.1060845613119925D-01 - ws( 27) = 0.1114595184188881D-01 - ws( 28) = 0.1140354070550135D-01 - endif - - - if( iquad .eq. 65 ) then - idomain = 65 - rk0r = 0.4000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 26 - err = 0.1339960637950637D-10 - ierq = 0 - xs( 1) = 0.2235994558259101D-03 - xs( 2) = 0.1174424095365438D-02 - xs( 3) = 0.2870223137476366D-02 - xs( 4) = 0.5287237833736501D-02 - xs( 5) = 0.8393160283927618D-02 - xs( 6) = 0.1214966268047078D-01 - xs( 7) = 0.1651472195619797D-01 - xs( 8) = 0.2144473046433767D-01 - xs( 9) = 0.2689625094874945D-01 - xs( 10) = 0.3282735455248700D-01 - xs( 11) = 0.3919855224173350D-01 - xs( 12) = 0.4597337436215239D-01 - xs( 13) = 0.5311867174311549D-01 - xs( 14) = 0.6060471367986237D-01 - xs( 15) = 0.6840515144400496D-01 - xs( 16) = 0.7649690261030083D-01 - xs( 17) = 0.8485999173102955D-01 - xs( 18) = 0.9347740889357799D-01 - xs( 19) = 0.1023350066198800D+00 - xs( 20) = 0.1114212622978469D+00 - xs( 21) = 0.1207276083547053D+00 - xs( 22) = 0.1302485275393067D+00 - xs( 23) = 0.1399775036247352D+00 - xs( 24) = 0.1499230330583980D+00 - xs( 25) = 0.1600592766848570D+00 - xs( 26) = 0.1700621492821861D+00 - ws( 1) = 0.5734022851589142D-03 - ws( 2) = 0.1326406914715232D-02 - ws( 3) = 0.2061170609562062D-02 - ws( 4) = 0.2767434228498294D-02 - ws( 5) = 0.3437983508370287D-02 - ws( 6) = 0.4067981892816433D-02 - ws( 7) = 0.4654839327511121D-02 - ws( 8) = 0.5197915892033150D-02 - ws( 9) = 0.5698121557329719D-02 - ws( 10) = 0.6157494729203378D-02 - ws( 11) = 0.6578817819316786D-02 - ws( 12) = 0.6965300584687271D-02 - ws( 13) = 0.7320341051702444D-02 - ws( 14) = 0.7647357851598424D-02 - ws( 15) = 0.7949681767270782D-02 - ws( 16) = 0.8230514662950649D-02 - ws( 17) = 0.8492902284469278D-02 - ws( 18) = 0.8739711218900404D-02 - ws( 19) = 0.8973946841309527D-02 - ws( 20) = 0.9198525706545642D-02 - ws( 21) = 0.9415965086693236D-02 - ws( 22) = 0.9635529143291976D-02 - ws( 23) = 0.9858463124885024D-02 - ws( 24) = 0.1010779758743786D-01 - ws( 25) = 0.1066837778996160D-01 - ws( 26) = 0.1070568513599877D-01 - endif - - - if( iquad .eq. 66 ) then - idomain = 66 - rk0r = 0.4000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 25 - err = 0.8872771772865532D-11 - ierq = 0 - xs( 1) = 0.1810164168427606D-03 - xs( 2) = 0.9520990667051105D-03 - xs( 3) = 0.2332602152102550D-02 - xs( 4) = 0.4311546160323783D-02 - xs( 5) = 0.6873223286926396D-02 - xs( 6) = 0.9998037543268735D-02 - xs( 7) = 0.1366326390272578D-01 - xs( 8) = 0.1784387048362935D-01 - xs( 9) = 0.2251335426147640D-01 - xs( 10) = 0.2764453374224310D-01 - xs( 11) = 0.3321025528884559D-01 - xs( 12) = 0.3918398526097486D-01 - xs( 13) = 0.4554027860239439D-01 - xs( 14) = 0.5225513341778353D-01 - xs( 15) = 0.5930623574522736D-01 - xs( 16) = 0.6667310629963159D-01 - xs( 17) = 0.7433722692282506D-01 - xs( 18) = 0.8228207986564959D-01 - xs( 19) = 0.9049296461257374D-01 - xs( 20) = 0.9895749285961943D-01 - xs( 21) = 0.1076649304603145D+00 - xs( 22) = 0.1166019070955853D+00 - xs( 23) = 0.1257672275942926D+00 - xs( 24) = 0.1351041104140245D+00 - xs( 25) = 0.1442164109663547D+00 - ws( 1) = 0.4643559285358943D-03 - ws( 2) = 0.1077163581436561D-02 - ws( 3) = 0.1681981863232370D-02 - ws( 4) = 0.2273276540650758D-02 - ws( 5) = 0.2846799011600077D-02 - ws( 6) = 0.3399028158298372D-02 - ws( 7) = 0.3927238642686732D-02 - ws( 8) = 0.4429544086711260D-02 - ws( 9) = 0.4904881687449675D-02 - ws( 10) = 0.5352943059320862D-02 - ws( 11) = 0.5774071893407937D-02 - ws( 12) = 0.6169145912002450D-02 - ws( 13) = 0.6539450532086633D-02 - ws( 14) = 0.6886561695051040D-02 - ws( 15) = 0.7212284018283464D-02 - ws( 16) = 0.7518530291256209D-02 - ws( 17) = 0.7807229949742588D-02 - ws( 18) = 0.8080777100030150D-02 - ws( 19) = 0.8341253154270038D-02 - ws( 20) = 0.8590442897632019D-02 - ws( 21) = 0.8837999047862840D-02 - ws( 22) = 0.9081425956194688D-02 - ws( 23) = 0.9348679196836544D-02 - ws( 24) = 0.9902000924909431D-02 - ws( 25) = 0.9624643058137892D-02 - endif - - - if( iquad .eq. 67 ) then - idomain = 67 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999800000D-01 - n = 34 - err = 0.4486293785520571D-10 - ierq = 0 - xs( 1) = 0.9873868432291678D-04 - xs( 2) = 0.5297261098973820D-03 - xs( 3) = 0.1343098943644353D-02 - xs( 4) = 0.2600266175021333D-02 - xs( 5) = 0.4377776747008891D-02 - xs( 6) = 0.6750678551496198D-02 - xs( 7) = 0.9773822526550912D-02 - xs( 8) = 0.1346918467592766D-01 - xs( 9) = 0.1782467440878288D-01 - xs( 10) = 0.2280354976497097D-01 - xs( 11) = 0.2835665244192379D-01 - xs( 12) = 0.3443099783659753D-01 - xs( 13) = 0.4097435975161708D-01 - xs( 14) = 0.4793769707794080D-01 - xs( 15) = 0.5527647958449410D-01 - xs( 16) = 0.6295127227291553D-01 - xs( 17) = 0.7092778575831468D-01 - xs( 18) = 0.7917659166697598D-01 - xs( 19) = 0.8767267094453002D-01 - xs( 20) = 0.9639491204274898D-01 - xs( 21) = 0.1053256287526091D+00 - xs( 22) = 0.1144501338750523D+00 - xs( 23) = 0.1237563850874059D+00 - xs( 24) = 0.1332347087810350D+00 - xs( 25) = 0.1428776040575804D+00 - xs( 26) = 0.1526796340293274D+00 - xs( 27) = 0.1626374183210461D+00 - xs( 28) = 0.1727497389903776D+00 - xs( 29) = 0.1830178549680412D+00 - xs( 30) = 0.1934460272538995D+00 - xs( 31) = 0.2040424970363935D+00 - xs( 32) = 0.2148217261811999D+00 - xs( 33) = 0.2258074525213646D+00 - xs( 34) = 0.2370519567129541D+00 - ws( 1) = 0.2544814834009265D-03 - ws( 2) = 0.6138002978131877D-03 - ws( 3) = 0.1023326658641751D-02 - ws( 4) = 0.1504058305716459D-02 - ws( 5) = 0.2063804211802529D-02 - ws( 6) = 0.2691366406033384D-02 - ws( 7) = 0.3358603849821057D-02 - ws( 8) = 0.4029924635272080D-02 - ws( 9) = 0.4674709633074286D-02 - ws( 10) = 0.5274706808067493D-02 - ws( 11) = 0.5822596885787110D-02 - ws( 12) = 0.6317351296650247D-02 - ws( 13) = 0.6761177536284906D-02 - ws( 14) = 0.7158066139921295D-02 - ws( 15) = 0.7512926027613732D-02 - ws( 16) = 0.7830949605141031D-02 - ws( 17) = 0.8117180444849364D-02 - ws( 18) = 0.8376270064581505D-02 - ws( 19) = 0.8612378055180904D-02 - ws( 20) = 0.8829163660896864D-02 - ws( 21) = 0.9029827998579286D-02 - ws( 22) = 0.9217180446290321D-02 - ws( 23) = 0.9393714476847078D-02 - ws( 24) = 0.9561688484759641D-02 - ws( 25) = 0.9723208996075034D-02 - ws( 26) = 0.9880319480908843D-02 - ws( 27) = 0.1003514247750298D-01 - ws( 28) = 0.1019003389748644D-01 - ws( 29) = 0.1034787703297894D-01 - ws( 30) = 0.1051321631110093D-01 - ws( 31) = 0.1069405945470927D-01 - ws( 32) = 0.1091263012803714D-01 - ws( 33) = 0.1126951204419095D-01 - ws( 34) = 0.1266344526409922D-01 - endif - - - if( iquad .eq. 68 ) then - idomain = 68 - rk0r = 0.1000000000001000D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999800000D-01 - n = 34 - err = 0.4025744380134838D-10 - ierq = 0 - xs( 1) = 0.1015755653916934D-03 - xs( 2) = 0.5447351815136594D-03 - xs( 3) = 0.1380165885078738D-02 - xs( 4) = 0.2669178418094307D-02 - xs( 5) = 0.4487373272007560D-02 - xs( 6) = 0.6907391680802677D-02 - xs( 7) = 0.9980303481796564D-02 - xs( 8) = 0.1372441565361180D-01 - xs( 9) = 0.1812565693882652D-01 - xs( 10) = 0.2314670201180492D-01 - xs( 11) = 0.2873813109385592D-01 - xs( 12) = 0.3484673518331611D-01 - xs( 13) = 0.4142027955737759D-01 - xs( 14) = 0.4840998022108724D-01 - xs( 15) = 0.5577172784778776D-01 - xs( 16) = 0.6346655890950147D-01 - xs( 17) = 0.7146063884492597D-01 - xs( 18) = 0.7972495073073932D-01 - xs( 19) = 0.8823483891544878D-01 - xs( 20) = 0.9696951148258055D-01 - xs( 21) = 0.1059115648663474D+00 - xs( 22) = 0.1150465644104880D+00 - xs( 23) = 0.1243626962744825D+00 - xs( 24) = 0.1338504969752248D+00 - xs( 25) = 0.1435026641216540D+00 - xs( 26) = 0.1533139548459835D+00 - xs( 27) = 0.1632811916553302D+00 - xs( 28) = 0.1734033668704946D+00 - xs( 29) = 0.1836819863009188D+00 - xs( 30) = 0.1941216897047336D+00 - xs( 31) = 0.2047311601077014D+00 - xs( 32) = 0.2155251607624901D+00 - xs( 33) = 0.2265286338855276D+00 - xs( 34) = 0.2377916527621766D+00 - ws( 1) = 0.2617697209369425D-03 - ws( 2) = 0.6308935029106100D-03 - ws( 3) = 0.1050342785502009D-02 - ws( 4) = 0.1540586508907233D-02 - ws( 5) = 0.2108245100603135D-02 - ws( 6) = 0.2740500380114565D-02 - ws( 7) = 0.3408360013984769D-02 - ws( 8) = 0.4077348137283955D-02 - ws( 9) = 0.4718714848425477D-02 - ws( 10) = 0.5315000088732268D-02 - ws( 11) = 0.5858914424947272D-02 - ws( 12) = 0.6349549130543460D-02 - ws( 13) = 0.6789389580304628D-02 - ws( 14) = 0.7182652917371126D-02 - ws( 15) = 0.7534349154760635D-02 - ws( 16) = 0.7849679424727023D-02 - ws( 17) = 0.8133652149151814D-02 - ws( 18) = 0.8390870798657078D-02 - ws( 19) = 0.8625448292194278D-02 - ws( 20) = 0.8841003361471474D-02 - ws( 21) = 0.9040703667377036D-02 - ws( 22) = 0.9227331629137699D-02 - ws( 23) = 0.9403359634531665D-02 - ws( 24) = 0.9571030719603984D-02 - ws( 25) = 0.9732442936568286D-02 - ws( 26) = 0.9889642982669752D-02 - ws( 27) = 0.1004476173005657D-01 - ws( 28) = 0.1020016931227862D-01 - ws( 29) = 0.1035884844616136D-01 - ws( 30) = 0.1052543643799911D-01 - ws( 31) = 0.1070816880533590D-01 - ws( 32) = 0.1092909203996734D-01 - ws( 33) = 0.1129000896516858D-01 - ws( 34) = 0.1268800640764489D-01 - endif - - - if( iquad .eq. 69 ) then - idomain = 69 - rk0r = 0.1000000000001000D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5999999999800001D-01 - n = 34 - err = 0.4050185050628807D-10 - ierq = 0 - xs( 1) = 0.1021337443168458D-03 - xs( 2) = 0.5470446976087800D-03 - xs( 3) = 0.1383026159452100D-02 - xs( 4) = 0.2667106008395015D-02 - xs( 5) = 0.4469901086383391D-02 - xs( 6) = 0.6860664249356959D-02 - xs( 7) = 0.9890688379429326D-02 - xs( 8) = 0.1358167716747765D-01 - xs( 9) = 0.1792371945236202D-01 - xs( 10) = 0.2288277721451744D-01 - xs( 11) = 0.2841177255210969D-01 - xs( 12) = 0.3445921752434015D-01 - xs( 13) = 0.4097408952263092D-01 - xs( 14) = 0.4790833043735523D-01 - xs( 15) = 0.5521814052430098D-01 - xs( 16) = 0.6286456061978649D-01 - xs( 17) = 0.7081356443947379D-01 - xs( 18) = 0.7903583127885719D-01 - xs( 19) = 0.8750634569937783D-01 - xs( 20) = 0.9620393366329287D-01 - xs( 21) = 0.1051108050892823D+00 - xs( 22) = 0.1142121417340789D+00 - xs( 23) = 0.1234957492934169D+00 - xs( 24) = 0.1329517816828166D+00 - xs( 25) = 0.1425725410544963D+00 - xs( 26) = 0.1523523589857124D+00 - xs( 27) = 0.1622875715704670D+00 - xs( 28) = 0.1723765949684063D+00 - xs( 29) = 0.1826201670019261D+00 - xs( 30) = 0.1930218118876486D+00 - xs( 31) = 0.2035884415459632D+00 - xs( 32) = 0.2143316742862071D+00 - xs( 33) = 0.2252675141919562D+00 - xs( 34) = 0.2363815974119804D+00 - ws( 1) = 0.2631306912801361D-03 - ws( 2) = 0.6326230446671899D-03 - ws( 3) = 0.1048983762458970D-02 - ws( 4) = 0.1531207564800155D-02 - ws( 5) = 0.2086218941537577D-02 - ws( 6) = 0.2704061622511987D-02 - ws( 7) = 0.3359639140533909D-02 - ws( 8) = 0.4020544282449757D-02 - ws( 9) = 0.4657665509675551D-02 - ws( 10) = 0.5252458496908420D-02 - ws( 11) = 0.5796874173387612D-02 - ws( 12) = 0.6289473117898855D-02 - ws( 13) = 0.6732240581402417D-02 - ws( 14) = 0.7128932042527350D-02 - ws( 15) = 0.7484193806939163D-02 - ws( 16) = 0.7802979484517986D-02 - ws( 17) = 0.8090148309228013D-02 - ws( 18) = 0.8350224036778795D-02 - ws( 19) = 0.8587283549978378D-02 - ws( 20) = 0.8804934366098773D-02 - ws( 21) = 0.9006344819062940D-02 - ws( 22) = 0.9194301357970763D-02 - ws( 23) = 0.9371277803865100D-02 - ws( 24) = 0.9539510485559788D-02 - ws( 25) = 0.9701077678141152D-02 - ws( 26) = 0.9857983956350555D-02 - ws( 27) = 0.1001228243588040D-01 - ws( 28) = 0.1016623235176900D-01 - ws( 29) = 0.1032255830013883D-01 - ws( 30) = 0.1048544242877794D-01 - ws( 31) = 0.1066258019147088D-01 - ws( 32) = 0.1087362524009214D-01 - ws( 33) = 0.1121414765747143D-01 - ws( 34) = 0.1242566290546679D-01 - endif - - - if( iquad .eq. 70 ) then - idomain = 70 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.9999999999800001D-01 - n = 34 - err = 0.3447974698386035D-10 - ierq = 0 - xs( 1) = 0.1071638801078842D-03 - xs( 2) = 0.5739802353369391D-03 - xs( 3) = 0.1450959419762923D-02 - xs( 4) = 0.2797299746931799D-02 - xs( 5) = 0.4685600273099687D-02 - xs( 6) = 0.7184997004685888D-02 - xs( 7) = 0.1034167779916086D-01 - xs( 8) = 0.1416714571839340D-01 - xs( 9) = 0.1864095471005132D-01 - xs( 10) = 0.2372248896257551D-01 - xs( 11) = 0.2936202015316102D-01 - xs( 12) = 0.3550748920102432D-01 - xs( 13) = 0.4210821632306923D-01 - xs( 14) = 0.4911697936539348D-01 - xs( 15) = 0.5649110840715792D-01 - xs( 16) = 0.6419290000916172D-01 - xs( 17) = 0.7218957651518654D-01 - xs( 18) = 0.8045297764073892D-01 - xs( 19) = 0.8895912506981050D-01 - xs( 20) = 0.9768775391285082D-01 - xs( 21) = 0.1066218668711772D+00 - xs( 22) = 0.1157473410266298D+00 - xs( 23) = 0.1250526008182797D+00 - xs( 24) = 0.1345283631938096D+00 - xs( 25) = 0.1441674590629747D+00 - xs( 26) = 0.1539647362860377D+00 - xs( 27) = 0.1639170710236101D+00 - xs( 28) = 0.1740234732771383D+00 - xs( 29) = 0.1842853746453263D+00 - xs( 30) = 0.1947073255092481D+00 - xs( 31) = 0.2052977208905750D+00 - xs( 32) = 0.2160707656241715D+00 - xs( 33) = 0.2270495426351873D+00 - xs( 34) = 0.2382451919842202D+00 - ws( 1) = 0.2760908205416477D-03 - ws( 2) = 0.6637453921931949D-03 - ws( 3) = 0.1100229628202806D-02 - ws( 4) = 0.1604842870382994D-02 - ws( 5) = 0.2183634555787530D-02 - ws( 6) = 0.2823074202287022D-02 - ws( 7) = 0.3492141049420316D-02 - ws( 8) = 0.4155161749117744D-02 - ws( 9) = 0.4785496239018522D-02 - ws( 10) = 0.5369176225428699D-02 - ws( 11) = 0.5901151319146255D-02 - ws( 12) = 0.6381306777307743D-02 - ws( 13) = 0.6812259500865868D-02 - ws( 14) = 0.7198148561235522D-02 - ws( 15) = 0.7543826746663224D-02 - ws( 16) = 0.7854298992105744D-02 - ws( 17) = 0.8134368122344903D-02 - ws( 18) = 0.8388445692716162D-02 - ws( 19) = 0.8620479220495055D-02 - ws( 20) = 0.8833952261635842D-02 - ws( 21) = 0.9031925530483004D-02 - ws( 22) = 0.9217098418335632D-02 - ws( 23) = 0.9391878743051212D-02 - ws( 24) = 0.9558457255127873D-02 - ws( 25) = 0.9718889127207702D-02 - ws( 26) = 0.9875181587674014D-02 - ws( 27) = 0.1002942583973773D-01 - ws( 28) = 0.1018395539665955D-01 - ws( 29) = 0.1034165322653465D-01 - ws( 30) = 0.1050710685263207D-01 - ws( 31) = 0.1068877056643875D-01 - ws( 32) = 0.1090676799366046D-01 - ws( 33) = 0.1126713496047198D-01 - ws( 34) = 0.1254833761619860D-01 - endif - - - if( iquad .eq. 71 ) then - idomain = 71 - rk0r = 0.1000000000001000D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999980000D+00 - n = 35 - err = 0.6331234264082929D-10 - ierq = 0 - xs( 1) = 0.1305214987058449D-03 - xs( 2) = 0.6971251664254742D-03 - xs( 3) = 0.1753348397747346D-02 - xs( 4) = 0.3355308289724568D-02 - xs( 5) = 0.5565197690500818D-02 - xs( 6) = 0.8430824965583563D-02 - xs( 7) = 0.1196855888754997D-01 - xs( 8) = 0.1616060734257840D-01 - xs( 9) = 0.2096589760907911D-01 - xs( 10) = 0.2633369635602798D-01 - xs( 11) = 0.3221219200746332D-01 - xs( 12) = 0.3855198302398379D-01 - xs( 13) = 0.4530723316110381D-01 - xs( 14) = 0.5243618608572313D-01 - xs( 15) = 0.5990145444612190D-01 - xs( 16) = 0.6767007946997396D-01 - xs( 17) = 0.7571336959448088D-01 - xs( 18) = 0.8400658582025670D-01 - xs( 19) = 0.9252855319463268D-01 - xs( 20) = 0.1012612599613587D+00 - xs( 21) = 0.1101894827292724D+00 - xs( 22) = 0.1193004579418751D+00 - xs( 23) = 0.1285836085485798D+00 - xs( 24) = 0.1380303290347815D+00 - xs( 25) = 0.1476338311469932D+00 - xs( 26) = 0.1573890532192875D+00 - xs( 27) = 0.1672926392980433D+00 - xs( 28) = 0.1773430105335586D+00 - xs( 29) = 0.1875405442009778D+00 - xs( 30) = 0.1978879248545148D+00 - xs( 31) = 0.2083909018486516D+00 - xs( 32) = 0.2190589928728209D+00 - xs( 33) = 0.2299079003758634D+00 - xs( 34) = 0.2409647240442486D+00 - xs( 35) = 0.2522566081489763D+00 - ws( 1) = 0.3360474718406669D-03 - ws( 2) = 0.8034091352896508D-03 - ws( 3) = 0.1318618082653558D-02 - ws( 4) = 0.1896035482118199D-02 - ws( 5) = 0.2532028968574215D-02 - ws( 6) = 0.3201996449800525D-02 - ws( 7) = 0.3870291151209449D-02 - ws( 8) = 0.4506713289787427D-02 - ws( 9) = 0.5095271577567271D-02 - ws( 10) = 0.5631640675432202D-02 - ws( 11) = 0.6117101604532961D-02 - ws( 12) = 0.6554833034852703D-02 - ws( 13) = 0.6948702877931735D-02 - ws( 14) = 0.7302970778432732D-02 - ws( 15) = 0.7622075689275948D-02 - ws( 16) = 0.7910397875910996D-02 - ws( 17) = 0.8172065830809653D-02 - ws( 18) = 0.8410844236393900D-02 - ws( 19) = 0.8630094854535503D-02 - ws( 20) = 0.8832786966094961D-02 - ws( 21) = 0.9021535955126055D-02 - ws( 22) = 0.9198655395341739D-02 - ws( 23) = 0.9366214618481998D-02 - ws( 24) = 0.9526098076132956D-02 - ws( 25) = 0.9680066492052618D-02 - ws( 26) = 0.9829828671949901D-02 - ws( 27) = 0.9977112500691004D-02 - ws( 28) = 0.1012377773232911D-01 - ws( 29) = 0.1027205513988765D-01 - ws( 30) = 0.1042466092943591D-01 - ws( 31) = 0.1058603507902861D-01 - ws( 32) = 0.1076514596430347D-01 - ws( 33) = 0.1098005539687970D-01 - ws( 34) = 0.1134664234997997D-01 - ws( 35) = 0.1266173536799026D-01 - endif - - - if( iquad .eq. 72 ) then - idomain = 72 - rk0r = 0.1000000000001000D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5999999999980000D+00 - n = 35 - err = 0.4269988564778408D-10 - ierq = 0 - xs( 1) = 0.1541010521335701D-03 - xs( 2) = 0.8195715334283176D-03 - xs( 3) = 0.2045800196275892D-02 - xs( 4) = 0.3874031888026678D-02 - xs( 5) = 0.6344601334592173D-02 - xs( 6) = 0.9481266098660925D-02 - xs( 7) = 0.1328139909694977D-01 - xs( 8) = 0.1771697433160989D-01 - xs( 9) = 0.2274335769644484D-01 - xs( 10) = 0.2830909740138846D-01 - xs( 11) = 0.3436254568989509D-01 - xs( 12) = 0.4085508708177093D-01 - xs( 13) = 0.4774235448798820D-01 - xs( 14) = 0.5498456840115244D-01 - xs( 15) = 0.6254652226583922D-01 - xs( 16) = 0.7039738908465004D-01 - xs( 17) = 0.7851041528877606D-01 - xs( 18) = 0.8686254981503599D-01 - xs( 19) = 0.9543405153462657D-01 - xs( 20) = 0.1042081087237871D+00 - xs( 21) = 0.1131704925751419D+00 - xs( 22) = 0.1223092567881951D+00 - xs( 23) = 0.1316144885787872D+00 - xs( 24) = 0.1410781129962453D+00 - xs( 25) = 0.1506937517190113D+00 - xs( 26) = 0.1604566384986194D+00 - xs( 27) = 0.1703635970374033D+00 - xs( 28) = 0.1804130985657423D+00 - xs( 29) = 0.1906054044161730D+00 - xs( 30) = 0.2009428193249790D+00 - xs( 31) = 0.2114304382650273D+00 - xs( 32) = 0.2220759952117481D+00 - xs( 33) = 0.2328926588911780D+00 - xs( 34) = 0.2438976268007002D+00 - xs( 35) = 0.2550145076909957D+00 - ws( 1) = 0.3963615946333281D-03 - ws( 2) = 0.9396605611510454D-03 - ws( 3) = 0.1519896709241118D-02 - ws( 4) = 0.2143574174152819D-02 - ws( 5) = 0.2801701967126944D-02 - ws( 6) = 0.3471163804987367D-02 - ws( 7) = 0.4124265169990975D-02 - ws( 8) = 0.4739272964271877D-02 - ws( 9) = 0.5304808878694695D-02 - ws( 10) = 0.5818012816927528D-02 - ws( 11) = 0.6280763665883390D-02 - ws( 12) = 0.6696920044179728D-02 - ws( 13) = 0.7070985413979298D-02 - ws( 14) = 0.7407578005166704D-02 - ws( 15) = 0.7711197106918227D-02 - ws( 16) = 0.7986083890938325D-02 - ws( 17) = 0.8236133299219801D-02 - ws( 18) = 0.8464851963839675D-02 - ws( 19) = 0.8675355334819380D-02 - ws( 20) = 0.8870392623642016D-02 - ws( 21) = 0.9052388267493064D-02 - ws( 22) = 0.9223491529692405D-02 - ws( 23) = 0.9385629212243146D-02 - ws( 24) = 0.9540559598419393D-02 - ws( 25) = 0.9689927996287095D-02 - ws( 26) = 0.9835329482110050D-02 - ws( 27) = 0.9978370472029341D-02 - ws( 28) = 0.1012077875787876D-01 - ws( 29) = 0.1026458231510554D-01 - ws( 30) = 0.1041214641721196D-01 - ws( 31) = 0.1056787951438063D-01 - ws( 32) = 0.1073980200234498D-01 - ws( 33) = 0.1094251921166521D-01 - ws( 34) = 0.1130323695609886D-01 - ws( 35) = 0.1228758302626413D-01 - endif - - - if( iquad .eq. 73 ) then - idomain = 73 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5707963267928966D+00 - n = 32 - err = 0.3972904992883223D-10 - ierq = 0 - xs( 1) = 0.2259181473230716D-03 - xs( 2) = 0.1193554545732686D-02 - xs( 3) = 0.2944439853750030D-02 - xs( 4) = 0.5485360005234335D-02 - xs( 5) = 0.8807492564945889D-02 - xs( 6) = 0.1287943507351754D-01 - xs( 7) = 0.1764874556130919D-01 - xs( 8) = 0.2304988549067837D-01 - xs( 9) = 0.2901340752799578D-01 - xs( 10) = 0.3547281498501593D-01 - xs( 11) = 0.4236826164082335D-01 - xs( 12) = 0.4964781884933152D-01 - xs( 13) = 0.5726733705028235D-01 - xs( 14) = 0.6518967401112506D-01 - xs( 15) = 0.7338373682819359D-01 - xs( 16) = 0.8182355318376494D-01 - xs( 17) = 0.9048745659642535D-01 - xs( 18) = 0.9935740681947934D-01 - xs( 19) = 0.1084184398942185D+00 - xs( 20) = 0.1176582337994079D+00 - xs( 21) = 0.1270667750888337D+00 - xs( 22) = 0.1366361155215803D+00 - xs( 23) = 0.1463602114833877D+00 - xs( 24) = 0.1562348460065220D+00 - xs( 25) = 0.1662576510579674D+00 - xs( 26) = 0.1764282253457894D+00 - xs( 27) = 0.1867483994167330D+00 - xs( 28) = 0.1972229796158066D+00 - xs( 29) = 0.2078599122780194D+00 - xs( 30) = 0.2186729475941555D+00 - xs( 31) = 0.2296856332919673D+00 - xs( 32) = 0.2408402796318649D+00 - ws( 1) = 0.5801743231821845D-03 - ws( 2) = 0.1357377273212235D-02 - ws( 3) = 0.2145719358817807D-02 - ws( 4) = 0.2934780269906015D-02 - ws( 5) = 0.3704218084752058D-02 - ws( 6) = 0.4430779788444793D-02 - ws( 7) = 0.5096756175097294D-02 - ws( 8) = 0.5693833493270200D-02 - ws( 9) = 0.6222068403578716D-02 - ws( 10) = 0.6686753658260526D-02 - ws( 11) = 0.7095489029043019D-02 - ws( 12) = 0.7456281007984892D-02 - ws( 13) = 0.7776581460401520D-02 - ws( 14) = 0.8062925967733085D-02 - ws( 15) = 0.8320884568028651D-02 - ws( 16) = 0.8555148381369849D-02 - ws( 17) = 0.8769660899790801D-02 - ws( 18) = 0.8967752851018564D-02 - ws( 19) = 0.9152265371358945D-02 - ws( 20) = 0.9325658199856960D-02 - ws( 21) = 0.9490104197999808D-02 - ws( 22) = 0.9647575121268920D-02 - ws( 23) = 0.9799927376612741D-02 - ws( 24) = 0.9948985343364431D-02 - ws( 25) = 0.1009665631614191D-01 - ws( 26) = 0.1024516439204083D-01 - ws( 27) = 0.1039710552718012D-01 - ws( 28) = 0.1055697672409632D-01 - ws( 29) = 0.1073351153933703D-01 - ws( 30) = 0.1094201654909203D-01 - ws( 31) = 0.1131714134172897D-01 - ws( 32) = 0.1237360543209083D-01 - endif - - - if( iquad .eq. 74 ) then - idomain = 74 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1570796326792897D+01 - n = 30 - err = 0.4642314359604853D-10 - ierq = 0 - xs( 1) = 0.2274022712977316D-03 - xs( 2) = 0.1207235994324304D-02 - xs( 3) = 0.2994758254994011D-02 - xs( 4) = 0.5601525953101236D-02 - xs( 5) = 0.9011662340278153D-02 - xs( 6) = 0.1318356359734282D-01 - xs( 7) = 0.1805820802478138D-01 - xs( 8) = 0.2356803926791275D-01 - xs( 9) = 0.2964412937934658D-01 - xs( 10) = 0.3622101860507337D-01 - xs( 11) = 0.4323941472951137D-01 - xs( 12) = 0.5064728329035222D-01 - xs( 13) = 0.5839990752791532D-01 - xs( 14) = 0.6645938642943409D-01 - xs( 15) = 0.7479388935628493D-01 - xs( 16) = 0.8337685773046831D-01 - xs( 17) = 0.9218625481311886D-01 - xs( 18) = 0.1012039095352440D+00 - xs( 19) = 0.1104149700428753D+00 - xs( 20) = 0.1198074685965671D+00 - xs( 21) = 0.1293719903877842D+00 - xs( 22) = 0.1391014445723755D+00 - xs( 23) = 0.1489909589044391D+00 - xs( 24) = 0.1590378108565006D+00 - xs( 25) = 0.1692415513028385D+00 - xs( 26) = 0.1796047158915328D+00 - xs( 27) = 0.1901307417441653D+00 - xs( 28) = 0.2008307083427718D+00 - xs( 29) = 0.2117114268151958D+00 - xs( 30) = 0.2225505652321547D+00 - ws( 1) = 0.5847683536876406D-03 - ws( 2) = 0.1379827458674646D-02 - ws( 3) = 0.2197363279256279D-02 - ws( 4) = 0.3013470610745774D-02 - ws( 5) = 0.3799716300026407D-02 - ws( 6) = 0.4534096643252120D-02 - ws( 7) = 0.5203812260450511D-02 - ws( 8) = 0.5804282171092773D-02 - ws( 9) = 0.6336944492471509D-02 - ws( 10) = 0.6806935191108154D-02 - ws( 11) = 0.7221184775168160D-02 - ws( 12) = 0.7587108669097202D-02 - ws( 13) = 0.7911835836550161D-02 - ws( 14) = 0.8201830407007130D-02 - ws( 15) = 0.8462761678305820D-02 - ws( 16) = 0.8699513383667238D-02 - ws( 17) = 0.8916261666408621D-02 - ws( 18) = 0.9116580779666150D-02 - ws( 19) = 0.9303553891035040D-02 - ws( 20) = 0.9479883758505473D-02 - ws( 21) = 0.9648002625581924D-02 - ws( 22) = 0.9810152366896039D-02 - ws( 23) = 0.9968559991723091D-02 - ws( 24) = 0.1012565706987394D-01 - ws( 25) = 0.1028367944898141D-01 - ws( 26) = 0.1044807501761297D-01 - ws( 27) = 0.1062608589781255D-01 - ws( 28) = 0.1082646499386214D-01 - ws( 29) = 0.1124972736406525D-01 - ws( 30) = 0.1172729680297438D-01 - endif - - - if( iquad .eq. 75 ) then - idomain = 75 - rk0r = 0.1000000000001000D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 29 - err = 0.7890690497135646D-11 - ierq = 0 - xs( 1) = 0.2539350564980670D-03 - xs( 2) = 0.1332193346161907D-02 - xs( 3) = 0.3249172770860572D-02 - xs( 4) = 0.5968618300332237D-02 - xs( 5) = 0.9442592660445510D-02 - xs( 6) = 0.1361593294165533D-01 - xs( 7) = 0.1843018802341288D-01 - xs( 8) = 0.2382686140600270D-01 - xs( 9) = 0.2974979388590783D-01 - xs( 10) = 0.3614670880142550D-01 - xs( 11) = 0.4297005632862449D-01 - xs( 12) = 0.5017733320310606D-01 - xs( 13) = 0.5773104664825478D-01 - xs( 14) = 0.6559846131232293D-01 - xs( 15) = 0.7375123261256021D-01 - xs( 16) = 0.8216499782146884D-01 - xs( 17) = 0.9081897103967507D-01 - xs( 18) = 0.9969557044052764D-01 - xs( 19) = 0.1087800948588803D+00 - xs( 20) = 0.1180604529300573D+00 - xs( 21) = 0.1275269650102948D+00 - xs( 22) = 0.1371722437101405D+00 - xs( 23) = 0.1469910316996949D+00 - xs( 24) = 0.1569804016062827D+00 - xs( 25) = 0.1671398929488908D+00 - xs( 26) = 0.1774683230903899D+00 - xs( 27) = 0.1879759098074590D+00 - xs( 28) = 0.1986334496994621D+00 - xs( 29) = 0.2090806046880246D+00 - ws( 1) = 0.6510139890963918D-03 - ws( 2) = 0.1502433344686985D-02 - ws( 3) = 0.2325387352385036D-02 - ws( 4) = 0.3105441607967866D-02 - ws( 5) = 0.3833246782734415D-02 - ws( 6) = 0.4503637489719132D-02 - ws( 7) = 0.5115083635093412D-02 - ws( 8) = 0.5668877862746403D-02 - ws( 9) = 0.6168260684866222D-02 - ws( 10) = 0.6617639255556721D-02 - ws( 11) = 0.7021972855977004D-02 - ws( 12) = 0.7386336561095132D-02 - ws( 13) = 0.7715640733176196D-02 - ws( 14) = 0.8014471507883586D-02 - ws( 15) = 0.8287017651348710D-02 - ws( 16) = 0.8537055232781919D-02 - ws( 17) = 0.8767968255837017D-02 - ws( 18) = 0.8982789283009263D-02 - ws( 19) = 0.9184258950061686D-02 - ws( 20) = 0.9374887277876880D-02 - ws( 21) = 0.9556997350223882D-02 - ws( 22) = 0.9732952903041105D-02 - ws( 23) = 0.9905120952129962D-02 - ws( 24) = 0.1007573912683098D-01 - ws( 25) = 0.1025185147365780D-01 - ws( 26) = 0.1043608435902697D-01 - ws( 27) = 0.1065165971149357D-01 - ws( 28) = 0.1115045809860846D-01 - ws( 29) = 0.1088226695959774D-01 - endif - - - if( iquad .eq. 76 ) then - idomain = 76 - rk0r = 0.1000000000001000D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 27 - err = 0.9230334951810607D-11 - ierq = 0 - xs( 1) = 0.2161456603401968D-03 - xs( 2) = 0.1135506366821311D-02 - xs( 3) = 0.2776105671894212D-02 - xs( 4) = 0.5116407619538545D-02 - xs( 5) = 0.8126982146383447D-02 - xs( 6) = 0.1177272741417646D-01 - xs( 7) = 0.1601490635988860D-01 - xs( 8) = 0.2081301872608748D-01 - xs( 9) = 0.2612638605262682D-01 - xs( 10) = 0.3191539014476971D-01 - xs( 11) = 0.3814236508419686D-01 - xs( 12) = 0.4477218142700279D-01 - xs( 13) = 0.5177257982345955D-01 - xs( 14) = 0.5911431441036275D-01 - xs( 15) = 0.6677116220431532D-01 - xs( 16) = 0.7471984782948493D-01 - xs( 17) = 0.8293991816456141D-01 - xs( 18) = 0.9141358723673211D-01 - xs( 19) = 0.1001256069901864D+00 - xs( 20) = 0.1090631361516559D+00 - xs( 21) = 0.1182154539356872D+00 - xs( 22) = 0.1275742040332172D+00 - xs( 23) = 0.1371328821671671D+00 - xs( 24) = 0.1468823830566498D+00 - xs( 25) = 0.1568254861725143D+00 - xs( 26) = 0.1668957161647260D+00 - xs( 27) = 0.1766505177196382D+00 - ws( 1) = 0.5543144728728079D-03 - ws( 2) = 0.1282774851990101D-02 - ws( 3) = 0.1994779013953800D-02 - ws( 4) = 0.2680885108963289D-02 - ws( 5) = 0.3334379335872877D-02 - ws( 6) = 0.3950623498071556D-02 - ws( 7) = 0.4526957782882218D-02 - ws( 8) = 0.5062466581075080D-02 - ws( 9) = 0.5557650290295106D-02 - ws( 10) = 0.6014070642722846D-02 - ws( 11) = 0.6434019022916401D-02 - ws( 12) = 0.6820235262629385D-02 - ws( 13) = 0.7175687829716611D-02 - ws( 14) = 0.7503414126342152D-02 - ws( 15) = 0.7806410635020532D-02 - ws( 16) = 0.8087565444653375D-02 - ws( 17) = 0.8349642023599115D-02 - ws( 18) = 0.8595248690790562D-02 - ws( 19) = 0.8826818137203709D-02 - ws( 20) = 0.9046951188435515D-02 - ws( 21) = 0.9257962447322340D-02 - ws( 22) = 0.9461878938992653D-02 - ws( 23) = 0.9667324478098000D-02 - ws( 24) = 0.9872077297035584D-02 - ws( 25) = 0.1010717278493455D-01 - ws( 26) = 0.1061207542590876D-01 - ws( 27) = 0.9788235384654278D-02 - endif - - - if( iquad .eq. 77 ) then - idomain = 77 - rk0r = 0.1000000000001000D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 25 - err = 0.8823158459945728D-11 - ierq = 0 - xs( 1) = 0.1863291245967047D-03 - xs( 2) = 0.9797156029098340D-03 - xs( 3) = 0.2398881208601650D-02 - xs( 4) = 0.4430589789754378D-02 - xs( 5) = 0.7056325625989882D-02 - xs( 6) = 0.1025349223705780D-01 - xs( 7) = 0.1399647251896094D-01 - xs( 8) = 0.1825766393467238D-01 - xs( 9) = 0.2300843416405859D-01 - xs( 10) = 0.2821995516826416D-01 - xs( 11) = 0.3386389176499792D-01 - xs( 12) = 0.3991293916869113D-01 - xs( 13) = 0.4634121848901313D-01 - xs( 14) = 0.5312455288498646D-01 - xs( 15) = 0.6024063096860460D-01 - xs( 16) = 0.6766908650311876D-01 - xs( 17) = 0.7539157938084645D-01 - xs( 18) = 0.8339167824409296D-01 - xs( 19) = 0.9165469012122542D-01 - xs( 20) = 0.1001681360766195D+00 - xs( 21) = 0.1089196698818675D+00 - xs( 22) = 0.1178941857242899D+00 - xs( 23) = 0.1270872752547291D+00 - xs( 24) = 0.1363890612900786D+00 - xs( 25) = 0.1453530790864243D+00 - ws( 1) = 0.4779462702868035D-03 - ws( 2) = 0.1107957826708946D-02 - ws( 3) = 0.1728129893424486D-02 - ws( 4) = 0.2332183457148705D-02 - ws( 5) = 0.2915504284711447D-02 - ws( 6) = 0.3474542070215236D-02 - ws( 7) = 0.4006802114511013D-02 - ws( 8) = 0.4510794666981787D-02 - ws( 9) = 0.4985930384669129D-02 - ws( 10) = 0.5432381933376080D-02 - ws( 11) = 0.5850936978891714D-02 - ws( 12) = 0.6242849397863449D-02 - ws( 13) = 0.6609698694441205D-02 - ws( 14) = 0.6953286563975443D-02 - ws( 15) = 0.7275572888503195D-02 - ws( 16) = 0.7578507558637473D-02 - ws( 17) = 0.7864093970165123D-02 - ws( 18) = 0.8134755813419154D-02 - ws( 19) = 0.8392139299716786D-02 - ws( 20) = 0.8638633308354911D-02 - ws( 21) = 0.8883937493955964D-02 - ws( 22) = 0.9118855253423938D-02 - ws( 23) = 0.9399153672412692D-02 - ws( 24) = 0.9888021542959939D-02 - ws( 25) = 0.8611156291672995D-02 - endif - - - if( iquad .eq. 78 ) then - idomain = 78 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999800000D-01 - n = 37 - err = 0.6912105089009164D-10 - ierq = 0 - xs( 1) = 0.5315770603025046D-04 - xs( 2) = 0.2840087418471593D-03 - xs( 3) = 0.7157409565535362D-03 - xs( 4) = 0.1378115724030360D-02 - xs( 5) = 0.2316996414796828D-02 - xs( 6) = 0.3596267723511808D-02 - xs( 7) = 0.5297317355515826D-02 - xs( 8) = 0.7513090749281488D-02 - xs( 9) = 0.1033424590763612D-01 - xs( 10) = 0.1382886893522921D-01 - xs( 11) = 0.1802399686604169D-01 - xs( 12) = 0.2290058807185278D-01 - xs( 13) = 0.2840536577767287D-01 - xs( 14) = 0.3446981919274864D-01 - xs( 15) = 0.4102505452773311D-01 - xs( 16) = 0.4800917842651942D-01 - xs( 17) = 0.5536940164070175D-01 - xs( 18) = 0.6306165448217817D-01 - xs( 19) = 0.7104939349479110D-01 - xs( 20) = 0.7930233206671845D-01 - xs( 21) = 0.8779533619003324D-01 - xs( 22) = 0.9650752759303770D-01 - xs( 23) = 0.1054215736264591D+00 - xs( 24) = 0.1145231316948322D+00 - xs( 25) = 0.1238004203191937D+00 - xs( 26) = 0.1332438953276836D+00 - xs( 27) = 0.1428460174548260D+00 - xs( 28) = 0.1526011029557960D+00 - xs( 29) = 0.1625052589929966D+00 - xs( 30) = 0.1725564239487336D+00 - xs( 31) = 0.1827545192645155D+00 - xs( 32) = 0.1931016755314864D+00 - xs( 33) = 0.2036030419800198D+00 - xs( 34) = 0.2142673247043778D+00 - xs( 35) = 0.2251087848099339D+00 - xs( 36) = 0.2361534068281984D+00 - xs( 37) = 0.2473981869264755D+00 - ws( 1) = 0.1368637358776395D-03 - ws( 2) = 0.3275458861272065D-03 - ws( 3) = 0.5408336564719949D-03 - ws( 4) = 0.7915236596230371D-03 - ws( 5) = 0.1096886036153370D-02 - ws( 6) = 0.1475312903834694D-02 - ws( 7) = 0.1942509921090699D-02 - ws( 8) = 0.2504505045331840D-02 - ws( 9) = 0.3149494630435051D-02 - ws( 10) = 0.3844353117018110D-02 - ws( 11) = 0.4542501518707129D-02 - ws( 12) = 0.5201453251603193D-02 - ws( 13) = 0.5796430558812868D-02 - ws( 14) = 0.6320878372831215D-02 - ws( 15) = 0.6779248792783321D-02 - ws( 16) = 0.7180211026084266D-02 - ws( 17) = 0.7532911887948871D-02 - ws( 18) = 0.7845524839037584D-02 - ws( 19) = 0.8124923876193565D-02 - ws( 20) = 0.8376779152945579D-02 - ws( 21) = 0.8605761145541407D-02 - ws( 22) = 0.8815742106288112D-02 - ws( 23) = 0.9009966703553361D-02 - ws( 24) = 0.9191191397688309D-02 - ws( 25) = 0.9361799546495910D-02 - ws( 26) = 0.9523897982191748D-02 - ws( 27) = 0.9679404145670142D-02 - ws( 28) = 0.9830129147464292D-02 - ws( 29) = 0.9977870498606484D-02 - ws( 30) = 0.1012454250586113D-01 - ws( 31) = 0.1027230368581684D-01 - ws( 32) = 0.1042387119129719D-01 - ws( 33) = 0.1058344038924388D-01 - ws( 34) = 0.1075978814169748D-01 - ws( 35) = 0.1097141181602590D-01 - ws( 36) = 0.1132713809632248D-01 - ws( 37) = 0.1255014068940880D-01 - endif - - - if( iquad .eq. 79 ) then - idomain = 79 - rk0r = 0.1570796326795897D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999800000D-01 - n = 37 - err = 0.6213291502154673D-10 - ierq = 0 - xs( 1) = 0.5503848566646871D-04 - xs( 2) = 0.2940172344469688D-03 - xs( 3) = 0.7407681121095245D-03 - xs( 4) = 0.1425695562899375D-02 - xs( 5) = 0.2395446143439338D-02 - xs( 6) = 0.3714518765330715D-02 - xs( 7) = 0.5464070359154907D-02 - xs( 8) = 0.7734823243190569D-02 - xs( 9) = 0.1061211357929885D-01 - xs( 10) = 0.1415632799497255D-01 - xs( 11) = 0.1838827730413933D-01 - xs( 12) = 0.2328799603750900D-01 - xs( 13) = 0.2880591339634704D-01 - xs( 14) = 0.3487822805904828D-01 - xs( 15) = 0.4143935343037558D-01 - xs( 16) = 0.4842900367298263D-01 - xs( 17) = 0.5579489569017564D-01 - xs( 18) = 0.6349295798558049D-01 - xs( 19) = 0.7148648944895371D-01 - xs( 20) = 0.7974504727855010D-01 - xs( 21) = 0.8824339329725842D-01 - xs( 22) = 0.9696060155372581D-01 - xs( 23) = 0.1058793377097837D+00 - xs( 24) = 0.1149852910149363D+00 - xs( 25) = 0.1242667351395861D+00 - xs( 26) = 0.1337141971640955D+00 - xs( 27) = 0.1433202206799477D+00 - xs( 28) = 0.1530792142346250D+00 - xs( 29) = 0.1629873851452785D+00 - xs( 30) = 0.1730427806111800D+00 - xs( 31) = 0.1832454515757699D+00 - xs( 32) = 0.1935976837102320D+00 - xs( 33) = 0.2041048140399135D+00 - xs( 34) = 0.2147757405013060D+00 - xs( 35) = 0.2256250442291693D+00 - xs( 36) = 0.2366795632905272D+00 - xs( 37) = 0.2479330626619018D+00 - ws( 1) = 0.1417017429985216D-03 - ws( 2) = 0.3390310582251808D-03 - ws( 3) = 0.5594944920538851D-03 - ws( 4) = 0.8181034596290878D-03 - ws( 5) = 0.1132159200677515D-02 - ws( 6) = 0.1519623779386023D-02 - ws( 7) = 0.1994855558004730D-02 - ws( 8) = 0.2561225203646108D-02 - ws( 9) = 0.3203688797311590D-02 - ws( 10) = 0.3888224200417594D-02 - ws( 11) = 0.4572137010619992D-02 - ws( 12) = 0.5218764110790064D-02 - ws( 13) = 0.5806224706319975D-02 - ws( 14) = 0.6327358903166059D-02 - ws( 15) = 0.6784804177613717D-02 - ws( 16) = 0.7185782433765911D-02 - ws( 17) = 0.7538672114499057D-02 - ws( 18) = 0.7851354851290297D-02 - ws( 19) = 0.8130652033367471D-02 - ws( 20) = 0.8382272143985554D-02 - ws( 21) = 0.8610944202567108D-02 - ws( 22) = 0.8820592692917652D-02 - ws( 23) = 0.9014501847695193D-02 - ws( 24) = 0.9195456052614648D-02 - ws( 25) = 0.9365857876285100D-02 - ws( 26) = 0.9527827635389311D-02 - ws( 27) = 0.9683292772750587D-02 - ws( 28) = 0.9834073711109165D-02 - ws( 29) = 0.9981975390965049D-02 - ws( 30) = 0.1012892340123703D-01 - ws( 31) = 0.1027711396269420D-01 - ws( 32) = 0.1042926562110662D-01 - ws( 33) = 0.1058963422903694D-01 - ws( 34) = 0.1076727333470981D-01 - ws( 35) = 0.1098006013689858D-01 - ws( 36) = 0.1134106612225115D-01 - ws( 37) = 0.1256463393192576D-01 - endif - - - if( iquad .eq. 80 ) then - idomain = 80 - rk0r = 0.1570796326795897D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5999999999800001D-01 - n = 39 - err = 0.4661284943849694D-10 - ierq = 0 - xs( 1) = 0.5467895566444577D-04 - xs( 2) = 0.2917922157278819D-03 - xs( 3) = 0.7337765620570681D-03 - xs( 4) = 0.1408398001121500D-02 - xs( 5) = 0.2358122426224303D-02 - xs( 6) = 0.3641679417734618D-02 - xs( 7) = 0.5333434565127743D-02 - xs( 8) = 0.7517801252699323D-02 - xs( 9) = 0.1027628170381858D-01 - xs( 10) = 0.1366882889977946D-01 - xs( 11) = 0.1771822244792020D-01 - xs( 12) = 0.2240777613892237D-01 - xs( 13) = 0.2769282561835594D-01 - xs( 14) = 0.3351626615595738D-01 - xs( 15) = 0.3981985555329350D-01 - xs( 16) = 0.4654982052776487D-01 - xs( 17) = 0.5365873753952115D-01 - xs( 18) = 0.6110564862180837D-01 - xs( 19) = 0.6885551363941433D-01 - xs( 20) = 0.7687848774395843D-01 - xs( 21) = 0.8514921139147758D-01 - xs( 22) = 0.9364617434833714D-01 - xs( 23) = 0.1023511679981994D+00 - xs( 24) = 0.1112488243056569D+00 - xs( 25) = 0.1203262349360286D+00 - xs( 26) = 0.1295726431133538D+00 - xs( 27) = 0.1389792017246414D+00 - xs( 28) = 0.1485387922415580D+00 - xs( 29) = 0.1582459029891733D+00 - xs( 30) = 0.1680965670662806D+00 - xs( 31) = 0.1780883660338169D+00 - xs( 32) = 0.1882205261532248D+00 - xs( 33) = 0.1984941027344263D+00 - xs( 34) = 0.2089123292064039D+00 - xs( 35) = 0.2194815332680640D+00 - xs( 36) = 0.2302117382983029D+00 - xs( 37) = 0.2411187137778900D+00 - xs( 38) = 0.2522331019998637D+00 - xs( 39) = 0.2635400619325897D+00 - ws( 1) = 0.1407419362101545D-03 - ws( 2) = 0.3360384500177817D-03 - ws( 3) = 0.5525190926287083D-03 - ws( 4) = 0.8037718655267081D-03 - ws( 5) = 0.1105468570414634D-02 - ws( 6) = 0.1474125453428350D-02 - ws( 7) = 0.1923671833362798D-02 - ws( 8) = 0.2458978522825924D-02 - ws( 9) = 0.3068266143551488D-02 - ws( 10) = 0.3720664421349650D-02 - ws( 11) = 0.4375120099922094D-02 - ws( 12) = 0.4996262568910249D-02 - ws( 13) = 0.5564129367191846D-02 - ws( 14) = 0.6072957353146450D-02 - ws( 15) = 0.6525232713143468D-02 - ws( 16) = 0.6926793842134942D-02 - ws( 17) = 0.7284224017910329D-02 - ws( 18) = 0.7603770548122986D-02 - ws( 19) = 0.7890997297663536D-02 - ws( 20) = 0.8150734944672028D-02 - ws( 21) = 0.8387136433626360D-02 - ws( 22) = 0.8603762383039093D-02 - ws( 23) = 0.8803669916067017D-02 - ws( 24) = 0.8989496453711061D-02 - ws( 25) = 0.9163536110248026D-02 - ws( 26) = 0.9327808923944832D-02 - ws( 27) = 0.9484124312545602D-02 - ws( 28) = 0.9634140817759382D-02 - ws( 29) = 0.9779423039160790D-02 - ws( 30) = 0.9921511157237019D-02 - ws( 31) = 0.1006198687632700D-01 - ws( 32) = 0.1020258587419344D-01 - ws( 33) = 0.1034540246968105D-01 - ws( 34) = 0.1049307409787806D-01 - ws( 35) = 0.1064991969437970D-01 - ws( 36) = 0.1082569370307941D-01 - ws( 37) = 0.1103538466896228D-01 - ws( 38) = 0.1140423241586180D-01 - ws( 39) = 0.1259477152421673D-01 - endif - - - if( iquad .eq. 81 ) then - idomain = 81 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.9999999999800001D-01 - n = 39 - err = 0.4526280711757024D-10 - ierq = 0 - xs( 1) = 0.6048760882429360D-04 - xs( 2) = 0.3226876720912420D-03 - xs( 3) = 0.8110026275454940D-03 - xs( 4) = 0.1555293883547383D-02 - xs( 5) = 0.2601003928025795D-02 - xs( 6) = 0.4010358094499883D-02 - xs( 7) = 0.5860663779686282D-02 - xs( 8) = 0.8236582907876240D-02 - xs( 9) = 0.1121440821696984D-01 - xs( 10) = 0.1484224618534305D-01 - xs( 11) = 0.1912737829555549D-01 - xs( 12) = 0.2403979026029720D-01 - xs( 13) = 0.2952744352382636D-01 - xs( 14) = 0.3553147122181353D-01 - xs( 15) = 0.4199508805130382D-01 - xs( 16) = 0.4886708361677107D-01 - xs( 17) = 0.5610259022314796D-01 - xs( 18) = 0.6366283502406203D-01 - xs( 19) = 0.7151457667087978D-01 - xs( 20) = 0.7962946467581196D-01 - xs( 21) = 0.8798340824897791D-01 - xs( 22) = 0.9655599422088955D-01 - xs( 23) = 0.1053299733089397D+00 - xs( 24) = 0.1142908217037926D+00 - xs( 25) = 0.1234263774859603D+00 - xs( 26) = 0.1327265476891674D+00 - xs( 27) = 0.1421830809455188D+00 - xs( 28) = 0.1517894019553904D+00 - xs( 29) = 0.1615405068668645D+00 - xs( 30) = 0.1714329194392972D+00 - xs( 31) = 0.1814647293536235D+00 - xs( 32) = 0.1916357152839722D+00 - xs( 33) = 0.2019475889241251D+00 - xs( 34) = 0.2124045029855083D+00 - xs( 35) = 0.2230138976487178D+00 - xs( 36) = 0.2337877359015321D+00 - xs( 37) = 0.2447483445385490D+00 - xs( 38) = 0.2559275864221942D+00 - xs( 39) = 0.2675116945312038D+00 - ws( 1) = 0.1556817473027061D-03 - ws( 2) = 0.3714752959623290D-03 - ws( 3) = 0.6100923306832091D-03 - ws( 4) = 0.8860395085865594D-03 - ws( 5) = 0.1215771524979574D-02 - ws( 6) = 0.1615943251520528D-02 - ws( 7) = 0.2099048173916579D-02 - ws( 8) = 0.2665867128982362D-02 - ws( 9) = 0.3298040197409436D-02 - ws( 10) = 0.3958776200074666D-02 - ws( 11) = 0.4606195738336874D-02 - ws( 12) = 0.5209687468085868D-02 - ws( 13) = 0.5755664371784363D-02 - ws( 14) = 0.6242875947368706D-02 - ws( 15) = 0.6675813737314089D-02 - ws( 16) = 0.7060704987132431D-02 - ws( 17) = 0.7403855929909068D-02 - ws( 18) = 0.7711104299812195D-02 - ws( 19) = 0.7987664519224408D-02 - ws( 20) = 0.8238106104012701D-02 - ws( 21) = 0.8466387426051474D-02 - ws( 22) = 0.8675916944695961D-02 - ws( 23) = 0.8869626650434136D-02 - ws( 24) = 0.9050048046670346D-02 - ws( 25) = 0.9219385196195471D-02 - ws( 26) = 0.9379582907190832D-02 - ws( 27) = 0.9532390034268730D-02 - ws( 28) = 0.9679420082417033D-02 - ws( 29) = 0.9822212567755076D-02 - ws( 30) = 0.9962304265507373D-02 - ws( 31) = 0.1010130309087908D-01 - ws( 32) = 0.1024103812662631D-01 - ws( 33) = 0.1038371292486478D-01 - ws( 34) = 0.1053225749455669D-01 - ws( 35) = 0.1069148541375067D-01 - ws( 36) = 0.1087038775486693D-01 - ws( 37) = 0.1109493790642145D-01 - ws( 38) = 0.1147086382254515D-01 - ws( 39) = 0.1328370335242150D-01 - endif - - - if( iquad .eq. 82 ) then - idomain = 82 - rk0r = 0.1570796326795897D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999980000D+00 - n = 38 - err = 0.3157677796914554D-10 - ierq = 0 - xs( 1) = 0.6829383713895481D-04 - xs( 2) = 0.3641044679682901D-03 - xs( 3) = 0.9139957485338258D-03 - xs( 4) = 0.1749491565929775D-02 - xs( 5) = 0.2917816122545412D-02 - xs( 6) = 0.4482320410175019D-02 - xs( 7) = 0.6519593129460824D-02 - xs( 8) = 0.9110305616152599D-02 - xs( 9) = 0.1232273255922767D-01 - xs( 10) = 0.1619438486518737D-01 - xs( 11) = 0.2072292733591890D-01 - xs( 12) = 0.2587226793743916D-01 - xs( 13) = 0.3158739076143025D-01 - xs( 14) = 0.3780785477590871D-01 - xs( 15) = 0.4447575941551055D-01 - xs( 16) = 0.5153915457100057D-01 - xs( 17) = 0.5895294882354480D-01 - xs( 18) = 0.6667868484600213D-01 - xs( 19) = 0.7468386853582765D-01 - xs( 20) = 0.8294117321673103D-01 - xs( 21) = 0.9142766782492467D-01 - xs( 22) = 0.1001241328430640D+00 - xs( 23) = 0.1090144839344045D+00 - xs( 24) = 0.1180853018640151D+00 - xs( 25) = 0.1273254585068028D+00 - xs( 26) = 0.1367258269874906D+00 - xs( 27) = 0.1462790657167957D+00 - xs( 28) = 0.1559794699425502D+00 - xs( 29) = 0.1658228868996005D+00 - xs( 30) = 0.1758066959427248D+00 - xs( 31) = 0.1859298815530326D+00 - xs( 32) = 0.1961931836471908D+00 - xs( 33) = 0.2065994101654310D+00 - xs( 34) = 0.2171541710540586D+00 - xs( 35) = 0.2278658408154489D+00 - xs( 36) = 0.2387477120775887D+00 - xs( 37) = 0.2498225390437387D+00 - xs( 38) = 0.2610109030344155D+00 - ws( 1) = 0.1757482484289151D-03 - ws( 2) = 0.4188274662457310D-03 - ws( 3) = 0.6861764183951327D-03 - ws( 4) = 0.9926742425861643D-03 - ws( 5) = 0.1354573392834659D-02 - ws( 6) = 0.1787347643545813D-02 - ws( 7) = 0.2300930038883327D-02 - ws( 8) = 0.2892212588694002D-02 - ws( 9) = 0.3539062897288608D-02 - ws( 10) = 0.4203730279767311D-02 - ws( 11) = 0.4847063359845576D-02 - ws( 12) = 0.5442214826993840D-02 - ws( 13) = 0.5977828907758228D-02 - ws( 14) = 0.6453397625560382D-02 - ws( 15) = 0.6873741309597897D-02 - ws( 16) = 0.7245538999436942D-02 - ws( 17) = 0.7575651827113292D-02 - ws( 18) = 0.7870418121778187D-02 - ws( 19) = 0.8135407812866723D-02 - ws( 20) = 0.8375391147227233D-02 - ws( 21) = 0.8594404418079104D-02 - ws( 22) = 0.8795852710139204D-02 - ws( 23) = 0.8982619167222617D-02 - ws( 24) = 0.9157166882237770D-02 - ws( 25) = 0.9321628972437461D-02 - ws( 26) = 0.9477887403157928D-02 - ws( 27) = 0.9627642049684495D-02 - ws( 28) = 0.9772478548791163D-02 - ws( 29) = 0.9913931922807106D-02 - ws( 30) = 0.1005354916724378D-01 - ws( 31) = 0.1019302896489195D-01 - ws( 32) = 0.1033438820099713D-01 - ws( 33) = 0.1047994746551158D-01 - ws( 34) = 0.1063435660838535D-01 - ws( 35) = 0.1080468612975279D-01 - ws( 36) = 0.1100799792431352D-01 - ws( 37) = 0.1137147212460854D-01 - ws( 38) = 0.1233687189104790D-01 - endif - - - if( iquad .eq. 83 ) then - idomain = 83 - rk0r = 0.1570796326795897D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5999999999980000D+00 - n = 41 - err = 0.6671396787996097D-10 - ierq = 0 - xs( 1) = 0.7409026757025435D-04 - xs( 2) = 0.3975376081737585D-03 - xs( 3) = 0.1005620874583317D-02 - xs( 4) = 0.1935762345866816D-02 - xs( 5) = 0.3233973848727035D-02 - xs( 6) = 0.4953507009095486D-02 - xs( 7) = 0.7151734531093253D-02 - xs( 8) = 0.9883299526912727D-02 - xs( 9) = 0.1319045190228860D-01 - xs( 10) = 0.1709418908110136D-01 - xs( 11) = 0.2159049931952072D-01 - xs( 12) = 0.2665328348157296D-01 - xs( 13) = 0.3224166221655751D-01 - xs( 14) = 0.3830791292285503D-01 - xs( 15) = 0.4480356048844485D-01 - xs( 16) = 0.5168303566044649D-01 - xs( 17) = 0.5890538717583631D-01 - xs( 18) = 0.6643476824904995D-01 - xs( 19) = 0.7424027036652731D-01 - xs( 20) = 0.8229546535702412D-01 - xs( 21) = 0.9057785512632727D-01 - xs( 22) = 0.9906832889686913D-01 - xs( 23) = 0.1077506725903859D+00 - xs( 24) = 0.1166111462445211D+00 - xs( 25) = 0.1256381311963372D+00 - xs( 26) = 0.1348218424647414D+00 - xs( 27) = 0.1441540995985201D+00 - xs( 28) = 0.1536281492497893D+00 - xs( 29) = 0.1632385345994487D+00 - xs( 30) = 0.1729810068636135D+00 - xs( 31) = 0.1828524798871890D+00 - xs( 32) = 0.1928510322816650D+00 - xs( 33) = 0.2029759479607750D+00 - xs( 34) = 0.2132278566053008D+00 - xs( 35) = 0.2236088608896451D+00 - xs( 36) = 0.2341233624460689D+00 - xs( 37) = 0.2447775759271389D+00 - xs( 38) = 0.2555796547244450D+00 - xs( 39) = 0.2665530156100694D+00 - xs( 40) = 0.2777322101116825D+00 - xs( 41) = 0.2889028484653485D+00 - ws( 1) = 0.1909932784309740D-03 - ws( 2) = 0.4603421350930291D-03 - ws( 3) = 0.7621095691528875D-03 - ws( 4) = 0.1105853841403680D-02 - ws( 5) = 0.1499491612435303D-02 - ws( 6) = 0.1949253104385196D-02 - ws( 7) = 0.2456479575167291D-02 - ws( 8) = 0.3013851700811456D-02 - ws( 9) = 0.3604019583301784D-02 - ws( 10) = 0.4202730676785913D-02 - ws( 11) = 0.4785407917776156D-02 - ws( 12) = 0.5333208873251704D-02 - ws( 13) = 0.5835492368547754D-02 - ws( 14) = 0.6288870398620143D-02 - ws( 15) = 0.6694803170606520D-02 - ws( 16) = 0.7057315228526404D-02 - ws( 17) = 0.7381416940922754D-02 - ws( 18) = 0.7672201867484579D-02 - ws( 19) = 0.7934407063811657D-02 - ws( 20) = 0.8172242377189758D-02 - ws( 21) = 0.8389360241470885D-02 - ws( 22) = 0.8588891998998401D-02 - ws( 23) = 0.8773511264322726D-02 - ws( 24) = 0.8945504387871724D-02 - ws( 25) = 0.9106838500591970D-02 - ws( 26) = 0.9259223521385257D-02 - ws( 27) = 0.9404167316536005D-02 - ws( 28) = 0.9543024054773185D-02 - ws( 29) = 0.9677038716086874D-02 - ws( 30) = 0.9807391266372624D-02 - ws( 31) = 0.9935239074487061D-02 - ws( 32) = 0.1006174800616741D-01 - ws( 33) = 0.1018820748251575D-01 - ws( 34) = 0.1031607057860253D-01 - ws( 35) = 0.1044694983668050D-01 - ws( 36) = 0.1058314592922440D-01 - ws( 37) = 0.1073059648937897D-01 - ws( 38) = 0.1088952863902773D-01 - ws( 39) = 0.1106598410571937D-01 - ws( 40) = 0.1153567780888640D-01 - ws( 41) = 0.1247418523602983D-01 - endif - - - if( iquad .eq. 84 ) then - idomain = 84 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5707963267928966D+00 - n = 36 - err = 0.6820704495506826D-10 - ierq = 0 - xs( 1) = 0.1418029909632199D-03 - xs( 2) = 0.7525552532344473D-03 - xs( 3) = 0.1872797742154136D-02 - xs( 4) = 0.3536793883384387D-02 - xs( 5) = 0.5786563982335654D-02 - xs( 6) = 0.8662827123925815D-02 - xs( 7) = 0.1219373285027781D-01 - xs( 8) = 0.1638555159361403D-01 - xs( 9) = 0.2121947950612741D-01 - xs( 10) = 0.2665551804600268D-01 - xs( 11) = 0.3264061540831387D-01 - xs( 12) = 0.3911709695767344D-01 - xs( 13) = 0.4602887556141429D-01 - xs( 14) = 0.5332492571598262D-01 - xs( 15) = 0.6096063692514112D-01 - xs( 16) = 0.6889789557783751D-01 - xs( 17) = 0.7710455414973699D-01 - xs( 18) = 0.8555368600555352D-01 - xs( 19) = 0.9422282882956928D-01 - xs( 20) = 0.1030933039790422D+00 - xs( 21) = 0.1121496399002921D+00 - xs( 22) = 0.1213791012940962D+00 - xs( 23) = 0.1307713162656380D+00 - xs( 24) = 0.1403179921373223D+00 - xs( 25) = 0.1500127120472620D+00 - xs( 26) = 0.1598508123687545D+00 - xs( 27) = 0.1698293450675909D+00 - xs( 28) = 0.1799471237544137D+00 - xs( 29) = 0.1902049544340284D+00 - xs( 30) = 0.2006060174099827D+00 - xs( 31) = 0.2111563134438837D+00 - xs( 32) = 0.2218675497366839D+00 - xs( 33) = 0.2327558654572906D+00 - xs( 34) = 0.2438499887568527D+00 - xs( 35) = 0.2552613289698092D+00 - xs( 36) = 0.2676345510765377D+00 - ws( 1) = 0.3645338617092482D-03 - ws( 2) = 0.8607432397387046D-03 - ws( 3) = 0.1385526101239345D-02 - ws( 4) = 0.1949625817819786D-02 - ws( 5) = 0.2556899430597391D-02 - ws( 6) = 0.3200485183295915D-02 - ws( 7) = 0.3862427152051224D-02 - ws( 8) = 0.4518003629821249D-02 - ws( 9) = 0.5143039408184202D-02 - ws( 10) = 0.5720049114011630D-02 - ws( 11) = 0.6240428897003270D-02 - ws( 12) = 0.6703130293574382D-02 - ws( 13) = 0.7111902280178190D-02 - ws( 14) = 0.7472763160354235D-02 - ws( 15) = 0.7792316750445934D-02 - ws( 16) = 0.8076855504248694D-02 - ws( 17) = 0.8331986661681662D-02 - ws( 18) = 0.8562544728881953D-02 - ws( 19) = 0.8772637422289876D-02 - ws( 20) = 0.8965742108863056D-02 - ws( 21) = 0.9144813366712178D-02 - ws( 22) = 0.9312385511033893D-02 - ws( 23) = 0.9470665643207334D-02 - ws( 24) = 0.9621618369363443D-02 - ws( 25) = 0.9767045960979905D-02 - ws( 26) = 0.9908663014604141D-02 - ws( 27) = 0.1004820310600708D-01 - ws( 28) = 0.1018750726390467D-01 - ws( 29) = 0.1032862281753885D-01 - ws( 30) = 0.1047446791604891D-01 - ws( 31) = 0.1062815915177738D-01 - ws( 32) = 0.1079445170699996D-01 - ws( 33) = 0.1098899374947494D-01 - ws( 34) = 0.1118916865955439D-01 - ws( 35) = 0.1148520205307865D-01 - ws( 36) = 0.1880906892379969D-01 - endif - - - if( iquad .eq. 85 ) then - idomain = 85 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1570796326792897D+01 - n = 32 - err = 0.8265080435586786D-10 - ierq = 0 - xs( 1) = 0.1826123751147493D-03 - xs( 2) = 0.9654260959846921D-03 - xs( 3) = 0.2385819165366941D-02 - xs( 4) = 0.4460099600290582D-02 - xs( 5) = 0.7202228487858498D-02 - xs( 6) = 0.1061707978110729D-01 - xs( 7) = 0.1469548775818712D-01 - xs( 8) = 0.1941282782495925D-01 - xs( 9) = 0.2473113723525744D-01 - xs( 10) = 0.3060346563696882D-01 - xs( 11) = 0.3697875982511430D-01 - xs( 12) = 0.4380601784393762D-01 - xs( 13) = 0.5103716281162914D-01 - xs( 14) = 0.5862865189976237D-01 - xs( 15) = 0.6654211242215287D-01 - xs( 16) = 0.7474434853048904D-01 - xs( 17) = 0.8320700214104854D-01 - xs( 18) = 0.9190606341890661D-01 - xs( 19) = 0.1008213491110824D+00 - xs( 20) = 0.1099360123666818D+00 - xs( 21) = 0.1192361140730949D+00 - xs( 22) = 0.1287102667835709D+00 - xs( 23) = 0.1383493473338640D+00 - xs( 24) = 0.1481462840824027D+00 - xs( 25) = 0.1580959239380110D+00 - xs( 26) = 0.1681948468365703D+00 - xs( 27) = 0.1784413822020858D+00 - xs( 28) = 0.1888357769518044D+00 - xs( 29) = 0.1993764807808739D+00 - xs( 30) = 0.2100682562070989D+00 - xs( 31) = 0.2208771503146434D+00 - xs( 32) = 0.2313784479485814D+00 - ws( 1) = 0.4690249116718547D-03 - ws( 2) = 0.1099009003656857D-02 - ws( 3) = 0.1744587213218736D-02 - ws( 4) = 0.2406421428863434D-02 - ws( 5) = 0.3078735396334360D-02 - ws( 6) = 0.3749463086308311D-02 - ws( 7) = 0.4403209867145997D-02 - ws( 8) = 0.5025066239874131D-02 - ws( 9) = 0.5603642998342010D-02 - ws( 10) = 0.6132434479309690D-02 - ws( 11) = 0.6609605839711264D-02 - ws( 12) = 0.7036871354332162D-02 - ws( 13) = 0.7418151701648806D-02 - ws( 14) = 0.7758431602911940D-02 - ws( 15) = 0.8062962916784121D-02 - ws( 16) = 0.8336791402975939D-02 - ws( 17) = 0.8584523093574688D-02 - ws( 18) = 0.8810243974206470D-02 - ws( 19) = 0.9017527120348416D-02 - ws( 20) = 0.9209483559518733D-02 - ws( 21) = 0.9388829895174287D-02 - ws( 22) = 0.9557965970586852D-02 - ws( 23) = 0.9719049225622882D-02 - ws( 24) = 0.9874032969729494D-02 - ws( 25) = 0.1002485088095253D-01 - ws( 26) = 0.1017344455919853D-01 - ws( 27) = 0.1032126949105382D-01 - ws( 28) = 0.1047365670785868D-01 - ws( 29) = 0.1063247660411094D-01 - ws( 30) = 0.1080815948520901D-01 - ws( 31) = 0.1120223723401231D-01 - ws( 32) = 0.1064565156261467D-01 - endif - - - if( iquad .eq. 86 ) then - idomain = 86 - rk0r = 0.1570796326795897D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 29 - err = 0.3910682288197058D-10 - ierq = 0 - xs( 1) = 0.2230982884257766D-03 - xs( 2) = 0.1172774540310811D-02 - xs( 3) = 0.2870253570699141D-02 - xs( 4) = 0.5297113798541608D-02 - xs( 5) = 0.8426769837704871D-02 - xs( 6) = 0.1222567265130163D-01 - xs( 7) = 0.1665473543062149D-01 - xs( 8) = 0.2167110481957491D-01 - xs( 9) = 0.2723005939193948D-01 - xs( 10) = 0.3328678998868696D-01 - xs( 11) = 0.3979788024525275D-01 - xs( 12) = 0.4672240058141194D-01 - xs( 13) = 0.5402261340714664D-01 - xs( 14) = 0.6166434211479386D-01 - xs( 15) = 0.6961708057037988D-01 - xs( 16) = 0.7785392158856032D-01 - xs( 17) = 0.8635137294380255D-01 - xs( 18) = 0.9508911472989628D-01 - xs( 19) = 0.1040497308734704D+00 - xs( 20) = 0.1132184396170000D+00 - xs( 21) = 0.1225828637159443D+00 - xs( 22) = 0.1321327369589741D+00 - xs( 23) = 0.1418595462617915D+00 - xs( 24) = 0.1517567107169394D+00 - xs( 25) = 0.1618172433745542D+00 - xs( 26) = 0.1720309208774902D+00 - xs( 27) = 0.1823958429413122D+00 - xs( 28) = 0.1927678065083767D+00 - xs( 29) = 0.2026727294574242D+00 - ws( 1) = 0.5722321013527901D-03 - ws( 2) = 0.1325888748982208D-02 - ws( 3) = 0.2065962936278894D-02 - ws( 4) = 0.2783309764090611D-02 - ws( 5) = 0.3470386895454284D-02 - ws( 6) = 0.4120874158252930D-02 - ws( 7) = 0.4730076910656644D-02 - ws( 8) = 0.5295178174536690D-02 - ws( 9) = 0.5815237894189080D-02 - ws( 10) = 0.6290968996571645D-02 - ws( 11) = 0.6724378257591538D-02 - ws( 12) = 0.7118366786679640D-02 - ws( 13) = 0.7476361087630998D-02 - ws( 14) = 0.7802013309021898D-02 - ws( 15) = 0.8098982429302137D-02 - ws( 16) = 0.8370789971678174D-02 - ws( 17) = 0.8620734922888269D-02 - ws( 18) = 0.8851858524753337D-02 - ws( 19) = 0.9066944953136213D-02 - ws( 20) = 0.9268493180092133D-02 - ws( 21) = 0.9458777847623277D-02 - ws( 22) = 0.9640109254410754D-02 - ws( 23) = 0.9814015269402147D-02 - ws( 24) = 0.9982700641153690D-02 - ws( 25) = 0.1015370771777169D-01 - ws( 26) = 0.1031336610989994D-01 - ws( 27) = 0.1052787090819056D-01 - ws( 28) = 0.1087539150374407D-01 - ws( 29) = 0.8810891877158443D-02 - endif - - - if( iquad .eq. 87 ) then - idomain = 87 - rk0r = 0.1570796326795897D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 28 - err = 0.1435546291575472D-10 - ierq = 0 - xs( 1) = 0.2022383496332261D-03 - xs( 2) = 0.1062946177985702D-02 - xs( 3) = 0.2600858954892905D-02 - xs( 4) = 0.4798932531833148D-02 - xs( 5) = 0.7633564768574896D-02 - xs( 6) = 0.1107620232627569D-01 - xs( 7) = 0.1509479107812969D-01 - xs( 8) = 0.1965515807846167D-01 - xs( 9) = 0.2472224624108897D-01 - xs( 10) = 0.3026114937385099D-01 - xs( 11) = 0.3623792815215988D-01 - xs( 12) = 0.4262021311932796D-01 - xs( 13) = 0.4937761680930967D-01 - xs( 14) = 0.5648198474984321D-01 - xs( 15) = 0.6390751757680942D-01 - xs( 16) = 0.7163079562538281D-01 - xs( 17) = 0.7963072863355371D-01 - xs( 18) = 0.8788844463695279D-01 - xs( 19) = 0.9638715483950898D-01 - xs( 20) = 0.1051119711055315D+00 - xs( 21) = 0.1140495183239192D+00 - xs( 22) = 0.1231877592498361D+00 - xs( 23) = 0.1325153784824980D+00 - xs( 24) = 0.1420174615284370D+00 - xs( 25) = 0.1516779473097403D+00 - xs( 26) = 0.1614609512296863D+00 - xs( 27) = 0.1711412949498666D+00 - xs( 28) = 0.1803676346640511D+00 - ws( 1) = 0.5187064408051277D-03 - ws( 2) = 0.1201498831436319D-02 - ws( 3) = 0.1871441124962998D-02 - ws( 4) = 0.2520747924338276D-02 - ws( 5) = 0.3143733332820582D-02 - ws( 6) = 0.3736176176911393D-02 - ws( 7) = 0.4295285116367545D-02 - ws( 8) = 0.4819588731123648D-02 - ws( 9) = 0.5308756232452972D-02 - ws( 10) = 0.5763383226706098D-02 - ws( 11) = 0.6184772210229706D-02 - ws( 12) = 0.6574728439485830D-02 - ws( 13) = 0.6935383635912187D-02 - ws( 14) = 0.7269051968334128D-02 - ws( 15) = 0.7578114805733989D-02 - ws( 16) = 0.7864936352564795D-02 - ws( 17) = 0.8131814164390492D-02 - ws( 18) = 0.8380915969145497D-02 - ws( 19) = 0.8614209605641333D-02 - ws( 20) = 0.8833657586501733D-02 - ws( 21) = 0.9041009203495801D-02 - ws( 22) = 0.9237101467280321D-02 - ws( 23) = 0.9426061503949364D-02 - ws( 24) = 0.9609209380483284D-02 - ws( 25) = 0.9773817824609482D-02 - ws( 26) = 0.1001212677356624D-01 - ws( 27) = 0.9929108036140982D-02 - ws( 28) = 0.6835983569528893D-02 - endif - - - if( iquad .eq. 88 ) then - idomain = 88 - rk0r = 0.1570796326795897D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 26 - err = 0.1225553042238566D-10 - ierq = 0 - xs( 1) = 0.1787215003288204D-03 - xs( 2) = 0.9397758453560656D-03 - xs( 3) = 0.2301362577821694D-02 - xs( 4) = 0.4251244982302685D-02 - xs( 5) = 0.6772348388638967D-02 - xs( 6) = 0.9843892246383441D-02 - xs( 7) = 0.1344235612879504D-01 - xs( 8) = 0.1754239285976686D-01 - xs( 9) = 0.2211765099504502D-01 - xs( 10) = 0.2714148165500637D-01 - xs( 11) = 0.3258751778089602D-01 - xs( 12) = 0.3843012461478680D-01 - xs( 13) = 0.4464473226922391D-01 - xs( 14) = 0.5120806000589640D-01 - xs( 15) = 0.5809823645968760D-01 - xs( 16) = 0.6529484847936086D-01 - xs( 17) = 0.7277894215417133D-01 - xs( 18) = 0.8053282315374077D-01 - xs( 19) = 0.8853974508504342D-01 - xs( 20) = 0.9678386761639790D-01 - xs( 21) = 0.1052480063784460D+00 - xs( 22) = 0.1139099923181000D+00 - xs( 23) = 0.1227447760136168D+00 - xs( 24) = 0.1316729914966577D+00 - xs( 25) = 0.1404655118216134D+00 - xs( 26) = 0.1489078554041884D+00 - ws( 1) = 0.4584392676065938D-03 - ws( 2) = 0.1062876136513949D-02 - ws( 3) = 0.1658222070752321D-02 - ws( 4) = 0.2238680153432779D-02 - ws( 5) = 0.2800047141312070D-02 - ws( 6) = 0.3339105430871582D-02 - ws( 7) = 0.3853583641006821D-02 - ws( 8) = 0.4342084769620508D-02 - ws( 9) = 0.4803978345903975D-02 - ws( 10) = 0.5239276834539100D-02 - ws( 11) = 0.5648510011458145D-02 - ws( 12) = 0.6032597316856731D-02 - ws( 13) = 0.6392727398023990D-02 - ws( 14) = 0.6730275442036977D-02 - ws( 15) = 0.7046721862500915D-02 - ws( 16) = 0.7343514631841679D-02 - ws( 17) = 0.7622156286990517D-02 - ws( 18) = 0.7884404463122920D-02 - ws( 19) = 0.8131480730865255D-02 - ws( 20) = 0.8365529246484140D-02 - ws( 21) = 0.8592479556991538D-02 - ws( 22) = 0.8806011715875561D-02 - ws( 23) = 0.9006789694602167D-02 - ws( 24) = 0.9202572682494635D-02 - ws( 25) = 0.8577991168144856D-02 - ws( 26) = 0.5113620338374925D-02 - endif - - - if( iquad .eq. 89 ) then - idomain = 89 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 44 - err = 0.4370139187936890D-10 - ierq = 0 - xs( 1) = 0.2231961656251305D-04 - xs( 2) = 0.1184217953899251D-03 - xs( 3) = 0.2947363401672831D-03 - xs( 4) = 0.5574468881365046D-03 - xs( 5) = 0.9160927096064969D-03 - xs( 6) = 0.1384376595481977D-02 - xs( 7) = 0.1981282603400442D-02 - xs( 8) = 0.2732603456235353D-02 - xs( 9) = 0.3672943739044093D-02 - xs( 10) = 0.4848185115903037D-02 - xs( 11) = 0.6318169089453517D-02 - xs( 12) = 0.8158829523042021D-02 - xs( 13) = 0.1046203657905792D-01 - xs( 14) = 0.1333007662987433D-01 - xs( 15) = 0.1686106615497281D-01 - xs( 16) = 0.2112484581957427D-01 - xs( 17) = 0.2613888950472961D-01 - xs( 18) = 0.3186208848918083D-01 - xs( 19) = 0.3821309726398583D-01 - xs( 20) = 0.4509819673631180D-01 - xs( 21) = 0.5243107669927140D-01 - xs( 22) = 0.6014048729154101D-01 - xs( 23) = 0.6817035811148123D-01 - xs( 24) = 0.7647716937916897D-01 - xs( 25) = 0.8502703732825900D-01 - xs( 26) = 0.9379332709690037D-01 - xs( 27) = 0.1027548900606739D+00 - xs( 28) = 0.1118948080760583D+00 - xs( 29) = 0.1211995042180664D+00 - xs( 30) = 0.1306581096020036D+00 - xs( 31) = 0.1402620103210949D+00 - xs( 32) = 0.1500045259808850D+00 - xs( 33) = 0.1598806912539146D+00 - xs( 34) = 0.1698871236953296D+00 - xs( 35) = 0.1800219786132288D+00 - xs( 36) = 0.1902849832996026D+00 - xs( 37) = 0.2006776404930068D+00 - xs( 38) = 0.2112035219304645D+00 - xs( 39) = 0.2218689140478284D+00 - xs( 40) = 0.2326835940013910D+00 - xs( 41) = 0.2436636415631549D+00 - xs( 42) = 0.2548390011595444D+00 - xs( 43) = 0.2662707067614463D+00 - xs( 44) = 0.2784047611324870D+00 - ws( 1) = 0.5737238976552285D-04 - ws( 2) = 0.1354231199440830D-03 - ws( 3) = 0.2182253917610481D-03 - ws( 4) = 0.3087725675728611D-03 - ws( 5) = 0.4107844501075305D-03 - ws( 6) = 0.5289220536720817D-03 - ws( 7) = 0.6691553854566336D-03 - ws( 8) = 0.8392121948381916D-03 - ws( 9) = 0.1049068961678954D-02 - ws( 10) = 0.1311347899752815D-02 - ws( 11) = 0.1641270860531745D-02 - ws( 12) = 0.2055443513766204D-02 - ws( 13) = 0.2568256866417221D-02 - ws( 14) = 0.3184599381640922D-02 - ws( 15) = 0.3889474206410910D-02 - ws( 16) = 0.4641124358330132D-02 - ws( 17) = 0.5379757737923745D-02 - ws( 18) = 0.6052568656855312D-02 - ws( 19) = 0.6633493966005497D-02 - ws( 20) = 0.7122207215977709D-02 - ws( 21) = 0.7531687722141507D-02 - ws( 22) = 0.7877837600876151D-02 - ws( 23) = 0.8174700863193924D-02 - ws( 24) = 0.8433314211825764D-02 - ws( 25) = 0.8662011577927179D-02 - ws( 26) = 0.8867063768707256D-02 - ws( 27) = 0.9053257027137262D-02 - ws( 28) = 0.9224326562936728D-02 - ws( 29) = 0.9383261685539167D-02 - ws( 30) = 0.9532518714777855D-02 - ws( 31) = 0.9674172926733662D-02 - ws( 32) = 0.9810033044222389D-02 - ws( 33) = 0.9941734863217805D-02 - ws( 34) = 0.1007082204870242D-01 - ws( 35) = 0.1019884517842652D-01 - ws( 36) = 0.1032741918151464D-01 - ws( 37) = 0.1045847615028488D-01 - ws( 38) = 0.1059438178566877D-01 - ws( 39) = 0.1073801430207011D-01 - ws( 40) = 0.1089533156109202D-01 - ws( 41) = 0.1107219785059301D-01 - ws( 42) = 0.1129299647268263D-01 - ws( 43) = 0.1164745404287542D-01 - ws( 44) = 0.1540241728102498D-01 - endif - - - if( iquad .eq. 90 ) then - idomain = 90 - rk0r = 0.3141592653590793D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 40 - err = 0.5938564673320161D-10 - ierq = 0 - xs( 1) = 0.2380617644898979D-04 - xs( 2) = 0.1263446519845611D-03 - xs( 3) = 0.3146215260393206D-03 - xs( 4) = 0.5955396240772017D-03 - xs( 5) = 0.9798133798551351D-03 - xs( 6) = 0.1482947711563280D-02 - xs( 7) = 0.2126607730206149D-02 - xs( 8) = 0.2940509636525043D-02 - xs( 9) = 0.3964929073053462D-02 - xs( 10) = 0.5253819902674202D-02 - xs( 11) = 0.6878215411431765D-02 - xs( 12) = 0.8928806938564968D-02 - xs( 13) = 0.1151504568865502D-01 - xs( 14) = 0.1475587664759441D-01 - xs( 15) = 0.1875662406718961D-01 - xs( 16) = 0.2357437380545850D-01 - xs( 17) = 0.2919248917461032D-01 - xs( 18) = 0.3552883905901500D-01 - xs( 19) = 0.4247147486132508D-01 - xs( 20) = 0.4991199852614389D-01 - xs( 21) = 0.5776106892480348D-01 - xs( 22) = 0.6595019290466397D-01 - xs( 23) = 0.7442806139778602D-01 - xs( 24) = 0.8315615587725124D-01 - xs( 25) = 0.9210519949339591D-01 - xs( 26) = 0.1012526329065225D+00 - xs( 27) = 0.1105808984199015D+00 - xs( 28) = 0.1200762855990682D+00 - xs( 29) = 0.1297281530415252D+00 - xs( 30) = 0.1395284041829293D+00 - xs( 31) = 0.1494711399844092D+00 - xs( 32) = 0.1595524483852468D+00 - xs( 33) = 0.1697703130989608D+00 - xs( 34) = 0.1801246533428879D+00 - xs( 35) = 0.1906174642925704D+00 - xs( 36) = 0.2012533209610540D+00 - xs( 37) = 0.2120387127551982D+00 - xs( 38) = 0.2229853972114879D+00 - xs( 39) = 0.2341009345751595D+00 - xs( 40) = 0.2451833878849476D+00 - ws( 1) = 0.6119754674457610D-04 - ws( 2) = 0.1445339947495655D-03 - ws( 3) = 0.2331570933001027D-03 - ws( 4) = 0.3304490460502385D-03 - ws( 5) = 0.4406600677519975D-03 - ws( 6) = 0.5691881912107282D-03 - ws( 7) = 0.7230428019856511D-03 - ws( 8) = 0.9114210282762990D-03 - ws( 9) = 0.1146351154666310D-02 - ws( 10) = 0.1443220488728683D-02 - ws( 11) = 0.1820688845787336D-02 - ws( 12) = 0.2298874281144737D-02 - ws( 13) = 0.2893811403689817D-02 - ws( 14) = 0.3606034771226326D-02 - ws( 15) = 0.4405480065056826D-02 - ws( 16) = 0.5227090013647350D-02 - ws( 17) = 0.5994763771476620D-02 - ws( 18) = 0.6658685776185498D-02 - ws( 19) = 0.7208279624421151D-02 - ws( 20) = 0.7657869751430153D-02 - ws( 21) = 0.8028927132778021D-02 - ws( 22) = 0.8340845505388798D-02 - ws( 23) = 0.8608530939235944D-02 - ws( 24) = 0.8842819987520754D-02 - ws( 25) = 0.9051535367606016D-02 - ws( 26) = 0.9240424016370014D-02 - ws( 27) = 0.9413834774007526D-02 - ws( 28) = 0.9575175276808052D-02 - ws( 29) = 0.9727217216380001D-02 - ws( 30) = 0.9872308625048584D-02 - ws( 31) = 0.1001252852122225D-01 - ws( 32) = 0.1014978699009936D-01 - ws( 33) = 0.1028601614868293D-01 - ws( 34) = 0.1042342813372761D-01 - ws( 35) = 0.1056397541614735D-01 - ws( 36) = 0.1071251873429968D-01 - ws( 37) = 0.1087626464802391D-01 - ws( 38) = 0.1106507209686304D-01 - ws( 39) = 0.1142876965496139D-01 - ws( 40) = 0.1189488631608095D-01 - endif - - - if( iquad .eq. 91 ) then - idomain = 91 - rk0r = 0.3141592653590793D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 45 - err = 0.8179138312181469D-10 - ierq = 0 - xs( 1) = 0.2398549247750371D-04 - xs( 2) = 0.1272220270778883D-03 - xs( 3) = 0.3164639648490032D-03 - xs( 4) = 0.5980512797709734D-03 - xs( 5) = 0.9817339424541796D-03 - xs( 6) = 0.1481464558702303D-02 - xs( 7) = 0.2116482322933350D-02 - xs( 8) = 0.2912773658248409D-02 - xs( 9) = 0.3904944724350264D-02 - xs( 10) = 0.5138436462536883D-02 - xs( 11) = 0.6671748712371494D-02 - xs( 12) = 0.8577795224933999D-02 - xs( 13) = 0.1094262030180739D-01 - xs( 14) = 0.1385878044781760D-01 - xs( 15) = 0.1741103694071647D-01 - xs( 16) = 0.2165596580058042D-01 - xs( 17) = 0.2660465316436609D-01 - xs( 18) = 0.3222062756582768D-01 - xs( 19) = 0.3843499248003651D-01 - xs( 20) = 0.4516748549408232D-01 - xs( 21) = 0.5234193752643584D-01 - xs( 22) = 0.5989320335326317D-01 - xs( 23) = 0.6776827095103759D-01 - xs( 24) = 0.7592480860497289D-01 - xs( 25) = 0.8432909184628280D-01 - xs( 26) = 0.9295411269232821D-01 - xs( 27) = 0.1017780816913569D+00 - xs( 28) = 0.1107833042460016D+00 - xs( 29) = 0.1199553523524077D+00 - xs( 30) = 0.1292824544203781D+00 - xs( 31) = 0.1387550436213924D+00 - xs( 32) = 0.1483654231468566D+00 - xs( 33) = 0.1581075207954829D+00 - xs( 34) = 0.1679767156290154D+00 - xs( 35) = 0.1779697269260571D+00 - xs( 36) = 0.1880845625813600D+00 - xs( 37) = 0.1983205269251624D+00 - xs( 38) = 0.2086782865897579D+00 - xs( 39) = 0.2191601279847752D+00 - xs( 40) = 0.2297699501684302D+00 - xs( 41) = 0.2405141401635154D+00 - xs( 42) = 0.2514024771868855D+00 - xs( 43) = 0.2624492382945606D+00 - xs( 44) = 0.2736756167324972D+00 - xs( 45) = 0.2849324715993468D+00 - ws( 1) = 0.6165017918370452D-04 - ws( 2) = 0.1454326378202046D-03 - ws( 3) = 0.2340966398964963D-03 - ws( 4) = 0.3306902292644839D-03 - ws( 5) = 0.4389826350498798D-03 - ws( 6) = 0.5636608949744322D-03 - ws( 7) = 0.7106743906175363D-03 - ws( 8) = 0.8876383740959495D-03 - ws( 9) = 0.1104238247532287D-02 - ws( 10) = 0.1372468492370638D-02 - ws( 11) = 0.1706322884631622D-02 - ws( 12) = 0.2120214052618591D-02 - ws( 13) = 0.2625102267286985D-02 - ws( 14) = 0.3221707884417881D-02 - ws( 15) = 0.3892559107294427D-02 - ws( 16) = 0.4599187529977034D-02 - ws( 17) = 0.5291821837225875D-02 - ws( 18) = 0.5928261839205714D-02 - ws( 19) = 0.6486828653647361D-02 - ws( 20) = 0.6965355787271543D-02 - ws( 21) = 0.7372680559149311D-02 - ws( 22) = 0.7721044399357686D-02 - ws( 23) = 0.8022071727901104D-02 - ws( 24) = 0.8285414710027226D-02 - ws( 25) = 0.8518675304523304D-02 - ws( 26) = 0.8727753332742057D-02 - ws( 27) = 0.8917249183375902D-02 - ws( 28) = 0.9090801290839364D-02 - ws( 29) = 0.9251340425875327D-02 - ws( 30) = 0.9401274766363918D-02 - ws( 31) = 0.9542624953326109D-02 - ws( 32) = 0.9677125022696666D-02 - ws( 33) = 0.9806302213570326D-02 - ws( 34) = 0.9931542749736845D-02 - ws( 35) = 0.1005415214140707D-01 - ws( 36) = 0.1017541051058179D-01 - ws( 37) = 0.1029664120833469D-01 - ws( 38) = 0.1041930893857595D-01 - ws( 39) = 0.1054526687066348D-01 - ws( 40) = 0.1067663573235664D-01 - ws( 41) = 0.1081714978723662D-01 - ws( 42) = 0.1097463829919437D-01 - ws( 43) = 0.1116823235495538D-01 - ws( 44) = 0.1153022010507029D-01 - ws( 45) = 0.1228609727358832D-01 - endif - - - if( iquad .eq. 92 ) then - idomain = 92 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 47 - err = 0.1638422042094573D-10 - ierq = 0 - xs( 1) = 0.2556130172750765D-04 - xs( 2) = 0.1355287452944292D-03 - xs( 3) = 0.3368891957649360D-03 - xs( 4) = 0.6359720234822077D-03 - xs( 5) = 0.1042436559926082D-02 - xs( 6) = 0.1569967336163080D-02 - xs( 7) = 0.2237191182794747D-02 - xs( 8) = 0.3068868080989383D-02 - xs( 9) = 0.4097347647810627D-02 - xs( 10) = 0.5364187261198135D-02 - xs( 11) = 0.6921623058968156D-02 - xs( 12) = 0.8833210563821345D-02 - xs( 13) = 0.1117239762753395D-01 - xs( 14) = 0.1401727536065273D-01 - xs( 15) = 0.1744004067633092D-01 - xs( 16) = 0.2149214017477775D-01 - xs( 17) = 0.2619076869843132D-01 - xs( 18) = 0.3151495716228445D-01 - xs( 19) = 0.3741423330638219D-01 - xs( 20) = 0.4382383680695671D-01 - xs( 21) = 0.5067800533895547D-01 - xs( 22) = 0.5791748484957705D-01 - xs( 23) = 0.6549206429283606D-01 - xs( 24) = 0.7336035881905889D-01 - xs( 25) = 0.8148855144673429D-01 - xs( 26) = 0.8984897771985711D-01 - xs( 27) = 0.9841889056135072D-01 - xs( 28) = 0.1071794793911166D+00 - xs( 29) = 0.1161151191680694D+00 - xs( 30) = 0.1252128010292335D+00 - xs( 31) = 0.1344616995207521D+00 - xs( 32) = 0.1438528417890933D+00 - xs( 33) = 0.1533788542040779D+00 - xs( 34) = 0.1630337698805889D+00 - xs( 35) = 0.1728128862699318D+00 - xs( 36) = 0.1827126673307190D+00 - xs( 37) = 0.1927306846314368D+00 - xs( 38) = 0.2028656118352413D+00 - xs( 39) = 0.2131172212044615D+00 - xs( 40) = 0.2234865439316406D+00 - xs( 41) = 0.2339759168532510D+00 - xs( 42) = 0.2445895615362274D+00 - xs( 43) = 0.2553323691316957D+00 - xs( 44) = 0.2662136734476916D+00 - xs( 45) = 0.2772501974993663D+00 - xs( 46) = 0.2884260772647848D+00 - xs( 47) = 0.2995238042899734D+00 - ws( 1) = 0.6569471646207044D-04 - ws( 2) = 0.1548554502206526D-03 - ws( 3) = 0.2489097804116232D-03 - ws( 4) = 0.3508545960700970D-03 - ws( 5) = 0.4643400343897522D-03 - ws( 6) = 0.5938061428863804D-03 - ws( 7) = 0.7447437338694400D-03 - ws( 8) = 0.9239740308646243D-03 - ws( 9) = 0.1139885273709666D-02 - ws( 10) = 0.1402486378091768D-02 - ws( 11) = 0.1722997157645594D-02 - ws( 12) = 0.2112502267009343D-02 - ws( 13) = 0.2579063671022563D-02 - ws( 14) = 0.3122986227094047D-02 - ws( 15) = 0.3731367564708536D-02 - ws( 16) = 0.4375771858926810D-02 - ws( 17) = 0.5017827856237659D-02 - ws( 18) = 0.5621859736497340D-02 - ws( 19) = 0.6165669133792367D-02 - ws( 20) = 0.6642455854669397D-02 - ws( 21) = 0.7055969307440267D-02 - ws( 22) = 0.7414628919647125D-02 - ws( 23) = 0.7727655422488313D-02 - ws( 24) = 0.8003321741248676D-02 - ws( 25) = 0.8248473471796684D-02 - ws( 26) = 0.8468604158719582D-02 - ws( 27) = 0.8668098819144441D-02 - ws( 28) = 0.8850484046815958D-02 - ws( 29) = 0.9018634493130914D-02 - ws( 30) = 0.9174930447155030D-02 - ws( 31) = 0.9321375287219600D-02 - ws( 32) = 0.9459683539595844D-02 - ws( 33) = 0.9591349063387537D-02 - ws( 34) = 0.9717700166247966D-02 - ws( 35) = 0.9839943893453631D-02 - ws( 36) = 0.9959215807667019D-02 - ws( 37) = 0.1007659258379485D-01 - ws( 38) = 0.1019320488315099D-01 - ws( 39) = 0.1031024036540882D-01 - ws( 40) = 0.1042903382006862D-01 - ws( 41) = 0.1055065490798289D-01 - ws( 42) = 0.1067883682285319D-01 - ws( 43) = 0.1082104427645934D-01 - ws( 44) = 0.1096321949401902D-01 - ws( 45) = 0.1114135324761649D-01 - ws( 46) = 0.1149270221279534D-01 - ws( 47) = 0.1172801259355743D-01 - endif - - - if( iquad .eq. 93 ) then - idomain = 93 - rk0r = 0.3141592653590793D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 46 - err = 0.4999782124892811D-10 - ierq = 0 - xs( 1) = 0.3024346372606320D-04 - xs( 2) = 0.1603344125881463D-03 - xs( 3) = 0.3984579655265573D-03 - xs( 4) = 0.7519348057810262D-03 - xs( 5) = 0.1231902312984901D-02 - xs( 6) = 0.1854080739783844D-02 - xs( 7) = 0.2639774705521947D-02 - xs( 8) = 0.3617154886748176D-02 - xs( 9) = 0.4822776924940374D-02 - xs( 10) = 0.6303148713615239D-02 - xs( 11) = 0.8115858266665560D-02 - xs( 12) = 0.1032926321609771D-01 - xs( 13) = 0.1301911608970679D-01 - xs( 14) = 0.1626032549396330D-01 - xs( 15) = 0.2011357743429023D-01 - xs( 16) = 0.2461057938631568D-01 - xs( 17) = 0.2974561043733089D-01 - xs( 18) = 0.3547903956880949D-01 - xs( 19) = 0.4175033610418765D-01 - xs( 20) = 0.4849259667621973D-01 - xs( 21) = 0.5564265631275490D-01 - xs( 22) = 0.6314574948269651D-01 - xs( 23) = 0.7095642469598193D-01 - xs( 24) = 0.7903765913751302D-01 - xs( 25) = 0.8735942101309321D-01 - xs( 26) = 0.9589726753148652D-01 - xs( 27) = 0.1046311792185974D+00 - xs( 28) = 0.1135446549255270D+00 - xs( 29) = 0.1226240296387757D+00 - xs( 30) = 0.1318579653196678D+00 - xs( 31) = 0.1412370712165921D+00 - xs( 32) = 0.1507536205374581D+00 - xs( 33) = 0.1604013402676726D+00 - xs( 34) = 0.1701752585378214D+00 - xs( 35) = 0.1800715990329327D+00 - xs( 36) = 0.1900877193268992D+00 - xs( 37) = 0.2002220959602031D+00 - xs( 38) = 0.2104743273082229D+00 - xs( 39) = 0.2208452439576178D+00 - xs( 40) = 0.2313369740205154D+00 - xs( 41) = 0.2419533689691736D+00 - xs( 42) = 0.2526999625437407D+00 - xs( 43) = 0.2635812925859524D+00 - xs( 44) = 0.2746068610711885D+00 - xs( 45) = 0.2858033134232829D+00 - xs( 46) = 0.2968422274397756D+00 - ws( 1) = 0.7772607699932617D-04 - ws( 2) = 0.1831705293982860D-03 - ws( 3) = 0.2942847974681484D-03 - ws( 4) = 0.4145128234860888D-03 - ws( 5) = 0.5480256083810940D-03 - ws( 6) = 0.6998605806699580D-03 - ws( 7) = 0.8761967593780620D-03 - ws( 8) = 0.1084629019435649D-02 - ws( 9) = 0.1334345274723333D-02 - ws( 10) = 0.1635997493558941D-02 - ws( 11) = 0.2000865851477879D-02 - ws( 12) = 0.2438704860184250D-02 - ws( 13) = 0.2953717198713684D-02 - ws( 14) = 0.3539082982323919D-02 - ws( 15) = 0.4172863296438661D-02 - ws( 16) = 0.4820121063203718D-02 - ws( 17) = 0.5443096011530385D-02 - ws( 18) = 0.6013416582022615D-02 - ws( 19) = 0.6517856276225093D-02 - ws( 20) = 0.6956064830061380D-02 - ws( 21) = 0.7334916540336960D-02 - ws( 22) = 0.7663712205162087D-02 - ws( 23) = 0.7951492988135252D-02 - ws( 24) = 0.8205994357042752D-02 - ws( 25) = 0.8433475039528696D-02 - ws( 26) = 0.8638896393692263D-02 - ws( 27) = 0.8826188034472675D-02 - ws( 28) = 0.8998494259129202D-02 - ws( 29) = 0.9158371747360703D-02 - ws( 30) = 0.9307939132030143D-02 - ws( 31) = 0.9448988278602854D-02 - ws( 32) = 0.9583067482288824D-02 - ws( 33) = 0.9711545818430766D-02 - ws( 34) = 0.9835664489921059D-02 - ws( 35) = 0.9956581757428317D-02 - ws( 36) = 0.1007540780430322D-01 - ws( 37) = 0.1019328280666834D-01 - ws( 38) = 0.1031138112763519D-01 - ws( 39) = 0.1043093659339085D-01 - ws( 40) = 0.1055380953202575D-01 - ws( 41) = 0.1068163785981213D-01 - ws( 42) = 0.1081855737061717D-01 - ws( 43) = 0.1096902579722039D-01 - ws( 44) = 0.1112640986054797D-01 - ws( 45) = 0.1139339295877396D-01 - ws( 46) = 0.1156370504551145D-01 - endif - - - if( iquad .eq. 94 ) then - idomain = 94 - rk0r = 0.3141592653590793D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 45 - err = 0.5090920766353903D-09 - ierq = 4 - xs( 1) = 0.4160573065160003D-04 - xs( 2) = 0.2204952890187527D-03 - xs( 3) = 0.5476242702278826D-03 - xs( 4) = 0.1032464699742699D-02 - xs( 5) = 0.1689333736542030D-02 - xs( 6) = 0.2538227153540060D-02 - xs( 7) = 0.3605795510468530D-02 - xs( 8) = 0.4926417034493226D-02 - xs( 9) = 0.6543156015634014D-02 - xs( 10) = 0.8508162055109205D-02 - xs( 11) = 0.1088170860997505D-01 - xs( 12) = 0.1372870377457990D-01 - xs( 13) = 0.1711158734521811D-01 - xs( 14) = 0.2107985005606697D-01 - xs( 15) = 0.2565915924445652D-01 - xs( 16) = 0.3084522899534499D-01 - xs( 17) = 0.3660596491175547D-01 - xs( 18) = 0.4289047682467664D-01 - xs( 19) = 0.4964003523965613D-01 - xs( 20) = 0.5679672261311168D-01 - xs( 21) = 0.6430834501367619D-01 - xs( 22) = 0.7213024716170974D-01 - xs( 23) = 0.8022527804474797D-01 - xs( 24) = 0.8856292368228921D-01 - xs( 25) = 0.9711821124392565D-01 - xs( 26) = 0.1058706717715326D+00 - xs( 27) = 0.1148034653057227D+00 - xs( 28) = 0.1239026838509543D+00 - xs( 29) = 0.1331568125838453D+00 - xs( 30) = 0.1425563204258327D+00 - xs( 31) = 0.1520933525952457D+00 - xs( 32) = 0.1617615029651423D+00 - xs( 33) = 0.1715556495137905D+00 - xs( 34) = 0.1814718405243707D+00 - xs( 35) = 0.1915072308655868D+00 - xs( 36) = 0.2016600336526488D+00 - xs( 37) = 0.2119295778155157D+00 - xs( 38) = 0.2223163248758921D+00 - xs( 39) = 0.2328219135519791D+00 - xs( 40) = 0.2434494203252014D+00 - xs( 41) = 0.2542038764546390D+00 - xs( 42) = 0.2650907806144314D+00 - xs( 43) = 0.2761083219825756D+00 - xs( 44) = 0.2872988366428843D+00 - xs( 45) = 0.2981891385632828D+00 - ws( 1) = 0.1069187024362390D-03 - ws( 2) = 0.2517935480696899D-03 - ws( 3) = 0.4040284756782424D-03 - ws( 4) = 0.5680251782692731D-03 - ws( 5) = 0.7490290946852517D-03 - ws( 6) = 0.9531811544214005D-03 - ws( 7) = 0.1187668289323292D-02 - ws( 8) = 0.1460743606328494D-02 - ws( 9) = 0.1781439062938101D-02 - ws( 10) = 0.2158673646470802D-02 - ws( 11) = 0.2599355661790105D-02 - ws( 12) = 0.3105223141104086D-02 - ws( 13) = 0.3668987747527235D-02 - ws( 14) = 0.4271927939203685D-02 - ws( 15) = 0.4885936226407904D-02 - ws( 16) = 0.5480690114167823D-02 - ws( 17) = 0.6032106443458414D-02 - ws( 18) = 0.6526982046802483D-02 - ws( 19) = 0.6962402209271329D-02 - ws( 20) = 0.7342246581205423D-02 - ws( 21) = 0.7673558705755429D-02 - ws( 22) = 0.7964069593259031D-02 - ws( 23) = 0.8220925401149156D-02 - ws( 24) = 0.8450221233517165D-02 - ws( 25) = 0.8656956994668123D-02 - ws( 26) = 0.8845168959923601D-02 - ws( 27) = 0.9018109009567231D-02 - ws( 28) = 0.9178415689719447D-02 - ws( 29) = 0.9328258326237123D-02 - ws( 30) = 0.9469452021482425D-02 - ws( 31) = 0.9603547593466303D-02 - ws( 32) = 0.9731902150491812D-02 - ws( 33) = 0.9855736344362584D-02 - ws( 34) = 0.9976174930286873D-02 - ws( 35) = 0.1009430980213749D-01 - ws( 36) = 0.1021120693552155D-01 - ws( 37) = 0.1032794451418618D-01 - ws( 38) = 0.1044565304659555D-01 - ws( 39) = 0.1056630444431667D-01 - ws( 40) = 0.1068979747535402D-01 - ws( 41) = 0.1082187576203983D-01 - ws( 42) = 0.1095913720008225D-01 - ws( 43) = 0.1108524246519715D-01 - ws( 44) = 0.1157880083159935D-01 - ws( 45) = 0.1147000380482644D-01 - endif - - - if( iquad .eq. 95 ) then - idomain = 95 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 41 - err = 0.7535779350053390D-10 - ierq = 0 - xs( 1) = 0.6661869763663671D-04 - xs( 2) = 0.3529462154133711D-03 - xs( 3) = 0.8760587189090703D-03 - xs( 4) = 0.1650098471267840D-02 - xs( 5) = 0.2696043758135502D-02 - xs( 6) = 0.4042392728922155D-02 - xs( 7) = 0.5725608886839983D-02 - xs( 8) = 0.7789975084771695D-02 - xs( 9) = 0.1028618214705305D-01 - xs( 10) = 0.1326778689925393D-01 - xs( 11) = 0.1678492476679307D-01 - xs( 12) = 0.2087584592679317D-01 - xs( 13) = 0.2555878351940758D-01 - xs( 14) = 0.3082773532973477D-01 - xs( 15) = 0.3665423690820854D-01 - xs( 16) = 0.4299398059407387D-01 - xs( 17) = 0.4979503355361359D-01 - xs( 18) = 0.5700477130577444D-01 - xs( 19) = 0.6457431159910086D-01 - xs( 20) = 0.7246061995518507D-01 - xs( 21) = 0.8062702096057876D-01 - xs( 22) = 0.8904283691701537D-01 - xs( 23) = 0.9768265724563600D-01 - xs( 24) = 0.1065255267689166D+00 - xs( 25) = 0.1155541920286912D+00 - xs( 26) = 0.1247544586903837D+00 - xs( 27) = 0.1341146695908460D+00 - xs( 28) = 0.1436252940129605D+00 - xs( 29) = 0.1532786127447636D+00 - xs( 30) = 0.1630684833390631D+00 - xs( 31) = 0.1729901735733045D+00 - xs( 32) = 0.1830402445912685D+00 - xs( 33) = 0.1932164996756132D+00 - xs( 34) = 0.2035179661412023D+00 - xs( 35) = 0.2139447754958223D+00 - xs( 36) = 0.2244983540656175D+00 - xs( 37) = 0.2351820453265759D+00 - xs( 38) = 0.2459957402862809D+00 - xs( 39) = 0.2569470255415213D+00 - xs( 40) = 0.2679803000191205D+00 - xs( 41) = 0.2787219497275028D+00 - ws( 1) = 0.1711851921524935D-03 - ws( 2) = 0.4028890918599700D-03 - ws( 3) = 0.6456754093278130D-03 - ws( 4) = 0.9058894499092616D-03 - ws( 5) = 0.1190742460828438D-02 - ws( 6) = 0.1508033546926257D-02 - ws( 7) = 0.1865800553916870D-02 - ws( 8) = 0.2271437471319490D-02 - ws( 9) = 0.2730008493022941D-02 - ws( 10) = 0.3241704249459706D-02 - ws( 11) = 0.3799091846432149D-02 - ws( 12) = 0.4385865475224225D-02 - ws( 13) = 0.4978976446819769D-02 - ws( 14) = 0.5554063833690164D-02 - ws( 15) = 0.6091410355309756D-02 - ws( 16) = 0.6579303310901352D-02 - ws( 17) = 0.7013958756801131D-02 - ws( 18) = 0.7397336589878747D-02 - ws( 19) = 0.7734564846305997D-02 - ws( 20) = 0.8031946506045320D-02 - ws( 21) = 0.8295755387192032D-02 - ws( 22) = 0.8531655263641490D-02 - ws( 23) = 0.8744505535416161D-02 - ws( 24) = 0.8938368663236468D-02 - ws( 25) = 0.9116604830175179D-02 - ws( 26) = 0.9281992477391119D-02 - ws( 27) = 0.9436846099446259D-02 - ws( 28) = 0.9583120260669938D-02 - ws( 29) = 0.9722497340662262D-02 - ws( 30) = 0.9856458601097212D-02 - ws( 31) = 0.9986353251983897D-02 - ws( 32) = 0.1011344097062849D-01 - ws( 33) = 0.1023893177801800D-01 - ws( 34) = 0.1036418787918855D-01 - ws( 35) = 0.1049056831774941D-01 - ws( 36) = 0.1061826024736536D-01 - ws( 37) = 0.1075128841595534D-01 - ws( 38) = 0.1089423385315144D-01 - ws( 39) = 0.1106431611012359D-01 - ws( 40) = 0.1141586538689897D-01 - ws( 41) = 0.1056162432110753D-01 - endif - - - if( iquad .eq. 96 ) then - idomain = 96 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 43 - err = 0.3757021422991174D-10 - ierq = 0 - xs( 1) = 0.7652475074586073D-04 - xs( 2) = 0.4086822707243923D-03 - xs( 3) = 0.1025417035724677D-02 - xs( 4) = 0.1951588984219069D-02 - xs( 5) = 0.3214501739851731D-02 - xs( 6) = 0.4843617869614801D-02 - xs( 7) = 0.6870775053437031D-02 - xs( 8) = 0.9329220895237262D-02 - xs( 9) = 0.1225111616403238D-01 - xs( 10) = 0.1566389010602526D-01 - xs( 11) = 0.1958634062539693D-01 - xs( 12) = 0.2402561754398608D-01 - xs( 13) = 0.2897600535610712D-01 - xs( 14) = 0.3441978707307528D-01 - xs( 15) = 0.4032976495888507D-01 - xs( 16) = 0.4667259625927044D-01 - xs( 17) = 0.5341209758535512D-01 - xs( 18) = 0.6051195240169233D-01 - xs( 19) = 0.6793760253607758D-01 - xs( 20) = 0.7565736309621401D-01 - xs( 21) = 0.8364292814141761D-01 - xs( 22) = 0.9186946099138554D-01 - xs( 23) = 0.1003154357014869D+00 - xs( 24) = 0.1089623516861469D+00 - xs( 25) = 0.1177944014422586D+00 - xs( 26) = 0.1267981389980912D+00 - xs( 27) = 0.1359621745956054D+00 - xs( 28) = 0.1452769072927556D+00 - xs( 29) = 0.1547342989819287D+00 - xs( 30) = 0.1643276895460911D+00 - xs( 31) = 0.1740516507775880D+00 - xs( 32) = 0.1839018763023441D+00 - xs( 33) = 0.1938751015146957D+00 - xs( 34) = 0.2039690501492810D+00 - xs( 35) = 0.2141824371642748D+00 - xs( 36) = 0.2245149620662000D+00 - xs( 37) = 0.2349669827027368D+00 - xs( 38) = 0.2455410383761042D+00 - xs( 39) = 0.2562355512734403D+00 - xs( 40) = 0.2670681403600029D+00 - xs( 41) = 0.2780542062864600D+00 - xs( 42) = 0.2889631613533825D+00 - xs( 43) = 0.2996856689195676D+00 - ws( 1) = 0.1970503346465254D-03 - ws( 2) = 0.4706061681106612D-03 - ws( 3) = 0.7670618759512129D-03 - ws( 4) = 0.1089829080214670D-02 - ws( 5) = 0.1440899541404072D-02 - ws( 6) = 0.1822654520528000D-02 - ws( 7) = 0.2237243675469636D-02 - ws( 8) = 0.2685071101291252D-02 - ws( 9) = 0.3163358895196394D-02 - ws( 10) = 0.3665374623365236D-02 - ws( 11) = 0.4180739038890935D-02 - ws( 12) = 0.4696846671261493D-02 - ws( 13) = 0.5200931919548433D-02 - ws( 14) = 0.5682040828432084D-02 - ws( 15) = 0.6132301378598939D-02 - ws( 16) = 0.6547285055153127D-02 - ws( 17) = 0.6925633466724430D-02 - ws( 18) = 0.7268298328243450D-02 - ws( 19) = 0.7577713179163702D-02 - ws( 20) = 0.7857089181096713D-02 - ws( 21) = 0.8109904392933059D-02 - ws( 22) = 0.8339578591400634D-02 - ws( 23) = 0.8549293046013545D-02 - ws( 24) = 0.8741909930276041D-02 - ws( 25) = 0.8919953712552121D-02 - ws( 26) = 0.9085627539263902D-02 - ws( 27) = 0.9240847113226059D-02 - ws( 28) = 0.9387281521326146D-02 - ws( 29) = 0.9526394983571676D-02 - ws( 30) = 0.9659485989547904D-02 - ws( 31) = 0.9787723804652003D-02 - ws( 32) = 0.9912182234988241D-02 - ws( 33) = 0.1003390430993957D-01 - ws( 34) = 0.1015381154944131D-01 - ws( 35) = 0.1027294576809217D-01 - ws( 36) = 0.1039246113559860D-01 - ws( 37) = 0.1051276866430297D-01 - ws( 38) = 0.1063772454913719D-01 - ws( 39) = 0.1075547922576022D-01 - ws( 40) = 0.1086782644047368D-01 - ws( 41) = 0.1115064100234499D-01 - ws( 42) = 0.1179153911538149D-01 - ws( 43) = 0.9296178690331662D-02 - endif - - - if( iquad .eq. 97 ) then - idomain = 97 - rk0r = 0.3141592653590793D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 36 - err = 0.3185403240197457D-10 - ierq = 0 - xs( 1) = 0.1466209858861777D-03 - xs( 2) = 0.7734829778202719D-03 - xs( 3) = 0.1904860521180329D-02 - xs( 4) = 0.3546197450716262D-02 - xs( 5) = 0.5703008856470095D-02 - xs( 6) = 0.8379297050913705D-02 - xs( 7) = 0.1157583817892362D-01 - xs( 8) = 0.1528883454987742D-01 - xs( 9) = 0.1950917091802119D-01 - xs( 10) = 0.2422234438382383D-01 - xs( 11) = 0.2940898965828998D-01 - xs( 12) = 0.3504582805748204D-01 - xs( 13) = 0.4110683725180657D-01 - xs( 14) = 0.4756445627070660D-01 - xs( 15) = 0.5439068633568229D-01 - xs( 16) = 0.6155800360881426D-01 - xs( 17) = 0.6904005061448154D-01 - xs( 18) = 0.7681211096794710D-01 - xs( 19) = 0.8485139506746944D-01 - xs( 20) = 0.9313717453852909D-01 - xs( 21) = 0.1016508041687841D+00 - xs( 22) = 0.1103756656016887D+00 - xs( 23) = 0.1192970600713750D+00 - xs( 24) = 0.1284020696884222D+00 - xs( 25) = 0.1376793987785869D+00 - xs( 26) = 0.1471191993377120D+00 - xs( 27) = 0.1567128765733412D+00 - xs( 28) = 0.1664528439228934D+00 - xs( 29) = 0.1763321612392181D+00 - xs( 30) = 0.1863439849664476D+00 - xs( 31) = 0.1964800032577028D+00 - xs( 32) = 0.2067262696081201D+00 - xs( 33) = 0.2170597910670714D+00 - xs( 34) = 0.2274125306444582D+00 - xs( 35) = 0.2375550226954421D+00 - xs( 36) = 0.2472218294982599D+00 - ws( 1) = 0.3763870894181197D-03 - ws( 2) = 0.8782674134622321D-03 - ws( 3) = 0.1385401205748407D-02 - ws( 4) = 0.1898221089496746D-02 - ws( 5) = 0.2416098284057510D-02 - ws( 6) = 0.2936630498215977D-02 - ws( 7) = 0.3455831362272504D-02 - ws( 8) = 0.3968643129766354D-02 - ws( 9) = 0.4469603267461797D-02 - ws( 10) = 0.4953499796402881D-02 - ws( 11) = 0.5415891023221924D-02 - ws( 12) = 0.5853428301479897D-02 - ws( 13) = 0.6263978047324344D-02 - ws( 14) = 0.6646578240957417D-02 - ws( 15) = 0.7001283075793617D-02 - ws( 16) = 0.7328950716416579D-02 - ws( 17) = 0.7631019227944579D-02 - ws( 18) = 0.7909301059007494D-02 - ws( 19) = 0.8165812102437123D-02 - ws( 20) = 0.8402640209106952D-02 - ws( 21) = 0.8621850820424118D-02 - ws( 22) = 0.8825423657428418D-02 - ws( 23) = 0.9015213045317504D-02 - ws( 24) = 0.9192924411751621D-02 - ws( 25) = 0.9360098994542718D-02 - ws( 26) = 0.9518097471043072D-02 - ws( 27) = 0.9668097178641621D-02 - ws( 28) = 0.9811123150090528D-02 - ws( 29) = 0.9948095885844868D-02 - ws( 30) = 0.1008017498188155D-01 - ws( 31) = 0.1020988375160530D-01 - ws( 32) = 0.1033313184120240D-01 - ws( 33) = 0.1043032412369720D-01 - ws( 34) = 0.1045585378415161D-01 - ws( 35) = 0.9618562083514423D-02 - ws( 36) = 0.5702069861557565D-02 - endif - - - if( iquad .eq. 98 ) then - idomain = 98 - rk0r = 0.3141592653590793D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 30 - err = 0.4007763672728538D-10 - ierq = 0 - xs( 1) = 0.1711192913289086D-03 - xs( 2) = 0.9004079093204194D-03 - xs( 3) = 0.2207554266543296D-02 - xs( 4) = 0.4084588392574423D-02 - xs( 5) = 0.6519897805440206D-02 - xs( 6) = 0.9498741894210173D-02 - xs( 7) = 0.1300362207069896D-01 - xs( 8) = 0.1701468956526499D-01 - xs( 9) = 0.2151019551437548D-01 - xs( 10) = 0.2646697146891174D-01 - xs( 11) = 0.3186092195006207D-01 - xs( 12) = 0.3766750710044133D-01 - xs( 13) = 0.4386219312959339D-01 - xs( 14) = 0.5042085113256389D-01 - xs( 15) = 0.5732009012860355D-01 - xs( 16) = 0.6453751614714826D-01 - xs( 17) = 0.7205191379947283D-01 - xs( 18) = 0.7984334932924093D-01 - xs( 19) = 0.8789319712502418D-01 - xs( 20) = 0.9618408916115241D-01 - xs( 21) = 0.1046997555622968D+00 - xs( 22) = 0.1134247287767851D+00 - xs( 23) = 0.1223439714543602D+00 - xs( 24) = 0.1314418683517994D+00 - xs( 25) = 0.1406995280503000D+00 - xs( 26) = 0.1500927009914131D+00 - xs( 27) = 0.1595770509837932D+00 - xs( 28) = 0.1690165107504614D+00 - xs( 29) = 0.1781922693963737D+00 - xs( 30) = 0.1869911368059693D+00 - ws( 1) = 0.4390090368371961D-03 - ws( 2) = 0.1019191687568755D-02 - ws( 3) = 0.1593746739297990D-02 - ws( 4) = 0.2158379829085318D-02 - ws( 5) = 0.2709776174032240D-02 - ws( 6) = 0.3244988762918392D-02 - ws( 7) = 0.3761455929715410D-02 - ws( 8) = 0.4257046197964221D-02 - ws( 9) = 0.4730096024519841D-02 - ws( 10) = 0.5179431873127270D-02 - ws( 11) = 0.5604371587355130D-02 - ws( 12) = 0.6004703084354638D-02 - ws( 13) = 0.6380641837599058D-02 - ws( 14) = 0.6732771276623987D-02 - ws( 15) = 0.7061971503868199D-02 - ws( 16) = 0.7369342675454163D-02 - ws( 17) = 0.7656129131328508D-02 - ws( 18) = 0.7923642256745696D-02 - ws( 19) = 0.8173174746371090D-02 - ws( 20) = 0.8405929866565331D-02 - ws( 21) = 0.8622951989895997D-02 - ws( 22) = 0.8824825591812207D-02 - ws( 23) = 0.9011650996461706D-02 - ws( 24) = 0.9184423200158491D-02 - ws( 25) = 0.9341811065350253D-02 - ws( 26) = 0.9477532239181401D-02 - ws( 27) = 0.9605814979057357D-02 - ws( 28) = 0.9509568854910461D-02 - ws( 29) = 0.7961711289045454D-02 - ws( 30) = 0.3880904600824984D-02 - endif - - - if( iquad .eq. 99 ) then - idomain = 99 - rk0r = 0.3141592653590793D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 27 - err = 0.6460005990560030D-10 - ierq = 0 - xs( 1) = 0.1645862640704111D-03 - xs( 2) = 0.8658305746380481D-03 - xs( 3) = 0.2121932472205982D-02 - xs( 4) = 0.3924052100596247D-02 - xs( 5) = 0.6259640481876375D-02 - xs( 6) = 0.9113200181823520D-02 - xs( 7) = 0.1246688778152390D-01 - xs( 8) = 0.1630109173800263D-01 - xs( 9) = 0.2059496828370132D-01 - xs( 10) = 0.2532691975510562D-01 - xs( 11) = 0.3047500781651969D-01 - xs( 12) = 0.3601730045325705D-01 - xs( 13) = 0.4193215305246208D-01 - xs( 14) = 0.4819842004790655D-01 - xs( 15) = 0.5479559672783625D-01 - xs( 16) = 0.6170389988996624D-01 - xs( 17) = 0.6890426469860721D-01 - xs( 18) = 0.7637819280099323D-01 - xs( 19) = 0.8410754910100458D-01 - xs( 20) = 0.9207425935405181D-01 - xs( 21) = 0.1002586602966127D+00 - xs( 22) = 0.1086374042384644D+00 - xs( 23) = 0.1171836133687770D+00 - xs( 24) = 0.1258389547634929D+00 - xs( 25) = 0.1344427934968762D+00 - xs( 26) = 0.1428065310640234D+00 - xs( 27) = 0.1508642860305780D+00 - ws( 1) = 0.4222247399279001D-03 - ws( 2) = 0.9797759522076836D-03 - ws( 3) = 0.1530925310162901D-02 - ws( 4) = 0.2071211487323384D-02 - ws( 5) = 0.2597372198469314D-02 - ws( 6) = 0.3106763473019008D-02 - ws( 7) = 0.3597334038554252D-02 - ws( 8) = 0.4067592362897085D-02 - ws( 9) = 0.4516554999684551D-02 - ws( 10) = 0.4943686229882270D-02 - ws( 11) = 0.5348831689948468D-02 - ws( 12) = 0.5732147414628494D-02 - ws( 13) = 0.6094035628420444D-02 - ws( 14) = 0.6435087777244143D-02 - ws( 15) = 0.6756002310701206D-02 - ws( 16) = 0.7057498726725169D-02 - ws( 17) = 0.7340314374417863D-02 - ws( 18) = 0.7605027830086343D-02 - ws( 19) = 0.7851537528552331D-02 - ws( 20) = 0.8080011001095788D-02 - ws( 21) = 0.8291487258904447D-02 - ws( 22) = 0.8479638037836464D-02 - ws( 23) = 0.8646111526746379D-02 - ws( 24) = 0.8827523041470525D-02 - ws( 25) = 0.8692440757138341D-02 - ws( 26) = 0.6962371875226089D-02 - ws( 27) = 0.3119125950839692D-02 - endif - - - if( iquad .eq. 100 ) then - idomain = 100 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 46 - err = 0.4644281904159684D-10 - ierq = 0 - xs( 1) = 0.1275117563482328D-04 - xs( 2) = 0.6746429861103048D-04 - xs( 3) = 0.1670535698852388D-03 - xs( 4) = 0.3135932133308755D-03 - xs( 5) = 0.5102126958611272D-03 - xs( 6) = 0.7613022289801620D-03 - xs( 7) = 0.1072781870830041D-02 - xs( 8) = 0.1452470474192725D-02 - xs( 9) = 0.1910588551215984D-02 - xs( 10) = 0.2460442493279917D-02 - xs( 11) = 0.3119355812932110D-02 - xs( 12) = 0.3909935306544316D-02 - xs( 13) = 0.4861783108636138D-02 - xs( 14) = 0.6013778636623604D-02 - xs( 15) = 0.7417027995983119D-02 - xs( 16) = 0.9138442872483180D-02 - xs( 17) = 0.1126451805463655D-01 - xs( 18) = 0.1390395046499440D-01 - xs( 19) = 0.1718589929071748D-01 - xs( 20) = 0.2124794542472509D-01 - xs( 21) = 0.2620679220215702D-01 - xs( 22) = 0.3211394676679954D-01 - xs( 23) = 0.3892252355426259D-01 - xs( 24) = 0.4649969654652718D-01 - xs( 25) = 0.5467887017700226D-01 - xs( 26) = 0.6330854554302126D-01 - xs( 27) = 0.7227320794985249D-01 - xs( 28) = 0.8149272391864480D-01 - xs( 29) = 0.9091392594532863D-01 - xs( 30) = 0.1005020683772183D+00 - xs( 31) = 0.1102344316876420D+00 - xs( 32) = 0.1200960616399869D+00 - xs( 33) = 0.1300770726549355D+00 - xs( 34) = 0.1401709811786068D+00 - xs( 35) = 0.1503736911621468D+00 - xs( 36) = 0.1606828892773134D+00 - xs( 37) = 0.1710977003991692D+00 - xs( 38) = 0.1816185195559763D+00 - xs( 39) = 0.1922469686001810D+00 - xs( 40) = 0.2029859420330181D+00 - xs( 41) = 0.2138399011581207D+00 - xs( 42) = 0.2248149742529181D+00 - xs( 43) = 0.2359179397448096D+00 - xs( 44) = 0.2471622267490020D+00 - xs( 45) = 0.2585345408776781D+00 - xs( 46) = 0.2697166990093993D+00 - ws( 1) = 0.3275532080301252D-04 - ws( 2) = 0.7688339614172180D-04 - ws( 3) = 0.1226371476627321D-03 - ws( 4) = 0.1709604977479597D-03 - ws( 5) = 0.2230057462197905D-03 - ws( 6) = 0.2801539257628050D-03 - ws( 7) = 0.3441002301363665D-03 - ws( 8) = 0.4169691462193416D-03 - ws( 9) = 0.5014694274894051D-03 - ws( 10) = 0.6011048730312153D-03 - ws( 11) = 0.7204613396623189D-03 - ws( 12) = 0.8655935744485751D-03 - ws( 13) = 0.1044532778058337D-02 - ws( 14) = 0.1267915487803280D-02 - ws( 15) = 0.1549669360409466D-02 - ws( 16) = 0.1907525415371037D-02 - ws( 17) = 0.2362755790255543D-02 - ws( 18) = 0.2937815980538026D-02 - ws( 19) = 0.3649496500219450D-02 - ws( 20) = 0.4494850274423058D-02 - ws( 21) = 0.5432093705207911D-02 - ws( 22) = 0.6374178822015897D-02 - ws( 23) = 0.7219830289490307D-02 - ws( 24) = 0.7905875084907435D-02 - ws( 25) = 0.8426903830760297D-02 - ws( 26) = 0.8813241475935520D-02 - ws( 27) = 0.9102885080854051D-02 - ws( 28) = 0.9327432030911258D-02 - ws( 29) = 0.9509287025524806D-02 - ws( 30) = 0.9663280742256983D-02 - ws( 31) = 0.9798997197857555D-02 - ws( 32) = 0.9922642097371625D-02 - ws( 33) = 0.1003831602253537D-01 - ws( 34) = 0.1014882911380053D-01 - ws( 35) = 0.1025621276454734D-01 - ws( 36) = 0.1036204661549751D-01 - ws( 37) = 0.1046766323969173D-01 - ws( 38) = 0.1057428031508851D-01 - ws( 39) = 0.1068322782456819D-01 - ws( 40) = 0.1079591516974654D-01 - ws( 41) = 0.1091415683151543D-01 - ws( 42) = 0.1104238357696643D-01 - ws( 43) = 0.1118342474869621D-01 - ws( 44) = 0.1135951946965229D-01 - ws( 45) = 0.1171651415149557D-01 - ws( 46) = 0.1141954314765977D-01 - endif - - - if( iquad .eq. 101 ) then - idomain = 101 - rk0r = 0.6283185307180586D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 46 - err = 0.3012201305700149D-10 - ierq = 0 - xs( 1) = 0.1319039174179005D-04 - xs( 2) = 0.6978611226588711D-04 - xs( 3) = 0.1727937943850603D-03 - xs( 4) = 0.3243440472543558D-03 - xs( 5) = 0.5276505259519836D-03 - xs( 6) = 0.7872200131222027D-03 - xs( 7) = 0.1109126735189409D-02 - xs( 8) = 0.1501387645652298D-02 - xs( 9) = 0.1974472750797647D-02 - xs( 10) = 0.2541997730672518D-02 - xs( 11) = 0.3221663932965097D-02 - xs( 12) = 0.4036532206004917D-02 - xs( 13) = 0.5016738441133013D-02 - xs( 14) = 0.6201768470793286D-02 - xs( 15) = 0.7643377159780663D-02 - xs( 16) = 0.9409088369470299D-02 - xs( 17) = 0.1158579541203982D-01 - xs( 18) = 0.1428201633146456D-01 - xs( 19) = 0.1762549050107342D-01 - xs( 20) = 0.2175021137519543D-01 - xs( 21) = 0.2676663982087457D-01 - xs( 22) = 0.3271892754883346D-01 - xs( 23) = 0.3955554398831744D-01 - xs( 24) = 0.4714424438777323D-01 - xs( 25) = 0.5532267155056110D-01 - xs( 26) = 0.6394406747539438D-01 - xs( 27) = 0.7289643044151328D-01 - xs( 28) = 0.8210173315907314D-01 - xs( 29) = 0.9150791428160715D-01 - xs( 30) = 0.1010807510693260D+00 - xs( 31) = 0.1107977428498795D+00 - xs( 32) = 0.1206440083200139D+00 - xs( 33) = 0.1306096701952023D+00 - xs( 34) = 0.1406882269298149D+00 - xs( 35) = 0.1508755539645941D+00 - xs( 36) = 0.1611693026704256D+00 - xs( 37) = 0.1715685539727896D+00 - xs( 38) = 0.1820736429606974D+00 - xs( 39) = 0.1926861036051198D+00 - xs( 40) = 0.2034086666315746D+00 - xs( 41) = 0.2142455229053034D+00 - xs( 42) = 0.2252023747672892D+00 - xs( 43) = 0.2362851970237514D+00 - xs( 44) = 0.2475052114362420D+00 - xs( 45) = 0.2588389057995151D+00 - xs( 46) = 0.2699502456493328D+00 - ws( 1) = 0.3388335552820617D-04 - ws( 2) = 0.7952656018669380D-04 - ws( 3) = 0.1268400985907965D-03 - ws( 4) = 0.1767927266200399D-03 - ws( 5) = 0.2305668516821486D-03 - ws( 6) = 0.2895783175433499D-03 - ws( 7) = 0.3555628908699615D-03 - ws( 8) = 0.4306925407843597D-03 - ws( 9) = 0.5177314883066555D-03 - ws( 10) = 0.6202477257146079D-03 - ws( 11) = 0.7428998554617431D-03 - ws( 12) = 0.8918216663856215D-03 - ws( 13) = 0.1075123070727565D-02 - ws( 14) = 0.1303503529802976D-02 - ws( 15) = 0.1590904749599711D-02 - ws( 16) = 0.1954954858744880D-02 - ws( 17) = 0.2416571185807364D-02 - ws( 18) = 0.2997357771738842D-02 - ws( 19) = 0.3712420225283725D-02 - ws( 20) = 0.4556212657598057D-02 - ws( 21) = 0.5484593897748907D-02 - ws( 22) = 0.6411119001053187D-02 - ws( 23) = 0.7239102076896050D-02 - ws( 24) = 0.7910425636651825D-02 - ws( 25) = 0.8421678263873541D-02 - ws( 26) = 0.8802493794203536D-02 - ws( 27) = 0.9089376859903081D-02 - ws( 28) = 0.9312690931836731D-02 - ws( 29) = 0.9494068899915879D-02 - ws( 30) = 0.9647921531369336D-02 - ws( 31) = 0.9783624220357830D-02 - ws( 32) = 0.9907286880952083D-02 - ws( 33) = 0.1002296970045557D-01 - ws( 34) = 0.1013346700875202D-01 - ws( 35) = 0.1024080303263014D-01 - ws( 36) = 0.1034655005415031D-01 - ws( 37) = 0.1045202889470227D-01 - ws( 38) = 0.1055843662472458D-01 - ws( 39) = 0.1066707390142560D-01 - ws( 40) = 0.1077925547321976D-01 - ws( 41) = 0.1089662814647648D-01 - ws( 42) = 0.1102340764679900D-01 - ws( 43) = 0.1116136015988450D-01 - ws( 44) = 0.1133696229053679D-01 - ws( 45) = 0.1167399930106962D-01 - ws( 46) = 0.1121799334958951D-01 - endif - - - if( iquad .eq. 102 ) then - idomain = 102 - rk0r = 0.6283185307180586D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 49 - err = 0.1778607556100994D-09 - ierq = 4 - xs( 1) = 0.1372059331202690D-04 - xs( 2) = 0.7258766451282401D-04 - xs( 3) = 0.1797128235571778D-03 - xs( 4) = 0.3372757729074933D-03 - xs( 5) = 0.5485485332794194D-03 - xs( 6) = 0.8180938336500962D-03 - xs( 7) = 0.1152022225835843D-02 - xs( 8) = 0.1558342747565906D-02 - xs( 9) = 0.2047436452464704D-02 - xs( 10) = 0.2632691751431783D-02 - xs( 11) = 0.3331352867049326D-02 - xs( 12) = 0.4165645553945002D-02 - xs( 13) = 0.5164252758463930D-02 - xs( 14) = 0.6364205147538006D-02 - xs( 15) = 0.7813200860180596D-02 - xs( 16) = 0.9572221595632840D-02 - xs( 17) = 0.1171797002490237D-01 - xs( 18) = 0.1434396474763340D-01 - xs( 19) = 0.1755795106252856D-01 - xs( 20) = 0.2147185904411926D-01 - xs( 21) = 0.2618063298127154D-01 - xs( 22) = 0.3173216630888991D-01 - xs( 23) = 0.3810358775625676D-01 - xs( 24) = 0.4520443043125345D-01 - xs( 25) = 0.5290759738215495D-01 - xs( 26) = 0.6108537711743896D-01 - xs( 27) = 0.6963097793112349D-01 - xs( 28) = 0.7846397248651184D-01 - xs( 29) = 0.8752702776551070D-01 - xs( 30) = 0.9678022593792222D-01 - xs( 31) = 0.1061959010835612D+00 - xs( 32) = 0.1157547637922778D+00 - xs( 33) = 0.1254432244592802D+00 - xs( 34) = 0.1352516152915507D+00 - xs( 35) = 0.1451730312534249D+00 - xs( 36) = 0.1552025828411525D+00 - xs( 37) = 0.1653369207127313D+00 - xs( 38) = 0.1755739421650482D+00 - xs( 39) = 0.1859126214030417D+00 - xs( 40) = 0.1963529338194830D+00 - xs( 41) = 0.2068958482096553D+00 - xs( 42) = 0.2175434294231071D+00 - xs( 43) = 0.2282988462269111D+00 - xs( 44) = 0.2391666376546823D+00 - xs( 45) = 0.2501529373330388D+00 - xs( 46) = 0.2612650586157241D+00 - xs( 47) = 0.2725200280468732D+00 - xs( 48) = 0.2838994219529489D+00 - xs( 49) = 0.2950714133369917D+00 - ws( 1) = 0.3524494332450863D-04 - ws( 2) = 0.8271393279800226D-04 - ws( 3) = 0.1318959349222780D-03 - ws( 4) = 0.1837722107903725D-03 - ws( 5) = 0.2395295367388208D-03 - ws( 6) = 0.3005737125321531D-03 - ws( 7) = 0.3686101110407822D-03 - ws( 8) = 0.4457506407623941D-03 - ws( 9) = 0.5346541839408992D-03 - ws( 10) = 0.6387118675886892D-03 - ws( 11) = 0.7622902314658855D-03 - ws( 12) = 0.9110441938830837D-03 - ws( 13) = 0.1092303086933084D-02 - ws( 14) = 0.1315506783623076D-02 - ws( 15) = 0.1592605074136399D-02 - ws( 16) = 0.1938196543712241D-02 - ws( 17) = 0.2368920578104941D-02 - ws( 18) = 0.2901182760249945D-02 - ws( 19) = 0.3545798746219481D-02 - ws( 20) = 0.4298380441533680D-02 - ws( 21) = 0.5127608071782013D-02 - ws( 22) = 0.5971599317164854D-02 - ws( 23) = 0.6755579206331967D-02 - ws( 24) = 0.7424270403349730D-02 - ws( 25) = 0.7960421707074387D-02 - ws( 26) = 0.8377270300304425D-02 - ws( 27) = 0.8700596676426666D-02 - ws( 28) = 0.8955937826073769D-02 - ws( 29) = 0.9163607123317962D-02 - ws( 30) = 0.9338242380612732D-02 - ws( 31) = 0.9489936834714599D-02 - ws( 32) = 0.9625552609590280D-02 - ws( 33) = 0.9749776265031342D-02 - ws( 34) = 0.9865866700782667D-02 - ws( 35) = 0.9976158036681738D-02 - ws( 36) = 0.1008239166437328D-01 - ws( 37) = 0.1018593599576843D-01 - ws( 38) = 0.1028793704894406D-01 - ws( 39) = 0.1038942347682328D-01 - ws( 40) = 0.1049137967019138D-01 - ws( 41) = 0.1059480816865719D-01 - ws( 42) = 0.1070089089685880D-01 - ws( 43) = 0.1081126653549382D-01 - ws( 44) = 0.1092725910088950D-01 - ws( 45) = 0.1105304422812652D-01 - ws( 46) = 0.1118447110388482D-01 - ws( 47) = 0.1137203214061607D-01 - ws( 48) = 0.1170191936480733D-01 - ws( 49) = 0.1140864590227139D-01 - endif - - - if( iquad .eq. 103 ) then - idomain = 103 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 49 - err = 0.1944957926250601D-09 - ierq = 4 - xs( 1) = 0.1532247517189831D-04 - xs( 2) = 0.8105352727177656D-04 - xs( 3) = 0.2006334547474214D-03 - xs( 4) = 0.3764315541475618D-03 - xs( 5) = 0.6120018509537298D-03 - xs( 6) = 0.9122964035708074D-03 - xs( 7) = 0.1283939317785036D-02 - xs( 8) = 0.1735598089474116D-02 - xs( 9) = 0.2278481594501960D-02 - xs( 10) = 0.2927003068412580D-02 - xs( 11) = 0.3699657594300919D-02 - xs( 12) = 0.4620173946942892D-02 - xs( 13) = 0.5719003984507230D-02 - xs( 14) = 0.7035194729036308D-02 - xs( 15) = 0.8618617764185920D-02 - xs( 16) = 0.1053234650768910D-01 - xs( 17) = 0.1285456863856313D-01 - xs( 18) = 0.1567865832580163D-01 - xs( 19) = 0.1910886925454504D-01 - xs( 20) = 0.2324811523455404D-01 - xs( 21) = 0.2817571386566861D-01 - xs( 22) = 0.3392028752019410D-01 - xs( 23) = 0.4044380349496014D-01 - xs( 24) = 0.4765157628485995D-01 - xs( 25) = 0.5542278515259282D-01 - xs( 26) = 0.6364064120146215D-01 - xs( 27) = 0.7220869000889314D-01 - xs( 28) = 0.8105410937549108D-01 - xs( 29) = 0.9012442895983781D-01 - xs( 30) = 0.9938257477799280D-01 - xs( 31) = 0.1088024356600512D+00 - xs( 32) = 0.1183655176391893D+00 - xs( 33) = 0.1280586036487119D+00 - xs( 34) = 0.1378721749400696D+00 - xs( 35) = 0.1477993656975077D+00 - xs( 36) = 0.1578352790152051D+00 - xs( 37) = 0.1679765466327381D+00 - xs( 38) = 0.1782210548745279D+00 - xs( 39) = 0.1885677890020135D+00 - xs( 40) = 0.1990167630916965D+00 - xs( 41) = 0.2095690471630785D+00 - xs( 42) = 0.2202267962666302D+00 - xs( 43) = 0.2309933418465350D+00 - xs( 44) = 0.2418739340103985D+00 - xs( 45) = 0.2528750602973313D+00 - xs( 46) = 0.2640045228584518D+00 - xs( 47) = 0.2752776884528706D+00 - xs( 48) = 0.2866732337435924D+00 - xs( 49) = 0.2979294930504573D+00 - ws( 1) = 0.3935880301534840D-04 - ws( 2) = 0.9234853969198747D-04 - ws( 3) = 0.1472021068607501D-03 - ws( 4) = 0.2049831130278503D-03 - ws( 5) = 0.2669783153526244D-03 - ws( 6) = 0.3347086860445795D-03 - ws( 7) = 0.4100135157410492D-03 - ws( 8) = 0.4951612419607377D-03 - ws( 9) = 0.5929934939425549D-03 - ws( 10) = 0.7071129281464724D-03 - ws( 11) = 0.8421262224220447D-03 - ws( 12) = 0.1003950572475802D-02 - ws( 13) = 0.1200179767623556D-02 - ws( 14) = 0.1440472717025096D-02 - ws( 15) = 0.1736850633306430D-02 - ws( 16) = 0.2103630938467221D-02 - ws( 17) = 0.2556438300606224D-02 - ws( 18) = 0.3109312656476747D-02 - ws( 19) = 0.3768641953306315D-02 - ws( 20) = 0.4523564197481940D-02 - ws( 21) = 0.5336716238166881D-02 - ws( 22) = 0.6145910021981369D-02 - ws( 23) = 0.6884769598316830D-02 - ws( 24) = 0.7510102220370716D-02 - ws( 25) = 0.8012586326051242D-02 - ws( 26) = 0.8407013224680257D-02 - ws( 27) = 0.8717013782565045D-02 - ws( 28) = 0.8965167140412220D-02 - ws( 29) = 0.9169367874685976D-02 - ws( 30) = 0.9342627289759375D-02 - ws( 31) = 0.9494050514857562D-02 - ws( 32) = 0.9629936351616297D-02 - ws( 33) = 0.9754666236940480D-02 - ws( 34) = 0.9871343215882613D-02 - ws( 35) = 0.9982229364148066D-02 - ws( 36) = 0.1008904059442229D-01 - ws( 37) = 0.1019314564621414D-01 - ws( 38) = 0.1029570425623636D-01 - ws( 39) = 0.1039776941987523D-01 - ws( 40) = 0.1050035043556112D-01 - ws( 41) = 0.1060456103186457D-01 - ws( 42) = 0.1071178939965133D-01 - ws( 43) = 0.1082295421721337D-01 - ws( 44) = 0.1094078452178004D-01 - ws( 45) = 0.1107028726459089D-01 - ws( 46) = 0.1121242508283496D-01 - ws( 47) = 0.1140248099750826D-01 - ws( 48) = 0.1174023119273847D-01 - ws( 49) = 0.1160454313916709D-01 - endif - - - if( iquad .eq. 104 ) then - idomain = 104 - rk0r = 0.6283185307180586D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 48 - err = 0.1050877177685804D-08 - ierq = 4 - xs( 1) = 0.1848903063367113D-04 - xs( 2) = 0.9779674309895940D-04 - xs( 3) = 0.2420444589320854D-03 - xs( 4) = 0.4540317567541781D-03 - xs( 5) = 0.7379489690254977D-03 - xs( 6) = 0.1099620182978030D-02 - xs( 7) = 0.1546813217862491D-02 - xs( 8) = 0.2089658357732124D-02 - xs( 9) = 0.2741207392299878D-02 - xs( 10) = 0.3518173576258736D-02 - xs( 11) = 0.4441904092579010D-02 - xs( 12) = 0.5539645172302082D-02 - xs( 13) = 0.6846157125345906D-02 - xs( 14) = 0.8405700917365476D-02 - xs( 15) = 0.1027430307975183D-01 - xs( 16) = 0.1252191936180642D-01 - xs( 17) = 0.1523350719264391D-01 - xs( 18) = 0.1850693816715178D-01 - xs( 19) = 0.2244438351125884D-01 - xs( 20) = 0.2713393731226981D-01 - xs( 21) = 0.3262339329836849D-01 - xs( 22) = 0.3889887780396787D-01 - xs( 23) = 0.4588549561449141D-01 - xs( 24) = 0.5347195300585533D-01 - xs( 25) = 0.6154159879837858D-01 - xs( 26) = 0.6999297931810022D-01 - xs( 27) = 0.7874681720031455D-01 - xs( 28) = 0.8774466024682021D-01 - xs( 29) = 0.9694456874654568D-01 - xs( 30) = 0.1063167043419048D+00 - xs( 31) = 0.1158397939582901D+00 - xs( 32) = 0.1254985671726275D+00 - xs( 33) = 0.1352819851376379D+00 - xs( 34) = 0.1451820444781870D+00 - xs( 35) = 0.1551929794749239D+00 - xs( 36) = 0.1653107357811603D+00 - xs( 37) = 0.1755326297478164D+00 - xs( 38) = 0.1858571373111556D+00 - xs( 39) = 0.1962837724232631D+00 - xs( 40) = 0.2068130449520942D+00 - xs( 41) = 0.2174464515038156D+00 - xs( 42) = 0.2281865142803095D+00 - xs( 43) = 0.2390369245590334D+00 - xs( 44) = 0.2500019185950159D+00 - xs( 45) = 0.2610854905995366D+00 - xs( 46) = 0.2722931202733729D+00 - xs( 47) = 0.2835945104314721D+00 - xs( 48) = 0.2946489295495260D+00 - ws( 1) = 0.4749189709757013D-04 - ws( 2) = 0.1114145349124522D-03 - ws( 3) = 0.1775427125391411D-03 - ws( 4) = 0.2471265066732518D-03 - ws( 5) = 0.3216734979137009D-03 - ws( 6) = 0.4029566602371161D-03 - ws( 7) = 0.4931085688874131D-03 - ws( 8) = 0.5947447999260528D-03 - ws( 9) = 0.7111227509095072D-03 - ws( 10) = 0.8463465431194633D-03 - ws( 11) = 0.1005628690541380D-02 - ws( 12) = 0.1195613585367137D-02 - ws( 13) = 0.1424748621509790D-02 - ws( 14) = 0.1703638503899744D-02 - ws( 15) = 0.2045202492401746D-02 - ws( 16) = 0.2464216058104970D-02 - ws( 17) = 0.2975405381883263D-02 - ws( 18) = 0.3588792522695264D-02 - ws( 19) = 0.4301249474856984D-02 - ws( 20) = 0.5086231734539454D-02 - ws( 21) = 0.5890364989498379D-02 - ws( 22) = 0.6647657240412475D-02 - ws( 23) = 0.7306465955759031D-02 - ws( 24) = 0.7846661138527262D-02 - ws( 25) = 0.8275621397590433D-02 - ws( 26) = 0.8613962738852638D-02 - ws( 27) = 0.8884049233065879D-02 - ws( 28) = 0.9104722308153354D-02 - ws( 29) = 0.9290180579430164D-02 - ws( 30) = 0.9450587293536709D-02 - ws( 31) = 0.9593075850442431D-02 - ws( 32) = 0.9722650292196445D-02 - ws( 33) = 0.9842864748492565D-02 - ws( 34) = 0.9956301599357589D-02 - ws( 35) = 0.1006489849298305D-01 - ws( 36) = 0.1017017112346906D-01 - ws( 37) = 0.1027336545581563D-01 - ws( 38) = 0.1037556945068694D-01 - ws( 39) = 0.1047778625168300D-01 - ws( 40) = 0.1058101077281325D-01 - ws( 41) = 0.1068633080254720D-01 - ws( 42) = 0.1079507137076919D-01 - ws( 43) = 0.1090840689208649D-01 - ws( 44) = 0.1103242837611857D-01 - ws( 45) = 0.1115185211871487D-01 - ws( 46) = 0.1130646367598433D-01 - ws( 47) = 0.1152654835647014D-01 - ws( 48) = 0.1075067289362878D-01 - endif - - - if( iquad .eq. 105 ) then - idomain = 105 - rk0r = 0.6283185307180586D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 47 - err = 0.7436384699366345D-09 - ierq = 4 - xs( 1) = 0.2535176761694577D-04 - xs( 2) = 0.1340786658383027D-03 - xs( 3) = 0.3317602588973463D-03 - xs( 4) = 0.6221012955337332D-03 - xs( 5) = 0.1010638898808614D-02 - xs( 6) = 0.1505050333559624D-02 - xs( 7) = 0.2115530647815660D-02 - xs( 8) = 0.2855285002379744D-02 - xs( 9) = 0.3741160973607009D-02 - xs( 10) = 0.4794449815245385D-02 - xs( 11) = 0.6041886518504410D-02 - xs( 12) = 0.7516866720832738D-02 - xs( 13) = 0.9260855191239025D-02 - xs( 14) = 0.1132484803287157D-01 - xs( 15) = 0.1377050212971422D-01 - xs( 16) = 0.1667006818855950D-01 - xs( 17) = 0.2010352413926014D-01 - xs( 18) = 0.2415067691796352D-01 - xs( 19) = 0.2887688697614246D-01 - xs( 20) = 0.3431534237413170D-01 - xs( 21) = 0.4045472248908395D-01 - xs( 22) = 0.4724101404169061D-01 - xs( 23) = 0.5459286661529002D-01 - xs( 24) = 0.6242093810619830D-01 - xs( 25) = 0.7064229324115245D-01 - xs( 26) = 0.7918724678456339D-01 - xs( 27) = 0.8800056611452223D-01 - xs( 28) = 0.9703984789591508D-01 - xs( 29) = 0.1062730276671988D+00 - xs( 30) = 0.1156759839783195D+00 - xs( 31) = 0.1252305714036909D+00 - xs( 32) = 0.1349231211804797D+00 - xs( 33) = 0.1447433415174648D+00 - xs( 34) = 0.1546835283021583D+00 - xs( 35) = 0.1647380070034891D+00 - xs( 36) = 0.1749027450912894D+00 - xs( 37) = 0.1851750885831947D+00 - xs( 38) = 0.1955535897679065D+00 - xs( 39) = 0.2060379052547420D+00 - xs( 40) = 0.2166287560420554D+00 - xs( 41) = 0.2273278826286951D+00 - xs( 42) = 0.2381382201826241D+00 - xs( 43) = 0.2490635096267904D+00 - xs( 44) = 0.2601048552518216D+00 - xs( 45) = 0.2712618139298848D+00 - xs( 46) = 0.2824884903880060D+00 - xs( 47) = 0.2933424440815234D+00 - ws( 1) = 0.6511782139929627D-04 - ws( 2) = 0.1527231401675536D-03 - ws( 3) = 0.2432511386157611D-03 - ws( 4) = 0.3383490290950993D-03 - ws( 5) = 0.4399994878474576D-03 - ws( 6) = 0.5505144087720852D-03 - ws( 7) = 0.6726366116631109D-03 - ws( 8) = 0.8096667478978785D-03 - ws( 9) = 0.9656171233482193D-03 - ws( 10) = 0.1145396075124430D-02 - ws( 11) = 0.1355019519356677D-02 - ws( 12) = 0.1601826481507593D-02 - ws( 13) = 0.1894629055471346D-02 - ws( 14) = 0.2243630111109488D-02 - ws( 15) = 0.2659761830312654D-02 - ws( 16) = 0.3152826800495621D-02 - ws( 17) = 0.3727629800278292D-02 - ws( 18) = 0.4377888260681683D-02 - ws( 19) = 0.5080294870297026D-02 - ws( 20) = 0.5794697160353042D-02 - ws( 21) = 0.6474776944869825D-02 - ws( 22) = 0.7083901622888224D-02 - ws( 23) = 0.7604668350507271D-02 - ws( 24) = 0.8037544279182473D-02 - ws( 25) = 0.8393539060934558D-02 - ws( 26) = 0.8687194270913889D-02 - ws( 27) = 0.8932420782043711D-02 - ws( 28) = 0.9140839295893552D-02 - ws( 29) = 0.9321532808852203D-02 - ws( 30) = 0.9481380373009496D-02 - ws( 31) = 0.9625534464030500D-02 - ws( 32) = 0.9757862794915651D-02 - ws( 33) = 0.9881303168156995D-02 - ws( 34) = 0.9998131716435233D-02 - ws( 35) = 0.1011015962899049D-01 - ws( 36) = 0.1021887846904684D-01 - ws( 37) = 0.1032557094929399D-01 - ws( 38) = 0.1043139225015192D-01 - ws( 39) = 0.1053740150586438D-01 - ws( 40) = 0.1064457515145886D-01 - ws( 41) = 0.1075382910235530D-01 - ws( 42) = 0.1086708350092298D-01 - ws( 43) = 0.1098972834318494D-01 - ws( 44) = 0.1112681049241656D-01 - ws( 45) = 0.1130431007009733D-01 - ws( 46) = 0.1144612204487277D-01 - ws( 47) = 0.1030400535590049D-01 - endif - - - if( iquad .eq. 106 ) then - idomain = 106 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 44 - err = 0.5952548627384836D-09 - ierq = 4 - xs( 1) = 0.4095187304681274D-04 - xs( 2) = 0.2165906644371102D-03 - xs( 3) = 0.5359562319006826D-03 - xs( 4) = 0.1005076792569838D-02 - xs( 5) = 0.1632948199941351D-02 - xs( 6) = 0.2432014578830157D-02 - xs( 7) = 0.3418746511664564D-02 - xs( 8) = 0.4614370943315266D-02 - xs( 9) = 0.6045755046261576D-02 - xs( 10) = 0.7746412445958551D-02 - xs( 11) = 0.9757524419848007D-02 - xs( 12) = 0.1212870627102044D-01 - xs( 13) = 0.1491794237192270D-01 - xs( 14) = 0.1818965258052229D-01 - xs( 15) = 0.2200948932901833D-01 - xs( 16) = 0.2643499852001172D-01 - xs( 17) = 0.3150360041739925D-01 - xs( 18) = 0.3722255490230923D-01 - xs( 19) = 0.4356628280470506D-01 - xs( 20) = 0.5048264196759667D-01 - xs( 21) = 0.5790460905356115D-01 - xs( 22) = 0.6576193761033097D-01 - xs( 23) = 0.7398929885478285D-01 - xs( 24) = 0.8253030486658705D-01 - xs( 25) = 0.9133848408451281D-01 - xs( 26) = 0.1003765758684513D+00 - xs( 27) = 0.1096151565319575D+00 - xs( 28) = 0.1190311682402210D+00 - xs( 29) = 0.1286066065770242D+00 - xs( 30) = 0.1383274459428239D+00 - xs( 31) = 0.1481827996722644D+00 - xs( 32) = 0.1581642811627534D+00 - xs( 33) = 0.1682655264620595D+00 - xs( 34) = 0.1784818406543668D+00 - xs( 35) = 0.1888099372439912D+00 - xs( 36) = 0.1992477433041857D+00 - xs( 37) = 0.2097942215313288D+00 - xs( 38) = 0.2204492090671625D+00 - xs( 39) = 0.2312133216859340D+00 - xs( 40) = 0.2420862977684038D+00 - xs( 41) = 0.2530651477619640D+00 - xs( 42) = 0.2641322655038348D+00 - xs( 43) = 0.2751968616892156D+00 - xs( 44) = 0.2858140050753484D+00 - ws( 1) = 0.1051886411069965D-03 - ws( 2) = 0.2467189160355019D-03 - ws( 3) = 0.3930067848266429D-03 - ws( 4) = 0.5467262158305513D-03 - ws( 5) = 0.7110810409207718D-03 - ws( 6) = 0.8897846576275677D-03 - ws( 7) = 0.1087202241647622D-02 - ws( 8) = 0.1308507490348027D-02 - ws( 9) = 0.1559828716015705D-02 - ws( 10) = 0.1848335560662765D-02 - ws( 11) = 0.2182156225445305D-02 - ws( 12) = 0.2569900113110303D-02 - ws( 13) = 0.3019392538942064D-02 - ws( 14) = 0.3535128439226375D-02 - ws( 15) = 0.4114348542805824D-02 - ws( 16) = 0.4743088890610149D-02 - ws( 17) = 0.5395374034741620D-02 - ws( 18) = 0.6038156952350516D-02 - ws( 19) = 0.6640399055639456D-02 - ws( 20) = 0.7180945832931817D-02 - ws( 21) = 0.7651144158056871D-02 - ws( 22) = 0.8052560915842135D-02 - ws( 23) = 0.8392750815042376D-02 - ws( 24) = 0.8681530121491450D-02 - ws( 25) = 0.8928642404376986D-02 - ws( 26) = 0.9142662284213968D-02 - ws( 27) = 0.9330678095958009D-02 - ws( 28) = 0.9498362475364419D-02 - ws( 29) = 0.9650190532710840D-02 - ws( 30) = 0.9789684361406377D-02 - ws( 31) = 0.9919633411874731D-02 - ws( 32) = 0.1004227531881759D-01 - ws( 33) = 0.1015943825220034D-01 - ws( 34) = 0.1027265136608264D-01 - ws( 35) = 0.1038321985159088D-01 - ws( 36) = 0.1049229572059810D-01 - ws( 37) = 0.1060086759640084D-01 - ws( 38) = 0.1070969893108718D-01 - ws( 39) = 0.1081995107905035D-01 - ws( 40) = 0.1093698965005880D-01 - ws( 41) = 0.1106248278488890D-01 - ws( 42) = 0.1118989883703938D-01 - ws( 43) = 0.1123457397489849D-01 - ws( 44) = 0.9218288023799136D-02 - endif - - - if( iquad .eq. 107 ) then - idomain = 107 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 44 - err = 0.4406311345599664D-09 - ierq = 4 - xs( 1) = 0.5797111257756014D-04 - xs( 2) = 0.3065006801402638D-03 - xs( 3) = 0.7579721132461692D-03 - xs( 4) = 0.1420117181774438D-02 - xs( 5) = 0.2304363512329390D-02 - xs( 6) = 0.3426296915651118D-02 - xs( 7) = 0.4806096182209342D-02 - xs( 8) = 0.6468913251044117D-02 - xs( 9) = 0.8445046749775920D-02 - xs( 10) = 0.1076966149305386D-01 - xs( 11) = 0.1348171746204685D-01 - xs( 12) = 0.1662177066949606D-01 - xs( 13) = 0.2022852250698791D-01 - xs( 14) = 0.2433446754546887D-01 - xs( 15) = 0.2896153202572983D-01 - xs( 16) = 0.3411785850618197D-01 - xs( 17) = 0.3979665568408073D-01 - xs( 18) = 0.4597738074302010D-01 - xs( 19) = 0.5262878096659076D-01 - xs( 20) = 0.5971285038003912D-01 - xs( 21) = 0.6718872411625347D-01 - xs( 22) = 0.7501583963065322D-01 - xs( 23) = 0.8315610162868586D-01 - xs( 24) = 0.9157510393121114D-01 - xs( 25) = 0.1002426209324722D+00 - xs( 26) = 0.1091326130061166D+00 - xs( 27) = 0.1182229529816459D+00 - xs( 28) = 0.1274950221034528D+00 - xs( 29) = 0.1369332694483698D+00 - xs( 30) = 0.1465247876910834D+00 - xs( 31) = 0.1562589307228984D+00 - xs( 32) = 0.1661269819228447D+00 - xs( 33) = 0.1761218703283725D+00 - xs( 34) = 0.1862379240078361D+00 - xs( 35) = 0.1964706483757732D+00 - xs( 36) = 0.2068165168800867D+00 - xs( 37) = 0.2172727123880884D+00 - xs( 38) = 0.2278367216675464D+00 - xs( 39) = 0.2385053414031310D+00 - xs( 40) = 0.2492721410350917D+00 - xs( 41) = 0.2601256860435845D+00 - xs( 42) = 0.2710263633789127D+00 - xs( 43) = 0.2817718483816688D+00 - xs( 44) = 0.2919850896668246D+00 - ws( 1) = 0.1488924635665106D-03 - ws( 2) = 0.3489903517101528D-03 - ws( 3) = 0.5552286594843846D-03 - ws( 4) = 0.7709590496786428D-03 - ws( 5) = 0.1000123840362650D-02 - ws( 6) = 0.1247099406340773D-02 - ws( 7) = 0.1516687637838734D-02 - ws( 8) = 0.1814000115347959D-02 - ws( 9) = 0.2144144640954895D-02 - ws( 10) = 0.2511614410199032D-02 - ws( 11) = 0.2919315164366525D-02 - ws( 12) = 0.3367316266007146D-02 - ws( 13) = 0.3851678838144247D-02 - ws( 14) = 0.4363921573648054D-02 - ws( 15) = 0.4891584324270166D-02 - ws( 16) = 0.5419915797190101D-02 - ws( 17) = 0.5934201617422638D-02 - ws( 18) = 0.6421971297833470D-02 - ws( 19) = 0.6874428281885059D-02 - ws( 20) = 0.7286846467649425D-02 - ws( 21) = 0.7658104694680056D-02 - ws( 22) = 0.7989757312621021D-02 - ws( 23) = 0.8285024737407266D-02 - ws( 24) = 0.8547942676944113D-02 - ws( 25) = 0.8782756298267162D-02 - ws( 26) = 0.8993546944118589D-02 - ws( 27) = 0.9184037353501803D-02 - ws( 28) = 0.9357516208471865D-02 - ws( 29) = 0.9516833713867436D-02 - ws( 30) = 0.9664434117946114D-02 - ws( 31) = 0.9802403147938950D-02 - ws( 32) = 0.9932518642657245D-02 - ws( 33) = 0.1005630285030310D-01 - ws( 34) = 0.1017505410543790D-01 - ws( 35) = 0.1028984292467383D-01 - ws( 36) = 0.1040148951593802D-01 - ws( 37) = 0.1051071404523210D-01 - ws( 38) = 0.1061778790464653D-01 - ws( 39) = 0.1072408490354374D-01 - ws( 40) = 0.1082510156419317D-01 - ws( 41) = 0.1091705501456836D-01 - ws( 42) = 0.1099362422935711D-01 - ws( 43) = 0.1069413113515145D-01 - ws( 44) = 0.6978482185049650D-02 - endif - - - if( iquad .eq. 108 ) then - idomain = 108 - rk0r = 0.6283185307180586D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 44 - err = 0.1218025805836185D-10 - ierq = 0 - xs( 1) = 0.8976704213932878D-04 - xs( 2) = 0.4740245880298953D-03 - xs( 3) = 0.1169593068820514D-02 - xs( 4) = 0.2183853914754442D-02 - xs( 5) = 0.3527046764484821D-02 - xs( 6) = 0.5212013738677298D-02 - xs( 7) = 0.7253563533944006D-02 - xs( 8) = 0.9667520865275132D-02 - xs( 9) = 0.1246950894034379D-01 - xs( 10) = 0.1567358767927404D-01 - xs( 11) = 0.1929092507862150D-01 - xs( 12) = 0.2332868520109110D-01 - xs( 13) = 0.2778927420750557D-01 - xs( 14) = 0.3267001661102362D-01 - xs( 15) = 0.3796326179644353D-01 - xs( 16) = 0.4365686162101867D-01 - xs( 17) = 0.4973492051044378D-01 - xs( 18) = 0.5617870183203790D-01 - xs( 19) = 0.6296757731686538D-01 - xs( 20) = 0.7007992558681175D-01 - xs( 21) = 0.7749391448452417D-01 - xs( 22) = 0.8518813233424277D-01 - xs( 23) = 0.9314205949830032D-01 - xs( 24) = 0.1013363904426073D+00 - xs( 25) = 0.1097532274667386D+00 - xs( 26) = 0.1183761715369232D+00 - xs( 27) = 0.1271903352370168D+00 - xs( 28) = 0.1361822996444123D+00 - xs( 29) = 0.1453400324490076D+00 - xs( 30) = 0.1546527795624507D+00 - xs( 31) = 0.1641109371535790D+00 - xs( 32) = 0.1737059064881503D+00 - xs( 33) = 0.1834299313350208D+00 - xs( 34) = 0.1932759023815073D+00 - xs( 35) = 0.2032370854984953D+00 - xs( 36) = 0.2133067924868129D+00 - xs( 37) = 0.2234779623120179D+00 - xs( 38) = 0.2337421701775032D+00 - xs( 39) = 0.2440854542183774D+00 - xs( 40) = 0.2544832854067333D+00 - xs( 41) = 0.2648981024897851D+00 - xs( 42) = 0.2752020086137457D+00 - xs( 43) = 0.2850527988864638D+00 - xs( 44) = 0.2941925435218082D+00 - ws( 1) = 0.2304908278950175D-03 - ws( 2) = 0.5389121833542264D-03 - ws( 3) = 0.8534461011289813D-03 - ws( 4) = 0.1176787481685694D-02 - ws( 5) = 0.1511749148275815D-02 - ws( 6) = 0.1860668859711504D-02 - ws( 7) = 0.2225088777660176D-02 - ws( 8) = 0.2605452893184197D-02 - ws( 9) = 0.3000889178550323D-02 - ws( 10) = 0.3409148513174842D-02 - ws( 11) = 0.3826733034299886D-02 - ws( 12) = 0.4249193627493477D-02 - ws( 13) = 0.4671536546457289D-02 - ws( 14) = 0.5088664954472147D-02 - ws( 15) = 0.5495787939171926D-02 - ws( 16) = 0.5888747065112151D-02 - ws( 17) = 0.6264231890521333D-02 - ws( 18) = 0.6619877576429743D-02 - ws( 19) = 0.6954256710388717D-02 - ws( 20) = 0.7266790598260352D-02 - ws( 21) = 0.7557610752458148D-02 - ws( 22) = 0.7827399691293337D-02 - ws( 23) = 0.8077233878876501D-02 - ws( 24) = 0.8308443602602541D-02 - ws( 25) = 0.8522497100658008D-02 - ws( 26) = 0.8720910542464027D-02 - ws( 27) = 0.8905181780148866D-02 - ws( 28) = 0.9076743699167450D-02 - ws( 29) = 0.9236932317666369D-02 - ws( 30) = 0.9386964865497709D-02 - ws( 31) = 0.9527921584298974D-02 - ws( 32) = 0.9660720097024336D-02 - ws( 33) = 0.9786084703170213D-02 - ws( 34) = 0.9904541271751372D-02 - ws( 35) = 0.1001633753550800D-01 - ws( 36) = 0.1012123753736837D-01 - ws( 37) = 0.1021906993302843D-01 - ws( 38) = 0.1031345154440767D-01 - ws( 39) = 0.1041087691740025D-01 - ws( 40) = 0.1050266687289164D-01 - ws( 41) = 0.1058564816571429D-01 - ws( 42) = 0.1062629934261558D-01 - ws( 43) = 0.9373672589237197D-02 - ws( 44) = 0.4703924107390432D-02 - endif - - - if( iquad .eq. 109 ) then - idomain = 109 - rk0r = 0.6283185307180586D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 37 - err = 0.7062391675575914D-11 - ierq = 0 - xs( 1) = 0.1245143628645840D-03 - xs( 2) = 0.6563219726954668D-03 - xs( 3) = 0.1614079627420738D-02 - xs( 4) = 0.2999402732816543D-02 - xs( 5) = 0.4813733412685242D-02 - xs( 6) = 0.7057973676243872D-02 - xs( 7) = 0.9731961872732233D-02 - xs( 8) = 0.1283399918786137D-01 - xs( 9) = 0.1636048546439304D-01 - xs( 10) = 0.2030569284735384D-01 - xs( 11) = 0.2466168465880966D-01 - xs( 12) = 0.2941837107092332D-01 - xs( 13) = 0.3456368230706381D-01 - xs( 14) = 0.4008383354391775D-01 - xs( 15) = 0.4596365256786294D-01 - xs( 16) = 0.5218694095381582D-01 - xs( 17) = 0.5873684165464631D-01 - xs( 18) = 0.6559618991933965D-01 - xs( 19) = 0.7274782971160619D-01 - xs( 20) = 0.8017488345517552D-01 - xs( 21) = 0.8786096818396877D-01 - xs( 22) = 0.9579035543384841D-01 - xs( 23) = 0.1039480749593872D+00 - xs( 24) = 0.1123199629808634D+00 - xs( 25) = 0.1208926542140392D+00 - xs( 26) = 0.1296535144743006D+00 - xs( 27) = 0.1385905009875123D+00 - xs( 28) = 0.1476919154272136D+00 - xs( 29) = 0.1569460132241898D+00 - xs( 30) = 0.1663403633515048D+00 - xs( 31) = 0.1758603013523269D+00 - xs( 32) = 0.1854859581211012D+00 - xs( 33) = 0.1951881714460870D+00 - xs( 34) = 0.2049067384836961D+00 - xs( 35) = 0.2144955427872668D+00 - xs( 36) = 0.2237633868417974D+00 - xs( 37) = 0.2326177243524596D+00 - ws( 1) = 0.3195748439350327D-03 - ws( 2) = 0.7444954349725763D-03 - ws( 3) = 0.1171280472752457D-02 - ws( 4) = 0.1599614099555441D-02 - ws( 5) = 0.2029206588974157D-02 - ws( 6) = 0.2459255017832341D-02 - ws( 7) = 0.2888444374700317D-02 - ws( 8) = 0.3315034017422851D-02 - ws( 9) = 0.3736985223147782D-02 - ws( 10) = 0.4152105787748371D-02 - ws( 11) = 0.4558193247491438D-02 - ws( 12) = 0.4953163461584591D-02 - ws( 13) = 0.5335156007838216D-02 - ws( 14) = 0.5702611677859555D-02 - ws( 15) = 0.6054320448906667D-02 - ws( 16) = 0.6389440919724728D-02 - ws( 17) = 0.6707494379958346D-02 - ws( 18) = 0.7008338282110696D-02 - ws( 19) = 0.7292124722687750D-02 - ws( 20) = 0.7559249536678934D-02 - ws( 21) = 0.7810296782304676D-02 - ws( 22) = 0.8045982047238599D-02 - ws( 23) = 0.8267096931860285D-02 - ws( 24) = 0.8474455333481580D-02 - ws( 25) = 0.8668836688275953D-02 - ws( 26) = 0.8850919744047028D-02 - ws( 27) = 0.9021209034884509D-02 - ws( 28) = 0.9179915808114007D-02 - ws( 29) = 0.9326738711400055D-02 - ws( 30) = 0.9461011761028100D-02 - ws( 31) = 0.9581725726293790D-02 - ws( 32) = 0.9682580918414927D-02 - ws( 33) = 0.9749569938281834D-02 - ws( 34) = 0.9744079433057103D-02 - ws( 35) = 0.9289311374875786D-02 - ws( 36) = 0.7225422047603351D-02 - ws( 37) = 0.3165715965827476D-02 - endif - - - if( iquad .eq. 110 ) then - idomain = 110 - rk0r = 0.6283185307180586D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 32 - err = 0.1952032085005868D-10 - ierq = 0 - xs( 1) = 0.1386566755052035D-03 - xs( 2) = 0.7299034430388765D-03 - xs( 3) = 0.1790894273140858D-02 - xs( 4) = 0.3317326494568010D-02 - xs( 5) = 0.5302870672737312D-02 - xs( 6) = 0.7739525062639237D-02 - xs( 7) = 0.1061780753630855D-01 - xs( 8) = 0.1392692883595623D-01 - xs( 9) = 0.1765495644416582D-01 - xs( 10) = 0.2178897285320069D-01 - xs( 11) = 0.2631523194662384D-01 - xs( 12) = 0.3121931598110211D-01 - xs( 13) = 0.3648629342926980D-01 - xs( 14) = 0.4210087552241687D-01 - xs( 15) = 0.4804756728913549D-01 - xs( 16) = 0.5431080756637657D-01 - xs( 17) = 0.6087509131745922D-01 - xs( 18) = 0.6772506618772556D-01 - xs( 19) = 0.7484559448005335D-01 - xs( 20) = 0.8222177125775687D-01 - xs( 21) = 0.8983888133837456D-01 - xs( 22) = 0.9768226032493875D-01 - xs( 23) = 0.1057370232484869D+00 - xs( 24) = 0.1139875777764766D+00 - xs( 25) = 0.1224165355137958D+00 - xs( 26) = 0.1310025586560370D+00 - xs( 27) = 0.1397168763691044D+00 - xs( 28) = 0.1485129801494679D+00 - xs( 29) = 0.1573031136403427D+00 - xs( 30) = 0.1659626271879919D+00 - xs( 31) = 0.1743983868068168D+00 - xs( 32) = 0.1825829101379038D+00 - ws( 1) = 0.3557610022258324D-03 - ws( 2) = 0.8266278511059771D-03 - ws( 3) = 0.1294616049937229D-02 - ws( 4) = 0.1757189361378571D-02 - ws( 5) = 0.2212562227667185D-02 - ws( 6) = 0.2659163283347142D-02 - ws( 7) = 0.3095600682937189D-02 - ws( 8) = 0.3520650494709037D-02 - ws( 9) = 0.3933249165040165D-02 - ws( 10) = 0.4332489938075264D-02 - ws( 11) = 0.4717622530231618D-02 - ws( 12) = 0.5088054166318323D-02 - ws( 13) = 0.5443349757812870D-02 - ws( 14) = 0.5783228992177107D-02 - ws( 15) = 0.6107558139078523D-02 - ws( 16) = 0.6416335335852640D-02 - ws( 17) = 0.6709669716152988D-02 - ws( 18) = 0.6987753522716919D-02 - ws( 19) = 0.7250821400710494D-02 - ws( 20) = 0.7499097198440765D-02 - ws( 21) = 0.7732742842133129D-02 - ws( 22) = 0.7951786066990487D-02 - ws( 23) = 0.8155977150660682D-02 - ws( 24) = 0.8344795836711740D-02 - ws( 25) = 0.8517359610932274D-02 - ws( 26) = 0.8669586042139870D-02 - ws( 27) = 0.8788335383920673D-02 - ws( 28) = 0.8832880933114030D-02 - ws( 29) = 0.8607308524336011D-02 - ws( 30) = 0.7522055134110767D-02 - ws( 31) = 0.4983007914591077D-02 - ws( 32) = 0.1778566097847503D-02 - endif - - - if( iquad .eq. 111 ) then - idomain = 111 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 51 - err = 0.2884241512242463D-10 - ierq = 0 - xs( 1) = 0.8211613947392708D-05 - xs( 2) = 0.4338049115571911D-04 - xs( 3) = 0.1071222293494584D-03 - xs( 4) = 0.2002776731374573D-03 - xs( 5) = 0.3240901189967884D-03 - xs( 6) = 0.4802696490470433D-03 - xs( 7) = 0.6710673595396187D-03 - xs( 8) = 0.8993723528340573D-03 - xs( 9) = 0.1168837893243793D-02 - xs( 10) = 0.1484045071996450D-02 - xs( 11) = 0.1850715578171824D-02 - xs( 12) = 0.2275989600257556D-02 - xs( 13) = 0.2768790871445560D-02 - xs( 14) = 0.3340308981255912D-02 - xs( 15) = 0.4004639971518364D-02 - xs( 16) = 0.4779640537078170D-02 - xs( 17) = 0.5688069021263459D-02 - xs( 18) = 0.6759106488418123D-02 - xs( 19) = 0.8030368194182446D-02 - xs( 20) = 0.9550515192213827D-02 - xs( 21) = 0.1138252231616804D-01 - xs( 22) = 0.1360747235849845D-01 - xs( 23) = 0.1632825398749123D-01 - xs( 24) = 0.1967139894755750D-01 - xs( 25) = 0.2378299777201648D-01 - xs( 26) = 0.2881135231890233D-01 - xs( 27) = 0.3486903182395187D-01 - xs( 28) = 0.4198156845567037D-01 - xs( 29) = 0.5005829688033325D-01 - xs( 30) = 0.5891937678877959D-01 - xs( 31) = 0.6836037609275966D-01 - xs( 32) = 0.7820481037612637D-01 - xs( 33) = 0.8832326805203805D-01 - xs( 34) = 0.9862966606842143D-01 - xs( 35) = 0.1090700216417101D+00 - xs( 36) = 0.1196118282828102D+00 - xs( 37) = 0.1302362683032384D+00 - xs( 38) = 0.1409330816480563D+00 - xs( 39) = 0.1516973542867628D+00 - xs( 40) = 0.1625275647951241D+00 - xs( 41) = 0.1734244236677111D+00 - xs( 42) = 0.1843902107341615D+00 - xs( 43) = 0.1954284250556386D+00 - xs( 44) = 0.2065436539135349D+00 - xs( 45) = 0.2177415459821024D+00 - xs( 46) = 0.2290290006692096D+00 - xs( 47) = 0.2404142947519946D+00 - xs( 48) = 0.2519067445329712D+00 - xs( 49) = 0.2635187387747140D+00 - xs( 50) = 0.2752348582441381D+00 - xs( 51) = 0.2867527886543657D+00 - ws( 1) = 0.2108661103007351D-04 - ws( 2) = 0.4934478475318857D-04 - ws( 3) = 0.7827716570214096D-04 - ws( 4) = 0.1082399827452259D-03 - ws( 5) = 0.1396687010153249D-03 - ws( 6) = 0.1730639394631363D-03 - ws( 7) = 0.2090109154548637D-03 - ws( 8) = 0.2482052479354969D-03 - ws( 9) = 0.2914858394524413D-03 - ws( 10) = 0.3398775527860512D-03 - ws( 11) = 0.3946474775059740D-03 - ws( 12) = 0.4573799132882379D-03 - ws( 13) = 0.5300770142829087D-03 - ws( 14) = 0.6152944820972737D-03 - ws( 15) = 0.7163248203624355D-03 - ws( 16) = 0.8374442850918058D-03 - ws( 17) = 0.9842429488752390D-03 - ws( 18) = 0.1164057848431996D-02 - ws( 19) = 0.1386521071468351D-02 - ws( 20) = 0.1664204251210267D-02 - ws( 21) = 0.2013258432421711D-02 - ws( 22) = 0.2453750100665316D-02 - ws( 23) = 0.3008951833510770D-02 - ws( 24) = 0.3701952291881798D-02 - ws( 25) = 0.4546601687997379D-02 - ws( 26) = 0.5529820045274517D-02 - ws( 27) = 0.6590394838516585D-02 - ws( 28) = 0.7619059299959094D-02 - ws( 29) = 0.8503194877233994D-02 - ws( 30) = 0.9183970425796825D-02 - ws( 31) = 0.9668335097315210D-02 - ws( 32) = 0.9999067626629042D-02 - ws( 33) = 0.1022370541860642D-01 - ws( 34) = 0.1038027435303979D-01 - ws( 35) = 0.1049514773524199D-01 - ws( 36) = 0.1058541282218130D-01 - ws( 37) = 0.1066180910569729D-01 - ws( 38) = 0.1073103001311220D-01 - ws( 39) = 0.1079728024140969D-01 - ws( 40) = 0.1086326983175511D-01 - ws( 41) = 0.1093083578363930D-01 - ws( 42) = 0.1100133189840565D-01 - ws( 43) = 0.1107587779600081D-01 - ws( 44) = 0.1115559959581998D-01 - ws( 45) = 0.1124171234498813D-01 - ws( 46) = 0.1133558620698914D-01 - ws( 47) = 0.1144038717569601D-01 - ws( 48) = 0.1155392015732922D-01 - ws( 49) = 0.1171784874881853D-01 - ws( 50) = 0.1203439650431620D-01 - ws( 51) = 0.1176323698770362D-01 - endif - - - if( iquad .eq. 112 ) then - idomain = 112 - rk0r = 0.9424777960770379D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 51 - err = 0.1406783445763186D-10 - ierq = 0 - xs( 1) = 0.8327267286601337D-05 - xs( 2) = 0.4399203400847380D-04 - xs( 3) = 0.1086344760614054D-03 - xs( 4) = 0.2031091163064183D-03 - xs( 5) = 0.3286762149886247D-03 - xs( 6) = 0.4870637146647482D-03 - xs( 7) = 0.6805383540168246D-03 - xs( 8) = 0.9119988911761275D-03 - xs( 9) = 0.1185097595508124D-02 - xs( 10) = 0.1504397841403353D-02 - xs( 11) = 0.1875578541271930D-02 - xs( 12) = 0.2305700104797972D-02 - xs( 13) = 0.2803551908445001D-02 - xs( 14) = 0.3380108334938302D-02 - xs( 15) = 0.4049129781730901D-02 - xs( 16) = 0.4827957037279964D-02 - xs( 17) = 0.5738562038189635D-02 - xs( 18) = 0.6808933920718956D-02 - xs( 19) = 0.8074891980235682D-02 - xs( 20) = 0.9582414918864737D-02 - xs( 21) = 0.1139053078204889D-01 - xs( 22) = 0.1357466140246477D-01 - xs( 23) = 0.1622992261834845D-01 - xs( 24) = 0.1947297741851640D-01 - xs( 25) = 0.2343923020439090D-01 - xs( 26) = 0.2826948606871849D-01 - xs( 27) = 0.3407943901144298D-01 - xs( 28) = 0.4091461981770658D-01 - xs( 29) = 0.4871621435046231D-01 - xs( 30) = 0.5733194139436958D-01 - xs( 31) = 0.6656948020676766D-01 - xs( 32) = 0.7625093348713828D-01 - xs( 33) = 0.8623932575485788D-01 - xs( 34) = 0.9644021739667802D-01 - xs( 35) = 0.1067926554804371D+00 - xs( 36) = 0.1172589185121419D+00 - xs( 37) = 0.1278164462473953D+00 - xs( 38) = 0.1384523113308119D+00 - xs( 39) = 0.1491596699437814D+00 - xs( 40) = 0.1599355584855646D+00 - xs( 41) = 0.1707795558834150D+00 - xs( 42) = 0.1816929897888023D+00 - xs( 43) = 0.1926784884068251D+00 - xs( 44) = 0.2037397312482408D+00 - xs( 45) = 0.2148813327713548D+00 - xs( 46) = 0.2261088592585497D+00 - xs( 47) = 0.2374283855882925D+00 - xs( 48) = 0.2488440476932839D+00 - xs( 49) = 0.2603624841438699D+00 - xs( 50) = 0.2719393914351028D+00 - xs( 51) = 0.2831899175703282D+00 - ws( 1) = 0.2138366552255131D-04 - ws( 2) = 0.5004115587834407D-04 - ws( 3) = 0.7938449867336535D-04 - ws( 4) = 0.1097739115684731D-03 - ws( 5) = 0.1416471064754333D-03 - ws( 6) = 0.1755041425764693D-03 - ws( 7) = 0.2119262559021813D-03 - ws( 8) = 0.2516009285816549D-03 - ws( 9) = 0.2953536697071358D-03 - ws( 10) = 0.3441889217105768D-03 - ws( 11) = 0.3993434853414915D-03 - ws( 12) = 0.4623570227123644D-03 - ws( 13) = 0.5351657456796548D-03 - ws( 14) = 0.6202274165980981D-03 - ws( 15) = 0.7206882844723091D-03 - ws( 16) = 0.8406053382216816D-03 - ws( 17) = 0.9852395311582473D-03 - ws( 18) = 0.1161435438417084D-02 - ws( 19) = 0.1378095465524618D-02 - ws( 20) = 0.1646731680201277D-02 - ws( 21) = 0.1982012375313929D-02 - ws( 22) = 0.2402063465828949D-02 - ws( 23) = 0.2927935323471893D-02 - ws( 24) = 0.3580944444897847D-02 - ws( 25) = 0.4375535230818161D-02 - ws( 26) = 0.5305073184862460D-02 - ws( 27) = 0.6323099317764697D-02 - ws( 28) = 0.7337275780487072D-02 - ws( 29) = 0.8239511804257721D-02 - ws( 30) = 0.8958905600916906D-02 - ws( 31) = 0.9486101438119511D-02 - ws( 32) = 0.9853988997122870D-02 - ws( 33) = 0.1010722840265311D-01 - ws( 34) = 0.1028457355978618D-01 - ws( 35) = 0.1041415024200758D-01 - ws( 36) = 0.1051470631285298D-01 - ws( 37) = 0.1059825222285194D-01 - ws( 38) = 0.1067237301634868D-01 - ws( 39) = 0.1074187227591119D-01 - ws( 40) = 0.1080984853971708D-01 - ws( 41) = 0.1087837837313449D-01 - ws( 42) = 0.1094894051956315D-01 - ws( 43) = 0.1102269866943710D-01 - ws( 44) = 0.1110067063267135D-01 - ws( 45) = 0.1118375518058016D-01 - ws( 46) = 0.1127307658237889D-01 - ws( 47) = 0.1137178703140169D-01 - ws( 48) = 0.1148059303926279D-01 - ws( 49) = 0.1161028213060568D-01 - ws( 50) = 0.1182409568024067D-01 - ws( 51) = 0.1088488659747265D-01 - endif - - - if( iquad .eq. 113 ) then - idomain = 113 - rk0r = 0.9424777960770379D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 52 - err = 0.4952801213280701D-09 - ierq = 4 - xs( 1) = 0.9053322047182500D-05 - xs( 2) = 0.4782691514184930D-04 - xs( 3) = 0.1181009207555501D-03 - xs( 4) = 0.2207988929954924D-03 - xs( 5) = 0.3572830023289377D-03 - xs( 6) = 0.5294211317899958D-03 - xs( 7) = 0.7396636496464207D-03 - xs( 8) = 0.9911438295199528D-03 - xs( 9) = 0.1287808524723446D-02 - xs( 10) = 0.1634587514681567D-02 - xs( 11) = 0.2037613062080776D-02 - xs( 12) = 0.2504505446143291D-02 - xs( 13) = 0.3044745888173463D-02 - xs( 14) = 0.3670165803721355D-02 - xs( 15) = 0.4395591159811791D-02 - xs( 16) = 0.5239693147603166D-02 - xs( 17) = 0.6226110941867573D-02 - xs( 18) = 0.7384926607548394D-02 - xs( 19) = 0.8754579193441020D-02 - xs( 20) = 0.1038428738337285D-01 - xs( 21) = 0.1233696871290993D-01 - xs( 22) = 0.1469241592209099D-01 - xs( 23) = 0.1754995578142229D-01 - xs( 24) = 0.2102869940975118D-01 - xs( 25) = 0.2526153945789938D-01 - xs( 26) = 0.3037693912343192D-01 - xs( 27) = 0.3646446492227375D-01 - xs( 28) = 0.4353362294959638D-01 - xs( 29) = 0.5149539642171733D-01 - xs( 30) = 0.6018874916624437D-01 - xs( 31) = 0.6943368434207609D-01 - xs( 32) = 0.7907336724431349D-01 - xs( 33) = 0.8899012908074999D-01 - xs( 34) = 0.9910326817446032D-01 - xs( 35) = 0.1093603238364817D+00 - xs( 36) = 0.1197283415099673D+00 - xs( 37) = 0.1301871937055557D+00 - xs( 38) = 0.1407250127589574D+00 - xs( 39) = 0.1513352314057063D+00 - xs( 40) = 0.1620147189151105D+00 - xs( 41) = 0.1727626299700293D+00 - xs( 42) = 0.1835797084319604D+00 - xs( 43) = 0.1944678845458311D+00 - xs( 44) = 0.2054300617951715D+00 - xs( 45) = 0.2164700163315667D+00 - xs( 46) = 0.2275924201533099D+00 - xs( 47) = 0.2388027919243459D+00 - xs( 48) = 0.2501073008242618D+00 - xs( 49) = 0.2615123380750241D+00 - xs( 50) = 0.2730222116105370D+00 - xs( 51) = 0.2845865890863873D+00 - xs( 52) = 0.2958264746479419D+00 - ws( 1) = 0.2324801837530417D-04 - ws( 2) = 0.5440225612917908D-04 - ws( 3) = 0.8629788774788839D-04 - ws( 4) = 0.1193240957555327D-03 - ws( 5) = 0.1539541738081049D-03 - ws( 6) = 0.1907288207828466D-03 - ws( 7) = 0.2302762689469429D-03 - ws( 8) = 0.2733391042985562D-03 - ws( 9) = 0.3208082937062589D-03 - ws( 10) = 0.3737670213554113D-03 - ws( 11) = 0.4335479725122784D-03 - ws( 12) = 0.5018089362201534D-03 - ws( 13) = 0.5806332321076429D-03 - ws( 14) = 0.6726635720245850D-03 - ws( 15) = 0.7812804855421575D-03 - ws( 16) = 0.9108389863179775D-03 - ws( 17) = 0.1066978565678847D-02 - ws( 18) = 0.1257018920170826D-02 - ws( 19) = 0.1490440254936777D-02 - ws( 20) = 0.1779407820806585D-02 - ws( 21) = 0.2139205182989875D-02 - ws( 22) = 0.2588230668799296D-02 - ws( 23) = 0.3146785685927895D-02 - ws( 24) = 0.3833139016111591D-02 - ws( 25) = 0.4654542842927279D-02 - ws( 26) = 0.5591952356898932D-02 - ws( 27) = 0.6585066276891199D-02 - ws( 28) = 0.7537914611557197D-02 - ws( 29) = 0.8357796129127794D-02 - ws( 30) = 0.8998175282700964D-02 - ws( 31) = 0.9465318264970605D-02 - ws( 32) = 0.9794503366959152D-02 - ws( 33) = 0.1002573004373384D-01 - ws( 34) = 0.1019195409435949D-01 - ws( 35) = 0.1031677571488059D-01 - ws( 36) = 0.1041597978537470D-01 - ws( 37) = 0.1049979471680254D-01 - ws( 38) = 0.1057477894900677D-01 - ws( 39) = 0.1064515504758674D-01 - ws( 40) = 0.1071369012261296D-01 - ws( 41) = 0.1078226207294100D-01 - ws( 42) = 0.1085222191557714D-01 - ws( 43) = 0.1092461943385320D-01 - ws( 44) = 0.1100038140907002D-01 - ws( 45) = 0.1108042061413982D-01 - ws( 46) = 0.1116560014782396D-01 - ws( 47) = 0.1125715795087526D-01 - ws( 48) = 0.1135775100984523D-01 - ws( 49) = 0.1146407649200484D-01 - ws( 50) = 0.1161703002213354D-01 - ws( 51) = 0.1181789784445044D-01 - ws( 52) = 0.1085805277814314D-01 - endif - - - if( iquad .eq. 114 ) then - idomain = 114 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 52 - err = 0.3947726119822883D-09 - ierq = 4 - xs( 1) = 0.9620887175011773D-05 - xs( 2) = 0.5083539574013310D-04 - xs( 3) = 0.1255725511704401D-03 - xs( 4) = 0.2348733141382221D-03 - xs( 5) = 0.3802554118901193D-03 - xs( 6) = 0.5637709673230357D-03 - xs( 7) = 0.7880739375810741D-03 - xs( 8) = 0.1056512978821944D-02 - xs( 9) = 0.1373256480138316D-02 - xs( 10) = 0.1743457520768744D-02 - xs( 11) = 0.2173469089732130D-02 - xs( 12) = 0.2671123733069819D-02 - xs( 13) = 0.3246097014539135D-02 - xs( 14) = 0.3910381073176364D-02 - xs( 15) = 0.4678903460153146D-02 - xs( 16) = 0.5570337516373031D-02 - xs( 17) = 0.6608163391343636D-02 - xs( 18) = 0.7822051347776672D-02 - xs( 19) = 0.9249645236564848D-02 - xs( 20) = 0.1093880890315983D-01 - xs( 21) = 0.1295032669295805D-01 - xs( 22) = 0.1536084341041456D-01 - xs( 23) = 0.1826532898048450D-01 - xs( 24) = 0.2177728247692682D-01 - xs( 25) = 0.2602300900466526D-01 - xs( 26) = 0.3112437175421760D-01 - xs( 27) = 0.3716654799882044D-01 - xs( 28) = 0.4416017189941623D-01 - xs( 29) = 0.5202452857815237D-01 - xs( 30) = 0.6061110074922006D-01 - xs( 31) = 0.6975125967834943D-01 - xs( 32) = 0.7929526750787545D-01 - xs( 33) = 0.8912838322743116D-01 - xs( 34) = 0.9917014253542625D-01 - xs( 35) = 0.1093670062012519D+00 - xs( 36) = 0.1196844817947475D+00 - xs( 37) = 0.1301008748968470D+00 - xs( 38) = 0.1406028998254242D+00 - xs( 39) = 0.1511827712316317D+00 - xs( 40) = 0.1618363345112061D+00 - xs( 41) = 0.1725618867191921D+00 - xs( 42) = 0.1833594457762515D+00 - xs( 43) = 0.1942303098706728D+00 - xs( 44) = 0.2051768121719997D+00 - xs( 45) = 0.2162021649856201D+00 - xs( 46) = 0.2273105014118487D+00 - xs( 47) = 0.2385066021950396D+00 - xs( 48) = 0.2497960242487638D+00 - xs( 49) = 0.2611832843869285D+00 - xs( 50) = 0.2726685106976118D+00 - xs( 51) = 0.2841930071594444D+00 - xs( 52) = 0.2953699709614260D+00 - ws( 1) = 0.2470664571873670D-04 - ws( 2) = 0.5783827048480336D-04 - ws( 3) = 0.9180782563112668D-04 - ws( 4) = 0.1270458355456914D-03 - ws( 5) = 0.1640592759822182D-03 - ws( 6) = 0.2034126281376890D-03 - ws( 7) = 0.2457493558024431D-03 - ws( 8) = 0.2918207330485710D-03 - ws( 9) = 0.3425215623119489D-03 - ws( 10) = 0.3989347351605152D-03 - ws( 11) = 0.4623878312063034D-03 - ws( 12) = 0.5345262396691349D-03 - ws( 13) = 0.6174088085068967D-03 - ws( 14) = 0.7136338682515020D-03 - ws( 15) = 0.8265056180422346D-03 - ws( 16) = 0.9602529901965786D-03 - ws( 17) = 0.1120314247980387D-02 - ws( 18) = 0.1313698226435818D-02 - ws( 19) = 0.1549421446293875D-02 - ws( 20) = 0.1838986129886327D-02 - ws( 21) = 0.2196778621665977D-02 - ws( 22) = 0.2640071262252879D-02 - ws( 23) = 0.3187897274477024D-02 - ws( 24) = 0.3857334828454898D-02 - ws( 25) = 0.4654983741129767D-02 - ws( 26) = 0.5562643846072380D-02 - ws( 27) = 0.6523825183379835D-02 - ws( 28) = 0.7449527416743937D-02 - ws( 29) = 0.8253540503432709D-02 - ws( 30) = 0.8890817549866514D-02 - ws( 31) = 0.9364298609042719D-02 - ws( 32) = 0.9704632613853455D-02 - ws( 33) = 0.9948324550850358D-02 - ws( 34) = 0.1012640636200684D-01 - ws( 35) = 0.1026167642364787D-01 - ws( 36) = 0.1036973109277731D-01 - ws( 37) = 0.1046088820335112D-01 - ws( 38) = 0.1054189442111579D-01 - ws( 39) = 0.1061717511462852D-01 - ws( 40) = 0.1068967983584234D-01 - ws( 41) = 0.1076143524476318D-01 - ws( 42) = 0.1083390739909696D-01 - ws( 43) = 0.1090822229192337D-01 - ws( 44) = 0.1098534042817703D-01 - ws( 45) = 0.1106614137629628D-01 - ws( 46) = 0.1115142329852670D-01 - ws( 47) = 0.1124236308885362D-01 - ws( 48) = 0.1134210379345923D-01 - ws( 49) = 0.1144840883025032D-01 - ws( 50) = 0.1158451155062722D-01 - ws( 51) = 0.1181121862662819D-01 - ws( 52) = 0.1053491412265668D-01 - endif - - - if( iquad .eq. 115 ) then - idomain = 115 - rk0r = 0.9424777960770379D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 51 - err = 0.1557242463473623D-09 - ierq = 4 - xs( 1) = 0.1206019686298449D-04 - xs( 2) = 0.6370568934581052D-04 - xs( 3) = 0.1572842357759915D-03 - xs( 4) = 0.2939814365235918D-03 - xs( 5) = 0.4755424085884118D-03 - xs( 6) = 0.7043554986185038D-03 - xs( 7) = 0.9835465562951960D-03 - xs( 8) = 0.1317101727721126D-02 - xs( 9) = 0.1710026573655911D-02 - xs( 10) = 0.2168551274367292D-02 - xs( 11) = 0.2700395231131743D-02 - xs( 12) = 0.3315109165704357D-02 - xs( 13) = 0.4024519142072378D-02 - xs( 14) = 0.4843305151216896D-02 - xs( 15) = 0.5789757231642522D-02 - xs( 16) = 0.6886764207898039D-02 - xs( 17) = 0.8163102100267114D-02 - xs( 18) = 0.9655095222920121D-02 - xs( 19) = 0.1140870781267121D-01 - xs( 20) = 0.1348205205788186D-01 - xs( 21) = 0.1594809174783434D-01 - xs( 22) = 0.1889682644488866D-01 - xs( 23) = 0.2243522073780064D-01 - xs( 24) = 0.2668146795043850D-01 - xs( 25) = 0.3174875052501561D-01 - xs( 26) = 0.3771618444786677D-01 - xs( 27) = 0.4459588555056550D-01 - xs( 28) = 0.5231843202346224D-01 - xs( 29) = 0.6075215736794059D-01 - xs( 30) = 0.6974359148360704D-01 - xs( 31) = 0.7915237854884002D-01 - xs( 32) = 0.8886755893349288D-01 - xs( 33) = 0.9880883275656850D-01 - xs( 34) = 0.1089210596321502D+00 - xs( 35) = 0.1191675434609537D+00 - xs( 36) = 0.1295243713732690D+00 - xs( 37) = 0.1399762675162993D+00 - xs( 38) = 0.1505137529859331D+00 - xs( 39) = 0.1611312665628321D+00 - xs( 40) = 0.1718259455781534D+00 - xs( 41) = 0.1825968469036695D+00 - xs( 42) = 0.1934444578599797D+00 - xs( 43) = 0.2043703952895014D+00 - xs( 44) = 0.2153772008297019D+00 - xs( 45) = 0.2264682118893176D+00 - xs( 46) = 0.2376475824507340D+00 - xs( 47) = 0.2489197414537636D+00 - xs( 48) = 0.2602867745710895D+00 - xs( 49) = 0.2717395769971989D+00 - xs( 50) = 0.2832122210947680D+00 - xs( 51) = 0.2943151877487347D+00 - ws( 1) = 0.3096869549616747D-04 - ws( 2) = 0.7245570859372132D-04 - ws( 3) = 0.1148966574923360D-03 - ws( 4) = 0.1587873723979646D-03 - ws( 5) = 0.2047310788822348D-03 - ws( 6) = 0.2534140467232594D-03 - ws( 7) = 0.3056297971241431D-03 - ws( 8) = 0.3623114169923197D-03 - ws( 9) = 0.4245722707249418D-03 - ws( 10) = 0.4937580533138523D-03 - ws( 11) = 0.5715143236549974D-03 - ws( 12) = 0.6598750145890926D-03 - ws( 13) = 0.7613791322562431D-03 - ws( 14) = 0.8792249082509530D-03 - ws( 15) = 0.1017472764100221D-02 - ws( 16) = 0.1181309664244920D-02 - ws( 17) = 0.1377385326750046D-02 - ws( 18) = 0.1614219404758465D-02 - ws( 19) = 0.1902644583771986D-02 - ws( 20) = 0.2256164315893470D-02 - ws( 21) = 0.2690908169670980D-02 - ws( 22) = 0.3224471463912744D-02 - ws( 23) = 0.3872276958204999D-02 - ws( 24) = 0.4639583798307135D-02 - ws( 25) = 0.5508778863811012D-02 - ws( 26) = 0.6428400601401982D-02 - ws( 27) = 0.7319071074617892D-02 - ws( 28) = 0.8103324832371929D-02 - ws( 29) = 0.8737934953529192D-02 - ws( 30) = 0.9221284484292188D-02 - ws( 31) = 0.9577797684452121D-02 - ws( 32) = 0.9839284437336672D-02 - ws( 33) = 0.1003418974302680D-01 - ws( 34) = 0.1018424299030199D-01 - ws( 35) = 0.1030480760928536D-01 - ws( 36) = 0.1040634870068212D-01 - ws( 37) = 0.1049589438787472D-01 - ws( 38) = 0.1057816950545291D-01 - ws( 39) = 0.1065639298767040D-01 - ws( 40) = 0.1073281532115529D-01 - ws( 41) = 0.1080907317415309D-01 - ws( 42) = 0.1088642514841416D-01 - ws( 43) = 0.1096591419259033D-01 - ws( 44) = 0.1104848704833130D-01 - ws( 45) = 0.1113470211378932D-01 - ws( 46) = 0.1122467198325747D-01 - ws( 47) = 0.1132388570135127D-01 - ws( 48) = 0.1143643620941259D-01 - ws( 49) = 0.1156721030037130D-01 - ws( 50) = 0.1165369799138560D-01 - ws( 51) = 0.1006164229336008D-01 - endif - - - if( iquad .eq. 116 ) then - idomain = 116 - rk0r = 0.9424777960770379D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 50 - err = 0.3632084415778985D-09 - ierq = 4 - xs( 1) = 0.1594175407832242D-04 - xs( 2) = 0.8425732676399357D-04 - xs( 3) = 0.2082251227959014D-03 - xs( 4) = 0.3896879583220913D-03 - xs( 5) = 0.6312766960952522D-03 - xs( 6) = 0.9364715885124167D-03 - xs( 7) = 0.1309689970142968D-02 - xs( 8) = 0.1756424795434913D-02 - xs( 9) = 0.2283438853136760D-02 - xs( 10) = 0.2899019492070705D-02 - xs( 11) = 0.3613302939434648D-02 - xs( 12) = 0.4438683551221290D-02 - xs( 13) = 0.5390330805546496D-02 - xs( 14) = 0.6486845228726312D-02 - xs( 15) = 0.7751093052922309D-02 - xs( 16) = 0.9211265919243788D-02 - xs( 17) = 0.1090221013655469D-01 - xs( 18) = 0.1286704519761061D-01 - xs( 19) = 0.1515901053199282D-01 - xs( 20) = 0.1784327310685900D-01 - xs( 21) = 0.2099796973030823D-01 - xs( 22) = 0.2471290571518673D-01 - xs( 23) = 0.2908323840099630D-01 - xs( 24) = 0.3419533877271996D-01 - xs( 25) = 0.4010535713794588D-01 - xs( 26) = 0.4681854070824820D-01 - xs( 27) = 0.5428243163879150D-01 - xs( 28) = 0.6240022549293249D-01 - xs( 29) = 0.7105611684777564D-01 - xs( 30) = 0.8013843317780943D-01 - xs( 31) = 0.8955272160936566D-01 - xs( 32) = 0.9922538611959011D-01 - xs( 33) = 0.1091019034059385D+00 - xs( 34) = 0.1191430873933415D+00 - xs( 35) = 0.1293212909388052D+00 - xs( 36) = 0.1396172598847794D+00 - xs( 37) = 0.1500177599824464D+00 - xs( 38) = 0.1605138715868009D+00 - xs( 39) = 0.1710997959595608D+00 - xs( 40) = 0.1817720305276128D+00 - xs( 41) = 0.1925287978651737D+00 - xs( 42) = 0.2033696491558553D+00 - xs( 43) = 0.2142951518328184D+00 - xs( 44) = 0.2253065826599996D+00 - xs( 45) = 0.2364053651415148D+00 - xs( 46) = 0.2475916751263711D+00 - xs( 47) = 0.2588641528698590D+00 - xs( 48) = 0.2702099337949541D+00 - xs( 49) = 0.2815067347619614D+00 - xs( 50) = 0.2922817193340020D+00 - ws( 1) = 0.4094151996006087D-04 - ws( 2) = 0.9589586372376241D-04 - ws( 3) = 0.1523446976741192D-03 - ws( 4) = 0.2110186777756206D-03 - ws( 5) = 0.2727374058646725D-03 - ws( 6) = 0.3383863004299593D-03 - ws( 7) = 0.4089627283901455D-03 - ws( 8) = 0.4856298291313528D-03 - ws( 9) = 0.5697741418506916D-03 - ws( 10) = 0.6630697403053678D-03 - ws( 11) = 0.7675543379292636D-03 - ws( 12) = 0.8857242952316117D-03 - ws( 13) = 0.1020656503204402D-02 - ws( 14) = 0.1176165834057681D-02 - ws( 15) = 0.1357006333450144D-02 - ws( 16) = 0.1569120042079293D-02 - ws( 17) = 0.1819923654772436D-02 - ws( 18) = 0.2118588018917758D-02 - ws( 19) = 0.2476182850177011D-02 - ws( 20) = 0.2905380192450925D-02 - ws( 21) = 0.3419077780325302D-02 - ws( 22) = 0.4026888307743075D-02 - ws( 23) = 0.4728549029912587D-02 - ws( 24) = 0.5505392147740183D-02 - ws( 25) = 0.6315651894600440D-02 - ws( 26) = 0.7101725370092436D-02 - ws( 27) = 0.7809459851007432D-02 - ws( 28) = 0.8406422525138919D-02 - ws( 29) = 0.8886534130683618D-02 - ws( 30) = 0.9262306983137684D-02 - ws( 31) = 0.9554042113950580D-02 - ws( 32) = 0.9782266192239276D-02 - ws( 33) = 0.9964302126735599D-02 - ws( 34) = 0.1011351056793429D-01 - ws( 35) = 0.1023972673624485D-01 - ws( 36) = 0.1035003348910579D-01 - ws( 37) = 0.1044949978344122D-01 - ws( 38) = 0.1054177097447317D-01 - ws( 39) = 0.1062950495039943D-01 - ws( 40) = 0.1071468251641025D-01 - ws( 41) = 0.1079881254522331D-01 - ws( 42) = 0.1088305968639142D-01 - ws( 43) = 0.1096835473732952D-01 - ws( 44) = 0.1105559405903304D-01 - ws( 45) = 0.1114510815249501D-01 - ws( 46) = 0.1123548590176561D-01 - ws( 47) = 0.1132148121842346D-01 - ws( 48) = 0.1143728344620809D-01 - ws( 49) = 0.1149357860389918D-01 - ws( 50) = 0.9218657888750469D-02 - endif - - - if( iquad .eq. 117 ) then - idomain = 117 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 47 - err = 0.1947634176024745D-09 - ierq = 4 - xs( 1) = 0.2716217273164547D-04 - xs( 2) = 0.1434860427558264D-03 - xs( 3) = 0.3542875200176652D-03 - xs( 4) = 0.6622912062090610D-03 - xs( 5) = 0.1071513285230078D-02 - xs( 6) = 0.1587456689713050D-02 - xs( 7) = 0.2217330410937988D-02 - xs( 8) = 0.2970332169339931D-02 - xs( 9) = 0.3858010013873567D-02 - xs( 10) = 0.4894721184520023D-02 - xs( 11) = 0.6098211353206981D-02 - xs( 12) = 0.7490341796633472D-02 - xs( 13) = 0.9097993226536330D-02 - xs( 14) = 0.1095416583123087D-01 - xs( 15) = 0.1309925918282463D-01 - xs( 16) = 0.1558241766353628D-01 - xs( 17) = 0.1846260144782164D-01 - xs( 18) = 0.2180860652720889D-01 - xs( 19) = 0.2569662051487096D-01 - xs( 20) = 0.3020345067400235D-01 - xs( 21) = 0.3539433898633368D-01 - xs( 22) = 0.4130741598408371D-01 - xs( 23) = 0.4794120303704855D-01 - xs( 24) = 0.5525248536007252D-01 - xs( 25) = 0.6316635788270016D-01 - xs( 26) = 0.7159287441906238D-01 - xs( 27) = 0.8044248797387098D-01 - xs( 28) = 0.8963581819928729D-01 - xs( 29) = 0.9910757019583731D-01 - xs( 30) = 0.1088065487221171D+00 - xs( 31) = 0.1186938048052435D+00 - xs( 32) = 0.1287402587193198D+00 - xs( 33) = 0.1389244678508627D+00 - xs( 34) = 0.1492307810014168D+00 - xs( 35) = 0.1596479081507102D+00 - xs( 36) = 0.1701678501184154D+00 - xs( 37) = 0.1807851102831660D+00 - xs( 38) = 0.1914961138602916D+00 - xs( 39) = 0.2022987586393958D+00 - xs( 40) = 0.2131919935742928D+00 - xs( 41) = 0.2241754355267949D+00 - xs( 42) = 0.2352487433005125D+00 - xs( 43) = 0.2464090157330530D+00 - xs( 44) = 0.2576518551311455D+00 - xs( 45) = 0.2689466778282296D+00 - xs( 46) = 0.2801212359410539D+00 - xs( 47) = 0.2908064897401501D+00 - ws( 1) = 0.6974899813565683D-04 - ws( 2) = 0.1632038882829038D-03 - ws( 3) = 0.2588478350882233D-03 - ws( 4) = 0.3578260309831792D-03 - ws( 5) = 0.4615316709790337D-03 - ws( 6) = 0.5715519595333835D-03 - ws( 7) = 0.6897224528455798D-03 - ws( 8) = 0.8181981461706963D-03 - ws( 9) = 0.9595408288318494D-03 - ws( 10) = 0.1116827076809133D-02 - ws( 11) = 0.1293781798691879D-02 - ws( 12) = 0.1494940856161135D-02 - ws( 13) = 0.1725840479100141D-02 - ws( 14) = 0.1993214846616291D-02 - ws( 15) = 0.2305142993295895D-02 - ws( 16) = 0.2670996946791204D-02 - ws( 17) = 0.3100872473905203D-02 - ws( 18) = 0.3603944812318275D-02 - ws( 19) = 0.4185091467699168D-02 - ws( 20) = 0.4839718309118010D-02 - ws( 21) = 0.5548642481747120D-02 - ws( 22) = 0.6277305810462345D-02 - ws( 23) = 0.6982882388384178D-02 - ws( 24) = 0.7626899325489678D-02 - ws( 25) = 0.8185586584179559D-02 - ws( 26) = 0.8652359930129853D-02 - ws( 27) = 0.9033577295054294D-02 - ws( 28) = 0.9342205543108092D-02 - ws( 29) = 0.9592799946850805D-02 - ws( 30) = 0.9798706702152014D-02 - ws( 31) = 0.9970996530052033D-02 - ws( 32) = 0.1011836830362748D-01 - ws( 33) = 0.1024746508062689D-01 - ws( 34) = 0.1036329712357801D-01 - ws( 35) = 0.1046963710526773D-01 - ws( 36) = 0.1056934244498164D-01 - ws( 37) = 0.1066459662789903D-01 - ws( 38) = 0.1075708647161689D-01 - ws( 39) = 0.1084814486729143D-01 - ws( 40) = 0.1093877080581809D-01 - ws( 41) = 0.1102923161116502D-01 - ws( 42) = 0.1112008928597206D-01 - ws( 43) = 0.1120750823115445D-01 - ws( 44) = 0.1128612764567931D-01 - ws( 45) = 0.1138903142384253D-01 - ws( 46) = 0.1114798809281975D-01 - ws( 47) = 0.8102348985473740D-02 - endif - - - if( iquad .eq. 118 ) then - idomain = 118 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 46 - err = 0.4588327024867174D-09 - ierq = 4 - xs( 1) = 0.3989898470082383D-04 - xs( 2) = 0.2107613276179287D-03 - xs( 3) = 0.5203654592399362D-03 - xs( 4) = 0.9726591861526128D-03 - xs( 5) = 0.1573462421617003D-02 - xs( 6) = 0.2330749075268201D-02 - xs( 7) = 0.3254954106422424D-02 - xs( 8) = 0.4359350987694456D-02 - xs( 9) = 0.5660500715938871D-02 - xs( 10) = 0.7178762038457814D-02 - xs( 11) = 0.8938832789328846D-02 - xs( 12) = 0.1097025372014146D-01 - xs( 13) = 0.1330773964445316D-01 - xs( 14) = 0.1599110520178489D-01 - xs( 15) = 0.1906444198441393D-01 - xs( 16) = 0.2257414150661859D-01 - xs( 17) = 0.2656547324888329D-01 - xs( 18) = 0.3107785629897155D-01 - xs( 19) = 0.3613963708236710D-01 - xs( 20) = 0.4176371809731681D-01 - xs( 21) = 0.4794535928493215D-01 - xs( 22) = 0.5466282633528841D-01 - xs( 23) = 0.6188061097208489D-01 - xs( 24) = 0.6955418021850300D-01 - xs( 25) = 0.7763496546359705D-01 - xs( 26) = 0.8607457832986738D-01 - xs( 27) = 0.9482776504730885D-01 - xs( 28) = 0.1038540834171707D+00 - xs( 29) = 0.1131185578408208D+00 - xs( 30) = 0.1225916459444806D+00 - xs( 31) = 0.1322488120751250D+00 - xs( 32) = 0.1420699219858866D+00 - xs( 33) = 0.1520385930087037D+00 - xs( 34) = 0.1621415719049851D+00 - xs( 35) = 0.1723681699801037D+00 - xs( 36) = 0.1827097549840545D+00 - xs( 37) = 0.1931592799788492D+00 - xs( 38) = 0.2037108058215198D+00 - xs( 39) = 0.2143589164000033D+00 - xs( 40) = 0.2250978268937973D+00 - xs( 41) = 0.2359196868557328D+00 - xs( 42) = 0.2468109522885487D+00 - xs( 43) = 0.2577430397088628D+00 - xs( 44) = 0.2686394169015181D+00 - xs( 45) = 0.2792915614915910D+00 - xs( 46) = 0.2894317532602196D+00 - ws( 1) = 0.1024546176936181D-03 - ws( 2) = 0.2397132611518096D-03 - ws( 3) = 0.3801451481417892D-03 - ws( 4) = 0.5254081403981191D-03 - ws( 5) = 0.6775222338706548D-03 - ws( 6) = 0.8387839429655703D-03 - ws( 7) = 0.1011830860260588D-02 - ws( 8) = 0.1199714500356401D-02 - ws( 9) = 0.1405968906489415D-02 - ws( 10) = 0.1634661338908929D-02 - ws( 11) = 0.1890397556403532D-02 - ws( 12) = 0.2178230513871447D-02 - ws( 13) = 0.2503389791127204D-02 - ws( 14) = 0.2870722039896714D-02 - ws( 15) = 0.3283740678317369D-02 - ws( 16) = 0.3743284072730275D-02 - ws( 17) = 0.4246039752188002D-02 - ws( 18) = 0.4783527032862900D-02 - ws( 19) = 0.5342223331922567D-02 - ws( 20) = 0.5905137145057161D-02 - ws( 21) = 0.6454466454150369D-02 - ws( 22) = 0.6974467146333057D-02 - ws( 23) = 0.7453594302521134D-02 - ws( 24) = 0.7885378029635296D-02 - ws( 25) = 0.8268078545759106D-02 - ws( 26) = 0.8603577631696710D-02 - ws( 27) = 0.8896045357970299D-02 - ws( 28) = 0.9150763386778019D-02 - ws( 29) = 0.9373269345458502D-02 - ws( 30) = 0.9568827995940617D-02 - ws( 31) = 0.9742159608766072D-02 - ws( 32) = 0.9897340360088876D-02 - ws( 33) = 0.1003780251644386D-01 - ws( 34) = 0.1016638216001854D-01 - ws( 35) = 0.1028538184084444D-01 - ws( 36) = 0.1039662616368904D-01 - ws( 37) = 0.1050148645122314D-01 - ws( 38) = 0.1060088310928368D-01 - ws( 39) = 0.1069526030465658D-01 - ws( 40) = 0.1078437894266891D-01 - ws( 41) = 0.1086641371196616D-01 - ws( 42) = 0.1093374547785664D-01 - ws( 43) = 0.1096196752501509D-01 - ws( 44) = 0.1082076565044113D-01 - ws( 45) = 0.9715535159235296D-02 - ws( 46) = 0.5699543414008573D-02 - endif - - - if( iquad .eq. 119 ) then - idomain = 119 - rk0r = 0.9424777960770379D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 44 - err = 0.1331004582031804D-09 - ierq = 4 - xs( 1) = 0.7007310216926529D-04 - xs( 2) = 0.3701576101744083D-03 - xs( 3) = 0.9138969290954642D-03 - xs( 4) = 0.1708037401316781D-02 - xs( 5) = 0.2762159362506733D-02 - xs( 6) = 0.4088719820501090D-02 - xs( 7) = 0.5702921961130173D-02 - xs( 8) = 0.7622425894899834D-02 - xs( 9) = 0.9866836245351351D-02 - xs( 10) = 0.1245691590022304D-01 - xs( 11) = 0.1541352728435198D-01 - xs( 12) = 0.1875637466908249D-01 - xs( 13) = 0.2250268052505722D-01 - xs( 14) = 0.2666595078966200D-01 - xs( 15) = 0.3125496866092190D-01 - xs( 16) = 0.3627312114507197D-01 - xs( 17) = 0.4171812055597012D-01 - xs( 18) = 0.4758213761188533D-01 - xs( 19) = 0.5385231416389182D-01 - xs( 20) = 0.6051157763460308D-01 - xs( 21) = 0.6753964628533560D-01 - xs( 22) = 0.7491410298612632D-01 - xs( 23) = 0.8261142660217026D-01 - xs( 24) = 0.9060789827994566D-01 - xs( 25) = 0.9888033486891407D-01 - xs( 26) = 0.1074066342545403D+00 - xs( 27) = 0.1161661418437842D+00 - xs( 28) = 0.1251398620998032D+00 - xs( 29) = 0.1343105448893395D+00 - xs( 30) = 0.1436626757445776D+00 - xs( 31) = 0.1531823944371027D+00 - xs( 32) = 0.1628573597996745D+00 - xs( 33) = 0.1726765705438624D+00 - xs( 34) = 0.1826301358581152D+00 - xs( 35) = 0.1927089795511618D+00 - xs( 36) = 0.2029044318807047D+00 - xs( 37) = 0.2132075277422887D+00 - xs( 38) = 0.2236076423201835D+00 - xs( 39) = 0.2340898872664954D+00 - xs( 40) = 0.2446265163638945D+00 - xs( 41) = 0.2551562707533391D+00 - xs( 42) = 0.2655555028075384D+00 - xs( 43) = 0.2756562359344134D+00 - xs( 44) = 0.2854561321929995D+00 - ws( 1) = 0.1799381889643497D-03 - ws( 2) = 0.4210087032397909D-03 - ws( 3) = 0.6675852530164300D-03 - ws( 4) = 0.9222925464300005D-03 - ws( 5) = 0.1188029622199636D-02 - ws( 6) = 0.1467629808035778D-02 - ws( 7) = 0.1763726228279922D-02 - ws( 8) = 0.2078562174305648D-02 - ws( 9) = 0.2413736834084271D-02 - ws( 10) = 0.2769920841947054D-02 - ws( 11) = 0.3146608417160318D-02 - ws( 12) = 0.3541977682813242D-02 - ws( 13) = 0.3952902038607185D-02 - ws( 14) = 0.4375113730485197D-02 - ws( 15) = 0.4803491196150509D-02 - ws( 16) = 0.5232430196126883D-02 - ws( 17) = 0.5656255009087038D-02 - ws( 18) = 0.6069622230839992D-02 - ws( 19) = 0.6467868388337232D-02 - ws( 20) = 0.6847260096539658D-02 - ws( 21) = 0.7205123628070419D-02 - ws( 22) = 0.7539854368685714D-02 - ws( 23) = 0.7850827467556609D-02 - ws( 24) = 0.8138242973500952D-02 - ws( 25) = 0.8402940492961674D-02 - ws( 26) = 0.8646212462899280D-02 - ws( 27) = 0.8869635595252997D-02 - ws( 28) = 0.9074930477071908D-02 - ws( 29) = 0.9263851688410017D-02 - ws( 30) = 0.9438105213100815D-02 - ws( 31) = 0.9599285305213449D-02 - ws( 32) = 0.9748820487056555D-02 - ws( 33) = 0.9887926785802302D-02 - ws( 34) = 0.1001756290594215D-01 - ws( 35) = 0.1013837444056213D-01 - ws( 36) = 0.1025073993100899D-01 - ws( 37) = 0.1035502705725778D-01 - ws( 38) = 0.1045154660568589D-01 - ws( 39) = 0.1054075741636115D-01 - ws( 40) = 0.1061652345042887D-01 - ws( 41) = 0.1058678975907742D-01 - ws( 42) = 0.1000087069518168D-01 - ws( 43) = 0.7708621262517468D-02 - ws( 44) = 0.3427514083829988D-02 - endif - - - if( iquad .eq. 120 ) then - idomain = 120 - rk0r = 0.9424777960770379D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 40 - err = 0.5400332299870995D-10 - ierq = 0 - xs( 1) = 0.1054284957149538D-03 - xs( 2) = 0.5558900736329336D-03 - xs( 3) = 0.1367870925201114D-02 - xs( 4) = 0.2544076642396165D-02 - xs( 5) = 0.4087841427828184D-02 - xs( 6) = 0.6002936196284390D-02 - xs( 7) = 0.8293193227035244D-02 - xs( 8) = 0.1096209456161788D-01 - xs( 9) = 0.1401236365711707D-01 - xs( 10) = 0.1744558914241996D-01 - xs( 11) = 0.2126190317913127D-01 - xs( 12) = 0.2545973092116452D-01 - xs( 13) = 0.3003562222804240D-01 - xs( 14) = 0.3498417198485371D-01 - xs( 15) = 0.4029803055095384D-01 - xs( 16) = 0.4596800061284502D-01 - xs( 17) = 0.5198321119987914D-01 - xs( 18) = 0.5833135447125096D-01 - xs( 19) = 0.6499896692717602D-01 - xs( 20) = 0.7197173461037440D-01 - xs( 21) = 0.7923480192124401D-01 - xs( 22) = 0.8677306567662821D-01 - xs( 23) = 0.9457143941143067D-01 - xs( 24) = 0.1026150768607637D+00 - xs( 25) = 0.1108895472561244D+00 - xs( 26) = 0.1193809577813948D+00 - xs( 27) = 0.1280760194289778D+00 - xs( 28) = 0.1369620507886638D+00 - xs( 29) = 0.1460269092429260D+00 - xs( 30) = 0.1552588275147690D+00 - xs( 31) = 0.1646461067909183D+00 - xs( 32) = 0.1741765417357752D+00 - xs( 33) = 0.1838362078453481D+00 - xs( 34) = 0.1936070096662353D+00 - xs( 35) = 0.2034622191107946D+00 - xs( 36) = 0.2133548522391542D+00 - xs( 37) = 0.2231909430245885D+00 - xs( 38) = 0.2328340850785881D+00 - xs( 39) = 0.2421828623480637D+00 - xs( 40) = 0.2599289250201464D+00 - ws( 1) = 0.2706088487943891D-03 - ws( 2) = 0.6308130042447691D-03 - ws( 3) = 0.9935900781018396D-03 - ws( 4) = 0.1359381754558084D-02 - ws( 5) = 0.1728782717646032D-02 - ws( 6) = 0.2102052477872266D-02 - ws( 7) = 0.2479048798291306D-02 - ws( 8) = 0.2859214104769722D-02 - ws( 9) = 0.3241594257350177D-02 - ws( 10) = 0.3624882942161527D-02 - ws( 11) = 0.4007485476856527D-02 - ws( 12) = 0.4387596315772187D-02 - ws( 13) = 0.4763285262944563D-02 - ws( 14) = 0.5132587674679489D-02 - ws( 15) = 0.5493593637437836D-02 - ws( 16) = 0.5844530667063762D-02 - ws( 17) = 0.6183834462034243D-02 - ws( 18) = 0.6510203022276553D-02 - ws( 19) = 0.6822631027576814D-02 - ws( 20) = 0.7120423454024941D-02 - ws( 21) = 0.7403189526022871D-02 - ws( 22) = 0.7670819810084527D-02 - ws( 23) = 0.7923450248914762D-02 - ws( 24) = 0.8161417057336718D-02 - ws( 25) = 0.8385205719969181D-02 - ws( 26) = 0.8595396127554836D-02 - ws( 27) = 0.8792604368658074D-02 - ws( 28) = 0.8977418163179332D-02 - ws( 29) = 0.9150318634127267D-02 - ws( 30) = 0.9311581751670545D-02 - ws( 31) = 0.9461163114201991D-02 - ws( 32) = 0.9598588485939211D-02 - ws( 33) = 0.9722299231026238D-02 - ws( 34) = 0.9825620061689709D-02 - ws( 35) = 0.9885375874676248D-02 - ws( 36) = 0.9826681423500683D-02 - ws( 37) = 0.9354823527957150D-02 - ws( 38) = 0.7668980491782175D-02 - ws( 39) = 0.4072365662719311D-02 - ws( 40) = -.1262737770897268D-02 - endif - - - if( iquad .eq. 121 ) then - idomain = 121 - rk0r = 0.9424777960770379D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 37 - err = 0.5717673787967868D-10 - ierq = 0 - xs( 1) = 0.1166986994050710D-03 - xs( 2) = 0.6146978086936933D-03 - xs( 3) = 0.1509894677725313D-02 - xs( 4) = 0.2801198384104014D-02 - xs( 5) = 0.4486728064825842D-02 - xs( 6) = 0.6563924854591313D-02 - xs( 7) = 0.9029513159172921D-02 - xs( 8) = 0.1187944595498509D-01 - xs( 9) = 0.1510885042699185D-01 - xs( 10) = 0.1871198234281203D-01 - xs( 11) = 0.2268219608329444D-01 - xs( 12) = 0.2701193593301385D-01 - xs( 13) = 0.3169275242253163D-01 - xs( 14) = 0.3671534528293798D-01 - xs( 15) = 0.4206963217035783D-01 - xs( 16) = 0.4774484002479642D-01 - xs( 17) = 0.5372961397443730D-01 - xs( 18) = 0.6001213725037127D-01 - xs( 19) = 0.6658025470676228D-01 - xs( 20) = 0.7342159215697555D-01 - xs( 21) = 0.8052366352969234D-01 - xs( 22) = 0.8787395747582090D-01 - xs( 23) = 0.9545999440218148D-01 - xs( 24) = 0.1032693433870629D+00 - xs( 25) = 0.1112895826828156D+00 - xs( 26) = 0.1195081759202600D+00 - xs( 27) = 0.1279122248393168D+00 - xs( 28) = 0.1364880182322195D+00 - xs( 29) = 0.1452201007557946D+00 - xs( 30) = 0.1540893477689352D+00 - xs( 31) = 0.1630694209377125D+00 - xs( 32) = 0.1721187985862898D+00 - xs( 33) = 0.1811657729733311D+00 - xs( 34) = 0.1901086274255995D+00 - xs( 35) = 0.1988611089588747D+00 - xs( 36) = 0.2073882966569608D+00 - xs( 37) = 0.2315188109268239D+00 - ws( 1) = 0.2994659723463252D-03 - ws( 2) = 0.6966894584191495D-03 - ws( 3) = 0.1093507733611826D-02 - ws( 4) = 0.1488785930934840D-02 - ws( 5) = 0.1881847707132932D-02 - ws( 6) = 0.2272000879680308D-02 - ws( 7) = 0.2658502149872525D-02 - ws( 8) = 0.3040552082462383D-02 - ws( 9) = 0.3417300001224597D-02 - ws( 10) = 0.3787856377006452D-02 - ws( 11) = 0.4151311542827116D-02 - ws( 12) = 0.4506759187748777D-02 - ws( 13) = 0.4853322585592274D-02 - ws( 14) = 0.5190181192498452D-02 - ws( 15) = 0.5516595198646409D-02 - ws( 16) = 0.5831925887538359D-02 - ws( 17) = 0.6135650124693821D-02 - ws( 18) = 0.6427367803351810D-02 - ws( 19) = 0.6706801525871529D-02 - ws( 20) = 0.6973788349532824D-02 - ws( 21) = 0.7228263849168441D-02 - ws( 22) = 0.7470238047256054D-02 - ws( 23) = 0.7699760649370090D-02 - ws( 24) = 0.7916873632071728D-02 - ws( 25) = 0.8121549959105311D-02 - ws( 26) = 0.8313597199538595D-02 - ws( 27) = 0.8492489145930083D-02 - ws( 28) = 0.8657192814218388D-02 - ws( 29) = 0.8805824446145742D-02 - ws( 30) = 0.8933244799490305D-02 - ws( 31) = 0.9023187073252399D-02 - ws( 32) = 0.9022942053309724D-02 - ws( 33) = 0.8746217303035526D-02 - ws( 34) = 0.7706659234946665D-02 - ws( 35) = 0.5354152772004667D-02 - ws( 36) = 0.2152500297579592D-02 - ws( 37) = 0.4240539435525270D-03 - endif - - - - - return - end -c -c -c -c -c - subroutine hwts3p4(iquad,xs,ws,n) - implicit real *8 (a-h,o-z) - dimension xs(*), ws(*) -c -c 12 digit exponential representation tables for -c exp(ima*rk*sqrt(u^2+v^2)/sqrt(u^2+v^2) -c - -c#include "../fort.55" - - if( iquad .eq. 1 ) then - idomain = 1 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 40 - err = 0.2033612712869466D-13 - ierq = 0 - xs( 1) = 0.2092404517705810D-03 - xs( 2) = 0.1102699388031763D-02 - xs( 3) = 0.2707903186154007D-02 - xs( 4) = 0.5012763448187588D-02 - xs( 5) = 0.7989935842982803D-02 - xs( 6) = 0.1159907729865950D-01 - xs( 7) = 0.1579260585411461D-01 - xs( 8) = 0.2052124829266851D-01 - xs( 9) = 0.2573765248485933D-01 - xs( 10) = 0.3139812506347852D-01 - xs( 11) = 0.3746315201150831D-01 - xs( 12) = 0.4389730255355054D-01 - xs( 13) = 0.5066889507653974D-01 - xs( 14) = 0.5774961637216713D-01 - xs( 15) = 0.6511417026549746D-01 - xs( 16) = 0.7273997395633336D-01 - xs( 17) = 0.8060689758201456D-01 - xs( 18) = 0.8869703718538928D-01 - xs( 19) = 0.9699451285660388D-01 - xs( 20) = 0.1054852870002923D+00 - xs( 21) = 0.1141570003698137D+00 - xs( 22) = 0.1229988252313543D+00 - xs( 23) = 0.1320013359575606D+00 - xs( 24) = 0.1411563977884457D+00 - xs( 25) = 0.1504570749585822D+00 - xs( 26) = 0.1598975591173452D+00 - xs( 27) = 0.1694731215985070D+00 - xs( 28) = 0.1791800904478415D+00 - xs( 29) = 0.1890158603033683D+00 - xs( 30) = 0.1989789403821929D+00 - xs( 31) = 0.2090690549401667D+00 - xs( 32) = 0.2192873193137162D+00 - xs( 33) = 0.2296365694509608D+00 - xs( 34) = 0.2401223285165888D+00 - xs( 35) = 0.2507517625597428D+00 - xs( 36) = 0.2615378496532706D+00 - xs( 37) = 0.2725017873703057D+00 - xs( 38) = 0.2836779540839540D+00 - xs( 39) = 0.2950547417146662D+00 - xs( 40) = 0.3081003818348392D+00 - ws( 1) = 0.5370386535002181D-03 - ws( 2) = 0.1250155778665462D-02 - ws( 3) = 0.1958297310385495D-02 - ws( 4) = 0.2646820841312885D-02 - ws( 5) = 0.3300693688631389D-02 - ws( 6) = 0.3909562754197726D-02 - ws( 7) = 0.4469222640779580D-02 - ws( 8) = 0.4980143057149567D-02 - ws( 9) = 0.5445375893733765D-02 - ws( 10) = 0.5868986073524415D-02 - ws( 11) = 0.6255168685234220D-02 - ws( 12) = 0.6607858634071336D-02 - ws( 13) = 0.6930613430314919D-02 - ws( 14) = 0.7226618175651654D-02 - ws( 15) = 0.7498730125859280D-02 - ws( 16) = 0.7749526042564014D-02 - ws( 17) = 0.7981340568563759D-02 - ws( 18) = 0.8196295010361466D-02 - ws( 19) = 0.8396319464504181D-02 - ws( 20) = 0.8583171394622568D-02 - ws( 21) = 0.8758452876975477D-02 - ws( 22) = 0.8923627759526239D-02 - ws( 23) = 0.9080039431697174D-02 - ws( 24) = 0.9228929506232060D-02 - ws( 25) = 0.9371457702229814D-02 - ws( 26) = 0.9508723055280135D-02 - ws( 27) = 0.9641788613655198D-02 - ws( 28) = 0.9771714278194218D-02 - ws( 29) = 0.9899578294962840D-02 - ws( 30) = 0.1002652841699670D-01 - ws( 31) = 0.1015389285427291D-01 - ws( 32) = 0.1028311717753631D-01 - ws( 33) = 0.1041626560313486D-01 - ws( 34) = 0.1055579065899276D-01 - ws( 35) = 0.1070609462772538D-01 - ws( 36) = 0.1086681309060856D-01 - ws( 37) = 0.1108040968114837D-01 - ws( 38) = 0.1136871115080085D-01 - ws( 39) = 0.1126611619210407D-01 - ws( 40) = 0.1837737754595416D-01 - endif - - - if( iquad .eq. 2 ) then - idomain = 2 - rk0r = 0.1000010000000000D-11 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 40 - err = 0.1604566075598975D-13 - ierq = 0 - xs( 1) = 0.2106353938769425D-03 - xs( 2) = 0.1109536666016652D-02 - xs( 3) = 0.2722802280726370D-02 - xs( 4) = 0.5036445667470705D-02 - xs( 5) = 0.8021723318170998D-02 - xs( 6) = 0.1163757731482504D-01 - xs( 7) = 0.1583621684080605D-01 - xs( 8) = 0.2056843374790686D-01 - xs( 9) = 0.2578705744469163D-01 - xs( 10) = 0.3144861276148501D-01 - xs( 11) = 0.3751380734547428D-01 - xs( 12) = 0.4394742295539808D-01 - xs( 13) = 0.5071797526479725D-01 - xs( 14) = 0.5779732821346967D-01 - xs( 15) = 0.6516033831780189D-01 - xs( 16) = 0.7278454808841492D-01 - xs( 17) = 0.8064992472844450D-01 - xs( 18) = 0.8873863432424539D-01 - xs( 19) = 0.9703484282331391D-01 - xs( 20) = 0.1055245380768520D+00 - xs( 21) = 0.1141953699617502D+00 - xs( 22) = 0.1230365074761751D+00 - xs( 23) = 0.1320385127696550D+00 - xs( 24) = 0.1411932328089037D+00 - xs( 25) = 0.1504937096344998D+00 - xs( 26) = 0.1599341106198437D+00 - xs( 27) = 0.1695096807823118D+00 - xs( 28) = 0.1792167211435911D+00 - xs( 29) = 0.1890525994378879D+00 - xs( 30) = 0.1990157884382922D+00 - xs( 31) = 0.2091059929527725D+00 - xs( 32) = 0.2193242644244135D+00 - xs( 33) = 0.2296735417451188D+00 - xs( 34) = 0.2401583308231802D+00 - xs( 35) = 0.2507864229935831D+00 - xs( 36) = 0.2615746606850587D+00 - xs( 37) = 0.2725328605266027D+00 - xs( 38) = 0.2837173902675563D+00 - xs( 39) = 0.2950648783977313D+00 - xs( 40) = 0.3082120637921600D+00 - ws( 1) = 0.5405561030335551D-03 - ws( 2) = 0.1257235959726454D-02 - ws( 3) = 0.1967010416965845D-02 - ws( 4) = 0.2655438568897316D-02 - ws( 5) = 0.3308171124873156D-02 - ws( 6) = 0.3915479716264093D-02 - ws( 7) = 0.4473541056740375D-02 - ws( 8) = 0.4983005078176841D-02 - ws( 9) = 0.5446989738244759D-02 - ws( 10) = 0.5869574827427406D-02 - ws( 11) = 0.6254950716869804D-02 - ws( 12) = 0.6607039700509004D-02 - ws( 13) = 0.6929381535927392D-02 - ws( 14) = 0.7225138875155605D-02 - ws( 15) = 0.7497142747913028D-02 - ws( 16) = 0.7747941735987594D-02 - ws( 17) = 0.7979842528728083D-02 - ws( 18) = 0.8194940613298613D-02 - ws( 19) = 0.8395143689197030D-02 - ws( 20) = 0.8582190846590834D-02 - ws( 21) = 0.8757669856546567D-02 - ws( 22) = 0.8923034007269876D-02 - ws( 23) = 0.9079619248082267D-02 - ws( 24) = 0.9228662338432869D-02 - ws( 25) = 0.9371320062880347D-02 - ws( 26) = 0.9508689467621286D-02 - ws( 27) = 0.9641834190159231D-02 - ws( 28) = 0.9771807119004407D-02 - ws( 29) = 0.9899690250287857D-02 - ws( 30) = 0.1002662882888039D-01 - ws( 31) = 0.1015391934627718D-01 - ws( 32) = 0.1028296620449245D-01 - ws( 33) = 0.1041645306771046D-01 - ws( 34) = 0.1055621015761486D-01 - ws( 35) = 0.1070276852376517D-01 - ws( 36) = 0.1087087324416158D-01 - ws( 37) = 0.1104641571806128D-01 - ws( 38) = 0.1129891785501577D-01 - ws( 39) = 0.1181417941256974D-01 - ws( 40) = 0.1912156200053101D-01 - endif - - - if( iquad .eq. 3 ) then - idomain = 3 - rk0r = 0.1000010000000000D-11 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999800001D-01 - n = 40 - err = 0.1558560373780880D-13 - ierq = 0 - xs( 1) = 0.2133868363713245D-03 - xs( 2) = 0.1123316068676632D-02 - xs( 3) = 0.2753894216575594D-02 - xs( 4) = 0.5088070635781984D-02 - xs( 5) = 0.8094478397759791D-02 - xs( 6) = 0.1173039544657235D-01 - xs( 7) = 0.1594727821628550D-01 - xs( 8) = 0.2069578661004048D-01 - xs( 9) = 0.2592894585875779D-01 - xs( 10) = 0.3160359812892113D-01 - xs( 11) = 0.3768077319109747D-01 - xs( 12) = 0.4412552796576165D-01 - xs( 13) = 0.5090659381721489D-01 - xs( 14) = 0.5799599797433844D-01 - xs( 15) = 0.6536872161627931D-01 - xs( 16) = 0.7300240662606734D-01 - xs( 17) = 0.8087710421211927D-01 - xs( 18) = 0.8897505519765450D-01 - xs( 19) = 0.9728049406981080D-01 - xs( 20) = 0.1057794721703766D+00 - xs( 21) = 0.1144596979692564D+00 - xs( 22) = 0.1233103939447186D+00 - xs( 23) = 0.1323221703885339D+00 - xs( 24) = 0.1414869169572174D+00 - xs( 25) = 0.1507977128858346D+00 - xs( 26) = 0.1602487576059438D+00 - xs( 27) = 0.1698353232198758D+00 - xs( 28) = 0.1795537349877924D+00 - xs( 29) = 0.1894013732446397D+00 - xs( 30) = 0.1993767335536402D+00 - xs( 31) = 0.2094795286230073D+00 - xs( 32) = 0.2197108420155429D+00 - xs( 33) = 0.2300734881059001D+00 - xs( 34) = 0.2405725016789301D+00 - xs( 35) = 0.2512153239973353D+00 - xs( 36) = 0.2620182452447210D+00 - xs( 37) = 0.2729982146141192D+00 - xs( 38) = 0.2841783383052262D+00 - xs( 39) = 0.2956527537543043D+00 - xs( 40) = 0.3086060454366711D+00 - ws( 1) = 0.5475310944104230D-03 - ws( 2) = 0.1271903703503395D-02 - ws( 3) = 0.1986436415021893D-02 - ws( 4) = 0.2676633124860571D-02 - ws( 5) = 0.3328961154013351D-02 - ws( 6) = 0.3934695757102699D-02 - ws( 7) = 0.4490794572351510D-02 - ws( 8) = 0.4998370593141567D-02 - ws( 9) = 0.5460750094656328D-02 - ws( 10) = 0.5882062864179138D-02 - ws( 11) = 0.6266469658444061D-02 - ws( 12) = 0.6617834888886328D-02 - ws( 13) = 0.6939640400547632D-02 - ws( 14) = 0.7235002975857214D-02 - ws( 15) = 0.7506722118635706D-02 - ws( 16) = 0.7757326745150023D-02 - ws( 17) = 0.7989111819423462D-02 - ws( 18) = 0.8204165508471162D-02 - ws( 19) = 0.8404390121396469D-02 - ws( 20) = 0.8591519877572933D-02 - ws( 21) = 0.8767137569309396D-02 - ws( 22) = 0.8932691234780346D-02 - ws( 23) = 0.9089511436828186D-02 - ws( 24) = 0.9238829427674742D-02 - ws( 25) = 0.9381796574823806D-02 - ws( 26) = 0.9519505207447891D-02 - ws( 27) = 0.9653013879726965D-02 - ws( 28) = 0.9783372286390396D-02 - ws( 29) = 0.9911662615149017D-02 - ws( 30) = 0.1003900739165263D-01 - ws( 31) = 0.1016671201554215D-01 - ws( 32) = 0.1029640862760314D-01 - ws( 33) = 0.1042984519264391D-01 - ws( 34) = 0.1057118938348711D-01 - ws( 35) = 0.1071740976194286D-01 - ws( 36) = 0.1088136631992611D-01 - ws( 37) = 0.1110859628915014D-01 - ws( 38) = 0.1123693330172737D-01 - ws( 39) = 0.1166435942903749D-01 - ws( 40) = 0.1874010385730766D-01 - endif - - - if( iquad .eq. 4 ) then - idomain = 4 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.9999999999800001D-01 - n = 40 - err = 0.4369883563913478D-13 - ierq = 0 - xs( 1) = 0.2281930238443709D-03 - xs( 2) = 0.1198039047570351D-02 - xs( 3) = 0.2924613513244332D-02 - xs( 4) = 0.5375943131472158D-02 - xs( 5) = 0.8506952773361193D-02 - xs( 6) = 0.1226507942573448D-01 - xs( 7) = 0.1659598290755330D-01 - xs( 8) = 0.2144756318217173D-01 - xs( 9) = 0.2677198078694028D-01 - xs( 10) = 0.3252625348308867D-01 - xs( 11) = 0.3867209436342906D-01 - xs( 12) = 0.4517545310233713D-01 - xs( 13) = 0.5200600764160659D-01 - xs( 14) = 0.5913670903597031D-01 - xs( 15) = 0.6654340436697552D-01 - xs( 16) = 0.7420452932159687D-01 - xs( 17) = 0.8210085306611378D-01 - xs( 18) = 0.9021525983190298D-01 - xs( 19) = 0.9853255656100876D-01 - xs( 20) = 0.1070393005764104D+00 - xs( 21) = 0.1157236444939223D+00 - xs( 22) = 0.1245751975152838D+00 - xs( 23) = 0.1335849031832505D+00 - xs( 24) = 0.1427449342143775D+00 - xs( 25) = 0.1520486053092601D+00 - xs( 26) = 0.1614903049358934D+00 - xs( 27) = 0.1710654481550661D+00 - xs( 28) = 0.1807704531967947D+00 - xs( 29) = 0.1906027413528392D+00 - xs( 30) = 0.2005607910933125D+00 - xs( 31) = 0.2106441823221751D+00 - xs( 32) = 0.2208538842260952D+00 - xs( 33) = 0.2311921584353898D+00 - xs( 34) = 0.2416636244163924D+00 - xs( 35) = 0.2522744295715798D+00 - xs( 36) = 0.2630371031849280D+00 - xs( 37) = 0.2739747305204802D+00 - xs( 38) = 0.2850553905493944D+00 - xs( 39) = 0.2964573802814468D+00 - xs( 40) = 0.3089986641914330D+00 - ws( 1) = 0.5851364781351594D-03 - ws( 2) = 0.1352217431446800D-02 - ws( 3) = 0.2095535469811507D-02 - ws( 4) = 0.2799512395744817D-02 - ws( 5) = 0.3453646299811780D-02 - ws( 6) = 0.4053483095389362D-02 - ws( 7) = 0.4599608546538213D-02 - ws( 8) = 0.5095570491994391D-02 - ws( 9) = 0.5546104798029319D-02 - ws( 10) = 0.5956067645067997D-02 - ws( 11) = 0.6329947750513751D-02 - ws( 12) = 0.6671723678826296D-02 - ws( 13) = 0.6984883497790352D-02 - ws( 14) = 0.7272498883036895D-02 - ws( 15) = 0.7537301940853015D-02 - ws( 16) = 0.7781746444590976D-02 - ws( 17) = 0.8008051608358895D-02 - ws( 18) = 0.8218232613033656D-02 - ws( 19) = 0.8414122982233312D-02 - ws( 20) = 0.8597392798023872D-02 - ws( 21) = 0.8769565275245304D-02 - ws( 22) = 0.8932033102171317D-02 - ws( 23) = 0.9086075154041794D-02 - ws( 24) = 0.9232873833919219D-02 - ws( 25) = 0.9373533969518049D-02 - ws( 26) = 0.9509101435764659D-02 - ws( 27) = 0.9640589074975239D-02 - ws( 28) = 0.9768994540715104D-02 - ws( 29) = 0.9895337393502656D-02 - ws( 30) = 0.1002069586522712D-01 - ws( 31) = 0.1014625070871642D-01 - ws( 32) = 0.1027326129746907D-01 - ws( 33) = 0.1040382745776196D-01 - ws( 34) = 0.1054068539418131D-01 - ws( 35) = 0.1068289936549114D-01 - ws( 36) = 0.1084475962149706D-01 - ws( 37) = 0.1102601578734761D-01 - ws( 38) = 0.1124231470719746D-01 - ws( 39) = 0.1147142642642031D-01 - ws( 40) = 0.1516637313271656D-01 - endif - - - if( iquad .eq. 5 ) then - idomain = 5 - rk0r = 0.1000010000000000D-11 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999980000D+00 - n = 40 - err = 0.5751024463520060D-13 - ierq = 0 - xs( 1) = 0.2371591722670432D-03 - xs( 2) = 0.1243028813168652D-02 - xs( 3) = 0.3026667225333169D-02 - xs( 4) = 0.5547101958182606D-02 - xs( 5) = 0.8751762337510899D-02 - xs( 6) = 0.1258316237747622D-01 - xs( 7) = 0.1698423484394774D-01 - xs( 8) = 0.2190160043506303D-01 - xs( 9) = 0.2728697546639719D-01 - xs( 10) = 0.3309737970510319D-01 - xs( 11) = 0.3929475451141445D-01 - xs( 12) = 0.4584538536593467D-01 - xs( 13) = 0.5271932960297045D-01 - xs( 14) = 0.5988992592695908D-01 - xs( 15) = 0.6733339728352938D-01 - xs( 16) = 0.7502853208072502D-01 - xs( 17) = 0.8295642301115949D-01 - xs( 18) = 0.9110024601964034D-01 - xs( 19) = 0.9944506762248646D-01 - xs( 20) = 0.1079776738048481D+00 - xs( 21) = 0.1166864171922191D+00 - xs( 22) = 0.1255610812887225D+00 - xs( 23) = 0.1345927616077968D+00 - xs( 24) = 0.1437737641594765D+00 - xs( 25) = 0.1530975221393531D+00 - xs( 26) = 0.1625585318257573D+00 - xs( 27) = 0.1721523103014863D+00 - xs( 28) = 0.1818753760551840D+00 - xs( 29) = 0.1917252619856867D+00 - xs( 30) = 0.2017005540186530D+00 - xs( 31) = 0.2118010424593511D+00 - xs( 32) = 0.2220277477664072D+00 - xs( 33) = 0.2323834282573913D+00 - xs( 34) = 0.2428731652196493D+00 - xs( 35) = 0.2535056840348061D+00 - xs( 36) = 0.2642863151884532D+00 - xs( 37) = 0.2752463298849925D+00 - xs( 38) = 0.2864111532905362D+00 - xs( 39) = 0.2978554550976150D+00 - xs( 40) = 0.3102152687774523D+00 - ws( 1) = 0.6078737924111034D-03 - ws( 2) = 0.1400256031887838D-02 - ws( 3) = 0.2160066519182213D-02 - ws( 4) = 0.2871927441456811D-02 - ws( 5) = 0.3527721330178387D-02 - ws( 6) = 0.4125513873137179D-02 - ws( 7) = 0.4667712831319817D-02 - ws( 8) = 0.5158969107387655D-02 - ws( 9) = 0.5604624866488419D-02 - ws( 10) = 0.6009850576349036D-02 - ws( 11) = 0.6379289645911972D-02 - ws( 12) = 0.6716989806228552D-02 - ws( 13) = 0.7026461693858490D-02 - ws( 14) = 0.7310773372109840D-02 - ws( 15) = 0.7572638386437020D-02 - ws( 16) = 0.7814483646198581D-02 - ws( 17) = 0.8038497401479709D-02 - ws( 18) = 0.8246662545826211D-02 - ws( 19) = 0.8440780869713217D-02 - ws( 20) = 0.8622492531360723D-02 - ws( 21) = 0.8793293477262206D-02 - ws( 22) = 0.8954552314997880D-02 - ws( 23) = 0.9107527368903627D-02 - ws( 24) = 0.9253384322966735D-02 - ws( 25) = 0.9393215208127330D-02 - ws( 26) = 0.9528057539322784D-02 - ws( 27) = 0.9658919298322455D-02 - ws( 28) = 0.9786799878600948D-02 - ws( 29) = 0.9912744034822387D-02 - ws( 30) = 0.1003778946589701D-01 - ws( 31) = 0.1016323778258776D-01 - ws( 32) = 0.1029063826242409D-01 - ws( 33) = 0.1042156291724746D-01 - ws( 34) = 0.1055795570890854D-01 - ws( 35) = 0.1070864892455307D-01 - ws( 36) = 0.1088121657750465D-01 - ws( 37) = 0.1101406151863214D-01 - ws( 38) = 0.1127294593536073D-01 - ws( 39) = 0.1211722103805303D-01 - ws( 40) = 0.1619208239385142D-01 - endif - - - if( iquad .eq. 6 ) then - idomain = 6 - rk0r = 0.1000010000000000D-11 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999980000D+00 - n = 39 - err = 0.4588852466875337D-13 - ierq = 0 - xs( 1) = 0.2571509425086846D-03 - xs( 2) = 0.1344400892675820D-02 - xs( 3) = 0.3260462327260748D-02 - xs( 4) = 0.5947138259197837D-02 - xs( 5) = 0.9336251252236083D-02 - xs( 6) = 0.1335886494804926D-01 - xs( 7) = 0.1795053540484615D-01 - xs( 8) = 0.2305349254842563D-01 - xs( 9) = 0.2861696712754444D-01 - xs( 10) = 0.3459664354366150D-01 - xs( 11) = 0.4095382892936314D-01 - xs( 12) = 0.4765462652140520D-01 - xs( 13) = 0.5466922214992596D-01 - xs( 14) = 0.6197130373756598D-01 - xs( 15) = 0.6953759763202218D-01 - xs( 16) = 0.7734749621890648D-01 - xs( 17) = 0.8538275331276141D-01 - xs( 18) = 0.9362722942939956D-01 - xs( 19) = 0.1020666746793960D+00 - xs( 20) = 0.1106885414768716D+00 - xs( 21) = 0.1194818223353504D+00 - xs( 22) = 0.1284369100599854D+00 - xs( 23) = 0.1375454789119821D+00 - xs( 24) = 0.1468003860751782D+00 - xs( 25) = 0.1561955940871381D+00 - xs( 26) = 0.1657261134152193D+00 - xs( 27) = 0.1753879702568013D+00 - xs( 28) = 0.1851782002916016D+00 - xs( 29) = 0.1950948785524740D+00 - xs( 30) = 0.2051371759636575D+00 - xs( 31) = 0.2153054688379035D+00 - xs( 32) = 0.2256016307006755D+00 - xs( 33) = 0.2360288753861021D+00 - xs( 34) = 0.2465948130194776D+00 - xs( 35) = 0.2573077136876939D+00 - xs( 36) = 0.2681799218143926D+00 - xs( 37) = 0.2792416106468452D+00 - xs( 38) = 0.2905515191507074D+00 - xs( 39) = 0.3023064663093689D+00 - ws( 1) = 0.6587036672012528D-03 - ws( 2) = 0.1509915431442230D-02 - ws( 3) = 0.2312278095702615D-02 - ws( 4) = 0.3049557840454309D-02 - ws( 5) = 0.3717093570288269D-02 - ws( 6) = 0.4317359968903770D-02 - ws( 7) = 0.4856349517454793D-02 - ws( 8) = 0.5341113703872425D-02 - ws( 9) = 0.5778464003338115D-02 - ws( 10) = 0.6174454018312498D-02 - ws( 11) = 0.6534279211770037D-02 - ws( 12) = 0.6862356570719471D-02 - ws( 13) = 0.7162457003015541D-02 - ws( 14) = 0.7437833379565836D-02 - ws( 15) = 0.7691324841305462D-02 - ws( 16) = 0.7925435518444154D-02 - ws( 17) = 0.8142392355302099D-02 - ws( 18) = 0.8344188006644224D-02 - ws( 19) = 0.8532613926609011D-02 - ws( 20) = 0.8709287417842696D-02 - ws( 21) = 0.8875675093624927D-02 - ws( 22) = 0.9033114400095037D-02 - ws( 23) = 0.9182834201501908D-02 - ws( 24) = 0.9325974658701852D-02 - ws( 25) = 0.9463609899706668D-02 - ws( 26) = 0.9596767550764869D-02 - ws( 27) = 0.9726454133107229D-02 - ws( 28) = 0.9853683359618141D-02 - ws( 29) = 0.9979523452581988D-02 - ws( 30) = 0.1010518715960859D-01 - ws( 31) = 0.1023173432589279D-01 - ws( 32) = 0.1036133302656512D-01 - ws( 33) = 0.1049394611024997D-01 - ws( 34) = 0.1063541647904906D-01 - ws( 35) = 0.1078897894906986D-01 - ws( 36) = 0.1098486172393651D-01 - ws( 37) = 0.1118187058102925D-01 - ws( 38) = 0.1132288795521647D-01 - ws( 39) = 0.1369708047470716D-01 - endif - - - if( iquad .eq. 7 ) then - idomain = 7 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5707963267928966D+00 - n = 38 - err = 0.3477112643328612D-13 - ierq = 0 - xs( 1) = 0.2749118534841364D-03 - xs( 2) = 0.1435730355860561D-02 - xs( 3) = 0.3475877304295992D-02 - xs( 4) = 0.6325999017721001D-02 - xs( 5) = 0.9906351476098287D-02 - xs( 6) = 0.1413792671858504D-01 - xs( 7) = 0.1894834641438567D-01 - xs( 8) = 0.2427392583678615D-01 - xs( 9) = 0.3005960714847905D-01 - xs( 10) = 0.3625800956932695D-01 - xs( 11) = 0.4282828036660849D-01 - xs( 12) = 0.4973504180856414D-01 - xs( 13) = 0.5694752099590945D-01 - xs( 14) = 0.6443885799325022D-01 - xs( 15) = 0.7218555786008678D-01 - xs( 16) = 0.8016705005430176D-01 - xs( 17) = 0.8836532624152701D-01 - xs( 18) = 0.9676463645627001D-01 - xs( 19) = 0.1053512307403414D+00 - xs( 20) = 0.1141131382696008D+00 - xs( 21) = 0.1230399790320386D+00 - xs( 22) = 0.1321228048473059D+00 - xs( 23) = 0.1413539678382171D+00 - xs( 24) = 0.1507270146494289D+00 - xs( 25) = 0.1602366070985183D+00 - xs( 26) = 0.1698784678032706D+00 - xs( 27) = 0.1796493564602152D+00 - xs( 28) = 0.1895470785138135D+00 - xs( 29) = 0.1995705132580322D+00 - xs( 30) = 0.2097197449122025D+00 - xs( 31) = 0.2199961048612918D+00 - xs( 32) = 0.2304028910052066D+00 - xs( 33) = 0.2409442635742530D+00 - xs( 34) = 0.2516320969547376D+00 - xs( 35) = 0.2624702458742282D+00 - xs( 36) = 0.2734873839590349D+00 - xs( 37) = 0.2847038496443197D+00 - xs( 38) = 0.2959100880412935D+00 - ws( 1) = 0.7040175200021032D-03 - ws( 2) = 0.1610424858907889D-02 - ws( 3) = 0.2458024925450828D-02 - ws( 4) = 0.3228743292196113D-02 - ws( 5) = 0.3918699187751002D-02 - ws( 6) = 0.4532358216420999D-02 - ws( 7) = 0.5077871136949289D-02 - ws( 8) = 0.5564128773015002D-02 - ws( 9) = 0.5999356831999167D-02 - ws( 10) = 0.6390656933703560D-02 - ws( 11) = 0.6744002841342060D-02 - ws( 12) = 0.7064402665403381D-02 - ws( 13) = 0.7356088096058861D-02 - ws( 14) = 0.7622677349347923D-02 - ws( 15) = 0.7867299950079129D-02 - ws( 16) = 0.8092688083579330D-02 - ws( 17) = 0.8301243585255724D-02 - ws( 18) = 0.8495088856008040D-02 - ws( 19) = 0.8676107702233286D-02 - ws( 20) = 0.8845980013373405D-02 - ws( 21) = 0.9006212361228224D-02 - ws( 22) = 0.9158166386513535D-02 - ws( 23) = 0.9303085199795218D-02 - ws( 24) = 0.9442119879109466D-02 - ws( 25) = 0.9576352281646112D-02 - ws( 26) = 0.9706830840238946D-02 - ws( 27) = 0.9834574143231769D-02 - ws( 28) = 0.9960683573460026D-02 - ws( 29) = 0.1008627805531906D-01 - ws( 30) = 0.1021256225761276D-01 - ws( 31) = 0.1034094884122023D-01 - ws( 32) = 0.1047161558344153D-01 - ws( 33) = 0.1061079312126314D-01 - ws( 34) = 0.1076231545429695D-01 - ws( 35) = 0.1090741104066880D-01 - ws( 36) = 0.1119962480060151D-01 - ws( 37) = 0.1165686334442630D-01 - ws( 38) = 0.1226875353952354D-01 - endif - - - if( iquad .eq. 8 ) then - idomain = 8 - rk0r = 0.1000010000000000D-11 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1570796326792897D+01 - n = 41 - err = 0.2025945689882200D-13 - ierq = 0 - xs( 1) = 0.2428069681632456D-03 - xs( 2) = 0.1271252079852066D-02 - xs( 3) = 0.3090176175395252D-02 - xs( 4) = 0.5652220084498950D-02 - xs( 5) = 0.8899094826944062D-02 - xs( 6) = 0.1276894590776962D-01 - xs( 7) = 0.1720156703101286D-01 - xs( 8) = 0.2214144093146124D-01 - xs( 9) = 0.2753901926973925D-01 - xs( 10) = 0.3335083835829272D-01 - xs( 11) = 0.3953900293849107D-01 - xs( 12) = 0.4607042246546291D-01 - xs( 13) = 0.5291603679625189D-01 - xs( 14) = 0.6005014946529254D-01 - xs( 15) = 0.6744990435317307D-01 - xs( 16) = 0.7509489420331054D-01 - xs( 17) = 0.8296687000067786D-01 - xs( 18) = 0.9104951865767934D-01 - xs( 19) = 0.9932828334652175D-01 - xs( 20) = 0.1077902096552196D+00 - xs( 21) = 0.1164238082111500D+00 - xs( 22) = 0.1252189295110659D+00 - xs( 23) = 0.1341666496227771D+00 - xs( 24) = 0.1432591668558429D+00 - xs( 25) = 0.1524897099151749D+00 - xs( 26) = 0.1618524582581198D+00 - xs( 27) = 0.1713424750890139D+00 - xs( 28) = 0.1809556526569528D+00 - xs( 29) = 0.1906886701026720D+00 - xs( 30) = 0.2005389648895051D+00 - xs( 31) = 0.2105047210996935D+00 - xs( 32) = 0.2205848633656951D+00 - xs( 33) = 0.2307791020499390D+00 - xs( 34) = 0.2410877896504006D+00 - xs( 35) = 0.2515117187541389D+00 - xs( 36) = 0.2620518813885743D+00 - xs( 37) = 0.2727084359451820D+00 - xs( 38) = 0.2834718394343154D+00 - xs( 39) = 0.2942816843382876D+00 - xs( 40) = 0.3049562890096185D+00 - xs( 41) = 0.3153138086272249D+00 - ws( 1) = 0.6221825955490056D-03 - ws( 2) = 0.1430225013749952D-02 - ws( 3) = 0.2199567568361880D-02 - ws( 4) = 0.2914682563250741D-02 - ws( 5) = 0.3568670679605466D-02 - ws( 6) = 0.4160947580911744D-02 - ws( 7) = 0.4695021973183477D-02 - ws( 8) = 0.5176467135071516D-02 - ws( 9) = 0.5611455108876982D-02 - ws( 10) = 0.6005880471805249D-02 - ws( 11) = 0.6364946769413506D-02 - ws( 12) = 0.6693060110343520D-02 - ws( 13) = 0.6993894490352995D-02 - ws( 14) = 0.7270527938381305D-02 - ws( 15) = 0.7525585390925197D-02 - ws( 16) = 0.7761356450264122D-02 - ws( 17) = 0.7979879251257387D-02 - ws( 18) = 0.8182994466956034D-02 - ws( 19) = 0.8372378122190730D-02 - ws( 20) = 0.8549561684596085D-02 - ws( 21) = 0.8715945750699538D-02 - ws( 22) = 0.8872811241884623D-02 - ws( 23) = 0.9021330218864369D-02 - ws( 24) = 0.9162577087862637D-02 - ws( 25) = 0.9297540374398700D-02 - ws( 26) = 0.9427135220412792D-02 - ws( 27) = 0.9552216616814494D-02 - ws( 28) = 0.9673592879078005D-02 - ws( 29) = 0.9792037008828731D-02 - ws( 30) = 0.9908292825933959D-02 - ws( 31) = 0.1002308628390954D-01 - ws( 32) = 0.1013720327610895D-01 - ws( 33) = 0.1025146357734051D-01 - ws( 34) = 0.1036688682679899D-01 - ws( 35) = 0.1048665334354027D-01 - ws( 36) = 0.1061685304953609D-01 - ws( 37) = 0.1077262025938865D-01 - ws( 38) = 0.1100607964563771D-01 - ws( 39) = 0.1122617609182316D-01 - ws( 40) = 0.1033082577456304D-01 - ws( 41) = 0.6256287919289322D-02 - endif - - - if( iquad .eq. 9 ) then - idomain = 9 - rk0r = 0.1000010000000000D-11 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 39 - err = 0.1363117041118227D-13 - ierq = 0 - xs( 1) = 0.2202760439543434D-03 - xs( 2) = 0.1156568210562477D-02 - xs( 3) = 0.2824836666565506D-02 - xs( 4) = 0.5199051638958682D-02 - xs( 5) = 0.8243923569951213D-02 - xs( 6) = 0.1191778900187221D-01 - xs( 7) = 0.1617535164523737D-01 - xs( 8) = 0.2097015607878580D-01 - xs( 9) = 0.2625656890697569D-01 - xs( 10) = 0.3199118151193544D-01 - xs( 11) = 0.3813367087048510D-01 - xs( 12) = 0.4464722262673722D-01 - xs( 13) = 0.5149863886078309D-01 - xs( 14) = 0.5865824104503464D-01 - xs( 15) = 0.6609965442776812D-01 - xs( 16) = 0.7379953476106853D-01 - xs( 17) = 0.8173727704723993D-01 - xs( 18) = 0.8989473016847076D-01 - xs( 19) = 0.9825593041414950D-01 - xs( 20) = 0.1068068599487454D+00 - xs( 21) = 0.1155352320469192D+00 - xs( 22) = 0.1244303024618172D+00 - xs( 23) = 0.1334827049796573D+00 - xs( 24) = 0.1426843084489058D+00 - xs( 25) = 0.1520280920757752D+00 - xs( 26) = 0.1615080337769870D+00 - xs( 27) = 0.1711190103810896D+00 - xs( 28) = 0.1808567018086282D+00 - xs( 29) = 0.1907174478784499D+00 - xs( 30) = 0.2006981087970225D+00 - xs( 31) = 0.2107959680381999D+00 - xs( 32) = 0.2210080481991734D+00 - xs( 33) = 0.2313320024709649D+00 - xs( 34) = 0.2417699645232227D+00 - xs( 35) = 0.2523578743188489D+00 - xs( 36) = 0.2633540144042844D+00 - xs( 37) = 0.2753100276714152D+00 - xs( 38) = 0.2885104774560300D+00 - xs( 39) = 0.3029442552394540D+00 - ws( 1) = 0.5648338012955771D-03 - ws( 2) = 0.1305681423445186D-02 - ws( 3) = 0.2026453020127313D-02 - ws( 4) = 0.2716049249937077D-02 - ws( 5) = 0.3366704280957578D-02 - ws( 6) = 0.3973435403315871D-02 - ws( 7) = 0.4533914102490069D-02 - ws( 8) = 0.5048065930800270D-02 - ws( 9) = 0.5517510877545423D-02 - ws( 10) = 0.5944987080550032D-02 - ws( 11) = 0.6333854381806073D-02 - ws( 12) = 0.6687717966748382D-02 - ws( 13) = 0.7010171816933839D-02 - ws( 14) = 0.7304641406527189D-02 - ws( 15) = 0.7574299560085904D-02 - ws( 16) = 0.7822031725848269D-02 - ws( 17) = 0.8050432114129542D-02 - ws( 18) = 0.8261817536256037D-02 - ws( 19) = 0.8458250225917011D-02 - ws( 20) = 0.8641564213000691D-02 - ws( 21) = 0.8813392019683912D-02 - ws( 22) = 0.8975190096680030D-02 - ws( 23) = 0.9128261740375575D-02 - ws( 24) = 0.9273776778196078D-02 - ws( 25) = 0.9412789467000358D-02 - ws( 26) = 0.9546244640863646D-02 - ws( 27) = 0.9674978139165720D-02 - ws( 28) = 0.9799763980628869D-02 - ws( 29) = 0.9921263227233296D-02 - ws( 30) = 0.1003980872883322D-01 - ws( 31) = 0.1015557597032981D-01 - ws( 32) = 0.1026778381038322D-01 - ws( 33) = 0.1037749902553699D-01 - ws( 34) = 0.1050711941190711D-01 - ws( 35) = 0.1072374134677293D-01 - ws( 36) = 0.1133136836758223D-01 - ws( 37) = 0.1271797447120761D-01 - ws( 38) = 0.1333967543898389D-01 - ws( 39) = 0.1607083546204480D-01 - endif - - - if( iquad .eq. 10 ) then - idomain = 10 - rk0r = 0.1000010000000000D-11 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 36 - err = 0.2991859715296105D-13 - ierq = 0 - xs( 1) = 0.1997570273509774D-03 - xs( 2) = 0.1049534853747165D-02 - xs( 3) = 0.2566427204888468D-02 - xs( 4) = 0.4731141995737958D-02 - xs( 5) = 0.7517011441461511D-02 - xs( 6) = 0.1089176482713510D-01 - xs( 7) = 0.1481915104071963D-01 - xs( 8) = 0.1926045534423598D-01 - xs( 9) = 0.2417579736108699D-01 - xs( 10) = 0.2952514066497286D-01 - xs( 11) = 0.3526899989461699D-01 - xs( 12) = 0.4136888680359516D-01 - xs( 13) = 0.4778759957294644D-01 - xs( 14) = 0.5448954551046727D-01 - xs( 15) = 0.6144140266260231D-01 - xs( 16) = 0.6861352141599734D-01 - xs( 17) = 0.7598235209682952D-01 - xs( 18) = 0.8353352199592580D-01 - xs( 19) = 0.9126392841267086D-01 - xs( 20) = 0.9918048691581134D-01 - xs( 21) = 0.1072948195011530D+00 - xs( 22) = 0.1156165478863077D+00 - xs( 23) = 0.1241490748135101D+00 - xs( 24) = 0.1328892667691321D+00 - xs( 25) = 0.1418295709232332D+00 - xs( 26) = 0.1509605008174148D+00 - xs( 27) = 0.1602726298768710D+00 - xs( 28) = 0.1697577631094366D+00 - xs( 29) = 0.1794087271380700D+00 - xs( 30) = 0.1892213739165355D+00 - xs( 31) = 0.1991933683230942D+00 - xs( 32) = 0.2093205863488680D+00 - xs( 33) = 0.2195926235640679D+00 - xs( 34) = 0.2300620696156626D+00 - xs( 35) = 0.2405713422533573D+00 - xs( 36) = 0.2507160047559357D+00 - ws( 1) = 0.5122998841607194D-03 - ws( 2) = 0.1185823233944320D-02 - ws( 3) = 0.1844699295560062D-02 - ws( 4) = 0.2480258341707203D-02 - ws( 5) = 0.3086074785943981D-02 - ws( 6) = 0.3657364561320936D-02 - ws( 7) = 0.4190933609242516D-02 - ws( 8) = 0.4685011409522146D-02 - ws( 9) = 0.5138988197795379D-02 - ws( 10) = 0.5553110321499359D-02 - ws( 11) = 0.5928189045656578D-02 - ws( 12) = 0.6265379815541664D-02 - ws( 13) = 0.6566103602616519D-02 - ws( 14) = 0.6832212160248813D-02 - ws( 15) = 0.7066519533216427D-02 - ws( 16) = 0.7273737789835443D-02 - ws( 17) = 0.7461486489251336D-02 - ws( 18) = 0.7640354181129666D-02 - ws( 19) = 0.7821706930963308D-02 - ws( 20) = 0.8013469739345289D-02 - ws( 21) = 0.8216871041896749D-02 - ws( 22) = 0.8427151098725206D-02 - ws( 23) = 0.8637338201187965D-02 - ws( 24) = 0.8841735484292360D-02 - ws( 25) = 0.9037263205529333D-02 - ws( 26) = 0.9223120639308665D-02 - ws( 27) = 0.9399837363330263D-02 - ws( 28) = 0.9568862243239723D-02 - ws( 29) = 0.9733242188044148D-02 - ws( 30) = 0.9890556535536473D-02 - ws( 31) = 0.1005560988690551D-01 - ws( 32) = 0.1022867039868936D-01 - ws( 33) = 0.1042939453332358D-01 - ws( 34) = 0.1071250616081987D-01 - ws( 35) = 0.1126659399277964D-01 - ws( 36) = 0.1095410520122310D-01 - endif - - - if( iquad .eq. 11 ) then - idomain = 11 - rk0r = 0.1000010000000000D-11 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 32 - err = 0.8415112922839024D-13 - ierq = 0 - xs( 1) = 0.1803464617591545D-03 - xs( 2) = 0.9483152959262652D-03 - xs( 3) = 0.2322225861649010D-02 - xs( 4) = 0.4289567457114490D-02 - xs( 5) = 0.6832742325207215D-02 - xs( 6) = 0.9930148069751865D-02 - xs( 7) = 0.1355714307706615D-01 - xs( 8) = 0.1768701064367532D-01 - xs( 9) = 0.2229186652135651D-01 - xs( 10) = 0.2734346207966306D-01 - xs( 11) = 0.3281385537470922D-01 - xs( 12) = 0.3867594124925073D-01 - xs( 13) = 0.4490384616741629D-01 - xs( 14) = 0.5147320258220067D-01 - xs( 15) = 0.5836132209003482D-01 - xs( 16) = 0.6554728946936086D-01 - xs( 17) = 0.7301199509389412D-01 - xs( 18) = 0.8073812672567460D-01 - xs( 19) = 0.8871013155728516D-01 - xs( 20) = 0.9691416643589310D-01 - xs( 21) = 0.1053380297330217D+00 - xs( 22) = 0.1139711281207405D+00 - xs( 23) = 0.1228044578752209D+00 - xs( 24) = 0.1318303546057717D+00 - xs( 25) = 0.1410430593583995D+00 - xs( 26) = 0.1504382403912406D+00 - xs( 27) = 0.1600117358753177D+00 - xs( 28) = 0.1697634613067260D+00 - xs( 29) = 0.1796949296494543D+00 - xs( 30) = 0.1898136234228747D+00 - xs( 31) = 0.2000805745095011D+00 - xs( 32) = 0.2098431101939462D+00 - ws( 1) = 0.4626072548551185D-03 - ws( 2) = 0.1072523627320044D-02 - ws( 3) = 0.1673177740625143D-02 - ws( 4) = 0.2258556694666720D-02 - ws( 5) = 0.2824176495317105D-02 - ws( 6) = 0.3366511836787218D-02 - ws( 7) = 0.3883010147460133D-02 - ws( 8) = 0.4372064158184585D-02 - ws( 9) = 0.4832928282520005D-02 - ws( 10) = 0.5265597007822086D-02 - ws( 11) = 0.5670665503926530D-02 - ws( 12) = 0.6049189480789896D-02 - ws( 13) = 0.6402556211862667D-02 - ws( 14) = 0.6732373579528893D-02 - ws( 15) = 0.7040379711475599D-02 - ws( 16) = 0.7328370880788255D-02 - ws( 17) = 0.7598156509181339D-02 - ws( 18) = 0.7851517045811515D-02 - ws( 19) = 0.8090183350905594D-02 - ws( 20) = 0.8315848211941056D-02 - ws( 21) = 0.8530135186851917D-02 - ws( 22) = 0.8734618203668790D-02 - ws( 23) = 0.8930837590790856D-02 - ws( 24) = 0.9120096833870142D-02 - ws( 25) = 0.9304719113029552D-02 - ws( 26) = 0.9487259860227720D-02 - ws( 27) = 0.9663040096864249D-02 - ws( 28) = 0.9839260069390610D-02 - ws( 29) = 0.1001925770271056D-01 - ws( 30) = 0.1021845156003880D-01 - ws( 31) = 0.1100731159867613D-01 - ws( 32) = 0.1059663400019898D-01 - endif - - - if( iquad .eq. 12 ) then - idomain = 12 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 40 - err = 0.4833348846990815D-13 - ierq = 0 - xs( 1) = 0.2079163895871619D-03 - xs( 2) = 0.1096568404281686D-02 - xs( 3) = 0.2695812943272894D-02 - xs( 4) = 0.4996010319460788D-02 - xs( 5) = 0.7970862284085710D-02 - xs( 6) = 0.1157971921468043D-01 - xs( 7) = 0.1577405718515938D-01 - xs( 8) = 0.2050363292835369D-01 - xs( 9) = 0.2572037815965317D-01 - xs( 10) = 0.3138019090432193D-01 - xs( 11) = 0.3744340900352831D-01 - xs( 12) = 0.4387463980938890D-01 - xs( 13) = 0.5064235515022626D-01 - xs( 14) = 0.5771845273482739D-01 - xs( 15) = 0.6507786225908326D-01 - xs( 16) = 0.7269821377848776D-01 - xs( 17) = 0.8055956158941011D-01 - xs( 18) = 0.8864415078687661D-01 - xs( 19) = 0.9693621517541262D-01 - xs( 20) = 0.1054217988315859D+00 - xs( 21) = 0.1140885969889366D+00 - xs( 22) = 0.1229258143280292D+00 - xs( 23) = 0.1319240402581753D+00 - xs( 24) = 0.1410751415945748D+00 - xs( 25) = 0.1503721735856026D+00 - xs( 26) = 0.1598093109199937D+00 - xs( 27) = 0.1693818006939061D+00 - xs( 28) = 0.1790859402869873D+00 - xs( 29) = 0.1889190859743761D+00 - xs( 30) = 0.1988797070405022D+00 - xs( 31) = 0.2089674476988691D+00 - xs( 32) = 0.2191833968398397D+00 - xs( 33) = 0.2295303311713882D+00 - xs( 34) = 0.2400131870324387D+00 - xs( 35) = 0.2506395449748770D+00 - xs( 36) = 0.2614220200446317D+00 - xs( 37) = 0.2723815113594316D+00 - xs( 38) = 0.2835256026889597D+00 - xs( 39) = 0.2949436895119406D+00 - xs( 40) = 0.3079321899214131D+00 - ws( 1) = 0.5337455340959535D-03 - ws( 2) = 0.1244291278518059D-02 - ws( 3) = 0.1952675543650807D-02 - ws( 4) = 0.2643287799295359D-02 - ws( 5) = 0.3299520784318112D-02 - ws( 6) = 0.3909999155973494D-02 - ws( 7) = 0.4470239043022330D-02 - ws( 8) = 0.4980873336218253D-02 - ws( 9) = 0.5445260541678701D-02 - ws( 10) = 0.5867758366286232D-02 - ws( 11) = 0.6252786250823318D-02 - ws( 12) = 0.6604428137410765D-02 - ws( 13) = 0.6926325421997358D-02 - ws( 14) = 0.7221696867525737D-02 - ws( 15) = 0.7493398425676471D-02 - ws( 16) = 0.7743984192317820D-02 - ws( 17) = 0.7975755628736937D-02 - ws( 18) = 0.8190798031012804D-02 - ws( 19) = 0.8391007406759366D-02 - ws( 20) = 0.8578111471462332D-02 - ws( 21) = 0.8753687702586214D-02 - ws( 22) = 0.8919180339070328D-02 - ws( 23) = 0.9075917479801469D-02 - ws( 24) = 0.9225128937506802D-02 - ws( 25) = 0.9367964948665668D-02 - ws( 26) = 0.9505517868205792D-02 - ws( 27) = 0.9638844145256306D-02 - ws( 28) = 0.9768993531084172D-02 - ws( 29) = 0.9897042000034214D-02 - ws( 30) = 0.1002414586273673D-01 - ws( 31) = 0.1015153599111176D-01 - ws( 32) = 0.1028070995297958D-01 - ws( 33) = 0.1041411962583252D-01 - ws( 34) = 0.1055352670569216D-01 - ws( 35) = 0.1070488877776124D-01 - ws( 36) = 0.1086258755085065D-01 - ws( 37) = 0.1106708518269106D-01 - ws( 38) = 0.1132248381367119D-01 - ws( 39) = 0.1128675699478684D-01 - ws( 40) = 0.1743630374269973D-01 - endif - - - if( iquad .eq. 13 ) then - idomain = 13 - rk0r = 0.2000000000100001D-01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999800000D-01 - n = 40 - err = 0.3421829116828564D-13 - ierq = 0 - xs( 1) = 0.2089113764432871D-03 - xs( 2) = 0.1101399036219190D-02 - xs( 3) = 0.2706197599956379D-02 - xs( 4) = 0.5012313355975856D-02 - xs( 5) = 0.7992625104776191D-02 - xs( 6) = 0.1160625482975721D-01 - xs( 7) = 0.1580481672080440D-01 - xs( 8) = 0.2053834316806566D-01 - xs( 9) = 0.2575904132017693D-01 - xs( 10) = 0.3142302180883100D-01 - xs( 11) = 0.3749075242293453D-01 - xs( 12) = 0.4392688988605067D-01 - xs( 13) = 0.5069988828624968D-01 - xs( 14) = 0.5778157948051147D-01 - xs( 15) = 0.6514679944462792D-01 - xs( 16) = 0.7277307475696740D-01 - xs( 17) = 0.8064036033164218D-01 - xs( 18) = 0.8873081486542313D-01 - xs( 19) = 0.9702860312038122D-01 - xs( 20) = 0.1055197184117814D+00 - xs( 21) = 0.1141918221858187D+00 - xs( 22) = 0.1230340998103316D+00 - xs( 23) = 0.1320371329340209D+00 - xs( 24) = 0.1411927892248843D+00 - xs( 25) = 0.1504941309887904D+00 - xs( 26) = 0.1599353434253131D+00 - xs( 27) = 0.1695116861764940D+00 - xs( 28) = 0.1792194685452798D+00 - xs( 29) = 0.1890560638676038D+00 - xs( 30) = 0.1990199408982983D+00 - xs( 31) = 0.2091107764804014D+00 - xs( 32) = 0.2193295714559020D+00 - xs( 33) = 0.2296791764995736D+00 - xs( 34) = 0.2401642744598068D+00 - xs( 35) = 0.2507937337854313D+00 - xs( 36) = 0.2615772216986453D+00 - xs( 37) = 0.2725288232111387D+00 - xs( 38) = 0.2837128947500792D+00 - xs( 39) = 0.2951018059055496D+00 - xs( 40) = 0.3078535555688260D+00 - ws( 1) = 0.5362483086119022D-03 - ws( 2) = 0.1249234108316987D-02 - ws( 3) = 0.1958603895308441D-02 - ws( 4) = 0.2649058967997664D-02 - ws( 5) = 0.3304635667286962D-02 - ws( 6) = 0.3914456854789666D-02 - ws( 7) = 0.4474277349079818D-02 - ws( 8) = 0.4984783302751736D-02 - ws( 9) = 0.5449292134137707D-02 - ws( 10) = 0.5872083862538478D-02 - ws( 11) = 0.6257493775789887D-02 - ws( 12) = 0.6609530643473633D-02 - ws( 13) = 0.6931777713709181D-02 - ws( 14) = 0.7227415868119104D-02 - ws( 15) = 0.7499282826202884D-02 - ws( 16) = 0.7749930667069679D-02 - ws( 17) = 0.7981670211631344D-02 - ws( 18) = 0.8196602601340116D-02 - ws( 19) = 0.8396642133187136D-02 - ws( 20) = 0.8583534428443869D-02 - ws( 21) = 0.8758872808849225D-02 - ws( 22) = 0.8924114557441546D-02 - ws( 23) = 0.9080597829512047D-02 - ws( 24) = 0.9229559655442547D-02 - ws( 25) = 0.9372155465643957D-02 - ws( 26) = 0.9509480249702169D-02 - ws( 27) = 0.9642591363762188D-02 - ws( 28) = 0.9772533605408496D-02 - ws( 29) = 0.9900390185446820D-02 - ws( 30) = 0.1002730679644545D-01 - ws( 31) = 0.1015460740697031D-01 - ws( 32) = 0.1028356332325837D-01 - ws( 33) = 0.1041657725411215D-01 - ws( 34) = 0.1055539310477927D-01 - ws( 35) = 0.1071042106373867D-01 - ws( 36) = 0.1086209747923289D-01 - ws( 37) = 0.1102258686811326D-01 - ws( 38) = 0.1129790394570619D-01 - ws( 39) = 0.1177115682320185D-01 - ws( 40) = 0.1795228285809571D-01 - endif - - - if( iquad .eq. 14 ) then - idomain = 14 - rk0r = 0.2000000000100001D-01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999800001D-01 - n = 40 - err = 0.2747619746326743D-13 - ierq = 0 - xs( 1) = 0.1454665480401953D-03 - xs( 2) = 0.8163288662249203D-03 - xs( 3) = 0.2130787722553794D-02 - xs( 4) = 0.4131173128144372D-02 - xs( 5) = 0.6811427422539615D-02 - xs( 6) = 0.1014008615174678D-01 - xs( 7) = 0.1407294889663016D-01 - xs( 8) = 0.1856121610071243D-01 - xs( 9) = 0.2355656424628889D-01 - xs( 10) = 0.2901376116000863D-01 - xs( 11) = 0.3489165068624418D-01 - xs( 12) = 0.4115325956587173D-01 - xs( 13) = 0.4776552565155256D-01 - xs( 14) = 0.5469891509865874D-01 - xs( 15) = 0.6192704595626228D-01 - xs( 16) = 0.6942635603531128D-01 - xs( 17) = 0.7717581827980052D-01 - xs( 18) = 0.8515669575419571D-01 - xs( 19) = 0.9335232741126050D-01 - xs( 20) = 0.1017479380891142D+00 - xs( 21) = 0.1103304687497603D+00 - xs( 22) = 0.1190884249027085D+00 - xs( 23) = 0.1280117423986744D+00 - xs( 24) = 0.1370916704910055D+00 - xs( 25) = 0.1463206726313374D+00 - xs( 26) = 0.1556923454909538D+00 - xs( 27) = 0.1652013583425919D+00 - xs( 28) = 0.1748434128747692D+00 - xs( 29) = 0.1846152299154624D+00 - xs( 30) = 0.1945145649378147D+00 - xs( 31) = 0.2045402625687457D+00 - xs( 32) = 0.2146923426859849D+00 - xs( 33) = 0.2249722713924678D+00 - xs( 34) = 0.2353829443690100D+00 - xs( 35) = 0.2459302180640874D+00 - xs( 36) = 0.2566192558217283D+00 - xs( 37) = 0.2674724296873292D+00 - xs( 38) = 0.2785044129221912D+00 - xs( 39) = 0.2897771726763664D+00 - xs( 40) = 0.3012080507800794D+00 - ws( 1) = 0.3806433045172958D-03 - ws( 2) = 0.9799817384956405D-03 - ws( 3) = 0.1655413962354878D-02 - ws( 4) = 0.2343979661863233D-02 - ws( 5) = 0.3011088606329546D-02 - ws( 6) = 0.3638727739833051D-02 - ws( 7) = 0.4218781246897592D-02 - ws( 8) = 0.4749657821470024D-02 - ws( 9) = 0.5233485215388045D-02 - ws( 10) = 0.5674048639293229D-02 - ws( 11) = 0.6075573333767629D-02 - ws( 12) = 0.6442140698688517D-02 - ws( 13) = 0.6777475511594538D-02 - ws( 14) = 0.7084911925312164D-02 - ws( 15) = 0.7367427479883936D-02 - ws( 16) = 0.7627692230383516D-02 - ws( 17) = 0.7868112990984331D-02 - ws( 18) = 0.8090868273992422D-02 - ws( 19) = 0.8297935338110116D-02 - ws( 20) = 0.8491112036320005D-02 - ws( 21) = 0.8672035774175166D-02 - ws( 22) = 0.8842201121388457D-02 - ws( 23) = 0.9002977087256609D-02 - ws( 24) = 0.9155624336849619D-02 - ws( 25) = 0.9301313659869434D-02 - ws( 26) = 0.9441144205161801D-02 - ws( 27) = 0.9576164659745536D-02 - ws( 28) = 0.9707398475337860D-02 - ws( 29) = 0.9835861326318173D-02 - ws( 30) = 0.9962633136575499D-02 - ws( 31) = 0.1008880369195248D-01 - ws( 32) = 0.1021557081294967D-01 - ws( 33) = 0.1034451981648678D-01 - ws( 34) = 0.1047781466766653D-01 - ws( 35) = 0.1061937850160991D-01 - ws( 36) = 0.1076630394925999D-01 - ws( 37) = 0.1092396280962310D-01 - ws( 38) = 0.1115319040853815D-01 - ws( 39) = 0.1158712679473139D-01 - ws( 40) = 0.1319475986061392D-01 - endif - - - if( iquad .eq. 15 ) then - idomain = 15 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.9999999999800001D-01 - n = 40 - err = 0.2026972532305972D-13 - ierq = 0 - xs( 1) = 0.2148238823129358D-03 - xs( 2) = 0.1129867587839309D-02 - xs( 3) = 0.2766242997596690D-02 - xs( 4) = 0.5103296598681710D-02 - xs( 5) = 0.8107261260994373D-02 - xs( 6) = 0.1173454405375934D-01 - xs( 7) = 0.1593679090694144D-01 - xs( 8) = 0.2066534646879736D-01 - xs( 9) = 0.2587405173475654D-01 - xs( 10) = 0.3152053052643230D-01 - xs( 11) = 0.3756651042982154D-01 - xs( 12) = 0.4397766039035234D-01 - xs( 13) = 0.5072324768907892D-01 - xs( 14) = 0.5777576657035487D-01 - xs( 15) = 0.6511059844320805D-01 - xs( 16) = 0.7270571760956038D-01 - xs( 17) = 0.8054143844619872D-01 - xs( 18) = 0.8860019569376644D-01 - xs( 19) = 0.9686635058861988D-01 - xs( 20) = 0.1053260179379144D+00 - xs( 21) = 0.1139669113326152D+00 - xs( 22) = 0.1227782051092572D+00 - xs( 23) = 0.1317504125485948D+00 - xs( 24) = 0.1408752803442798D+00 - xs( 25) = 0.1501456996631053D+00 - xs( 26) = 0.1595556343673160D+00 - xs( 27) = 0.1691000686898701D+00 - xs( 28) = 0.1787749723172473D+00 - xs( 29) = 0.1885772968905227D+00 - xs( 30) = 0.1985049877951120D+00 - xs( 31) = 0.2085570382058620D+00 - xs( 32) = 0.2187336437523510D+00 - xs( 33) = 0.2290362400227693D+00 - xs( 34) = 0.2394678939935516D+00 - xs( 35) = 0.2500340540034524D+00 - xs( 36) = 0.2607450917328036D+00 - xs( 37) = 0.2716103652951085D+00 - xs( 38) = 0.2826337960061241D+00 - xs( 39) = 0.2939188667398818D+00 - xs( 40) = 0.3055010552446429D+00 - ws( 1) = 0.5510943780438374D-03 - ws( 2) = 0.1277999212359467D-02 - ws( 3) = 0.1991305941381753D-02 - ws( 4) = 0.2677114318184286D-02 - ws( 5) = 0.3323458311620211D-02 - ws( 6) = 0.3922971696846046D-02 - ws( 7) = 0.4473366893176795D-02 - ws( 8) = 0.4976031089425869D-02 - ws( 9) = 0.5434312574823423D-02 - ws( 10) = 0.5852269681158291D-02 - ws( 11) = 0.6233974337428945D-02 - ws( 12) = 0.6583209777421396D-02 - ws( 13) = 0.6903386213282967D-02 - ws( 14) = 0.7197553340590926D-02 - ws( 15) = 0.7468443647384361D-02 - ws( 16) = 0.7718517392316358D-02 - ws( 17) = 0.7949999957445409D-02 - ws( 18) = 0.8164910952828675D-02 - ws( 19) = 0.8365087214473462D-02 - ws( 20) = 0.8552202048632551D-02 - ws( 21) = 0.8727782492676811D-02 - ws( 22) = 0.8893225709672284D-02 - ws( 23) = 0.9049815127839774D-02 - ws( 24) = 0.9198736832769169D-02 - ws( 25) = 0.9341096625300660D-02 - ws( 26) = 0.9477937642613919D-02 - ws( 27) = 0.9610259711928734D-02 - ws( 28) = 0.9739042591201542D-02 - ws( 29) = 0.9865265701543899D-02 - ws( 30) = 0.9989954955676991D-02 - ws( 31) = 0.1011419773729234D-01 - ws( 32) = 0.1023931265236626D-01 - ws( 33) = 0.1036668058986643D-01 - ws( 34) = 0.1049797723344065D-01 - ws( 35) = 0.1063465700125329D-01 - ws( 36) = 0.1079121013491751D-01 - ws( 37) = 0.1096489398819877D-01 - ws( 38) = 0.1114645074987717D-01 - ws( 39) = 0.1150257105310132D-01 - ws( 40) = 0.1227380715493022D-01 - endif - - - if( iquad .eq. 16 ) then - idomain = 16 - rk0r = 0.2000000000100001D-01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1999999999980000D+00 - n = 40 - err = 0.1718655640134303D-13 - ierq = 0 - xs( 1) = 0.2304157660331743D-03 - xs( 2) = 0.1209385920366715D-02 - xs( 3) = 0.2951221498814379D-02 - xs( 4) = 0.5422835295568819D-02 - xs( 5) = 0.8578379182132854D-02 - xs( 6) = 0.1236472519117583D-01 - xs( 7) = 0.1672694468612211D-01 - xs( 8) = 0.2161223645202383D-01 - xs( 9) = 0.2697198344036110D-01 - xs( 10) = 0.3276243029479128D-01 - xs( 11) = 0.3894459519966927D-01 - xs( 12) = 0.4548385890786465D-01 - xs( 13) = 0.5234947631307148D-01 - xs( 14) = 0.5951411805969680D-01 - xs( 15) = 0.6695347436209073D-01 - xs( 16) = 0.7464592035394441D-01 - xs( 17) = 0.8257223226672040D-01 - xs( 18) = 0.9071534349109472D-01 - xs( 19) = 0.9906013225564932D-01 - xs( 20) = 0.1075932354361867D+00 - xs( 21) = 0.1163028850922406D+00 - xs( 22) = 0.1251787656890249D+00 - xs( 23) = 0.1342118909237138D+00 - xs( 24) = 0.1433944996844287D+00 - xs( 25) = 0.1527199711570852D+00 - xs( 26) = 0.1621827600694839D+00 - xs( 27) = 0.1717783531140737D+00 - xs( 28) = 0.1815032503298868D+00 - xs( 29) = 0.1913549748094800D+00 - xs( 30) = 0.2013321249933361D+00 - xs( 31) = 0.2114344518800031D+00 - xs( 32) = 0.2216630224552652D+00 - xs( 33) = 0.2320206289163773D+00 - xs( 34) = 0.2425118609586035D+00 - xs( 35) = 0.2531449798826222D+00 - xs( 36) = 0.2639305532358526D+00 - xs( 37) = 0.2748930391509479D+00 - xs( 38) = 0.2860158574495785D+00 - xs( 39) = 0.2974248703618456D+00 - xs( 40) = 0.3098969268901770D+00 - ws( 1) = 0.5907952608138942D-03 - ws( 2) = 0.1364615882132195D-02 - ws( 3) = 0.2113466986333880D-02 - ws( 4) = 0.2822024017556598D-02 - ws( 5) = 0.3480113402516106D-02 - ws( 6) = 0.4083357976987750D-02 - ws( 7) = 0.4632247999739486D-02 - ws( 8) = 0.5130222956943151D-02 - ws( 9) = 0.5581980981053758D-02 - ws( 10) = 0.5992423163428587D-02 - ws( 11) = 0.6366145142223775D-02 - ws( 12) = 0.6707265789601386D-02 - ws( 13) = 0.7019420721100139D-02 - ws( 14) = 0.7305816689820010D-02 - ws( 15) = 0.7569296473981128D-02 - ws( 16) = 0.7812395594295987D-02 - ws( 17) = 0.8037387322433982D-02 - ws( 18) = 0.8246317926820786D-02 - ws( 19) = 0.8441035135261366D-02 - ws( 20) = 0.8623212282056852D-02 - ws( 21) = 0.8794369829510297D-02 - ws( 22) = 0.8955895383000421D-02 - ws( 23) = 0.9109062985284947D-02 - ws( 24) = 0.9255052046438238D-02 - ws( 25) = 0.9394967408346916D-02 - ws( 26) = 0.9529858694705007D-02 - ws( 27) = 0.9660745276167684D-02 - ws( 28) = 0.9788634536110320D-02 - ws( 29) = 0.9914573372821827D-02 - ws( 30) = 0.1003967571655920D-01 - ws( 31) = 0.1016516656309733D-01 - ws( 32) = 0.1029251424209923D-01 - ws( 33) = 0.1042331879642039D-01 - ws( 34) = 0.1056150021779039D-01 - ws( 35) = 0.1070500931517044D-01 - ws( 36) = 0.1086581238371060D-01 - ws( 37) = 0.1110690265316972D-01 - ws( 38) = 0.1129337614476556D-01 - ws( 39) = 0.1151226051310008D-01 - ws( 40) = 0.1667741607219957D-01 - endif - - - if( iquad .eq. 17 ) then - idomain = 17 - rk0r = 0.2000000000100001D-01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5999999999980000D+00 - n = 39 - err = 0.4223050339157671D-13 - ierq = 0 - xs( 1) = 0.2496630497174593D-03 - xs( 2) = 0.1306450040266780D-02 - xs( 3) = 0.3173141449633426D-02 - xs( 4) = 0.5798584468700908D-02 - xs( 5) = 0.9121365026010887D-02 - xs( 6) = 0.1307773454415335D-01 - xs( 7) = 0.1760659679635327D-01 - xs( 8) = 0.2265200472076084D-01 - xs( 9) = 0.2816395433928946D-01 - xs( 10) = 0.3409823919987538D-01 - xs( 11) = 0.4041590152202796D-01 - xs( 12) = 0.4708258517511089D-01 - xs( 13) = 0.5406793142273215D-01 - xs( 14) = 0.6134506346727432D-01 - xs( 15) = 0.6889016058991650D-01 - xs( 16) = 0.7668210651527547D-01 - xs( 17) = 0.8470219464670649D-01 - xs( 18) = 0.9293387620100191D-01 - xs( 19) = 0.1013625416343968D+00 - xs( 20) = 0.1099753293765743D+00 - xs( 21) = 0.1187609583815084D+00 - xs( 22) = 0.1277095825701923D+00 - xs( 23) = 0.1368126661605479D+00 - xs( 24) = 0.1460628794809742D+00 - xs( 25) = 0.1554540155033325D+00 - xs( 26) = 0.1649809278752382D+00 - xs( 27) = 0.1746394918448355D+00 - xs( 28) = 0.1844265882664318D+00 - xs( 29) = 0.1943401375147731D+00 - xs( 30) = 0.2043791231251596D+00 - xs( 31) = 0.2145437149796773D+00 - xs( 32) = 0.2248356044690704D+00 - xs( 33) = 0.2352577582687841D+00 - xs( 34) = 0.2458165452052139D+00 - xs( 35) = 0.2565200642386222D+00 - xs( 36) = 0.2673733521284443D+00 - xs( 37) = 0.2784554547474056D+00 - xs( 38) = 0.2896491826477176D+00 - xs( 39) = 0.3012780739559581D+00 - ws( 1) = 0.6396659000942726D-03 - ws( 2) = 0.1468904992846704D-02 - ws( 3) = 0.2255763067895994D-02 - ws( 4) = 0.2984755715102677D-02 - ws( 5) = 0.3650098551421240D-02 - ws( 6) = 0.4252418250542714D-02 - ws( 7) = 0.4795970398226957D-02 - ws( 8) = 0.5286515148336847D-02 - ws( 9) = 0.5730026189770129D-02 - ws( 10) = 0.6132061658515047D-02 - ws( 11) = 0.6497547124956241D-02 - ws( 12) = 0.6830768973577399D-02 - ws( 13) = 0.7135451111299403D-02 - ws( 14) = 0.7414848675426150D-02 - ws( 15) = 0.7671831069879714D-02 - ws( 16) = 0.7908947190064797D-02 - ws( 17) = 0.8128474571609741D-02 - ws( 18) = 0.8332456793486612D-02 - ws( 19) = 0.8522733264697036D-02 - ws( 20) = 0.8700964463105537D-02 - ws( 21) = 0.8868654609815587D-02 - ws( 22) = 0.9027172861508675D-02 - ws( 23) = 0.9177774118752731D-02 - ws( 24) = 0.9321619187438002D-02 - ws( 25) = 0.9459795659139946D-02 - ws( 26) = 0.9593342140826654D-02 - ws( 27) = 0.9723266238334655D-02 - ws( 28) = 0.9850578861838192D-02 - ws( 29) = 0.9976345607035060D-02 - ws( 30) = 0.1010166723356330D-01 - ws( 31) = 0.1022768763334735D-01 - ws( 32) = 0.1035655704724728D-01 - ws( 33) = 0.1048897159921077D-01 - ws( 34) = 0.1063452522494872D-01 - ws( 35) = 0.1077636879386860D-01 - ws( 36) = 0.1092819253476662D-01 - ws( 37) = 0.1128102526640494D-01 - ws( 38) = 0.1156664125933317D-01 - ws( 39) = 0.1382236488977462D-01 - endif - - - if( iquad .eq. 18 ) then - idomain = 18 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.5707963267928966D+00 - n = 38 - err = 0.2027240995611383D-13 - ierq = 0 - xs( 1) = 0.2740556183629387D-03 - xs( 2) = 0.1431421002667564D-02 - xs( 3) = 0.3466048663202589D-02 - xs( 4) = 0.6309378294319925D-02 - xs( 5) = 0.9882296559215898D-02 - xs( 6) = 0.1410616580089248D-01 - xs( 7) = 0.1890877090519946D-01 - xs( 8) = 0.2422647788318204D-01 - xs( 9) = 0.3000424237512807D-01 - xs( 10) = 0.3619470179844333D-01 - xs( 11) = 0.4275704190991263D-01 - xs( 12) = 0.4965594379380077D-01 - xs( 13) = 0.5686070682994603D-01 - xs( 14) = 0.6434454836000683D-01 - xs( 15) = 0.7208404830990084D-01 - xs( 16) = 0.8005870325860946D-01 - xs( 17) = 0.8825056112254136D-01 - xs( 18) = 0.9664391611826426D-01 - xs( 19) = 0.1052250507068047D+00 - xs( 20) = 0.1139820160894697D+00 - xs( 21) = 0.1229044459295683D+00 - xs( 22) = 0.1319833998655505D+00 - xs( 23) = 0.1412112346904260D+00 - xs( 24) = 0.1505815013624591D+00 - xs( 25) = 0.1600888692419084D+00 - xs( 26) = 0.1697290760832019D+00 - xs( 27) = 0.1794989054703288D+00 - xs( 28) = 0.1893962048785533D+00 - xs( 29) = 0.1994199378092678D+00 - xs( 30) = 0.2095702732456259D+00 - xs( 31) = 0.2198489433376474D+00 - xs( 32) = 0.2302591160569872D+00 - xs( 33) = 0.2408064319880926D+00 - xs( 34) = 0.2514990978227687D+00 - xs( 35) = 0.2623541378894611D+00 - xs( 36) = 0.2733818927621204D+00 - xs( 37) = 0.2846491546726781D+00 - xs( 38) = 0.2962868302182293D+00 - ws( 1) = 0.7018446216037044D-03 - ws( 2) = 0.1605805338307441D-02 - ws( 3) = 0.2451743672096746D-02 - ws( 4) = 0.3221546878034688D-02 - ws( 5) = 0.3911087748509584D-02 - ws( 6) = 0.4524583143250153D-02 - ws( 7) = 0.5070024209037636D-02 - ws( 8) = 0.5556232381214501D-02 - ws( 9) = 0.5991422385635914D-02 - ws( 10) = 0.6382711820127967D-02 - ws( 11) = 0.6736096512567661D-02 - ws( 12) = 0.7056602071558915D-02 - ws( 13) = 0.7348469392635841D-02 - ws( 14) = 0.7615317684831831D-02 - ws( 15) = 0.7860271018834773D-02 - ws( 16) = 0.8086051917961539D-02 - ws( 17) = 0.8295050460619334D-02 - ws( 18) = 0.8489376921325667D-02 - ws( 19) = 0.8670903886190254D-02 - ws( 20) = 0.8841301760193090D-02 - ws( 21) = 0.9002070005739094D-02 - ws( 22) = 0.9154565688214499D-02 - ws( 23) = 0.9300030265996226D-02 - ws( 24) = 0.9439615526358729D-02 - ws( 25) = 0.9574410050585269D-02 - ws( 26) = 0.9705467941173777D-02 - ws( 27) = 0.9833835274988278D-02 - ws( 28) = 0.9960584117828212D-02 - ws( 29) = 0.1008690219374503D-01 - ws( 30) = 0.1021408586513354D-01 - ws( 31) = 0.1034386691183268D-01 - ws( 32) = 0.1047846676322921D-01 - ws( 33) = 0.1062008552443445D-01 - ws( 34) = 0.1077047032866018D-01 - ws( 35) = 0.1095283062591264D-01 - ws( 36) = 0.1114539745696836D-01 - ws( 37) = 0.1170044790269986D-01 - ws( 38) = 0.1323506267337517D-01 - endif - - - if( iquad .eq. 19 ) then - idomain = 19 - rk0r = 0.2000000000100001D-01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.1570796326792897D+01 - n = 39 - err = 0.3967620607373803D-13 - ierq = 0 - xs( 1) = 0.2542874902623272D-03 - xs( 2) = 0.1331326759369490D-02 - xs( 3) = 0.3236025703607257D-02 - xs( 4) = 0.5918377698677002D-02 - xs( 5) = 0.9316533445352909D-02 - xs( 6) = 0.1336439477273893D-01 - xs( 7) = 0.1799704538789948D-01 - xs( 8) = 0.2315401608790152D-01 - xs( 9) = 0.2878080239359237D-01 - xs( 10) = 0.3482922338511719D-01 - xs( 11) = 0.4125713051339330D-01 - xs( 12) = 0.4802782037950704D-01 - xs( 13) = 0.5510936454386356D-01 - xs( 14) = 0.6247396726560256D-01 - xs( 15) = 0.7009739736417381D-01 - xs( 16) = 0.7795850446450699D-01 - xs( 17) = 0.8603881324656290D-01 - xs( 18) = 0.9432218392499715D-01 - xs( 19) = 0.1027945272748947D+00 - xs( 20) = 0.1114435646228780D+00 - xs( 21) = 0.1202586256209725D+00 - xs( 22) = 0.1292304785959878D+00 - xs( 23) = 0.1383511900562098D+00 - xs( 24) = 0.1476140104157584D+00 - xs( 25) = 0.1570132862168460D+00 - xs( 26) = 0.1665443946098621D+00 - xs( 27) = 0.1762037085073028D+00 - xs( 28) = 0.1859885875976210D+00 - xs( 29) = 0.1958974123118613D+00 - xs( 30) = 0.2059296437425022D+00 - xs( 31) = 0.2160858985788193D+00 - xs( 32) = 0.2263683749868432D+00 - xs( 33) = 0.2367814052573697D+00 - xs( 34) = 0.2473300397993197D+00 - xs( 35) = 0.2580244480500107D+00 - xs( 36) = 0.2689020419239096D+00 - xs( 37) = 0.2799575761864855D+00 - xs( 38) = 0.2911566765148055D+00 - xs( 39) = 0.3022746008739713D+00 - ws( 1) = 0.6515974620599714D-03 - ws( 2) = 0.1497761473746177D-02 - ws( 3) = 0.2303134568597876D-02 - ws( 4) = 0.3051134666888915D-02 - ws( 5) = 0.3734069721487821D-02 - ws( 6) = 0.4350780310690161D-02 - ws( 7) = 0.4904418923992176D-02 - ws( 8) = 0.5400433648624117D-02 - ws( 9) = 0.5845114495458250D-02 - ws( 10) = 0.6244713006766781D-02 - ws( 11) = 0.6604995435287286D-02 - ws( 12) = 0.6931073693234270D-02 - ws( 13) = 0.7227391497839723D-02 - ws( 14) = 0.7497783458541392D-02 - ws( 15) = 0.7745558408523590D-02 - ws( 16) = 0.7973582202049129D-02 - ws( 17) = 0.8184350123655064D-02 - ws( 18) = 0.8380047010484608D-02 - ws( 19) = 0.8562596602195556D-02 - ws( 20) = 0.8733702529089307D-02 - ws( 21) = 0.8894883198023795D-02 - ws( 22) = 0.9047502393503350D-02 - ws( 23) = 0.9192797057523261D-02 - ws( 24) = 0.9331902689923540D-02 - ws( 25) = 0.9465879913272803D-02 - ws( 26) = 0.9595735885559583D-02 - ws( 27) = 0.9722451982711981D-02 - ws( 28) = 0.9847040921611514D-02 - ws( 29) = 0.9970533439922609D-02 - ws( 30) = 0.1009403541003901D-01 - ws( 31) = 0.1021867437478369D-01 - ws( 32) = 0.1034712231415816D-01 - ws( 33) = 0.1048005206256720D-01 - ws( 34) = 0.1062584382323333D-01 - ws( 35) = 0.1077681656719181D-01 - ws( 36) = 0.1103857656886067D-01 - ws( 37) = 0.1127191283142514D-01 - ws( 38) = 0.1189621860714708D-01 - ws( 39) = 0.1271432273935529D-01 - endif - - - if( iquad .eq. 20 ) then - idomain = 20 - rk0r = 0.2000000000100001D-01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 36 - err = 0.7968475041172093D-13 - ierq = 0 - xs( 1) = 0.5552569613737748D-04 - xs( 2) = 0.6761595488462165D-03 - xs( 3) = 0.2098369440911284D-02 - xs( 4) = 0.4299063761216099D-02 - xs( 5) = 0.7237438856044108D-02 - xs( 6) = 0.1086389626370866D-01 - xs( 7) = 0.1512418197681060D-01 - xs( 8) = 0.1996286442451184D-01 - xs( 9) = 0.2532596625273260D-01 - xs( 10) = 0.3116271921496195D-01 - xs( 11) = 0.3742656151980406D-01 - xs( 12) = 0.4407555940045366D-01 - xs( 13) = 0.5107243463689670D-01 - xs( 14) = 0.5838434911460556D-01 - xs( 15) = 0.6598255851346646D-01 - xs( 16) = 0.7384201148538905D-01 - xs( 17) = 0.8194094253360698D-01 - xs( 18) = 0.9026048658771110D-01 - xs( 19) = 0.9878432983195543D-01 - xs( 20) = 0.1074984028263867D+00 - xs( 21) = 0.1163906170078409D+00 - xs( 22) = 0.1254506439090943D+00 - xs( 23) = 0.1346697324434374D+00 - xs( 24) = 0.1440405673683584D+00 - xs( 25) = 0.1535571654102804D+00 - xs( 26) = 0.1632147904327268D+00 - xs( 27) = 0.1730098968342843D+00 - xs( 28) = 0.1829402552670854D+00 - xs( 29) = 0.1930049173274282D+00 - xs( 30) = 0.2032036563879002D+00 - xs( 31) = 0.2135416304852447D+00 - xs( 32) = 0.2240210047440526D+00 - xs( 33) = 0.2346345166153712D+00 - xs( 34) = 0.2454481763483203D+00 - xs( 35) = 0.2562679303127670D+00 - xs( 36) = 0.2672088068790601D+00 - ws( 1) = 0.2321534968396668D-03 - ws( 2) = 0.1022556354347941D-02 - ws( 3) = 0.1817292149983694D-02 - ws( 4) = 0.2577215518099252D-02 - ws( 5) = 0.3291199134328879D-02 - ws( 6) = 0.3952614789684570D-02 - ws( 7) = 0.4558674137566854D-02 - ws( 8) = 0.5109665606338856D-02 - ws( 9) = 0.5608060510722857D-02 - ws( 10) = 0.6057678532898925D-02 - ws( 11) = 0.6463017019106040D-02 - ws( 12) = 0.6828769561304416D-02 - ws( 13) = 0.7159513841983388D-02 - ws( 14) = 0.7459531184266252D-02 - ws( 15) = 0.7732719237060925D-02 - ws( 16) = 0.7982565582874772D-02 - ws( 17) = 0.8212158176174255D-02 - ws( 18) = 0.8424216117452695D-02 - ws( 19) = 0.8621129884458203D-02 - ws( 20) = 0.8805005096565746D-02 - ws( 21) = 0.8977704763468305D-02 - ws( 22) = 0.9140892541589528D-02 - ws( 23) = 0.9296068046086283D-02 - ws( 24) = 0.9444601150250765D-02 - ws( 25) = 0.9587777432390601D-02 - ws( 26) = 0.9726875078748387D-02 - ws( 27) = 0.9863164293807602D-02 - ws( 28) = 0.9997265072813639D-02 - ws( 29) = 0.1013285567248323D-01 - ws( 30) = 0.1026613772908550D-01 - ws( 31) = 0.1040327254924763D-01 - ws( 32) = 0.1055331853096798D-01 - ws( 33) = 0.1075501285712859D-01 - ws( 34) = 0.1099604718140505D-01 - ws( 35) = 0.1123459954762037D-01 - ws( 36) = 0.1256628060704977D-01 - endif - - - if( iquad .eq. 21 ) then - idomain = 21 - rk0r = 0.2000000000100001D-01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 34 - err = 0.8573861252039140D-13 - ierq = 0 - xs( 1) = 0.2061106630865541D-03 - xs( 2) = 0.1082844252056328D-02 - xs( 3) = 0.2647589331866639D-02 - xs( 4) = 0.4880118293928303D-02 - xs( 5) = 0.7752708335683104D-02 - xs( 6) = 0.1123218836691499D-01 - xs( 7) = 0.1528182730058261D-01 - xs( 8) = 0.1986308970950836D-01 - xs( 9) = 0.2493713831565700D-01 - xs( 10) = 0.3046601831323768D-01 - xs( 11) = 0.3641351522299758D-01 - xs( 12) = 0.4274571714258494D-01 - xs( 13) = 0.4943133270027297D-01 - xs( 14) = 0.5644182179882919D-01 - xs( 15) = 0.6375139270740485D-01 - xs( 16) = 0.7133691078935390D-01 - xs( 17) = 0.7917775445693703D-01 - xs( 18) = 0.8725564468481851D-01 - xs( 19) = 0.9555446721147250D-01 - xs( 20) = 0.1040600998392725D+00 - xs( 21) = 0.1127602532361803D+00 - xs( 22) = 0.1216443352726429D+00 - xs( 23) = 0.1307033290957866D+00 - xs( 24) = 0.1399297035545388D+00 - xs( 25) = 0.1493173695458173D+00 - xs( 26) = 0.1588616702927329D+00 - xs( 27) = 0.1685594587371440D+00 - xs( 28) = 0.1784084694766044D+00 - xs( 29) = 0.1884089562374562D+00 - xs( 30) = 0.1985597708876262D+00 - xs( 31) = 0.2088789475193012D+00 - xs( 32) = 0.2193679263525468D+00 - xs( 33) = 0.2299412105809426D+00 - xs( 34) = 0.2403487518845227D+00 - ws( 1) = 0.5285858635722178D-03 - ws( 2) = 0.1223359604270453D-02 - ws( 3) = 0.1902707747817334D-02 - ws( 4) = 0.2557697813612477D-02 - ws( 5) = 0.3181921957440048D-02 - ws( 6) = 0.3770886687260239D-02 - ws( 7) = 0.4321943415638666D-02 - ws( 8) = 0.4834088771840098D-02 - ws( 9) = 0.5307668423242386D-02 - ws( 10) = 0.5744046583460885D-02 - ws( 11) = 0.6145290092434865D-02 - ws( 12) = 0.6513896463848565D-02 - ws( 13) = 0.6852578121973736D-02 - ws( 14) = 0.7164103061489363D-02 - ws( 15) = 0.7451185442633166D-02 - ws( 16) = 0.7716416707406787D-02 - ws( 17) = 0.7962227260748359D-02 - ws( 18) = 0.8190870279076150D-02 - ws( 19) = 0.8404422834790383D-02 - ws( 20) = 0.8604796239013567D-02 - ws( 21) = 0.8793745382678316D-02 - ws( 22) = 0.8972915931793366D-02 - ws( 23) = 0.9143826223749815D-02 - ws( 24) = 0.9307933927804239D-02 - ws( 25) = 0.9466692718335147D-02 - ws( 26) = 0.9621560129984216D-02 - ws( 27) = 0.9774189985982711D-02 - ws( 28) = 0.9926334865682633D-02 - ws( 29) = 0.1008142514523089D-01 - ws( 30) = 0.1024000098769753D-01 - ws( 31) = 0.1042010506124798D-01 - ws( 32) = 0.1066238501355189D-01 - ws( 33) = 0.1111870506660131D-01 - ws( 34) = 0.9893175126026025D-02 - endif - - - if( iquad .eq. 22 ) then - idomain = 22 - rk0r = 0.2000000000100001D-01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999800000D-01 - rkdi = 0.3141592653587793D+01 - n = 32 - err = 0.4931609753232026D-13 - ierq = 0 - xs( 1) = 0.1798178587861557D-03 - xs( 2) = 0.9455450216017929D-03 - xs( 3) = 0.2315482235114920D-02 - xs( 4) = 0.4277215233127516D-02 - xs( 5) = 0.6813276703678672D-02 - xs( 6) = 0.9902218512843999D-02 - xs( 7) = 0.1351956683229815D-01 - xs( 8) = 0.1763877661616162D-01 - xs( 9) = 0.2223213112050829D-01 - xs( 10) = 0.2727153917066726D-01 - xs( 11) = 0.3272920243349212D-01 - xs( 12) = 0.3857814345043388D-01 - xs( 13) = 0.4479259959345352D-01 - xs( 14) = 0.5134829743154830D-01 - xs( 15) = 0.5822262631565720D-01 - xs( 16) = 0.6539473312455132D-01 - xs( 17) = 0.7284555598073753D-01 - xs( 18) = 0.8055781704942964D-01 - xs( 19) = 0.8851598762618200D-01 - xs( 20) = 0.9670624131133855D-01 - xs( 21) = 0.1051163849934181D+00 - xs( 22) = 0.1137358488363453D+00 - xs( 23) = 0.1225556387350406D+00 - xs( 24) = 0.1315681556440922D+00 - xs( 25) = 0.1407679172627209D+00 - xs( 26) = 0.1501506547356366D+00 - xs( 27) = 0.1597119809107547D+00 - xs( 28) = 0.1694517433914979D+00 - xs( 29) = 0.1793720790933130D+00 - xs( 30) = 0.1894907542317643D+00 - xs( 31) = 0.1997659424161718D+00 - xs( 32) = 0.2099743648130020D+00 - ws( 1) = 0.4612524007771010D-03 - ws( 2) = 0.1069403413687959D-02 - ws( 3) = 0.1668367518229623D-02 - ws( 4) = 0.2252171629105645D-02 - ws( 5) = 0.2816360650882049D-02 - ws( 6) = 0.3357427937889208D-02 - ws( 7) = 0.3872829414754232D-02 - ws( 8) = 0.4360957340484884D-02 - ws( 9) = 0.4821058661152730D-02 - ws( 10) = 0.5253115583765461D-02 - ws( 11) = 0.5657708146143490D-02 - ws( 12) = 0.6035875598890568D-02 - ws( 13) = 0.6388988228170528D-02 - ws( 14) = 0.6718637278538044D-02 - ws( 15) = 0.7026544863618221D-02 - ws( 16) = 0.7314492371933394D-02 - ws( 17) = 0.7584275566632848D-02 - ws( 18) = 0.7837662560947466D-02 - ws( 19) = 0.8076375153890071D-02 - ws( 20) = 0.8302096817309396D-02 - ws( 21) = 0.8516483990451308D-02 - ws( 22) = 0.8720996726934426D-02 - ws( 23) = 0.8917356316183404D-02 - ws( 24) = 0.9106604158887506D-02 - ws( 25) = 0.9291691882841804D-02 - ws( 26) = 0.9475016407257774D-02 - ws( 27) = 0.9657526400338850D-02 - ws( 28) = 0.9835109003837172D-02 - ws( 29) = 0.1002268915734994D-01 - ws( 30) = 0.1021195111443555D-01 - ws( 31) = 0.1085593055976414D-01 - ws( 32) = 0.1021371896108980D-01 - endif - - - if( iquad .eq. 23 ) then - idomain = 23 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 40 - err = 0.3573327712117157D-13 - ierq = 0 - xs( 1) = 0.1864911725432738D-03 - xs( 2) = 0.9869103662508824D-03 - xs( 3) = 0.2439853081707694D-02 - xs( 4) = 0.4553595909923581D-02 - xs( 5) = 0.7320718149156804D-02 - xs( 6) = 0.1071591926857797D-01 - xs( 7) = 0.1470086199089369D-01 - xs( 8) = 0.1923098361639251D-01 - xs( 9) = 0.2426082304381415D-01 - xs( 10) = 0.2974707463224783D-01 - xs( 11) = 0.3564990136352316D-01 - xs( 12) = 0.4193325020494133D-01 - xs( 13) = 0.4856470954395484D-01 - xs( 14) = 0.5551521005538262D-01 - xs( 15) = 0.6275870603487385D-01 - xs( 16) = 0.7027188480125333D-01 - xs( 17) = 0.7803391200533957D-01 - xs( 18) = 0.8602620750233607D-01 - xs( 19) = 0.9423224487579653D-01 - xs( 20) = 0.1026373698296276D+00 - xs( 21) = 0.1112286350969260D+00 - xs( 22) = 0.1199946512159385D+00 - xs( 23) = 0.1289254534180362D+00 - xs( 24) = 0.1380123853359033D+00 - xs( 25) = 0.1472480003782236D+00 - xs( 26) = 0.1566259817709994D+00 - xs( 27) = 0.1661410832258174D+00 - xs( 28) = 0.1757890915372191D+00 - xs( 29) = 0.1855668147559623D+00 - xs( 30) = 0.1954721008720464D+00 - xs( 31) = 0.2055038969938140D+00 - xs( 32) = 0.2156623817040055D+00 - xs( 33) = 0.2259491732270843D+00 - xs( 34) = 0.2363673991690705D+00 - xs( 35) = 0.2469222714319757D+00 - xs( 36) = 0.2576242474184968D+00 - xs( 37) = 0.2684860787627903D+00 - xs( 38) = 0.2795337127743024D+00 - xs( 39) = 0.2907995711938334D+00 - xs( 40) = 0.3023539965264457D+00 - ws( 1) = 0.4791358728898186D-03 - ws( 2) = 0.1124404343542662D-02 - ws( 3) = 0.1783043540469072D-02 - ws( 4) = 0.2443237277082133D-02 - ws( 5) = 0.3086694865051330D-02 - ws( 6) = 0.3697196034706280D-02 - ws( 7) = 0.4265172353874513D-02 - ws( 8) = 0.4787444862920801D-02 - ws( 9) = 0.5264996399085822D-02 - ws( 10) = 0.5700863299125694D-02 - ws( 11) = 0.6098784382374999D-02 - ws( 12) = 0.6462516645970466D-02 - ws( 13) = 0.6795562549666600D-02 - ws( 14) = 0.7101102374532272D-02 - ws( 15) = 0.7382008365639053D-02 - ws( 16) = 0.7640880493413461D-02 - ws( 17) = 0.7880080553918738D-02 - ws( 18) = 0.8101759059076922D-02 - ws( 19) = 0.8307876055130418D-02 - ws( 20) = 0.8500218462747334D-02 - ws( 21) = 0.8680416050273131D-02 - ws( 22) = 0.8849957336693986D-02 - ws( 23) = 0.9010205993261387D-02 - ws( 24) = 0.9162418087067392D-02 - ws( 25) = 0.9307760295278343D-02 - ws( 26) = 0.9447328830588544D-02 - ws( 27) = 0.9582171286444343D-02 - ws( 28) = 0.9713311709701656D-02 - ws( 29) = 0.9841780311337523D-02 - ws( 30) = 0.9968615205018015D-02 - ws( 31) = 0.1009501643423606D-01 - ws( 32) = 0.1022237133459369D-01 - ws( 33) = 0.1035185604855478D-01 - ws( 34) = 0.1048616143880954D-01 - ws( 35) = 0.1062542970434291D-01 - ws( 36) = 0.1077756425033715D-01 - ws( 37) = 0.1095450915046035D-01 - ws( 38) = 0.1120835714516284D-01 - ws( 39) = 0.1164629681156530D-01 - ws( 40) = 0.1326765100431330D-01 - endif - - - if( iquad .eq. 24 ) then - idomain = 24 - rk0r = 0.4000000000100001D-01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 40 - err = 0.3695500373877836D-13 - ierq = 0 - xs( 1) = 0.1907813664287848D-03 - xs( 2) = 0.1008655604496228D-02 - xs( 3) = 0.2489857060048469D-02 - xs( 4) = 0.4638534133549829D-02 - xs( 5) = 0.7443320267330301D-02 - xs( 6) = 0.1087597530588387D-01 - xs( 7) = 0.1489635382598755D-01 - xs( 8) = 0.1945895991019034D-01 - xs( 9) = 0.2451796024539089D-01 - xs( 10) = 0.3003000411762364D-01 - xs( 11) = 0.3595539237830531D-01 - xs( 12) = 0.4225830915263994D-01 - xs( 13) = 0.4890662952363435D-01 - xs( 14) = 0.5587158889468817D-01 - xs( 15) = 0.6312744364277945D-01 - xs( 16) = 0.7065116738177037D-01 - xs( 17) = 0.7842218889315830D-01 - xs( 18) = 0.8642216498427198D-01 - xs( 19) = 0.9463478008292836D-01 - xs( 20) = 0.1030455666630874D+00 - xs( 21) = 0.1116417432535430D+00 - xs( 22) = 0.1204120687399503D+00 - xs( 23) = 0.1293467128233150D+00 - xs( 24) = 0.1384371431473864D+00 - xs( 25) = 0.1476760299361188D+00 - xs( 26) = 0.1570571693705733D+00 - xs( 27) = 0.1665754270829126D+00 - xs( 28) = 0.1762267056492219D+00 - xs( 29) = 0.1860079343227665D+00 - xs( 30) = 0.1959171087286963D+00 - xs( 31) = 0.2059533455829025D+00 - xs( 32) = 0.2161170437590141D+00 - xs( 33) = 0.2264099697437615D+00 - xs( 34) = 0.2368356511932198D+00 - xs( 35) = 0.2474022534535421D+00 - xs( 36) = 0.2581157066755794D+00 - xs( 37) = 0.2689895911954414D+00 - xs( 38) = 0.2800818393847047D+00 - xs( 39) = 0.2913985220881787D+00 - xs( 40) = 0.3031880769871162D+00 - ws( 1) = 0.4900442451919244D-03 - ws( 2) = 0.1147899125363139D-02 - ws( 3) = 0.1815353106129512D-02 - ws( 4) = 0.2480124582764781D-02 - ws( 5) = 0.3124644317804107D-02 - ws( 6) = 0.3733858174246888D-02 - ws( 7) = 0.4299231788691538D-02 - ws( 8) = 0.4818296192280157D-02 - ws( 9) = 0.5292461692924045D-02 - ws( 10) = 0.5725006880208435D-02 - ws( 11) = 0.6119804180018340D-02 - ws( 12) = 0.6480681005934581D-02 - ws( 13) = 0.6811171379642753D-02 - ws( 14) = 0.7114461825819384D-02 - ws( 15) = 0.7393414287085629D-02 - ws( 16) = 0.7650608419501775D-02 - ws( 17) = 0.7888380730405263D-02 - ws( 18) = 0.8108855175178330D-02 - ws( 19) = 0.8313966465337927D-02 - ws( 20) = 0.8505478878852559D-02 - ws( 21) = 0.8685002943997148D-02 - ws( 22) = 0.8854011528256040D-02 - ws( 23) = 0.9013856172930114D-02 - ws( 24) = 0.9165784107105427D-02 - ws( 25) = 0.9310956390953026D-02 - ws( 26) = 0.9450467262035845D-02 - ws( 27) = 0.9585366197053602D-02 - ws( 28) = 0.9716681802054757D-02 - ws( 29) = 0.9845439096193519D-02 - ws( 30) = 0.9972747498044405D-02 - ws( 31) = 0.1009978567049013D-01 - ws( 32) = 0.1022782825163379D-01 - ws( 33) = 0.1035891803217319D-01 - ws( 34) = 0.1049388780371872D-01 - ws( 35) = 0.1064222463837767D-01 - ws( 36) = 0.1079369978015370D-01 - ws( 37) = 0.1095314485451207D-01 - ws( 38) = 0.1126278126761629D-01 - ws( 39) = 0.1164276729717554D-01 - ws( 40) = 0.1399598532898576D-01 - endif - - - if( iquad .eq. 25 ) then - idomain = 25 - rk0r = 0.4000000000100001D-01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5999999999800001D-01 - n = 40 - err = 0.4527507198945641D-13 - ierq = 0 - xs( 1) = 0.1943287734211160D-03 - xs( 2) = 0.1026763535569829D-02 - xs( 3) = 0.2531982579724788D-02 - xs( 4) = 0.4711162964849152D-02 - xs( 5) = 0.7549971374935838D-02 - xs( 6) = 0.1101784461540170D-01 - xs( 7) = 0.1507309786536246D-01 - xs( 8) = 0.1966931123776118D-01 - xs( 9) = 0.2476011430486570D-01 - xs( 10) = 0.3030183569758556D-01 - xs( 11) = 0.3625457484888690D-01 - xs( 12) = 0.4258238769923908D-01 - xs( 13) = 0.4925307554672888D-01 - xs( 14) = 0.5623784642276423D-01 - xs( 15) = 0.6351097015351820D-01 - xs( 16) = 0.7104946838302111D-01 - xs( 17) = 0.7883284536406722D-01 - xs( 18) = 0.8684285345946698D-01 - xs( 19) = 0.9506328583941562D-01 - xs( 20) = 0.1034797908563428D+00 - xs( 21) = 0.1120797049700677D+00 - xs( 22) = 0.1208519028759092D+00 - xs( 23) = 0.1297866645755501D+00 - xs( 24) = 0.1388755596987979D+00 - xs( 25) = 0.1481113496737472D+00 - xs( 26) = 0.1574879087178447D+00 - xs( 27) = 0.1670001653478757D+00 - xs( 28) = 0.1766440651371167D+00 - xs( 29) = 0.1864165591749821D+00 - xs( 30) = 0.1963156312065965D+00 - xs( 31) = 0.2063403414891415D+00 - xs( 32) = 0.2164909871234576D+00 - xs( 33) = 0.2267692069880476D+00 - xs( 34) = 0.2371783364187802D+00 - xs( 35) = 0.2477229772201739D+00 - xs( 36) = 0.2584157216455876D+00 - xs( 37) = 0.2692638301308111D+00 - xs( 38) = 0.2802832842467204D+00 - xs( 39) = 0.2915838611708764D+00 - xs( 40) = 0.3030329068501525D+00 - ws( 1) = 0.4990796351942573D-03 - ws( 2) = 0.1167636783695707D-02 - ws( 3) = 0.1843138006366315D-02 - ws( 4) = 0.2512840738125839D-02 - ws( 5) = 0.3159583851873388D-02 - ws( 6) = 0.3769101939782701D-02 - ws( 7) = 0.4333587552417945D-02 - ws( 8) = 0.4851068331482423D-02 - ws( 9) = 0.5323243130810920D-02 - ws( 10) = 0.5753547620289638D-02 - ws( 11) = 0.6145944132449254D-02 - ws( 12) = 0.6504321022157430D-02 - ws( 13) = 0.6832261841458284D-02 - ws( 14) = 0.7132996719647997D-02 - ws( 15) = 0.7409425484570618D-02 - ws( 16) = 0.7664158905878220D-02 - ws( 17) = 0.7899557225188881D-02 - ws( 18) = 0.8117760913925222D-02 - ws( 19) = 0.8320714686911701D-02 - ws( 20) = 0.8510187254969551D-02 - ws( 21) = 0.8687788972533207D-02 - ws( 22) = 0.8854988774736500D-02 - ws( 23) = 0.9013131201642873D-02 - ws( 24) = 0.9163453954408972D-02 - ws( 25) = 0.9307106037797176D-02 - ws( 26) = 0.9445167258480821D-02 - ws( 27) = 0.9578669915584898D-02 - ws( 28) = 0.9708621782949295D-02 - ws( 29) = 0.9836032332149670D-02 - ws( 30) = 0.9961941782510537D-02 - ws( 31) = 0.1008752659147452D-01 - ws( 32) = 0.1021407964652257D-01 - ws( 33) = 0.1034347764539260D-01 - ws( 34) = 0.1047665021060914D-01 - ws( 35) = 0.1061723922996417D-01 - ws( 36) = 0.1076793813119009D-01 - ws( 37) = 0.1094126065795442D-01 - ws( 38) = 0.1118033789020163D-01 - ws( 39) = 0.1161964187617505D-01 - ws( 40) = 0.1235957782717735D-01 - endif - - - if( iquad .eq. 26 ) then - idomain = 26 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.9999999999800001D-01 - n = 40 - err = 0.2288625198470512D-13 - ierq = 0 - xs( 1) = 0.2028526752979554D-03 - xs( 2) = 0.1069528800045869D-02 - xs( 3) = 0.2628758439179934D-02 - xs( 4) = 0.4872470737536246D-02 - xs( 5) = 0.7778432318408667D-02 - xs( 6) = 0.1131111735186998D-01 - xs( 7) = 0.1542659238731750D-01 - xs( 8) = 0.2007794530202816D-01 - xs( 9) = 0.2521918241364175D-01 - xs( 10) = 0.3080731287579835D-01 - xs( 11) = 0.3680313414930981D-01 - xs( 12) = 0.4317130247191948D-01 - xs( 13) = 0.4988009318856389D-01 - xs( 14) = 0.5690107083587898D-01 - xs( 15) = 0.6420876522248876D-01 - xs( 16) = 0.7178038371754528D-01 - xs( 17) = 0.7959556140805375D-01 - xs( 18) = 0.8763614204027022D-01 - xs( 19) = 0.9588598243959265D-01 - xs( 20) = 0.1043307754882630D+00 - xs( 21) = 0.1129578891906244D+00 - xs( 22) = 0.1217562210857531D+00 - xs( 23) = 0.1307160682550015D+00 - xs( 24) = 0.1398290136813294D+00 - xs( 25) = 0.1490878299961550D+00 - xs( 26) = 0.1584864018349328D+00 - xs( 27) = 0.1680196680394771D+00 - xs( 28) = 0.1776835882711113D+00 - xs( 29) = 0.1874751338753606D+00 - xs( 30) = 0.1973923086966543D+00 - xs( 31) = 0.2074342367982238D+00 - xs( 32) = 0.2176012492925413D+00 - xs( 33) = 0.2278951062466934D+00 - xs( 34) = 0.2383191329973217D+00 - xs( 35) = 0.2488801237205488D+00 - xs( 36) = 0.2595871165717951D+00 - xs( 37) = 0.2704565219264562D+00 - xs( 38) = 0.2815296781250012D+00 - xs( 39) = 0.2927429663151371D+00 - xs( 40) = 0.3044645381559050D+00 - ws( 1) = 0.5206977495013213D-03 - ws( 2) = 0.1213261658599519D-02 - ws( 3) = 0.1903929243001382D-02 - ws( 4) = 0.2579771061439485D-02 - ws( 5) = 0.3226139637825600D-02 - ws( 6) = 0.3831812888451093D-02 - ws( 7) = 0.4391253379490805D-02 - ws( 8) = 0.4903753603552566D-02 - ws( 9) = 0.5371543854515604D-02 - ws( 10) = 0.5798183092708847D-02 - ws( 11) = 0.6187573316770496D-02 - ws( 12) = 0.6543481590085947D-02 - ws( 13) = 0.6869366055395881D-02 - ws( 14) = 0.7168348999150452D-02 - ws( 15) = 0.7443245146455801D-02 - ws( 16) = 0.7696601324276011D-02 - ws( 17) = 0.7930731262572890D-02 - ws( 18) = 0.8147742417568946D-02 - ws( 19) = 0.8349556542174815D-02 - ws( 20) = 0.8537926649398857D-02 - ws( 21) = 0.8714452513858013D-02 - ws( 22) = 0.8880596013287168D-02 - ws( 23) = 0.9037697105841076D-02 - ws( 24) = 0.9186990480945647D-02 - ws( 25) = 0.9329623741460942D-02 - ws( 26) = 0.9466677272773404D-02 - ws( 27) = 0.9599182932927851D-02 - ws( 28) = 0.9728152293964187D-02 - ws( 29) = 0.9854607851199692D-02 - ws( 30) = 0.9979596833441047D-02 - ws( 31) = 0.1010429472305074D-01 - ws( 32) = 0.1023021586668964D-01 - ws( 33) = 0.1035803983311621D-01 - ws( 34) = 0.1049086395575729D-01 - ws( 35) = 0.1063162065499085D-01 - ws( 36) = 0.1078499326234064D-01 - ws( 37) = 0.1098095774628965D-01 - ws( 38) = 0.1131364984668270D-01 - ws( 39) = 0.1181349573301690D-01 - ws( 40) = 0.1350711989986604D-01 - endif - - - if( iquad .eq. 27 ) then - idomain = 27 - rk0r = 0.4000000000100001D-01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1999999999980000D+00 - n = 40 - err = 0.5050704952997339D-13 - ierq = 0 - xs( 1) = 0.2189100429379736D-03 - xs( 2) = 0.1150371255490847D-02 - xs( 3) = 0.2812774373598133D-02 - xs( 4) = 0.5181438341902487D-02 - xs( 5) = 0.8219274451759039D-02 - xs( 6) = 0.1188047396535509D-01 - xs( 7) = 0.1611534117034297D-01 - xs( 8) = 0.2087441497883182D-01 - xs( 9) = 0.2611102806955165D-01 - xs( 10) = 0.3178246518401987D-01 - xs( 11) = 0.3785022737479346D-01 - xs( 12) = 0.4427984877451306D-01 - xs( 13) = 0.5104054503942861D-01 - xs( 14) = 0.5810483368103706D-01 - xs( 15) = 0.6544818275611741D-01 - xs( 16) = 0.7304870295064222D-01 - xs( 17) = 0.8088688114528020D-01 - xs( 18) = 0.8894534859497923D-01 - xs( 19) = 0.9720867695591341D-01 - xs( 20) = 0.1056631971325217D+00 - xs( 21) = 0.1142968378078383D+00 - xs( 22) = 0.1230989819571750D+00 - xs( 23) = 0.1320603406420072D+00 - xs( 24) = 0.1411728438840963D+00 - xs( 25) = 0.1504295490652030D+00 - xs( 26) = 0.1598245670569766D+00 - xs( 27) = 0.1693530069871366D+00 - xs( 28) = 0.1790109448236246D+00 - xs( 29) = 0.1887954059313627D+00 - xs( 30) = 0.1987043954596900D+00 - xs( 31) = 0.2087369209387063D+00 - xs( 32) = 0.2188931754467565D+00 - xs( 33) = 0.2291743620117248D+00 - xs( 34) = 0.2395844402056547D+00 - xs( 35) = 0.2501262812692550D+00 - xs( 36) = 0.2608105080009936D+00 - xs( 37) = 0.2716547997574266D+00 - xs( 38) = 0.2826495786672262D+00 - xs( 39) = 0.2939183591918702D+00 - xs( 40) = 0.3053147291581670D+00 - ws( 1) = 0.5614563023689919D-03 - ws( 2) = 0.1299895607817091D-02 - ws( 3) = 0.2020767666193433D-02 - ws( 4) = 0.2710314679316725D-02 - ws( 5) = 0.3357636767030201D-02 - ws( 6) = 0.3956409113568551D-02 - ws( 7) = 0.4505039830383725D-02 - ws( 8) = 0.5005311954974173D-02 - ws( 9) = 0.5460791704048215D-02 - ws( 10) = 0.5875669733291231D-02 - ws( 11) = 0.6254116505972693D-02 - ws( 12) = 0.6600002014951816D-02 - ws( 13) = 0.6916815981875613D-02 - ws( 14) = 0.7207677767176856D-02 - ws( 15) = 0.7475376586449089D-02 - ws( 16) = 0.7722415463113840D-02 - ws( 17) = 0.7951049522867095D-02 - ws( 18) = 0.8163316997766280D-02 - ws( 19) = 0.8361064229148960D-02 - ws( 20) = 0.8545966630271500D-02 - ws( 21) = 0.8719547317115028D-02 - ws( 22) = 0.8883194641190667D-02 - ws( 23) = 0.9038179270685613D-02 - ws( 24) = 0.9185671437603319D-02 - ws( 25) = 0.9326758337962334D-02 - ws( 26) = 0.9462463059166317D-02 - ws( 27) = 0.9593762733498658D-02 - ws( 28) = 0.9721615836658709D-02 - ws( 29) = 0.9846976385686356D-02 - ws( 30) = 0.9970841728534643D-02 - ws( 31) = 0.1009418774913652D-01 - ws( 32) = 0.1021854939387708D-01 - ws( 33) = 0.1034434161440501D-01 - ws( 34) = 0.1047575841662614D-01 - ws( 35) = 0.1061288704975928D-01 - ws( 36) = 0.1076368136773812D-01 - ws( 37) = 0.1091340365584177D-01 - ws( 38) = 0.1116875442652217D-01 - ws( 39) = 0.1162942797206580D-01 - ws( 40) = 0.1259182654115963D-01 - endif - - - if( iquad .eq. 28 ) then - idomain = 28 - rk0r = 0.4000000000100001D-01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5999999999980000D+00 - n = 39 - err = 0.3500987992833308D-13 - ierq = 0 - xs( 1) = 0.2422066155650645D-03 - xs( 2) = 0.1269118657099929D-02 - xs( 3) = 0.3088873925879031D-02 - xs( 4) = 0.5658416635003779D-02 - xs( 5) = 0.8923194126499619D-02 - xs( 6) = 0.1282393236267519D-01 - xs( 7) = 0.1730187028209915D-01 - xs( 8) = 0.2230197332864023D-01 - xs( 9) = 0.2777436233814157D-01 - xs( 10) = 0.3367457508386081D-01 - xs( 11) = 0.3996323415214966D-01 - xs( 12) = 0.4660550084849325D-01 - xs( 13) = 0.5357051464598381D-01 - xs( 14) = 0.6083089834777661D-01 - xs( 15) = 0.6836234526518380D-01 - xs( 16) = 0.7614327794026299D-01 - xs( 17) = 0.8415456149742188D-01 - xs( 18) = 0.9237925707268636D-01 - xs( 19) = 0.1008024054640533D+00 - xs( 20) = 0.1094108352984470D+00 - xs( 21) = 0.1181929928434225D+00 - xs( 22) = 0.1271387921665839D+00 - xs( 23) = 0.1362394853163912D+00 - xs( 24) = 0.1454875524131606D+00 - xs( 25) = 0.1548766121215559D+00 - xs( 26) = 0.1644013530665746D+00 - xs( 27) = 0.1740574880568256D+00 - xs( 28) = 0.1838417346758050D+00 - xs( 29) = 0.1937518187930989D+00 - xs( 30) = 0.2037865435132329D+00 - xs( 31) = 0.2139458285057465D+00 - xs( 32) = 0.2242308985736277D+00 - xs( 33) = 0.2346445861165286D+00 - xs( 34) = 0.2451918230492458D+00 - xs( 35) = 0.2558828713946586D+00 - xs( 36) = 0.2667172435108273D+00 - xs( 37) = 0.2777305853953281D+00 - xs( 38) = 0.2889927718972047D+00 - xs( 39) = 0.3003807192002787D+00 - ws( 1) = 0.6207659739234543D-03 - ws( 2) = 0.1429171023358823D-02 - ws( 3) = 0.2203027638731933D-02 - ws( 4) = 0.2926851462543362D-02 - ws( 5) = 0.3592735757798948D-02 - ws( 6) = 0.4198894466931444D-02 - ws( 7) = 0.4747786777170154D-02 - ws( 8) = 0.5244103175787200D-02 - ws( 9) = 0.5693270897324375D-02 - ws( 10) = 0.6100601241072423D-02 - ws( 11) = 0.6470919957220868D-02 - ws( 12) = 0.6808478285932118D-02 - ws( 13) = 0.7116993290690245D-02 - ws( 14) = 0.7399728642657272D-02 - ws( 15) = 0.7659573691328838D-02 - ws( 16) = 0.7899106599160384D-02 - ws( 17) = 0.8120640964013619D-02 - ws( 18) = 0.8326260177604778D-02 - ws( 19) = 0.8517844210292700D-02 - ws( 20) = 0.8697092329924095D-02 - ws( 21) = 0.8865543919144099D-02 - ws( 22) = 0.9024598583646576D-02 - ws( 23) = 0.9175535924280788D-02 - ws( 24) = 0.9319536004204754D-02 - ws( 25) = 0.9457699038533940D-02 - ws( 26) = 0.9591068574588043D-02 - ws( 27) = 0.9720656721436561D-02 - ws( 28) = 0.9847466038738917D-02 - ws( 29) = 0.9972508686758318D-02 - ws( 30) = 0.1009689954328827D-01 - ws( 31) = 0.1022204050081855D-01 - ws( 32) = 0.1034912682654344D-01 - ws( 33) = 0.1047957272565182D-01 - ws( 34) = 0.1061246776690575D-01 - ws( 35) = 0.1077013080856778D-01 - ws( 36) = 0.1094050500323401D-01 - ws( 37) = 0.1111423698211610D-01 - ws( 38) = 0.1172659427023626D-01 - ws( 39) = 0.1343405156308339D-01 - endif - - - if( iquad .eq. 29 ) then - idomain = 29 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.5707963267928966D+00 - n = 38 - err = 0.3791676984642788D-13 - ierq = 0 - xs( 1) = 0.2735337879569245D-03 - xs( 2) = 0.1428847238281678D-02 - xs( 3) = 0.3460413176562820D-02 - xs( 4) = 0.6300477093189004D-02 - xs( 5) = 0.9870694861348572D-02 - xs( 6) = 0.1409302153462856D-01 - xs( 7) = 0.1889561924476150D-01 - xs( 8) = 0.2421503119684940D-01 - xs( 9) = 0.2999622819827254D-01 - xs( 10) = 0.3619174658228336D-01 - xs( 11) = 0.4276060052377315D-01 - xs( 12) = 0.4966726897982264D-01 - xs( 13) = 0.5688084879124381D-01 - xs( 14) = 0.6437437333158433D-01 - xs( 15) = 0.7212426622597121D-01 - xs( 16) = 0.8010989737181425D-01 - xs( 17) = 0.8831321538554610D-01 - xs( 18) = 0.9671843851016791D-01 - xs( 19) = 0.1053117922195785D+00 - xs( 20) = 0.1140812858946060D+00 - xs( 21) = 0.1230165235546520D+00 - xs( 22) = 0.1321085452327854D+00 - xs( 23) = 0.1413496965921911D+00 - xs( 24) = 0.1507335256785323D+00 - xs( 25) = 0.1602547050962899D+00 - xs( 26) = 0.1699089849672843D+00 - xs( 27) = 0.1796931698373860D+00 - xs( 28) = 0.1896051258283875D+00 - xs( 29) = 0.1996438548330836D+00 - xs( 30) = 0.2098095549777688D+00 - xs( 31) = 0.2201039988787767D+00 - xs( 32) = 0.2305303486876324D+00 - xs( 33) = 0.2410942024299219D+00 - xs( 34) = 0.2518096365174913D+00 - xs( 35) = 0.2626698476455482D+00 - xs( 36) = 0.2737134752572237D+00 - xs( 37) = 0.2851068944242496D+00 - xs( 38) = 0.2964676140270296D+00 - ws( 1) = 0.7005264064680242D-03 - ws( 2) = 0.1603122399978483D-02 - ws( 3) = 0.2448441940891389D-02 - ws( 4) = 0.3218447638480871D-02 - ws( 5) = 0.3908885300221712D-02 - ws( 6) = 0.4523762999050266D-02 - ws( 7) = 0.5070858432942226D-02 - ws( 8) = 0.5558809853778745D-02 - ws( 9) = 0.5995692308111974D-02 - ws( 10) = 0.6388530546093801D-02 - ws( 11) = 0.6743271253462566D-02 - ws( 12) = 0.7064926405649673D-02 - ws( 13) = 0.7357747803190756D-02 - ws( 14) = 0.7625379219639667D-02 - ws( 15) = 0.7870974302650383D-02 - ws( 16) = 0.8097284549618675D-02 - ws( 17) = 0.8306725541331387D-02 - ws( 18) = 0.8501428665479071D-02 - ws( 19) = 0.8683283459352497D-02 - ws( 20) = 0.8853973871848275D-02 - ws( 21) = 0.9015010287341063D-02 - ws( 22) = 0.9167759048019598D-02 - ws( 23) = 0.9313469496344215D-02 - ws( 24) = 0.9453301712932419D-02 - ws( 25) = 0.9588350650001673D-02 - ws( 26) = 0.9719671962353597D-02 - ws( 27) = 0.9848339029851853D-02 - ws( 28) = 0.9975457232591372D-02 - ws( 29) = 0.1010205645811686D-01 - ws( 30) = 0.1022970121378769D-01 - ws( 31) = 0.1035967991416651D-01 - ws( 32) = 0.1049348146460342D-01 - ws( 33) = 0.1063348649636442D-01 - ws( 34) = 0.1080417995708472D-01 - ws( 35) = 0.1096578631034946D-01 - ws( 36) = 0.1114392017804512D-01 - ws( 37) = 0.1131766769506684D-01 - ws( 38) = 0.1359090733202969D-01 - endif - - - if( iquad .eq. 30 ) then - idomain = 30 - rk0r = 0.4000000000100001D-01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.1570796326792897D+01 - n = 38 - err = 0.5252370460065647D-13 - ierq = 0 - xs( 1) = 0.2564520187144520D-03 - xs( 2) = 0.1342700604018108D-02 - xs( 3) = 0.3263899000173921D-02 - xs( 4) = 0.5970106096243987D-02 - xs( 5) = 0.9399801226892301D-02 - xs( 6) = 0.1348747584482365D-01 - xs( 7) = 0.1816890094079042D-01 - xs( 8) = 0.2338415805636662D-01 - xs( 9) = 0.2907896301041187D-01 - xs( 10) = 0.3520493985728234D-01 - xs( 11) = 0.4171936026992325D-01 - xs( 12) = 0.4858466418763730D-01 - xs( 13) = 0.5576792360307271D-01 - xs( 14) = 0.6324032050258564D-01 - xs( 15) = 0.7097666550720433D-01 - xs( 16) = 0.7895496500918024D-01 - xs( 17) = 0.8715603750938203D-01 - xs( 18) = 0.9556317728419655D-01 - xs( 19) = 0.1041618625211677D+00 - xs( 20) = 0.1129395047545527D+00 - xs( 21) = 0.1218852363178205D+00 - xs( 22) = 0.1309897332226996D+00 - xs( 23) = 0.1402450704338251D+00 - xs( 24) = 0.1496446094353215D+00 - xs( 25) = 0.1591829134920017D+00 - xs( 26) = 0.1688557044851882D+00 - xs( 27) = 0.1786598367346195D+00 - xs( 28) = 0.1885933581755321D+00 - xs( 29) = 0.1986554627344447D+00 - xs( 30) = 0.2088470159830735D+00 - xs( 31) = 0.2191703580280148D+00 - xs( 32) = 0.2296292615917022D+00 - xs( 33) = 0.2402317029510202D+00 - xs( 34) = 0.2509949405739118D+00 - xs( 35) = 0.2619117075648930D+00 - xs( 36) = 0.2730289466286859D+00 - xs( 37) = 0.2846264661536335D+00 - xs( 38) = 0.2969652695439915D+00 - ws( 1) = 0.6571482148046187D-03 - ws( 2) = 0.1510620844175326D-02 - ws( 3) = 0.2323282036070737D-02 - ws( 4) = 0.3078752220613773D-02 - ws( 5) = 0.3769632176625930D-02 - ws( 6) = 0.4394963179806619D-02 - ws( 7) = 0.4957880209675021D-02 - ws( 8) = 0.5463583331295109D-02 - ws( 9) = 0.5917968990650044D-02 - ws( 10) = 0.6326871662712932D-02 - ws( 11) = 0.6695718240013891D-02 - ws( 12) = 0.7029410348777700D-02 - ws( 13) = 0.7332313516968365D-02 - ws( 14) = 0.7608289266676745D-02 - ws( 15) = 0.7860741530596009D-02 - ws( 16) = 0.8092666155256559D-02 - ws( 17) = 0.8306699413856032D-02 - ws( 18) = 0.8505163998777215D-02 - ws( 19) = 0.8690111927752934D-02 - ws( 20) = 0.8863364215701691D-02 - ws( 21) = 0.9026547349895879D-02 - ws( 22) = 0.9181127300963004D-02 - ws( 23) = 0.9328441625336468D-02 - ws( 24) = 0.9469732107273679D-02 - ws( 25) = 0.9606170281594668D-02 - ws( 26) = 0.9738894977041548D-02 - ws( 27) = 0.9869036542031095D-02 - ws( 28) = 0.9997820413686097D-02 - ws( 29) = 0.1012646479866221D-01 - ws( 30) = 0.1025669534901254D-01 - ws( 31) = 0.1039008597907693D-01 - ws( 32) = 0.1052919364098110D-01 - ws( 33) = 0.1067796374716476D-01 - ws( 34) = 0.1081732036164485D-01 - ws( 35) = 0.1100182316722674D-01 - ws( 36) = 0.1145626877801176D-01 - ws( 37) = 0.1270677124877114D-01 - ws( 38) = 0.1873414370690478D-01 - endif - - - if( iquad .eq. 31 ) then - idomain = 31 - rk0r = 0.4000000000100001D-01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 36 - err = 0.3597183035703578D-13 - ierq = 0 - xs( 1) = 0.2358839313314120D-03 - xs( 2) = 0.1237722451682906D-02 - xs( 3) = 0.3019738292108388D-02 - xs( 4) = 0.5549642095209057D-02 - xs( 5) = 0.8784639120170447D-02 - xs( 6) = 0.1267536669930355D-01 - xs( 7) = 0.1716937265280961D-01 - xs( 8) = 0.2221398654228089D-01 - xs( 9) = 0.2775843346921805D-01 - xs( 10) = 0.3375520922337034D-01 - xs( 11) = 0.4016083774358083D-01 - xs( 12) = 0.4693616661992371D-01 - xs( 13) = 0.5404634848691763D-01 - xs( 14) = 0.6146062891048706D-01 - xs( 15) = 0.6915202990769646D-01 - xs( 16) = 0.7709699018878206D-01 - xs( 17) = 0.8527500119254525D-01 - xs( 18) = 0.9366826216681004D-01 - xs( 19) = 0.1022613668329609D+00 - xs( 20) = 0.1110410272267192D+00 - xs( 21) = 0.1199958366906020D+00 - xs( 22) = 0.1291160699995339D+00 - xs( 23) = 0.1383935246687998D+00 - xs( 24) = 0.1478213918693343D+00 - xs( 25) = 0.1573941608235442D+00 - xs( 26) = 0.1671075656789256D+00 - xs( 27) = 0.1769586191351001D+00 - xs( 28) = 0.1869456308138797D+00 - xs( 29) = 0.1970676144485608D+00 - xs( 30) = 0.2073257916602254D+00 - xs( 31) = 0.2177266341579297D+00 - xs( 32) = 0.2282696086339680D+00 - xs( 33) = 0.2389505724086292D+00 - xs( 34) = 0.2497333820320015D+00 - xs( 35) = 0.2610936172541875D+00 - xs( 36) = 0.2713957019732703D+00 - ws( 1) = 0.6047627674552315D-03 - ws( 2) = 0.1396207114445661D-02 - ws( 3) = 0.2162357495563561D-02 - ws( 4) = 0.2890253709368427D-02 - ws( 5) = 0.3571454463436371D-02 - ws( 6) = 0.4201210455644300D-02 - ws( 7) = 0.4777987892473787D-02 - ws( 8) = 0.5302754800115335D-02 - ws( 9) = 0.5778209448407995D-02 - ws( 10) = 0.6208091483705134D-02 - ws( 11) = 0.6596640753465814D-02 - ws( 12) = 0.6948212850620800D-02 - ws( 13) = 0.7267030561610489D-02 - ws( 14) = 0.7557040041372488D-02 - ws( 15) = 0.7821841192825526D-02 - ws( 16) = 0.8064667043462061D-02 - ws( 17) = 0.8288393409190195D-02 - ws( 18) = 0.8495565495080617D-02 - ws( 19) = 0.8688433189407414D-02 - ws( 20) = 0.8868989481456684D-02 - ws( 21) = 0.9039010570094206D-02 - ws( 22) = 0.9200092070401164D-02 - ws( 23) = 0.9353682584539920D-02 - ws( 24) = 0.9501146657501425D-02 - ws( 25) = 0.9643737315321440D-02 - ws( 26) = 0.9782611832531003D-02 - ws( 27) = 0.9919094777369073D-02 - ws( 28) = 0.1005526263010974D-01 - ws( 29) = 0.1018950491996799D-01 - ws( 30) = 0.1032453824959099D-01 - ws( 31) = 0.1046509465553597D-01 - ws( 32) = 0.1062711362082885D-01 - ws( 33) = 0.1079264434567039D-01 - ws( 34) = 0.1050576887165191D-01 - ws( 35) = 0.1122329659425219D-01 - ws( 36) = 0.1303866011025205D-01 - endif - - - if( iquad .eq. 32 ) then - idomain = 32 - rk0r = 0.4000000000100001D-01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 34 - err = 0.4658573057724351D-13 - ierq = 0 - xs( 1) = 0.2071182665012909D-03 - xs( 2) = 0.1088169622655289D-02 - xs( 3) = 0.2660745137133594D-02 - xs( 4) = 0.4904709588099250D-02 - xs( 5) = 0.7792439451114960D-02 - xs( 6) = 0.1129084608304306D-01 - xs( 7) = 0.1536324279642838D-01 - xs( 8) = 0.1997108699670406D-01 - xs( 9) = 0.2507547857214800D-01 - xs( 10) = 0.3063834897884352D-01 - xs( 11) = 0.3662333070393783D-01 - xs( 12) = 0.4299633537973109D-01 - xs( 13) = 0.4972588932927675D-01 - xs( 14) = 0.5678328157613682D-01 - xs( 15) = 0.6414257653081562D-01 - xs( 16) = 0.7178053595634955D-01 - xs( 17) = 0.7967648585000484D-01 - xs( 18) = 0.8781215504960109D-01 - xs( 19) = 0.9617150578075814D-01 - xs( 20) = 0.1047405693449978D+00 - xs( 21) = 0.1135072977384305D+00 - xs( 22) = 0.1224614421473670D+00 - xs( 23) = 0.1315944572393320D+00 - xs( 24) = 0.1408994568081102D+00 - xs( 25) = 0.1503711180097569D+00 - xs( 26) = 0.1600059670205387D+00 - xs( 27) = 0.1698023251165555D+00 - xs( 28) = 0.1797609161516532D+00 - xs( 29) = 0.1898838182932106D+00 - xs( 30) = 0.2001746262992851D+00 - xs( 31) = 0.2106445822318677D+00 - xs( 32) = 0.2213387317270779D+00 - xs( 33) = 0.2323121569958598D+00 - xs( 34) = 0.2439557311998643D+00 - ws( 1) = 0.5311736084100986D-03 - ws( 2) = 0.1229419899271627D-02 - ws( 3) = 0.1912323986848029D-02 - ws( 4) = 0.2570969522092517D-02 - ws( 5) = 0.3198943997091648D-02 - ws( 6) = 0.3791725478130547D-02 - ws( 7) = 0.4346619056083847D-02 - ws( 8) = 0.4862566157492663D-02 - ws( 9) = 0.5339857820349108D-02 - ws( 10) = 0.5779812227066391D-02 - ws( 11) = 0.6184464368704910D-02 - ws( 12) = 0.6556297023805472D-02 - ws( 13) = 0.6898025609790743D-02 - ws( 14) = 0.7212437679279774D-02 - ws( 15) = 0.7502281501195369D-02 - ws( 16) = 0.7770194430552762D-02 - ws( 17) = 0.8018662885231398D-02 - ws( 18) = 0.8250005336383417D-02 - ws( 19) = 0.8466368628181828D-02 - ws( 20) = 0.8669751999993687D-02 - ws( 21) = 0.8862003673839672D-02 - ws( 22) = 0.9044855805413244D-02 - ws( 23) = 0.9220025744943414D-02 - ws( 24) = 0.9389154075463708D-02 - ws( 25) = 0.9553864293633422D-02 - ws( 26) = 0.9715558440217958D-02 - ws( 27) = 0.9877136046027761D-02 - ws( 28) = 0.1004138538773139D-01 - ws( 29) = 0.1021276413380019D-01 - ws( 30) = 0.1037079281585745D-01 - ws( 31) = 0.1062847492485581D-01 - ws( 32) = 0.1072050479018004D-01 - ws( 33) = 0.1084196217113268D-01 - ws( 34) = 0.1738921688983382D-01 - endif - - - if( iquad .eq. 33 ) then - idomain = 33 - rk0r = 0.4000000000100001D-01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9999999999900001D-01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 32 - err = 0.6836877051420513D-13 - ierq = 0 - xs( 1) = 0.1773775137069861D-03 - xs( 2) = 0.9327790057864604D-03 - xs( 3) = 0.2284505282559341D-02 - xs( 4) = 0.4220727506937760D-02 - xs( 5) = 0.6724753898156247D-02 - xs( 6) = 0.9776031910224714D-02 - xs( 7) = 0.1335103493396838D-01 - xs( 8) = 0.1742415564670766D-01 - xs( 9) = 0.2196855705712267D-01 - xs( 10) = 0.2695693645038622D-01 - xs( 11) = 0.3236217435968731D-01 - xs( 12) = 0.3815785735180855D-01 - xs( 13) = 0.4431867683103222D-01 - xs( 14) = 0.5082071481665654D-01 - xs( 15) = 0.5764163345577374D-01 - xs( 16) = 0.6476078643120352D-01 - xs( 17) = 0.7215926980374579D-01 - xs( 18) = 0.7981993086520671D-01 - xs( 19) = 0.8772735090934071D-01 - xs( 20) = 0.9586780809552872D-01 - xs( 21) = 0.1042292321139695D+00 - xs( 22) = 0.1128011826625521D+00 - xs( 23) = 0.1215747814131678D+00 - xs( 24) = 0.1305429971796677D+00 - xs( 25) = 0.1396997681527438D+00 - xs( 26) = 0.1490432232244576D+00 - xs( 27) = 0.1585695201430721D+00 - xs( 28) = 0.1682663953728289D+00 - xs( 29) = 0.1781647906856440D+00 - xs( 30) = 0.1882583751925105D+00 - xs( 31) = 0.1985592572312022D+00 - xs( 32) = 0.2088195377400172D+00 - ws( 1) = 0.4550002790499701D-03 - ws( 2) = 0.1055056988890036D-02 - ws( 3) = 0.1646390907582052D-02 - ws( 4) = 0.2223257107134383D-02 - ws( 5) = 0.2781355437949262D-02 - ws( 6) = 0.3317264456526543D-02 - ws( 7) = 0.3828459404425878D-02 - ws( 8) = 0.4313296387586178D-02 - ws( 9) = 0.4770945139228767D-02 - ws( 10) = 0.5201285030114648D-02 - ws( 11) = 0.5604781956206061D-02 - ws( 12) = 0.5982361213826108D-02 - ws( 13) = 0.6335288225188913D-02 - ws( 14) = 0.6665062900193335D-02 - ws( 15) = 0.6973332545955591D-02 - ws( 16) = 0.7261822878332417D-02 - ws( 17) = 0.7532287776740345D-02 - ws( 18) = 0.7786468143205721D-02 - ws( 19) = 0.8026084415772959D-02 - ws( 20) = 0.8252809708281421D-02 - ws( 21) = 0.8468341832496286D-02 - ws( 22) = 0.8674176893509872D-02 - ws( 23) = 0.8872062217881314D-02 - ws( 24) = 0.9063342626637001D-02 - ws( 25) = 0.9248219734575626D-02 - ws( 26) = 0.9433502602875890D-02 - ws( 27) = 0.9632259526060921D-02 - ws( 28) = 0.9785822917018645D-02 - ws( 29) = 0.9908662852048864D-02 - ws( 30) = 0.1030829544981658D-01 - ws( 31) = 0.1077122290857508D-01 - ws( 32) = 0.1028355525633955D-01 - endif - - - if( iquad .eq. 34 ) then - idomain = 34 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 42 - err = 0.2031221815147982D-13 - ierq = 0 - xs( 1) = 0.1619343915338308D-03 - xs( 2) = 0.8590371929423981D-03 - xs( 3) = 0.2133102549103344D-02 - xs( 4) = 0.4005802556359252D-02 - xs( 5) = 0.6488183783151452D-02 - xs( 6) = 0.9573930734583808D-02 - xs( 7) = 0.1324019603656042D-01 - xs( 8) = 0.1745293200756489D-01 - xs( 9) = 0.2217278002914976D-01 - xs( 10) = 0.2735944357791609D-01 - xs( 11) = 0.3297423660438342D-01 - xs( 12) = 0.3898126785549351D-01 - xs( 13) = 0.4534781319708057D-01 - xs( 14) = 0.5204428036207715D-01 - xs( 15) = 0.5904400604069265D-01 - xs( 16) = 0.6632300771549419D-01 - xs( 17) = 0.7385974290604172D-01 - xs( 18) = 0.8163489239155217D-01 - xs( 19) = 0.8963116817157434D-01 - xs( 20) = 0.9783314193721537D-01 - xs( 21) = 0.1062270897444931D+00 - xs( 22) = 0.1148008501237856D+00 - xs( 23) = 0.1235436944924341D+00 - xs( 24) = 0.1324462098671624D+00 - xs( 25) = 0.1415001945341220D+00 - xs( 26) = 0.1506985678342393D+00 - xs( 27) = 0.1600352946770995D+00 - xs( 28) = 0.1695053271983829D+00 - xs( 29) = 0.1791045634911076D+00 - xs( 30) = 0.1888298283521205D+00 - xs( 31) = 0.1986788838243467D+00 - xs( 32) = 0.2086504361578199D+00 - xs( 33) = 0.2187442475703648D+00 - xs( 34) = 0.2289613487152356D+00 - xs( 35) = 0.2393035670724183D+00 - xs( 36) = 0.2497768940420809D+00 - xs( 37) = 0.2603864537283435D+00 - xs( 38) = 0.2711405169194747D+00 - xs( 39) = 0.2820512747236762D+00 - xs( 40) = 0.2931517065784201D+00 - xs( 41) = 0.3045296367146980D+00 - xs( 42) = 0.3163565851202367D+00 - ws( 1) = 0.4162776721674652D-03 - ws( 2) = 0.9816559135111774D-03 - ws( 3) = 0.1570302299422061D-02 - ws( 4) = 0.2177056855795926D-02 - ws( 5) = 0.2786629366275193D-02 - ws( 6) = 0.3380957334741167D-02 - ws( 7) = 0.3945795796368276D-02 - ws( 8) = 0.4473043235820217D-02 - ws( 9) = 0.4959895606971065D-02 - ws( 10) = 0.5406965466239525D-02 - ws( 11) = 0.5816633464323886D-02 - ws( 12) = 0.6191976151925903D-02 - ws( 13) = 0.6536186140388393D-02 - ws( 14) = 0.6852308552958499D-02 - ws( 15) = 0.7143149762345990D-02 - ws( 16) = 0.7411266784559675D-02 - ws( 17) = 0.7658986915191276D-02 - ws( 18) = 0.7888433570351214D-02 - ws( 19) = 0.8101549187234406D-02 - ws( 20) = 0.8300113382854005D-02 - ws( 21) = 0.8485757480558955D-02 - ws( 22) = 0.8659977138906204D-02 - ws( 23) = 0.8824144509821337D-02 - ws( 24) = 0.8979520788682211D-02 - ws( 25) = 0.9127269621794368D-02 - ws( 26) = 0.9268472094885414D-02 - ws( 27) = 0.9404141090111621D-02 - ws( 28) = 0.9535240967733324D-02 - ws( 29) = 0.9662705396709983D-02 - ws( 30) = 0.9787442469130598D-02 - ws( 31) = 0.9910439741688565D-02 - ws( 32) = 0.1003267283759497D-01 - ws( 33) = 0.1015516040723484D-01 - ws( 34) = 0.1027916274324914D-01 - ws( 35) = 0.1040580893494152D-01 - ws( 36) = 0.1053889983801401D-01 - ws( 37) = 0.1068389073175119D-01 - ws( 38) = 0.1084056901622102D-01 - ws( 39) = 0.1098772074218827D-01 - ws( 40) = 0.1131364216942543D-01 - ws( 41) = 0.1204501279577396D-01 - ws( 42) = 0.1504572004328505D-01 - endif - - - if( iquad .eq. 35 ) then - idomain = 35 - rk0r = 0.1000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999800000D-01 - n = 42 - err = 0.2277306182861463D-13 - ierq = 0 - xs( 1) = 0.1657340344109595D-03 - xs( 2) = 0.8783913761228483D-03 - xs( 3) = 0.2177892885302968D-02 - xs( 4) = 0.4082232156125361D-02 - xs( 5) = 0.6598499725162431D-02 - xs( 6) = 0.9717087375506101D-02 - xs( 7) = 0.1341300208949788D-01 - xs( 8) = 0.1765119146011051D-01 - xs( 9) = 0.2239215623311080D-01 - xs( 10) = 0.2759599216606465D-01 - xs( 11) = 0.3322466242974655D-01 - xs( 12) = 0.3924299042418791D-01 - xs( 13) = 0.4561891895172405D-01 - xs( 14) = 0.5232342243993348D-01 - xs( 15) = 0.5933029177801313D-01 - xs( 16) = 0.6661589549063460D-01 - xs( 17) = 0.7415895576586320D-01 - xs( 18) = 0.8194034746972574D-01 - xs( 19) = 0.8994291753343638D-01 - xs( 20) = 0.9815132042599860D-01 - xs( 21) = 0.1065518668157225D+00 - xs( 22) = 0.1151323842267011D+00 - xs( 23) = 0.1238820896306484D+00 - xs( 24) = 0.1327914744481922D+00 - xs( 25) = 0.1418522025676387D+00 - xs( 26) = 0.1510570219819299D+00 - xs( 27) = 0.1603996907626257D+00 - xs( 28) = 0.1698749181734574D+00 - xs( 29) = 0.1794783204118822D+00 - xs( 30) = 0.1892063986052230D+00 - xs( 31) = 0.1990565294301422D+00 - xs( 32) = 0.2090269795406743D+00 - xs( 33) = 0.2191169866737232D+00 - xs( 34) = 0.2293268278978286D+00 - xs( 35) = 0.2396575833797724D+00 - xs( 36) = 0.2501127561529984D+00 - xs( 37) = 0.2606962769638428D+00 - xs( 38) = 0.2714122904794761D+00 - xs( 39) = 0.2823071657764605D+00 - xs( 40) = 0.2932908345089688D+00 - xs( 41) = 0.3046655659788354D+00 - xs( 42) = 0.3155303812429757D+00 - ws( 1) = 0.4259512842865918D-03 - ws( 2) = 0.1002686681881058D-02 - ws( 3) = 0.1599512477911107D-02 - ws( 4) = 0.2210449125724445D-02 - ws( 5) = 0.2820452923950641D-02 - ws( 6) = 0.3412458321680845D-02 - ws( 7) = 0.3973431340911383D-02 - ws( 8) = 0.4496296811171662D-02 - ws( 9) = 0.4978945564291778D-02 - ws( 10) = 0.5422371649518814D-02 - ws( 11) = 0.5829102705147597D-02 - ws( 12) = 0.6202212379262347D-02 - ws( 13) = 0.6544810892613216D-02 - ws( 14) = 0.6859831957175994D-02 - ws( 15) = 0.7149971884575779D-02 - ws( 16) = 0.7417692578948147D-02 - ws( 17) = 0.7665243448175704D-02 - ws( 18) = 0.7894683849970552D-02 - ws( 19) = 0.8107901208847142D-02 - ws( 20) = 0.8306625343620850D-02 - ws( 21) = 0.8492440813450250D-02 - ws( 22) = 0.8666798756580878D-02 - ws( 23) = 0.8831028992937027D-02 - ws( 24) = 0.8986352756021054D-02 - ws( 25) = 0.9133895998797386D-02 - ws( 26) = 0.9274703455330114D-02 - ws( 27) = 0.9409752991920676D-02 - ws( 28) = 0.9539972454793724D-02 - ws( 29) = 0.9666251485778252D-02 - ws( 30) = 0.9789469719188326D-02 - ws( 31) = 0.9910515366524618D-02 - ws( 32) = 0.1003026607928449D-01 - ws( 33) = 0.1014968890365572D-01 - ws( 34) = 0.1026999782281304D-01 - ws( 35) = 0.1039208893254237D-01 - ws( 36) = 0.1051592419853236D-01 - ws( 37) = 0.1065541579634510D-01 - ws( 38) = 0.1077709728863674D-01 - ws( 39) = 0.1095253733965417D-01 - ws( 40) = 0.1104233344043191D-01 - ws( 41) = 0.1155060570585856D-01 - ws( 42) = 0.1272607293113821D-01 - endif - - - if( iquad .eq. 36 ) then - idomain = 36 - rk0r = 0.1000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5999999999800001D-01 - n = 40 - err = 0.9090047793958412D-13 - ierq = 0 - xs( 1) = 0.1791072829720996D-03 - xs( 2) = 0.9482880454134232D-03 - xs( 3) = 0.2346912204747359D-02 - xs( 4) = 0.4388083072367410D-02 - xs( 5) = 0.7071907331005677D-02 - xs( 6) = 0.1038105223840505D-01 - xs( 7) = 0.1428344028603042D-01 - xs( 8) = 0.1873828364765603D-01 - xs( 9) = 0.2370174134335476D-01 - xs( 10) = 0.2913068646393316D-01 - xs( 11) = 0.3498466482187153D-01 - xs( 12) = 0.4122665264348989D-01 - xs( 13) = 0.4782317159910761D-01 - xs( 14) = 0.5474412093628751D-01 - xs( 15) = 0.6196251625480069D-01 - xs( 16) = 0.6945421810382504D-01 - xs( 17) = 0.7719767862914405D-01 - xs( 18) = 0.8517371110079570D-01 - xs( 19) = 0.9336527992363693D-01 - xs( 20) = 0.1017573082439403D+00 - xs( 21) = 0.1103365016880535D+00 - xs( 22) = 0.1190911881122962D+00 - xs( 23) = 0.1280111740214361D+00 - xs( 24) = 0.1370876186184020D+00 - xs( 25) = 0.1463129264560789D+00 - xs( 26) = 0.1556806598697676D+00 - xs( 27) = 0.1651854729662001D+00 - xs( 28) = 0.1748230666624948D+00 - xs( 29) = 0.1845901750941186D+00 - xs( 30) = 0.1944845732577342D+00 - xs( 31) = 0.2045051436795424D+00 - xs( 32) = 0.2146519722357638D+00 - xs( 33) = 0.2249265297147151D+00 - xs( 34) = 0.2353319614838309D+00 - xs( 35) = 0.2458736705850419D+00 - xs( 36) = 0.2565586134988687D+00 - xs( 37) = 0.2674090993065967D+00 - xs( 38) = 0.2784318408599233D+00 - xs( 39) = 0.2896896686458921D+00 - xs( 40) = 0.3011796591164179D+00 - ws( 1) = 0.4602099375093472D-03 - ws( 2) = 0.1081107961727305D-02 - ws( 3) = 0.1718513572642844D-02 - ws( 4) = 0.2363922013245356D-02 - ws( 5) = 0.3000781102292141D-02 - ws( 6) = 0.3612052352864356D-02 - ws( 7) = 0.4185828326360516D-02 - ws( 8) = 0.4716489450727448D-02 - ws( 9) = 0.5203207135385262D-02 - ws( 10) = 0.5647929480972070D-02 - ws( 11) = 0.6053855524765659D-02 - ws( 12) = 0.6424543617930614D-02 - ws( 13) = 0.6763482032451299D-02 - ws( 14) = 0.7073923820374566D-02 - ws( 15) = 0.7358847802960064D-02 - ws( 16) = 0.7620968419184903D-02 - ws( 17) = 0.7862758335450115D-02 - ws( 18) = 0.8086470545170229D-02 - ws( 19) = 0.8294157229742617D-02 - ws( 20) = 0.8487686356331401D-02 - ws( 21) = 0.8668757570509521D-02 - ws( 22) = 0.8838918466276062D-02 - ws( 23) = 0.8999581685646013D-02 - ws( 24) = 0.9152043069929575D-02 - ws( 25) = 0.9297500758725616D-02 - ws( 26) = 0.9437075839763522D-02 - ws( 27) = 0.9571833763623866D-02 - ws( 28) = 0.9702810598558428D-02 - ws( 29) = 0.9831037903991294D-02 - ws( 30) = 0.9957563685655618D-02 - ws( 31) = 0.1008357962085953D-01 - ws( 32) = 0.1021033844506718D-01 - ws( 33) = 0.1033914908693594D-01 - ws( 34) = 0.1047264929417669D-01 - ws( 35) = 0.1061303195204351D-01 - ws( 36) = 0.1076553073414636D-01 - ws( 37) = 0.1093091251892689D-01 - ws( 38) = 0.1112103215311849D-01 - ws( 39) = 0.1148565335301397D-01 - ws( 40) = 0.1393606257522133D-01 - endif - - - if( iquad .eq. 37 ) then - idomain = 37 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.9999999999800001D-01 - n = 40 - err = 0.7556466167968289D-13 - ierq = 0 - xs( 1) = 0.1879952202065401D-03 - xs( 2) = 0.9931197436970247D-03 - xs( 3) = 0.2449122941761217D-02 - xs( 4) = 0.4559669983173233D-02 - xs( 5) = 0.7316195026895110D-02 - xs( 6) = 0.1069548536006723D-01 - xs( 7) = 0.1466253667804044D-01 - xs( 8) = 0.1917570171853833D-01 - xs( 9) = 0.2419135655160721D-01 - xs( 10) = 0.2966698785258821D-01 - xs( 11) = 0.3556279917139016D-01 - xs( 12) = 0.4184233337349930D-01 - xs( 13) = 0.4847256629763435D-01 - xs( 14) = 0.5542376423769901D-01 - xs( 15) = 0.6266925783870234D-01 - xs( 16) = 0.7018519872725941D-01 - xs( 17) = 0.7795032232320311D-01 - xs( 18) = 0.8594572311389735D-01 - xs( 19) = 0.9415464368784203D-01 - xs( 20) = 0.1025622782740216D+00 - xs( 21) = 0.1111555919235679D+00 - xs( 22) = 0.1199231566529499D+00 - xs( 23) = 0.1288550057630484D+00 - xs( 24) = 0.1379425072767008D+00 - xs( 25) = 0.1471782571547336D+00 - xs( 26) = 0.1565559935716346D+00 - xs( 27) = 0.1660705321059518D+00 - xs( 28) = 0.1757177251993804D+00 - xs( 29) = 0.1854944474488372D+00 - xs( 30) = 0.1953986189801094D+00 - xs( 31) = 0.2054292404929883D+00 - xs( 32) = 0.2155865253771768D+00 - xs( 33) = 0.2258721514854190D+00 - xs( 34) = 0.2362892692828137D+00 - xs( 35) = 0.2468438933002896D+00 - xs( 36) = 0.2575437908523320D+00 - xs( 37) = 0.2683995894566828D+00 - xs( 38) = 0.2794332218890303D+00 - xs( 39) = 0.2906984573877735D+00 - xs( 40) = 0.3023105935191215D+00 - ws( 1) = 0.4827827733767263D-03 - ws( 2) = 0.1129243606073779D-02 - ws( 3) = 0.1783500860793020D-02 - ws( 4) = 0.2436206786282043D-02 - ws( 5) = 0.3072917837737594D-02 - ws( 6) = 0.3679735917291586D-02 - ws( 7) = 0.4247345454172262D-02 - ws( 8) = 0.4771663104757106D-02 - ws( 9) = 0.5252535583735636D-02 - ws( 10) = 0.5692085018772624D-02 - ws( 11) = 0.6093460548967372D-02 - ws( 12) = 0.6460106543215216D-02 - ws( 13) = 0.6795407596222301D-02 - ws( 14) = 0.7102547493611777D-02 - ws( 15) = 0.7384468943219587D-02 - ws( 16) = 0.7643872484277646D-02 - ws( 17) = 0.7883227306528207D-02 - ws( 18) = 0.8104784650110428D-02 - ws( 19) = 0.8310591886805264D-02 - ws( 20) = 0.8502507528253607D-02 - ws( 21) = 0.8682217536101829D-02 - ws( 22) = 0.8851252914575305D-02 - ws( 23) = 0.9011008412479133D-02 - ws( 24) = 0.9162762059063922D-02 - ws( 25) = 0.9307695147498114D-02 - ws( 26) = 0.9446914117912040D-02 - ws( 27) = 0.9581471965773332D-02 - ws( 28) = 0.9712394730532073D-02 - ws( 29) = 0.9840709239954547D-02 - ws( 30) = 0.9967473851413387D-02 - ws( 31) = 0.1009382402711429D-01 - ws( 32) = 0.1022106904769750D-01 - ws( 33) = 0.1035076289379929D-01 - ws( 34) = 0.1048425257859964D-01 - ws( 35) = 0.1062363562347549D-01 - ws( 36) = 0.1077328457409789D-01 - ws( 37) = 0.1095261754607173D-01 - ws( 38) = 0.1120032227008881D-01 - ws( 39) = 0.1166535549320317D-01 - ws( 40) = 0.1295954275805707D-01 - endif - - - if( iquad .eq. 38 ) then - idomain = 38 - rk0r = 0.1000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1999999999980000D+00 - n = 40 - err = 0.9824871436879492D-13 - ierq = 0 - xs( 1) = 0.1145313316456745D-03 - xs( 2) = 0.7185302884998852D-03 - xs( 3) = 0.1983901514795410D-02 - xs( 4) = 0.3942300030980075D-02 - xs( 5) = 0.6579635978265888D-02 - xs( 6) = 0.9863796457015206D-02 - xs( 7) = 0.1375257743689887D-01 - xs( 8) = 0.1819939712934629D-01 - xs( 9) = 0.2315749951481165D-01 - xs( 10) = 0.2858243700855463D-01 - xs( 11) = 0.3443319960550058D-01 - xs( 12) = 0.4067252466445689D-01 - xs( 13) = 0.4726680481543637D-01 - xs( 14) = 0.5418584173099480D-01 - xs( 15) = 0.6140256536224791D-01 - xs( 16) = 0.6889276411671749D-01 - xs( 17) = 0.7663483679258030D-01 - xs( 18) = 0.8460956490342496D-01 - xs( 19) = 0.9279990212711592D-01 - xs( 20) = 0.1011907790733459D+00 - xs( 21) = 0.1097689232753311D+00 - xs( 22) = 0.1185226953090639D+00 - xs( 23) = 0.1274419423072715D+00 - xs( 24) = 0.1365178699950861D+00 - xs( 25) = 0.1457429344861220D+00 - xs( 26) = 0.1551107544255008D+00 - xs( 27) = 0.1646160457972395D+00 - xs( 28) = 0.1742545804927303D+00 - xs( 29) = 0.1840231734085677D+00 - xs( 30) = 0.1939196963912626D+00 - xs( 31) = 0.2039431588582428D+00 - xs( 32) = 0.2140938069913466D+00 - xs( 33) = 0.2243732710944423D+00 - xs( 34) = 0.2347850171331264D+00 - xs( 35) = 0.2453353227338954D+00 - xs( 36) = 0.2560334589047811D+00 - xs( 37) = 0.2668932691585625D+00 - xs( 38) = 0.2779487369957934D+00 - xs( 39) = 0.2892061151119356D+00 - xs( 40) = 0.3008859675077105D+00 - ws( 1) = 0.3137495076164491D-03 - ws( 2) = 0.9221272557930836D-03 - ws( 3) = 0.1612113623759852D-02 - ws( 4) = 0.2302055111203196D-02 - ws( 5) = 0.2967151128215766D-02 - ws( 6) = 0.3594038886950730D-02 - ws( 7) = 0.4175688826032573D-02 - ws( 8) = 0.4710117623616021D-02 - ws( 9) = 0.5198661774510140D-02 - ws( 10) = 0.5644374052282586D-02 - ws( 11) = 0.6050942804177387D-02 - ws( 12) = 0.6422110451072120D-02 - ws( 13) = 0.6761421568370903D-02 - ws( 14) = 0.7072145102210697D-02 - ws( 15) = 0.7357271022348885D-02 - ws( 16) = 0.7619530072002817D-02 - ws( 17) = 0.7861415703757918D-02 - ws( 18) = 0.8085202718411295D-02 - ws( 19) = 0.8292963166742086D-02 - ws( 20) = 0.8486581382601704D-02 - ws( 21) = 0.8667769563863151D-02 - ws( 22) = 0.8838084501395173D-02 - ws( 23) = 0.8998945599375825D-02 - ws( 24) = 0.9151653898499488D-02 - ws( 25) = 0.9297412610034044D-02 - ws( 26) = 0.9437347476271908D-02 - ws( 27) = 0.9572531461529154D-02 - ws( 28) = 0.9704008314813670D-02 - ws( 29) = 0.9832822743988355D-02 - ws( 30) = 0.9960060864532006D-02 - ws( 31) = 0.1008688579606304D-01 - ws( 32) = 0.1021470542756269D-01 - ws( 33) = 0.1034529424456499D-01 - ws( 34) = 0.1047991739522866D-01 - ws( 35) = 0.1062295348015364D-01 - ws( 36) = 0.1078142331058953D-01 - ws( 37) = 0.1093898472336934D-01 - ws( 38) = 0.1112736538981271D-01 - ws( 39) = 0.1159844030653705D-01 - ws( 40) = 0.1389326495580451D-01 - endif - - - if( iquad .eq. 39 ) then - idomain = 39 - rk0r = 0.1000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5999999999980000D+00 - n = 41 - err = 0.1950993278544992D-13 - ierq = 0 - xs( 1) = 0.2178046726285802D-03 - xs( 2) = 0.1144137019044159D-02 - xs( 3) = 0.2796180676165114D-02 - xs( 4) = 0.5148772457522433D-02 - xs( 5) = 0.8165598458496860D-02 - xs( 6) = 0.1180245146743066D-01 - xs( 7) = 0.1601123940604295D-01 - xs( 8) = 0.2074358821565640D-01 - xs( 9) = 0.2595332755179860D-01 - xs( 10) = 0.3159783195787312D-01 - xs( 11) = 0.3763851650178777D-01 - xs( 12) = 0.4404082254263668D-01 - xs( 13) = 0.5077394787982161D-01 - xs( 14) = 0.5781047995252903D-01 - xs( 15) = 0.6512601799492856D-01 - xs( 16) = 0.7269882413852341D-01 - xs( 17) = 0.8050951777890063D-01 - xs( 18) = 0.8854081455932546D-01 - xs( 19) = 0.9677730557287845D-01 - xs( 20) = 0.1052052705155677D+00 - xs( 21) = 0.1138125186352030D+00 - xs( 22) = 0.1225882523955493D+00 - xs( 23) = 0.1315229500710362D+00 - xs( 24) = 0.1406082649137816D+00 - xs( 25) = 0.1498369395607743D+00 - xs( 26) = 0.1592027355138207D+00 - xs( 27) = 0.1687003773199817D+00 - xs( 28) = 0.1783255160750284D+00 - xs( 29) = 0.1880747088575439D+00 - xs( 30) = 0.1979454161761068D+00 - xs( 31) = 0.2079360457235975D+00 - xs( 32) = 0.2180460341801530D+00 - xs( 33) = 0.2282758957394745D+00 - xs( 34) = 0.2386275872741514D+00 - xs( 35) = 0.2491050092859564D+00 - xs( 36) = 0.2597135927778545D+00 - xs( 37) = 0.2704546500954177D+00 - xs( 38) = 0.2813414583148870D+00 - xs( 39) = 0.2924483420836390D+00 - xs( 40) = 0.3038497567820277D+00 - xs( 41) = 0.3151575754965604D+00 - ws( 1) = 0.5585666727201250D-03 - ws( 2) = 0.1292322772540566D-02 - ws( 3) = 0.2007528914994254D-02 - ws( 4) = 0.2691547735702685D-02 - ws( 5) = 0.3334666013398043D-02 - ws( 6) = 0.3930962945883249D-02 - ws( 7) = 0.4478509275620839D-02 - ws( 8) = 0.4978471762248498D-02 - ws( 9) = 0.5433895245716250D-02 - ws( 10) = 0.5848683587652833D-02 - ws( 11) = 0.6226930590809226D-02 - ws( 12) = 0.6572554097424241D-02 - ws( 13) = 0.6889134201433371D-02 - ws( 14) = 0.7179868993873334D-02 - ws( 15) = 0.7447589207207080D-02 - ws( 16) = 0.7694797317527772D-02 - ws( 17) = 0.7923712901471680D-02 - ws( 18) = 0.8136315607381888D-02 - ws( 19) = 0.8334382340861582D-02 - ws( 20) = 0.8519518016409662D-02 - ws( 21) = 0.8693180587874638D-02 - ws( 22) = 0.8856701656472465D-02 - ws( 23) = 0.9011304004038077D-02 - ws( 24) = 0.9158117313485502D-02 - ws( 25) = 0.9298193264279685D-02 - ws( 26) = 0.9432520017979649D-02 - ws( 27) = 0.9562039267804162D-02 - ws( 28) = 0.9687662731796508D-02 - ws( 29) = 0.9810293273853965D-02 - ws( 30) = 0.9930845197112837D-02 - ws( 31) = 0.1005039780054752D-01 - ws( 32) = 0.1016977474522494D-01 - ws( 33) = 0.1029046395490422D-01 - ws( 34) = 0.1041367180370445D-01 - ws( 35) = 0.1054305909911764D-01 - ws( 36) = 0.1067557269103216D-01 - ws( 37) = 0.1082670763459584D-01 - ws( 38) = 0.1097771665736436D-01 - ws( 39) = 0.1127363775264454D-01 - ws( 40) = 0.1197721566956321D-01 - ws( 41) = 0.1400752996170647D-01 - endif - - - if( iquad .eq. 40 ) then - idomain = 40 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.5707963267928966D+00 - n = 38 - err = 0.6031973246034785D-13 - ierq = 0 - xs( 1) = 0.2663109546196829D-03 - xs( 2) = 0.1392301262328599D-02 - xs( 3) = 0.3376484690677800D-02 - xs( 4) = 0.6157822156866087D-02 - xs( 5) = 0.9664135928037488D-02 - xs( 6) = 0.1382190429448071D-01 - xs( 7) = 0.1856210277247348D-01 - xs( 8) = 0.2382277274348472D-01 - xs( 9) = 0.2954951898069114D-01 - xs( 10) = 0.3569499947682160D-01 - xs( 11) = 0.4221807287121020D-01 - xs( 12) = 0.4908292934313218D-01 - xs( 13) = 0.5625832569281140D-01 - xs( 14) = 0.6371694683383958D-01 - xs( 15) = 0.7143487929059684D-01 - xs( 16) = 0.7939117453537782D-01 - xs( 17) = 0.8756748275906984D-01 - xs( 18) = 0.9594774266474536D-01 - xs( 19) = 0.1045179172044000D+00 - xs( 20) = 0.1132657682808374D+00 - xs( 21) = 0.1221806654606550D+00 - xs( 22) = 0.1312534252386265D+00 - xs( 23) = 0.1404761782809617D+00 - xs( 24) = 0.1498422632808525D+00 - xs( 25) = 0.1593461459764083D+00 - xs( 26) = 0.1689833668212381D+00 - xs( 27) = 0.1787505130278754D+00 - xs( 28) = 0.1886452204303457D+00 - xs( 29) = 0.1986662446895564D+00 - xs( 30) = 0.2088135183621528D+00 - xs( 31) = 0.2190883396860522D+00 - xs( 32) = 0.2294938259048523D+00 - xs( 33) = 0.2400356083045539D+00 - xs( 34) = 0.2507200551575828D+00 - xs( 35) = 0.2615650873732156D+00 - xs( 36) = 0.2725807658880221D+00 - xs( 37) = 0.2837529569419791D+00 - xs( 38) = 0.2953887398273107D+00 - ws( 1) = 0.6821709896977897D-03 - ws( 2) = 0.1563703396423764D-02 - ws( 3) = 0.2394255665582912D-02 - ws( 4) = 0.3156226194911925D-02 - ws( 5) = 0.3844052149484513D-02 - ws( 6) = 0.4459940888549101D-02 - ws( 7) = 0.5010123948119403D-02 - ws( 8) = 0.5502160168037442D-02 - ws( 9) = 0.5943456897752315D-02 - ws( 10) = 0.6340661930850578D-02 - ws( 11) = 0.6699529332639897D-02 - ws( 12) = 0.7024987008396496D-02 - ws( 13) = 0.7321261895363446D-02 - ws( 14) = 0.7592002038377459D-02 - ws( 15) = 0.7840377523815304D-02 - ws( 16) = 0.8069159811235583D-02 - ws( 17) = 0.8280784141343846D-02 - ws( 18) = 0.8477399905831698D-02 - ws( 19) = 0.8660912673293705D-02 - ws( 20) = 0.8833020422995462D-02 - ws( 21) = 0.8995245577452663D-02 - ws( 22) = 0.9148964222557792D-02 - ws( 23) = 0.9295432928958883D-02 - ws( 24) = 0.9435815613791202D-02 - ws( 25) = 0.9571207392524350D-02 - ws( 26) = 0.9702664366406610D-02 - ws( 27) = 0.9831239829082954D-02 - ws( 28) = 0.9957983023289567D-02 - ws( 29) = 0.1008403401082878D-01 - ws( 30) = 0.1021084973368944D-01 - ws( 31) = 0.1033908897330180D-01 - ws( 32) = 0.1047176951862901D-01 - ws( 33) = 0.1061314339785993D-01 - ws( 34) = 0.1076589848766552D-01 - ws( 35) = 0.1093891484174514D-01 - ws( 36) = 0.1122860092327191D-01 - ws( 37) = 0.1153567659446989D-01 - ws( 38) = 0.1200282641569459D-01 - endif - - - if( iquad .eq. 41 ) then - idomain = 41 - rk0r = 0.1000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.1570796326792897D+01 - n = 38 - err = 0.1508972565910489D-13 - ierq = 0 - xs( 1) = 0.1127173746280909D-03 - xs( 2) = 0.8068012487292157D-03 - xs( 3) = 0.2307576053042208D-02 - xs( 4) = 0.4609701768390752D-02 - xs( 5) = 0.7662980054897936D-02 - xs( 6) = 0.1140613323579998D-01 - xs( 7) = 0.1577541830622615D-01 - xs( 8) = 0.2070921589786610D-01 - xs( 9) = 0.2615047780480706D-01 - xs( 10) = 0.3204773753823696D-01 - xs( 11) = 0.3835525254463611D-01 - xs( 12) = 0.4503269758485881D-01 - xs( 13) = 0.5204467244505799D-01 - xs( 14) = 0.5936016643578459D-01 - xs( 15) = 0.6695204589117876D-01 - xs( 16) = 0.7479658962966673D-01 - xs( 17) = 0.8287307801370412D-01 - xs( 18) = 0.9116343357826413D-01 - xs( 19) = 0.9965190887830241D-01 - xs( 20) = 0.1083248169873388D+00 - xs( 21) = 0.1171703005354510D+00 - xs( 22) = 0.1261781358610328D+00 - xs( 23) = 0.1353395694034492D+00 - xs( 24) = 0.1446471839170702D+00 - xs( 25) = 0.1540947951577133D+00 - xs( 26) = 0.1636773751497255D+00 - xs( 27) = 0.1733910052096549D+00 - xs( 28) = 0.1832328592454120D+00 - xs( 29) = 0.1932012538108856D+00 - xs( 30) = 0.2032956114572987D+00 - xs( 31) = 0.2135170015975426D+00 - xs( 32) = 0.2238677687997651D+00 - xs( 33) = 0.2343515134946517D+00 - xs( 34) = 0.2449777043992352D+00 - xs( 35) = 0.2557475807195534D+00 - xs( 36) = 0.2666817467799923D+00 - xs( 37) = 0.2778790253445816D+00 - xs( 38) = 0.2890173957218036D+00 - ws( 1) = 0.3305289972636202D-03 - ws( 2) = 0.1089970665716343D-02 - ws( 3) = 0.1908185338101512D-02 - ws( 4) = 0.2687386092301188D-02 - ws( 5) = 0.3408830801005472D-02 - ws( 6) = 0.4066777622220548D-02 - ws( 7) = 0.4661483426998430D-02 - ws( 8) = 0.5196588262899734D-02 - ws( 9) = 0.5677356431996689D-02 - ws( 10) = 0.6109544995865403D-02 - ws( 11) = 0.6498772668885672D-02 - ws( 12) = 0.6850226444546421D-02 - ws( 13) = 0.7168563420263060D-02 - ws( 14) = 0.7457910035004660D-02 - ws( 15) = 0.7721902187845730D-02 - ws( 16) = 0.7963737994636684D-02 - ws( 17) = 0.8186231055100097D-02 - ws( 18) = 0.8391859981502860D-02 - ws( 19) = 0.8582813299518518D-02 - ws( 20) = 0.8761029939333032D-02 - ws( 21) = 0.8928235923682375D-02 - ws( 22) = 0.9085977960525560D-02 - ws( 23) = 0.9235654934828773D-02 - ws( 24) = 0.9378545804413265D-02 - ws( 25) = 0.9515838020911088D-02 - ws( 26) = 0.9648667052551132D-02 - ws( 27) = 0.9778125685407488D-02 - ws( 28) = 0.9905328906709919D-02 - ws( 29) = 0.1003146506570463D-01 - ws( 30) = 0.1015760246250051D-01 - ws( 31) = 0.1028525614988092D-01 - ws( 32) = 0.1041726670614159D-01 - ws( 33) = 0.1055430728993786D-01 - ws( 34) = 0.1070345501990531D-01 - ws( 35) = 0.1090166996360097D-01 - ws( 36) = 0.1102976296733101D-01 - ws( 37) = 0.1144519679452977D-01 - ws( 38) = 0.1267286016426467D-01 - endif - - - if( iquad .eq. 42 ) then - idomain = 42 - rk0r = 0.1000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 36 - err = 0.9451171632102291D-13 - ierq = 0 - xs( 1) = 0.2109242533108761D-03 - xs( 2) = 0.1110295000065906D-02 - xs( 3) = 0.2722879539187755D-02 - xs( 4) = 0.5036250921819111D-02 - xs( 5) = 0.8027706670182027D-02 - xs( 6) = 0.1166464816094727D-01 - xs( 7) = 0.1590685962652026D-01 - xs( 8) = 0.2070964253381719D-01 - xs( 9) = 0.2602678800809017D-01 - xs( 10) = 0.3181289701778623D-01 - xs( 11) = 0.3802495116937499D-01 - xs( 12) = 0.4462323091035005D-01 - xs( 13) = 0.5157174003969864D-01 - xs( 14) = 0.5883829182791511D-01 - xs( 15) = 0.6639438329079540D-01 - xs( 16) = 0.7421495073825381D-01 - xs( 17) = 0.8227807034643360D-01 - xs( 18) = 0.9056464481415764D-01 - xs( 19) = 0.9905810091064517D-01 - xs( 20) = 0.1077441118374901D+00 - xs( 21) = 0.1166103513164469D+00 - xs( 22) = 0.1256462825729864D+00 - xs( 23) = 0.1348429823901051D+00 - xs( 24) = 0.1441930019662210D+00 - xs( 25) = 0.1536902550529547D+00 - xs( 26) = 0.1633299509000681D+00 - xs( 27) = 0.1731086069464858D+00 - xs( 28) = 0.1830239894235369D+00 - xs( 29) = 0.1930753295406498D+00 - xs( 30) = 0.2032634045598184D+00 - xs( 31) = 0.2135883440414419D+00 - xs( 32) = 0.2240559857334320D+00 - xs( 33) = 0.2346791611346569D+00 - xs( 34) = 0.2454858360034878D+00 - xs( 35) = 0.2565108160197988D+00 - xs( 36) = 0.2674184302850334D+00 - ws( 1) = 0.5411921636914635D-03 - ws( 2) = 0.1257232522279994D-02 - ws( 3) = 0.1965882738744140D-02 - ws( 4) = 0.2657071239606162D-02 - ws( 5) = 0.3320365807526481D-02 - ws( 6) = 0.3946759794123219D-02 - ws( 7) = 0.4530162758229861D-02 - ws( 8) = 0.5067662761386466D-02 - ws( 9) = 0.5559035783371792D-02 - ws( 10) = 0.6005997602704801D-02 - ws( 11) = 0.6411484078293851D-02 - ws( 12) = 0.6779074903812448D-02 - ws( 13) = 0.7112581214923183D-02 - ws( 14) = 0.7415776088304253D-02 - ws( 15) = 0.7692234642057739D-02 - ws( 16) = 0.7945251561508439D-02 - ws( 17) = 0.8177809848379732D-02 - ws( 18) = 0.8392581518021211D-02 - ws( 19) = 0.8591946943235441D-02 - ws( 20) = 0.8778023956952765D-02 - ws( 21) = 0.8952701860467744D-02 - ws( 22) = 0.9117676192329893D-02 - ws( 23) = 0.9274485536053255D-02 - ws( 24) = 0.9424539496087174D-02 - ws( 25) = 0.9569172527741213D-02 - ws( 26) = 0.9709646190706304D-02 - ws( 27) = 0.9847327533079212D-02 - ws( 28) = 0.9983409748137809D-02 - ws( 29) = 0.1011963303733621D-01 - ws( 30) = 0.1025642131486193D-01 - ws( 31) = 0.1039837378586420D-01 - ws( 32) = 0.1054685539609088D-01 - ws( 33) = 0.1069166794902385D-01 - ws( 34) = 0.1082010281202109D-01 - ws( 35) = 0.1170079766028638D-01 - ws( 36) = 0.1225247050796208D-01 - endif - - - if( iquad .eq. 43 ) then - idomain = 43 - rk0r = 0.1000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 34 - err = 0.3787162331396504D-13 - ierq = 0 - xs( 1) = 0.2052099538969409D-03 - xs( 2) = 0.1078154051646214D-02 - xs( 3) = 0.2636301631412586D-02 - xs( 4) = 0.4859775200961616D-02 - xs( 5) = 0.7721308571111764D-02 - xs( 6) = 0.1118824906493940D-01 - xs( 7) = 0.1522440350668059D-01 - xs( 8) = 0.1979175866585848D-01 - xs( 9) = 0.2485195856232240D-01 - xs( 10) = 0.3036747413480372D-01 - xs( 11) = 0.3630245572438955D-01 - xs( 12) = 0.4262329711592639D-01 - xs( 13) = 0.4929896010213027D-01 - xs( 14) = 0.5630111457907790D-01 - xs( 15) = 0.6360414602219491D-01 - xs( 16) = 0.7118507471352346D-01 - xs( 17) = 0.7902342158672147D-01 - xs( 18) = 0.8710104704551075D-01 - xs( 19) = 0.9540198236896119D-01 - xs( 20) = 0.1039122657970876D+00 - xs( 21) = 0.1126197964626245D+00 - xs( 22) = 0.1215142072401904D+00 - xs( 23) = 0.1305867561338794D+00 - xs( 24) = 0.1398303016531842D+00 - xs( 25) = 0.1492392128153961D+00 - xs( 26) = 0.1588094867327577D+00 - xs( 27) = 0.1685386130637738D+00 - xs( 28) = 0.1784267900763993D+00 - xs( 29) = 0.1884768499881574D+00 - xs( 30) = 0.1986910373547673D+00 - xs( 31) = 0.2090857607232267D+00 - xs( 32) = 0.2196487234569564D+00 - xs( 33) = 0.2304150934721639D+00 - xs( 34) = 0.2411926220072676D+00 - ws( 1) = 0.5262807581766208D-03 - ws( 2) = 0.1218118878016092D-02 - ws( 3) = 0.1894812585033034D-02 - ws( 4) = 0.2547559044789895D-02 - ws( 5) = 0.3170034503373083D-02 - ws( 6) = 0.3757785312228040D-02 - ws( 7) = 0.4308163260211839D-02 - ws( 8) = 0.4820134885081630D-02 - ws( 9) = 0.5293995932665877D-02 - ws( 10) = 0.5731050991326657D-02 - ws( 11) = 0.6133305878088700D-02 - ws( 12) = 0.6503201661874689D-02 - ws( 13) = 0.6843402605212615D-02 - ws( 14) = 0.7156638686803299D-02 - ws( 15) = 0.7445596583957098D-02 - ws( 16) = 0.7712850363028497D-02 - ws( 17) = 0.7960822733850849D-02 - ws( 18) = 0.8191769021102411D-02 - ws( 19) = 0.8407777424583950D-02 - ws( 20) = 0.8610775785858650D-02 - ws( 21) = 0.8802556102703630D-02 - ws( 22) = 0.8984806961015942D-02 - ws( 23) = 0.9159100254815864D-02 - ws( 24) = 0.9327070260171665D-02 - ws( 25) = 0.9490255037058385D-02 - ws( 26) = 0.9650076934670536D-02 - ws( 27) = 0.9807987230741042D-02 - ws( 28) = 0.9964634253942709D-02 - ws( 29) = 0.1013175911588796D-01 - ws( 30) = 0.1033026633430481D-01 - ws( 31) = 0.1057457848528730D-01 - ws( 32) = 0.1075577745581611D-01 - ws( 33) = 0.1138804695081248D-01 - ws( 34) = 0.9974966073436559D-02 - endif - - - if( iquad .eq. 44 ) then - idomain = 44 - rk0r = 0.1000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.9999999999800001D-01 - rkdi = 0.3141592653587793D+01 - n = 32 - err = 0.2143322774122161D-13 - ierq = 0 - xs( 1) = 0.1768816783313774D-03 - xs( 2) = 0.9301829138221112D-03 - xs( 3) = 0.2278196209861796D-02 - xs( 4) = 0.4209198260307811D-02 - xs( 5) = 0.6706638468975161D-02 - xs( 6) = 0.9750128998544126D-02 - xs( 7) = 0.1331631922743492D-01 - xs( 8) = 0.1737977775048042D-01 - xs( 9) = 0.2191383405748250D-01 - xs( 10) = 0.2689133567379575D-01 - xs( 11) = 0.3228529292064584D-01 - xs( 12) = 0.3806939966031099D-01 - xs( 13) = 0.4421843181628912D-01 - xs( 14) = 0.5070853414750017D-01 - xs( 15) = 0.5751741165392067D-01 - xs( 16) = 0.6462444281368783D-01 - xs( 17) = 0.7201073461375890D-01 - xs( 18) = 0.7965913261022582D-01 - xs( 19) = 0.8755420968542516D-01 - xs( 20) = 0.9568222897061499D-01 - xs( 21) = 0.1040310982815737D+00 - xs( 22) = 0.1125904078716249D+00 - xs( 23) = 0.1213512671307931D+00 - xs( 24) = 0.1303064768661897D+00 - xs( 25) = 0.1394508071488845D+00 - xs( 26) = 0.1487805736320756D+00 - xs( 27) = 0.1582941358190469D+00 - xs( 28) = 0.1679911389128540D+00 - xs( 29) = 0.1778815707271328D+00 - xs( 30) = 0.1879727446887842D+00 - xs( 31) = 0.1982900347490748D+00 - xs( 32) = 0.2087276736625134D+00 - ws( 1) = 0.4537296937659431D-03 - ws( 2) = 0.1052136374137570D-02 - ws( 3) = 0.1641903369952962D-02 - ws( 4) = 0.2217328028045568D-02 - ws( 5) = 0.2774139810918603D-02 - ws( 6) = 0.3308934641387054D-02 - ws( 7) = 0.3819193106927451D-02 - ws( 8) = 0.4303266164972900D-02 - ws( 9) = 0.4760310261525931D-02 - ws( 10) = 0.5190186007364496D-02 - ws( 11) = 0.5593337522117037D-02 - ws( 12) = 0.5970667240809575D-02 - ws( 13) = 0.6323418002724073D-02 - ws( 14) = 0.6653068977063184D-02 - ws( 15) = 0.6961248498574917D-02 - ws( 16) = 0.7249665012756186D-02 - ws( 17) = 0.7520060962494828D-02 - ws( 18) = 0.7774164236521953D-02 - ws( 19) = 0.8013693764518293D-02 - ws( 20) = 0.8240320865744206D-02 - ws( 21) = 0.8455733800936829D-02 - ws( 22) = 0.8661343040174727D-02 - ws( 23) = 0.8859384956507748D-02 - ws( 24) = 0.9050765559079172D-02 - ws( 25) = 0.9236442981752776D-02 - ws( 26) = 0.9425022641325572D-02 - ws( 27) = 0.9610424054570845D-02 - ws( 28) = 0.9779287343496900D-02 - ws( 29) = 0.9961615805386037D-02 - ws( 30) = 0.1027153206044895D-01 - ws( 31) = 0.1081308799322395D-01 - ws( 32) = 0.1212303417552243D-01 - endif - - - if( iquad .eq. 45 ) then - idomain = 45 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 43 - err = 0.1625103173706261D-13 - ierq = 0 - xs( 1) = 0.1081349993299588D-03 - xs( 2) = 0.5843119870032562D-03 - xs( 3) = 0.1489143720634286D-02 - xs( 4) = 0.2877312968319198D-02 - xs( 5) = 0.4795476673734164D-02 - xs( 6) = 0.7273621331705673D-02 - xs( 7) = 0.1032129420589367D-01 - xs( 8) = 0.1392896565938338D-01 - xs( 9) = 0.1807304618226543D-01 - xs( 10) = 0.2272175052714715D-01 - xs( 11) = 0.2783984311223505D-01 - xs( 12) = 0.3339171279747981D-01 - xs( 13) = 0.3934306196862497D-01 - xs( 14) = 0.4566170593162817D-01 - xs( 15) = 0.5231788583878881D-01 - xs( 16) = 0.5928434239151485D-01 - xs( 17) = 0.6653627675737507D-01 - xs( 18) = 0.7405125555918590D-01 - xs( 19) = 0.8180908467628825D-01 - xs( 20) = 0.8979166462261319D-01 - xs( 21) = 0.9798283649343373D-01 - xs( 22) = 0.1063682259547522D+00 - xs( 23) = 0.1149350913938210D+00 - xs( 24) = 0.1236721808706063D+00 - xs( 25) = 0.1325696010603643D+00 - xs( 26) = 0.1416187002039178D+00 - xs( 27) = 0.1508119663733258D+00 - xs( 28) = 0.1601429417987579D+00 - xs( 29) = 0.1696061533086815D+00 - xs( 30) = 0.1791970607922331D+00 - xs( 31) = 0.1889120263796914D+00 - xs( 32) = 0.1987483024068452D+00 - xs( 33) = 0.2087040301055427D+00 - xs( 34) = 0.2187783201556586D+00 - xs( 35) = 0.2289712690152346D+00 - xs( 36) = 0.2392842528562425D+00 - xs( 37) = 0.2497203444059887D+00 - xs( 38) = 0.2602834657551535D+00 - xs( 39) = 0.2709771858712560D+00 - xs( 40) = 0.2818146439763188D+00 - xs( 41) = 0.2927940635964493D+00 - xs( 42) = 0.3038247961396937D+00 - xs( 43) = 0.3153448736612595D+00 - ws( 1) = 0.2793091628295460D-03 - ws( 2) = 0.6813462142609755D-03 - ws( 3) = 0.1137682292035125D-02 - ws( 4) = 0.1646571004009888D-02 - ws( 5) = 0.2194820379080852D-02 - ws( 6) = 0.2763033158599539D-02 - ws( 7) = 0.3330632922330386D-02 - ws( 8) = 0.3880675853408122D-02 - ws( 9) = 0.4402107568545578D-02 - ws( 10) = 0.4889378222565612D-02 - ws( 11) = 0.5340844896187045D-02 - ws( 12) = 0.5757165855859778D-02 - ws( 13) = 0.6140163724482550D-02 - ws( 14) = 0.6492163444152923D-02 - ws( 15) = 0.6815653925600424D-02 - ws( 16) = 0.7113127676030230D-02 - ws( 17) = 0.7387004290389079D-02 - ws( 18) = 0.7639590057547788D-02 - ws( 19) = 0.7873054180968571D-02 - ws( 20) = 0.8089415175897395D-02 - ws( 21) = 0.8290535385965532D-02 - ws( 22) = 0.8478122326446756D-02 - ws( 23) = 0.8653735416123052D-02 - ws( 24) = 0.8818796606769149D-02 - ws( 25) = 0.8974603525307824D-02 - ws( 26) = 0.9122344243123725D-02 - ws( 27) = 0.9263112880596299D-02 - ws( 28) = 0.9397926288951549D-02 - ws( 29) = 0.9527741107925251D-02 - ws( 30) = 0.9653469640088164D-02 - ws( 31) = 0.9776007239550827D-02 - ws( 32) = 0.9896247190453305D-02 - ws( 33) = 0.1001508441618666D-01 - ws( 34) = 0.1013358540461564D-01 - ws( 35) = 0.1025231196870299D-01 - ws( 36) = 0.1037333864914149D-01 - ws( 37) = 0.1049801419629866D-01 - ws( 38) = 0.1062458286994137D-01 - ws( 39) = 0.1077239609291349D-01 - ws( 40) = 0.1092284110862436D-01 - ws( 41) = 0.1112290476894323D-01 - ws( 42) = 0.1148875455268579D-01 - ws( 43) = 0.1243160230640322D-01 - endif - - - if( iquad .eq. 46 ) then - idomain = 46 - rk0r = 0.2000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 43 - err = 0.9682141791518597D-14 - ierq = 0 - xs( 1) = 0.1171987117445723D-03 - xs( 2) = 0.6271363830514607D-03 - xs( 3) = 0.1579469636023074D-02 - xs( 4) = 0.3019978848216550D-02 - xs( 5) = 0.4991449423175674D-02 - xs( 6) = 0.7521905465678311D-02 - xs( 7) = 0.1061915452072513D-01 - xs( 8) = 0.1427194486232530D-01 - xs( 9) = 0.1845516035795628D-01 - xs( 10) = 0.2313581771471125D-01 - xs( 11) = 0.2827787808602343D-01 - xs( 12) = 0.3384535856887635D-01 - xs( 13) = 0.3980403128859428D-01 - xs( 14) = 0.4612219223114145D-01 - xs( 15) = 0.5277089868206154D-01 - xs( 16) = 0.5972393493790152D-01 - xs( 17) = 0.6695765505978427D-01 - xs( 18) = 0.7445078126287992D-01 - xs( 19) = 0.8218419680927148D-01 - xs( 20) = 0.9014075098491686D-01 - xs( 21) = 0.9830508268021938D-01 - xs( 22) = 0.1066634636236706D+00 - xs( 23) = 0.1152036599743956D+00 - xs( 24) = 0.1239148103579699D+00 - xs( 25) = 0.1327873186961359D+00 - xs( 26) = 0.1418127607774401D+00 - xs( 27) = 0.1509838042113098D+00 - xs( 28) = 0.1602941423045569D+00 - xs( 29) = 0.1697384420489078D+00 - xs( 30) = 0.1793123087241238D+00 - xs( 31) = 0.1890122705964790D+00 - xs( 32) = 0.1988357880721647D+00 - xs( 33) = 0.2087812743023932D+00 - xs( 34) = 0.2188481638779912D+00 - xs( 35) = 0.2290371360849870D+00 - xs( 36) = 0.2393502012708628D+00 - xs( 37) = 0.2497917750712840D+00 - xs( 38) = 0.2603683357892839D+00 - xs( 39) = 0.2710827068503188D+00 - xs( 40) = 0.2819559483345346D+00 - xs( 41) = 0.2929911622587902D+00 - xs( 42) = 0.3043285940036120D+00 - xs( 43) = 0.3159533679017422D+00 - ws( 1) = 0.3019129877431503D-03 - ws( 2) = 0.7239829536958101D-03 - ws( 3) = 0.1188567316621616D-02 - ws( 4) = 0.1699787166140516D-02 - ws( 5) = 0.2247916285259576D-02 - ws( 6) = 0.2814270487955332D-02 - ws( 7) = 0.3378257188929227D-02 - ws( 8) = 0.3923032796266318D-02 - ws( 9) = 0.4437819904662721D-02 - ws( 10) = 0.4917437413138985D-02 - ws( 11) = 0.5360659106423093D-02 - ws( 12) = 0.5768585360811289D-02 - ws( 13) = 0.6143472721304373D-02 - ws( 14) = 0.6488026286361945D-02 - ws( 15) = 0.6805020127463977D-02 - ws( 16) = 0.7097114840134736D-02 - ws( 17) = 0.7366782595996150D-02 - ws( 18) = 0.7616286951025972D-02 - ws( 19) = 0.7847688631118453D-02 - ws( 20) = 0.8062862144483526D-02 - ws( 21) = 0.8263515502881834D-02 - ws( 22) = 0.8451209437989620D-02 - ws( 23) = 0.8627374817520047D-02 - ws( 24) = 0.8793328166982509D-02 - ws( 25) = 0.8950285798909966D-02 - ws( 26) = 0.9099377402852596D-02 - ws( 27) = 0.9241659199579382D-02 - ws( 28) = 0.9378128539808692D-02 - ws( 29) = 0.9509739030287291D-02 - ws( 30) = 0.9637417117183343D-02 - ws( 31) = 0.9762087068787636D-02 - ws( 32) = 0.9884690841979746D-02 - ws( 33) = 0.1000624320863587D-01 - ws( 34) = 0.1012783545153120D-01 - ws( 35) = 0.1025025341510503D-01 - ws( 36) = 0.1037513717182897D-01 - ws( 37) = 0.1050535719524644D-01 - ws( 38) = 0.1064368759638998D-01 - ws( 39) = 0.1080362998725180D-01 - ws( 40) = 0.1094392688152797D-01 - ws( 41) = 0.1123225668400844D-01 - ws( 42) = 0.1189334335622620D-01 - ws( 43) = 0.1216853804988945D-01 - endif - - - if( iquad .eq. 47 ) then - idomain = 47 - rk0r = 0.2000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5999999999800001D-01 - n = 43 - err = 0.6414088479673814D-13 - ierq = 0 - xs( 1) = 0.5047778908988380D-04 - xs( 2) = 0.4453865045882289D-03 - xs( 3) = 0.1350584991919332D-02 - xs( 4) = 0.2801483552628386D-02 - xs( 5) = 0.4823353377990170D-02 - xs( 6) = 0.7429613158300684D-02 - xs( 7) = 0.1061705132408552D-01 - xs( 8) = 0.1436685798397102D-01 - xs( 9) = 0.1864924142641418D-01 - xs( 10) = 0.2342861130713363D-01 - xs( 11) = 0.2866761801657785D-01 - xs( 12) = 0.3432968193649891D-01 - xs( 13) = 0.4038031542414865D-01 - xs( 14) = 0.4678767640243710D-01 - xs( 15) = 0.5352270139575076D-01 - xs( 16) = 0.6055903617182063D-01 - xs( 17) = 0.6787288244408016D-01 - xs( 18) = 0.7544281794970151D-01 - xs( 19) = 0.8324961453684379D-01 - xs( 20) = 0.9127606334506889D-01 - xs( 21) = 0.9950680975327887D-01 - xs( 22) = 0.1079281987304993D+00 - xs( 23) = 0.1165281309561023D+00 - xs( 24) = 0.1252959303306557D+00 - xs( 25) = 0.1342222236924610D+00 - xs( 26) = 0.1432988337411803D+00 - xs( 27) = 0.1525186858691094D+00 - xs( 28) = 0.1618757301166055D+00 - xs( 29) = 0.1713648792340510D+00 - xs( 30) = 0.1809819609985421D+00 - xs( 31) = 0.1907236972850975D+00 - xs( 32) = 0.2005877026251426D+00 - xs( 33) = 0.2105724829049336D+00 - xs( 34) = 0.2206774642598983D+00 - xs( 35) = 0.2309031531576807D+00 - xs( 36) = 0.2412509240280991D+00 - xs( 37) = 0.2517263045109415D+00 - xs( 38) = 0.2623302406012440D+00 - xs( 39) = 0.2730638302160932D+00 - xs( 40) = 0.2839660334610112D+00 - xs( 41) = 0.2949723440566581D+00 - xs( 42) = 0.3063099069450045D+00 - xs( 43) = 0.3176530839191287D+00 - ws( 1) = 0.1672299629876563D-03 - ws( 2) = 0.6422306729671059D-03 - ws( 3) = 0.1173255856941355D-02 - ws( 4) = 0.1732903952629899D-02 - ws( 5) = 0.2313157297565702D-02 - ws( 6) = 0.2898802489289526D-02 - ws( 7) = 0.3472853967387449D-02 - ws( 8) = 0.4021703712671586D-02 - ws( 9) = 0.4537063582377825D-02 - ws( 10) = 0.5015410026198929D-02 - ws( 11) = 0.5456485879540367D-02 - ws( 12) = 0.5861885627846102D-02 - ws( 13) = 0.6234072620975056D-02 - ws( 14) = 0.6575806844698719D-02 - ws( 15) = 0.6889853450100953D-02 - ws( 16) = 0.7178852771769507D-02 - ws( 17) = 0.7445272445698365D-02 - ws( 18) = 0.7691396791994942D-02 - ws( 19) = 0.7919330990745996D-02 - ws( 20) = 0.8131010100886314D-02 - ws( 21) = 0.8328209276678860D-02 - ws( 22) = 0.8512554333645185D-02 - ws( 23) = 0.8685532773917579D-02 - ws( 24) = 0.8848505556702774D-02 - ws( 25) = 0.9002719820865928D-02 - ws( 26) = 0.9149322434357678D-02 - ws( 27) = 0.9289374604912592D-02 - ws( 28) = 0.9423867279451289D-02 - ws( 29) = 0.9553736832354926D-02 - ws( 30) = 0.9679884041237683D-02 - ws( 31) = 0.9803185020801916D-02 - ws( 32) = 0.9924567345786428D-02 - ws( 33) = 0.1004495990321552D-01 - ws( 34) = 0.1016531397185045D-01 - ws( 35) = 0.1028690965684751D-01 - ws( 36) = 0.1041020842356740D-01 - ws( 37) = 0.1053514231523807D-01 - ws( 38) = 0.1067292906021352D-01 - ws( 39) = 0.1081033178537763D-01 - ws( 40) = 0.1091688328316241D-01 - ws( 41) = 0.1118413834725796D-01 - ws( 42) = 0.1202612082245743D-01 - ws( 43) = 0.1122970614668027D-01 - endif - - - if( iquad .eq. 48 ) then - idomain = 48 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.9999999999800001D-01 - n = 41 - err = 0.8918029070770207D-13 - ierq = 0 - xs( 1) = 0.1621362903638581D-03 - xs( 2) = 0.8595993343714491D-03 - xs( 3) = 0.2132827344474432D-02 - xs( 4) = 0.4002691086113749D-02 - xs( 5) = 0.6481328010601319D-02 - xs( 6) = 0.9565334909126101D-02 - xs( 7) = 0.1323545892803453D-01 - xs( 8) = 0.1746075389703470D-01 - xs( 9) = 0.2220385813227706D-01 - xs( 10) = 0.2742528867029755D-01 - xs( 11) = 0.3308618847770616D-01 - xs( 12) = 0.3914979260305495D-01 - xs( 13) = 0.4558207376567799D-01 - xs( 14) = 0.5235193870933767D-01 - xs( 15) = 0.5943120468101335D-01 - xs( 16) = 0.6679447675314107D-01 - xs( 17) = 0.7441898275793232D-01 - xs( 18) = 0.8228439098903065D-01 - xs( 19) = 0.9037262243536155D-01 - xs( 20) = 0.9866766439291032D-01 - xs( 21) = 0.1071553905366750D+00 - xs( 22) = 0.1158233916210623D+00 - xs( 23) = 0.1246608201483396D+00 - xs( 24) = 0.1336582515300106D+00 - xs( 25) = 0.1428075636613716D+00 - xs( 26) = 0.1521018362606254D+00 - xs( 27) = 0.1615352716700237D+00 - xs( 28) = 0.1711031377805354D+00 - xs( 29) = 0.1808017362841295D+00 - xs( 30) = 0.1906284030354264D+00 - xs( 31) = 0.2005815446407827D+00 - xs( 32) = 0.2106607173434897D+00 - xs( 33) = 0.2208667870235081D+00 - xs( 34) = 0.2312023470342939D+00 - xs( 35) = 0.2416715019615037D+00 - xs( 36) = 0.2522811336408433D+00 - xs( 37) = 0.2630438006220023D+00 - xs( 38) = 0.2739685754673554D+00 - xs( 39) = 0.2851211928875596D+00 - xs( 40) = 0.2965504412061197D+00 - xs( 41) = 0.3088205697617566D+00 - ws( 1) = 0.4167327310875802D-03 - ws( 2) = 0.9816599017243204D-03 - ws( 3) = 0.1568465076922271D-02 - ws( 4) = 0.2173405710371481D-02 - ws( 5) = 0.2783299328685345D-02 - ws( 6) = 0.3381427380783039D-02 - ws( 7) = 0.3953569996362312D-02 - ws( 8) = 0.4490720448520606D-02 - ws( 9) = 0.4988862636451515D-02 - ws( 10) = 0.5447499026764636D-02 - ws( 11) = 0.5868163230281486D-02 - ws( 12) = 0.6253371062403747D-02 - ws( 13) = 0.6606009713898821D-02 - ws( 14) = 0.6929025214945184D-02 - ws( 15) = 0.7225277044600808D-02 - ws( 16) = 0.7497474801645810D-02 - ws( 17) = 0.7748151734943361D-02 - ws( 18) = 0.7979654677126370D-02 - ws( 19) = 0.8194142440371203D-02 - ws( 20) = 0.8393589916523203D-02 - ws( 21) = 0.8579796759689191D-02 - ws( 22) = 0.8754399809423630D-02 - ws( 23) = 0.8918888501429580D-02 - ws( 24) = 0.9074622287600640D-02 - ws( 25) = 0.9222849942955134D-02 - ws( 26) = 0.9364729655276710D-02 - ws( 27) = 0.9501352219636001D-02 - ws( 28) = 0.9633764205220630D-02 - ws( 29) = 0.9762996035814025D-02 - ws( 30) = 0.9890072002697200D-02 - ws( 31) = 0.1001613117554534D-01 - ws( 32) = 0.1014230857549683D-01 - ws( 33) = 0.1026989612412522D-01 - ws( 34) = 0.1040175597911755D-01 - ws( 35) = 0.1053773276016966D-01 - ws( 36) = 0.1068537576739434D-01 - ws( 37) = 0.1083525716374031D-01 - ws( 38) = 0.1102072363580807D-01 - ws( 39) = 0.1136147170110632D-01 - ws( 40) = 0.1202726057637139D-01 - ws( 41) = 0.1519765895876334D-01 - endif - - - if( iquad .eq. 49 ) then - idomain = 49 - rk0r = 0.2000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1999999999980000D+00 - n = 40 - err = 0.5036373681478994D-13 - ierq = 0 - xs( 1) = 0.1778887744429441D-03 - xs( 2) = 0.9406381245253153D-03 - xs( 3) = 0.2323742599668506D-02 - xs( 4) = 0.4336903797362837D-02 - xs( 5) = 0.6979870636764386D-02 - xs( 6) = 0.1023835461823524D-01 - xs( 7) = 0.1408509690941646D-01 - xs( 8) = 0.1848400800201581D-01 - xs( 9) = 0.2339475014309118D-01 - xs( 10) = 0.2877628215668715D-01 - xs( 11) = 0.3458905397873312D-01 - xs( 12) = 0.4079612710246295D-01 - xs( 13) = 0.4736361728437068D-01 - xs( 14) = 0.5426077085633326D-01 - xs( 15) = 0.6145986582933816D-01 - xs( 16) = 0.6893603816356469D-01 - xs( 17) = 0.7666708032114006D-01 - xs( 18) = 0.8463323294084654D-01 - xs( 19) = 0.9281697925731135D-01 - xs( 20) = 0.1012028476208471D+00 - xs( 21) = 0.1097772258588768D+00 - xs( 22) = 0.1185281903762627D+00 - xs( 23) = 0.1274453522866722D+00 - xs( 24) = 0.1365197222228348D+00 - xs( 25) = 0.1457435952893258D+00 - xs( 26) = 0.1551104569226515D+00 - xs( 27) = 0.1646149118226426D+00 - xs( 28) = 0.1742526371626878D+00 - xs( 29) = 0.1840203635640348D+00 - xs( 30) = 0.1939158841707226D+00 - xs( 31) = 0.2039381319422155D+00 - xs( 32) = 0.2140872053826313D+00 - xs( 33) = 0.2243648307769565D+00 - xs( 34) = 0.2347742355319673D+00 - xs( 35) = 0.2453207954735725D+00 - xs( 36) = 0.2560133402092622D+00 - xs( 37) = 0.2668662363918456D+00 - xs( 38) = 0.2778697780354116D+00 - xs( 39) = 0.2891534480759458D+00 - xs( 40) = 0.3009922108929436D+00 - ws( 1) = 0.4569314846997276D-03 - ws( 2) = 0.1070843889505689D-02 - ws( 3) = 0.1697120112138764D-02 - ws( 4) = 0.2329232123258760D-02 - ws( 5) = 0.2954295766029275D-02 - ws( 6) = 0.3558053183934519D-02 - ws( 7) = 0.4129336668787132D-02 - ws( 8) = 0.4661703014126793D-02 - ws( 9) = 0.5152905344892262D-02 - ws( 10) = 0.5603549346035172D-02 - ws( 11) = 0.6015831249010486D-02 - ws( 12) = 0.6392666792474908D-02 - ws( 13) = 0.6737189831284142D-02 - ws( 14) = 0.7052499978168540D-02 - ws( 15) = 0.7341549362639413D-02 - ws( 16) = 0.7607097541997297D-02 - ws( 17) = 0.7851696984594772D-02 - ws( 18) = 0.8077692094076496D-02 - ws( 19) = 0.8287225031538946D-02 - ws( 20) = 0.8482245853941231D-02 - ws( 21) = 0.8664525925115784D-02 - ws( 22) = 0.8835673889445617D-02 - ws( 23) = 0.8997153628090861D-02 - ws( 24) = 0.9150303692960564D-02 - ws( 25) = 0.9296357829161616D-02 - ws( 26) = 0.9436467320866311D-02 - ws( 27) = 0.9571722841497186D-02 - ws( 28) = 0.9703183789387384D-02 - ws( 29) = 0.9831901410262977D-02 - ws( 30) = 0.9958959236305281D-02 - ws( 31) = 0.1008554669575024D-01 - ws( 32) = 0.1021291072825335D-01 - ws( 33) = 0.1034277316200123D-01 - ws( 34) = 0.1047680027729606D-01 - ws( 35) = 0.1061983550870397D-01 - ws( 36) = 0.1077308899202382D-01 - ws( 37) = 0.1094456726034048D-01 - ws( 38) = 0.1113843697492658D-01 - ws( 39) = 0.1155054125735338D-01 - ws( 40) = 0.1343370819934478D-01 - endif - - - if( iquad .eq. 50 ) then - idomain = 50 - rk0r = 0.2000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5999999999980000D+00 - n = 40 - err = 0.9285649524051021D-13 - ierq = 0 - xs( 1) = 0.1565990127173470D-03 - xs( 2) = 0.8549680430553173D-03 - xs( 3) = 0.2185444823155738D-02 - xs( 4) = 0.4187813254162508D-02 - xs( 5) = 0.6862476393493776D-02 - xs( 6) = 0.1018393307593356D-01 - xs( 7) = 0.1411211413706439D-01 - xs( 8) = 0.1860050697365123D-01 - xs( 9) = 0.2360157080891699D-01 - xs( 10) = 0.2906983370647064D-01 - xs( 11) = 0.3496332800408077D-01 - xs( 12) = 0.4124403329307171D-01 - xs( 13) = 0.4787781839477726D-01 - xs( 14) = 0.5483417669234282D-01 - xs( 15) = 0.6208590415173538D-01 - xs( 16) = 0.6960878304056120D-01 - xs( 17) = 0.7738129130598993D-01 - xs( 18) = 0.8538434012533325D-01 - xs( 19) = 0.9360103717893095D-01 - xs( 20) = 0.1020164730311579D+00 - xs( 21) = 0.1106175290193363D+00 - xs( 22) = 0.1193927059262566D+00 - xs( 23) = 0.1283319731638196D+00 - xs( 24) = 0.1374266385166606D+00 - xs( 25) = 0.1466692384230701D+00 - xs( 26) = 0.1560534493372338D+00 - xs( 27) = 0.1655740210602834D+00 - xs( 28) = 0.1752267311728939D+00 - xs( 29) = 0.1850083705515186D+00 - xs( 30) = 0.1949167524563855D+00 - xs( 31) = 0.2049507682962284D+00 - xs( 32) = 0.2151104677237642D+00 - xs( 33) = 0.2253972816854035D+00 - xs( 34) = 0.2358140312833481D+00 - xs( 35) = 0.2463659426895588D+00 - xs( 36) = 0.2570634406993355D+00 - xs( 37) = 0.2679112532740562D+00 - xs( 38) = 0.2789468673224052D+00 - xs( 39) = 0.2901184140465319D+00 - xs( 40) = 0.3018140485482012D+00 - ws( 1) = 0.4059981759390685D-03 - ws( 2) = 0.1004028774941877D-02 - ws( 3) = 0.1663497040364015D-02 - ws( 4) = 0.2341048580986566D-02 - ws( 5) = 0.3003842293586145D-02 - ws( 6) = 0.3632258024653922D-02 - ws( 7) = 0.4216262591064068D-02 - ws( 8) = 0.4752549725301150D-02 - ws( 9) = 0.5241977030952394D-02 - ws( 10) = 0.5687547939350187D-02 - ws( 11) = 0.6093105564044598D-02 - ws( 12) = 0.6462621226314057D-02 - ws( 13) = 0.6799870040118910D-02 - ws( 14) = 0.7108317858458881D-02 - ws( 15) = 0.7391105616759766D-02 - ws( 16) = 0.7651069518777478D-02 - ws( 17) = 0.7890769480516563D-02 - ws( 18) = 0.8112516328429666D-02 - ws( 19) = 0.8318396073542376D-02 - ws( 20) = 0.8510292042889070D-02 - ws( 21) = 0.8689905911721914D-02 - ws( 22) = 0.8858778318682236D-02 - ws( 23) = 0.9018309304524410D-02 - ws( 24) = 0.9169779001623744D-02 - ws( 25) = 0.9314368042445079D-02 - ws( 26) = 0.9453179243216030D-02 - ws( 27) = 0.9587260614924348D-02 - ws( 28) = 0.9717626645619456D-02 - ws( 29) = 0.9845282402586086D-02 - ws( 30) = 0.9971295326417112D-02 - ws( 31) = 0.1009674280542126D-01 - ws( 32) = 0.1022300670789901D-01 - ws( 33) = 0.1035107016540731D-01 - ws( 34) = 0.1048352514063305D-01 - ws( 35) = 0.1061835530839888D-01 - ws( 36) = 0.1077089065270922D-01 - ws( 37) = 0.1094846651101914D-01 - ws( 38) = 0.1116231252106251D-01 - ws( 39) = 0.1158149572675832D-01 - ws( 40) = 0.1243182621231162D-01 - endif - - - if( iquad .eq. 51 ) then - idomain = 51 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.5707963267928966D+00 - n = 39 - err = 0.1309887917639622D-13 - ierq = 0 - xs( 1) = 0.2360508332997508D-03 - xs( 2) = 0.1237412767813393D-02 - xs( 3) = 0.3013981760733013D-02 - xs( 4) = 0.5526703975702882D-02 - xs( 5) = 0.8725403615100874D-02 - xs( 6) = 0.1255474442314102D-01 - xs( 7) = 0.1695916567424697D-01 - xs( 8) = 0.2188616456871318D-01 - xs( 9) = 0.2728786737543781D-01 - xs( 10) = 0.3312135402111520D-01 - xs( 11) = 0.3934832065295318D-01 - xs( 12) = 0.4593452796384515D-01 - xs( 13) = 0.5284927931620692D-01 - xs( 14) = 0.6006501087632082D-01 - xs( 15) = 0.6755698684350749D-01 - xs( 16) = 0.7530306314006598D-01 - xs( 17) = 0.8328348585667586D-01 - xs( 18) = 0.9148070426635845D-01 - xs( 19) = 0.9987919053978433D-01 - xs( 20) = 0.1084652658318525D+00 - xs( 21) = 0.1172269356663946D+00 - xs( 22) = 0.1261537381792661D+00 - xs( 23) = 0.1352366083721815D+00 - xs( 24) = 0.1444677603875158D+00 - xs( 25) = 0.1538405901314342D+00 - xs( 26) = 0.1633495991616670D+00 - xs( 27) = 0.1729903424708832D+00 - xs( 28) = 0.1827593991041768D+00 - xs( 29) = 0.1926543828095260D+00 - xs( 30) = 0.2026739742512691D+00 - xs( 31) = 0.2128179495263153D+00 - xs( 32) = 0.2230877756706084D+00 - xs( 33) = 0.2334853340499655D+00 - xs( 34) = 0.2440157396189648D+00 - xs( 35) = 0.2546968350023141D+00 - xs( 36) = 0.2655126157776591D+00 - xs( 37) = 0.2764942500510751D+00 - xs( 38) = 0.2876271521958264D+00 - xs( 39) = 0.2991486179613869D+00 - ws( 1) = 0.6050531136250357D-03 - ws( 2) = 0.1394220905182240D-02 - ws( 3) = 0.2152291338396671D-02 - ws( 4) = 0.2864690574322782D-02 - ws( 5) = 0.3523401687892299D-02 - ws( 6) = 0.4125965090782961D-02 - ws( 7) = 0.4674102050884381D-02 - ws( 8) = 0.5171912865962916D-02 - ws( 9) = 0.5624346111249902D-02 - ws( 10) = 0.6036252957742952D-02 - ws( 11) = 0.6411982616498382D-02 - ws( 12) = 0.6755322689282823D-02 - ws( 13) = 0.7069591023008210D-02 - ws( 14) = 0.7357753318642813D-02 - ws( 15) = 0.7622511248287352D-02 - ws( 16) = 0.7866352126674676D-02 - ws( 17) = 0.8091571191765864D-02 - ws( 18) = 0.8300280563733766D-02 - ws( 19) = 0.8494414927132942D-02 - ws( 20) = 0.8675739111968643D-02 - ws( 21) = 0.8845859185766334D-02 - ws( 22) = 0.9006236966228319D-02 - ws( 23) = 0.9158207263453937D-02 - ws( 24) = 0.9302997630641761D-02 - ws( 25) = 0.9441747001327890D-02 - ws( 26) = 0.9575529947160929D-02 - ws( 27) = 0.9705387019176904D-02 - ws( 28) = 0.9832326944567257D-02 - ws( 29) = 0.9957423290007419D-02 - ws( 30) = 0.1008178303296832D-01 - ws( 31) = 0.1020672244078634D-01 - ws( 32) = 0.1033347129218714D-01 - ws( 33) = 0.1046383150473912D-01 - ws( 34) = 0.1059450337073732D-01 - ws( 35) = 0.1074323686896186D-01 - ws( 36) = 0.1097639880009720D-01 - ws( 37) = 0.1117298358607336D-01 - ws( 38) = 0.1164410497713336D-01 - ws( 39) = 0.1256888639733010D-01 - endif - - - if( iquad .eq. 52 ) then - idomain = 52 - rk0r = 0.2000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.1570796326792897D+01 - n = 38 - err = 0.1581535129873603D-13 - ierq = 0 - xs( 1) = 0.2436295729216014D-03 - xs( 2) = 0.1276810342279485D-02 - xs( 3) = 0.3108794643365224D-02 - xs( 4) = 0.5698441897880479D-02 - xs( 5) = 0.8993799089409869D-02 - xs( 6) = 0.1293801395229609D-01 - xs( 7) = 0.1747373621580422D-01 - xs( 8) = 0.2254594514746750D-01 - xs( 9) = 0.2810345886754990D-01 - xs( 10) = 0.3409956177506407D-01 - xs( 11) = 0.4049213099256417D-01 - xs( 12) = 0.4724350692909258D-01 - xs( 13) = 0.5432023872377491D-01 - xs( 14) = 0.6169276898949173D-01 - xs( 15) = 0.6933509184143309D-01 - xs( 16) = 0.7722440560527344D-01 - xs( 17) = 0.8534077542570871D-01 - xs( 18) = 0.9366681655611517D-01 - xs( 19) = 0.1021874052547320D+00 - xs( 20) = 0.1108894210645007D+00 - xs( 21) = 0.1197615217174252D+00 - xs( 22) = 0.1287939507128326D+00 - xs( 23) = 0.1379783762648363D+00 - xs( 24) = 0.1473077608078206D+00 - xs( 25) = 0.1567762598493870D+00 - xs( 26) = 0.1663791502877459D+00 - xs( 27) = 0.1761127888996687D+00 - xs( 28) = 0.1859746230127582D+00 - xs( 29) = 0.1959631811374244D+00 - xs( 30) = 0.2060782644934785D+00 - xs( 31) = 0.2163206965695482D+00 - xs( 32) = 0.2266940230480188D+00 - xs( 33) = 0.2372033409977811D+00 - xs( 34) = 0.2478535671993226D+00 - xs( 35) = 0.2586570140419712D+00 - xs( 36) = 0.2696628036531500D+00 - xs( 37) = 0.2807986269177187D+00 - xs( 38) = 0.2922186018701398D+00 - ws( 1) = 0.6244378574689864D-03 - ws( 2) = 0.1438185805856108D-02 - ws( 3) = 0.2218795310863202D-02 - ws( 4) = 0.2951742339142809D-02 - ws( 5) = 0.3629422845590897D-02 - ws( 6) = 0.4249402125453890D-02 - ws( 7) = 0.4812848262398813D-02 - ws( 8) = 0.5323029763218086D-02 - ws( 9) = 0.5784210204983823D-02 - ws( 10) = 0.6200977577456742D-02 - ws( 11) = 0.6577888640685055D-02 - ws( 12) = 0.6919293417638204D-02 - ws( 13) = 0.7229249689010005D-02 - ws( 14) = 0.7511482352364882D-02 - ws( 15) = 0.7769368721165446D-02 - ws( 16) = 0.8005941625171037D-02 - ws( 17) = 0.8223905384304326D-02 - ws( 18) = 0.8425660550101490D-02 - ws( 19) = 0.8613333846088792D-02 - ws( 20) = 0.8788810578100841D-02 - ws( 21) = 0.8953767356136165D-02 - ws( 22) = 0.9109704189094119D-02 - ws( 23) = 0.9257975725637805D-02 - ws( 24) = 0.9399820786872340D-02 - ws( 25) = 0.9536391894791331D-02 - ws( 26) = 0.9668786695102436D-02 - ws( 27) = 0.9798073071115059D-02 - ws( 28) = 0.9925372032299347D-02 - ws( 29) = 0.1005176462316643D-01 - ws( 30) = 0.1017866306709735D-01 - ws( 31) = 0.1030763718071069D-01 - ws( 32) = 0.1044075683684189D-01 - ws( 33) = 0.1058154192323397D-01 - ws( 34) = 0.1072457844931747D-01 - ws( 35) = 0.1088244512852231D-01 - ws( 36) = 0.1100148096719364D-01 - ws( 37) = 0.1187263061620583D-01 - ws( 38) = 0.1351882852434669D-01 - endif - - - if( iquad .eq. 53 ) then - idomain = 53 - rk0r = 0.2000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 36 - err = 0.2834638286851688D-13 - ierq = 0 - xs( 1) = 0.2120229186424565D-03 - xs( 2) = 0.1115041291001213D-02 - xs( 3) = 0.2730694999814139D-02 - xs( 4) = 0.5042849421049474D-02 - xs( 5) = 0.8026423899605962D-02 - xs( 6) = 0.1164825204772519D-01 - xs( 7) = 0.1586891217965855D-01 - xs( 8) = 0.2064517117958331D-01 - xs( 9) = 0.2593241872064627D-01 - xs( 10) = 0.3168668630118722D-01 - xs( 11) = 0.3786610019223897D-01 - xs( 12) = 0.4443178862867601D-01 - xs( 13) = 0.5134834455382711D-01 - xs( 14) = 0.5858396519595260D-01 - xs( 15) = 0.6611037821183686D-01 - xs( 16) = 0.7390264093159558D-01 - xs( 17) = 0.8193887509501484D-01 - xs( 18) = 0.9019997910408453D-01 - xs( 19) = 0.9866934422314748D-01 - xs( 20) = 0.1073325903599698D+00 - xs( 21) = 0.1161773301615948D+00 - xs( 22) = 0.1251929647035405D+00 - xs( 23) = 0.1343705138332842D+00 - xs( 24) = 0.1437024813223639D+00 - xs( 25) = 0.1531827549131267D+00 - xs( 26) = 0.1628065383831785D+00 - xs( 27) = 0.1725703547531319D+00 - xs( 28) = 0.1824719979531834D+00 - xs( 29) = 0.1925108940495011D+00 - xs( 30) = 0.2026875210051008D+00 - xs( 31) = 0.2130049439482880D+00 - xs( 32) = 0.2234659854823823D+00 - xs( 33) = 0.2340855415774003D+00 - xs( 34) = 0.2448906986143289D+00 - xs( 35) = 0.2557960641169514D+00 - xs( 36) = 0.2670550184670855D+00 - ws( 1) = 0.5438845579510379D-03 - ws( 2) = 0.1261249744050237D-02 - ws( 3) = 0.1967354245562077D-02 - ws( 4) = 0.2652762810445406D-02 - ws( 5) = 0.3308826427921457D-02 - ws( 6) = 0.3928217245432539D-02 - ws( 7) = 0.4505855964856589D-02 - ws( 8) = 0.5039193011314505D-02 - ws( 9) = 0.5527949857556003D-02 - ws( 10) = 0.5973591493860325D-02 - ws( 11) = 0.6378750248871991D-02 - ws( 12) = 0.6746723387058611D-02 - ws( 13) = 0.7081089438343255D-02 - ws( 14) = 0.7385443281549830D-02 - ws( 15) = 0.7663230156150885D-02 - ws( 16) = 0.7917653763874367D-02 - ws( 17) = 0.8151635746579171D-02 - ws( 18) = 0.8367808577374541D-02 - ws( 19) = 0.8568528968203528D-02 - ws( 20) = 0.8755902128797224D-02 - ws( 21) = 0.8931813593499368D-02 - ws( 22) = 0.9097961527435092D-02 - ws( 23) = 0.9255888441367873D-02 - ws( 24) = 0.9407025009134269D-02 - ws( 25) = 0.9552706570823301D-02 - ws( 26) = 0.9694282548408246D-02 - ws( 27) = 0.9833027126552769D-02 - ws( 28) = 0.9970216570302415D-02 - ws( 29) = 0.1010832375941083D-01 - ws( 30) = 0.1024838075909366D-01 - ws( 31) = 0.1039039963974375D-01 - ws( 32) = 0.1053915322149090D-01 - ws( 33) = 0.1071001496913505D-01 - ws( 34) = 0.1092034756576619D-01 - ws( 35) = 0.1115028208567004D-01 - ws( 36) = 0.1209362862651647D-01 - endif - - - if( iquad .eq. 54 ) then - idomain = 54 - rk0r = 0.2000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 34 - err = 0.2882418091329787D-13 - ierq = 0 - xs( 1) = 0.2013161302273562D-03 - xs( 2) = 0.1057824859812714D-02 - xs( 3) = 0.2587144497068583D-02 - xs( 4) = 0.4770572691257563D-02 - xs( 5) = 0.7582375074277764D-02 - xs( 6) = 0.1099163485951673D-01 - xs( 7) = 0.1496395578299187D-01 - xs( 8) = 0.1946306347388281D-01 - xs( 9) = 0.2445219700783299D-01 - xs( 10) = 0.2989522738283337D-01 - xs( 11) = 0.3575748887614128D-01 - xs( 12) = 0.4200634473507895D-01 - xs( 13) = 0.4861152847609362D-01 - xs( 14) = 0.5554530907087258D-01 - xs( 15) = 0.6278252686749219D-01 - xs( 16) = 0.7030054104170436D-01 - xs( 17) = 0.7807912146056645D-01 - xs( 18) = 0.8610031045860700D-01 - xs( 19) = 0.9434827361569065D-01 - xs( 20) = 0.1028091521711029D+00 - xs( 21) = 0.1114709273039532D+00 - xs( 22) = 0.1203233062509513D+00 - xs( 23) = 0.1293576202994810D+00 - xs( 24) = 0.1385667899648878D+00 - xs( 25) = 0.1479453189260219D+00 - xs( 26) = 0.1574891702795274D+00 - xs( 27) = 0.1671962539209736D+00 - xs( 28) = 0.1770664757053989D+00 - xs( 29) = 0.1871004055457015D+00 - xs( 30) = 0.1973043911178364D+00 - xs( 31) = 0.2077039665669270D+00 - xs( 32) = 0.2183019458401831D+00 - xs( 33) = 0.2291471570050451D+00 - xs( 34) = 0.2398381634962263D+00 - ws( 1) = 0.5163095183721893D-03 - ws( 2) = 0.1195328917500440D-02 - ws( 3) = 0.1860145208666036D-02 - ws( 4) = 0.2502393526947750D-02 - ws( 5) = 0.3116029788608703D-02 - ws( 6) = 0.3696730101959316D-02 - ws( 7) = 0.4241842674709978D-02 - ws( 8) = 0.4750227217986453D-02 - ws( 9) = 0.5222004551233532D-02 - ws( 10) = 0.5658269253157377D-02 - ws( 11) = 0.6060808704538683D-02 - ws( 12) = 0.6431855962139075D-02 - ws( 13) = 0.6773889183226329D-02 - ws( 14) = 0.7089479698929354D-02 - ws( 15) = 0.7381184319875583D-02 - ws( 16) = 0.7651474699380273D-02 - ws( 17) = 0.7902695671663840D-02 - ws( 18) = 0.8137045847487355D-02 - ws( 19) = 0.8356572832942361D-02 - ws( 20) = 0.8563183331656387D-02 - ws( 21) = 0.8758652551245132D-02 - ws( 22) = 0.8944661211845372D-02 - ws( 23) = 0.9122782508461540D-02 - ws( 24) = 0.9294633094715532D-02 - ws( 25) = 0.9461818307334315D-02 - ws( 26) = 0.9625712965223630D-02 - ws( 27) = 0.9788891502417334D-02 - ws( 28) = 0.9950946589832822D-02 - ws( 29) = 0.1011830614974120D-01 - ws( 30) = 0.1029605560180281D-01 - ws( 31) = 0.1053804900080750D-01 - ws( 32) = 0.1071677055531654D-01 - ws( 33) = 0.1135979934099521D-01 - ws( 34) = 0.1167371887553592D-01 - endif - - - if( iquad .eq. 55 ) then - idomain = 55 - rk0r = 0.2000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 32 - err = 0.2660721733780027D-13 - ierq = 0 - xs( 1) = 0.1761832675784251D-03 - xs( 2) = 0.9265091878314738D-03 - xs( 3) = 0.2269195421205577D-02 - xs( 4) = 0.4192563930739914D-02 - xs( 5) = 0.6680135490974098D-02 - xs( 6) = 0.9711621916577453D-02 - xs( 7) = 0.1326380243792774D-01 - xs( 8) = 0.1731140575537434D-01 - xs( 9) = 0.2182794952508092D-01 - xs( 10) = 0.2678649317489080D-01 - xs( 11) = 0.3216027668955990D-01 - xs( 12) = 0.3792323445063880D-01 - xs( 13) = 0.4405038643669375D-01 - xs( 14) = 0.5051811785022483D-01 - xs( 15) = 0.5730436421243234D-01 - xs( 16) = 0.6438871897296836D-01 - xs( 17) = 0.7175248385275745D-01 - xs( 18) = 0.7937867505792880D-01 - xs( 19) = 0.8725200684381788D-01 - xs( 20) = 0.9535885754319809D-01 - xs( 21) = 0.1036872248685570D+00 - xs( 22) = 0.1122267027617530D+00 - xs( 23) = 0.1209684493314136D+00 - xs( 24) = 0.1299053229178098D+00 - xs( 25) = 0.1390317108060111D+00 - xs( 26) = 0.1483441332045227D+00 - xs( 27) = 0.1578389832045204D+00 - xs( 28) = 0.1675178715769495D+00 - xs( 29) = 0.1773693252055265D+00 - xs( 30) = 0.1874121370436068D+00 - xs( 31) = 0.1978708076446941D+00 - xs( 32) = 0.2077674471326935D+00 - ws( 1) = 0.4519380418711785D-03 - ws( 2) = 0.1047979806034070D-02 - ws( 3) = 0.1635413394227791D-02 - ws( 4) = 0.2208562768149860D-02 - ws( 5) = 0.2763184348696933D-02 - ws( 6) = 0.3295903538425765D-02 - ws( 7) = 0.3804231518581653D-02 - ws( 8) = 0.4286548777911166D-02 - ws( 9) = 0.4742037988194138D-02 - ws( 10) = 0.5170580734871764D-02 - ws( 11) = 0.5572635525017934D-02 - ws( 12) = 0.5949112035213944D-02 - ws( 13) = 0.6301253036626726D-02 - ws( 14) = 0.6630530776667526D-02 - ws( 15) = 0.6938560377732363D-02 - ws( 16) = 0.7227031942881702D-02 - ws( 17) = 0.7497665805403724D-02 - ws( 18) = 0.7752173675306962D-02 - ws( 19) = 0.7992224574626861D-02 - ws( 20) = 0.8219468092583160D-02 - ws( 21) = 0.8435570864800256D-02 - ws( 22) = 0.8641962136767196D-02 - ws( 23) = 0.8840507997766265D-02 - ws( 24) = 0.9032382016175509D-02 - ws( 25) = 0.9219266741623320D-02 - ws( 26) = 0.9406075150033806D-02 - ws( 27) = 0.9592027349044716D-02 - ws( 28) = 0.9777260369119620D-02 - ws( 29) = 0.9973396606217759D-02 - ws( 30) = 0.1006316627821115D-01 - ws( 31) = 0.1071437633442650D-01 - ws( 32) = 0.1184576674367865D-01 - endif - - - if( iquad .eq. 56 ) then - idomain = 56 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 43 - err = 0.5221627162359459D-13 - ierq = 0 - xs( 1) = 0.9555600932407715D-04 - xs( 2) = 0.5100551191068430D-03 - xs( 3) = 0.1281612223865239D-02 - xs( 4) = 0.2450460364972789D-02 - xs( 5) = 0.4064773600144756D-02 - xs( 6) = 0.6170831383643906D-02 - xs( 7) = 0.8803401147001576D-02 - xs( 8) = 0.1197978429611593D-01 - xs( 9) = 0.1569900132918404D-01 - xs( 10) = 0.1994500281857845D-01 - xs( 11) = 0.2469155457287586D-01 - xs( 12) = 0.2990685442464448D-01 - xs( 13) = 0.3555699252150706D-01 - xs( 14) = 0.4160818535032772D-01 - xs( 15) = 0.4802806816980569D-01 - xs( 16) = 0.5478637230688286D-01 - xs( 17) = 0.6185523425969049D-01 - xs( 18) = 0.6920929205048737D-01 - xs( 19) = 0.7682565828653659D-01 - xs( 20) = 0.8468382081419717D-01 - xs( 21) = 0.9276550170142557D-01 - xs( 22) = 0.1010544948750487D+00 - xs( 23) = 0.1095364967128769D+00 - xs( 24) = 0.1181989397607879D+00 - xs( 25) = 0.1270308366077208D+00 - xs( 26) = 0.1360226385458899D+00 - xs( 27) = 0.1451661119903919D+00 - xs( 28) = 0.1544542348217222D+00 - xs( 29) = 0.1638811127233444D+00 - xs( 30) = 0.1734419213370967D+00 - xs( 31) = 0.1831328670470426D+00 - xs( 32) = 0.1929511900059679D+00 - xs( 33) = 0.2028951778164441D+00 - xs( 34) = 0.2129642376656585D+00 - xs( 35) = 0.2231591960198726D+00 - xs( 36) = 0.2334819133399038D+00 - xs( 37) = 0.2439375522045812D+00 - xs( 38) = 0.2545301585810609D+00 - xs( 39) = 0.2652753200908032D+00 - xs( 40) = 0.2761650501463701D+00 - xs( 41) = 0.2872593434349993D+00 - xs( 42) = 0.2986851064858090D+00 - xs( 43) = 0.3104552909148069D+00 - ws( 1) = 0.2459866621412135D-03 - ws( 2) = 0.5873925863339589D-03 - ws( 3) = 0.9625403987077679D-03 - ws( 4) = 0.1383357613839103D-02 - ws( 5) = 0.1853151610802473D-02 - ws( 6) = 0.2364861570612897D-02 - ws( 7) = 0.2903171738405087D-02 - ws( 8) = 0.3449371435532993D-02 - ws( 9) = 0.3986301454294862D-02 - ws( 10) = 0.4501250251382700D-02 - ws( 11) = 0.4986495268435333D-02 - ws( 12) = 0.5438416360075498D-02 - ws( 13) = 0.5856208525388704D-02 - ws( 14) = 0.6240772307845250D-02 - ws( 15) = 0.6593943758199207D-02 - ws( 16) = 0.6918019194623965D-02 - ws( 17) = 0.7215478277662340D-02 - ws( 18) = 0.7488824463830950D-02 - ws( 19) = 0.7740491713191640D-02 - ws( 20) = 0.7972789759759605D-02 - ws( 21) = 0.8187873849939548D-02 - ws( 22) = 0.8387731348192613D-02 - ws( 23) = 0.8574180365832433D-02 - ws( 24) = 0.8748876856839281D-02 - ws( 25) = 0.8913327446940237D-02 - ws( 26) = 0.9068905908161678D-02 - ws( 27) = 0.9216871977432012D-02 - ws( 28) = 0.9358391890697707D-02 - ws( 29) = 0.9494561020610134D-02 - ws( 30) = 0.9626427072739028D-02 - ws( 31) = 0.9755007266582988D-02 - ws( 32) = 0.9881348887589658D-02 - ws( 33) = 0.1000653045845065D-01 - ws( 34) = 0.1013167264547712D-01 - ws( 35) = 0.1025843772173106D-01 - ws( 36) = 0.1038708041265795D-01 - ws( 37) = 0.1052299526006125D-01 - ws( 38) = 0.1066575163394485D-01 - ws( 39) = 0.1084126641589572D-01 - ws( 40) = 0.1099091057252084D-01 - ws( 41) = 0.1115218632704937D-01 - ws( 42) = 0.1242797326139720D-01 - ws( 43) = 0.1454943212091857D-01 - endif - - - if( iquad .eq. 57 ) then - idomain = 57 - rk0r = 0.4000000000010000D+00 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999800000D-01 - n = 43 - err = 0.4580700181315570D-13 - ierq = 0 - xs( 1) = 0.9867637344463389D-04 - xs( 2) = 0.5262429692334849D-03 - xs( 3) = 0.1320227015692815D-02 - xs( 4) = 0.2518885812812678D-02 - xs( 5) = 0.4167510470797277D-02 - xs( 6) = 0.6309016462416540D-02 - xs( 7) = 0.8975040018826012D-02 - xs( 8) = 0.1218060724546127D-01 - xs( 9) = 0.1592354567829130D-01 - xs( 10) = 0.2018754125125635D-01 - xs( 11) = 0.2494670486608021D-01 - xs( 12) = 0.3016989535963913D-01 - xs( 13) = 0.3582398294320437D-01 - xs( 14) = 0.4187597269830438D-01 - xs( 15) = 0.4829423863697311D-01 - xs( 16) = 0.5504916872713375D-01 - xs( 17) = 0.6211345520613838D-01 - xs( 18) = 0.6946218150373970D-01 - xs( 19) = 0.7707279418341775D-01 - xs( 20) = 0.8492500976413929D-01 - xs( 21) = 0.9300068530203182D-01 - xs( 22) = 0.1012836706853670D+00 - xs( 23) = 0.1097596546613909D+00 - xs( 24) = 0.1184160129873093D+00 - xs( 25) = 0.1272416646057100D+00 - xs( 26) = 0.1362269399228751D+00 - xs( 27) = 0.1453634639923751D+00 - xs( 28) = 0.1546440566066961D+00 - xs( 29) = 0.1640626508050027D+00 - xs( 30) = 0.1736142319550706D+00 - xs( 31) = 0.1832947979998573D+00 - xs( 32) = 0.1931013447790058D+00 - xs( 33) = 0.2030318947267278D+00 - xs( 34) = 0.2130855401030177D+00 - xs( 35) = 0.2232625343569441D+00 - xs( 36) = 0.2335644530333431D+00 - xs( 37) = 0.2439950875246121D+00 - xs( 38) = 0.2545591965810858D+00 - xs( 39) = 0.2652625284870297D+00 - xs( 40) = 0.2761332501804760D+00 - xs( 41) = 0.2871866081588978D+00 - xs( 42) = 0.2984193975468730D+00 - xs( 43) = 0.3100096125607928D+00 - ws( 1) = 0.2539661835662306D-03 - ws( 2) = 0.6053857654039696D-03 - ws( 3) = 0.9890713177939036D-03 - ws( 4) = 0.1415960264526603D-02 - ws( 5) = 0.1888598134264909D-02 - ws( 6) = 0.2399778363829073D-02 - ws( 7) = 0.2934779660036838D-02 - ws( 8) = 0.3475936031743225D-02 - ws( 9) = 0.4007141343418577D-02 - ws( 10) = 0.4516461090993779D-02 - ws( 11) = 0.4996621545713339D-02 - ws( 12) = 0.5444203126053776D-02 - ws( 13) = 0.5858453075397211D-02 - ws( 14) = 0.6240245246369428D-02 - ws( 15) = 0.6591346803859459D-02 - ws( 16) = 0.6913960834168069D-02 - ws( 17) = 0.7210459941574429D-02 - ws( 18) = 0.7483235365483484D-02 - ws( 19) = 0.7734611611574492D-02 - ws( 20) = 0.7966798215615781D-02 - ws( 21) = 0.8181863760963312D-02 - ws( 22) = 0.8381724341804528D-02 - ws( 23) = 0.8568141976638429D-02 - ws( 24) = 0.8742730032651068D-02 - ws( 25) = 0.8906963559786403D-02 - ws( 26) = 0.9062192926932599D-02 - ws( 27) = 0.9209659932224170D-02 - ws( 28) = 0.9350515244448725D-02 - ws( 29) = 0.9485837990506760D-02 - ws( 30) = 0.9616657641990392D-02 - ws( 31) = 0.9743972642986687D-02 - ws( 32) = 0.9868796322331123D-02 - ws( 33) = 0.9992146869506001D-02 - ws( 34) = 0.1011517666523622D-01 - ws( 35) = 0.1023919765946832D-01 - ws( 36) = 0.1036517359123026D-01 - ws( 37) = 0.1049675049710701D-01 - ws( 38) = 0.1063222245664457D-01 - ws( 39) = 0.1077939407503795D-01 - ws( 40) = 0.1092825211657306D-01 - ws( 41) = 0.1118640790094922D-01 - ws( 42) = 0.1170979824620816D-01 - ws( 43) = 0.1342144693125815D-01 - endif - - - if( iquad .eq. 58 ) then - idomain = 58 - rk0r = 0.4000000000010000D+00 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5999999999800001D-01 - n = 43 - err = 0.2303800660110217D-12 - ierq = 4 - xs( 1) = 0.1080201736963152D-03 - xs( 2) = 0.5757421906678173D-03 - xs( 3) = 0.1442638409074901D-02 - xs( 4) = 0.2746600126219287D-02 - xs( 5) = 0.4529741019928502D-02 - xs( 6) = 0.6828049835440542D-02 - xs( 7) = 0.9663306887344214D-02 - xs( 8) = 0.1303997558221259D-01 - xs( 9) = 0.1694687311879774D-01 - xs( 10) = 0.2136144656109394D-01 - xs( 11) = 0.2625440513564539D-01 - xs( 12) = 0.3159344375287625D-01 - xs( 13) = 0.3734574960980793D-01 - xs( 14) = 0.4347948907378852D-01 - xs( 15) = 0.4996460149770875D-01 - xs( 16) = 0.5677317655780834D-01 - xs( 17) = 0.6387959786413053D-01 - xs( 18) = 0.7126055695894576D-01 - xs( 19) = 0.7889499232411229D-01 - xs( 20) = 0.8676398258224149D-01 - xs( 21) = 0.9485061194157365D-01 - xs( 22) = 0.1031398211837339D+00 - xs( 23) = 0.1116182547380583D+00 - xs( 24) = 0.1202741119502868D+00 - xs( 25) = 0.1290970083492802D+00 - xs( 26) = 0.1380778505903093D+00 - xs( 27) = 0.1472087273827039D+00 - xs( 28) = 0.1564828174595076D+00 - xs( 29) = 0.1658943155233070D+00 - xs( 30) = 0.1754383756889272D+00 - xs( 31) = 0.1851110782786278D+00 - xs( 32) = 0.1949094072653476D+00 - xs( 33) = 0.2048312721910676D+00 - xs( 34) = 0.2148755585692211D+00 - xs( 35) = 0.2250421657892263D+00 - xs( 36) = 0.2353320239115343D+00 - xs( 37) = 0.2457477009930599D+00 - xs( 38) = 0.2562944369026726D+00 - xs( 39) = 0.2669763453775751D+00 - xs( 40) = 0.2778089462351098D+00 - xs( 41) = 0.2888059230357597D+00 - xs( 42) = 0.2998278554229821D+00 - xs( 43) = 0.3117336433033449D+00 - ws( 1) = 0.2779799368955265D-03 - ws( 2) = 0.6618329350001199D-03 - ws( 3) = 0.1078419544710858D-02 - ws( 4) = 0.1536706809186873D-02 - ws( 5) = 0.2035714933415222D-02 - ws( 6) = 0.2564583578132318D-02 - ws( 7) = 0.3106640482432713D-02 - ws( 8) = 0.3644756068618255D-02 - ws( 9) = 0.4165200040488988D-02 - ws( 10) = 0.4659002472093113D-02 - ws( 11) = 0.5121489342084937D-02 - ws( 12) = 0.5551095152737443D-02 - ws( 13) = 0.5948198395431111D-02 - ws( 14) = 0.6314264561751833D-02 - ws( 15) = 0.6651306407082268D-02 - ws( 16) = 0.6961574201743571D-02 - ws( 17) = 0.7247384748497922D-02 - ws( 18) = 0.7511025008832734D-02 - ws( 19) = 0.7754694432260124D-02 - ws( 20) = 0.7980469294043564D-02 - ws( 21) = 0.8190282123146396D-02 - ws( 22) = 0.8385912924278817D-02 - ws( 23) = 0.8568989725892271D-02 - ws( 24) = 0.8740996042579722D-02 - ws( 25) = 0.8903283029123341D-02 - ws( 26) = 0.9057084506167178D-02 - ws( 27) = 0.9203533472805029D-02 - ws( 28) = 0.9343679956853599D-02 - ws( 29) = 0.9478508844717581D-02 - ws( 30) = 0.9608958020325761D-02 - ws( 31) = 0.9735945535870656D-02 - ws( 32) = 0.9860373573801420D-02 - ws( 33) = 0.9983172874020219D-02 - ws( 34) = 0.1010534380168056D-01 - ws( 35) = 0.1022804964897379D-01 - ws( 36) = 0.1035256957032964D-01 - ws( 37) = 0.1047994146710915D-01 - ws( 38) = 0.1061476469314267D-01 - ws( 39) = 0.1075450062696706D-01 - ws( 40) = 0.1095488816560426D-01 - ws( 41) = 0.1113685514224928D-01 - ws( 42) = 0.1149071427515590D-01 - ws( 43) = 0.1198051813772367D-01 - endif - - - if( iquad .eq. 59 ) then - idomain = 59 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.9999999999800001D-01 - n = 43 - err = 0.1107062182739189D-12 - ierq = 4 - xs( 1) = 0.1168295116248062D-03 - xs( 2) = 0.6220768019964100D-03 - xs( 3) = 0.1555975260115761D-02 - xs( 4) = 0.2954949469769213D-02 - xs( 5) = 0.4858056282823871D-02 - xs( 6) = 0.7296611484069171D-02 - xs( 7) = 0.1028685065962458D-01 - xs( 8) = 0.1382791361065298D-01 - xs( 9) = 0.1790429326864093D-01 - xs( 10) = 0.2249030229536796D-01 - xs( 11) = 0.2755448705350692D-01 - xs( 12) = 0.3306302178494250D-01 - xs( 13) = 0.3898195733499549D-01 - xs( 14) = 0.4527856582278707D-01 - xs( 15) = 0.5192207888223825D-01 - xs( 16) = 0.5888405148360454D-01 - xs( 17) = 0.6613850159994379D-01 - xs( 18) = 0.7366191493433090D-01 - xs( 19) = 0.8143316700426338D-01 - xs( 20) = 0.8943339500348144D-01 - xs( 21) = 0.9764584144992169D-01 - xs( 22) = 0.1060556855953007D+00 - xs( 23) = 0.1146498743586495D+00 - xs( 24) = 0.1234169611846073D+00 - xs( 25) = 0.1323469584402681D+00 - xs( 26) = 0.1414312070025225D+00 - xs( 27) = 0.1506622649991936D+00 - xs( 28) = 0.1600338173721862D+00 - xs( 29) = 0.1695406076910553D+00 - xs( 30) = 0.1791783912080763D+00 - xs( 31) = 0.1889439181437005D+00 - xs( 32) = 0.1988349427435274D+00 - xs( 33) = 0.2088502680456093D+00 - xs( 34) = 0.2189898759132305D+00 - xs( 35) = 0.2292550583700781D+00 - xs( 36) = 0.2396484405598433D+00 - xs( 37) = 0.2501770187410318D+00 - xs( 38) = 0.2608435372372428D+00 - xs( 39) = 0.2716658398641835D+00 - xs( 40) = 0.2826515504286549D+00 - xs( 41) = 0.2939384073107807D+00 - xs( 42) = 0.3051701781671783D+00 - xs( 43) = 0.3181090610039773D+00 - ws( 1) = 0.3005800087083887D-03 - ws( 2) = 0.7142323959143463D-03 - ws( 3) = 0.1159790388869127D-02 - ws( 4) = 0.1644852776275340D-02 - ws( 5) = 0.2166708318840797D-02 - ws( 6) = 0.2713138720835960D-02 - ws( 7) = 0.3267148706014873D-02 - ws( 8) = 0.3812313075813098D-02 - ws( 9) = 0.4336089318876451D-02 - ws( 10) = 0.4830629804852863D-02 - ws( 11) = 0.5292065302336274D-02 - ws( 12) = 0.5719324306383429D-02 - ws( 13) = 0.6113080396658097D-02 - ws( 14) = 0.6475002801624077D-02 - ws( 15) = 0.6807280353489457D-02 - ws( 16) = 0.7112334550454036D-02 - ws( 17) = 0.7392648004977011D-02 - ws( 18) = 0.7650660103222407D-02 - ws( 19) = 0.7888702879086294D-02 - ws( 20) = 0.8108963043387131D-02 - ws( 21) = 0.8313462560804246D-02 - ws( 22) = 0.8504052912713939D-02 - ws( 23) = 0.8682419321792130D-02 - ws( 24) = 0.8850091902813637D-02 - ws( 25) = 0.9008461284032846D-02 - ws( 26) = 0.9158797083758431D-02 - ws( 27) = 0.9302267639074380D-02 - ws( 28) = 0.9439961300569731D-02 - ws( 29) = 0.9572910766646943D-02 - ws( 30) = 0.9702115040880713D-02 - ws( 31) = 0.9828565969210922D-02 - ws( 32) = 0.9953310378385089D-02 - ws( 33) = 0.1007736170355352D-01 - ws( 34) = 0.1020195602106553D-01 - ws( 35) = 0.1032876015937652D-01 - ws( 36) = 0.1045892645803154D-01 - ws( 37) = 0.1059392665210309D-01 - ws( 38) = 0.1074272029399782D-01 - ws( 39) = 0.1089498584187277D-01 - ws( 40) = 0.1108072789635010D-01 - ws( 41) = 0.1170847040151771D-01 - ws( 42) = 0.1108005828414750D-01 - ws( 43) = 0.1548509777100661D-01 - endif - - - if( iquad .eq. 60 ) then - idomain = 60 - rk0r = 0.4000000000010000D+00 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1999999999980000D+00 - n = 43 - err = 0.7675174950077761D-13 - ierq = 0 - xs( 1) = 0.1273057482228404D-03 - xs( 2) = 0.6765636741535432D-03 - xs( 3) = 0.1686662302837115D-02 - xs( 4) = 0.3188797561265456D-02 - xs( 5) = 0.5214612785215338D-02 - xs( 6) = 0.7786731975967483D-02 - xs( 7) = 0.1091276212714667D-01 - xs( 8) = 0.1458451306576075D-01 - xs( 9) = 0.1878113522147930D-01 - xs( 10) = 0.2347365249337355D-01 - xs( 11) = 0.2862903514390875D-01 - xs( 12) = 0.3421312021498312D-01 - xs( 13) = 0.4019242720365083D-01 - xs( 14) = 0.4653516996938949D-01 - xs( 15) = 0.5321176051063067D-01 - xs( 16) = 0.6019501533536773D-01 - xs( 17) = 0.6746019319251335D-01 - xs( 18) = 0.7498493713313781D-01 - xs( 19) = 0.8274916196894797D-01 - xs( 20) = 0.9073491152606040D-01 - xs( 21) = 0.9892620141740187D-01 - xs( 22) = 0.1073088581257609D+00 - xs( 23) = 0.1158703619709776D+00 - xs( 24) = 0.1245996992232258D+00 - xs( 25) = 0.1334872268781053D+00 - xs( 26) = 0.1425245523731065D+00 - xs( 27) = 0.1517044298326701D+00 - xs( 28) = 0.1610206735177429D+00 - xs( 29) = 0.1704680901696422D+00 - xs( 30) = 0.1800424297391464D+00 - xs( 31) = 0.1897403580635513D+00 - xs( 32) = 0.1995594536559256D+00 - xs( 33) = 0.2094982597113300D+00 - xs( 34) = 0.2195563026305340D+00 - xs( 35) = 0.2297341153852513D+00 - xs( 36) = 0.2400340380306827D+00 - xs( 37) = 0.2504600324470858D+00 - xs( 38) = 0.2610148204700440D+00 - xs( 39) = 0.2717110523449623D+00 - xs( 40) = 0.2825766999577762D+00 - xs( 41) = 0.2935217401045206D+00 - xs( 42) = 0.3047665670857185D+00 - xs( 43) = 0.3163743699409212D+00 - ws( 1) = 0.3273850930038540D-03 - ws( 2) = 0.7750034186875131D-03 - ws( 3) = 0.1250543808749710D-02 - ws( 4) = 0.1759170323748153D-02 - ws( 5) = 0.2296335064702747D-02 - ws( 6) = 0.2849180112254674D-02 - ws( 7) = 0.3401455984046133D-02 - ws( 8) = 0.3938490877513311D-02 - ws( 9) = 0.4449854793066068D-02 - ws( 10) = 0.4929626441774660D-02 - ws( 11) = 0.5375415583126673D-02 - ws( 12) = 0.5787158337984449D-02 - ws( 13) = 0.6166150049461535D-02 - ws( 14) = 0.6514401003502501D-02 - ws( 15) = 0.6834249032068644D-02 - ws( 16) = 0.7128138133110008D-02 - ws( 17) = 0.7398493353880054D-02 - ws( 18) = 0.7647649411223540D-02 - ws( 19) = 0.7877810210315379D-02 - ws( 20) = 0.8091027539350653D-02 - ws( 21) = 0.8289192620574416D-02 - ws( 22) = 0.8474036656845379D-02 - ws( 23) = 0.8647137670952702D-02 - ws( 24) = 0.8809931673565146D-02 - ws( 25) = 0.8963726624018876D-02 - ws( 26) = 0.9109718193824716D-02 - ws( 27) = 0.9249006815911183D-02 - ws( 28) = 0.9382615281941479D-02 - ws( 29) = 0.9511508352844505D-02 - ws( 30) = 0.9636614149144020D-02 - ws( 31) = 0.9758841935377422D-02 - ws( 32) = 0.9879121286261661D-02 - ws( 33) = 0.9998341107386918D-02 - ws( 34) = 0.1011783722864373D-01 - ws( 35) = 0.1023824593050288D-01 - ws( 36) = 0.1036137900756156D-01 - ws( 37) = 0.1049054429468997D-01 - ws( 38) = 0.1062555959086846D-01 - ws( 39) = 0.1076502878287070D-01 - ws( 40) = 0.1097901660087447D-01 - ws( 41) = 0.1118494972135686D-01 - ws( 42) = 0.1169240977237623D-01 - ws( 43) = 0.1263364030113322D-01 - endif - - - if( iquad .eq. 61 ) then - idomain = 61 - rk0r = 0.4000000000010000D+00 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5999999999980000D+00 - n = 42 - err = 0.1944783974983279D-12 - ierq = 4 - xs( 1) = 0.1613695200429818D-03 - xs( 2) = 0.8542631670240550D-03 - xs( 3) = 0.2115101155795186D-02 - xs( 4) = 0.3961009912006928D-02 - xs( 5) = 0.6403108388119368D-02 - xs( 6) = 0.9439975682633881D-02 - xs( 7) = 0.1305599815726909D-01 - xs( 8) = 0.1722403103399824D-01 - xs( 9) = 0.2190976660572376D-01 - xs( 10) = 0.2707571310228548D-01 - xs( 11) = 0.3268400912040301D-01 - xs( 12) = 0.3869813924758030D-01 - xs( 13) = 0.4508386755036264D-01 - xs( 14) = 0.5180967782808777D-01 - xs( 15) = 0.5884691894927480D-01 - xs( 16) = 0.6616977775709036D-01 - xs( 17) = 0.7375515326761187D-01 - xs( 18) = 0.8158247742618895D-01 - xs( 19) = 0.8963351119381290D-01 - xs( 20) = 0.9789213466468168D-01 - xs( 21) = 0.1063441433250041D+00 - xs( 22) = 0.1149770580419501D+00 - xs( 23) = 0.1237799532229405D+00 - xs( 24) = 0.1327433054462157D+00 - xs( 25) = 0.1418588634773236D+00 - xs( 26) = 0.1511195399971909D+00 - xs( 27) = 0.1605193245415034D+00 - xs( 28) = 0.1700532200218660D+00 - xs( 29) = 0.1797171964398092D+00 - xs( 30) = 0.1895081809591236D+00 - xs( 31) = 0.1994240489910275D+00 - xs( 32) = 0.2094637061271689D+00 - xs( 33) = 0.2196270625558305D+00 - xs( 34) = 0.2299153847905837D+00 - xs( 35) = 0.2403312919885257D+00 - xs( 36) = 0.2508791285380575D+00 - xs( 37) = 0.2615737872773330D+00 - xs( 38) = 0.2724084869677520D+00 - xs( 39) = 0.2833791224021764D+00 - xs( 40) = 0.2945774747417134D+00 - xs( 41) = 0.3056610007830309D+00 - xs( 42) = 0.3169110891959949D+00 - ws( 1) = 0.4146052113654973D-03 - ws( 2) = 0.9739342577400555D-03 - ws( 3) = 0.1550739452985935D-02 - ws( 4) = 0.2143049549340736D-02 - ws( 5) = 0.2740935600999923D-02 - ws( 6) = 0.3330144952609384D-02 - ws( 7) = 0.3897297831310004D-02 - ws( 8) = 0.4432982108555193D-02 - ws( 9) = 0.4932193909306503D-02 - ws( 10) = 0.5393361106897566D-02 - ws( 11) = 0.5817130171365687D-02 - ws( 12) = 0.6205417218808052D-02 - ws( 13) = 0.6560784544277757D-02 - ws( 14) = 0.6886061441694438D-02 - ws( 15) = 0.7184120807858552D-02 - ws( 16) = 0.7457749697345642D-02 - ws( 17) = 0.7709576756404090D-02 - ws( 18) = 0.7942035247168275D-02 - ws( 19) = 0.8157349050322015D-02 - ws( 20) = 0.8357533648750195D-02 - ws( 21) = 0.8544406682017860D-02 - ws( 22) = 0.8719604342071164D-02 - ws( 23) = 0.8884600947295871D-02 - ws( 24) = 0.9040730095877482D-02 - ws( 25) = 0.9189206269395272D-02 - ws( 26) = 0.9331146178009505D-02 - ws( 27) = 0.9467590753091790D-02 - ws( 28) = 0.9599526979836985D-02 - ws( 29) = 0.9727912662584763D-02 - ws( 30) = 0.9853704514884265D-02 - ws( 31) = 0.9977858615918362D-02 - ws( 32) = 0.1010146109366885D-01 - ws( 33) = 0.1022568427574415D-01 - ws( 34) = 0.1035177743021002D-01 - ws( 35) = 0.1048097397175625D-01 - ws( 36) = 0.1061146100366567D-01 - ws( 37) = 0.1075538144343429D-01 - ws( 38) = 0.1093127698701596D-01 - ws( 39) = 0.1115221484645470D-01 - ws( 40) = 0.1145049898198184D-01 - ws( 41) = 0.1146119771698672D-01 - ws( 42) = 0.1134826353997501D-01 - endif - - - if( iquad .eq. 62 ) then - idomain = 62 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.5707963267928966D+00 - n = 41 - err = 0.1082166677054103D-12 - ierq = 4 - xs( 1) = 0.1910680733812560D-03 - xs( 2) = 0.1007091186271728D-02 - xs( 3) = 0.2474837374367455D-02 - xs( 4) = 0.4588482785014125D-02 - xs( 5) = 0.7331939698333052D-02 - xs( 6) = 0.1067864997136101D-01 - xs( 7) = 0.1459441476088760D-01 - xs( 8) = 0.1904125268587942D-01 - xs( 9) = 0.2398053365145442D-01 - xs( 10) = 0.2937480680289734D-01 - xs( 11) = 0.3518856666613920D-01 - xs( 12) = 0.4138845246248284D-01 - xs( 13) = 0.4794327007942977D-01 - xs( 14) = 0.5482402012544486D-01 - xs( 15) = 0.6200395967328268D-01 - xs( 16) = 0.6945865956486200D-01 - xs( 17) = 0.7716601777369055D-01 - xs( 18) = 0.8510621231679835D-01 - xs( 19) = 0.9326159862333433D-01 - xs( 20) = 0.1016165675051088D+00 - xs( 21) = 0.1101573821775415D+00 - xs( 22) = 0.1188720101275999D+00 - xs( 23) = 0.1277499613458755D+00 - xs( 24) = 0.1367821403948602D+00 - xs( 25) = 0.1459607166454427D+00 - xs( 26) = 0.1552790150875542D+00 - xs( 27) = 0.1647314285853183D+00 - xs( 28) = 0.1743133545945441D+00 - xs( 29) = 0.1840211505616556D+00 - xs( 30) = 0.1938521316707097D+00 - xs( 31) = 0.2038045714799284D+00 - xs( 32) = 0.2138777897506329D+00 - xs( 33) = 0.2240722105412472D+00 - xs( 34) = 0.2343900196322619D+00 - xs( 35) = 0.2448338040913209D+00 - xs( 36) = 0.2554084208475545D+00 - xs( 37) = 0.2661325439264975D+00 - xs( 38) = 0.2769850201003899D+00 - xs( 39) = 0.2880368459087287D+00 - xs( 40) = 0.2991828979121200D+00 - xs( 41) = 0.3104954085725198D+00 - ws( 1) = 0.4904034944723764D-03 - ws( 2) = 0.1142121421978365D-02 - ws( 3) = 0.1792453756766727D-02 - ws( 4) = 0.2432159581554708D-02 - ws( 5) = 0.3050274611236383D-02 - ws( 6) = 0.3637377397809448D-02 - ws( 7) = 0.4187768551738648D-02 - ws( 8) = 0.4699439320465956D-02 - ws( 9) = 0.5172869351005185D-02 - ws( 10) = 0.5609757009094777D-02 - ws( 11) = 0.6012202629558573D-02 - ws( 12) = 0.6382369501980427D-02 - ws( 13) = 0.6722431354012093D-02 - ws( 14) = 0.7034610526065259D-02 - ws( 15) = 0.7321196783269212D-02 - ws( 16) = 0.7584520130028197D-02 - ws( 17) = 0.7826894376455175D-02 - ws( 18) = 0.8050556360417880D-02 - ws( 19) = 0.8257617475941724D-02 - ws( 20) = 0.8450033656248258D-02 - ws( 21) = 0.8629592986169997D-02 - ws( 22) = 0.8797917053167506D-02 - ws( 23) = 0.8956471633703151D-02 - ws( 24) = 0.9106583101295069D-02 - ws( 25) = 0.9249458316098771D-02 - ws( 26) = 0.9386205059642792D-02 - ws( 27) = 0.9517856098171799D-02 - ws( 28) = 0.9645390184250794D-02 - ws( 29) = 0.9769760727633353D-02 - ws( 30) = 0.9891899820275453D-02 - ws( 31) = 0.1001284997404315D-01 - ws( 32) = 0.1013364147529534D-01 - ws( 33) = 0.1025543372426629D-01 - ws( 34) = 0.1037996284146065D-01 - ws( 35) = 0.1051243270639609D-01 - ws( 36) = 0.1063833440084793D-01 - ws( 37) = 0.1080500724314933D-01 - ws( 38) = 0.1099070098280538D-01 - ws( 39) = 0.1115149732427690D-01 - ws( 40) = 0.1159351175407567D-01 - ws( 41) = 0.1335012899462419D-01 - endif - - - if( iquad .eq. 63 ) then - idomain = 63 - rk0r = 0.4000000000010000D+00 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.1570796326792897D+01 - n = 38 - err = 0.3662212837476186D-13 - ierq = 0 - xs( 1) = 0.2098058923301751D-03 - xs( 2) = 0.1105013285295538D-02 - xs( 3) = 0.2712227904940969D-02 - xs( 4) = 0.5021505763965186D-02 - xs( 5) = 0.8012104041243515D-02 - xs( 6) = 0.1165235256428126D-01 - xs( 7) = 0.1590190346927010D-01 - xs( 8) = 0.2071512197901578D-01 - xs( 9) = 0.2604441699479690D-01 - xs( 10) = 0.3184288645211872D-01 - xs( 11) = 0.3806611315709928D-01 - xs( 12) = 0.4467320196686989D-01 - xs( 13) = 0.5162724354975536D-01 - xs( 14) = 0.5889539155883175D-01 - xs( 15) = 0.6644870376819252D-01 - xs( 16) = 0.7426185514347833D-01 - xs( 17) = 0.8231279478806798D-01 - xs( 18) = 0.9058239197460596D-01 - xs( 19) = 0.9905409793566942D-01 - xs( 20) = 0.1077136378510112D+00 - xs( 21) = 0.1165487396988568D+00 - xs( 22) = 0.1255489020556822D+00 - xs( 23) = 0.1347052004550618D+00 - xs( 24) = 0.1440101313980962D+00 - xs( 25) = 0.1534574911385422D+00 - xs( 26) = 0.1630422924806807D+00 - xs( 27) = 0.1727607145995360D+00 - xs( 28) = 0.1826100899562524D+00 - xs( 29) = 0.1925889641382360D+00 - xs( 30) = 0.2026972133912605D+00 - xs( 31) = 0.2129358314423420D+00 - xs( 32) = 0.2233089187093179D+00 - xs( 33) = 0.2338208027992039D+00 - xs( 34) = 0.2444821051574650D+00 - xs( 35) = 0.2553149400393406D+00 - xs( 36) = 0.2662954498040272D+00 - xs( 37) = 0.2776154244545806D+00 - xs( 38) = 0.2889203994208738D+00 - ws( 1) = 0.5383957485505405D-03 - ws( 2) = 0.1252052931848384D-02 - ws( 3) = 0.1960754372794234D-02 - ws( 4) = 0.2654347374392429D-02 - ws( 5) = 0.3321529452278705D-02 - ws( 6) = 0.3952183478367678D-02 - ws( 7) = 0.4539255611478430D-02 - ws( 8) = 0.5079205166103103D-02 - ws( 9) = 0.5571538205284269D-02 - ws( 10) = 0.6017981033954197D-02 - ws( 11) = 0.6421649247494094D-02 - ws( 12) = 0.6786375890073380D-02 - ws( 13) = 0.7116235785978323D-02 - ws( 14) = 0.7415241477216924D-02 - ws( 15) = 0.7687167924548235D-02 - ws( 16) = 0.7935465638293846D-02 - ws( 17) = 0.8163230866927891D-02 - ws( 18) = 0.8373210527781567D-02 - ws( 19) = 0.8567826789891198D-02 - ws( 20) = 0.8749211578754964D-02 - ws( 21) = 0.8919245072362790D-02 - ws( 22) = 0.9079594930304247D-02 - ws( 23) = 0.9231753618786129D-02 - ws( 24) = 0.9377075667757787D-02 - ws( 25) = 0.9516813131377323D-02 - ws( 26) = 0.9652153759934102D-02 - ws( 27) = 0.9784245656161358D-02 - ws( 28) = 0.9914270895428939D-02 - ws( 29) = 0.1004343355785008D-01 - ws( 30) = 0.1017296745301014D-01 - ws( 31) = 0.1030477744294158D-01 - ws( 32) = 0.1044129116485553D-01 - ws( 33) = 0.1057848930010425D-01 - ws( 34) = 0.1073474715238639D-01 - ws( 35) = 0.1095618077746348D-01 - ws( 36) = 0.1107668450790641D-01 - ws( 37) = 0.1200457203745676D-01 - ws( 38) = 0.1340282621487487D-01 - endif - - - if( iquad .eq. 64 ) then - idomain = 64 - rk0r = 0.4000000000010000D+00 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 36 - err = 0.6022987340310982D-13 - ierq = 0 - xs( 1) = 0.2297809525458548D-03 - xs( 2) = 0.1206108722478014D-02 - xs( 3) = 0.2944327690570740D-02 - xs( 4) = 0.5415316036879297D-02 - xs( 5) = 0.8580086277045549D-02 - xs( 6) = 0.1239316141374225D-01 - xs( 7) = 0.1680562723562509D-01 - xs( 8) = 0.2176775596697155D-01 - xs( 9) = 0.2723103506522030D-01 - xs( 10) = 0.3314957139106781D-01 - xs( 11) = 0.3948093955975260D-01 - xs( 12) = 0.4618659015943732D-01 - xs( 13) = 0.5323194121912738D-01 - xs( 14) = 0.6058626170522829D-01 - xs( 15) = 0.6822243246831605D-01 - xs( 16) = 0.7611664631317229D-01 - xs( 17) = 0.8424808869877716D-01 - xs( 18) = 0.9259862515420887D-01 - xs( 19) = 0.1011525106882239D+00 - xs( 20) = 0.1098961291355855D+00 - xs( 21) = 0.1188177658669969D+00 - xs( 22) = 0.1279074149442822D+00 - xs( 23) = 0.1371566204966609D+00 - xs( 24) = 0.1465583521200894D+00 - xs( 25) = 0.1561069081154795D+00 - xs( 26) = 0.1657978582983347D+00 - xs( 27) = 0.1756280240756954D+00 - xs( 28) = 0.1855954378939128D+00 - xs( 29) = 0.1956995269789770D+00 - xs( 30) = 0.2059404348079845D+00 - xs( 31) = 0.2163204223271854D+00 - xs( 32) = 0.2268476346065767D+00 - xs( 33) = 0.2374995917139461D+00 - xs( 34) = 0.2482471020029047D+00 - xs( 35) = 0.2590793702163631D+00 - xs( 36) = 0.2697758224444377D+00 - ws( 1) = 0.5891635594045345D-03 - ws( 2) = 0.1361109358296346D-02 - ws( 3) = 0.2110399907802029D-02 - ws( 4) = 0.2825024512316879D-02 - ws( 5) = 0.3496884912499202D-02 - ws( 6) = 0.4121068857717528D-02 - ws( 7) = 0.4695540959625382D-02 - ws( 8) = 0.5220607862215142D-02 - ws( 9) = 0.5698287629722258D-02 - ws( 10) = 0.6131707623155448D-02 - ws( 11) = 0.6524602549710652D-02 - ws( 12) = 0.6880937132579702D-02 - ws( 13) = 0.7204647277287418D-02 - ws( 14) = 0.7499478932463120D-02 - ws( 15) = 0.7768900110587171D-02 - ws( 16) = 0.8016063729948562D-02 - ws( 17) = 0.8243803484104075D-02 - ws( 18) = 0.8454649622888418D-02 - ws( 19) = 0.8650855868791602D-02 - ws( 20) = 0.8834431618859096D-02 - ws( 21) = 0.9007176767363536D-02 - ws( 22) = 0.9170714678469617D-02 - ws( 23) = 0.9326526923514473D-02 - ws( 24) = 0.9475985063255789D-02 - ws( 25) = 0.9620391689819390D-02 - ws( 26) = 0.9761015289439068D-02 - ws( 27) = 0.9899075210068713D-02 - ws( 28) = 0.1003576489692148D-01 - ws( 29) = 0.1017255672277528D-01 - ws( 30) = 0.1030963290730335D-01 - ws( 31) = 0.1045068371090221D-01 - ws( 32) = 0.1059102733063648D-01 - ws( 33) = 0.1078192656939008D-01 - ws( 34) = 0.1082983508487406D-01 - ws( 35) = 0.1119268650462778D-01 - ws( 36) = 0.1273879896776881D-01 - endif - - - if( iquad .eq. 65 ) then - idomain = 65 - rk0r = 0.4000000000010000D+00 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 34 - err = 0.2601957410678478D-13 - ierq = 0 - xs( 1) = 0.1988779982283804D-03 - xs( 2) = 0.1045089620079349D-02 - xs( 3) = 0.2556324582961753D-02 - xs( 4) = 0.4714582445995811D-02 - xs( 5) = 0.7495049231069082D-02 - xs( 6) = 0.1086785792287199D-01 - xs( 7) = 0.1479970561716238D-01 - xs( 8) = 0.1925538063583619D-01 - xs( 9) = 0.2419909751398277D-01 - xs( 10) = 0.2959557835612770D-01 - xs( 11) = 0.3541086485785291D-01 - xs( 12) = 0.4161287886308947D-01 - xs( 13) = 0.4817176854988479D-01 - xs( 14) = 0.5506008462660514D-01 - xs( 15) = 0.6225283017280674D-01 - xs( 16) = 0.6972742253257611D-01 - xs( 17) = 0.7746359841365012D-01 - xs( 18) = 0.8544328687848397D-01 - xs( 19) = 0.9365046759575614D-01 - xs( 20) = 0.1020710279965113D+00 - xs( 21) = 0.1106926245516219D+00 - xs( 22) = 0.1195045643776255D+00 - xs( 23) = 0.1284977063881008D+00 - xs( 24) = 0.1376643502566366D+00 - xs( 25) = 0.1469982173904993D+00 - xs( 26) = 0.1564944761161653D+00 - xs( 27) = 0.1661494278584004D+00 - xs( 28) = 0.1759612739201581D+00 - xs( 29) = 0.1859288712164948D+00 - xs( 30) = 0.1960543001425565D+00 - xs( 31) = 0.2063354180614901D+00 - xs( 32) = 0.2167997158474585D+00 - xs( 33) = 0.2274830163948177D+00 - xs( 34) = 0.2376915775747566D+00 - ws( 1) = 0.5100652853119467D-03 - ws( 2) = 0.1181043779294199D-02 - ws( 3) = 0.1838379542358030D-02 - ws( 4) = 0.2473973415184880D-02 - ws( 5) = 0.3081955120945212D-02 - ws( 6) = 0.3658086061903038D-02 - ws( 7) = 0.4199718318594702D-02 - ws( 8) = 0.4705649420081020D-02 - ws( 9) = 0.5175891201635024D-02 - ws( 10) = 0.5611401516019685D-02 - ws( 11) = 0.6013819467009732D-02 - ws( 12) = 0.6385230407250656D-02 - ws( 13) = 0.6727973345058090D-02 - ws( 14) = 0.7044493365761984D-02 - ws( 15) = 0.7337235578480965D-02 - ws( 16) = 0.7608574064806878D-02 - ws( 17) = 0.7860768416353211D-02 - ws( 18) = 0.8095940955327612D-02 - ws( 19) = 0.8316070188375636D-02 - ws( 20) = 0.8522996101654679D-02 - ws( 21) = 0.8718423590860539D-02 - ws( 22) = 0.8903936139650192D-02 - ws( 23) = 0.9081069522233204D-02 - ws( 24) = 0.9251209853303853D-02 - ws( 25) = 0.9415547141182935D-02 - ws( 26) = 0.9576168377060885D-02 - ws( 27) = 0.9733992429871847D-02 - ws( 28) = 0.9888178520729592D-02 - ws( 29) = 0.1004480379341843D-01 - ws( 30) = 0.1022226799073613D-01 - ws( 31) = 0.1038071943459208D-01 - ws( 32) = 0.1058436284441742D-01 - ws( 33) = 0.1112688345432908D-01 - ws( 34) = 0.1232862036495662D-01 - endif - - - if( iquad .eq. 66 ) then - idomain = 66 - rk0r = 0.4000000000010000D+00 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9999999999990000D+00 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5999999999980000D+00 - rkdi = 0.3141592653587793D+01 - n = 33 - err = 0.1425258010890731D-13 - ierq = 0 - xs( 1) = 0.1683465943661101D-03 - xs( 2) = 0.8854279021456630D-03 - xs( 3) = 0.2169144369320285D-02 - xs( 4) = 0.4009182872047804D-02 - xs( 5) = 0.6390926218896698D-02 - xs( 6) = 0.9296315472867297D-02 - xs( 7) = 0.1270459455010465D-01 - xs( 8) = 0.1659306326848416D-01 - xs( 9) = 0.2093780069078485D-01 - xs( 10) = 0.2571432162415319D-01 - xs( 11) = 0.3089814215859293D-01 - xs( 12) = 0.3646524345207580D-01 - xs( 13) = 0.4239243372603484D-01 - xs( 14) = 0.4865761614953756D-01 - xs( 15) = 0.5523997489938138D-01 - xs( 16) = 0.6212009362564101D-01 - xs( 17) = 0.6928002030591905D-01 - xs( 18) = 0.7670329238320413D-01 - xs( 19) = 0.8437493511400376D-01 - xs( 20) = 0.9228144238887169D-01 - xs( 21) = 0.1004107489962291D+00 - xs( 22) = 0.1087522038018544D+00 - xs( 23) = 0.1172965603150663D+00 - xs( 24) = 0.1260359087120579D+00 - xs( 25) = 0.1349638712348485D+00 - xs( 26) = 0.1440757278102891D+00 - xs( 27) = 0.1533678264831775D+00 - xs( 28) = 0.1628369878089898D+00 - xs( 29) = 0.1724835094997073D+00 - xs( 30) = 0.1823150382041665D+00 - xs( 31) = 0.1923689692396802D+00 - xs( 32) = 0.2026167046398935D+00 - xs( 33) = 0.2126565633954442D+00 - ws( 1) = 0.4318506779918031D-03 - ws( 2) = 0.1001693581344600D-02 - ws( 3) = 0.1563990195180073D-02 - ws( 4) = 0.2113638384934014D-02 - ws( 5) = 0.2646826065810698D-02 - ws( 6) = 0.3160480432526560D-02 - ws( 7) = 0.3652282210082110D-02 - ws( 8) = 0.4120657400473252D-02 - ws( 9) = 0.4564727113371793D-02 - ws( 10) = 0.4984226359330849D-02 - ws( 11) = 0.5379405574025073D-02 - ws( 12) = 0.5750927312663992D-02 - ws( 13) = 0.6099767404622887D-02 - ws( 14) = 0.6427126240839522D-02 - ws( 15) = 0.6734354263117906D-02 - ws( 16) = 0.7022890951090093D-02 - ws( 17) = 0.7294219363456653D-02 - ws( 18) = 0.7549829742855301D-02 - ws( 19) = 0.7791203694384657D-02 - ws( 20) = 0.8019796361838770D-02 - ws( 21) = 0.8237035308436102D-02 - ws( 22) = 0.8444325340782721D-02 - ws( 23) = 0.8643071835533502D-02 - ws( 24) = 0.8834755958501752D-02 - ws( 25) = 0.9020277578783036D-02 - ws( 26) = 0.9202314270792832D-02 - ws( 27) = 0.9385306556358294D-02 - ws( 28) = 0.9564487398488041D-02 - ws( 29) = 0.9730589041146256D-02 - ws( 30) = 0.9912838278511653D-02 - ws( 31) = 0.1024935294384697D-01 - ws( 32) = 0.1098606620919077D-01 - ws( 33) = 0.1174575349822276D-01 - endif - - - if( iquad .eq. 67 ) then - idomain = 67 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999800000D-01 - n = 44 - err = 0.2385724145786522D-13 - ierq = 0 - xs( 1) = 0.7035135014652124D-04 - xs( 2) = 0.3753284173800354D-03 - xs( 3) = 0.9428382216341278D-03 - xs( 4) = 0.1804460603680953D-02 - xs( 5) = 0.3003024642794595D-02 - xs( 6) = 0.4588244489278678D-02 - xs( 7) = 0.6609894943379081D-02 - xs( 8) = 0.9110049296863548D-02 - xs( 9) = 0.1211693361388621D-01 - xs( 10) = 0.1564233806362245D-01 - xs( 11) = 0.1968264760746196D-01 - xs( 12) = 0.2422207973807888D-01 - xs( 13) = 0.2923652885543074D-01 - xs( 14) = 0.3469701924023692D-01 - xs( 15) = 0.4057238971324804D-01 - xs( 16) = 0.4683119698035077D-01 - xs( 17) = 0.5344297263518889D-01 - xs( 18) = 0.6037899503773068D-01 - xs( 19) = 0.6761271505412565D-01 - xs( 20) = 0.7511994309124477D-01 - xs( 21) = 0.8287887718849891D-01 - xs( 22) = 0.9087003019584643D-01 - xs( 23) = 0.9907609756516381D-01 - xs( 24) = 0.1074817949578877D+00 - xs( 25) = 0.1160736857396155D+00 - xs( 26) = 0.1248400117274391D+00 - xs( 27) = 0.1337705356990935D+00 - xs( 28) = 0.1428564007996535D+00 - xs( 29) = 0.1520900097561263D+00 - xs( 30) = 0.1614649258867758D+00 - xs( 31) = 0.1709757956382241D+00 - xs( 32) = 0.1806182979194106D+00 - xs( 33) = 0.1903891136147247D+00 - xs( 34) = 0.2002859445496754D+00 - xs( 35) = 0.2103075335778077D+00 - xs( 36) = 0.2204537000094098D+00 - xs( 37) = 0.2307257362771879D+00 - xs( 38) = 0.2411260570763481D+00 - xs( 39) = 0.2516602952952447D+00 - xs( 40) = 0.2623327444990068D+00 - xs( 41) = 0.2731665614310220D+00 - xs( 42) = 0.2841591613264475D+00 - xs( 43) = 0.2953117847098352D+00 - xs( 44) = 0.3065159423479853D+00 - ws( 1) = 0.1810760402158735D-03 - ws( 2) = 0.4320412176565293D-03 - ws( 3) = 0.7082664692207453D-03 - ws( 4) = 0.1022189505366160D-02 - ws( 5) = 0.1383341650010541D-02 - ws( 6) = 0.1795530141301857D-02 - ws( 7) = 0.2254890651321566D-02 - ws( 8) = 0.2750165444124439D-02 - ws( 9) = 0.3265547033802672D-02 - ws( 10) = 0.3784601265926489D-02 - ws( 11) = 0.4293321001746719D-02 - ws( 12) = 0.4781467333980941D-02 - ws( 13) = 0.5242556925370783D-02 - ws( 14) = 0.5673198959834805D-02 - ws( 15) = 0.6072280887366734D-02 - ws( 16) = 0.6440243047144581D-02 - ws( 17) = 0.6778514480459068D-02 - ws( 18) = 0.7089102539182293D-02 - ws( 19) = 0.7374305562640251D-02 - ws( 20) = 0.7636518162454753D-02 - ws( 21) = 0.7878104445584323D-02 - ws( 22) = 0.8101320230834323D-02 - ws( 23) = 0.8308270023558380D-02 - ws( 24) = 0.8500888161504374D-02 - ws( 25) = 0.8680936342691450D-02 - ws( 26) = 0.8850011784749366D-02 - ws( 27) = 0.9009562040365009D-02 - ws( 28) = 0.9160903669620983D-02 - ws( 29) = 0.9305242619707606D-02 - ws( 30) = 0.9443698167100056D-02 - ws( 31) = 0.9577322731601485D-02 - ws( 32) = 0.9707130041696276D-02 - ws( 33) = 0.9834117009561849D-02 - ws( 34) = 0.9959310096588316D-02 - ws( 35) = 0.1008388278191035D-01 - ws( 36) = 0.1020883239076429D-01 - ws( 37) = 0.1033593552574900D-01 - ws( 38) = 0.1046652714477028D-01 - ws( 39) = 0.1060297715926542D-01 - ws( 40) = 0.1075391860349783D-01 - ws( 41) = 0.1091869926378518D-01 - ws( 42) = 0.1117003637020716D-01 - ws( 43) = 0.1138942685494898D-01 - ws( 44) = 0.1229380993663851D-01 - endif - - - if( iquad .eq. 68 ) then - idomain = 68 - rk0r = 0.1000000000001000D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999800000D-01 - n = 44 - err = 0.2332141034386504D-13 - ierq = 0 - xs( 1) = 0.7503954664534920D-04 - xs( 2) = 0.4001333995688554D-03 - xs( 3) = 0.1004104416641284D-02 - xs( 4) = 0.1918399248437501D-02 - xs( 5) = 0.3184424426709576D-02 - xs( 6) = 0.4848403312955587D-02 - xs( 7) = 0.6954566722253498D-02 - xs( 8) = 0.9538524704017379D-02 - xs( 9) = 0.1262278485383296D-01 - xs( 10) = 0.1621537070759063D-01 - xs( 11) = 0.2031114491055084D-01 - xs( 12) = 0.2489462827094629D-01 - xs( 13) = 0.2994314235828509D-01 - xs( 14) = 0.3542961105986999D-01 - xs( 15) = 0.4132479423981648D-01 - xs( 16) = 0.4759894634325197D-01 - xs( 17) = 0.5422297858575587D-01 - xs( 18) = 0.6116922646432448D-01 - xs( 19) = 0.6841191750832032D-01 - xs( 20) = 0.7592741716606589D-01 - xs( 21) = 0.8369431463216223D-01 - xs( 22) = 0.9169339803295219D-01 - xs( 23) = 0.9990755844796864D-01 - xs( 24) = 0.1083216534245940D+00 - xs( 25) = 0.1169223526684746D+00 - xs( 26) = 0.1256979817352553D+00 - xs( 27) = 0.1346383741108148D+00 - xs( 28) = 0.1437347381288585D+00 - xs( 29) = 0.1529795425375218D+00 - xs( 30) = 0.1623664229722312D+00 - xs( 31) = 0.1718901116011770D+00 - xs( 32) = 0.1815463900276794D+00 - xs( 33) = 0.1913320763956559D+00 - xs( 34) = 0.2012450195520641D+00 - xs( 35) = 0.2112841933048034D+00 - xs( 36) = 0.2214498176951157D+00 - xs( 37) = 0.2317434312019293D+00 - xs( 38) = 0.2421689609625482D+00 - xs( 39) = 0.2527316477487504D+00 - xs( 40) = 0.2634392935832742D+00 - xs( 41) = 0.2743154741613736D+00 - xs( 42) = 0.2853741094730995D+00 - xs( 43) = 0.2966054971817645D+00 - xs( 44) = 0.3084373638602457D+00 - ws( 1) = 0.1931206215577304D-03 - ws( 2) = 0.4602923322826243D-03 - ws( 3) = 0.7529308538831231D-03 - ws( 4) = 0.1082647926743049D-02 - ws( 5) = 0.1457224554634251D-02 - ws( 6) = 0.1878220747075880D-02 - ws( 7) = 0.2340118155763556D-02 - ws( 8) = 0.2831570912730227D-02 - ws( 9) = 0.3338261305437264D-02 - ws( 10) = 0.3846004202461974D-02 - ws( 11) = 0.4342910452863377D-02 - ws( 12) = 0.4820229397247393D-02 - ws( 13) = 0.5272248895405752D-02 - ws( 14) = 0.5695787717773571D-02 - ws( 15) = 0.6089601933443095D-02 - ws( 16) = 0.6453841580240946D-02 - ws( 17) = 0.6789604542816210D-02 - ws( 18) = 0.7098591849840350D-02 - ws( 19) = 0.7382849832456070D-02 - ws( 20) = 0.7644581522754465D-02 - ws( 21) = 0.7886013103147307D-02 - ws( 22) = 0.8109304540063670D-02 - ws( 23) = 0.8316495156583099D-02 - ws( 24) = 0.8509475711311471D-02 - ws( 25) = 0.8689979517605993D-02 - ws( 26) = 0.8859586423655362D-02 - ws( 27) = 0.9019734966552497D-02 - ws( 28) = 0.9171739449174396D-02 - ws( 29) = 0.9316809651942209D-02 - ws( 30) = 0.9456073956961866D-02 - ws( 31) = 0.9590600834299202D-02 - ws( 32) = 0.9721425626367557D-02 - ws( 33) = 0.9849594574295484D-02 - ws( 34) = 0.9976165471665075D-02 - ws( 35) = 0.1010227369839701D-01 - ws( 36) = 0.1022926436629859D-01 - ws( 37) = 0.1035826083069572D-01 - ws( 38) = 0.1049098914747394D-01 - ws( 39) = 0.1063693049609059D-01 - ws( 40) = 0.1079123028536715D-01 - ws( 41) = 0.1094062307569181D-01 - ws( 42) = 0.1128545442389207D-01 - ws( 43) = 0.1157687750217038D-01 - ws( 44) = 0.1415060347120806D-01 - endif - - - if( iquad .eq. 69 ) then - idomain = 69 - rk0r = 0.1000000000001000D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5999999999800001D-01 - n = 43 - err = 0.1714124049343430D-12 - ierq = 4 - xs( 1) = 0.8289031260279132D-04 - xs( 2) = 0.4421657295884033D-03 - xs( 3) = 0.1110277609872543D-02 - xs( 4) = 0.2122810674106424D-02 - xs( 5) = 0.3525903079734350D-02 - xs( 6) = 0.5369354462819759D-02 - xs( 7) = 0.7697806269697137D-02 - xs( 8) = 0.1054293451435614D-01 - xs( 9) = 0.1391936817432731D-01 - xs( 10) = 0.1782498970054494D-01 - xs( 11) = 0.2224425021124264D-01 - xs( 12) = 0.2715247751105416D-01 - xs( 13) = 0.3251975247388381D-01 - xs( 14) = 0.3831383745768207D-01 - xs( 15) = 0.4450218505798893D-01 - xs( 16) = 0.5105322958841858D-01 - xs( 17) = 0.5793716893302197D-01 - xs( 18) = 0.6512639917437178D-01 - xs( 19) = 0.7259571556824963D-01 - xs( 20) = 0.8032235698797460D-01 - xs( 21) = 0.8828594763851580D-01 - xs( 22) = 0.9646837502953641D-01 - xs( 23) = 0.1048536328367961D+00 - xs( 24) = 0.1134276493047989D+00 - xs( 25) = 0.1221781155286592D+00 - xs( 26) = 0.1310943231019023D+00 - xs( 27) = 0.1401670171183304D+00 - xs( 28) = 0.1493882680271082D+00 - xs( 29) = 0.1587513646476489D+00 - xs( 30) = 0.1682507296351455D+00 - xs( 31) = 0.1778818593186133D+00 - xs( 32) = 0.1876412886566127D+00 - xs( 33) = 0.1975265898452225D+00 - xs( 34) = 0.2075364049408161D+00 - xs( 35) = 0.2176704935506403D+00 - xs( 36) = 0.2279299819499876D+00 - xs( 37) = 0.2383172261735528D+00 - xs( 38) = 0.2488368484221503D+00 - xs( 39) = 0.2594965393640636D+00 - xs( 40) = 0.2703081763193654D+00 - xs( 41) = 0.2812961055764664D+00 - xs( 42) = 0.2924912140421548D+00 - xs( 43) = 0.3037658130139129D+00 - ws( 1) = 0.2133449119659020D-03 - ws( 2) = 0.5088744014106012D-03 - ws( 3) = 0.8333353153120035D-03 - ws( 4) = 0.1199538958520142D-02 - ws( 5) = 0.1615100594262634D-02 - ws( 6) = 0.2079379942092949D-02 - ws( 7) = 0.2582872483220821D-02 - ws( 8) = 0.3109813248930292D-02 - ws( 9) = 0.3642640507593895D-02 - ws( 10) = 0.4165935784751344D-02 - ws( 11) = 0.4668407577905979D-02 - ws( 12) = 0.5143011914927021D-02 - ws( 13) = 0.5586132129676100D-02 - ws( 14) = 0.5996592255793009D-02 - ws( 15) = 0.6374829352417670D-02 - ws( 16) = 0.6722285709708523D-02 - ws( 17) = 0.7040989155120032D-02 - ws( 18) = 0.7333269920943622D-02 - ws( 19) = 0.7601570408320617D-02 - ws( 20) = 0.7848318566407881D-02 - ws( 21) = 0.8075846653816873D-02 - ws( 22) = 0.8286343301755412D-02 - ws( 23) = 0.8481829905692888D-02 - ws( 24) = 0.8664154265129381D-02 - ws( 25) = 0.8834995907455867D-02 - ws( 26) = 0.8995878909085202D-02 - ws( 27) = 0.9148189352216125D-02 - ws( 28) = 0.9293195431342150D-02 - ws( 29) = 0.9432069246132352D-02 - ws( 30) = 0.9565911114423795D-02 - ws( 31) = 0.9695772036877775D-02 - ws( 32) = 0.9822682058686021D-02 - ws( 33) = 0.9947695202084507D-02 - ws( 34) = 0.1007186456961758D-01 - ws( 35) = 0.1019650403418267D-01 - ws( 36) = 0.1032295728521713D-01 - ws( 37) = 0.1045325467256429D-01 - ws( 38) = 0.1058561584918377D-01 - ws( 39) = 0.1072535549697043D-01 - ws( 40) = 0.1090340511616364D-01 - ws( 41) = 0.1112871043684682D-01 - ws( 42) = 0.1153204930785483D-01 - ws( 43) = 0.1207440457076399D-01 - endif - - - if( iquad .eq. 70 ) then - idomain = 70 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.9999999999800001D-01 - n = 43 - err = 0.1200796310339787D-12 - ierq = 4 - xs( 1) = 0.9202339768499927D-04 - xs( 2) = 0.4903976706804127D-03 - xs( 3) = 0.1229080639336117D-02 - xs( 4) = 0.2343224261635410D-02 - xs( 5) = 0.3876704853388333D-02 - xs( 6) = 0.5874251328652861D-02 - xs( 7) = 0.8372567659345341D-02 - xs( 8) = 0.1139385906965350D-01 - xs( 9) = 0.1494394720270377D-01 - xs( 10) = 0.1901428955065761D-01 - xs( 11) = 0.2358569157163979D-01 - xs( 12) = 0.2863203401750735D-01 - xs( 13) = 0.3412333804576616D-01 - xs( 14) = 0.4002805029641764D-01 - xs( 15) = 0.4631464280884338D-01 - xs( 16) = 0.5295268118115623D-01 - xs( 17) = 0.5991350244077479D-01 - xs( 18) = 0.6717060908994876D-01 - xs( 19) = 0.7469985574087518D-01 - xs( 20) = 0.8247948650210207D-01 - xs( 21) = 0.9049007030450613D-01 - xs( 22) = 0.9871437255895442D-01 - xs( 23) = 0.1071371929694809D+00 - xs( 24) = 0.1157451912003264D+00 - xs( 25) = 0.1245267150989622D+00 - xs( 26) = 0.1334716408060090D+00 - xs( 27) = 0.1425712302170109D+00 - xs( 28) = 0.1518180087347423D+00 - xs( 29) = 0.1612056656307781D+00 - xs( 30) = 0.1707289765847837D+00 - xs( 31) = 0.1803837520434503D+00 - xs( 32) = 0.1901668120437579D+00 - xs( 33) = 0.2000759893993992D+00 - xs( 34) = 0.2101101751725074D+00 - xs( 35) = 0.2202694699375600D+00 - xs( 36) = 0.2305552847565810D+00 - xs( 37) = 0.2409700992734765D+00 - xs( 38) = 0.2515200036252771D+00 - xs( 39) = 0.2622095371510016D+00 - xs( 40) = 0.2730492347815734D+00 - xs( 41) = 0.2840803683553034D+00 - xs( 42) = 0.2953389847367081D+00 - xs( 43) = 0.3068248602507418D+00 - ws( 1) = 0.2367980164391902D-03 - ws( 2) = 0.5636886327835587D-03 - ws( 3) = 0.9196105716127059D-03 - ws( 4) = 0.1316126342650533D-02 - ws( 5) = 0.1758446890875259D-02 - ws( 6) = 0.2242877434159641D-02 - ws( 7) = 0.2757485051613367D-02 - ws( 8) = 0.3286028083772268D-02 - ws( 9) = 0.3812658512072426D-02 - ws( 10) = 0.4324763611715270D-02 - ws( 11) = 0.4813635983753150D-02 - ws( 12) = 0.5274014627782475D-02 - ws( 13) = 0.5703308262303340D-02 - ws( 14) = 0.6100844120812824D-02 - ws( 15) = 0.6467257455599795D-02 - ws( 16) = 0.6804035735966197D-02 - ws( 17) = 0.7113187558740577D-02 - ws( 18) = 0.7397000996953669D-02 - ws( 19) = 0.7657867492427333D-02 - ws( 20) = 0.7898157728723952D-02 - ws( 21) = 0.8120140198899143D-02 - ws( 22) = 0.8325933867324987D-02 - ws( 23) = 0.8517486448496441D-02 - ws( 24) = 0.8696570657745224D-02 - ws( 25) = 0.8864792203666288D-02 - ws( 26) = 0.9023604911520091D-02 - ws( 27) = 0.9174329867892838D-02 - ws( 28) = 0.9318177052919662D-02 - ws( 29) = 0.9456266656294241D-02 - ws( 30) = 0.9589657548511200D-02 - ws( 31) = 0.9719365657206099D-02 - ws( 32) = 0.9846393872749690D-02 - ws( 33) = 0.9971788117191455D-02 - ws( 34) = 0.1009659057507608D-01 - ws( 35) = 0.1022217486732549D-01 - ws( 36) = 0.1035037563449929D-01 - ws( 37) = 0.1048119853340750D-01 - ws( 38) = 0.1062326463482108D-01 - ws( 39) = 0.1076090316457045D-01 - ws( 40) = 0.1091551425330283D-01 - ws( 41) = 0.1117249182594876D-01 - ws( 42) = 0.1118879220826734D-01 - ws( 43) = 0.1269001535452168D-01 - endif - - - if( iquad .eq. 71 ) then - idomain = 71 - rk0r = 0.1000000000001000D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1999999999980000D+00 - n = 43 - err = 0.1031629041284096D-12 - ierq = 4 - xs( 1) = 0.9175050210779083D-04 - xs( 2) = 0.4900747669099834D-03 - xs( 3) = 0.1232369187944767D-02 - xs( 4) = 0.2357732216673420D-02 - xs( 5) = 0.3912864795457300D-02 - xs( 6) = 0.5943888360553371D-02 - xs( 7) = 0.8487707118709085D-02 - xs( 8) = 0.1156564101775354D-01 - xs( 9) = 0.1518153448227934D-01 - xs( 10) = 0.1932405244845836D-01 - xs( 11) = 0.2397101729086418D-01 - xs( 12) = 0.2909372454277538D-01 - xs( 13) = 0.3466026250049700D-01 - xs( 14) = 0.4063776634512814D-01 - xs( 15) = 0.4699388188738205D-01 - xs( 16) = 0.5369770188811678D-01 - xs( 17) = 0.6072034188311484D-01 - xs( 18) = 0.6803525635373626D-01 - xs( 19) = 0.7561836501986804D-01 - xs( 20) = 0.8344804444963971D-01 - xs( 21) = 0.9150503037106374D-01 - xs( 22) = 0.9977226696576731D-01 - xs( 23) = 0.1082347305698295D+00 - xs( 24) = 0.1168792472115531D+00 - xs( 25) = 0.1256943167993186D+00 - xs( 26) = 0.1346699518902264D+00 - xs( 27) = 0.1437975353739173D+00 - xs( 28) = 0.1530696995317032D+00 - xs( 29) = 0.1624802276793667D+00 - xs( 30) = 0.1720239784769258D+00 - xs( 31) = 0.1816968370162954D+00 - xs( 32) = 0.1914956894572642D+00 - xs( 33) = 0.2014184160753388D+00 - xs( 34) = 0.2114640070001600D+00 - xs( 35) = 0.2216325247892873D+00 - xs( 36) = 0.2319254858552279D+00 - xs( 37) = 0.2423452491061968D+00 - xs( 38) = 0.2528962515549460D+00 - xs( 39) = 0.2635888503154463D+00 - xs( 40) = 0.2744286519562559D+00 - xs( 41) = 0.2854604466447423D+00 - xs( 42) = 0.2968175650055374D+00 - xs( 43) = 0.3080022539402084D+00 - ws( 1) = 0.2362343363280919D-03 - ws( 2) = 0.5647749806717601D-03 - ws( 3) = 0.9264327109096799D-03 - ws( 4) = 0.1332216464165166D-02 - ws( 5) = 0.1785886974173729D-02 - ws( 6) = 0.2282423326929707D-02 - ws( 7) = 0.2808797902603168D-02 - ws( 8) = 0.3347666278191922D-02 - ws( 9) = 0.3882153897142181D-02 - ws( 10) = 0.4399111662262307D-02 - ws( 11) = 0.4889978720774946D-02 - ws( 12) = 0.5350080392196067D-02 - ws( 13) = 0.5777494301183423D-02 - ws( 14) = 0.6172105795915461D-02 - ws( 15) = 0.6534964710514768D-02 - ws( 16) = 0.6867856104486637D-02 - ws( 17) = 0.7172997657605091D-02 - ws( 18) = 0.7452818151468994D-02 - ws( 19) = 0.7709796989982223D-02 - ws( 20) = 0.7946353734213995D-02 - ws( 21) = 0.8164778455902610D-02 - ws( 22) = 0.8367193860860933D-02 - ws( 23) = 0.8555540635568348D-02 - ws( 24) = 0.8731578663691182D-02 - ws( 25) = 0.8896898324628959D-02 - ws( 26) = 0.9052937711823429D-02 - ws( 27) = 0.9201002961498630D-02 - ws( 28) = 0.9342290355879213D-02 - ws( 29) = 0.9477909644830858D-02 - ws( 30) = 0.9608907256746376D-02 - ws( 31) = 0.9736285584222322D-02 - ws( 32) = 0.9861063496031016D-02 - ws( 33) = 0.9984237298442694D-02 - ws( 34) = 0.1010693708358915D-01 - ws( 35) = 0.1023046578300172D-01 - ws( 36) = 0.1035634173020981D-01 - ws( 37) = 0.1048592762363973D-01 - ws( 38) = 0.1062118653039872D-01 - ws( 39) = 0.1075054397074778D-01 - ws( 40) = 0.1089782638643711D-01 - ws( 41) = 0.1118046859231075D-01 - ws( 42) = 0.1169899027009778D-01 - ws( 43) = 0.1237199453450597D-01 - endif - - - if( iquad .eq. 72 ) then - idomain = 72 - rk0r = 0.1000000000001000D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5999999999980000D+00 - n = 42 - err = 0.1860949924857682D-12 - ierq = 4 - xs( 1) = 0.1323188141511081D-03 - xs( 2) = 0.7021570851916911D-03 - xs( 3) = 0.1746433514052643D-02 - xs( 4) = 0.3293181291847715D-02 - xs( 5) = 0.5372088470342213D-02 - xs( 6) = 0.8005535508110834D-02 - xs( 7) = 0.1120165991533817D-01 - xs( 8) = 0.1495240650269831D-01 - xs( 9) = 0.1923635055240457D-01 - xs( 10) = 0.2402359270203414D-01 - xs( 11) = 0.2928015746375993D-01 - xs( 12) = 0.3497093337091648D-01 - xs( 13) = 0.4106137137082088D-01 - xs( 14) = 0.4751843939684508D-01 - xs( 15) = 0.5431117970635155D-01 - xs( 16) = 0.6141103329934178D-01 - xs( 17) = 0.6879199825636358D-01 - xs( 18) = 0.7643065708403550D-01 - xs( 19) = 0.8430610407330524D-01 - xs( 20) = 0.9239980431672197D-01 - xs( 21) = 0.1006954135325808D+00 - xs( 22) = 0.1091785821596074D+00 - xs( 23) = 0.1178367604505510D+00 - xs( 24) = 0.1266590152270241D+00 - xs( 25) = 0.1356358642978863D+00 - xs( 26) = 0.1447591313122363D+00 - xs( 27) = 0.1540218221106468D+00 - xs( 28) = 0.1634180226971187D+00 - xs( 29) = 0.1729428179563386D+00 - xs( 30) = 0.1825922292328998D+00 - xs( 31) = 0.1923631771022580D+00 - xs( 32) = 0.2022534663633085D+00 - xs( 33) = 0.2122617542568043D+00 - xs( 34) = 0.2223876415279786D+00 - xs( 35) = 0.2326320316313832D+00 - xs( 36) = 0.2429953940780200D+00 - xs( 37) = 0.2534797634676429D+00 - xs( 38) = 0.2640876131044700D+00 - xs( 39) = 0.2748325689303177D+00 - xs( 40) = 0.2857552868937593D+00 - xs( 41) = 0.2967902048417504D+00 - xs( 42) = 0.3074075708460570D+00 - ws( 1) = 0.3401517426692913D-03 - ws( 2) = 0.8029324590084743D-03 - ws( 3) = 0.1290410400628860D-02 - ws( 4) = 0.1808193717898108D-02 - ws( 5) = 0.2353474378820389D-02 - ws( 6) = 0.2914807602056816D-02 - ws( 7) = 0.3476043820487629D-02 - ws( 8) = 0.4021790257647680D-02 - ws( 9) = 0.4541039342832577D-02 - ws( 10) = 0.5027734310282357D-02 - ws( 11) = 0.5479516332169265D-02 - ws( 12) = 0.5896262210231983D-02 - ws( 13) = 0.6279099505698627D-02 - ws( 14) = 0.6629871648486760D-02 - ws( 15) = 0.6950846572252686D-02 - ws( 16) = 0.7244526577783944D-02 - ws( 17) = 0.7513501708461853D-02 - ws( 18) = 0.7760334082477259D-02 - ws( 19) = 0.7987473804111727D-02 - ws( 20) = 0.8197205940265885D-02 - ws( 21) = 0.8391624170393122D-02 - ws( 22) = 0.8572624524142066D-02 - ws( 23) = 0.8741912631645152D-02 - ws( 24) = 0.8901018990084377D-02 - ws( 25) = 0.9051318474622141D-02 - ws( 26) = 0.9194051613532057D-02 - ws( 27) = 0.9330345843366490D-02 - ws( 28) = 0.9461236237037670D-02 - ws( 29) = 0.9587692062297037D-02 - ws( 30) = 0.9710617094877329D-02 - ws( 31) = 0.9830911335825006D-02 - ws( 32) = 0.9949498918105874D-02 - ws( 33) = 0.1006704968307119D-01 - ws( 34) = 0.1018466153136321D-01 - ws( 35) = 0.1030347505609820D-01 - ws( 36) = 0.1042741710138648D-01 - ws( 37) = 0.1054837989229040D-01 - ws( 38) = 0.1065395353160552D-01 - ws( 39) = 0.1073074422988084D-01 - ws( 40) = 0.1117919641571581D-01 - ws( 41) = 0.1111023439889982D-01 - ws( 42) = 0.1050086056596089D-01 - endif - - - if( iquad .eq. 73 ) then - idomain = 73 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.5707963267928966D+00 - n = 41 - err = 0.1333977636105156D-12 - ierq = 4 - xs( 1) = 0.1703449758048595D-03 - xs( 2) = 0.8995627358656108D-03 - xs( 3) = 0.2218906838760210D-02 - xs( 4) = 0.4138024327181496D-02 - xs( 5) = 0.6663417028421507D-02 - xs( 6) = 0.9792968594372807D-02 - xs( 7) = 0.1351224172317127D-01 - xs( 8) = 0.1779439298097151D-01 - xs( 9) = 0.2260330035448519D-01 - xs( 10) = 0.2789800140301602D-01 - xs( 11) = 0.3363663297322087D-01 - xs( 12) = 0.3977905885984855D-01 - xs( 13) = 0.4628823542426372D-01 - xs( 14) = 0.5313071429527030D-01 - xs( 15) = 0.6027666652918551D-01 - xs( 16) = 0.6769967990243077D-01 - xs( 17) = 0.7537646508649173D-01 - xs( 18) = 0.8328653754411133D-01 - xs( 19) = 0.9141190748442832D-01 - xs( 20) = 0.9973679345317293D-01 - xs( 21) = 0.1082473663486982D+00 - xs( 22) = 0.1169315256733671D+00 - xs( 23) = 0.1257787070902673D+00 - xs( 24) = 0.1347797190396133D+00 - xs( 25) = 0.1439266059214373D+00 - xs( 26) = 0.1532125356259398D+00 - xs( 27) = 0.1626317091591125D+00 - xs( 28) = 0.1721792909431758D+00 - xs( 29) = 0.1818513657482478D+00 - xs( 30) = 0.1916449077612590D+00 - xs( 31) = 0.2015577699262500D+00 - xs( 32) = 0.2115887483055684D+00 - xs( 33) = 0.2217376196022224D+00 - xs( 34) = 0.2320052490707535D+00 - xs( 35) = 0.2423940012371519D+00 - xs( 36) = 0.2529082263030374D+00 - xs( 37) = 0.2635531690323243D+00 - xs( 38) = 0.2743381925827382D+00 - xs( 39) = 0.2852636653644459D+00 - xs( 40) = 0.2963229462806696D+00 - xs( 41) = 0.3074073489582914D+00 - ws( 1) = 0.4373989308441708D-03 - ws( 2) = 0.1022661733916769D-02 - ws( 3) = 0.1617702883384704D-02 - ws( 4) = 0.2221715957388348D-02 - ws( 5) = 0.2828783181109747D-02 - ws( 6) = 0.3427913834522240D-02 - ws( 7) = 0.4006101073569066D-02 - ws( 8) = 0.4552102460734301D-02 - ws( 9) = 0.5058817733488345D-02 - ws( 10) = 0.5523563740911255D-02 - ws( 11) = 0.5946988368151831D-02 - ws( 12) = 0.6331682037860162D-02 - ws( 13) = 0.6681096544377167D-02 - ws( 14) = 0.6998893387469452D-02 - ws( 15) = 0.7288614085802223D-02 - ws( 16) = 0.7553536478302670D-02 - ws( 17) = 0.7796625002125917D-02 - ws( 18) = 0.8020526403138302D-02 - ws( 19) = 0.8227587505487509D-02 - ws( 20) = 0.8419883309263271D-02 - ws( 21) = 0.8599248936255240D-02 - ws( 22) = 0.8767311701696503D-02 - ws( 23) = 0.8925521448132809D-02 - ws( 24) = 0.9075178406815352D-02 - ws( 25) = 0.9217458103155716D-02 - ws( 26) = 0.9353435531362409D-02 - ws( 27) = 0.9484105418878879D-02 - ws( 28) = 0.9610407893923914D-02 - ws( 29) = 0.9733233862958447D-02 - ws( 30) = 0.9853506126193816D-02 - ws( 31) = 0.9972061032800522D-02 - ws( 32) = 0.1008990242818580D-01 - ws( 33) = 0.1020804603398475D-01 - ws( 34) = 0.1032697312033639D-01 - ws( 35) = 0.1044948912669746D-01 - ws( 36) = 0.1057845305898758D-01 - ws( 37) = 0.1071014934926202D-01 - ws( 38) = 0.1088514973884861D-01 - ws( 39) = 0.1109101541958741D-01 - ws( 40) = 0.1162432875966141D-01 - ws( 41) = 0.1282933425542815D-01 - endif - - - if( iquad .eq. 74 ) then - idomain = 74 - rk0r = 0.1000000000001000D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.1570796326792897D+01 - n = 41 - err = 0.1705320605013232D-12 - ierq = 4 - xs( 1) = 0.2112610978814273D-03 - xs( 2) = 0.1111264240327141D-02 - xs( 3) = 0.2722365032059464D-02 - xs( 4) = 0.5029502198114388D-02 - xs( 5) = 0.8008237708205650D-02 - xs( 6) = 0.1162496921188046D-01 - xs( 7) = 0.1583855621061253D-01 - xs( 8) = 0.2060311256434592D-01 - xs( 9) = 0.2587110425463193D-01 - xs( 10) = 0.3159600944867298D-01 - xs( 11) = 0.3773417432207724D-01 - xs( 12) = 0.4424584090814698D-01 - xs( 13) = 0.5109551496692721D-01 - xs( 14) = 0.5825189587287947D-01 - xs( 15) = 0.6568756474050638D-01 - xs( 16) = 0.7337857207153083D-01 - xs( 17) = 0.8130401167531483D-01 - xs( 18) = 0.8944562572636866D-01 - xs( 19) = 0.9778745861487054D-01 - xs( 20) = 0.1063155621210601D+00 - xs( 21) = 0.1150177475250719D+00 - xs( 22) = 0.1238833780885057D+00 - xs( 23) = 0.1329031955529001D+00 - xs( 24) = 0.1420691753534024D+00 - xs( 25) = 0.1513744064342209D+00 - xs( 26) = 0.1608129921850243D+00 - xs( 27) = 0.1703799724779441D+00 - xs( 28) = 0.1800712623768809D+00 - xs( 29) = 0.1898836020191473D+00 - xs( 30) = 0.1998145359153573D+00 - xs( 31) = 0.2098624072953156D+00 - xs( 32) = 0.2200262892534048D+00 - xs( 33) = 0.2303060990011624D+00 - xs( 34) = 0.2407028563519143D+00 - xs( 35) = 0.2512179421038709D+00 - xs( 36) = 0.2618486587846075D+00 - xs( 37) = 0.2726073625372766D+00 - xs( 38) = 0.2834705131813329D+00 - xs( 39) = 0.2944382000331881D+00 - xs( 40) = 0.3053746008305142D+00 - xs( 41) = 0.3161478875589973D+00 - ws( 1) = 0.5419573026963261D-03 - ws( 2) = 0.1257288756010419D-02 - ws( 3) = 0.1962400628204606D-02 - ws( 4) = 0.2647800986592732D-02 - ws( 5) = 0.3304041328883407D-02 - ws( 6) = 0.3922516079036370D-02 - ws( 7) = 0.4496956734728677D-02 - ws( 8) = 0.5024188457744271D-02 - ws( 9) = 0.5504010366884806D-02 - ws( 10) = 0.5938507710108971D-02 - ws( 11) = 0.6331190136906205D-02 - ws( 12) = 0.6686228974157167D-02 - ws( 13) = 0.7007907905347627D-02 - ws( 14) = 0.7300291165668771D-02 - ws( 15) = 0.7567062188589046D-02 - ws( 16) = 0.7811474728026775D-02 - ws( 17) = 0.8036367280493199D-02 - ws( 18) = 0.8244206454270686D-02 - ws( 19) = 0.8437138735826102D-02 - ws( 20) = 0.8617040267545931D-02 - ws( 21) = 0.8785560618696741D-02 - ws( 22) = 0.8944159853391443D-02 - ws( 23) = 0.9094139618795486D-02 - ws( 24) = 0.9236669660514476D-02 - ws( 25) = 0.9372810994191256D-02 - ws( 26) = 0.9503535087814723D-02 - ws( 27) = 0.9629741687216012D-02 - ws( 28) = 0.9752287378348063D-02 - ws( 29) = 0.9871989462325906D-02 - ws( 30) = 0.9989599838357992D-02 - ws( 31) = 0.1010595791216378D-01 - ws( 32) = 0.1022178598901262D-01 - ws( 33) = 0.1033794252605640D-01 - ws( 34) = 0.1045530789725367D-01 - ws( 35) = 0.1057706930844021D-01 - ws( 36) = 0.1069867746059051D-01 - ws( 37) = 0.1083817293646623D-01 - ws( 38) = 0.1095419740784310D-01 - ws( 39) = 0.1095514675957340D-01 - ws( 40) = 0.1044374336296661D-01 - ws( 41) = 0.4984915904546114D-02 - endif - - - if( iquad .eq. 75 ) then - idomain = 75 - rk0r = 0.1000000000001000D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 37 - err = 0.5787258821399449D-13 - ierq = 0 - xs( 1) = 0.2180343739179636D-03 - xs( 2) = 0.1145078443522762D-02 - xs( 3) = 0.2798008430370564D-02 - xs( 4) = 0.5152942005789940D-02 - xs( 5) = 0.8177454669442167D-02 - xs( 6) = 0.1183311348937256D-01 - xs( 7) = 0.1607778855960625D-01 - xs( 8) = 0.2086773569117393D-01 - xs( 9) = 0.2615932102054464D-01 - xs( 10) = 0.3191033419221693D-01 - xs( 11) = 0.3808090149210390D-01 - xs( 12) = 0.4463404999731628D-01 - xs( 13) = 0.5153599163276174D-01 - xs( 14) = 0.5875619831783525D-01 - xs( 15) = 0.6626733236712726D-01 - xs( 16) = 0.7404508495671837D-01 - xs( 17) = 0.8206796320645564D-01 - xs( 18) = 0.9031705522957366D-01 - xs( 19) = 0.9877579334066552D-01 - xs( 20) = 0.1074297284461474D+00 - xs( 21) = 0.1162663240940740D+00 - xs( 22) = 0.1252747743776810D+00 - xs( 23) = 0.1344458495859813D+00 - xs( 24) = 0.1437717677282676D+00 - xs( 25) = 0.1532461056126437D+00 - xs( 26) = 0.1628637269379685D+00 - xs( 27) = 0.1726207763601444D+00 - xs( 28) = 0.1825147433524166D+00 - xs( 29) = 0.1925444059757570D+00 - xs( 30) = 0.2027098708912934D+00 - xs( 31) = 0.2130162537802242D+00 - xs( 32) = 0.2234670616922635D+00 - xs( 33) = 0.2340604720800295D+00 - xs( 34) = 0.2448397646782981D+00 - xs( 35) = 0.2558650617340554D+00 - xs( 36) = 0.2676213281615475D+00 - xs( 37) = 0.2801774097585262D+00 - ws( 1) = 0.5591177003340314D-03 - ws( 2) = 0.1293103141163683D-02 - ws( 3) = 0.2008715834648743D-02 - ws( 4) = 0.2695707173762703D-02 - ws( 5) = 0.3346873718478346D-02 - ws( 6) = 0.3957387234680625D-02 - ws( 7) = 0.4524643345576917D-02 - ws( 8) = 0.5047956758351877D-02 - ws( 9) = 0.5528163752666873D-02 - ws( 10) = 0.5967207739316522D-02 - ws( 11) = 0.6367760145461810D-02 - ws( 12) = 0.6732904421211491D-02 - ws( 13) = 0.7065892122425556D-02 - ws( 14) = 0.7369967754184875D-02 - ws( 15) = 0.7648252489795432D-02 - ws( 16) = 0.7903674504959815D-02 - ws( 17) = 0.8138933990172084D-02 - ws( 18) = 0.8356492554803162D-02 - ws( 19) = 0.8558578940352784D-02 - ws( 20) = 0.8747204876429826D-02 - ws( 21) = 0.8924187700019395D-02 - ws( 22) = 0.9091175574972831D-02 - ws( 23) = 0.9249678077270269D-02 - ws( 24) = 0.9401092636046526D-02 - ws( 25) = 0.9546737887835806D-02 - ws( 26) = 0.9687908442248181D-02 - ws( 27) = 0.9825860702668731D-02 - ws( 28) = 0.9961862980123443D-02 - ws( 29) = 0.1009816158066103D-01 - ws( 30) = 0.1023382048790155D-01 - ws( 31) = 0.1037095057611089D-01 - ws( 32) = 0.1053960800410314D-01 - ws( 33) = 0.1073427207241085D-01 - ws( 34) = 0.1083224048597801D-01 - ws( 35) = 0.1088620062669161D-01 - ws( 36) = 0.1142102618136129D-01 - ws( 37) = 0.1690591227530319D-01 - endif - - - if( iquad .eq. 76 ) then - idomain = 76 - rk0r = 0.1000000000001000D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 35 - err = 0.4886694396197746D-13 - ierq = 0 - xs( 1) = 0.1944100029866958D-03 - xs( 2) = 0.1021767469153848D-02 - xs( 3) = 0.2499951850179550D-02 - xs( 4) = 0.4612346107813256D-02 - xs( 5) = 0.7335944474075613D-02 - xs( 6) = 0.1064293329021020D-01 - xs( 7) = 0.1450213485284731D-01 - xs( 8) = 0.1888038545426486D-01 - xs( 9) = 0.2374375881284050D-01 - xs( 10) = 0.2905857741844532D-01 - xs( 11) = 0.3479219262764635D-01 - xs( 12) = 0.4091354350117646D-01 - xs( 13) = 0.4739352210089830D-01 - xs( 14) = 0.5420518088103134D-01 - xs( 15) = 0.6132381869716413D-01 - xs( 16) = 0.6872697883052049D-01 - xs( 17) = 0.7639438708847608D-01 - xs( 18) = 0.8430785281978621D-01 - xs( 19) = 0.9245114966668161D-01 - xs( 20) = 0.1008098893278966D+00 - xs( 21) = 0.1093713962307536D+00 - xs( 22) = 0.1181245974090566D+00 - xs( 23) = 0.1270599135812555D+00 - xs( 24) = 0.1361691855702688D+00 - xs( 25) = 0.1454456031047172D+00 - xs( 26) = 0.1548836569225095D+00 - xs( 27) = 0.1644791174648053D+00 - xs( 28) = 0.1742295199077717D+00 - xs( 29) = 0.1841337963254021D+00 - xs( 30) = 0.1941868254970125D+00 - xs( 31) = 0.2043979925806675D+00 - xs( 32) = 0.2148156027595172D+00 - xs( 33) = 0.2252262191094457D+00 - xs( 34) = 0.2359386117725468D+00 - xs( 35) = 0.2467703099429714D+00 - ws( 1) = 0.4986242495747054D-03 - ws( 2) = 0.1154905304988119D-02 - ws( 3) = 0.1798650512559523D-02 - ws( 4) = 0.2422279606088585D-02 - ws( 5) = 0.3020257259106554D-02 - ws( 6) = 0.3588500889230639D-02 - ws( 7) = 0.4124354424437542D-02 - ws( 8) = 0.4626475501103200D-02 - ws( 9) = 0.5094645324363088D-02 - ws( 10) = 0.5529541200891636D-02 - ws( 11) = 0.5932506391317499D-02 - ws( 12) = 0.6305340668277874D-02 - ws( 13) = 0.6650123930862368D-02 - ws( 14) = 0.6969076869873257D-02 - ws( 15) = 0.7264457046420890D-02 - ws( 16) = 0.7538485901065726D-02 - ws( 17) = 0.7793300995746310D-02 - ws( 18) = 0.8030928193749710D-02 - ws( 19) = 0.8253269092367317D-02 - ws( 20) = 0.8462100493842932D-02 - ws( 21) = 0.8659074899084596D-02 - ws( 22) = 0.8845730501817216D-02 - ws( 23) = 0.9023531280408508D-02 - ws( 24) = 0.9193870281446434D-02 - ws( 25) = 0.9358006387127688D-02 - ws( 26) = 0.9517456313406086D-02 - ws( 27) = 0.9673126341206635D-02 - ws( 28) = 0.9825441159238075D-02 - ws( 29) = 0.9982647466437847D-02 - ws( 30) = 0.1014464132059059D-01 - ws( 31) = 0.1026091693646653D-01 - ws( 32) = 0.1054250990553015D-01 - ws( 33) = 0.1090553290668376D-01 - ws( 34) = 0.1040358986966211D-01 - ws( 35) = 0.1063511932192857D-01 - endif - - - if( iquad .eq. 77 ) then - idomain = 77 - rk0r = 0.1000000000001000D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1570796326793897D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.5707963267928966D+00 - rkdi = 0.3141592653587793D+01 - n = 34 - err = 0.2613335695204576D-13 - ierq = 0 - xs( 1) = 0.1671726552915752D-03 - xs( 2) = 0.8792725071636183D-03 - xs( 3) = 0.2154148045883850D-02 - xs( 4) = 0.3981685934749836D-02 - xs( 5) = 0.6347547388632495D-02 - xs( 6) = 0.9234015113148468D-02 - xs( 7) = 0.1262072063441836D-01 - xs( 8) = 0.1648537832913709D-01 - xs( 9) = 0.2080448959183283D-01 - xs( 10) = 0.2555398169686773D-01 - xs( 11) = 0.3070975844715325D-01 - xs( 12) = 0.3624815259609291D-01 - xs( 13) = 0.4214628015632423D-01 - xs( 14) = 0.4838230395907816D-01 - xs( 15) = 0.5493561810063510D-01 - xs( 16) = 0.6178696676453715D-01 - xs( 17) = 0.6891851080936984D-01 - xs( 18) = 0.7631385534206193D-01 - xs( 19) = 0.8395805072388779D-01 - xs( 20) = 0.9183757447481188D-01 - xs( 21) = 0.9994031003396624D-01 - xs( 22) = 0.1082555110920284D+00 - xs( 23) = 0.1167738087920207D+00 - xs( 24) = 0.1254871524338480D+00 - xs( 25) = 0.1343889025078731D+00 - xs( 26) = 0.1434732220244570D+00 - xs( 27) = 0.1527380481754075D+00 - xs( 28) = 0.1621792512216288D+00 - xs( 29) = 0.1717966235588348D+00 - xs( 30) = 0.1815916906887942D+00 - xs( 31) = 0.1916176893576263D+00 - xs( 32) = 0.2017400249903667D+00 - xs( 33) = 0.2121551171062284D+00 - xs( 34) = 0.2224715018017721D+00 - ws( 1) = 0.4288414063027201D-03 - ws( 2) = 0.9947564664935906D-03 - ws( 3) = 0.1553279065964935D-02 - ws( 4) = 0.2099394926008245D-02 - ws( 5) = 0.2629362968820236D-02 - ws( 6) = 0.3140165394895966D-02 - ws( 7) = 0.3629519558987527D-02 - ws( 8) = 0.4095868698550913D-02 - ws( 9) = 0.4538332506586634D-02 - ws( 10) = 0.4956628124122115D-02 - ws( 11) = 0.5350974956185447D-02 - ws( 12) = 0.5721995016413645D-02 - ws( 13) = 0.6070617596572064D-02 - ws( 14) = 0.6397993635030531D-02 - ws( 15) = 0.6705423789251004D-02 - ws( 16) = 0.6994299444822168D-02 - ws( 17) = 0.7266057156393652D-02 - ws( 18) = 0.7522143820238137D-02 - ws( 19) = 0.7763997465009718D-02 - ws( 20) = 0.7993038317517753D-02 - ws( 21) = 0.8210638735819530D-02 - ws( 22) = 0.8418172691893003D-02 - ws( 23) = 0.8616995279622102D-02 - ws( 24) = 0.8808659362946702D-02 - ws( 25) = 0.8995070945434520D-02 - ws( 26) = 0.9175395387093270D-02 - ws( 27) = 0.9350338448211362D-02 - ws( 28) = 0.9529099068073723D-02 - ws( 29) = 0.9703778833338636D-02 - ws( 30) = 0.9880977361593508D-02 - ws( 31) = 0.1017955064631325D-01 - ws( 32) = 0.1048913474501285D-01 - ws( 33) = 0.1059650265367206D-01 - ws( 34) = 0.1091668861594122D-01 - endif - - - if( iquad .eq. 78 ) then - idomain = 78 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999800000D-01 - n = 45 - err = 0.3862922543876519D-12 - ierq = 4 - xs( 1) = 0.4408738576559978D-04 - xs( 2) = 0.2348907452499243D-03 - xs( 3) = 0.5889373223234024D-03 - xs( 4) = 0.1125459662394996D-02 - xs( 5) = 0.1873475752514458D-02 - xs( 6) = 0.2872728623691747D-02 - xs( 7) = 0.4173761584012700D-02 - xs( 8) = 0.5836119213994967D-02 - xs( 9) = 0.7923580570440319D-02 - xs( 10) = 0.1049602210706852D-01 - xs( 11) = 0.1359926898591849D-01 - xs( 12) = 0.1725669262710104D-01 - xs( 13) = 0.2146700107000624D-01 - xs( 14) = 0.2620911599169232D-01 - xs( 15) = 0.3145020904077198D-01 - xs( 16) = 0.3715250566528473D-01 - xs( 17) = 0.4327744208993892D-01 - xs( 18) = 0.4978783921929269D-01 - xs( 19) = 0.5664898984133571D-01 - xs( 20) = 0.6382917261286113D-01 - xs( 21) = 0.7129983167379697D-01 - xs( 22) = 0.7903554762213953D-01 - xs( 23) = 0.8701388171855913D-01 - xs( 24) = 0.9521515112273622D-01 - xs( 25) = 0.1036221752521445D+00 - xs( 26) = 0.1122200197101725D+00 - xs( 27) = 0.1209957541373933D+00 - xs( 28) = 0.1299382332467112D+00 - xs( 29) = 0.1390379056765175D+00 - xs( 30) = 0.1482866524266012D+00 - xs( 31) = 0.1576776553839418D+00 - xs( 32) = 0.1672052959193570D+00 - xs( 33) = 0.1768650827759072D+00 - xs( 34) = 0.1866536168899438D+00 - xs( 35) = 0.1965685787370301D+00 - xs( 36) = 0.2066087858032289D+00 - xs( 37) = 0.2167742797055908D+00 - xs( 38) = 0.2270664596147181D+00 - xs( 39) = 0.2374882876296742D+00 - xs( 40) = 0.2480449360305399D+00 - xs( 41) = 0.2587437917337095D+00 - xs( 42) = 0.2696008661111501D+00 - xs( 43) = 0.2806539220336705D+00 - xs( 44) = 0.2918304313402028D+00 - xs( 45) = 0.3033801897969226D+00 - ws( 1) = 0.1134370524430668D-03 - ws( 2) = 0.2699734980650150D-03 - ws( 3) = 0.4413023798400194D-03 - ws( 4) = 0.6365618510456813D-03 - ws( 5) = 0.8660903279861348D-03 - ws( 6) = 0.1140866377986374D-02 - ws( 7) = 0.1471201666151130D-02 - ws( 8) = 0.1864281875776850D-02 - ws( 9) = 0.2320798860095939D-02 - ws( 10) = 0.2831874617157476D-02 - ws( 11) = 0.3378554250580803D-02 - ws( 12) = 0.3935984505631375D-02 - ws( 13) = 0.4480973292090551D-02 - ws( 14) = 0.4997669199113289D-02 - ws( 15) = 0.5478154307735459D-02 - ws( 16) = 0.5919977704935041D-02 - ws( 17) = 0.6323681638409197D-02 - ws( 18) = 0.6691320020048151D-02 - ws( 19) = 0.7025691616970021D-02 - ws( 20) = 0.7329915289308373D-02 - ws( 21) = 0.7607168997796105D-02 - ws( 22) = 0.7860526948894778D-02 - ws( 23) = 0.8092865059479941D-02 - ws( 24) = 0.8306814624133518D-02 - ws( 25) = 0.8504748625531820D-02 - ws( 26) = 0.8688788892145119D-02 - ws( 27) = 0.8860825611164433D-02 - ws( 28) = 0.9022543406868668D-02 - ws( 29) = 0.9175450437681755D-02 - ws( 30) = 0.9320908368109462D-02 - ws( 31) = 0.9460162196919891D-02 - ws( 32) = 0.9594371074075547D-02 - ws( 33) = 0.9724639215385668D-02 - ws( 34) = 0.9852043858866432D-02 - ws( 35) = 0.9977676088158471D-02 - ws( 36) = 0.1010271969863089D-01 - ws( 37) = 0.1022854012651601D-01 - ws( 38) = 0.1035671617501512D-01 - ws( 39) = 0.1048963850670227D-01 - ws( 40) = 0.1062799513164512D-01 - ws( 41) = 0.1077324253381084D-01 - ws( 42) = 0.1094414478028006D-01 - ws( 43) = 0.1120342316367113D-01 - ws( 44) = 0.1169396615570387D-01 - ws( 45) = 0.1262067546031810D-01 - endif - - - if( iquad .eq. 79 ) then - idomain = 79 - rk0r = 0.1570796326795897D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999800000D-01 - n = 45 - err = 0.2785799060014574D-12 - ierq = 4 - xs( 1) = 0.4550761674169747D-04 - xs( 2) = 0.2424315768955063D-03 - xs( 3) = 0.6077261675155431D-03 - xs( 4) = 0.1161033443056055D-02 - xs( 5) = 0.1931951043175481D-02 - xs( 6) = 0.2960928019886793D-02 - xs( 7) = 0.4299214875838455D-02 - xs( 8) = 0.6006808831374478D-02 - xs( 9) = 0.8147297168988231D-02 - xs( 10) = 0.1077932212670626D-01 - xs( 11) = 0.1394627126745072D-01 - xs( 12) = 0.1766814395830360D-01 - xs( 13) = 0.2194004043106594D-01 - xs( 14) = 0.2673794652256089D-01 - xs( 15) = 0.3202745329243475D-01 - xs( 16) = 0.3777064972118054D-01 - xs( 17) = 0.4392983653075565D-01 - xs( 18) = 0.5046910997220826D-01 - xs( 19) = 0.5735502031888533D-01 - xs( 20) = 0.6455688769860232D-01 - xs( 21) = 0.7204694257947308D-01 - xs( 22) = 0.7980032931909865D-01 - xs( 23) = 0.8779500078810319D-01 - xs( 24) = 0.9601153937554785D-01 - xs( 25) = 0.1044329388582634D+00 - xs( 26) = 0.1130443743419051D+00 - xs( 27) = 0.1218329788153888D+00 - xs( 28) = 0.1307876375258791D+00 - xs( 29) = 0.1398988062283712D+00 - xs( 30) = 0.1491583561248914D+00 - xs( 31) = 0.1585594463989060D+00 - xs( 32) = 0.1680964254341282D+00 - xs( 33) = 0.1777647604355440D+00 - xs( 34) = 0.1875609988309405D+00 - xs( 35) = 0.1974827623646870D+00 - xs( 36) = 0.2075287839227573D+00 - xs( 37) = 0.2176990268255178D+00 - xs( 38) = 0.2279946855402607D+00 - xs( 39) = 0.2384188788506966D+00 - xs( 40) = 0.2489766250229675D+00 - xs( 41) = 0.2596752724862470D+00 - xs( 42) = 0.2705303057847211D+00 - xs( 43) = 0.2815525924112946D+00 - xs( 44) = 0.2928131930599628D+00 - xs( 45) = 0.3044053395070860D+00 - ws( 1) = 0.1170883963080976D-03 - ws( 2) = 0.2786041918609621D-03 - ws( 3) = 0.4552358808879490D-03 - ws( 4) = 0.6562954730204076D-03 - ws( 5) = 0.8922793426481068D-03 - ws( 6) = 0.1174247650200917D-02 - ws( 7) = 0.1512410414552313D-02 - ws( 8) = 0.1913521124772190D-02 - ws( 9) = 0.2377411080039004D-02 - ws( 10) = 0.2894018473857750D-02 - ws( 11) = 0.3443240775625485D-02 - ws( 12) = 0.3999578499070094D-02 - ws( 13) = 0.4540053560758135D-02 - ws( 14) = 0.5049906579450533D-02 - ws( 15) = 0.5522730140677039D-02 - ws( 16) = 0.5957356189606342D-02 - ws( 17) = 0.6355023728737404D-02 - ws( 18) = 0.6717943211798161D-02 - ws( 19) = 0.7048761881338727D-02 - ws( 20) = 0.7350344628840214D-02 - ws( 21) = 0.7625624370941484D-02 - ws( 22) = 0.7877477654738278D-02 - ws( 23) = 0.8108632715267808D-02 - ws( 24) = 0.8321613966482927D-02 - ws( 25) = 0.8518717932415929D-02 - ws( 26) = 0.8702011970354495D-02 - ws( 27) = 0.8873347543854717D-02 - ws( 28) = 0.9034381759296158D-02 - ws( 29) = 0.9186602971566957D-02 - ws( 30) = 0.9331358357464474D-02 - ws( 31) = 0.9469881807572626D-02 - ws( 32) = 0.9603322514944461D-02 - ws( 33) = 0.9732772586481092D-02 - ws( 34) = 0.9859310793235631D-02 - ws( 35) = 0.9984014672114135D-02 - ws( 36) = 0.1010802119281405D-01 - ws( 37) = 0.1023262529753739D-01 - ws( 38) = 0.1035939956519358D-01 - ws( 39) = 0.1049044392112273D-01 - ws( 40) = 0.1062775901640613D-01 - ws( 41) = 0.1077864997922804D-01 - ws( 42) = 0.1091440069226954D-01 - ws( 43) = 0.1117381769957331D-01 - ws( 44) = 0.1167104005123573D-01 - ws( 45) = 0.1307810314684495D-01 - endif - - - if( iquad .eq. 80 ) then - idomain = 80 - rk0r = 0.1570796326795897D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5999999999800001D-01 - n = 45 - err = 0.9573294951129071D-12 - ierq = 4 - xs( 1) = 0.4793757234801935D-04 - xs( 2) = 0.2554063138938434D-03 - xs( 3) = 0.6403755847502066D-03 - xs( 4) = 0.1223711665082744D-02 - xs( 5) = 0.2036788762458758D-02 - xs( 6) = 0.3122347209424205D-02 - xs( 7) = 0.4534276283156558D-02 - xs( 8) = 0.6335135709198386D-02 - xs( 9) = 0.8590171996994829D-02 - xs( 10) = 0.1135760520708239D-01 - xs( 11) = 0.1467747298184367D-01 - xs( 12) = 0.1856406725018673D-01 - xs( 13) = 0.2300628769955149D-01 - xs( 14) = 0.2797491052203558D-01 - xs( 15) = 0.3343155309961597D-01 - xs( 16) = 0.3933530180759034D-01 - xs( 17) = 0.4564631961355910D-01 - xs( 18) = 0.5232744470536983D-01 - xs( 19) = 0.5934478813572075D-01 - xs( 20) = 0.6666788122189439D-01 - xs( 21) = 0.7426960780706200D-01 - xs( 22) = 0.8212602109739989D-01 - xs( 23) = 0.9021609843012911D-01 - xs( 24) = 0.9852146978526868D-01 - xs( 25) = 0.1070261450973691D+00 - xs( 26) = 0.1157162567051969D+00 - xs( 27) = 0.1245798264326671D+00 - xs( 28) = 0.1336065619786650D+00 - xs( 29) = 0.1427876844371687D+00 - xs( 30) = 0.1521157870830215D+00 - xs( 31) = 0.1615847255091399D+00 - xs( 32) = 0.1711895392419730D+00 - xs( 33) = 0.1809264060647334D+00 - xs( 34) = 0.1907926345556707D+00 - xs( 35) = 0.2007867008063597D+00 - xs( 36) = 0.2109083517136890D+00 - xs( 37) = 0.2211587174850874D+00 - xs( 38) = 0.2315407302704096D+00 - xs( 39) = 0.2420595408379148D+00 - xs( 40) = 0.2527233093755752D+00 - xs( 41) = 0.2635454714127621D+00 - xs( 42) = 0.2745474115441174D+00 - xs( 43) = 0.2857413551740008D+00 - xs( 44) = 0.2972520385013155D+00 - xs( 45) = 0.3101154803734528D+00 - ws( 1) = 0.1233439651885067D-03 - ws( 2) = 0.2935553494535945D-03 - ws( 3) = 0.4798376126025450D-03 - ws( 4) = 0.6920479217748486D-03 - ws( 5) = 0.9412302455469308D-03 - ws( 6) = 0.1238906129965065D-02 - ws( 7) = 0.1595477131974415D-02 - ws( 8) = 0.2017283087127825D-02 - ws( 9) = 0.2502692241785691D-02 - ws( 10) = 0.3038986137838266D-02 - ws( 11) = 0.3603122528914259D-02 - ws( 12) = 0.4168079355707570D-02 - ws( 13) = 0.4711331134438466D-02 - ws( 14) = 0.5219406370871539D-02 - ws( 15) = 0.5687002849725659D-02 - ws( 16) = 0.6113830918607790D-02 - ws( 17) = 0.6502002313320801D-02 - ws( 18) = 0.6854597739758606D-02 - ws( 19) = 0.7175012342255430D-02 - ws( 20) = 0.7466657641798462D-02 - ws( 21) = 0.7732808566998210D-02 - ws( 22) = 0.7976518820504312D-02 - ws( 23) = 0.8200578758243017D-02 - ws( 24) = 0.8407503255637570D-02 - ws( 25) = 0.8599539984931620D-02 - ws( 26) = 0.8778690263282046D-02 - ws( 27) = 0.8946736682553760D-02 - ws( 28) = 0.9105273647528438D-02 - ws( 29) = 0.9255738655711472D-02 - ws( 30) = 0.9399443830527902D-02 - ws( 31) = 0.9537607019608322D-02 - ws( 32) = 0.9671383932169535D-02 - ws( 33) = 0.9801902529271508D-02 - ws( 34) = 0.9930298629691085D-02 - ws( 35) = 0.1005778124855242D-01 - ws( 36) = 0.1018561255374313D-01 - ws( 37) = 0.1031573651764108D-01 - ws( 38) = 0.1044959587587055D-01 - ws( 39) = 0.1058842856650262D-01 - ws( 40) = 0.1073555273060014D-01 - ws( 41) = 0.1090744238008691D-01 - ws( 42) = 0.1108783613513771D-01 - ws( 43) = 0.1126040778461419D-01 - ws( 44) = 0.1176374127436568D-01 - ws( 45) = 0.1922961494438969D-01 - endif - - - if( iquad .eq. 81 ) then - idomain = 81 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.9999999999800001D-01 - n = 44 - err = 0.3095710034110013D-12 - ierq = 4 - xs( 1) = 0.5396535110024125D-04 - xs( 2) = 0.2873489373854112D-03 - xs( 3) = 0.7196891901854182D-03 - xs( 4) = 0.1373143846417096D-02 - xs( 5) = 0.2280877291043903D-02 - xs( 6) = 0.3487691280794512D-02 - xs( 7) = 0.5049213720576840D-02 - xs( 8) = 0.7028282361194737D-02 - xs( 9) = 0.9487386500831436D-02 - xs( 10) = 0.1247780048716654D-01 - xs( 11) = 0.1602913275098118D-01 - xs( 12) = 0.2014467422140836D-01 - xs( 13) = 0.2480490823989658D-01 - xs( 14) = 0.2997598630529798D-01 - xs( 15) = 0.3561798053132682D-01 - xs( 16) = 0.4169023541918519D-01 - xs( 17) = 0.4815400901857420D-01 - xs( 18) = 0.5497353891413473D-01 - xs( 19) = 0.6211638871245284D-01 - xs( 20) = 0.6955348431610983D-01 - xs( 21) = 0.7725899825763113D-01 - xs( 22) = 0.8521014798654966D-01 - xs( 23) = 0.9338694730710026D-01 - xs( 24) = 0.1017719400890705D+00 - xs( 25) = 0.1103499373955124D+00 - xs( 26) = 0.1191077717664258D+00 - xs( 27) = 0.1280340764456598D+00 - xs( 28) = 0.1371190931751744D+00 - xs( 29) = 0.1463545096852616D+00 - xs( 30) = 0.1557333271499499D+00 - xs( 31) = 0.1652497566156990D+00 - xs( 32) = 0.1748991459962638D+00 - xs( 33) = 0.1846779351280445D+00 - xs( 34) = 0.1945836527988113D+00 - xs( 35) = 0.2046149411663389D+00 - xs( 36) = 0.2147716490759954D+00 - xs( 37) = 0.2250550080909778D+00 - xs( 38) = 0.2354676557244317D+00 - xs( 39) = 0.2460144901690010D+00 - xs( 40) = 0.2567014509598625D+00 - xs( 41) = 0.2675477050133347D+00 - xs( 42) = 0.2785637558375036D+00 - xs( 43) = 0.2897888780319657D+00 - xs( 44) = 0.3012071455083875D+00 - ws( 1) = 0.1388339843993064D-03 - ws( 2) = 0.3300278343030780D-03 - ws( 3) = 0.5383222974839373D-03 - ws( 4) = 0.7741021693273316D-03 - ws( 5) = 0.1048841624589553D-02 - ws( 6) = 0.1374114585604304D-02 - ws( 7) = 0.1759529975590161D-02 - ws( 8) = 0.2209212575508446D-02 - ws( 9) = 0.2717730809562803D-02 - ws( 10) = 0.3268116569028001D-02 - ws( 11) = 0.3835028300901553D-02 - ws( 12) = 0.4392645960764493D-02 - ws( 13) = 0.4922036905414109D-02 - ws( 14) = 0.5413376854210439D-02 - ws( 15) = 0.5863794833123829D-02 - ws( 16) = 0.6274242220330806D-02 - ws( 17) = 0.6647339672687241D-02 - ws( 18) = 0.6986313762175736D-02 - ws( 19) = 0.7294542214494516D-02 - ws( 20) = 0.7575347865939112D-02 - ws( 21) = 0.7831887137262180D-02 - ws( 22) = 0.8067085776389139D-02 - ws( 23) = 0.8283607922699880D-02 - ws( 24) = 0.8483850263780299D-02 - ws( 25) = 0.8669953459378037D-02 - ws( 26) = 0.8843824030911761D-02 - ws( 27) = 0.9007161669152271D-02 - ws( 28) = 0.9161488670857230D-02 - ws( 29) = 0.9308179727638718D-02 - ws( 30) = 0.9448491439802599D-02 - ws( 31) = 0.9583592606821472D-02 - ws( 32) = 0.9714593710609933D-02 - ws( 33) = 0.9842577996657758D-02 - ws( 34) = 0.9968640226718341D-02 - ws( 35) = 0.1009390459128793D-01 - ws( 36) = 0.1021972030393957D-01 - ws( 37) = 0.1034787546109966D-01 - ws( 38) = 0.1047951911290339D-01 - ws( 39) = 0.1061645232680383D-01 - ws( 40) = 0.1076043586278833D-01 - ws( 41) = 0.1093802806924186D-01 - ws( 42) = 0.1114206180049929D-01 - ws( 43) = 0.1155074490436592D-01 - ws( 44) = 0.1240468141522873D-01 - endif - - - if( iquad .eq. 82 ) then - idomain = 82 - rk0r = 0.1570796326795897D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1999999999980000D+00 - n = 44 - err = 0.8219706297330760D-12 - ierq = 4 - xs( 1) = 0.6426559010527005D-04 - xs( 2) = 0.3421367519716621D-03 - xs( 3) = 0.8566010371535890D-03 - xs( 4) = 0.1633295091463229D-02 - xs( 5) = 0.2709970543845012D-02 - xs( 6) = 0.4136263547574225D-02 - xs( 7) = 0.5971124399209001D-02 - xs( 8) = 0.8276461774730124D-02 - xs( 9) = 0.1110678653395413D-01 - xs( 10) = 0.1449777123504550D-01 - xs( 11) = 0.1845928524939695D-01 - xs( 12) = 0.2297664741748954D-01 - xs( 13) = 0.2801823472716289D-01 - xs( 14) = 0.3354424399532689D-01 - xs( 15) = 0.3951299763554014D-01 - xs( 16) = 0.4588430772546662D-01 - xs( 17) = 0.5262092129725986D-01 - xs( 18) = 0.5968902632204853D-01 - xs( 19) = 0.6705834137889437D-01 - xs( 20) = 0.7470200627632877D-01 - xs( 21) = 0.8259636624943685D-01 - xs( 22) = 0.9072070162334993D-01 - xs( 23) = 0.9905693826805030D-01 - xs( 24) = 0.1075893628008621D+00 - xs( 25) = 0.1163043573476490D+00 - xs( 26) = 0.1251901619046226D+00 - xs( 27) = 0.1342366678127283D+00 - xs( 28) = 0.1434352431745498D+00 - xs( 29) = 0.1527785898929606D+00 - xs( 30) = 0.1622606314036264D+00 - xs( 31) = 0.1718764307165963D+00 - xs( 32) = 0.1816221409662077D+00 - xs( 33) = 0.1914949875565752D+00 - xs( 34) = 0.2014932968190811D+00 - xs( 35) = 0.2116165335616683D+00 - xs( 36) = 0.2218655498054189D+00 - xs( 37) = 0.2322427429199077D+00 - xs( 38) = 0.2427521524598263D+00 - xs( 39) = 0.2534008736328444D+00 - xs( 40) = 0.2641995016089205D+00 - xs( 41) = 0.2751576617545788D+00 - xs( 42) = 0.2863378243866758D+00 - xs( 43) = 0.2977138931192600D+00 - xs( 44) = 0.3101730130619677D+00 - ws( 1) = 0.1653267933873708D-03 - ws( 2) = 0.3928669415327356D-03 - ws( 3) = 0.6403149019603280D-03 - ws( 4) = 0.9193664165911643D-03 - ws( 5) = 0.1242295892534441D-02 - ws( 6) = 0.1620219606542195D-02 - ws( 7) = 0.2059999693515588D-02 - ws( 8) = 0.2559966309374795D-02 - ws( 9) = 0.3106755765037041D-02 - ws( 10) = 0.3676831920061428D-02 - ws( 11) = 0.4243607455259091D-02 - ws( 12) = 0.4785691289287318D-02 - ws( 13) = 0.5290744172448642D-02 - ws( 14) = 0.5754275129546358D-02 - ws( 15) = 0.6176512501862094D-02 - ws( 16) = 0.6559891563248993D-02 - ws( 17) = 0.6907699189034926D-02 - ws( 18) = 0.7223465971994400D-02 - ws( 19) = 0.7510691156828722D-02 - ws( 20) = 0.7772700765732366D-02 - ws( 21) = 0.8012570783208099D-02 - ws( 22) = 0.8233092390090145D-02 - ws( 23) = 0.8436766440329077D-02 - ws( 24) = 0.8625816946903404D-02 - ws( 25) = 0.8802215592480620D-02 - ws( 26) = 0.8967711651612387D-02 - ws( 27) = 0.9123863897649848D-02 - ws( 28) = 0.9272072404728883D-02 - ws( 29) = 0.9413609841439989D-02 - ws( 30) = 0.9549651701219479D-02 - ws( 31) = 0.9681306324523005D-02 - ws( 32) = 0.9809651999556385D-02 - ws( 33) = 0.9935760238048867D-02 - ws( 34) = 0.1006079199177803D-01 - ws( 35) = 0.1018587792713199D-01 - ws( 36) = 0.1031243164693569D-01 - ws( 37) = 0.1044302359250277D-01 - ws( 38) = 0.1057777567437037D-01 - ws( 39) = 0.1072041911594332D-01 - ws( 40) = 0.1088581439687190D-01 - ws( 41) = 0.1107854751445971D-01 - ws( 42) = 0.1131769625241055D-01 - ws( 43) = 0.1175036551582944D-01 - ws( 44) = 0.1489414246786642D-01 - endif - - - if( iquad .eq. 83 ) then - idomain = 83 - rk0r = 0.1570796326795897D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5999999999980000D+00 - n = 43 - err = 0.1441162669861155D-12 - ierq = 4 - xs( 1) = 0.8457956387503392D-04 - xs( 2) = 0.4494512388320108D-03 - xs( 3) = 0.1121451784366659D-02 - xs( 4) = 0.2127412059303336D-02 - xs( 5) = 0.3505327816208097D-02 - xs( 6) = 0.5302412391469290D-02 - xs( 7) = 0.7570512801797684D-02 - xs( 8) = 0.1035854169158975D-01 - xs( 9) = 0.1370320082125005D-01 - xs( 10) = 0.1762129651848696D-01 - xs( 11) = 0.2210711044915792D-01 - xs( 12) = 0.2713559862891268D-01 - xs( 13) = 0.3266902525394104D-01 - xs( 14) = 0.3866380890038443D-01 - xs( 15) = 0.4507566791291148D-01 - xs( 16) = 0.5186271474292269D-01 - xs( 17) = 0.5898694903215536D-01 - xs( 18) = 0.6641473967894966D-01 - xs( 19) = 0.7411675416775843D-01 - xs( 20) = 0.8206762575525460D-01 - xs( 21) = 0.9024552337402732D-01 - xs( 22) = 0.9863171063757799D-01 - xs( 23) = 0.1072101355309611D+00 - xs( 24) = 0.1159670681142080D+00 - xs( 25) = 0.1248907909917770D+00 - xs( 26) = 0.1339713412589912D+00 - xs( 27) = 0.1432003001390833D+00 - xs( 28) = 0.1525706260205114D+00 - xs( 29) = 0.1620765271681977D+00 - xs( 30) = 0.1717133719655720D+00 - xs( 31) = 0.1814776372204589D+00 - xs( 32) = 0.1913668905572359D+00 - xs( 33) = 0.2013798270766660D+00 - xs( 34) = 0.2115163934942369D+00 - xs( 35) = 0.2217777732048130D+00 - xs( 36) = 0.2321672968912049D+00 - xs( 37) = 0.2426899853138055D+00 - xs( 38) = 0.2533538777732015D+00 - xs( 39) = 0.2641784346681090D+00 - xs( 40) = 0.2751669779229813D+00 - xs( 41) = 0.2863819377023015D+00 - xs( 42) = 0.2978707806491162D+00 - xs( 43) = 0.3102582231315303D+00 - ws( 1) = 0.2174922730639931D-03 - ws( 2) = 0.5149190786290049D-03 - ws( 3) = 0.8335500524873398D-03 - ws( 4) = 0.1184733955294505D-02 - ws( 5) = 0.1579041339802582D-02 - ws( 6) = 0.2023897853258350D-02 - ws( 7) = 0.2520618357126135D-02 - ws( 8) = 0.3061694200070535D-02 - ws( 9) = 0.3630471004383554D-02 - ws( 10) = 0.4204707060936338D-02 - ws( 11) = 0.4762627589633810D-02 - ws( 12) = 0.5287940824817179D-02 - ws( 13) = 0.5771562658803093D-02 - ws( 14) = 0.6210574128071722D-02 - ws( 15) = 0.6606139250738872D-02 - ws( 16) = 0.6961614075205382D-02 - ws( 17) = 0.7281251168278822D-02 - ws( 18) = 0.7569447292589995D-02 - ws( 19) = 0.7830361255341424D-02 - ws( 20) = 0.8067750849550281D-02 - ws( 21) = 0.8284928532451349D-02 - ws( 22) = 0.8484776707020338D-02 - ws( 23) = 0.8669789910706894D-02 - ws( 24) = 0.8842126651730640D-02 - ws( 25) = 0.9003662124395833D-02 - ws( 26) = 0.9156038011762400D-02 - ws( 27) = 0.9300708139821716D-02 - ws( 28) = 0.9438979684292012D-02 - ws( 29) = 0.9572051858633525D-02 - ws( 30) = 0.9701051028891683D-02 - ws( 31) = 0.9827079526437577D-02 - ws( 32) = 0.9951218902751273D-02 - ws( 33) = 0.1007460608831735D-01 - ws( 34) = 0.1019860970066822D-01 - ws( 35) = 0.1032474300793572D-01 - ws( 36) = 0.1045440336548108D-01 - ws( 37) = 0.1059115357312593D-01 - ws( 38) = 0.1072918826460547D-01 - ws( 39) = 0.1090059694484499D-01 - ws( 40) = 0.1112250066927777D-01 - ws( 41) = 0.1143061398294678D-01 - ws( 42) = 0.1146469626262764D-01 - ws( 43) = 0.1675385237070527D-01 - endif - - - if( iquad .eq. 84 ) then - idomain = 84 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.5707963267928966D+00 - n = 41 - err = 0.1731327824796788D-12 - ierq = 4 - xs( 1) = 0.1183686004115670D-03 - xs( 2) = 0.6272879340572736D-03 - xs( 3) = 0.1557383854910407D-02 - xs( 4) = 0.2932681069835320D-02 - xs( 5) = 0.4784756673630094D-02 - xs( 6) = 0.7148733709029694D-02 - xs( 7) = 0.1005715530598723D-01 - xs( 8) = 0.1353288383110062D-01 - xs( 9) = 0.1758324623100700D-01 - xs( 10) = 0.2219771301483911D-01 - xs( 11) = 0.2734981695129340D-01 - xs( 12) = 0.3300198281773362D-01 - xs( 13) = 0.3911107507347804D-01 - xs( 14) = 0.4563301058336575D-01 - xs( 15) = 0.5252581767137453D-01 - xs( 16) = 0.5975126805823439D-01 - xs( 17) = 0.6727549434925342D-01 - xs( 18) = 0.7506899974940709D-01 - xs( 19) = 0.8310635632381509D-01 - xs( 20) = 0.9136577559695382D-01 - xs( 21) = 0.9982865333928086D-01 - xs( 22) = 0.1084791393862344D+00 - xs( 23) = 0.1173037544902736D+00 - xs( 24) = 0.1262910611013782D+00 - xs( 25) = 0.1354313875623624D+00 - xs( 26) = 0.1447166020545370D+00 - xs( 27) = 0.1541399314253403D+00 - xs( 28) = 0.1636958221346226D+00 - xs( 29) = 0.1733798361828709D+00 - xs( 30) = 0.1831885876701811D+00 - xs( 31) = 0.1931197244305631D+00 - xs( 32) = 0.2031718704131081D+00 - xs( 33) = 0.2133447696624625D+00 - xs( 34) = 0.2236394399058313D+00 - xs( 35) = 0.2340583171445897D+00 - xs( 36) = 0.2446039587992680D+00 - xs( 37) = 0.2552844957509096D+00 - xs( 38) = 0.2661111373117576D+00 - xs( 39) = 0.2770603398916088D+00 - xs( 40) = 0.2882939774971835D+00 - xs( 41) = 0.2994159430854632D+00 - ws( 1) = 0.3041858874651831D-03 - ws( 2) = 0.7162468443386970D-03 - ws( 3) = 0.1147970229640989D-02 - ws( 4) = 0.1607954887863448D-02 - ws( 5) = 0.2102154658139068D-02 - ws( 6) = 0.2631347384064513D-02 - ws( 7) = 0.3189410061799970D-02 - ws( 8) = 0.3763308731039207D-02 - ws( 9) = 0.4335625400682248D-02 - ws( 10) = 0.4888810589653293D-02 - ws( 11) = 0.5409038182176850D-02 - ws( 12) = 0.5888026112435392D-02 - ws( 13) = 0.6322760731823160D-02 - ws( 14) = 0.6714088905813803D-02 - ws( 15) = 0.7065144600842500D-02 - ws( 16) = 0.7380112146471128D-02 - ws( 17) = 0.7663429755435426D-02 - ws( 18) = 0.7919350441997932D-02 - ws( 19) = 0.8151738993457523D-02 - ws( 20) = 0.8364006064893225D-02 - ws( 21) = 0.8559114122017167D-02 - ws( 22) = 0.8739616910571497D-02 - ws( 23) = 0.8907711646185559D-02 - ws( 24) = 0.9065293423933952D-02 - ws( 25) = 0.9214007117844166D-02 - ws( 26) = 0.9355295124857518D-02 - ws( 27) = 0.9490440495728579D-02 - ws( 28) = 0.9620604182072532D-02 - ws( 29) = 0.9746860043910345D-02 - ws( 30) = 0.9870232512063688D-02 - ws( 31) = 0.9991777993221368D-02 - ws( 32) = 0.1011257563293692D-01 - ws( 33) = 0.1023362972302900D-01 - ws( 34) = 0.1035625754751427D-01 - ws( 35) = 0.1048271412705024D-01 - ws( 36) = 0.1061481835848440D-01 - ws( 37) = 0.1075507892708929D-01 - ws( 38) = 0.1090525950475832D-01 - ws( 39) = 0.1095589975605239D-01 - ws( 40) = 0.1178265654171040D-01 - ws( 41) = 0.1207386842776606D-01 - endif - - - if( iquad .eq. 85 ) then - idomain = 85 - rk0r = 0.1570796326795897D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.1570796326792897D+01 - n = 41 - err = 0.1915833794641334D-12 - ierq = 4 - xs( 1) = 0.1518192408628031D-03 - xs( 2) = 0.8021142303069937D-03 - xs( 3) = 0.1980440245357646D-02 - xs( 4) = 0.3699326173964493D-02 - xs( 5) = 0.5972022247624465D-02 - xs( 6) = 0.8808563081963051D-02 - xs( 7) = 0.1221187733214024D-01 - xs( 8) = 0.1617518637521308D-01 - xs( 9) = 0.2068133509043853D-01 - xs( 10) = 0.2570399234702469D-01 - xs( 11) = 0.3121010305841719D-01 - xs( 12) = 0.3716278365985066D-01 - xs( 13) = 0.4352399423556385D-01 - xs( 14) = 0.5025661407471543D-01 - xs( 15) = 0.5732582322904597D-01 - xs( 16) = 0.6469986836965320D-01 - xs( 17) = 0.7235036421807550D-01 - xs( 18) = 0.8025228609019924D-01 - xs( 19) = 0.8838378096517126D-01 - xs( 20) = 0.9672588843269141D-01 - xs( 21) = 0.1052622309168553D+00 - xs( 22) = 0.1139787085702177D+00 - xs( 23) = 0.1228632179270822D+00 - xs( 24) = 0.1319054031758425D+00 - xs( 25) = 0.1410964429300886D+00 - xs( 26) = 0.1504288721992217D+00 - xs( 27) = 0.1598964373230648D+00 - xs( 28) = 0.1694939833605934D+00 - xs( 29) = 0.1792173684652085D+00 - xs( 30) = 0.1890634041170640D+00 - xs( 31) = 0.1990298434931630D+00 - xs( 32) = 0.2091153541657124D+00 - xs( 33) = 0.2193195914388171D+00 - xs( 34) = 0.2296432279391970D+00 - xs( 35) = 0.2400883569620055D+00 - xs( 36) = 0.2506592956016291D+00 - xs( 37) = 0.2613579126836897D+00 - xs( 38) = 0.2721869549449257D+00 - xs( 39) = 0.2831410969991097D+00 - xs( 40) = 0.2940515201220935D+00 - xs( 41) = 0.3045145429737349D+00 - ws( 1) = 0.3898716988944854D-03 - ws( 2) = 0.9124364670990826D-03 - ws( 3) = 0.1446341171473593D-02 - ws( 4) = 0.1993709326869287D-02 - ws( 5) = 0.2553423011137200D-02 - ws( 6) = 0.3120191748136939D-02 - ws( 7) = 0.3685317913411921D-02 - ws( 8) = 0.4238419339325774D-02 - ws( 9) = 0.4769446635234271D-02 - ws( 10) = 0.5270308793044853D-02 - ws( 11) = 0.5735719959619774D-02 - ws( 12) = 0.6163266478600586D-02 - ws( 13) = 0.6552945091342229D-02 - ws( 14) = 0.6906478885249929D-02 - ws( 15) = 0.7226642560183068D-02 - ws( 16) = 0.7516717271065891D-02 - ws( 17) = 0.7780107009195563D-02 - ws( 18) = 0.8020099353715613D-02 - ws( 19) = 0.8239735571633173D-02 - ws( 20) = 0.8441754895402838D-02 - ws( 21) = 0.8628584809241504D-02 - ws( 22) = 0.8802357409614958D-02 - ws( 23) = 0.8964938879792753D-02 - ws( 24) = 0.9117964288467418D-02 - ws( 25) = 0.9262873368785339D-02 - ws( 26) = 0.9400944937869330D-02 - ws( 27) = 0.9533328857086824D-02 - ws( 28) = 0.9661076452957431D-02 - ws( 29) = 0.9785173579729304D-02 - ws( 30) = 0.9906549582077899D-02 - ws( 31) = 0.1002608328384870D-01 - ws( 32) = 0.1014466635815744D-01 - ws( 33) = 0.1026325058108518D-01 - ws( 34) = 0.1038251447723027D-01 - ws( 35) = 0.1050593169485062D-01 - ws( 36) = 0.1063862431517511D-01 - ws( 37) = 0.1079704076478350D-01 - ws( 38) = 0.1100068259559705D-01 - ws( 39) = 0.1124688565986826D-01 - ws( 40) = 0.1151376051788008D-01 - ws( 41) = 0.9066039773054355D-02 - endif - - - if( iquad .eq. 86 ) then - idomain = 86 - rk0r = 0.1570796326795897D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 39 - err = 0.5455386276541765D-13 - ierq = 0 - xs( 1) = 0.1855218717204473D-03 - xs( 2) = 0.9759601591093412D-03 - xs( 3) = 0.2391699261134561D-02 - xs( 4) = 0.4422166669617492D-02 - xs( 5) = 0.7051655627731853D-02 - xs( 6) = 0.1025977750525682D-01 - xs( 7) = 0.1402195919477248D-01 - xs( 8) = 0.1831019307413409D-01 - xs( 9) = 0.2309398315620402D-01 - xs( 10) = 0.2834137690845120D-01 - xs( 11) = 0.3401996790435932D-01 - xs( 12) = 0.4009777917316982D-01 - xs( 13) = 0.4654397383368051D-01 - xs( 14) = 0.5332937514859617D-01 - xs( 15) = 0.6042680518048605D-01 - xs( 16) = 0.6781126765075596D-01 - xs( 17) = 0.7546000762287786D-01 - xs( 18) = 0.8335248091894006D-01 - xs( 19) = 0.9147026251835860D-01 - xs( 20) = 0.9979691779264439D-01 - xs( 21) = 0.1083178547592871D+00 - xs( 22) = 0.1170201704359891D+00 - xs( 23) = 0.1258925001860214D+00 - xs( 24) = 0.1349248756752185D+00 - xs( 25) = 0.1441085939908488D+00 - xs( 26) = 0.1534361016880739D+00 - xs( 27) = 0.1629008854173520D+00 - xs( 28) = 0.1724973828485942D+00 - xs( 29) = 0.1822208915906203D+00 - xs( 30) = 0.1920674648589566D+00 - xs( 31) = 0.2020338330329975D+00 - xs( 32) = 0.2121171675739990D+00 - xs( 33) = 0.2223152658922702D+00 - xs( 34) = 0.2326266662820415D+00 - xs( 35) = 0.2430404536056439D+00 - xs( 36) = 0.2535446375228463D+00 - xs( 37) = 0.2642163518867032D+00 - xs( 38) = 0.2746229784112722D+00 - xs( 39) = 0.2842877571292023D+00 - ws( 1) = 0.4759331707688995D-03 - ws( 2) = 0.1104378298569319D-02 - ws( 3) = 0.1725313639691950D-02 - ws( 4) = 0.2332998578252002D-02 - ws( 5) = 0.2922573095552869D-02 - ws( 6) = 0.3489562474792988D-02 - ws( 7) = 0.4030116916446531D-02 - ws( 8) = 0.4541250695765542D-02 - ws( 9) = 0.5020987116352844D-02 - ws( 10) = 0.5468384468274296D-02 - ws( 11) = 0.5883456145701843D-02 - ws( 12) = 0.6267018270378567D-02 - ws( 13) = 0.6620502681548852D-02 - ws( 14) = 0.6945767324915389D-02 - ws( 15) = 0.7244925778294087D-02 - ws( 16) = 0.7520207254179949D-02 - ws( 17) = 0.7773850246914770D-02 - ws( 18) = 0.8008027704594476D-02 - ws( 19) = 0.8224798886470755D-02 - ws( 20) = 0.8426082219085054D-02 - ws( 21) = 0.8613643678775443D-02 - ws( 22) = 0.8789095939969314D-02 - ws( 23) = 0.8953904391527887D-02 - ws( 24) = 0.9109398112452583D-02 - ws( 25) = 0.9256780128027418D-02 - ws( 26) = 0.9397146154881873D-02 - ws( 27) = 0.9531492136593532D-02 - ws( 28) = 0.9660721408499436D-02 - ws( 29) = 0.9785683581042606D-02 - ws( 30) = 0.9907123312950952D-02 - ws( 31) = 0.1002579283805287D-01 - ws( 32) = 0.1014168450891588D-01 - ws( 33) = 0.1025440552268783D-01 - ws( 34) = 0.1037447305554390D-01 - ws( 35) = 0.1050202993354192D-01 - ws( 36) = 0.1054048741675981D-01 - ws( 37) = 0.1084087996894557D-01 - ws( 38) = 0.1172033004169429D-01 - ws( 39) = 0.9112031289366844D-02 - endif - - - if( iquad .eq. 87 ) then - idomain = 87 - rk0r = 0.1570796326795897D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 36 - err = 0.2592393100693812D-13 - ierq = 0 - xs( 1) = 0.1788411586833741D-03 - xs( 2) = 0.9404020212248448D-03 - xs( 3) = 0.2302856852422478D-02 - xs( 4) = 0.4253812205765563D-02 - xs( 5) = 0.6775830962601774D-02 - xs( 6) = 0.9847496748119654D-02 - xs( 7) = 0.1344435672861742D-01 - xs( 8) = 0.1753985889675923D-01 - xs( 9) = 0.2210623214690385D-01 - xs( 10) = 0.2711526538181754D-01 - xs( 11) = 0.3253896088523350D-01 - xs( 12) = 0.3835005425650411D-01 - xs( 13) = 0.4452240580306868D-01 - xs( 14) = 0.5103127627759211D-01 - xs( 15) = 0.5785350398420057D-01 - xs( 16) = 0.6496760156585023D-01 - xs( 17) = 0.7235379016655361D-01 - xs( 18) = 0.7999398694240309D-01 - xs( 19) = 0.8787175962957171D-01 - xs( 20) = 0.9597225945715923D-01 - xs( 21) = 0.1042821410614983D+00 - xs( 22) = 0.1127894766909964D+00 - xs( 23) = 0.1214836699476280D+00 - xs( 24) = 0.1303553709927154D+00 - xs( 25) = 0.1393963835497139D+00 - xs( 26) = 0.1485996066741429D+00 - xs( 27) = 0.1579589275003782D+00 - xs( 28) = 0.1674691363507154D+00 - xs( 29) = 0.1771257192001704D+00 - xs( 30) = 0.1869247235155049D+00 - xs( 31) = 0.1968629433923009D+00 - xs( 32) = 0.2069322702308075D+00 - xs( 33) = 0.2171296901433681D+00 - xs( 34) = 0.2274513073519143D+00 - xs( 35) = 0.2375683082540518D+00 - xs( 36) = 0.2472955435876926D+00 - ws( 1) = 0.4587462320779456D-03 - ws( 2) = 0.1063576759987510D-02 - ws( 3) = 0.1659233033790238D-02 - ws( 4) = 0.2239755969325414D-02 - ws( 5) = 0.2800696380816961D-02 - ws( 6) = 0.3338543953771399D-02 - ws( 7) = 0.3850735898825403D-02 - ws( 8) = 0.4335626876967746D-02 - ws( 9) = 0.4792406867773490D-02 - ws( 10) = 0.5220984664458098D-02 - ws( 11) = 0.5621855785981303D-02 - ws( 12) = 0.5995969787689345D-02 - ws( 13) = 0.6344607187264717D-02 - ws( 14) = 0.6669271903801953D-02 - ws( 15) = 0.6971601748579301D-02 - ws( 16) = 0.7253297162118862D-02 - ws( 17) = 0.7516066950886213D-02 - ws( 18) = 0.7761588901096459D-02 - ws( 19) = 0.7991482888162281D-02 - ws( 20) = 0.8207294013392423D-02 - ws( 21) = 0.8410484092146125D-02 - ws( 22) = 0.8602425991799506D-02 - ws( 23) = 0.8784405073424796D-02 - ws( 24) = 0.8957633705939629D-02 - ws( 25) = 0.9123237814824339D-02 - ws( 26) = 0.9282241105118230D-02 - ws( 27) = 0.9435627959693450D-02 - ws( 28) = 0.9584283851930437D-02 - ws( 29) = 0.9728777602775270D-02 - ws( 30) = 0.9869590674901389D-02 - ws( 31) = 0.1000988981681964D-01 - ws( 32) = 0.1015012807490664D-01 - ws( 33) = 0.1026656386986550D-01 - ws( 34) = 0.1057218041637465D-01 - ws( 35) = 0.1060256064939015D-01 - ws( 36) = 0.7428372486062837D-02 - endif - - - if( iquad .eq. 88 ) then - idomain = 88 - rk0r = 0.1570796326795897D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.3141592653588793D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.1570796326792897D+01 - rkdi = 0.3141592653587793D+01 - n = 34 - err = 0.4135236693392902D-13 - ierq = 0 - xs( 1) = 0.1627120308655991D-03 - xs( 2) = 0.8559470606959459D-03 - xs( 3) = 0.2097590740771177D-02 - xs( 4) = 0.3878672468876024D-02 - xs( 5) = 0.6186386580925429D-02 - xs( 6) = 0.9004816899461114D-02 - xs( 7) = 0.1231553968424702D-01 - xs( 8) = 0.1609823968734377D-01 - xs( 9) = 0.2033131234826182D-01 - xs( 10) = 0.2499242241782398D-01 - xs( 11) = 0.3005899805175749D-01 - xs( 12) = 0.3550864906889866D-01 - xs( 13) = 0.4131950617948144D-01 - xs( 14) = 0.4747048414883037D-01 - xs( 15) = 0.5394147579680968D-01 - xs( 16) = 0.6071348605357051D-01 - xs( 17) = 0.6776871592864486D-01 - xs( 18) = 0.7509060590148635D-01 - xs( 19) = 0.8266384715746235D-01 - xs( 20) = 0.9047436740513605D-01 - xs( 21) = 0.9850929923978569D-01 - xs( 22) = 0.1067569454815489D+00 - xs( 23) = 0.1152067063949740D+00 - xs( 24) = 0.1238490036358092D+00 - xs( 25) = 0.1326752168805362D+00 - xs( 26) = 0.1416776094903805D+00 - xs( 27) = 0.1508485290708013D+00 - xs( 28) = 0.1601805633799255D+00 - xs( 29) = 0.1696654202435167D+00 - xs( 30) = 0.1792872091181808D+00 - xs( 31) = 0.1890190285027469D+00 - xs( 32) = 0.1988001965156646D+00 - xs( 33) = 0.2084685346357740D+00 - xs( 34) = 0.2176574901326096D+00 - ws( 1) = 0.4174143914095665D-03 - ws( 2) = 0.9685564244282266D-03 - ws( 3) = 0.1513208028740470D-02 - ws( 4) = 0.2046811176869798D-02 - ws( 5) = 0.2565954324153528D-02 - ws( 6) = 0.3067825343196881D-02 - ws( 7) = 0.3550224242035388D-02 - ws( 8) = 0.4011565641151450D-02 - ws( 9) = 0.4450848879999802D-02 - ws( 10) = 0.4867602327683884D-02 - ws( 11) = 0.5261811646205448D-02 - ws( 12) = 0.5633841131305286D-02 - ws( 13) = 0.5984355468737186D-02 - ws( 14) = 0.6314246634628744D-02 - ws( 15) = 0.6624569058529765D-02 - ws( 16) = 0.6916484306547268D-02 - ws( 17) = 0.7191215814366168D-02 - ws( 18) = 0.7450013958057650D-02 - ws( 19) = 0.7694129851886849D-02 - ws( 20) = 0.7924791093780772D-02 - ws( 21) = 0.8143165655815462D-02 - ws( 22) = 0.8350354758672383D-02 - ws( 23) = 0.8547477752545184D-02 - ws( 24) = 0.8735508607850521D-02 - ws( 25) = 0.8915234499339720D-02 - ws( 26) = 0.9088390876380432D-02 - ws( 27) = 0.9255992610087435D-02 - ws( 28) = 0.9418861667490418D-02 - ws( 29) = 0.9577130750604844D-02 - ws( 30) = 0.9732321553864900D-02 - ws( 31) = 0.9830606986911978D-02 - ws( 32) = 0.9683551018565918D-02 - ws( 33) = 0.8540270706192352D-02 - ws( 34) = 0.4426230760727915D-02 - endif - - - if( iquad .eq. 89 ) then - idomain = 89 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 48 - err = 0.2201202012389861D-12 - ierq = 4 - xs( 1) = 0.2009299510984702D-04 - xs( 2) = 0.1065469200965547D-03 - xs( 3) = 0.2648996442981346D-03 - xs( 4) = 0.5002107579828937D-03 - xs( 5) = 0.8202029680637465D-03 - xs( 6) = 0.1235827668740986D-02 - xs( 7) = 0.1762028652009821D-02 - xs( 8) = 0.2418765189839636D-02 - xs( 9) = 0.3232324923709517D-02 - xs( 10) = 0.4236911155583946D-02 - xs( 11) = 0.5476376606074524D-02 - xs( 12) = 0.7005746038232099D-02 - xs( 13) = 0.8891774066192340D-02 - xs( 14) = 0.1121123349112010D-01 - xs( 15) = 0.1404515308279209D-01 - xs( 16) = 0.1746756641390896D-01 - xs( 17) = 0.2152984557230093D-01 - xs( 18) = 0.2624667081747990D-01 - xs( 19) = 0.3159261049499010D-01 - xs( 20) = 0.3751247568161744D-01 - xs( 21) = 0.4393825312409905D-01 - xs( 22) = 0.5080293084662393D-01 - xs( 23) = 0.5804748081289026D-01 - xs( 24) = 0.6562259188220675D-01 - xs( 25) = 0.7348788560864729D-01 - xs( 26) = 0.8161040288436722D-01 - xs( 27) = 0.8996313736784114D-01 - xs( 28) = 0.9852383736415869D-01 - xs( 29) = 0.1072740809351871D+00 - xs( 30) = 0.1161985707668519D+00 - xs( 31) = 0.1252845938030238D+00 - xs( 32) = 0.1345216033435858D+00 - xs( 33) = 0.1439008940021466D+00 - xs( 34) = 0.1534153496258000D+00 - xs( 35) = 0.1630592508341132D+00 - xs( 36) = 0.1728281344065631D+00 - xs( 37) = 0.1827186980140967D+00 - xs( 38) = 0.1927287493822923D+00 - xs( 39) = 0.2028571992744964D+00 - xs( 40) = 0.2131041408350788D+00 - xs( 41) = 0.2234708774577581D+00 - xs( 42) = 0.2339605758855625D+00 - xs( 43) = 0.2445773704623182D+00 - xs( 44) = 0.2553287515284687D+00 - xs( 45) = 0.2662258140868532D+00 - xs( 46) = 0.2772666164254762D+00 - xs( 47) = 0.2885395516496062D+00 - xs( 48) = 0.2997844233033114D+00 - ws( 1) = 0.5164203997700459D-04 - ws( 2) = 0.1217570663545936D-03 - ws( 3) = 0.1957832405524807D-03 - ws( 4) = 0.2761170348752451D-03 - ws( 5) = 0.3656800036269738D-03 - ws( 6) = 0.4680430613225550D-03 - ws( 7) = 0.5876635577852517D-03 - ws( 8) = 0.7301640779735409D-03 - ws( 9) = 0.9026262618679485D-03 - ws( 10) = 0.1113827891871292D-02 - ws( 11) = 0.1374261406301181D-02 - ws( 12) = 0.1695627252920422D-02 - ws( 13) = 0.2089316005997467D-02 - ws( 14) = 0.2563296330714594D-02 - ws( 15) = 0.3117157635561730D-02 - ws( 16) = 0.3736490772832946D-02 - ws( 17) = 0.4390581744832259D-02 - ws( 18) = 0.5038635789623667D-02 - ws( 19) = 0.5643735882212291D-02 - ws( 20) = 0.6184420681929321D-02 - ws( 21) = 0.6655855057170542D-02 - ws( 22) = 0.7063640722717183D-02 - ws( 23) = 0.7417257912244012D-02 - ws( 24) = 0.7726261337799658D-02 - ws( 25) = 0.7998857769346109D-02 - ws( 26) = 0.8241695649190400D-02 - ws( 27) = 0.8460079971222700D-02 - ws( 28) = 0.8658261315794349D-02 - ws( 29) = 0.8839685178194558D-02 - ws( 30) = 0.9007182536072231D-02 - ws( 31) = 0.9163111132043506D-02 - ws( 32) = 0.9309461229443679D-02 - ws( 33) = 0.9447937256983346D-02 - ws( 34) = 0.9580023205483460D-02 - ws( 35) = 0.9707037509143439D-02 - ws( 36) = 0.9830180969562671D-02 - ws( 37) = 0.9950583679617575D-02 - ws( 38) = 0.1006935275406744D-01 - ws( 39) = 0.1018758736730972D-01 - ws( 40) = 0.1030649094935573D-01 - ws( 41) = 0.1042738562050468D-01 - ws( 42) = 0.1055225007637868D-01 - ws( 43) = 0.1068440573026326D-01 - ws( 44) = 0.1082269812119790D-01 - ws( 45) = 0.1097334057177351D-01 - ws( 46) = 0.1114424328750247D-01 - ws( 47) = 0.1155272662359469D-01 - ws( 48) = 0.1210223741579344D-01 - endif - - - if( iquad .eq. 90 ) then - idomain = 90 - rk0r = 0.3141592653590793D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 47 - err = 0.4233907860886824D-12 - ierq = 4 - xs( 1) = 0.2186182992071622D-04 - xs( 2) = 0.1159433442242465D-03 - xs( 3) = 0.2883409983750773D-03 - xs( 4) = 0.5447103243095724D-03 - xs( 5) = 0.8937215175718527D-03 - xs( 6) = 0.1347728450728890D-02 - xs( 7) = 0.1923669092147929D-02 - xs( 8) = 0.2644262348499431D-02 - xs( 9) = 0.3539525842460394D-02 - xs( 10) = 0.4648570662697838D-02 - xs( 11) = 0.6021467208481456D-02 - xs( 12) = 0.7720655472223986D-02 - xs( 13) = 0.9820840175998826D-02 - xs( 14) = 0.1240563049323668D-01 - xs( 15) = 0.1555880940837739D-01 - xs( 16) = 0.1934931271167485D-01 - xs( 17) = 0.2381341051458240D-01 - xs( 18) = 0.2894355534961056D-01 - xs( 19) = 0.3469259717689240D-01 - xs( 20) = 0.4099077641086132D-01 - xs( 21) = 0.4776393462576446D-01 - xs( 22) = 0.5494478072058264D-01 - xs( 23) = 0.6247685840455033D-01 - xs( 24) = 0.7031433915093342D-01 - xs( 25) = 0.7842032002044190D-01 - xs( 26) = 0.8676497311314273D-01 - xs( 27) = 0.9532400151686359D-01 - xs( 28) = 0.1040774622990108D+00 - xs( 29) = 0.1130088935038117D+00 - xs( 30) = 0.1221046661291345D+00 - xs( 31) = 0.1313534974669726D+00 - xs( 32) = 0.1407460811667726D+00 - xs( 33) = 0.1502748044094680D+00 - xs( 34) = 0.1599335331595390D+00 - xs( 35) = 0.1697174535184859D+00 - xs( 36) = 0.1796229625640517D+00 - xs( 37) = 0.1896476033094868D+00 - xs( 38) = 0.1997900468199057D+00 - xs( 39) = 0.2100501481075565D+00 - xs( 40) = 0.2204290372857949D+00 - xs( 41) = 0.2309291944424798D+00 - xs( 42) = 0.2415549783488478D+00 - xs( 43) = 0.2523129186875090D+00 - xs( 44) = 0.2632145557060720D+00 - xs( 45) = 0.2742648621465276D+00 - xs( 46) = 0.2854817024806875D+00 - xs( 47) = 0.2968422964829892D+00 - ws( 1) = 0.5619008155519843D-04 - ws( 2) = 0.1325189501138605D-03 - ws( 3) = 0.2132091702988445D-03 - ws( 4) = 0.3009637520950407D-03 - ws( 5) = 0.3991027289659058D-03 - ws( 6) = 0.5117142588314225D-03 - ws( 7) = 0.6439281432181556D-03 - ws( 8) = 0.8022309668471152D-03 - ws( 9) = 0.9947822749585902D-03 - ws( 10) = 0.1231626487392163D-02 - ws( 11) = 0.1524570814506730D-02 - ws( 12) = 0.1886306925217786D-02 - ws( 13) = 0.2328139215095709D-02 - ws( 14) = 0.2855662549563294D-02 - ws( 15) = 0.3462506842711128D-02 - ws( 16) = 0.4124757606087910D-02 - ws( 17) = 0.4802102453545514D-02 - ws( 18) = 0.5450011060827690D-02 - ws( 19) = 0.6036121627147162D-02 - ws( 20) = 0.6547691156546298D-02 - ws( 21) = 0.6987353024439666D-02 - ws( 22) = 0.7364939773738601D-02 - ws( 23) = 0.7691608822486871D-02 - ws( 24) = 0.7977233899282385D-02 - ws( 25) = 0.8229782302256874D-02 - ws( 26) = 0.8455493828618417D-02 - ws( 27) = 0.8659253509621125D-02 - ws( 28) = 0.8844935044994071D-02 - ws( 29) = 0.9015663873009588D-02 - ws( 30) = 0.9174007028267045D-02 - ws( 31) = 0.9322109258326869D-02 - ws( 32) = 0.9461792884113701D-02 - ws( 33) = 0.9594633817307078D-02 - ws( 34) = 0.9722023033844408D-02 - ws( 35) = 0.9845218023914404D-02 - ws( 36) = 0.9965390674858464D-02 - ws( 37) = 0.1008367694186236D-01 - ws( 38) = 0.1020119241553839D-01 - ws( 39) = 0.1031918346984676D-01 - ws( 40) = 0.1043921146606212D-01 - ws( 41) = 0.1056251375228340D-01 - ws( 42) = 0.1069173478526663D-01 - ws( 43) = 0.1082971168004934D-01 - ws( 44) = 0.1099375773730817D-01 - ws( 45) = 0.1116153676051244D-01 - ws( 46) = 0.1134621413094909D-01 - ws( 47) = 0.1235920721176471D-01 - endif - - - if( iquad .eq. 91 ) then - idomain = 91 - rk0r = 0.3141592653590793D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 47 - err = 0.3051069473150058D-12 - ierq = 4 - xs( 1) = 0.2325550629773666D-04 - xs( 2) = 0.1233336219136367D-03 - xs( 3) = 0.3067147394858448D-03 - xs( 4) = 0.5794037822004290D-03 - xs( 5) = 0.9506020130866096D-03 - xs( 6) = 0.1433413288053624D-02 - xs( 7) = 0.2045793984531998D-02 - xs( 8) = 0.2811811140663718D-02 - xs( 9) = 0.3763222473692270D-02 - xs( 10) = 0.4941302739808518D-02 - xs( 11) = 0.6398637080917730D-02 - xs( 12) = 0.8200209334967595D-02 - xs( 13) = 0.1042249279073709D-01 - xs( 14) = 0.1314857303618888D-01 - xs( 15) = 0.1645736477365842D-01 - xs( 16) = 0.2040734940773115D-01 - xs( 17) = 0.2502073326314138D-01 - xs( 18) = 0.3027789815720278D-01 - xs( 19) = 0.3612658398519700D-01 - xs( 20) = 0.4249897419052775D-01 - xs( 21) = 0.4932641882965197D-01 - xs( 22) = 0.5654739278233641D-01 - xs( 23) = 0.6410994743954838D-01 - xs( 24) = 0.7197132628796021D-01 - xs( 25) = 0.8009660229039210D-01 - xs( 26) = 0.8845721517121997D-01 - xs( 27) = 0.9702971293540452D-01 - xs( 28) = 0.1057947519298712D+00 - xs( 29) = 0.1147363246836597D+00 - xs( 30) = 0.1238411673381892D+00 - xs( 31) = 0.1330983037514142D+00 - xs( 32) = 0.1424986936179602D+00 - xs( 33) = 0.1520349614956129D+00 - xs( 34) = 0.1617011906449340D+00 - xs( 35) = 0.1714927717408386D+00 - xs( 36) = 0.1814063006848701D+00 - xs( 37) = 0.1914395235457042D+00 - xs( 38) = 0.2015913291928543D+00 - xs( 39) = 0.2118617829305055D+00 - xs( 40) = 0.2222522885646281D+00 - xs( 41) = 0.2327657336828390D+00 - xs( 42) = 0.2434069908827693D+00 - xs( 43) = 0.2541831551011858D+00 - xs( 44) = 0.2651062669511937D+00 - xs( 45) = 0.2761891553754819D+00 - xs( 46) = 0.2874456365958635D+00 - xs( 47) = 0.2987789600085927D+00 - ws( 1) = 0.5977204931553033D-04 - ws( 2) = 0.1409642503663420D-03 - ws( 3) = 0.2267884743318510D-03 - ws( 4) = 0.3201117949901766D-03 - ws( 5) = 0.4244529317299729D-03 - ws( 6) = 0.5441414313054565D-03 - ws( 7) = 0.6846046651992605D-03 - ws( 8) = 0.8526915713766881D-03 - ws( 9) = 0.1056978833633142D-02 - ws( 10) = 0.1307924735988608D-02 - ws( 11) = 0.1617584849621219D-02 - ws( 12) = 0.1998380965512228D-02 - ws( 13) = 0.2460212608519610D-02 - ws( 14) = 0.3005385407235135D-02 - ws( 15) = 0.3622237330086975D-02 - ws( 16) = 0.4281539756033275D-02 - ws( 17) = 0.4941784260336915D-02 - ws( 18) = 0.5563521573274144D-02 - ws( 19) = 0.6122292376872751D-02 - ws( 20) = 0.6610918894778127D-02 - ws( 21) = 0.7033682470183428D-02 - ws( 22) = 0.7399618102527311D-02 - ws( 23) = 0.7718389729590420D-02 - ws( 24) = 0.7998571769676209D-02 - ws( 25) = 0.8247241233560373D-02 - ws( 26) = 0.8470092431490796D-02 - ws( 27) = 0.8671691901747876D-02 - ws( 28) = 0.8855727947879482D-02 - ws( 29) = 0.9025214439430078D-02 - ws( 30) = 0.9182647327491904D-02 - ws( 31) = 0.9330123264178846D-02 - ws( 32) = 0.9469430630705123D-02 - ws( 33) = 0.9602121494582116D-02 - ws( 34) = 0.9729571009073358D-02 - ws( 35) = 0.9853026306040853D-02 - ws( 36) = 0.9973655616299471D-02 - ws( 37) = 0.1009259015421726D-01 - ws( 38) = 0.1021101618523853D-01 - ws( 39) = 0.1033014972557735D-01 - ws( 40) = 0.1045151239914078D-01 - ws( 41) = 0.1057666561798809D-01 - ws( 42) = 0.1070808889620155D-01 - ws( 43) = 0.1084688051807830D-01 - ws( 44) = 0.1100882315840210D-01 - ws( 45) = 0.1120423839187244D-01 - ws( 46) = 0.1165630981296744D-01 - ws( 47) = 0.1249992654602740D-01 - endif - - - if( iquad .eq. 92 ) then - idomain = 92 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 47 - err = 0.2290480273375893D-12 - ierq = 4 - xs( 1) = 0.2556130172750765D-04 - xs( 2) = 0.1355287452944292D-03 - xs( 3) = 0.3368891957649360D-03 - xs( 4) = 0.6359720234822077D-03 - xs( 5) = 0.1042436559926082D-02 - xs( 6) = 0.1569967336163080D-02 - xs( 7) = 0.2237191182794747D-02 - xs( 8) = 0.3068868080989383D-02 - xs( 9) = 0.4097347647810627D-02 - xs( 10) = 0.5364187261198135D-02 - xs( 11) = 0.6921623058968156D-02 - xs( 12) = 0.8833210563821345D-02 - xs( 13) = 0.1117239762753395D-01 - xs( 14) = 0.1401727536065273D-01 - xs( 15) = 0.1744004067633092D-01 - xs( 16) = 0.2149214017477775D-01 - xs( 17) = 0.2619076869843132D-01 - xs( 18) = 0.3151495716228445D-01 - xs( 19) = 0.3741423330638219D-01 - xs( 20) = 0.4382383680695671D-01 - xs( 21) = 0.5067800533895547D-01 - xs( 22) = 0.5791748484957705D-01 - xs( 23) = 0.6549206429283606D-01 - xs( 24) = 0.7336035881905889D-01 - xs( 25) = 0.8148855144673429D-01 - xs( 26) = 0.8984897771985711D-01 - xs( 27) = 0.9841889056135072D-01 - xs( 28) = 0.1071794793911166D+00 - xs( 29) = 0.1161151191680694D+00 - xs( 30) = 0.1252128010292335D+00 - xs( 31) = 0.1344616995207521D+00 - xs( 32) = 0.1438528417890933D+00 - xs( 33) = 0.1533788542040779D+00 - xs( 34) = 0.1630337698805889D+00 - xs( 35) = 0.1728128862699318D+00 - xs( 36) = 0.1827126673307190D+00 - xs( 37) = 0.1927306846314368D+00 - xs( 38) = 0.2028656118352413D+00 - xs( 39) = 0.2131172212044615D+00 - xs( 40) = 0.2234865439316406D+00 - xs( 41) = 0.2339759168532510D+00 - xs( 42) = 0.2445895615362274D+00 - xs( 43) = 0.2553323691316957D+00 - xs( 44) = 0.2662136734476916D+00 - xs( 45) = 0.2772501974993663D+00 - xs( 46) = 0.2884260772647848D+00 - xs( 47) = 0.2995238042899734D+00 - ws( 1) = 0.6569471646207044D-04 - ws( 2) = 0.1548554502206526D-03 - ws( 3) = 0.2489097804116232D-03 - ws( 4) = 0.3508545960700970D-03 - ws( 5) = 0.4643400343897522D-03 - ws( 6) = 0.5938061428863804D-03 - ws( 7) = 0.7447437338694400D-03 - ws( 8) = 0.9239740308646243D-03 - ws( 9) = 0.1139885273709666D-02 - ws( 10) = 0.1402486378091768D-02 - ws( 11) = 0.1722997157645594D-02 - ws( 12) = 0.2112502267009343D-02 - ws( 13) = 0.2579063671022563D-02 - ws( 14) = 0.3122986227094047D-02 - ws( 15) = 0.3731367564708536D-02 - ws( 16) = 0.4375771858926810D-02 - ws( 17) = 0.5017827856237659D-02 - ws( 18) = 0.5621859736497340D-02 - ws( 19) = 0.6165669133792367D-02 - ws( 20) = 0.6642455854669397D-02 - ws( 21) = 0.7055969307440267D-02 - ws( 22) = 0.7414628919647125D-02 - ws( 23) = 0.7727655422488313D-02 - ws( 24) = 0.8003321741248676D-02 - ws( 25) = 0.8248473471796684D-02 - ws( 26) = 0.8468604158719582D-02 - ws( 27) = 0.8668098819144441D-02 - ws( 28) = 0.8850484046815958D-02 - ws( 29) = 0.9018634493130914D-02 - ws( 30) = 0.9174930447155030D-02 - ws( 31) = 0.9321375287219600D-02 - ws( 32) = 0.9459683539595844D-02 - ws( 33) = 0.9591349063387537D-02 - ws( 34) = 0.9717700166247966D-02 - ws( 35) = 0.9839943893453631D-02 - ws( 36) = 0.9959215807667019D-02 - ws( 37) = 0.1007659258379485D-01 - ws( 38) = 0.1019320488315099D-01 - ws( 39) = 0.1031024036540882D-01 - ws( 40) = 0.1042903382006862D-01 - ws( 41) = 0.1055065490798289D-01 - ws( 42) = 0.1067883682285319D-01 - ws( 43) = 0.1082104427645934D-01 - ws( 44) = 0.1096321949401902D-01 - ws( 45) = 0.1114135324761649D-01 - ws( 46) = 0.1149270221279534D-01 - ws( 47) = 0.1172801259355743D-01 - endif - - - if( iquad .eq. 93 ) then - idomain = 93 - rk0r = 0.3141592653590793D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 46 - err = 0.2752932525287610D-12 - ierq = 4 - xs( 1) = 0.3024346372606320D-04 - xs( 2) = 0.1603344125881463D-03 - xs( 3) = 0.3984579655265573D-03 - xs( 4) = 0.7519348057810262D-03 - xs( 5) = 0.1231902312984901D-02 - xs( 6) = 0.1854080739783844D-02 - xs( 7) = 0.2639774705521947D-02 - xs( 8) = 0.3617154886748176D-02 - xs( 9) = 0.4822776924940374D-02 - xs( 10) = 0.6303148713615239D-02 - xs( 11) = 0.8115858266665560D-02 - xs( 12) = 0.1032926321609771D-01 - xs( 13) = 0.1301911608970679D-01 - xs( 14) = 0.1626032549396330D-01 - xs( 15) = 0.2011357743429023D-01 - xs( 16) = 0.2461057938631568D-01 - xs( 17) = 0.2974561043733089D-01 - xs( 18) = 0.3547903956880949D-01 - xs( 19) = 0.4175033610418765D-01 - xs( 20) = 0.4849259667621973D-01 - xs( 21) = 0.5564265631275490D-01 - xs( 22) = 0.6314574948269651D-01 - xs( 23) = 0.7095642469598193D-01 - xs( 24) = 0.7903765913751302D-01 - xs( 25) = 0.8735942101309321D-01 - xs( 26) = 0.9589726753148652D-01 - xs( 27) = 0.1046311792185974D+00 - xs( 28) = 0.1135446549255270D+00 - xs( 29) = 0.1226240296387757D+00 - xs( 30) = 0.1318579653196678D+00 - xs( 31) = 0.1412370712165921D+00 - xs( 32) = 0.1507536205374581D+00 - xs( 33) = 0.1604013402676726D+00 - xs( 34) = 0.1701752585378214D+00 - xs( 35) = 0.1800715990329327D+00 - xs( 36) = 0.1900877193268992D+00 - xs( 37) = 0.2002220959602031D+00 - xs( 38) = 0.2104743273082229D+00 - xs( 39) = 0.2208452439576178D+00 - xs( 40) = 0.2313369740205154D+00 - xs( 41) = 0.2419533689691736D+00 - xs( 42) = 0.2526999625437407D+00 - xs( 43) = 0.2635812925859524D+00 - xs( 44) = 0.2746068610711885D+00 - xs( 45) = 0.2858033134232829D+00 - xs( 46) = 0.2968422274397756D+00 - ws( 1) = 0.7772607699932617D-04 - ws( 2) = 0.1831705293982860D-03 - ws( 3) = 0.2942847974681484D-03 - ws( 4) = 0.4145128234860888D-03 - ws( 5) = 0.5480256083810940D-03 - ws( 6) = 0.6998605806699580D-03 - ws( 7) = 0.8761967593780620D-03 - ws( 8) = 0.1084629019435649D-02 - ws( 9) = 0.1334345274723333D-02 - ws( 10) = 0.1635997493558941D-02 - ws( 11) = 0.2000865851477879D-02 - ws( 12) = 0.2438704860184250D-02 - ws( 13) = 0.2953717198713684D-02 - ws( 14) = 0.3539082982323919D-02 - ws( 15) = 0.4172863296438661D-02 - ws( 16) = 0.4820121063203718D-02 - ws( 17) = 0.5443096011530385D-02 - ws( 18) = 0.6013416582022615D-02 - ws( 19) = 0.6517856276225093D-02 - ws( 20) = 0.6956064830061380D-02 - ws( 21) = 0.7334916540336960D-02 - ws( 22) = 0.7663712205162087D-02 - ws( 23) = 0.7951492988135252D-02 - ws( 24) = 0.8205994357042752D-02 - ws( 25) = 0.8433475039528696D-02 - ws( 26) = 0.8638896393692263D-02 - ws( 27) = 0.8826188034472675D-02 - ws( 28) = 0.8998494259129202D-02 - ws( 29) = 0.9158371747360703D-02 - ws( 30) = 0.9307939132030143D-02 - ws( 31) = 0.9448988278602854D-02 - ws( 32) = 0.9583067482288824D-02 - ws( 33) = 0.9711545818430766D-02 - ws( 34) = 0.9835664489921059D-02 - ws( 35) = 0.9956581757428317D-02 - ws( 36) = 0.1007540780430322D-01 - ws( 37) = 0.1019328280666834D-01 - ws( 38) = 0.1031138112763519D-01 - ws( 39) = 0.1043093659339085D-01 - ws( 40) = 0.1055380953202575D-01 - ws( 41) = 0.1068163785981213D-01 - ws( 42) = 0.1081855737061717D-01 - ws( 43) = 0.1096902579722039D-01 - ws( 44) = 0.1112640986054797D-01 - ws( 45) = 0.1139339295877396D-01 - ws( 46) = 0.1156370504551145D-01 - endif - - - if( iquad .eq. 94 ) then - idomain = 94 - rk0r = 0.3141592653590793D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 45 - err = 0.1540792377189322D-12 - ierq = 4 - xs( 1) = 0.4160573065160003D-04 - xs( 2) = 0.2204952890187527D-03 - xs( 3) = 0.5476242702278826D-03 - xs( 4) = 0.1032464699742699D-02 - xs( 5) = 0.1689333736542030D-02 - xs( 6) = 0.2538227153540060D-02 - xs( 7) = 0.3605795510468530D-02 - xs( 8) = 0.4926417034493226D-02 - xs( 9) = 0.6543156015634014D-02 - xs( 10) = 0.8508162055109205D-02 - xs( 11) = 0.1088170860997505D-01 - xs( 12) = 0.1372870377457990D-01 - xs( 13) = 0.1711158734521811D-01 - xs( 14) = 0.2107985005606697D-01 - xs( 15) = 0.2565915924445652D-01 - xs( 16) = 0.3084522899534499D-01 - xs( 17) = 0.3660596491175547D-01 - xs( 18) = 0.4289047682467664D-01 - xs( 19) = 0.4964003523965613D-01 - xs( 20) = 0.5679672261311168D-01 - xs( 21) = 0.6430834501367619D-01 - xs( 22) = 0.7213024716170974D-01 - xs( 23) = 0.8022527804474797D-01 - xs( 24) = 0.8856292368228921D-01 - xs( 25) = 0.9711821124392565D-01 - xs( 26) = 0.1058706717715326D+00 - xs( 27) = 0.1148034653057227D+00 - xs( 28) = 0.1239026838509543D+00 - xs( 29) = 0.1331568125838453D+00 - xs( 30) = 0.1425563204258327D+00 - xs( 31) = 0.1520933525952457D+00 - xs( 32) = 0.1617615029651423D+00 - xs( 33) = 0.1715556495137905D+00 - xs( 34) = 0.1814718405243707D+00 - xs( 35) = 0.1915072308655868D+00 - xs( 36) = 0.2016600336526488D+00 - xs( 37) = 0.2119295778155157D+00 - xs( 38) = 0.2223163248758921D+00 - xs( 39) = 0.2328219135519791D+00 - xs( 40) = 0.2434494203252014D+00 - xs( 41) = 0.2542038764546390D+00 - xs( 42) = 0.2650907806144314D+00 - xs( 43) = 0.2761083219825756D+00 - xs( 44) = 0.2872988366428843D+00 - xs( 45) = 0.2981891385632828D+00 - ws( 1) = 0.1069187024362390D-03 - ws( 2) = 0.2517935480696899D-03 - ws( 3) = 0.4040284756782424D-03 - ws( 4) = 0.5680251782692731D-03 - ws( 5) = 0.7490290946852517D-03 - ws( 6) = 0.9531811544214005D-03 - ws( 7) = 0.1187668289323292D-02 - ws( 8) = 0.1460743606328494D-02 - ws( 9) = 0.1781439062938101D-02 - ws( 10) = 0.2158673646470802D-02 - ws( 11) = 0.2599355661790105D-02 - ws( 12) = 0.3105223141104086D-02 - ws( 13) = 0.3668987747527235D-02 - ws( 14) = 0.4271927939203685D-02 - ws( 15) = 0.4885936226407904D-02 - ws( 16) = 0.5480690114167823D-02 - ws( 17) = 0.6032106443458414D-02 - ws( 18) = 0.6526982046802483D-02 - ws( 19) = 0.6962402209271329D-02 - ws( 20) = 0.7342246581205423D-02 - ws( 21) = 0.7673558705755429D-02 - ws( 22) = 0.7964069593259031D-02 - ws( 23) = 0.8220925401149156D-02 - ws( 24) = 0.8450221233517165D-02 - ws( 25) = 0.8656956994668123D-02 - ws( 26) = 0.8845168959923601D-02 - ws( 27) = 0.9018109009567231D-02 - ws( 28) = 0.9178415689719447D-02 - ws( 29) = 0.9328258326237123D-02 - ws( 30) = 0.9469452021482425D-02 - ws( 31) = 0.9603547593466303D-02 - ws( 32) = 0.9731902150491812D-02 - ws( 33) = 0.9855736344362584D-02 - ws( 34) = 0.9976174930286873D-02 - ws( 35) = 0.1009430980213749D-01 - ws( 36) = 0.1021120693552155D-01 - ws( 37) = 0.1032794451418618D-01 - ws( 38) = 0.1044565304659555D-01 - ws( 39) = 0.1056630444431667D-01 - ws( 40) = 0.1068979747535402D-01 - ws( 41) = 0.1082187576203983D-01 - ws( 42) = 0.1095913720008225D-01 - ws( 43) = 0.1108524246519715D-01 - ws( 44) = 0.1157880083159935D-01 - ws( 45) = 0.1147000380482644D-01 - endif - - - if( iquad .eq. 95 ) then - idomain = 95 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 42 - err = 0.1201746393644474D-12 - ierq = 4 - xs( 1) = 0.6701192921943633D-04 - xs( 2) = 0.3550474608639256D-03 - xs( 3) = 0.8813521132592541D-03 - xs( 4) = 0.1660271609339709D-02 - xs( 5) = 0.2713072169284352D-02 - xs( 6) = 0.4068612917539352D-02 - xs( 7) = 0.5763758497376965D-02 - xs( 8) = 0.7843155127534564D-02 - xs( 9) = 0.1035766666827071D-01 - xs( 10) = 0.1336059815749607D-01 - xs( 11) = 0.1690116348693098D-01 - xs( 12) = 0.2101594387618251D-01 - xs( 13) = 0.2572101169466305D-01 - xs( 14) = 0.3100824347236291D-01 - xs( 15) = 0.3684760613906476D-01 - xs( 16) = 0.4319400621918550D-01 - xs( 17) = 0.4999542940083265D-01 - xs( 18) = 0.5719963731870929D-01 - xs( 19) = 0.6475836046238488D-01 - xs( 20) = 0.7262923188447487D-01 - xs( 21) = 0.8077620195937754D-01 - xs( 22) = 0.8916913453125613D-01 - xs( 23) = 0.9778306475306359D-01 - xs( 24) = 0.1065973904899504D+00 - xs( 25) = 0.1155951271475015D+00 - xs( 26) = 0.1247622743897956D+00 - xs( 27) = 0.1340873023328060D+00 - xs( 28) = 0.1435607471904013D+00 - xs( 29) = 0.1531749009824585D+00 - xs( 30) = 0.1629235798879028D+00 - xs( 31) = 0.1728019591201724D+00 - xs( 32) = 0.1828064614203848D+00 - xs( 33) = 0.1929347062416163D+00 - xs( 34) = 0.2031854861823764D+00 - xs( 35) = 0.2135587725486015D+00 - xs( 36) = 0.2240558395153032D+00 - xs( 37) = 0.2346798147246607D+00 - xs( 38) = 0.2454351873362967D+00 - xs( 39) = 0.2563264001980923D+00 - xs( 40) = 0.2673590485525967D+00 - xs( 41) = 0.2785453942958540D+00 - xs( 42) = 0.2893907876637445D+00 - ws( 1) = 0.1721977013663952D-03 - ws( 2) = 0.4053124835248540D-03 - ws( 3) = 0.6496702331092726D-03 - ws( 4) = 0.9117022687821059D-03 - ws( 5) = 0.1198700840531936D-02 - ws( 6) = 0.1518526797802704D-02 - ws( 7) = 0.1879229207346044D-02 - ws( 8) = 0.2288102576750343D-02 - ws( 9) = 0.2749914931501477D-02 - ws( 10) = 0.3264299501436513D-02 - ws( 11) = 0.3823068977820032D-02 - ws( 12) = 0.4409236976288631D-02 - ws( 13) = 0.4999502569027626D-02 - ws( 14) = 0.5569832357537626D-02 - ws( 15) = 0.6101234790434435D-02 - ws( 16) = 0.6582782428296645D-02 - ws( 17) = 0.7011288614857780D-02 - ws( 18) = 0.7389052046948322D-02 - ws( 19) = 0.7721327893459634D-02 - ws( 20) = 0.8014414539622341D-02 - ws( 21) = 0.8274515904139875D-02 - ws( 22) = 0.8507202192568277D-02 - ws( 23) = 0.8717237080382181D-02 - ws( 24) = 0.8908594196801503D-02 - ws( 25) = 0.9084554283575786D-02 - ws( 26) = 0.9247825267822061D-02 - ws( 27) = 0.9400658435471611D-02 - ws( 28) = 0.9544950498824971D-02 - ws( 29) = 0.9682329683746440D-02 - ws( 30) = 0.9814226306383990D-02 - ws( 31) = 0.9941938038376581D-02 - ws( 32) = 0.1006667448395144D-01 - ws( 33) = 0.1018962669757131D-01 - ws( 34) = 0.1031202132408463D-01 - ws( 35) = 0.1043518097130554D-01 - ws( 36) = 0.1055995151199605D-01 - ws( 37) = 0.1068698089282666D-01 - ws( 38) = 0.1082519502307940D-01 - ws( 39) = 0.1098016374366569D-01 - ws( 40) = 0.1116316976383070D-01 - ws( 41) = 0.1162003621114888D-01 - ws( 42) = 0.1117867035422461D-01 - endif - - - if( iquad .eq. 96 ) then - idomain = 96 - rk0r = 0.3141592653590793D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 43 - err = 0.3969670515251834D-12 - ierq = 4 - xs( 1) = 0.7652475074586073D-04 - xs( 2) = 0.4086822707243923D-03 - xs( 3) = 0.1025417035724677D-02 - xs( 4) = 0.1951588984219069D-02 - xs( 5) = 0.3214501739851731D-02 - xs( 6) = 0.4843617869614801D-02 - xs( 7) = 0.6870775053437031D-02 - xs( 8) = 0.9329220895237262D-02 - xs( 9) = 0.1225111616403238D-01 - xs( 10) = 0.1566389010602526D-01 - xs( 11) = 0.1958634062539693D-01 - xs( 12) = 0.2402561754398608D-01 - xs( 13) = 0.2897600535610712D-01 - xs( 14) = 0.3441978707307528D-01 - xs( 15) = 0.4032976495888507D-01 - xs( 16) = 0.4667259625927044D-01 - xs( 17) = 0.5341209758535512D-01 - xs( 18) = 0.6051195240169233D-01 - xs( 19) = 0.6793760253607758D-01 - xs( 20) = 0.7565736309621401D-01 - xs( 21) = 0.8364292814141761D-01 - xs( 22) = 0.9186946099138554D-01 - xs( 23) = 0.1003154357014869D+00 - xs( 24) = 0.1089623516861469D+00 - xs( 25) = 0.1177944014422586D+00 - xs( 26) = 0.1267981389980912D+00 - xs( 27) = 0.1359621745956054D+00 - xs( 28) = 0.1452769072927556D+00 - xs( 29) = 0.1547342989819287D+00 - xs( 30) = 0.1643276895460911D+00 - xs( 31) = 0.1740516507775880D+00 - xs( 32) = 0.1839018763023441D+00 - xs( 33) = 0.1938751015146957D+00 - xs( 34) = 0.2039690501492810D+00 - xs( 35) = 0.2141824371642748D+00 - xs( 36) = 0.2245149620662000D+00 - xs( 37) = 0.2349669827027368D+00 - xs( 38) = 0.2455410383761042D+00 - xs( 39) = 0.2562355512734403D+00 - xs( 40) = 0.2670681403600029D+00 - xs( 41) = 0.2780542062864600D+00 - xs( 42) = 0.2889631613533825D+00 - xs( 43) = 0.2996856689195676D+00 - ws( 1) = 0.1970503346465254D-03 - ws( 2) = 0.4706061681106612D-03 - ws( 3) = 0.7670618759512129D-03 - ws( 4) = 0.1089829080214670D-02 - ws( 5) = 0.1440899541404072D-02 - ws( 6) = 0.1822654520528000D-02 - ws( 7) = 0.2237243675469636D-02 - ws( 8) = 0.2685071101291252D-02 - ws( 9) = 0.3163358895196394D-02 - ws( 10) = 0.3665374623365236D-02 - ws( 11) = 0.4180739038890935D-02 - ws( 12) = 0.4696846671261493D-02 - ws( 13) = 0.5200931919548433D-02 - ws( 14) = 0.5682040828432084D-02 - ws( 15) = 0.6132301378598939D-02 - ws( 16) = 0.6547285055153127D-02 - ws( 17) = 0.6925633466724430D-02 - ws( 18) = 0.7268298328243450D-02 - ws( 19) = 0.7577713179163702D-02 - ws( 20) = 0.7857089181096713D-02 - ws( 21) = 0.8109904392933059D-02 - ws( 22) = 0.8339578591400634D-02 - ws( 23) = 0.8549293046013545D-02 - ws( 24) = 0.8741909930276041D-02 - ws( 25) = 0.8919953712552121D-02 - ws( 26) = 0.9085627539263902D-02 - ws( 27) = 0.9240847113226059D-02 - ws( 28) = 0.9387281521326146D-02 - ws( 29) = 0.9526394983571676D-02 - ws( 30) = 0.9659485989547904D-02 - ws( 31) = 0.9787723804652003D-02 - ws( 32) = 0.9912182234988241D-02 - ws( 33) = 0.1003390430993957D-01 - ws( 34) = 0.1015381154944131D-01 - ws( 35) = 0.1027294576809217D-01 - ws( 36) = 0.1039246113559860D-01 - ws( 37) = 0.1051276866430297D-01 - ws( 38) = 0.1063772454913719D-01 - ws( 39) = 0.1075547922576022D-01 - ws( 40) = 0.1086782644047368D-01 - ws( 41) = 0.1115064100234499D-01 - ws( 42) = 0.1179153911538149D-01 - ws( 43) = 0.9296178690331662D-02 - endif - - - if( iquad .eq. 97 ) then - idomain = 97 - rk0r = 0.3141592653590793D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 43 - err = 0.1753626312981918D-12 - ierq = 4 - xs( 1) = 0.1263076494525646D-03 - xs( 2) = 0.6663972181023005D-03 - xs( 3) = 0.1641536836898963D-02 - xs( 4) = 0.3057305693302560D-02 - xs( 5) = 0.4920240972904335D-02 - xs( 6) = 0.7236848864077858D-02 - xs( 7) = 0.1001235407591359D-01 - xs( 8) = 0.1324947728383945D-01 - xs( 9) = 0.1694740895391068D-01 - xs( 10) = 0.2110112555440411D-01 - xs( 11) = 0.2570114229617372D-01 - xs( 12) = 0.3073371519571025D-01 - xs( 13) = 0.3618142175752181D-01 - xs( 14) = 0.4202399313338442D-01 - xs( 15) = 0.4823925415464660D-01 - xs( 16) = 0.5480404558428890D-01 - xs( 17) = 0.6169504000354656D-01 - xs( 18) = 0.6888940356622787D-01 - xs( 19) = 0.7636529022037154D-01 - xs( 20) = 0.8410217866772154D-01 - xs( 21) = 0.9208107541734593D-01 - xs( 22) = 0.1002846121169956D+00 - xs( 23) = 0.1086970647955678D+00 - xs( 24) = 0.1173043192079929D+00 - xs( 25) = 0.1260938019497211D+00 - xs( 26) = 0.1350543924524595D+00 - xs( 27) = 0.1441763269329017D+00 - xs( 28) = 0.1534511019488557D+00 - xs( 29) = 0.1628713830338705D+00 - xs( 30) = 0.1724309212746003D+00 - xs( 31) = 0.1821244750626178D+00 - xs( 32) = 0.1919477385881591D+00 - xs( 33) = 0.2018972751405558D+00 - xs( 34) = 0.2119703553860860D+00 - xs( 35) = 0.2221648813045060D+00 - xs( 36) = 0.2324792934809528D+00 - xs( 37) = 0.2429100862374342D+00 - xs( 38) = 0.2534538070964624D+00 - xs( 39) = 0.2641168830009882D+00 - xs( 40) = 0.2749210013931925D+00 - xs( 41) = 0.2858245792423238D+00 - xs( 42) = 0.2962360429590017D+00 - xs( 43) = 0.3155109832289880D+00 - ws( 1) = 0.3242491714047870D-03 - ws( 2) = 0.7567870317843069D-03 - ws( 3) = 0.1194421080322513D-02 - ws( 4) = 0.1638224689836369D-02 - ws( 5) = 0.2088751534752863D-02 - ws( 6) = 0.2545355805679931D-02 - ws( 7) = 0.3006125529872884D-02 - ws( 8) = 0.3467997598028413D-02 - ws( 9) = 0.3927032639165687D-02 - ws( 10) = 0.4378816215377628D-02 - ws( 11) = 0.4818916606125627D-02 - ws( 12) = 0.5243311218119494D-02 - ws( 13) = 0.5648707790246343D-02 - ws( 14) = 0.6032723517204503D-02 - ws( 15) = 0.6393924943652546D-02 - ws( 16) = 0.6731758955891435D-02 - ws( 17) = 0.7046416033305916D-02 - ws( 18) = 0.7338664526133270D-02 - ws( 19) = 0.7609685250236487D-02 - ws( 20) = 0.7860924506310103D-02 - ws( 21) = 0.8093974001903335D-02 - ws( 22) = 0.8310479346053553D-02 - ws( 23) = 0.8512074772752686D-02 - ws( 24) = 0.8700339885373377D-02 - ws( 25) = 0.8876773714952614D-02 - ws( 26) = 0.9042781759710383D-02 - ws( 27) = 0.9199672538505062D-02 - ws( 28) = 0.9348660403688853D-02 - ws( 29) = 0.9490872316368901D-02 - ws( 30) = 0.9627363489803807D-02 - ws( 31) = 0.9759138065840590D-02 - ws( 32) = 0.9887139378240102D-02 - ws( 33) = 0.1001231457706213D-01 - ws( 34) = 0.1013544855208435D-01 - ws( 35) = 0.1025631405107852D-01 - ws( 36) = 0.1037420798418076D-01 - ws( 37) = 0.1048127171195157D-01 - ws( 38) = 0.1053752464823499D-01 - ws( 39) = 0.1047418356464944D-01 - ws( 40) = 0.1030390878094582D-01 - ws( 41) = 0.1038230618319482D-01 - ws( 42) = 0.8809752892636543D-02 - ws( 43) = -.7920689642654535D-02 - endif - - - if( iquad .eq. 98 ) then - idomain = 98 - rk0r = 0.3141592653590793D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 41 - err = 0.4365595620587310D-13 - ierq = 0 - xs( 1) = 0.3616929745286984D-04 - xs( 2) = 0.4167619016205314D-03 - xs( 3) = 0.1292756024542742D-02 - xs( 4) = 0.2664673633741658D-02 - xs( 5) = 0.4526983380513343D-02 - xs( 6) = 0.6871883792169925D-02 - xs( 7) = 0.9689440970468427D-02 - xs( 8) = 0.1296766678478324D-01 - xs( 9) = 0.1669265459320943D-01 - xs( 10) = 0.2084878750504767D-01 - xs( 11) = 0.2541901328766486D-01 - xs( 12) = 0.3038516867521538D-01 - xs( 13) = 0.3572833000627104D-01 - xs( 14) = 0.4142916617340064D-01 - xs( 15) = 0.4746827267468146D-01 - xs( 16) = 0.5382647061659307D-01 - xs( 17) = 0.6048506039839729D-01 - xs( 18) = 0.6742602540705592D-01 - xs( 19) = 0.7463218568246892D-01 - xs( 20) = 0.8208730487420472D-01 - xs( 21) = 0.8977615589500031D-01 - xs( 22) = 0.9768455163114696D-01 - xs( 23) = 0.1057993471156843D+00 - xs( 24) = 0.1141084190370368D+00 - xs( 25) = 0.1226006277288150D+00 - xs( 26) = 0.1312657652444447D+00 - xs( 27) = 0.1400944902581915D+00 - xs( 28) = 0.1490782509402415D+00 - xs( 29) = 0.1582091981399897D+00 - xs( 30) = 0.1674800718561401D+00 - xs( 31) = 0.1768840447666050D+00 - xs( 32) = 0.1864145136711081D+00 - xs( 33) = 0.1960645935416606D+00 - xs( 34) = 0.2058269466394874D+00 - xs( 35) = 0.2156949225168825D+00 - xs( 36) = 0.2256552500933122D+00 - xs( 37) = 0.2356836719017923D+00 - xs( 38) = 0.2457831960090924D+00 - xs( 39) = 0.2558337288872461D+00 - xs( 40) = 0.2653790573263801D+00 - xs( 41) = 0.2742208724361282D+00 - ws( 1) = 0.1448617970521434D-03 - ws( 2) = 0.6269101620791615D-03 - ws( 3) = 0.1124669452949081D-02 - ws( 4) = 0.1618233126933913D-02 - ws( 5) = 0.2105085022085327D-02 - ws( 6) = 0.2583058981298834D-02 - ws( 7) = 0.3050055117000946D-02 - ws( 8) = 0.3504075250380929D-02 - ws( 9) = 0.3943292926368664D-02 - ws( 10) = 0.4366125396455217D-02 - ws( 11) = 0.4771293055125701D-02 - ws( 12) = 0.5157857842482063D-02 - ws( 13) = 0.5525237362063736D-02 - ws( 14) = 0.5873195880845884D-02 - ws( 15) = 0.6201816400878740D-02 - ws( 16) = 0.6511459488963495D-02 - ws( 17) = 0.6802714753839906D-02 - ws( 18) = 0.7076350167098501D-02 - ws( 19) = 0.7333263246214997D-02 - ws( 20) = 0.7574436794582040D-02 - ws( 21) = 0.7800900683566783D-02 - ws( 22) = 0.8013700224533979D-02 - ws( 23) = 0.8213870847470314D-02 - ws( 24) = 0.8402417809620720D-02 - ws( 25) = 0.8580299865739801D-02 - ws( 26) = 0.8748418024326552D-02 - ws( 27) = 0.8907605743328380D-02 - ws( 28) = 0.9058607613349666D-02 - ws( 29) = 0.9202064392212890D-02 - ws( 30) = 0.9338526377927283D-02 - ws( 31) = 0.9468413114517463D-02 - ws( 32) = 0.9592020001865674D-02 - ws( 33) = 0.9708850086453620D-02 - ws( 34) = 0.9814360350511080D-02 - ws( 35) = 0.9908240904602170D-02 - ws( 36) = 0.1000350108976657D-01 - ws( 37) = 0.1005088825039993D-01 - ws( 38) = 0.1008873653792461D-01 - ws( 39) = 0.1051878097323326D-01 - ws( 40) = 0.9985983306929411D-02 - ws( 41) = 0.5321045805652044D-02 - endif - - - if( iquad .eq. 99 ) then - idomain = 99 - rk0r = 0.3141592653590793D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.6283185307178586D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 37 - err = 0.5160947932371996D-13 - ierq = 0 - xs( 1) = 0.1387282746753626D-03 - xs( 2) = 0.7301709109307651D-03 - xs( 3) = 0.1791072317121709D-02 - xs( 4) = 0.3316400720042096D-02 - xs( 5) = 0.5298836658134324D-02 - xs( 6) = 0.7729192205166325D-02 - xs( 7) = 0.1059667574103000D-01 - xs( 8) = 0.1388913746369686D-01 - xs( 9) = 0.1759329941102475D-01 - xs( 10) = 0.2169497174478904D-01 - xs( 11) = 0.2617925915101251D-01 - xs( 12) = 0.3103076059288807D-01 - xs( 13) = 0.3623376319760969D-01 - xs( 14) = 0.4177242837632616D-01 - xs( 15) = 0.4763096646523061D-01 - xs( 16) = 0.5379379560185787D-01 - xs( 17) = 0.6024568101181969D-01 - xs( 18) = 0.6697185192095872D-01 - xs( 19) = 0.7395809452590005D-01 - xs( 20) = 0.8119082068305848D-01 - xs( 21) = 0.8865711303272357D-01 - xs( 22) = 0.9634474566197197D-01 - xs( 23) = 0.1042421773975373D+00 - xs( 24) = 0.1123385228975101D+00 - xs( 25) = 0.1206235086763793D+00 - xs( 26) = 0.1290873468173167D+00 - xs( 27) = 0.1377205159567371D+00 - xs( 28) = 0.1465135990855422D+00 - xs( 29) = 0.1554571084431579D+00 - xs( 30) = 0.1645385309379642D+00 - xs( 31) = 0.1737393073004735D+00 - xs( 32) = 0.1830420811599356D+00 - xs( 33) = 0.1924270845528104D+00 - xs( 34) = 0.2018124902163003D+00 - xs( 35) = 0.2110424458181932D+00 - xs( 36) = 0.2200083284174114D+00 - xs( 37) = 0.2371418155760843D+00 - ws( 1) = 0.3559322293834263D-03 - ws( 2) = 0.8267781106798893D-03 - ws( 3) = 0.1294164660861685D-02 - ws( 4) = 0.1755267066968461D-02 - ws( 5) = 0.2208069144217895D-02 - ws( 6) = 0.2650839251931594D-02 - ws( 7) = 0.3082099023269121D-02 - ws( 8) = 0.3500607831756662D-02 - ws( 9) = 0.3905347655156177D-02 - ws( 10) = 0.4295511132234470D-02 - ws( 11) = 0.4670493610160593D-02 - ws( 12) = 0.5029887364011003D-02 - ws( 13) = 0.5373475171816537D-02 - ws( 14) = 0.5701220903650609D-02 - ws( 15) = 0.6013255907028604D-02 - ws( 16) = 0.6309861168591464D-02 - ws( 17) = 0.6591446128274175D-02 - ws( 18) = 0.6858525429778876D-02 - ws( 19) = 0.7111694550520485D-02 - ws( 20) = 0.7351604549838963D-02 - ws( 21) = 0.7578938594723353D-02 - ws( 22) = 0.7794395133759312D-02 - ws( 23) = 0.7998659336643628D-02 - ws( 24) = 0.8192343039530094D-02 - ws( 25) = 0.8375989526176103D-02 - ws( 26) = 0.8550148510035145D-02 - ws( 27) = 0.8715038268499620D-02 - ws( 28) = 0.8870041065444634D-02 - ws( 29) = 0.9015957816254805D-02 - ws( 30) = 0.9155720530742156D-02 - ws( 31) = 0.9264038683114022D-02 - ws( 32) = 0.9275834926634524D-02 - ws( 33) = 0.9160829101181451D-02 - ws( 34) = 0.8825957885971018D-02 - ws( 35) = 0.7499571061094214D-02 - ws( 36) = 0.4255443301359372D-02 - ws( 37) = -.1722756744583654D-02 - endif - - - if( iquad .eq. 100 ) then - idomain = 100 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 50 - err = 0.2429876936946360D-12 - ierq = 4 - xs( 1) = 0.1229809247538630D-04 - xs( 2) = 0.6505525915452044D-04 - xs( 3) = 0.1610342496604907D-03 - xs( 4) = 0.3021414791485056D-03 - xs( 5) = 0.4912408597539964D-03 - xs( 6) = 0.7323295373899834D-03 - xs( 7) = 0.1030763554844098D-02 - xs( 8) = 0.1393563258697363D-02 - xs( 9) = 0.1829823121585531D-02 - xs( 10) = 0.2351259099991840D-02 - xs( 11) = 0.2972937849343646D-02 - xs( 12) = 0.3714244864198701D-02 - xs( 13) = 0.4600160475690693D-02 - xs( 14) = 0.5662917034384821D-02 - xs( 15) = 0.6944091872859284D-02 - xs( 16) = 0.8497114901351445D-02 - xs( 17) = 0.1038996924016329D-01 - xs( 18) = 0.1270741486813719D-01 - xs( 19) = 0.1555118149630606D-01 - xs( 20) = 0.1903512560980612D-01 - xs( 21) = 0.2327091072768271D-01 - xs( 22) = 0.2834133394848173D-01 - xs( 23) = 0.3426824464849161D-01 - xs( 24) = 0.4099639982122167D-01 - xs( 25) = 0.4841058339757305D-01 - xs( 26) = 0.5637448102835929D-01 - xs( 27) = 0.6476388869870152D-01 - xs( 28) = 0.7348124466547595D-01 - xs( 29) = 0.8245595115088059D-01 - xs( 30) = 0.9163892355036193D-01 - xs( 31) = 0.1009965067178833D+00 - xs( 32) = 0.1105055968306968D+00 - xs( 33) = 0.1201501952946153D+00 - xs( 34) = 0.1299191116711584D+00 - xs( 35) = 0.1398044751888085D+00 - xs( 36) = 0.1498007858149830D+00 - xs( 37) = 0.1599043196204848D+00 - xs( 38) = 0.1701127689415030D+00 - xs( 39) = 0.1804250443089831D+00 - xs( 40) = 0.1908411959111368D+00 - xs( 41) = 0.2013624331263422D+00 - xs( 42) = 0.2119912687881738D+00 - xs( 43) = 0.2227317122820968D+00 - xs( 44) = 0.2335898101907448D+00 - xs( 45) = 0.2445745383981889D+00 - xs( 46) = 0.2556983798537893D+00 - xs( 47) = 0.2669831595069448D+00 - xs( 48) = 0.2784646281722628D+00 - xs( 49) = 0.2902597927199927D+00 - xs( 50) = 0.3026736542509205D+00 - ws( 1) = 0.3159010228018927D-04 - ws( 2) = 0.7412128158029434D-04 - ws( 3) = 0.1181510954237692D-03 - ws( 4) = 0.1645379447047215D-03 - ws( 5) = 0.2143232943916114D-03 - ws( 6) = 0.2687417013409206D-03 - ws( 7) = 0.3292896388530267D-03 - ws( 8) = 0.3978164964812318D-03 - ws( 9) = 0.4766438710786797D-03 - ws( 10) = 0.5687232257924402D-03 - ws( 11) = 0.6778441045939624D-03 - ws( 12) = 0.8089058442061949D-03 - ws( 13) = 0.9682625496139965D-03 - ws( 14) = 0.1164137895101729D-02 - ws( 15) = 0.1407070331935620D-02 - ws( 16) = 0.1710265742775777D-02 - ws( 17) = 0.2089559387641754D-02 - ws( 18) = 0.2562356104885525D-02 - ws( 19) = 0.3144381379147199D-02 - ws( 20) = 0.3842574347113009D-02 - ws( 21) = 0.4643388920448940D-02 - ws( 22) = 0.5501425276160693D-02 - ws( 23) = 0.6342868364995278D-02 - ws( 24) = 0.7093508871558583D-02 - ws( 25) = 0.7711555912124098D-02 - ws( 26) = 0.8195314493066383D-02 - ws( 27) = 0.8567257801962113D-02 - ws( 28) = 0.8855790424191261D-02 - ws( 29) = 0.9085546764541248D-02 - ws( 30) = 0.9274870267191503D-02 - ws( 31) = 0.9436502039683495D-02 - ws( 32) = 0.9579049191210540D-02 - ws( 33) = 0.9708306834486537D-02 - ws( 34) = 0.9828229504948575D-02 - ws( 35) = 0.9941590493968224D-02 - ws( 36) = 0.1005041605697033D-01 - ws( 37) = 0.1015627067674574D-01 - ws( 38) = 0.1026044885701735D-01 - ws( 39) = 0.1036411005852368D-01 - ws( 40) = 0.1046839035009382D-01 - ws( 41) = 0.1057448187237092D-01 - ws( 42) = 0.1068376778579529D-01 - ws( 43) = 0.1079825950534830D-01 - ws( 44) = 0.1091955128790786D-01 - ws( 45) = 0.1105090894403602D-01 - ws( 46) = 0.1119982358950977D-01 - ws( 47) = 0.1138257579605134D-01 - ws( 48) = 0.1159257026361831D-01 - ws( 49) = 0.1185579947342145D-01 - ws( 50) = 0.1845729769215434D-01 - endif - - - if( iquad .eq. 101 ) then - idomain = 101 - rk0r = 0.6283185307180586D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 50 - err = 0.1135370988812535D-12 - ierq = 4 - xs( 1) = 0.1269282252139319D-04 - xs( 2) = 0.6714099111217040D-04 - xs( 3) = 0.1661865495928526D-03 - xs( 4) = 0.3117789247711649D-03 - xs( 5) = 0.5068447161960508D-03 - xs( 6) = 0.7554655320208999D-03 - xs( 7) = 0.1063105698121522D-02 - xs( 8) = 0.1436919977562003D-02 - xs( 9) = 0.1886165781546983D-02 - xs( 10) = 0.2422752600110544D-02 - xs( 11) = 0.3061972287370005D-02 - xs( 12) = 0.3823466085376085D-02 - xs( 13) = 0.4732495276422767D-02 - xs( 14) = 0.5821585225104704D-02 - xs( 15) = 0.7132591044445776D-02 - xs( 16) = 0.8719152193370668D-02 - xs( 17) = 0.1064929363648579D-01 - xs( 18) = 0.1300746899378194D-01 - xs( 19) = 0.1589444760652100D-01 - xs( 20) = 0.1942203135329208D-01 - xs( 21) = 0.2369833317130675D-01 - xs( 22) = 0.2880130453877634D-01 - xs( 23) = 0.3474814888055240D-01 - xs( 24) = 0.4148146700974846D-01 - xs( 25) = 0.4888737135426080D-01 - xs( 26) = 0.5683309152177472D-01 - xs( 27) = 0.6519819747851945D-01 - xs( 28) = 0.7388799776160891D-01 - xs( 29) = 0.8283368172391543D-01 - xs( 30) = 0.9198711619184534D-01 - xs( 31) = 0.1013150624671339D+00 - xs( 32) = 0.1107945234173483D+00 - xs( 33) = 0.1204094378393191D+00 - xs( 34) = 0.1301484620348869D+00 - xs( 35) = 0.1400035208919212D+00 - xs( 36) = 0.1499688750004667D+00 - xs( 37) = 0.1600405274304544D+00 - xs( 38) = 0.1702158556067445D+00 - xs( 39) = 0.1804933962510863D+00 - xs( 40) = 0.1908727401760203D+00 - xs( 41) = 0.2013545073215775D+00 - xs( 42) = 0.2119404341334289D+00 - xs( 43) = 0.2226334767362413D+00 - xs( 44) = 0.2334380682477322D+00 - xs( 45) = 0.2443609012685392D+00 - xs( 46) = 0.2554111497219862D+00 - xs( 47) = 0.2666054705996809D+00 - xs( 48) = 0.2779642695292849D+00 - xs( 49) = 0.2894696623873603D+00 - xs( 50) = 0.3011507932296654D+00 - ws( 1) = 0.3260378134387718D-04 - ws( 2) = 0.7649438567439042D-04 - ws( 3) = 0.1219182260691015D-03 - ws( 4) = 0.1697515236137166D-03 - ws( 5) = 0.2210565801176378D-03 - ws( 6) = 0.2770907001646510D-03 - ws( 7) = 0.3393752993648441D-03 - ws( 8) = 0.4097871074642189D-03 - ws( 9) = 0.4906773773608749D-03 - ws( 10) = 0.5850289469269006D-03 - ws( 11) = 0.6966629649152670D-03 - ws( 12) = 0.8305075801474146D-03 - ws( 13) = 0.9929372375199002D-03 - ws( 14) = 0.1192177120006009D-02 - ws( 15) = 0.1438729569543317D-02 - ws( 16) = 0.1745692610391964D-02 - ws( 17) = 0.2128660689585960D-02 - ws( 18) = 0.2604561832816093D-02 - ws( 19) = 0.3188265233049516D-02 - ws( 20) = 0.3885376941025113D-02 - ws( 21) = 0.4680786588898807D-02 - ws( 22) = 0.5528304815147033D-02 - ws( 23) = 0.6355476929383462D-02 - ws( 24) = 0.7091474186409374D-02 - ws( 25) = 0.7697660204507591D-02 - ws( 26) = 0.8173502803219356D-02 - ws( 27) = 0.8540945866677063D-02 - ws( 28) = 0.8827283848717525D-02 - ws( 29) = 0.9056161610995152D-02 - ws( 30) = 0.9245245223023803D-02 - ws( 31) = 0.9406868805233306D-02 - ws( 32) = 0.9549412407685014D-02 - ws( 33) = 0.9678549357342482D-02 - ws( 34) = 0.9798168307394814D-02 - ws( 35) = 0.9911002438513306D-02 - ws( 36) = 0.1001904562767347D-01 - ws( 37) = 0.1012382604732879D-01 - ws( 38) = 0.1022658859589834D-01 - ws( 39) = 0.1032842348301256D-01 - ws( 40) = 0.1043036283799709D-01 - ws( 41) = 0.1053346617492265D-01 - ws( 42) = 0.1063886616650699D-01 - ws( 43) = 0.1074812216065656D-01 - ws( 44) = 0.1086246730892247D-01 - ws( 45) = 0.1098448851313949D-01 - ws( 46) = 0.1111716674280709D-01 - ws( 47) = 0.1128078989233052D-01 - ws( 48) = 0.1157007196298709D-01 - ws( 49) = 0.1187013820986714D-01 - ws( 50) = 0.1296963880407190D-01 - endif - - - if( iquad .eq. 102 ) then - idomain = 102 - rk0r = 0.6283185307180586D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 49 - err = 0.1804865205531403D-12 - ierq = 4 - xs( 1) = 0.1372059331202690D-04 - xs( 2) = 0.7258766451282401D-04 - xs( 3) = 0.1797128235571778D-03 - xs( 4) = 0.3372757729074933D-03 - xs( 5) = 0.5485485332794194D-03 - xs( 6) = 0.8180938336500962D-03 - xs( 7) = 0.1152022225835843D-02 - xs( 8) = 0.1558342747565906D-02 - xs( 9) = 0.2047436452464704D-02 - xs( 10) = 0.2632691751431783D-02 - xs( 11) = 0.3331352867049326D-02 - xs( 12) = 0.4165645553945002D-02 - xs( 13) = 0.5164252758463930D-02 - xs( 14) = 0.6364205147538006D-02 - xs( 15) = 0.7813200860180596D-02 - xs( 16) = 0.9572221595632840D-02 - xs( 17) = 0.1171797002490237D-01 - xs( 18) = 0.1434396474763340D-01 - xs( 19) = 0.1755795106252856D-01 - xs( 20) = 0.2147185904411926D-01 - xs( 21) = 0.2618063298127154D-01 - xs( 22) = 0.3173216630888991D-01 - xs( 23) = 0.3810358775625676D-01 - xs( 24) = 0.4520443043125345D-01 - xs( 25) = 0.5290759738215495D-01 - xs( 26) = 0.6108537711743896D-01 - xs( 27) = 0.6963097793112349D-01 - xs( 28) = 0.7846397248651184D-01 - xs( 29) = 0.8752702776551070D-01 - xs( 30) = 0.9678022593792222D-01 - xs( 31) = 0.1061959010835612D+00 - xs( 32) = 0.1157547637922778D+00 - xs( 33) = 0.1254432244592802D+00 - xs( 34) = 0.1352516152915507D+00 - xs( 35) = 0.1451730312534249D+00 - xs( 36) = 0.1552025828411525D+00 - xs( 37) = 0.1653369207127313D+00 - xs( 38) = 0.1755739421650482D+00 - xs( 39) = 0.1859126214030417D+00 - xs( 40) = 0.1963529338194830D+00 - xs( 41) = 0.2068958482096553D+00 - xs( 42) = 0.2175434294231071D+00 - xs( 43) = 0.2282988462269111D+00 - xs( 44) = 0.2391666376546823D+00 - xs( 45) = 0.2501529373330388D+00 - xs( 46) = 0.2612650586157241D+00 - xs( 47) = 0.2725200280468732D+00 - xs( 48) = 0.2838994219529489D+00 - xs( 49) = 0.2950714133369917D+00 - ws( 1) = 0.3524494332450863D-04 - ws( 2) = 0.8271393279800226D-04 - ws( 3) = 0.1318959349222780D-03 - ws( 4) = 0.1837722107903725D-03 - ws( 5) = 0.2395295367388208D-03 - ws( 6) = 0.3005737125321531D-03 - ws( 7) = 0.3686101110407822D-03 - ws( 8) = 0.4457506407623941D-03 - ws( 9) = 0.5346541839408992D-03 - ws( 10) = 0.6387118675886892D-03 - ws( 11) = 0.7622902314658855D-03 - ws( 12) = 0.9110441938830837D-03 - ws( 13) = 0.1092303086933084D-02 - ws( 14) = 0.1315506783623076D-02 - ws( 15) = 0.1592605074136399D-02 - ws( 16) = 0.1938196543712241D-02 - ws( 17) = 0.2368920578104941D-02 - ws( 18) = 0.2901182760249945D-02 - ws( 19) = 0.3545798746219481D-02 - ws( 20) = 0.4298380441533680D-02 - ws( 21) = 0.5127608071782013D-02 - ws( 22) = 0.5971599317164854D-02 - ws( 23) = 0.6755579206331967D-02 - ws( 24) = 0.7424270403349730D-02 - ws( 25) = 0.7960421707074387D-02 - ws( 26) = 0.8377270300304425D-02 - ws( 27) = 0.8700596676426666D-02 - ws( 28) = 0.8955937826073769D-02 - ws( 29) = 0.9163607123317962D-02 - ws( 30) = 0.9338242380612732D-02 - ws( 31) = 0.9489936834714599D-02 - ws( 32) = 0.9625552609590280D-02 - ws( 33) = 0.9749776265031342D-02 - ws( 34) = 0.9865866700782667D-02 - ws( 35) = 0.9976158036681738D-02 - ws( 36) = 0.1008239166437328D-01 - ws( 37) = 0.1018593599576843D-01 - ws( 38) = 0.1028793704894406D-01 - ws( 39) = 0.1038942347682328D-01 - ws( 40) = 0.1049137967019138D-01 - ws( 41) = 0.1059480816865719D-01 - ws( 42) = 0.1070089089685880D-01 - ws( 43) = 0.1081126653549382D-01 - ws( 44) = 0.1092725910088950D-01 - ws( 45) = 0.1105304422812652D-01 - ws( 46) = 0.1118447110388482D-01 - ws( 47) = 0.1137203214061607D-01 - ws( 48) = 0.1170191936480733D-01 - ws( 49) = 0.1140864590227139D-01 - endif - - - if( iquad .eq. 103 ) then - idomain = 103 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 49 - err = 0.1644083989176078D-12 - ierq = 4 - xs( 1) = 0.1224918058776508D-04 - xs( 2) = 0.6592416615127168D-04 - xs( 3) = 0.1668539655170669D-03 - xs( 4) = 0.3197748622739925D-03 - xs( 5) = 0.5293472005687672D-03 - xs( 6) = 0.8006994931306029D-03 - xs( 7) = 0.1140076785620746D-02 - xs( 8) = 0.1555395804619402D-02 - xs( 9) = 0.2056795726636005D-02 - xs( 10) = 0.2657281873254961D-02 - xs( 11) = 0.3373540691448765D-02 - xs( 12) = 0.4226999681286870D-02 - xs( 13) = 0.5245208052262711D-02 - xs( 14) = 0.6463607770755816D-02 - xs( 15) = 0.7927724474066023D-02 - xs( 16) = 0.9695682459301727D-02 - xs( 17) = 0.1184064052356302D-01 - xs( 18) = 0.1445209841433508D-01 - xs( 19) = 0.1763388068034998D-01 - xs( 20) = 0.2149517834739123D-01 - xs( 21) = 0.2613096512784490D-01 - xs( 22) = 0.3159339128979542D-01 - xs( 23) = 0.3786784668688822D-01 - xs( 24) = 0.4487331648661335D-01 - xs( 25) = 0.5248986324161236D-01 - xs( 26) = 0.6059319505019266D-01 - xs( 27) = 0.6907692789029683D-01 - xs( 28) = 0.7785942317940911D-01 - xs( 29) = 0.8688157592072533D-01 - xs( 30) = 0.9610169564628432D-01 - xs( 31) = 0.1054905656730037D+00 - xs( 32) = 0.1150276189865977D+00 - xs( 33) = 0.1246982418071252D+00 - xs( 34) = 0.1344919535228650D+00 - xs( 35) = 0.1444012036018607D+00 - xs( 36) = 0.1544205854712154D+00 - xs( 37) = 0.1645463287740473D+00 - xs( 38) = 0.1747759794561646D+00 - xs( 39) = 0.1851082090003233D+00 - xs( 40) = 0.1955427176765430D+00 - xs( 41) = 0.2060802014629368D+00 - xs( 42) = 0.2167223994939649D+00 - xs( 43) = 0.2274722159733784D+00 - xs( 44) = 0.2383338027328231D+00 - xs( 45) = 0.2493131391019437D+00 - xs( 46) = 0.2604177189270040D+00 - xs( 47) = 0.2716555666500782D+00 - xs( 48) = 0.2830126549067642D+00 - xs( 49) = 0.2941098859788412D+00 - ws( 1) = 0.3161013577246242D-04 - ws( 2) = 0.7650194710126526D-04 - ws( 3) = 0.1261525983464454D-03 - ws( 4) = 0.1804543140807876D-03 - ws( 5) = 0.2395341727907795D-03 - ws( 6) = 0.3042022888573400D-03 - ws( 7) = 0.3758628005379753D-03 - ws( 8) = 0.4564545512267983D-03 - ws( 9) = 0.5484994358984875D-03 - ws( 10) = 0.6552364493987627D-03 - ws( 11) = 0.7808296037345529D-03 - ws( 12) = 0.9306504940410144D-03 - ws( 13) = 0.1111636566287628D-02 - ws( 14) = 0.1332707731858546D-02 - ws( 15) = 0.1605170172585419D-02 - ws( 16) = 0.1942912137503513D-02 - ws( 17) = 0.2361945289451673D-02 - ws( 18) = 0.2878413038522045D-02 - ws( 19) = 0.3503676217149814D-02 - ws( 20) = 0.4235258638571117D-02 - ws( 21) = 0.5045465018535587D-02 - ws( 22) = 0.5876957500879885D-02 - ws( 23) = 0.6657930836347810D-02 - ws( 24) = 0.7332389825572492D-02 - ws( 25) = 0.7879615001992477D-02 - ws( 26) = 0.8309223543739166D-02 - ws( 27) = 0.8644687858755168D-02 - ws( 28) = 0.8910543944075111D-02 - ws( 29) = 0.9126897192088536D-02 - ws( 30) = 0.9308536330722917D-02 - ws( 31) = 0.9465820145479713D-02 - ws( 32) = 0.9605880552244339D-02 - ws( 33) = 0.9733637904269881D-02 - ws( 34) = 0.9852539890999362D-02 - ws( 35) = 0.9965067487550362D-02 - ws( 36) = 0.1007307323558101D-01 - ws( 37) = 0.1017800785606028D-01 - ws( 38) = 0.1028107293346719D-01 - ws( 39) = 0.1038333642190199D-01 - ws( 40) = 0.1048580504296986D-01 - ws( 41) = 0.1058951584166790D-01 - ws( 42) = 0.1069544840525430D-01 - ws( 43) = 0.1080488082621821D-01 - ws( 44) = 0.1091867358938620D-01 - ws( 45) = 0.1104122226451135D-01 - ws( 46) = 0.1117779929742740D-01 - ws( 47) = 0.1134690202111215D-01 - ws( 48) = 0.1175112885352238D-01 - ws( 49) = 0.1117450845130869D-01 - endif - - - if( iquad .eq. 104 ) then - idomain = 104 - rk0r = 0.6283185307180586D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 48 - err = 0.2160124753818519D-12 - ierq = 4 - xs( 1) = 0.1848903063367113D-04 - xs( 2) = 0.9779674309895940D-04 - xs( 3) = 0.2420444589320854D-03 - xs( 4) = 0.4540317567541781D-03 - xs( 5) = 0.7379489690254977D-03 - xs( 6) = 0.1099620182978030D-02 - xs( 7) = 0.1546813217862491D-02 - xs( 8) = 0.2089658357732124D-02 - xs( 9) = 0.2741207392299878D-02 - xs( 10) = 0.3518173576258736D-02 - xs( 11) = 0.4441904092579010D-02 - xs( 12) = 0.5539645172302082D-02 - xs( 13) = 0.6846157125345906D-02 - xs( 14) = 0.8405700917365476D-02 - xs( 15) = 0.1027430307975183D-01 - xs( 16) = 0.1252191936180642D-01 - xs( 17) = 0.1523350719264391D-01 - xs( 18) = 0.1850693816715178D-01 - xs( 19) = 0.2244438351125884D-01 - xs( 20) = 0.2713393731226981D-01 - xs( 21) = 0.3262339329836849D-01 - xs( 22) = 0.3889887780396787D-01 - xs( 23) = 0.4588549561449141D-01 - xs( 24) = 0.5347195300585533D-01 - xs( 25) = 0.6154159879837858D-01 - xs( 26) = 0.6999297931810022D-01 - xs( 27) = 0.7874681720031455D-01 - xs( 28) = 0.8774466024682021D-01 - xs( 29) = 0.9694456874654568D-01 - xs( 30) = 0.1063167043419048D+00 - xs( 31) = 0.1158397939582901D+00 - xs( 32) = 0.1254985671726275D+00 - xs( 33) = 0.1352819851376379D+00 - xs( 34) = 0.1451820444781870D+00 - xs( 35) = 0.1551929794749239D+00 - xs( 36) = 0.1653107357811603D+00 - xs( 37) = 0.1755326297478164D+00 - xs( 38) = 0.1858571373111556D+00 - xs( 39) = 0.1962837724232631D+00 - xs( 40) = 0.2068130449520942D+00 - xs( 41) = 0.2174464515038156D+00 - xs( 42) = 0.2281865142803095D+00 - xs( 43) = 0.2390369245590334D+00 - xs( 44) = 0.2500019185950159D+00 - xs( 45) = 0.2610854905995366D+00 - xs( 46) = 0.2722931202733729D+00 - xs( 47) = 0.2835945104314721D+00 - xs( 48) = 0.2946489295495260D+00 - ws( 1) = 0.4749189709757013D-04 - ws( 2) = 0.1114145349124522D-03 - ws( 3) = 0.1775427125391411D-03 - ws( 4) = 0.2471265066732518D-03 - ws( 5) = 0.3216734979137009D-03 - ws( 6) = 0.4029566602371161D-03 - ws( 7) = 0.4931085688874131D-03 - ws( 8) = 0.5947447999260528D-03 - ws( 9) = 0.7111227509095072D-03 - ws( 10) = 0.8463465431194633D-03 - ws( 11) = 0.1005628690541380D-02 - ws( 12) = 0.1195613585367137D-02 - ws( 13) = 0.1424748621509790D-02 - ws( 14) = 0.1703638503899744D-02 - ws( 15) = 0.2045202492401746D-02 - ws( 16) = 0.2464216058104970D-02 - ws( 17) = 0.2975405381883263D-02 - ws( 18) = 0.3588792522695264D-02 - ws( 19) = 0.4301249474856984D-02 - ws( 20) = 0.5086231734539454D-02 - ws( 21) = 0.5890364989498379D-02 - ws( 22) = 0.6647657240412475D-02 - ws( 23) = 0.7306465955759031D-02 - ws( 24) = 0.7846661138527262D-02 - ws( 25) = 0.8275621397590433D-02 - ws( 26) = 0.8613962738852638D-02 - ws( 27) = 0.8884049233065879D-02 - ws( 28) = 0.9104722308153354D-02 - ws( 29) = 0.9290180579430164D-02 - ws( 30) = 0.9450587293536709D-02 - ws( 31) = 0.9593075850442431D-02 - ws( 32) = 0.9722650292196445D-02 - ws( 33) = 0.9842864748492565D-02 - ws( 34) = 0.9956301599357589D-02 - ws( 35) = 0.1006489849298305D-01 - ws( 36) = 0.1017017112346906D-01 - ws( 37) = 0.1027336545581563D-01 - ws( 38) = 0.1037556945068694D-01 - ws( 39) = 0.1047778625168300D-01 - ws( 40) = 0.1058101077281325D-01 - ws( 41) = 0.1068633080254720D-01 - ws( 42) = 0.1079507137076919D-01 - ws( 43) = 0.1090840689208649D-01 - ws( 44) = 0.1103242837611857D-01 - ws( 45) = 0.1115185211871487D-01 - ws( 46) = 0.1130646367598433D-01 - ws( 47) = 0.1152654835647014D-01 - ws( 48) = 0.1075067289362878D-01 - endif - - - if( iquad .eq. 105 ) then - idomain = 105 - rk0r = 0.6283185307180586D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 47 - err = 0.2327833848017504D-12 - ierq = 4 - xs( 1) = 0.2535176761694577D-04 - xs( 2) = 0.1340786658383027D-03 - xs( 3) = 0.3317602588973463D-03 - xs( 4) = 0.6221012955337332D-03 - xs( 5) = 0.1010638898808614D-02 - xs( 6) = 0.1505050333559624D-02 - xs( 7) = 0.2115530647815660D-02 - xs( 8) = 0.2855285002379744D-02 - xs( 9) = 0.3741160973607009D-02 - xs( 10) = 0.4794449815245385D-02 - xs( 11) = 0.6041886518504410D-02 - xs( 12) = 0.7516866720832738D-02 - xs( 13) = 0.9260855191239025D-02 - xs( 14) = 0.1132484803287157D-01 - xs( 15) = 0.1377050212971422D-01 - xs( 16) = 0.1667006818855950D-01 - xs( 17) = 0.2010352413926014D-01 - xs( 18) = 0.2415067691796352D-01 - xs( 19) = 0.2887688697614246D-01 - xs( 20) = 0.3431534237413170D-01 - xs( 21) = 0.4045472248908395D-01 - xs( 22) = 0.4724101404169061D-01 - xs( 23) = 0.5459286661529002D-01 - xs( 24) = 0.6242093810619830D-01 - xs( 25) = 0.7064229324115245D-01 - xs( 26) = 0.7918724678456339D-01 - xs( 27) = 0.8800056611452223D-01 - xs( 28) = 0.9703984789591508D-01 - xs( 29) = 0.1062730276671988D+00 - xs( 30) = 0.1156759839783195D+00 - xs( 31) = 0.1252305714036909D+00 - xs( 32) = 0.1349231211804797D+00 - xs( 33) = 0.1447433415174648D+00 - xs( 34) = 0.1546835283021583D+00 - xs( 35) = 0.1647380070034891D+00 - xs( 36) = 0.1749027450912894D+00 - xs( 37) = 0.1851750885831947D+00 - xs( 38) = 0.1955535897679065D+00 - xs( 39) = 0.2060379052547420D+00 - xs( 40) = 0.2166287560420554D+00 - xs( 41) = 0.2273278826286951D+00 - xs( 42) = 0.2381382201826241D+00 - xs( 43) = 0.2490635096267904D+00 - xs( 44) = 0.2601048552518216D+00 - xs( 45) = 0.2712618139298848D+00 - xs( 46) = 0.2824884903880060D+00 - xs( 47) = 0.2933424440815234D+00 - ws( 1) = 0.6511782139929627D-04 - ws( 2) = 0.1527231401675536D-03 - ws( 3) = 0.2432511386157611D-03 - ws( 4) = 0.3383490290950993D-03 - ws( 5) = 0.4399994878474576D-03 - ws( 6) = 0.5505144087720852D-03 - ws( 7) = 0.6726366116631109D-03 - ws( 8) = 0.8096667478978785D-03 - ws( 9) = 0.9656171233482193D-03 - ws( 10) = 0.1145396075124430D-02 - ws( 11) = 0.1355019519356677D-02 - ws( 12) = 0.1601826481507593D-02 - ws( 13) = 0.1894629055471346D-02 - ws( 14) = 0.2243630111109488D-02 - ws( 15) = 0.2659761830312654D-02 - ws( 16) = 0.3152826800495621D-02 - ws( 17) = 0.3727629800278292D-02 - ws( 18) = 0.4377888260681683D-02 - ws( 19) = 0.5080294870297026D-02 - ws( 20) = 0.5794697160353042D-02 - ws( 21) = 0.6474776944869825D-02 - ws( 22) = 0.7083901622888224D-02 - ws( 23) = 0.7604668350507271D-02 - ws( 24) = 0.8037544279182473D-02 - ws( 25) = 0.8393539060934558D-02 - ws( 26) = 0.8687194270913889D-02 - ws( 27) = 0.8932420782043711D-02 - ws( 28) = 0.9140839295893552D-02 - ws( 29) = 0.9321532808852203D-02 - ws( 30) = 0.9481380373009496D-02 - ws( 31) = 0.9625534464030500D-02 - ws( 32) = 0.9757862794915651D-02 - ws( 33) = 0.9881303168156995D-02 - ws( 34) = 0.9998131716435233D-02 - ws( 35) = 0.1011015962899049D-01 - ws( 36) = 0.1021887846904684D-01 - ws( 37) = 0.1032557094929399D-01 - ws( 38) = 0.1043139225015192D-01 - ws( 39) = 0.1053740150586438D-01 - ws( 40) = 0.1064457515145886D-01 - ws( 41) = 0.1075382910235530D-01 - ws( 42) = 0.1086708350092298D-01 - ws( 43) = 0.1098972834318494D-01 - ws( 44) = 0.1112681049241656D-01 - ws( 45) = 0.1130431007009733D-01 - ws( 46) = 0.1144612204487277D-01 - ws( 47) = 0.1030400535590049D-01 - endif - - - if( iquad .eq. 106 ) then - idomain = 106 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 44 - err = 0.2038148254689660D-12 - ierq = 4 - xs( 1) = 0.4095187304681274D-04 - xs( 2) = 0.2165906644371102D-03 - xs( 3) = 0.5359562319006826D-03 - xs( 4) = 0.1005076792569838D-02 - xs( 5) = 0.1632948199941351D-02 - xs( 6) = 0.2432014578830157D-02 - xs( 7) = 0.3418746511664564D-02 - xs( 8) = 0.4614370943315266D-02 - xs( 9) = 0.6045755046261576D-02 - xs( 10) = 0.7746412445958551D-02 - xs( 11) = 0.9757524419848007D-02 - xs( 12) = 0.1212870627102044D-01 - xs( 13) = 0.1491794237192270D-01 - xs( 14) = 0.1818965258052229D-01 - xs( 15) = 0.2200948932901833D-01 - xs( 16) = 0.2643499852001172D-01 - xs( 17) = 0.3150360041739925D-01 - xs( 18) = 0.3722255490230923D-01 - xs( 19) = 0.4356628280470506D-01 - xs( 20) = 0.5048264196759667D-01 - xs( 21) = 0.5790460905356115D-01 - xs( 22) = 0.6576193761033097D-01 - xs( 23) = 0.7398929885478285D-01 - xs( 24) = 0.8253030486658705D-01 - xs( 25) = 0.9133848408451281D-01 - xs( 26) = 0.1003765758684513D+00 - xs( 27) = 0.1096151565319575D+00 - xs( 28) = 0.1190311682402210D+00 - xs( 29) = 0.1286066065770242D+00 - xs( 30) = 0.1383274459428239D+00 - xs( 31) = 0.1481827996722644D+00 - xs( 32) = 0.1581642811627534D+00 - xs( 33) = 0.1682655264620595D+00 - xs( 34) = 0.1784818406543668D+00 - xs( 35) = 0.1888099372439912D+00 - xs( 36) = 0.1992477433041857D+00 - xs( 37) = 0.2097942215313288D+00 - xs( 38) = 0.2204492090671625D+00 - xs( 39) = 0.2312133216859340D+00 - xs( 40) = 0.2420862977684038D+00 - xs( 41) = 0.2530651477619640D+00 - xs( 42) = 0.2641322655038348D+00 - xs( 43) = 0.2751968616892156D+00 - xs( 44) = 0.2858140050753484D+00 - ws( 1) = 0.1051886411069965D-03 - ws( 2) = 0.2467189160355019D-03 - ws( 3) = 0.3930067848266429D-03 - ws( 4) = 0.5467262158305513D-03 - ws( 5) = 0.7110810409207718D-03 - ws( 6) = 0.8897846576275677D-03 - ws( 7) = 0.1087202241647622D-02 - ws( 8) = 0.1308507490348027D-02 - ws( 9) = 0.1559828716015705D-02 - ws( 10) = 0.1848335560662765D-02 - ws( 11) = 0.2182156225445305D-02 - ws( 12) = 0.2569900113110303D-02 - ws( 13) = 0.3019392538942064D-02 - ws( 14) = 0.3535128439226375D-02 - ws( 15) = 0.4114348542805824D-02 - ws( 16) = 0.4743088890610149D-02 - ws( 17) = 0.5395374034741620D-02 - ws( 18) = 0.6038156952350516D-02 - ws( 19) = 0.6640399055639456D-02 - ws( 20) = 0.7180945832931817D-02 - ws( 21) = 0.7651144158056871D-02 - ws( 22) = 0.8052560915842135D-02 - ws( 23) = 0.8392750815042376D-02 - ws( 24) = 0.8681530121491450D-02 - ws( 25) = 0.8928642404376986D-02 - ws( 26) = 0.9142662284213968D-02 - ws( 27) = 0.9330678095958009D-02 - ws( 28) = 0.9498362475364419D-02 - ws( 29) = 0.9650190532710840D-02 - ws( 30) = 0.9789684361406377D-02 - ws( 31) = 0.9919633411874731D-02 - ws( 32) = 0.1004227531881759D-01 - ws( 33) = 0.1015943825220034D-01 - ws( 34) = 0.1027265136608264D-01 - ws( 35) = 0.1038321985159088D-01 - ws( 36) = 0.1049229572059810D-01 - ws( 37) = 0.1060086759640084D-01 - ws( 38) = 0.1070969893108718D-01 - ws( 39) = 0.1081995107905035D-01 - ws( 40) = 0.1093698965005880D-01 - ws( 41) = 0.1106248278488890D-01 - ws( 42) = 0.1118989883703938D-01 - ws( 43) = 0.1123457397489849D-01 - ws( 44) = 0.9218288023799136D-02 - endif - - - if( iquad .eq. 107 ) then - idomain = 107 - rk0r = 0.6283185307180586D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 44 - err = 0.1810426865693371D-12 - ierq = 4 - xs( 1) = 0.5797111257756014D-04 - xs( 2) = 0.3065006801402638D-03 - xs( 3) = 0.7579721132461692D-03 - xs( 4) = 0.1420117181774438D-02 - xs( 5) = 0.2304363512329390D-02 - xs( 6) = 0.3426296915651118D-02 - xs( 7) = 0.4806096182209342D-02 - xs( 8) = 0.6468913251044117D-02 - xs( 9) = 0.8445046749775920D-02 - xs( 10) = 0.1076966149305386D-01 - xs( 11) = 0.1348171746204685D-01 - xs( 12) = 0.1662177066949606D-01 - xs( 13) = 0.2022852250698791D-01 - xs( 14) = 0.2433446754546887D-01 - xs( 15) = 0.2896153202572983D-01 - xs( 16) = 0.3411785850618197D-01 - xs( 17) = 0.3979665568408073D-01 - xs( 18) = 0.4597738074302010D-01 - xs( 19) = 0.5262878096659076D-01 - xs( 20) = 0.5971285038003912D-01 - xs( 21) = 0.6718872411625347D-01 - xs( 22) = 0.7501583963065322D-01 - xs( 23) = 0.8315610162868586D-01 - xs( 24) = 0.9157510393121114D-01 - xs( 25) = 0.1002426209324722D+00 - xs( 26) = 0.1091326130061166D+00 - xs( 27) = 0.1182229529816459D+00 - xs( 28) = 0.1274950221034528D+00 - xs( 29) = 0.1369332694483698D+00 - xs( 30) = 0.1465247876910834D+00 - xs( 31) = 0.1562589307228984D+00 - xs( 32) = 0.1661269819228447D+00 - xs( 33) = 0.1761218703283725D+00 - xs( 34) = 0.1862379240078361D+00 - xs( 35) = 0.1964706483757732D+00 - xs( 36) = 0.2068165168800867D+00 - xs( 37) = 0.2172727123880884D+00 - xs( 38) = 0.2278367216675464D+00 - xs( 39) = 0.2385053414031310D+00 - xs( 40) = 0.2492721410350917D+00 - xs( 41) = 0.2601256860435845D+00 - xs( 42) = 0.2710263633789127D+00 - xs( 43) = 0.2817718483816688D+00 - xs( 44) = 0.2919850896668246D+00 - ws( 1) = 0.1488924635665106D-03 - ws( 2) = 0.3489903517101528D-03 - ws( 3) = 0.5552286594843846D-03 - ws( 4) = 0.7709590496786428D-03 - ws( 5) = 0.1000123840362650D-02 - ws( 6) = 0.1247099406340773D-02 - ws( 7) = 0.1516687637838734D-02 - ws( 8) = 0.1814000115347959D-02 - ws( 9) = 0.2144144640954895D-02 - ws( 10) = 0.2511614410199032D-02 - ws( 11) = 0.2919315164366525D-02 - ws( 12) = 0.3367316266007146D-02 - ws( 13) = 0.3851678838144247D-02 - ws( 14) = 0.4363921573648054D-02 - ws( 15) = 0.4891584324270166D-02 - ws( 16) = 0.5419915797190101D-02 - ws( 17) = 0.5934201617422638D-02 - ws( 18) = 0.6421971297833470D-02 - ws( 19) = 0.6874428281885059D-02 - ws( 20) = 0.7286846467649425D-02 - ws( 21) = 0.7658104694680056D-02 - ws( 22) = 0.7989757312621021D-02 - ws( 23) = 0.8285024737407266D-02 - ws( 24) = 0.8547942676944113D-02 - ws( 25) = 0.8782756298267162D-02 - ws( 26) = 0.8993546944118589D-02 - ws( 27) = 0.9184037353501803D-02 - ws( 28) = 0.9357516208471865D-02 - ws( 29) = 0.9516833713867436D-02 - ws( 30) = 0.9664434117946114D-02 - ws( 31) = 0.9802403147938950D-02 - ws( 32) = 0.9932518642657245D-02 - ws( 33) = 0.1005630285030310D-01 - ws( 34) = 0.1017505410543790D-01 - ws( 35) = 0.1028984292467383D-01 - ws( 36) = 0.1040148951593802D-01 - ws( 37) = 0.1051071404523210D-01 - ws( 38) = 0.1061778790464653D-01 - ws( 39) = 0.1072408490354374D-01 - ws( 40) = 0.1082510156419317D-01 - ws( 41) = 0.1091705501456836D-01 - ws( 42) = 0.1099362422935711D-01 - ws( 43) = 0.1069413113515145D-01 - ws( 44) = 0.6978482185049650D-02 - endif - - - if( iquad .eq. 108 ) then - idomain = 108 - rk0r = 0.6283185307180586D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 44 - err = 0.1789538899712437D-12 - ierq = 4 - xs( 1) = 0.8976704213932878D-04 - xs( 2) = 0.4740245880298953D-03 - xs( 3) = 0.1169593068820514D-02 - xs( 4) = 0.2183853914754442D-02 - xs( 5) = 0.3527046764484821D-02 - xs( 6) = 0.5212013738677298D-02 - xs( 7) = 0.7253563533944006D-02 - xs( 8) = 0.9667520865275132D-02 - xs( 9) = 0.1246950894034379D-01 - xs( 10) = 0.1567358767927404D-01 - xs( 11) = 0.1929092507862150D-01 - xs( 12) = 0.2332868520109110D-01 - xs( 13) = 0.2778927420750557D-01 - xs( 14) = 0.3267001661102362D-01 - xs( 15) = 0.3796326179644353D-01 - xs( 16) = 0.4365686162101867D-01 - xs( 17) = 0.4973492051044378D-01 - xs( 18) = 0.5617870183203790D-01 - xs( 19) = 0.6296757731686538D-01 - xs( 20) = 0.7007992558681175D-01 - xs( 21) = 0.7749391448452417D-01 - xs( 22) = 0.8518813233424277D-01 - xs( 23) = 0.9314205949830032D-01 - xs( 24) = 0.1013363904426073D+00 - xs( 25) = 0.1097532274667386D+00 - xs( 26) = 0.1183761715369232D+00 - xs( 27) = 0.1271903352370168D+00 - xs( 28) = 0.1361822996444123D+00 - xs( 29) = 0.1453400324490076D+00 - xs( 30) = 0.1546527795624507D+00 - xs( 31) = 0.1641109371535790D+00 - xs( 32) = 0.1737059064881503D+00 - xs( 33) = 0.1834299313350208D+00 - xs( 34) = 0.1932759023815073D+00 - xs( 35) = 0.2032370854984953D+00 - xs( 36) = 0.2133067924868129D+00 - xs( 37) = 0.2234779623120179D+00 - xs( 38) = 0.2337421701775032D+00 - xs( 39) = 0.2440854542183774D+00 - xs( 40) = 0.2544832854067333D+00 - xs( 41) = 0.2648981024897851D+00 - xs( 42) = 0.2752020086137457D+00 - xs( 43) = 0.2850527988864638D+00 - xs( 44) = 0.2941925435218082D+00 - ws( 1) = 0.2304908278950175D-03 - ws( 2) = 0.5389121833542264D-03 - ws( 3) = 0.8534461011289813D-03 - ws( 4) = 0.1176787481685694D-02 - ws( 5) = 0.1511749148275815D-02 - ws( 6) = 0.1860668859711504D-02 - ws( 7) = 0.2225088777660176D-02 - ws( 8) = 0.2605452893184197D-02 - ws( 9) = 0.3000889178550323D-02 - ws( 10) = 0.3409148513174842D-02 - ws( 11) = 0.3826733034299886D-02 - ws( 12) = 0.4249193627493477D-02 - ws( 13) = 0.4671536546457289D-02 - ws( 14) = 0.5088664954472147D-02 - ws( 15) = 0.5495787939171926D-02 - ws( 16) = 0.5888747065112151D-02 - ws( 17) = 0.6264231890521333D-02 - ws( 18) = 0.6619877576429743D-02 - ws( 19) = 0.6954256710388717D-02 - ws( 20) = 0.7266790598260352D-02 - ws( 21) = 0.7557610752458148D-02 - ws( 22) = 0.7827399691293337D-02 - ws( 23) = 0.8077233878876501D-02 - ws( 24) = 0.8308443602602541D-02 - ws( 25) = 0.8522497100658008D-02 - ws( 26) = 0.8720910542464027D-02 - ws( 27) = 0.8905181780148866D-02 - ws( 28) = 0.9076743699167450D-02 - ws( 29) = 0.9236932317666369D-02 - ws( 30) = 0.9386964865497709D-02 - ws( 31) = 0.9527921584298974D-02 - ws( 32) = 0.9660720097024336D-02 - ws( 33) = 0.9786084703170213D-02 - ws( 34) = 0.9904541271751372D-02 - ws( 35) = 0.1001633753550800D-01 - ws( 36) = 0.1012123753736837D-01 - ws( 37) = 0.1021906993302843D-01 - ws( 38) = 0.1031345154440767D-01 - ws( 39) = 0.1041087691740025D-01 - ws( 40) = 0.1050266687289164D-01 - ws( 41) = 0.1058564816571429D-01 - ws( 42) = 0.1062629934261558D-01 - ws( 43) = 0.9373672589237197D-02 - ws( 44) = 0.4703924107390432D-02 - endif - - - if( iquad .eq. 109 ) then - idomain = 109 - rk0r = 0.6283185307180586D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 44 - err = 0.9344259558043416D-13 - ierq = 0 - xs( 1) = 0.1192903759694263D-03 - xs( 2) = 0.6285952882164731D-03 - xs( 3) = 0.1545090493150079D-02 - xs( 4) = 0.2869217564808184D-02 - xs( 5) = 0.4601065334300912D-02 - xs( 6) = 0.6740261788957543D-02 - xs( 7) = 0.9285691659540836D-02 - xs( 8) = 0.1223520472968529D-01 - xs( 9) = 0.1558535595670660D-01 - xs( 10) = 0.1933120467208228D-01 - xs( 11) = 0.2346619130853519D-01 - xs( 12) = 0.2798210108651791D-01 - xs( 13) = 0.3286911520201233D-01 - xs( 14) = 0.3811594206087456D-01 - xs( 15) = 0.4371001471164216D-01 - xs( 16) = 0.4963773637397630D-01 - xs( 17) = 0.5588475410629727D-01 - xs( 18) = 0.6243624112298155D-01 - xs( 19) = 0.6927717064841994D-01 - xs( 20) = 0.7639256784530504D-01 - xs( 21) = 0.8376773056970307D-01 - xs( 22) = 0.9138841384955680D-01 - xs( 23) = 0.9924097659047383D-01 - xs( 24) = 0.1073124918192370D+00 - xs( 25) = 0.1155908237072504D+00 - xs( 26) = 0.1240646757471129D+00 - xs( 27) = 0.1327236148337003D+00 - xs( 28) = 0.1415580757939888D+00 - xs( 29) = 0.1505593505801076D+00 - xs( 30) = 0.1597195654295206D+00 - xs( 31) = 0.1690316476791843D+00 - xs( 32) = 0.1784892794164513D+00 - xs( 33) = 0.1880868513020550D+00 - xs( 34) = 0.1978193621366455D+00 - xs( 35) = 0.2076823034348400D+00 - xs( 36) = 0.2176715478750488D+00 - xs( 37) = 0.2277831142892066D+00 - xs( 38) = 0.2380116047170749D+00 - xs( 39) = 0.2483532663264892D+00 - xs( 40) = 0.2587996008576933D+00 - xs( 41) = 0.2692961364297733D+00 - xs( 42) = 0.2797919676237598D+00 - xs( 43) = 0.2903183643597835D+00 - xs( 44) = 0.2999989648948440D+00 - ws( 1) = 0.3061449506096373D-03 - ws( 2) = 0.7127817929427215D-03 - ws( 3) = 0.1120270139916402D-02 - ws( 4) = 0.1528002307802796D-02 - ws( 5) = 0.1935636113150437D-02 - ws( 6) = 0.2342575867010191D-02 - ws( 7) = 0.2747929900646941D-02 - ws( 8) = 0.3150525456671889D-02 - ws( 9) = 0.3548955629588070D-02 - ws( 10) = 0.3941649146103281D-02 - ws( 11) = 0.4326954125347423D-02 - ws( 12) = 0.4703226742199385D-02 - ws( 13) = 0.5068916221797145D-02 - ws( 14) = 0.5422638863386948D-02 - ws( 15) = 0.5763235699742323D-02 - ws( 16) = 0.6089810721429036D-02 - ws( 17) = 0.6401749015687633D-02 - ws( 18) = 0.6698716333925622D-02 - ws( 19) = 0.6980643218804454D-02 - ws( 20) = 0.7247697739505981D-02 - ws( 21) = 0.7500251107203234D-02 - ws( 22) = 0.7738840108530737D-02 - ws( 23) = 0.7964129599653320D-02 - ws( 24) = 0.8176877423991796D-02 - ws( 25) = 0.8377903235848376D-02 - ws( 26) = 0.8568061937479735D-02 - ws( 27) = 0.8748222130903959D-02 - ws( 28) = 0.8919248765607665D-02 - ws( 29) = 0.9081989096122071D-02 - ws( 30) = 0.9237261499802229D-02 - ws( 31) = 0.9385848870572259D-02 - ws( 32) = 0.9528477477492692D-02 - ws( 33) = 0.9665818625078397D-02 - ws( 34) = 0.9798489229840245D-02 - ws( 35) = 0.9926759497425065D-02 - ws( 36) = 0.1005047580351069D-01 - ws( 37) = 0.1016984960330890D-01 - ws( 38) = 0.1028154023451361D-01 - ws( 39) = 0.1037765086096994D-01 - ws( 40) = 0.1050397081401212D-01 - ws( 41) = 0.1059199258992399D-01 - ws( 42) = 0.1025312455622223D-01 - ws( 43) = 0.9390401540123949D-02 - ws( 44) = 0.7007190653918309D-02 - endif - - - if( iquad .eq. 110 ) then - idomain = 110 - rk0r = 0.6283185307180586D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.9424777960768379D+01 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 43 - err = 0.7330921816111574D-14 - ierq = 0 - xs( 1) = 0.1216788230756321D-03 - xs( 2) = 0.6407549569821102D-03 - xs( 3) = 0.1573132623254287D-02 - xs( 4) = 0.2916494477961243D-02 - xs( 5) = 0.4667243400156428D-02 - xs( 6) = 0.6820689664551492D-02 - xs( 7) = 0.9371096275983514D-02 - xs( 8) = 0.1231171842584482D-01 - xs( 9) = 0.1563484950089469D-01 - xs( 10) = 0.1933187782183469D-01 - xs( 11) = 0.2339335674468784D-01 - xs( 12) = 0.2780908948504423D-01 - xs( 13) = 0.3256822851638740D-01 - xs( 14) = 0.3765938784337202D-01 - xs( 15) = 0.4307076511690378D-01 - xs( 16) = 0.4879026962834706D-01 - xs( 17) = 0.5480565178121107D-01 - xs( 18) = 0.6110462968385034D-01 - xs( 19) = 0.6767500895690266D-01 - xs( 20) = 0.7450479258398530D-01 - xs( 21) = 0.8158227851874839D-01 - xs( 22) = 0.8889614368095977D-01 - xs( 23) = 0.9643551383191004D-01 - xs( 24) = 0.1041900195180796D+00 - xs( 25) = 0.1121498387725522D+00 - xs( 26) = 0.1203057276625383D+00 - xs( 27) = 0.1286490400569398D+00 - xs( 28) = 0.1371717372208828D+00 - xs( 29) = 0.1458663860278287D+00 - xs( 30) = 0.1547261490419334D+00 - xs( 31) = 0.1637447685742891D+00 - xs( 32) = 0.1729165257008495D+00 - xs( 33) = 0.1822361630383223D+00 - xs( 34) = 0.1916988053633197D+00 - xs( 35) = 0.2012997576871078D+00 - xs( 36) = 0.2110348474466491D+00 - xs( 37) = 0.2209000143456218D+00 - xs( 38) = 0.2308813659259100D+00 - xs( 39) = 0.2409574711481245D+00 - xs( 40) = 0.2510470330588870D+00 - xs( 41) = 0.2610342893107631D+00 - xs( 42) = 0.2709688360790138D+00 - xs( 43) = 0.2894660741151644D+00 - ws( 1) = 0.3122256503086139D-03 - ws( 2) = 0.7259779890854963D-03 - ws( 3) = 0.1138374903744981D-02 - ws( 4) = 0.1547747821462891D-02 - ws( 5) = 0.1952967748414419D-02 - ws( 6) = 0.2352967974837878D-02 - ws( 7) = 0.2746720355402255D-02 - ws( 8) = 0.3133238569426699D-02 - ws( 9) = 0.3511587135722661D-02 - ws( 10) = 0.3880893651424236D-02 - ws( 11) = 0.4240363069509263D-02 - ws( 12) = 0.4589292611503111D-02 - ws( 13) = 0.4927085740356303D-02 - ws( 14) = 0.5253263711820972D-02 - ws( 15) = 0.5567473549685825D-02 - ws( 16) = 0.5869491755602666D-02 - ws( 17) = 0.6159223564219055D-02 - ws( 18) = 0.6436698007277957D-02 - ws( 19) = 0.6702059400534365D-02 - ws( 20) = 0.6955556092457121D-02 - ws( 21) = 0.7197527395960614D-02 - ws( 22) = 0.7428389580716902D-02 - ws( 23) = 0.7648621719895251D-02 - ws( 24) = 0.7858752085401533D-02 - ws( 25) = 0.8059345469710008D-02 - ws( 26) = 0.8250991309924309D-02 - ws( 27) = 0.8434293691455182D-02 - ws( 28) = 0.8609865426506895D-02 - ws( 29) = 0.8778318838411958D-02 - ws( 30) = 0.8940239158568076D-02 - ws( 31) = 0.9096173214570251D-02 - ws( 32) = 0.9246636988545479D-02 - ws( 33) = 0.9391987979657814D-02 - ws( 34) = 0.9532263436761466D-02 - ws( 35) = 0.9666559081409468D-02 - ws( 36) = 0.9793631229554522D-02 - ws( 37) = 0.9924923841622475D-02 - ws( 38) = 0.1007563681981241D-01 - ws( 39) = 0.1022923957033131D-01 - ws( 40) = 0.1024125469690007D-01 - ws( 41) = 0.9111966292323262D-02 - ws( 42) = 0.5689436826526665D-02 - ws( 43) = -.5681333979926086D-02 - endif - - - if( iquad .eq. 111 ) then - idomain = 111 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000010000000000D-11 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 53 - err = 0.2444015804221384D-12 - ierq = 4 - xs( 1) = 0.6960646129513321D-05 - xs( 2) = 0.3698577730557543D-04 - xs( 3) = 0.9212682129908928D-04 - xs( 4) = 0.1739251940475344D-03 - xs( 5) = 0.2841340005390576D-03 - xs( 6) = 0.4247063732079095D-03 - xs( 7) = 0.5979017892522255D-03 - xs( 8) = 0.8064295316287154D-03 - xs( 9) = 0.1053601968177446D-02 - xs( 10) = 0.1343501895534523D-02 - xs( 11) = 0.1681178050704424D-02 - xs( 12) = 0.2072885914021252D-02 - xs( 13) = 0.2526393792028292D-02 - xs( 14) = 0.3051378844506523D-02 - xs( 15) = 0.3659944741572425D-02 - xs( 16) = 0.4367302188341384D-02 - xs( 17) = 0.5192665473263726D-02 - xs( 18) = 0.6160431348080490D-02 - xs( 19) = 0.7301717390845546D-02 - xs( 20) = 0.8656336674916304D-02 - xs( 21) = 0.1027525423618595D-01 - xs( 22) = 0.1222346715518828D-01 - xs( 23) = 0.1458299228435765D-01 - xs( 24) = 0.1745508216739824D-01 - xs( 25) = 0.2095968420742955D-01 - xs( 26) = 0.2522836103215881D-01 - xs( 27) = 0.3038526800106921D-01 - xs( 28) = 0.3651335191356121D-01 - xs( 29) = 0.4361595788902232D-01 - xs( 30) = 0.5160120831833608D-01 - xs( 31) = 0.6030865693960441D-01 - xs( 32) = 0.6956044412514822D-01 - xs( 33) = 0.7920184086700313D-01 - xs( 34) = 0.8911673723917098D-01 - xs( 35) = 0.9922548890071038D-01 - xs( 36) = 0.1094763487302616D+00 - xs( 37) = 0.1198368553477296D+00 - xs( 38) = 0.1302872315885925D+00 - xs( 39) = 0.1408158647869204D+00 - xs( 40) = 0.1514163778359377D+00 - xs( 41) = 0.1620857862296169D+00 - xs( 42) = 0.1728233616343461D+00 - xs( 43) = 0.1836299480579824D+00 - xs( 44) = 0.1945075672470034D+00 - xs( 45) = 0.2054592133260391D+00 - xs( 46) = 0.2164887460688205D+00 - xs( 47) = 0.2276009769932388D+00 - xs( 48) = 0.2388013927425076D+00 - xs( 49) = 0.2500969605645116D+00 - xs( 50) = 0.2614940184279850D+00 - xs( 51) = 0.2729933694479851D+00 - xs( 52) = 0.2845617062053045D+00 - xs( 53) = 0.2958197859295504D+00 - ws( 1) = 0.1790032250901225D-04 - ws( 2) = 0.4235053588914842D-04 - ws( 3) = 0.6819180258811584D-04 - ws( 4) = 0.9569707665754204D-04 - ws( 5) = 0.1250440756485323D-03 - ws( 6) = 0.1564748092999927D-03 - ws( 7) = 0.1903650336812147D-03 - ws( 8) = 0.2272397588527770D-03 - ws( 9) = 0.2677823623635458D-03 - ws( 10) = 0.3128549819362661D-03 - ws( 11) = 0.3635348648580976D-03 - ws( 12) = 0.4211690535031541D-03 - ws( 13) = 0.4874510320413926D-03 - ws( 14) = 0.5645251351081172D-03 - ws( 15) = 0.6551269925142214D-03 - ws( 16) = 0.7627708218328971D-03 - ws( 17) = 0.8919964276927238D-03 - ws( 18) = 0.1048688808084811D-02 - ws( 19) = 0.1240477766213342D-02 - ws( 20) = 0.1477206334661743D-02 - ws( 21) = 0.1771409957851047D-02 - ws( 22) = 0.2138644020499089D-02 - ws( 23) = 0.2597281829291534D-02 - ws( 24) = 0.3166993028719320D-02 - ws( 25) = 0.3864443644313011D-02 - ws( 26) = 0.4694185602227308D-02 - ws( 27) = 0.5634169150505752D-02 - ws( 28) = 0.6622882082762863D-02 - ws( 29) = 0.7566518292163061D-02 - ws( 30) = 0.8376283974511433D-02 - ws( 31) = 0.9008262810270957D-02 - ws( 32) = 0.9469292489601289D-02 - ws( 33) = 0.9794214807591564D-02 - ws( 34) = 0.1002246101051645D-01 - ws( 35) = 0.1018656514691498D-01 - ws( 36) = 0.1030985394795643D-01 - ws( 37) = 0.1040793706723649D-01 - ws( 38) = 0.1049092753691228D-01 - ws( 39) = 0.1056530582136813D-01 - ws( 40) = 0.1063524123205378D-01 - ws( 41) = 0.1070346547921973D-01 - ws( 42) = 0.1077183370339008D-01 - ws( 43) = 0.1084168143004481D-01 - ws( 44) = 0.1091406245439050D-01 - ws( 45) = 0.1098991719164626D-01 - ws( 46) = 0.1107009434605278D-01 - ws( 47) = 0.1115558376821960D-01 - ws( 48) = 0.1124693187275456D-01 - ws( 49) = 0.1134691399148160D-01 - ws( 50) = 0.1146209333362180D-01 - ws( 51) = 0.1160755863050492D-01 - ws( 52) = 0.1176819583194211D-01 - ws( 53) = 0.1076866184728489D-01 - endif - - - if( iquad .eq. 112 ) then - idomain = 112 - rk0r = 0.9424777960770379D+01 - rk0i = 0.2000000000100001D-01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999800000D-01 - n = 52 - err = 0.1945507249386635D-12 - ierq = 4 - xs( 1) = 0.8436350538529129D-05 - xs( 2) = 0.4456744058303824D-04 - xs( 3) = 0.1100517527912744D-03 - xs( 4) = 0.2057500021004765D-03 - xs( 5) = 0.3329333196553861D-03 - xs( 6) = 0.4933475954222831D-03 - xs( 7) = 0.6892874420640699D-03 - xs( 8) = 0.9236928715915651D-03 - xs( 9) = 0.1200274994037673D-02 - xs( 10) = 0.1523678861659431D-02 - xs( 11) = 0.1899694668743850D-02 - xs( 12) = 0.2335532696423413D-02 - xs( 13) = 0.2840182982944514D-02 - xs( 14) = 0.3424888156517895D-02 - xs( 15) = 0.4103767682443641D-02 - xs( 16) = 0.4894644292646454D-02 - xs( 17) = 0.5820138315432661D-02 - xs( 18) = 0.6909111042006284D-02 - xs( 19) = 0.8198548114704577D-02 - xs( 20) = 0.9735963086629515D-02 - xs( 21) = 0.1158233546333426D-01 - xs( 22) = 0.1381540329449448D-01 - xs( 23) = 0.1653265920801443D-01 - xs( 24) = 0.1985238208311962D-01 - xs( 25) = 0.2390915396357030D-01 - xs( 26) = 0.2883794135652500D-01 - xs( 27) = 0.3474148565053756D-01 - xs( 28) = 0.4164736189943272D-01 - xs( 29) = 0.4948217561589920D-01 - xs( 30) = 0.5809043946522544D-01 - xs( 31) = 0.6728722777462193D-01 - xs( 32) = 0.7690583585512914D-01 - xs( 33) = 0.8681896223722137D-01 - xs( 34) = 0.9693869170585682D-01 - xs( 35) = 0.1072078683395961D+00 - xs( 36) = 0.1175907351182384D+00 - xs( 37) = 0.1280656003639502D+00 - xs( 38) = 0.1386197872144531D+00 - xs( 39) = 0.1492463626739478D+00 - xs( 40) = 0.1599420863449982D+00 - xs( 41) = 0.1707061514339624D+00 - xs( 42) = 0.1815394292944116D+00 - xs( 43) = 0.1924440333694086D+00 - xs( 44) = 0.2034230899452064D+00 - xs( 45) = 0.2144806588368478D+00 - xs( 46) = 0.2256217433317799D+00 - xs( 47) = 0.2368521349342042D+00 - xs( 48) = 0.2481786292785879D+00 - xs( 49) = 0.2596069677077260D+00 - xs( 50) = 0.2711474642083569D+00 - xs( 51) = 0.2827582879154638D+00 - xs( 52) = 0.2940708731213110D+00 - ws( 1) = 0.2166368057484284D-04 - ws( 2) = 0.5069449351421148D-04 - ws( 3) = 0.8041589181747125D-04 - ws( 4) = 0.1111915097781183D-03 - ws( 5) = 0.1434648898893060D-03 - ws( 6) = 0.1777444997852065D-03 - ws( 7) = 0.2146231194800380D-03 - ws( 8) = 0.2548035701195979D-03 - ws( 9) = 0.2991313662420123D-03 - ws( 10) = 0.3486368681861885D-03 - ws( 11) = 0.4045905317647666D-03 - ws( 12) = 0.4685760727213750D-03 - ws( 13) = 0.5425879873754645D-03 - ws( 14) = 0.6291619861865138D-03 - ws( 15) = 0.7315494769598896D-03 - ws( 16) = 0.8539499656343551D-03 - ws( 17) = 0.1001817115405038D-02 - ws( 18) = 0.1182252632045512D-02 - ws( 19) = 0.1404491143794055D-02 - ws( 20) = 0.1680445830334409D-02 - ws( 21) = 0.2025201726925576D-02 - ws( 22) = 0.2457157450202050D-02 - ws( 23) = 0.2997127455175161D-02 - ws( 24) = 0.3664996867383921D-02 - ws( 25) = 0.4471592955408039D-02 - ws( 26) = 0.5403894494349177D-02 - ws( 27) = 0.6408309534141461D-02 - ws( 28) = 0.7390864054564640D-02 - ws( 29) = 0.8251852295840254D-02 - ws( 30) = 0.8933007835679458D-02 - ws( 31) = 0.9432455445158446D-02 - ws( 32) = 0.9783578446725174D-02 - ws( 33) = 0.1002818366466005D-01 - ws( 34) = 0.1020191062032094D-01 - ws( 35) = 0.1033060531866994D-01 - ws( 36) = 0.1043159570653795D-01 - ws( 37) = 0.1051607511363692D-01 - ws( 38) = 0.1059117627543745D-01 - ws( 39) = 0.1066145505726356D-01 - ws( 40) = 0.1072987052762358D-01 - ws( 41) = 0.1079841212056370D-01 - ws( 42) = 0.1086850028357890D-01 - ws( 43) = 0.1094123802716858D-01 - ws( 44) = 0.1101757103511152D-01 - ws( 45) = 0.1109836280100456D-01 - ws( 46) = 0.1118490186321700D-01 - ws( 47) = 0.1127848488024080D-01 - ws( 48) = 0.1138239903878118D-01 - ws( 49) = 0.1149288394191229D-01 - ws( 50) = 0.1163171157457679D-01 - ws( 51) = 0.1185783054225815D-01 - ws( 52) = 0.1103259549703568D-01 - endif - - - if( iquad .eq. 113 ) then - idomain = 113 - rk0r = 0.9424777960770379D+01 - rk0i = 0.4000000000100001D-01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9999999999900001D-01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999800001D-01 - n = 52 - err = 0.1228777131449874D-11 - ierq = 4 - xs( 1) = 0.9053322047182500D-05 - xs( 2) = 0.4782691514184930D-04 - xs( 3) = 0.1181009207555501D-03 - xs( 4) = 0.2207988929954924D-03 - xs( 5) = 0.3572830023289377D-03 - xs( 6) = 0.5294211317899958D-03 - xs( 7) = 0.7396636496464207D-03 - xs( 8) = 0.9911438295199528D-03 - xs( 9) = 0.1287808524723446D-02 - xs( 10) = 0.1634587514681567D-02 - xs( 11) = 0.2037613062080776D-02 - xs( 12) = 0.2504505446143291D-02 - xs( 13) = 0.3044745888173463D-02 - xs( 14) = 0.3670165803721355D-02 - xs( 15) = 0.4395591159811791D-02 - xs( 16) = 0.5239693147603166D-02 - xs( 17) = 0.6226110941867573D-02 - xs( 18) = 0.7384926607548394D-02 - xs( 19) = 0.8754579193441020D-02 - xs( 20) = 0.1038428738337285D-01 - xs( 21) = 0.1233696871290993D-01 - xs( 22) = 0.1469241592209099D-01 - xs( 23) = 0.1754995578142229D-01 - xs( 24) = 0.2102869940975118D-01 - xs( 25) = 0.2526153945789938D-01 - xs( 26) = 0.3037693912343192D-01 - xs( 27) = 0.3646446492227375D-01 - xs( 28) = 0.4353362294959638D-01 - xs( 29) = 0.5149539642171733D-01 - xs( 30) = 0.6018874916624437D-01 - xs( 31) = 0.6943368434207609D-01 - xs( 32) = 0.7907336724431349D-01 - xs( 33) = 0.8899012908074999D-01 - xs( 34) = 0.9910326817446032D-01 - xs( 35) = 0.1093603238364817D+00 - xs( 36) = 0.1197283415099673D+00 - xs( 37) = 0.1301871937055557D+00 - xs( 38) = 0.1407250127589574D+00 - xs( 39) = 0.1513352314057063D+00 - xs( 40) = 0.1620147189151105D+00 - xs( 41) = 0.1727626299700293D+00 - xs( 42) = 0.1835797084319604D+00 - xs( 43) = 0.1944678845458311D+00 - xs( 44) = 0.2054300617951715D+00 - xs( 45) = 0.2164700163315667D+00 - xs( 46) = 0.2275924201533099D+00 - xs( 47) = 0.2388027919243459D+00 - xs( 48) = 0.2501073008242618D+00 - xs( 49) = 0.2615123380750241D+00 - xs( 50) = 0.2730222116105370D+00 - xs( 51) = 0.2845865890863873D+00 - xs( 52) = 0.2958264746479419D+00 - ws( 1) = 0.2324801837530417D-04 - ws( 2) = 0.5440225612917908D-04 - ws( 3) = 0.8629788774788839D-04 - ws( 4) = 0.1193240957555327D-03 - ws( 5) = 0.1539541738081049D-03 - ws( 6) = 0.1907288207828466D-03 - ws( 7) = 0.2302762689469429D-03 - ws( 8) = 0.2733391042985562D-03 - ws( 9) = 0.3208082937062589D-03 - ws( 10) = 0.3737670213554113D-03 - ws( 11) = 0.4335479725122784D-03 - ws( 12) = 0.5018089362201534D-03 - ws( 13) = 0.5806332321076429D-03 - ws( 14) = 0.6726635720245850D-03 - ws( 15) = 0.7812804855421575D-03 - ws( 16) = 0.9108389863179775D-03 - ws( 17) = 0.1066978565678847D-02 - ws( 18) = 0.1257018920170826D-02 - ws( 19) = 0.1490440254936777D-02 - ws( 20) = 0.1779407820806585D-02 - ws( 21) = 0.2139205182989875D-02 - ws( 22) = 0.2588230668799296D-02 - ws( 23) = 0.3146785685927895D-02 - ws( 24) = 0.3833139016111591D-02 - ws( 25) = 0.4654542842927279D-02 - ws( 26) = 0.5591952356898932D-02 - ws( 27) = 0.6585066276891199D-02 - ws( 28) = 0.7537914611557197D-02 - ws( 29) = 0.8357796129127794D-02 - ws( 30) = 0.8998175282700964D-02 - ws( 31) = 0.9465318264970605D-02 - ws( 32) = 0.9794503366959152D-02 - ws( 33) = 0.1002573004373384D-01 - ws( 34) = 0.1019195409435949D-01 - ws( 35) = 0.1031677571488059D-01 - ws( 36) = 0.1041597978537470D-01 - ws( 37) = 0.1049979471680254D-01 - ws( 38) = 0.1057477894900677D-01 - ws( 39) = 0.1064515504758674D-01 - ws( 40) = 0.1071369012261296D-01 - ws( 41) = 0.1078226207294100D-01 - ws( 42) = 0.1085222191557714D-01 - ws( 43) = 0.1092461943385320D-01 - ws( 44) = 0.1100038140907002D-01 - ws( 45) = 0.1108042061413982D-01 - ws( 46) = 0.1116560014782396D-01 - ws( 47) = 0.1125715795087526D-01 - ws( 48) = 0.1135775100984523D-01 - ws( 49) = 0.1146407649200484D-01 - ws( 50) = 0.1161703002213354D-01 - ws( 51) = 0.1181789784445044D-01 - ws( 52) = 0.1085805277814314D-01 - endif - - - if( iquad .eq. 114 ) then - idomain = 114 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.9999999999800001D-01 - n = 52 - err = 0.1017065130562667D-12 - ierq = 4 - xs( 1) = 0.9620887175011773D-05 - xs( 2) = 0.5083539574013310D-04 - xs( 3) = 0.1255725511704401D-03 - xs( 4) = 0.2348733141382221D-03 - xs( 5) = 0.3802554118901193D-03 - xs( 6) = 0.5637709673230357D-03 - xs( 7) = 0.7880739375810741D-03 - xs( 8) = 0.1056512978821944D-02 - xs( 9) = 0.1373256480138316D-02 - xs( 10) = 0.1743457520768744D-02 - xs( 11) = 0.2173469089732130D-02 - xs( 12) = 0.2671123733069819D-02 - xs( 13) = 0.3246097014539135D-02 - xs( 14) = 0.3910381073176364D-02 - xs( 15) = 0.4678903460153146D-02 - xs( 16) = 0.5570337516373031D-02 - xs( 17) = 0.6608163391343636D-02 - xs( 18) = 0.7822051347776672D-02 - xs( 19) = 0.9249645236564848D-02 - xs( 20) = 0.1093880890315983D-01 - xs( 21) = 0.1295032669295805D-01 - xs( 22) = 0.1536084341041456D-01 - xs( 23) = 0.1826532898048450D-01 - xs( 24) = 0.2177728247692682D-01 - xs( 25) = 0.2602300900466526D-01 - xs( 26) = 0.3112437175421760D-01 - xs( 27) = 0.3716654799882044D-01 - xs( 28) = 0.4416017189941623D-01 - xs( 29) = 0.5202452857815237D-01 - xs( 30) = 0.6061110074922006D-01 - xs( 31) = 0.6975125967834943D-01 - xs( 32) = 0.7929526750787545D-01 - xs( 33) = 0.8912838322743116D-01 - xs( 34) = 0.9917014253542625D-01 - xs( 35) = 0.1093670062012519D+00 - xs( 36) = 0.1196844817947475D+00 - xs( 37) = 0.1301008748968470D+00 - xs( 38) = 0.1406028998254242D+00 - xs( 39) = 0.1511827712316317D+00 - xs( 40) = 0.1618363345112061D+00 - xs( 41) = 0.1725618867191921D+00 - xs( 42) = 0.1833594457762515D+00 - xs( 43) = 0.1942303098706728D+00 - xs( 44) = 0.2051768121719997D+00 - xs( 45) = 0.2162021649856201D+00 - xs( 46) = 0.2273105014118487D+00 - xs( 47) = 0.2385066021950396D+00 - xs( 48) = 0.2497960242487638D+00 - xs( 49) = 0.2611832843869285D+00 - xs( 50) = 0.2726685106976118D+00 - xs( 51) = 0.2841930071594444D+00 - xs( 52) = 0.2953699709614260D+00 - ws( 1) = 0.2470664571873670D-04 - ws( 2) = 0.5783827048480336D-04 - ws( 3) = 0.9180782563112668D-04 - ws( 4) = 0.1270458355456914D-03 - ws( 5) = 0.1640592759822182D-03 - ws( 6) = 0.2034126281376890D-03 - ws( 7) = 0.2457493558024431D-03 - ws( 8) = 0.2918207330485710D-03 - ws( 9) = 0.3425215623119489D-03 - ws( 10) = 0.3989347351605152D-03 - ws( 11) = 0.4623878312063034D-03 - ws( 12) = 0.5345262396691349D-03 - ws( 13) = 0.6174088085068967D-03 - ws( 14) = 0.7136338682515020D-03 - ws( 15) = 0.8265056180422346D-03 - ws( 16) = 0.9602529901965786D-03 - ws( 17) = 0.1120314247980387D-02 - ws( 18) = 0.1313698226435818D-02 - ws( 19) = 0.1549421446293875D-02 - ws( 20) = 0.1838986129886327D-02 - ws( 21) = 0.2196778621665977D-02 - ws( 22) = 0.2640071262252879D-02 - ws( 23) = 0.3187897274477024D-02 - ws( 24) = 0.3857334828454898D-02 - ws( 25) = 0.4654983741129767D-02 - ws( 26) = 0.5562643846072380D-02 - ws( 27) = 0.6523825183379835D-02 - ws( 28) = 0.7449527416743937D-02 - ws( 29) = 0.8253540503432709D-02 - ws( 30) = 0.8890817549866514D-02 - ws( 31) = 0.9364298609042719D-02 - ws( 32) = 0.9704632613853455D-02 - ws( 33) = 0.9948324550850358D-02 - ws( 34) = 0.1012640636200684D-01 - ws( 35) = 0.1026167642364787D-01 - ws( 36) = 0.1036973109277731D-01 - ws( 37) = 0.1046088820335112D-01 - ws( 38) = 0.1054189442111579D-01 - ws( 39) = 0.1061717511462852D-01 - ws( 40) = 0.1068967983584234D-01 - ws( 41) = 0.1076143524476318D-01 - ws( 42) = 0.1083390739909696D-01 - ws( 43) = 0.1090822229192337D-01 - ws( 44) = 0.1098534042817703D-01 - ws( 45) = 0.1106614137629628D-01 - ws( 46) = 0.1115142329852670D-01 - ws( 47) = 0.1124236308885362D-01 - ws( 48) = 0.1134210379345923D-01 - ws( 49) = 0.1144840883025032D-01 - ws( 50) = 0.1158451155062722D-01 - ws( 51) = 0.1181121862662819D-01 - ws( 52) = 0.1053491412265668D-01 - endif - - - if( iquad .eq. 115 ) then - idomain = 115 - rk0r = 0.9424777960770379D+01 - rk0i = 0.2000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1999999999980000D+00 - n = 51 - err = 0.1385253751644161D-12 - ierq = 4 - xs( 1) = 0.1206019686298449D-04 - xs( 2) = 0.6370568934581052D-04 - xs( 3) = 0.1572842357759915D-03 - xs( 4) = 0.2939814365235918D-03 - xs( 5) = 0.4755424085884118D-03 - xs( 6) = 0.7043554986185038D-03 - xs( 7) = 0.9835465562951960D-03 - xs( 8) = 0.1317101727721126D-02 - xs( 9) = 0.1710026573655911D-02 - xs( 10) = 0.2168551274367292D-02 - xs( 11) = 0.2700395231131743D-02 - xs( 12) = 0.3315109165704357D-02 - xs( 13) = 0.4024519142072378D-02 - xs( 14) = 0.4843305151216896D-02 - xs( 15) = 0.5789757231642522D-02 - xs( 16) = 0.6886764207898039D-02 - xs( 17) = 0.8163102100267114D-02 - xs( 18) = 0.9655095222920121D-02 - xs( 19) = 0.1140870781267121D-01 - xs( 20) = 0.1348205205788186D-01 - xs( 21) = 0.1594809174783434D-01 - xs( 22) = 0.1889682644488866D-01 - xs( 23) = 0.2243522073780064D-01 - xs( 24) = 0.2668146795043850D-01 - xs( 25) = 0.3174875052501561D-01 - xs( 26) = 0.3771618444786677D-01 - xs( 27) = 0.4459588555056550D-01 - xs( 28) = 0.5231843202346224D-01 - xs( 29) = 0.6075215736794059D-01 - xs( 30) = 0.6974359148360704D-01 - xs( 31) = 0.7915237854884002D-01 - xs( 32) = 0.8886755893349288D-01 - xs( 33) = 0.9880883275656850D-01 - xs( 34) = 0.1089210596321502D+00 - xs( 35) = 0.1191675434609537D+00 - xs( 36) = 0.1295243713732690D+00 - xs( 37) = 0.1399762675162993D+00 - xs( 38) = 0.1505137529859331D+00 - xs( 39) = 0.1611312665628321D+00 - xs( 40) = 0.1718259455781534D+00 - xs( 41) = 0.1825968469036695D+00 - xs( 42) = 0.1934444578599797D+00 - xs( 43) = 0.2043703952895014D+00 - xs( 44) = 0.2153772008297019D+00 - xs( 45) = 0.2264682118893176D+00 - xs( 46) = 0.2376475824507340D+00 - xs( 47) = 0.2489197414537636D+00 - xs( 48) = 0.2602867745710895D+00 - xs( 49) = 0.2717395769971989D+00 - xs( 50) = 0.2832122210947680D+00 - xs( 51) = 0.2943151877487347D+00 - ws( 1) = 0.3096869549616747D-04 - ws( 2) = 0.7245570859372132D-04 - ws( 3) = 0.1148966574923360D-03 - ws( 4) = 0.1587873723979646D-03 - ws( 5) = 0.2047310788822348D-03 - ws( 6) = 0.2534140467232594D-03 - ws( 7) = 0.3056297971241431D-03 - ws( 8) = 0.3623114169923197D-03 - ws( 9) = 0.4245722707249418D-03 - ws( 10) = 0.4937580533138523D-03 - ws( 11) = 0.5715143236549974D-03 - ws( 12) = 0.6598750145890926D-03 - ws( 13) = 0.7613791322562431D-03 - ws( 14) = 0.8792249082509530D-03 - ws( 15) = 0.1017472764100221D-02 - ws( 16) = 0.1181309664244920D-02 - ws( 17) = 0.1377385326750046D-02 - ws( 18) = 0.1614219404758465D-02 - ws( 19) = 0.1902644583771986D-02 - ws( 20) = 0.2256164315893470D-02 - ws( 21) = 0.2690908169670980D-02 - ws( 22) = 0.3224471463912744D-02 - ws( 23) = 0.3872276958204999D-02 - ws( 24) = 0.4639583798307135D-02 - ws( 25) = 0.5508778863811012D-02 - ws( 26) = 0.6428400601401982D-02 - ws( 27) = 0.7319071074617892D-02 - ws( 28) = 0.8103324832371929D-02 - ws( 29) = 0.8737934953529192D-02 - ws( 30) = 0.9221284484292188D-02 - ws( 31) = 0.9577797684452121D-02 - ws( 32) = 0.9839284437336672D-02 - ws( 33) = 0.1003418974302680D-01 - ws( 34) = 0.1018424299030199D-01 - ws( 35) = 0.1030480760928536D-01 - ws( 36) = 0.1040634870068212D-01 - ws( 37) = 0.1049589438787472D-01 - ws( 38) = 0.1057816950545291D-01 - ws( 39) = 0.1065639298767040D-01 - ws( 40) = 0.1073281532115529D-01 - ws( 41) = 0.1080907317415309D-01 - ws( 42) = 0.1088642514841416D-01 - ws( 43) = 0.1096591419259033D-01 - ws( 44) = 0.1104848704833130D-01 - ws( 45) = 0.1113470211378932D-01 - ws( 46) = 0.1122467198325747D-01 - ws( 47) = 0.1132388570135127D-01 - ws( 48) = 0.1143643620941259D-01 - ws( 49) = 0.1156721030037130D-01 - ws( 50) = 0.1165369799138560D-01 - ws( 51) = 0.1006164229336008D-01 - endif - - - if( iquad .eq. 116 ) then - idomain = 116 - rk0r = 0.9424777960770379D+01 - rk0i = 0.4000000000010000D+00 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9999999999990000D+00 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5999999999980000D+00 - n = 50 - err = 0.3274170707773441D-12 - ierq = 4 - xs( 1) = 0.1594175407832242D-04 - xs( 2) = 0.8425732676399357D-04 - xs( 3) = 0.2082251227959014D-03 - xs( 4) = 0.3896879583220913D-03 - xs( 5) = 0.6312766960952522D-03 - xs( 6) = 0.9364715885124167D-03 - xs( 7) = 0.1309689970142968D-02 - xs( 8) = 0.1756424795434913D-02 - xs( 9) = 0.2283438853136760D-02 - xs( 10) = 0.2899019492070705D-02 - xs( 11) = 0.3613302939434648D-02 - xs( 12) = 0.4438683551221290D-02 - xs( 13) = 0.5390330805546496D-02 - xs( 14) = 0.6486845228726312D-02 - xs( 15) = 0.7751093052922309D-02 - xs( 16) = 0.9211265919243788D-02 - xs( 17) = 0.1090221013655469D-01 - xs( 18) = 0.1286704519761061D-01 - xs( 19) = 0.1515901053199282D-01 - xs( 20) = 0.1784327310685900D-01 - xs( 21) = 0.2099796973030823D-01 - xs( 22) = 0.2471290571518673D-01 - xs( 23) = 0.2908323840099630D-01 - xs( 24) = 0.3419533877271996D-01 - xs( 25) = 0.4010535713794588D-01 - xs( 26) = 0.4681854070824820D-01 - xs( 27) = 0.5428243163879150D-01 - xs( 28) = 0.6240022549293249D-01 - xs( 29) = 0.7105611684777564D-01 - xs( 30) = 0.8013843317780943D-01 - xs( 31) = 0.8955272160936566D-01 - xs( 32) = 0.9922538611959011D-01 - xs( 33) = 0.1091019034059385D+00 - xs( 34) = 0.1191430873933415D+00 - xs( 35) = 0.1293212909388052D+00 - xs( 36) = 0.1396172598847794D+00 - xs( 37) = 0.1500177599824464D+00 - xs( 38) = 0.1605138715868009D+00 - xs( 39) = 0.1710997959595608D+00 - xs( 40) = 0.1817720305276128D+00 - xs( 41) = 0.1925287978651737D+00 - xs( 42) = 0.2033696491558553D+00 - xs( 43) = 0.2142951518328184D+00 - xs( 44) = 0.2253065826599996D+00 - xs( 45) = 0.2364053651415148D+00 - xs( 46) = 0.2475916751263711D+00 - xs( 47) = 0.2588641528698590D+00 - xs( 48) = 0.2702099337949541D+00 - xs( 49) = 0.2815067347619614D+00 - xs( 50) = 0.2922817193340020D+00 - ws( 1) = 0.4094151996006087D-04 - ws( 2) = 0.9589586372376241D-04 - ws( 3) = 0.1523446976741192D-03 - ws( 4) = 0.2110186777756206D-03 - ws( 5) = 0.2727374058646725D-03 - ws( 6) = 0.3383863004299593D-03 - ws( 7) = 0.4089627283901455D-03 - ws( 8) = 0.4856298291313528D-03 - ws( 9) = 0.5697741418506916D-03 - ws( 10) = 0.6630697403053678D-03 - ws( 11) = 0.7675543379292636D-03 - ws( 12) = 0.8857242952316117D-03 - ws( 13) = 0.1020656503204402D-02 - ws( 14) = 0.1176165834057681D-02 - ws( 15) = 0.1357006333450144D-02 - ws( 16) = 0.1569120042079293D-02 - ws( 17) = 0.1819923654772436D-02 - ws( 18) = 0.2118588018917758D-02 - ws( 19) = 0.2476182850177011D-02 - ws( 20) = 0.2905380192450925D-02 - ws( 21) = 0.3419077780325302D-02 - ws( 22) = 0.4026888307743075D-02 - ws( 23) = 0.4728549029912587D-02 - ws( 24) = 0.5505392147740183D-02 - ws( 25) = 0.6315651894600440D-02 - ws( 26) = 0.7101725370092436D-02 - ws( 27) = 0.7809459851007432D-02 - ws( 28) = 0.8406422525138919D-02 - ws( 29) = 0.8886534130683618D-02 - ws( 30) = 0.9262306983137684D-02 - ws( 31) = 0.9554042113950580D-02 - ws( 32) = 0.9782266192239276D-02 - ws( 33) = 0.9964302126735599D-02 - ws( 34) = 0.1011351056793429D-01 - ws( 35) = 0.1023972673624485D-01 - ws( 36) = 0.1035003348910579D-01 - ws( 37) = 0.1044949978344122D-01 - ws( 38) = 0.1054177097447317D-01 - ws( 39) = 0.1062950495039943D-01 - ws( 40) = 0.1071468251641025D-01 - ws( 41) = 0.1079881254522331D-01 - ws( 42) = 0.1088305968639142D-01 - ws( 43) = 0.1096835473732952D-01 - ws( 44) = 0.1105559405903304D-01 - ws( 45) = 0.1114510815249501D-01 - ws( 46) = 0.1123548590176561D-01 - ws( 47) = 0.1132148121842346D-01 - ws( 48) = 0.1143728344620809D-01 - ws( 49) = 0.1149357860389918D-01 - ws( 50) = 0.9218657888750469D-02 - endif - - - if( iquad .eq. 117 ) then - idomain = 117 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1000000000001000D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1570796326793897D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.5707963267928966D+00 - n = 47 - err = 0.2370089814666207D-12 - ierq = 4 - xs( 1) = 0.2716217273164547D-04 - xs( 2) = 0.1434860427558264D-03 - xs( 3) = 0.3542875200176652D-03 - xs( 4) = 0.6622912062090610D-03 - xs( 5) = 0.1071513285230078D-02 - xs( 6) = 0.1587456689713050D-02 - xs( 7) = 0.2217330410937988D-02 - xs( 8) = 0.2970332169339931D-02 - xs( 9) = 0.3858010013873567D-02 - xs( 10) = 0.4894721184520023D-02 - xs( 11) = 0.6098211353206981D-02 - xs( 12) = 0.7490341796633472D-02 - xs( 13) = 0.9097993226536330D-02 - xs( 14) = 0.1095416583123087D-01 - xs( 15) = 0.1309925918282463D-01 - xs( 16) = 0.1558241766353628D-01 - xs( 17) = 0.1846260144782164D-01 - xs( 18) = 0.2180860652720889D-01 - xs( 19) = 0.2569662051487096D-01 - xs( 20) = 0.3020345067400235D-01 - xs( 21) = 0.3539433898633368D-01 - xs( 22) = 0.4130741598408371D-01 - xs( 23) = 0.4794120303704855D-01 - xs( 24) = 0.5525248536007252D-01 - xs( 25) = 0.6316635788270016D-01 - xs( 26) = 0.7159287441906238D-01 - xs( 27) = 0.8044248797387098D-01 - xs( 28) = 0.8963581819928729D-01 - xs( 29) = 0.9910757019583731D-01 - xs( 30) = 0.1088065487221171D+00 - xs( 31) = 0.1186938048052435D+00 - xs( 32) = 0.1287402587193198D+00 - xs( 33) = 0.1389244678508627D+00 - xs( 34) = 0.1492307810014168D+00 - xs( 35) = 0.1596479081507102D+00 - xs( 36) = 0.1701678501184154D+00 - xs( 37) = 0.1807851102831660D+00 - xs( 38) = 0.1914961138602916D+00 - xs( 39) = 0.2022987586393958D+00 - xs( 40) = 0.2131919935742928D+00 - xs( 41) = 0.2241754355267949D+00 - xs( 42) = 0.2352487433005125D+00 - xs( 43) = 0.2464090157330530D+00 - xs( 44) = 0.2576518551311455D+00 - xs( 45) = 0.2689466778282296D+00 - xs( 46) = 0.2801212359410539D+00 - xs( 47) = 0.2908064897401501D+00 - ws( 1) = 0.6974899813565683D-04 - ws( 2) = 0.1632038882829038D-03 - ws( 3) = 0.2588478350882233D-03 - ws( 4) = 0.3578260309831792D-03 - ws( 5) = 0.4615316709790337D-03 - ws( 6) = 0.5715519595333835D-03 - ws( 7) = 0.6897224528455798D-03 - ws( 8) = 0.8181981461706963D-03 - ws( 9) = 0.9595408288318494D-03 - ws( 10) = 0.1116827076809133D-02 - ws( 11) = 0.1293781798691879D-02 - ws( 12) = 0.1494940856161135D-02 - ws( 13) = 0.1725840479100141D-02 - ws( 14) = 0.1993214846616291D-02 - ws( 15) = 0.2305142993295895D-02 - ws( 16) = 0.2670996946791204D-02 - ws( 17) = 0.3100872473905203D-02 - ws( 18) = 0.3603944812318275D-02 - ws( 19) = 0.4185091467699168D-02 - ws( 20) = 0.4839718309118010D-02 - ws( 21) = 0.5548642481747120D-02 - ws( 22) = 0.6277305810462345D-02 - ws( 23) = 0.6982882388384178D-02 - ws( 24) = 0.7626899325489678D-02 - ws( 25) = 0.8185586584179559D-02 - ws( 26) = 0.8652359930129853D-02 - ws( 27) = 0.9033577295054294D-02 - ws( 28) = 0.9342205543108092D-02 - ws( 29) = 0.9592799946850805D-02 - ws( 30) = 0.9798706702152014D-02 - ws( 31) = 0.9970996530052033D-02 - ws( 32) = 0.1011836830362748D-01 - ws( 33) = 0.1024746508062689D-01 - ws( 34) = 0.1036329712357801D-01 - ws( 35) = 0.1046963710526773D-01 - ws( 36) = 0.1056934244498164D-01 - ws( 37) = 0.1066459662789903D-01 - ws( 38) = 0.1075708647161689D-01 - ws( 39) = 0.1084814486729143D-01 - ws( 40) = 0.1093877080581809D-01 - ws( 41) = 0.1102923161116502D-01 - ws( 42) = 0.1112008928597206D-01 - ws( 43) = 0.1120750823115445D-01 - ws( 44) = 0.1128612764567931D-01 - ws( 45) = 0.1138903142384253D-01 - ws( 46) = 0.1114798809281975D-01 - ws( 47) = 0.8102348985473740D-02 - endif - - - if( iquad .eq. 118 ) then - idomain = 118 - rk0r = 0.9424777960770379D+01 - rk0i = 0.1570796326795897D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.3141592653588793D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.1570796326792897D+01 - n = 46 - err = 0.1205235036812334D-12 - ierq = 4 - xs( 1) = 0.3989898470082383D-04 - xs( 2) = 0.2107613276179287D-03 - xs( 3) = 0.5203654592399362D-03 - xs( 4) = 0.9726591861526128D-03 - xs( 5) = 0.1573462421617003D-02 - xs( 6) = 0.2330749075268201D-02 - xs( 7) = 0.3254954106422424D-02 - xs( 8) = 0.4359350987694456D-02 - xs( 9) = 0.5660500715938871D-02 - xs( 10) = 0.7178762038457814D-02 - xs( 11) = 0.8938832789328846D-02 - xs( 12) = 0.1097025372014146D-01 - xs( 13) = 0.1330773964445316D-01 - xs( 14) = 0.1599110520178489D-01 - xs( 15) = 0.1906444198441393D-01 - xs( 16) = 0.2257414150661859D-01 - xs( 17) = 0.2656547324888329D-01 - xs( 18) = 0.3107785629897155D-01 - xs( 19) = 0.3613963708236710D-01 - xs( 20) = 0.4176371809731681D-01 - xs( 21) = 0.4794535928493215D-01 - xs( 22) = 0.5466282633528841D-01 - xs( 23) = 0.6188061097208489D-01 - xs( 24) = 0.6955418021850300D-01 - xs( 25) = 0.7763496546359705D-01 - xs( 26) = 0.8607457832986738D-01 - xs( 27) = 0.9482776504730885D-01 - xs( 28) = 0.1038540834171707D+00 - xs( 29) = 0.1131185578408208D+00 - xs( 30) = 0.1225916459444806D+00 - xs( 31) = 0.1322488120751250D+00 - xs( 32) = 0.1420699219858866D+00 - xs( 33) = 0.1520385930087037D+00 - xs( 34) = 0.1621415719049851D+00 - xs( 35) = 0.1723681699801037D+00 - xs( 36) = 0.1827097549840545D+00 - xs( 37) = 0.1931592799788492D+00 - xs( 38) = 0.2037108058215198D+00 - xs( 39) = 0.2143589164000033D+00 - xs( 40) = 0.2250978268937973D+00 - xs( 41) = 0.2359196868557328D+00 - xs( 42) = 0.2468109522885487D+00 - xs( 43) = 0.2577430397088628D+00 - xs( 44) = 0.2686394169015181D+00 - xs( 45) = 0.2792915614915910D+00 - xs( 46) = 0.2894317532602196D+00 - ws( 1) = 0.1024546176936181D-03 - ws( 2) = 0.2397132611518096D-03 - ws( 3) = 0.3801451481417892D-03 - ws( 4) = 0.5254081403981191D-03 - ws( 5) = 0.6775222338706548D-03 - ws( 6) = 0.8387839429655703D-03 - ws( 7) = 0.1011830860260588D-02 - ws( 8) = 0.1199714500356401D-02 - ws( 9) = 0.1405968906489415D-02 - ws( 10) = 0.1634661338908929D-02 - ws( 11) = 0.1890397556403532D-02 - ws( 12) = 0.2178230513871447D-02 - ws( 13) = 0.2503389791127204D-02 - ws( 14) = 0.2870722039896714D-02 - ws( 15) = 0.3283740678317369D-02 - ws( 16) = 0.3743284072730275D-02 - ws( 17) = 0.4246039752188002D-02 - ws( 18) = 0.4783527032862900D-02 - ws( 19) = 0.5342223331922567D-02 - ws( 20) = 0.5905137145057161D-02 - ws( 21) = 0.6454466454150369D-02 - ws( 22) = 0.6974467146333057D-02 - ws( 23) = 0.7453594302521134D-02 - ws( 24) = 0.7885378029635296D-02 - ws( 25) = 0.8268078545759106D-02 - ws( 26) = 0.8603577631696710D-02 - ws( 27) = 0.8896045357970299D-02 - ws( 28) = 0.9150763386778019D-02 - ws( 29) = 0.9373269345458502D-02 - ws( 30) = 0.9568827995940617D-02 - ws( 31) = 0.9742159608766072D-02 - ws( 32) = 0.9897340360088876D-02 - ws( 33) = 0.1003780251644386D-01 - ws( 34) = 0.1016638216001854D-01 - ws( 35) = 0.1028538184084444D-01 - ws( 36) = 0.1039662616368904D-01 - ws( 37) = 0.1050148645122314D-01 - ws( 38) = 0.1060088310928368D-01 - ws( 39) = 0.1069526030465658D-01 - ws( 40) = 0.1078437894266891D-01 - ws( 41) = 0.1086641371196616D-01 - ws( 42) = 0.1093374547785664D-01 - ws( 43) = 0.1096196752501509D-01 - ws( 44) = 0.1082076565044113D-01 - ws( 45) = 0.9715535159235296D-02 - ws( 46) = 0.5699543414008573D-02 - endif - - - if( iquad .eq. 119 ) then - idomain = 119 - rk0r = 0.9424777960770379D+01 - rk0i = 0.3141592653590793D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.6283185307178586D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 44 - err = 0.1207357337942209D-12 - ierq = 4 - xs( 1) = 0.7007310216926534D-04 - xs( 2) = 0.3701576101744083D-03 - xs( 3) = 0.9138969290954643D-03 - xs( 4) = 0.1708037401316781D-02 - xs( 5) = 0.2762159362506733D-02 - xs( 6) = 0.4088719820501090D-02 - xs( 7) = 0.5702921961130173D-02 - xs( 8) = 0.7622425894899834D-02 - xs( 9) = 0.9866836245351351D-02 - xs( 10) = 0.1245691590022304D-01 - xs( 11) = 0.1541352728435198D-01 - xs( 12) = 0.1875637466908249D-01 - xs( 13) = 0.2250268052505722D-01 - xs( 14) = 0.2666595078966200D-01 - xs( 15) = 0.3125496866092190D-01 - xs( 16) = 0.3627312114507197D-01 - xs( 17) = 0.4171812055597012D-01 - xs( 18) = 0.4758213761188533D-01 - xs( 19) = 0.5385231416389182D-01 - xs( 20) = 0.6051157763460308D-01 - xs( 21) = 0.6753964628533560D-01 - xs( 22) = 0.7491410298612632D-01 - xs( 23) = 0.8261142660217026D-01 - xs( 24) = 0.9060789827994566D-01 - xs( 25) = 0.9888033486891407D-01 - xs( 26) = 0.1074066342545403D+00 - xs( 27) = 0.1161661418437842D+00 - xs( 28) = 0.1251398620998032D+00 - xs( 29) = 0.1343105448893395D+00 - xs( 30) = 0.1436626757445776D+00 - xs( 31) = 0.1531823944371027D+00 - xs( 32) = 0.1628573597996745D+00 - xs( 33) = 0.1726765705438624D+00 - xs( 34) = 0.1826301358581152D+00 - xs( 35) = 0.1927089795511618D+00 - xs( 36) = 0.2029044318807047D+00 - xs( 37) = 0.2132075277422887D+00 - xs( 38) = 0.2236076423201835D+00 - xs( 39) = 0.2340898872664954D+00 - xs( 40) = 0.2446265163638945D+00 - xs( 41) = 0.2551562707533391D+00 - xs( 42) = 0.2655555028075384D+00 - xs( 43) = 0.2756562359344134D+00 - xs( 44) = 0.2854561321929995D+00 - ws( 1) = 0.1799381889643496D-03 - ws( 2) = 0.4210087032397907D-03 - ws( 3) = 0.6675852530164299D-03 - ws( 4) = 0.9222925464300005D-03 - ws( 5) = 0.1188029622199636D-02 - ws( 6) = 0.1467629808035778D-02 - ws( 7) = 0.1763726228279922D-02 - ws( 8) = 0.2078562174305648D-02 - ws( 9) = 0.2413736834084271D-02 - ws( 10) = 0.2769920841947053D-02 - ws( 11) = 0.3146608417160318D-02 - ws( 12) = 0.3541977682813242D-02 - ws( 13) = 0.3952902038607185D-02 - ws( 14) = 0.4375113730485197D-02 - ws( 15) = 0.4803491196150509D-02 - ws( 16) = 0.5232430196126883D-02 - ws( 17) = 0.5656255009087038D-02 - ws( 18) = 0.6069622230839992D-02 - ws( 19) = 0.6467868388337233D-02 - ws( 20) = 0.6847260096539658D-02 - ws( 21) = 0.7205123628070419D-02 - ws( 22) = 0.7539854368685713D-02 - ws( 23) = 0.7850827467556607D-02 - ws( 24) = 0.8138242973500950D-02 - ws( 25) = 0.8402940492961674D-02 - ws( 26) = 0.8646212462899278D-02 - ws( 27) = 0.8869635595252999D-02 - ws( 28) = 0.9074930477071910D-02 - ws( 29) = 0.9263851688410015D-02 - ws( 30) = 0.9438105213100813D-02 - ws( 31) = 0.9599285305213449D-02 - ws( 32) = 0.9748820487056558D-02 - ws( 33) = 0.9887926785802307D-02 - ws( 34) = 0.1001756290594216D-01 - ws( 35) = 0.1013837444056213D-01 - ws( 36) = 0.1025073993100899D-01 - ws( 37) = 0.1035502705725778D-01 - ws( 38) = 0.1045154660568589D-01 - ws( 39) = 0.1054075741636115D-01 - ws( 40) = 0.1061652345042887D-01 - ws( 41) = 0.1058678975907742D-01 - ws( 42) = 0.1000087069518168D-01 - ws( 43) = 0.7708621262517467D-02 - ws( 44) = 0.3427514083829985D-02 - endif - - - if( iquad .eq. 120 ) then - idomain = 120 - rk0r = 0.9424777960770379D+01 - rk0i = 0.6283185307180586D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.9424777960768379D+01 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 44 - err = 0.2728317935121787D-12 - ierq = 4 - xs( 1) = 0.1024153936607278D-03 - xs( 2) = 0.5400099479051846D-03 - xs( 3) = 0.1328829729830072D-02 - xs( 4) = 0.2471573237466567D-02 - xs( 5) = 0.3971608472430401D-02 - xs( 6) = 0.5832806345276663D-02 - xs( 7) = 0.8059189629597233D-02 - xs( 8) = 0.1065453505086900D-01 - xs( 9) = 0.1362196400070173D-01 - xs( 10) = 0.1696355072626526D-01 - xs( 11) = 0.2067997429485028D-01 - xs( 12) = 0.2477023693986177D-01 - xs( 13) = 0.2923146629834601D-01 - xs( 14) = 0.3405881275415436D-01 - xs( 15) = 0.3924544587692366D-01 - xs( 16) = 0.4478264627300339D-01 - xs( 17) = 0.5065998181153993D-01 - xs( 18) = 0.5686555109976665D-01 - xs( 19) = 0.6338627309693591D-01 - xs( 20) = 0.7020820034553731D-01 - xs( 21) = 0.7731683442440736D-01 - xs( 22) = 0.8469742539127355D-01 - xs( 23) = 0.9233524139739553D-01 - xs( 24) = 0.1002157994775813D+00 - xs( 25) = 0.1083250530227771D+00 - xs( 26) = 0.1166495351344923D+00 - xs( 27) = 0.1251764596963968D+00 - xs( 28) = 0.1338937835145081D+00 - xs( 29) = 0.1427902332523598D+00 - xs( 30) = 0.1518553001378190D+00 - xs( 31) = 0.1610792039861562D+00 - xs( 32) = 0.1704528265824955D+00 - xs( 33) = 0.1799676090681718D+00 - xs( 34) = 0.1896153949041198D+00 - xs( 35) = 0.1993882092057030D+00 - xs( 36) = 0.2092780302369456D+00 - xs( 37) = 0.2192763371230709D+00 - xs( 38) = 0.2293724066284024D+00 - xs( 39) = 0.2395501929285949D+00 - xs( 40) = 0.2497841586210399D+00 - xs( 41) = 0.2600306072353356D+00 - xs( 42) = 0.2701697767111195D+00 - xs( 43) = 0.2799417858786449D+00 - xs( 44) = 0.2891393064232989D+00 - ws( 1) = 0.2628757195508294D-03 - ws( 2) = 0.6128027755880287D-03 - ws( 3) = 0.9652769147848925D-03 - ws( 4) = 0.1320775651654718D-02 - ws( 5) = 0.1679945962320558D-02 - ws( 6) = 0.2043126952788372D-02 - ws( 7) = 0.2410275960013721D-02 - ws( 8) = 0.2780941707858558D-02 - ws( 9) = 0.3154267754654454D-02 - ws( 10) = 0.3529023610764453D-02 - ws( 11) = 0.3903660555111382D-02 - ws( 12) = 0.4276387728420401D-02 - ws( 13) = 0.4645262769681528D-02 - ws( 14) = 0.5008290179269640D-02 - ws( 15) = 0.5363519855273197D-02 - ws( 16) = 0.5709138139152278D-02 - ws( 17) = 0.6043544490833952D-02 - ws( 18) = 0.6365408639754777D-02 - ws( 19) = 0.6673705476636265D-02 - ws( 20) = 0.6967727592616536D-02 - ws( 21) = 0.7247077724614565D-02 - ws( 22) = 0.7511645039104782D-02 - ws( 23) = 0.7761570008267873D-02 - ws( 24) = 0.7997202645398899D-02 - ws( 25) = 0.8219058260063477D-02 - ws( 26) = 0.8427773907920121D-02 - ws( 27) = 0.8624067584923600D-02 - ws( 28) = 0.8808701229446025D-02 - ws( 29) = 0.8982447717838932D-02 - ws( 30) = 0.9146060242587538D-02 - ws( 31) = 0.9300238629599385D-02 - ws( 32) = 0.9445587038237960D-02 - ws( 33) = 0.9582564152553350D-02 - ws( 34) = 0.9711390845126823D-02 - ws( 35) = 0.9831795612403105D-02 - ws( 36) = 0.9942947350917991D-02 - ws( 37) = 0.1004500710424367D-01 - ws( 38) = 0.1014070067186676D-01 - ws( 39) = 0.1022977379227278D-01 - ws( 40) = 0.1029793264615541D-01 - ws( 41) = 0.1031311035010873D-01 - ws( 42) = 0.1011345899626609D-01 - ws( 43) = 0.8586347917931433D-02 - ws( 44) = 0.4274639437760651D-02 - endif - - - if( iquad .eq. 121 ) then - idomain = 121 - rk0r = 0.9424777960770379D+01 - rk0i = 0.9424777960770379D+01 - rk1r = 0.1256637061435817D+02 - rk1i = 0.1256637061435817D+02 - rkdr = 0.3141592653587793D+01 - rkdi = 0.3141592653587793D+01 - n = 46 - err = 0.3343554540473107D-13 - ierq = 0 - xs( 1) = 0.9371872798389280D-04 - xs( 2) = 0.4946035283229688D-03 - xs( 3) = 0.1218843507096337D-02 - xs( 4) = 0.2270853201224545D-02 - xs( 5) = 0.3655260175884534D-02 - xs( 6) = 0.5376191428476611D-02 - xs( 7) = 0.7436787486757337D-02 - xs( 8) = 0.9838984755956222D-02 - xs( 9) = 0.1258345392224879D-01 - xs( 10) = 0.1566960438951348D-01 - xs( 11) = 0.1909560889401334D-01 - xs( 12) = 0.2285843375152327D-01 - xs( 13) = 0.2695387538102813D-01 - xs( 14) = 0.3137660840876933D-01 - xs( 15) = 0.3612025015345942D-01 - xs( 16) = 0.4117744389784498D-01 - xs( 17) = 0.4653996068664645D-01 - xs( 18) = 0.5219881714710500D-01 - xs( 19) = 0.5814440524161112D-01 - xs( 20) = 0.6436662896077293D-01 - xs( 21) = 0.7085504268351166D-01 - xs( 22) = 0.7759898615433601D-01 - xs( 23) = 0.8458771161793717D-01 - xs( 24) = 0.9181049946126289D-01 - xs( 25) = 0.9925675960401883D-01 - xs( 26) = 0.1069161167228251D+00 - xs( 27) = 0.1147784780756827D+00 - xs( 28) = 0.1228340831190516D+00 - xs( 29) = 0.1310735342270483D+00 - xs( 30) = 0.1394878074967229D+00 - xs( 31) = 0.1480682415300985D+00 - xs( 32) = 0.1568065006502248D+00 - xs( 33) = 0.1656945070713466D+00 - xs( 34) = 0.1747243259597634D+00 - xs( 35) = 0.1838879650379424D+00 - xs( 36) = 0.1931770385950348D+00 - xs( 37) = 0.2025821334705300D+00 - xs( 38) = 0.2120913865204056D+00 - xs( 39) = 0.2216886140569517D+00 - xs( 40) = 0.2313506726344602D+00 - xs( 41) = 0.2410390860235154D+00 - xs( 42) = 0.2507003511080215D+00 - xs( 43) = 0.2602370124735414D+00 - xs( 44) = 0.2694860343776161D+00 - xs( 45) = 0.2872403225672312D+00 - xs( 46) = 0.2960190885995262D+00 - ws( 1) = 0.2406070700766135D-03 - ws( 2) = 0.5618749871874667D-03 - ws( 3) = 0.8873468811184894D-03 - ws( 4) = 0.1217457223123197D-02 - ws( 5) = 0.1552052514504207D-02 - ws( 6) = 0.1890336730381630D-02 - ws( 7) = 0.2231178928837045D-02 - ws( 8) = 0.2573327214574195D-02 - ws( 9) = 0.2915512247272376D-02 - ws( 10) = 0.3256483644764033D-02 - ws( 11) = 0.3595019155935150D-02 - ws( 12) = 0.3929929172542877D-02 - ws( 13) = 0.4260065455136740D-02 - ws( 14) = 0.4584335431290432D-02 - ws( 15) = 0.4901720235300283D-02 - ws( 16) = 0.5211293786585139D-02 - ws( 17) = 0.5512240386524932D-02 - ws( 18) = 0.5803868902036951D-02 - ws( 19) = 0.6085622297484332D-02 - ws( 20) = 0.6357081939007976D-02 - ws( 21) = 0.6617966663155295D-02 - ws( 22) = 0.6868127041654072D-02 - ws( 23) = 0.7107535568524148D-02 - ws( 24) = 0.7336273637877665D-02 - ws( 25) = 0.7554516183824273D-02 - ws( 26) = 0.7762514754906425D-02 - ws( 27) = 0.7960579600574582D-02 - ws( 28) = 0.8149060976547440D-02 - ws( 29) = 0.8328329330729051D-02 - ws( 30) = 0.8498753588176472D-02 - ws( 31) = 0.8660675396228045D-02 - ws( 32) = 0.8814374480760145D-02 - ws( 33) = 0.8960027927550429D-02 - ws( 34) = 0.9097681062559343D-02 - ws( 35) = 0.9227199629749373D-02 - ws( 36) = 0.9348131378104634D-02 - ws( 37) = 0.9459429058480209D-02 - ws( 38) = 0.9556903753727374D-02 - ws( 39) = 0.9624144178196100D-02 - ws( 40) = 0.9620262634060189D-02 - ws( 41) = 0.9435198644667211D-02 - ws( 42) = 0.8817327160911832D-02 - ws( 43) = 0.7324913826161911D-02 - ws( 44) = 0.4202244927235867D-02 - ws( 45) = -.2259993112888862D-02 - ws( 46) = -.1438018159575948D-02 - endif - - - - return - end diff --git a/src/Helmholtz/hwts3e.f b/src/Helmholtz/hwts3e.f index 6b7c539e..7e45f173 100644 --- a/src/Helmholtz/hwts3e.f +++ b/src/Helmholtz/hwts3e.f @@ -1,3 +1,41 @@ +c Information Technology Laboratory, National Institute of +c Standards and Technology, 325 Broadway, Mail Stop 891.01, +c Boulder, CO 80305-3328. email: zydrunas.gimbutas@nist.gov. +c Contributions by staff of NIST, an agency of the U.S. Government, +c are not subject to copyright within the United States. + +c NIST-developed software is provided by NIST as a public service. +c You may use, copy, and distribute copies of the software in any medium, +c provided that you keep intact this entire notice. You may improve, +c modify, and create derivative works of the software or any portion of +c the software, and you may copy and distribute such +c modifications or works. Modified works should carry a notice stating +c that you changed the software and should note the date and nature +c of any such change. Please explicitly acknowledge the National +c Institute of Standards and Technology as the source of the software. + +c NIST-developed software is expressly provided "AS IS." +c NIST MAKES NO WARRANTY OF ANY KIND, EXPRESS, IMPLIED, IN FACT, OR +c ARISING BY OPERATION OF LAW, INCLUDING, WITHOUT LIMITATION, THE +c IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, +c NON-INFRINGEMENT, AND DATA ACCURACY. NIST NEITHER REPRESENTS NOR +c WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE UNINTERRUPTED +c OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES NOT +c WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE +c SOFTWARE OR THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE +c CORRECTNESS, ACCURACY, RELIABILITY, OR USEFULNESS OF THE SOFTWARE. +c +c You are solely responsible for determining the appropriateness of +c using and distributing the software and you assume all risks +c associated with its use, including but not limited to the risks +c and costs of program errors, compliance with applicable laws, damage +c to or loss of data, programs or equipment, and the unavailability +c or interruption of operation. This software is not intended to be +c used in any situation where a failure could cause risk of injury +c or damage to property. The software developed by NIST employees is +c not subject to copyright protection within the United States. + + ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c this is the end of the debugging code and the beginning @@ -110,8 +148,8 @@ subroutine hwts3e(ier,eps,rk,cxs,cws,n) c gamma=0 v=u/(1+gamma*abs(dble(-ima*rk))) - cxs(k)=u-ima*rk+abs(imag(-ima*rk))*ima*(v/(1+v)) - cws(k)=1+abs(imag(-ima*rk))*ima*((1+v)-v)/(1+v)**2 + cxs(k)=u-ima*rk+abs(dimag(-ima*rk))*ima*(v/(1+v)) + cws(k)=1+abs(dimag(-ima*rk))*ima*((1+v)-v)/(1+v)**2 $ /(1+gamma*abs(dble(-ima*rk))) cws(k)=cws(k)*ws(k)*uweight endif @@ -237,7 +275,7 @@ subroutine hwts3dgetd(ier,rk,idomain) cy(24)=16*pi c rkrea=dble(rk) - rkima=imag(rk) + rkima=dimag(rk) c idomain = 0 ier = 0 diff --git a/src/Helmholtz/hwts_3d_iprec0.txt b/src/Helmholtz/hwts_3d_iprec0.txt index 41c06d33..99781908 100644 --- a/src/Helmholtz/hwts_3d_iprec0.txt +++ b/src/Helmholtz/hwts_3d_iprec0.txt @@ -1,3 +1,44 @@ +c Information Technology Laboratory, National Institute of +c Standards and Technology, 325 Broadway, Mail Stop 891.01, +c Boulder, CO 80305-3328. email: zydrunas.gimbutas@nist.gov. +c Contributions by staff of NIST, an agency of the U.S. Government, +c are not subject to copyright within the United States. + +c NIST-developed software is provided by NIST as a public service. +c You may use, copy, and distribute copies of the software in any medium, +c provided that you keep intact this entire notice. You may improve, +c modify, and create derivative works of the software or any portion of +c the software, and you may copy and distribute such +c modifications or works. Modified works should carry a notice stating +c that you changed the software and should note the date and nature +c of any such change. Please explicitly acknowledge the National +c Institute of Standards and Technology as the source of the software. + +c NIST-developed software is expressly provided "AS IS." +c NIST MAKES NO WARRANTY OF ANY KIND, EXPRESS, IMPLIED, IN FACT, OR +c ARISING BY OPERATION OF LAW, INCLUDING, WITHOUT LIMITATION, THE +c IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, +c NON-INFRINGEMENT, AND DATA ACCURACY. NIST NEITHER REPRESENTS NOR +c WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE UNINTERRUPTED +c OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES NOT +c WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE +c SOFTWARE OR THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE +c CORRECTNESS, ACCURACY, RELIABILITY, OR USEFULNESS OF THE SOFTWARE. +c +c You are solely responsible for determining the appropriateness of +c using and distributing the software and you assume all risks +c associated with its use, including but not limited to the risks +c and costs of program errors, compliance with applicable laws, damage +c to or loss of data, programs or equipment, and the unavailability +c or interruption of operation. This software is not intended to be +c used in any situation where a failure could cause risk of injury +c or damage to property. The software developed by NIST employees is +c not subject to copyright protection within the United States. + + +ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + + if( idomain .eq. 1 ) then rk0r = 0.0000000000000000D+00 rk0i = 0.0000000000000000D+00 diff --git a/src/Helmholtz/hwts_3d_iprec1.txt b/src/Helmholtz/hwts_3d_iprec1.txt index 1e688ed3..3cae52a6 100644 --- a/src/Helmholtz/hwts_3d_iprec1.txt +++ b/src/Helmholtz/hwts_3d_iprec1.txt @@ -1,3 +1,44 @@ +c Information Technology Laboratory, National Institute of +c Standards and Technology, 325 Broadway, Mail Stop 891.01, +c Boulder, CO 80305-3328. email: zydrunas.gimbutas@nist.gov. +c Contributions by staff of NIST, an agency of the U.S. Government, +c are not subject to copyright within the United States. + +c NIST-developed software is provided by NIST as a public service. +c You may use, copy, and distribute copies of the software in any medium, +c provided that you keep intact this entire notice. You may improve, +c modify, and create derivative works of the software or any portion of +c the software, and you may copy and distribute such +c modifications or works. Modified works should carry a notice stating +c that you changed the software and should note the date and nature +c of any such change. Please explicitly acknowledge the National +c Institute of Standards and Technology as the source of the software. + +c NIST-developed software is expressly provided "AS IS." +c NIST MAKES NO WARRANTY OF ANY KIND, EXPRESS, IMPLIED, IN FACT, OR +c ARISING BY OPERATION OF LAW, INCLUDING, WITHOUT LIMITATION, THE +c IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, +c NON-INFRINGEMENT, AND DATA ACCURACY. NIST NEITHER REPRESENTS NOR +c WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE UNINTERRUPTED +c OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES NOT +c WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE +c SOFTWARE OR THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE +c CORRECTNESS, ACCURACY, RELIABILITY, OR USEFULNESS OF THE SOFTWARE. +c +c You are solely responsible for determining the appropriateness of +c using and distributing the software and you assume all risks +c associated with its use, including but not limited to the risks +c and costs of program errors, compliance with applicable laws, damage +c to or loss of data, programs or equipment, and the unavailability +c or interruption of operation. This software is not intended to be +c used in any situation where a failure could cause risk of injury +c or damage to property. The software developed by NIST employees is +c not subject to copyright protection within the United States. + + +ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + + if( idomain .eq. 1 ) then rk0r = 0.0000000000000000D+00 rk0i = 0.0000000000000000D+00 diff --git a/src/Helmholtz/hwts_3d_iprec2.txt b/src/Helmholtz/hwts_3d_iprec2.txt index 48944411..bab054d7 100644 --- a/src/Helmholtz/hwts_3d_iprec2.txt +++ b/src/Helmholtz/hwts_3d_iprec2.txt @@ -1,3 +1,43 @@ +c Information Technology Laboratory, National Institute of +c Standards and Technology, 325 Broadway, Mail Stop 891.01, +c Boulder, CO 80305-3328. email: zydrunas.gimbutas@nist.gov. +c Contributions by staff of NIST, an agency of the U.S. Government, +c are not subject to copyright within the United States. + +c NIST-developed software is provided by NIST as a public service. +c You may use, copy, and distribute copies of the software in any medium, +c provided that you keep intact this entire notice. You may improve, +c modify, and create derivative works of the software or any portion of +c the software, and you may copy and distribute such +c modifications or works. Modified works should carry a notice stating +c that you changed the software and should note the date and nature +c of any such change. Please explicitly acknowledge the National +c Institute of Standards and Technology as the source of the software. + +c NIST-developed software is expressly provided "AS IS." +c NIST MAKES NO WARRANTY OF ANY KIND, EXPRESS, IMPLIED, IN FACT, OR +c ARISING BY OPERATION OF LAW, INCLUDING, WITHOUT LIMITATION, THE +c IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, +c NON-INFRINGEMENT, AND DATA ACCURACY. NIST NEITHER REPRESENTS NOR +c WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE UNINTERRUPTED +c OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES NOT +c WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE +c SOFTWARE OR THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE +c CORRECTNESS, ACCURACY, RELIABILITY, OR USEFULNESS OF THE SOFTWARE. +c +c You are solely responsible for determining the appropriateness of +c using and distributing the software and you assume all risks +c associated with its use, including but not limited to the risks +c and costs of program errors, compliance with applicable laws, damage +c to or loss of data, programs or equipment, and the unavailability +c or interruption of operation. This software is not intended to be +c used in any situation where a failure could cause risk of injury +c or damage to property. The software developed by NIST employees is +c not subject to copyright protection within the United States. + + +ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + if( idomain .eq. 1 ) then rk0r = 0.0000000000000000D+00 rk0i = 0.0000000000000000D+00 diff --git a/src/Helmholtz/hwts_3d_iprec3.txt b/src/Helmholtz/hwts_3d_iprec3.txt index 0a46bb2e..16e66f48 100644 --- a/src/Helmholtz/hwts_3d_iprec3.txt +++ b/src/Helmholtz/hwts_3d_iprec3.txt @@ -1,3 +1,44 @@ +c Information Technology Laboratory, National Institute of +c Standards and Technology, 325 Broadway, Mail Stop 891.01, +c Boulder, CO 80305-3328. email: zydrunas.gimbutas@nist.gov. +c Contributions by staff of NIST, an agency of the U.S. Government, +c are not subject to copyright within the United States. + +c NIST-developed software is provided by NIST as a public service. +c You may use, copy, and distribute copies of the software in any medium, +c provided that you keep intact this entire notice. You may improve, +c modify, and create derivative works of the software or any portion of +c the software, and you may copy and distribute such +c modifications or works. Modified works should carry a notice stating +c that you changed the software and should note the date and nature +c of any such change. Please explicitly acknowledge the National +c Institute of Standards and Technology as the source of the software. + +c NIST-developed software is expressly provided "AS IS." +c NIST MAKES NO WARRANTY OF ANY KIND, EXPRESS, IMPLIED, IN FACT, OR +c ARISING BY OPERATION OF LAW, INCLUDING, WITHOUT LIMITATION, THE +c IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, +c NON-INFRINGEMENT, AND DATA ACCURACY. NIST NEITHER REPRESENTS NOR +c WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE UNINTERRUPTED +c OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES NOT +c WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE +c SOFTWARE OR THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE +c CORRECTNESS, ACCURACY, RELIABILITY, OR USEFULNESS OF THE SOFTWARE. +c +c You are solely responsible for determining the appropriateness of +c using and distributing the software and you assume all risks +c associated with its use, including but not limited to the risks +c and costs of program errors, compliance with applicable laws, damage +c to or loss of data, programs or equipment, and the unavailability +c or interruption of operation. This software is not intended to be +c used in any situation where a failure could cause risk of injury +c or damage to property. The software developed by NIST employees is +c not subject to copyright protection within the United States. + + +ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + + if( idomain .eq. 1 ) then rk0r = 0.0000000000000000D+00 rk0i = 0.0000000000000000D+00 diff --git a/src/Helmholtz/hwts_3d_iprec4.txt b/src/Helmholtz/hwts_3d_iprec4.txt index bbaac8c2..842a4970 100644 --- a/src/Helmholtz/hwts_3d_iprec4.txt +++ b/src/Helmholtz/hwts_3d_iprec4.txt @@ -1,3 +1,43 @@ +c Information Technology Laboratory, National Institute of +c Standards and Technology, 325 Broadway, Mail Stop 891.01, +c Boulder, CO 80305-3328. email: zydrunas.gimbutas@nist.gov. +c Contributions by staff of NIST, an agency of the U.S. Government, +c are not subject to copyright within the United States. + +c NIST-developed software is provided by NIST as a public service. +c You may use, copy, and distribute copies of the software in any medium, +c provided that you keep intact this entire notice. You may improve, +c modify, and create derivative works of the software or any portion of +c the software, and you may copy and distribute such +c modifications or works. Modified works should carry a notice stating +c that you changed the software and should note the date and nature +c of any such change. Please explicitly acknowledge the National +c Institute of Standards and Technology as the source of the software. + +c NIST-developed software is expressly provided "AS IS." +c NIST MAKES NO WARRANTY OF ANY KIND, EXPRESS, IMPLIED, IN FACT, OR +c ARISING BY OPERATION OF LAW, INCLUDING, WITHOUT LIMITATION, THE +c IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, +c NON-INFRINGEMENT, AND DATA ACCURACY. NIST NEITHER REPRESENTS NOR +c WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE UNINTERRUPTED +c OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES NOT +c WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE +c SOFTWARE OR THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE +c CORRECTNESS, ACCURACY, RELIABILITY, OR USEFULNESS OF THE SOFTWARE. +c +c You are solely responsible for determining the appropriateness of +c using and distributing the software and you assume all risks +c associated with its use, including but not limited to the risks +c and costs of program errors, compliance with applicable laws, damage +c to or loss of data, programs or equipment, and the unavailability +c or interruption of operation. This software is not intended to be +c used in any situation where a failure could cause risk of injury +c or damage to property. The software developed by NIST employees is +c not subject to copyright protection within the United States. + + +ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +c if( idomain .eq. 1 ) then rk0r = 0.0000000000000000D+00 rk0i = 0.0000000000000000D+00 diff --git a/src/Helmholtz/nfour.txt b/src/Helmholtz/nfour.txt deleted file mode 100644 index e9ff4c55..00000000 --- a/src/Helmholtz/nfour.txt +++ /dev/null @@ -1,811 +0,0 @@ -c -c Data for iquad= 23 and iprec= 2 -c -c nfour: -c - 1 1 - 2 2 - 3 4 - 4 5 - 5 6 - 6 7 - 7 8 - 8 9 - 9 9 - * 9 - 1 10 - 2 11 - 3 11 - 4 11 - 5 11 - 6 11 - 7 11 - 8 11 - 9 11 - * 11 - 1 10 - 2 10 - 3 5 -c -c -c Data for iquad= 56 and iprec= 2 -c -c nfour: -c - 1 2 - 2 4 - 3 5 - 4 5 - 5 6 - 6 7 - 7 7 - 8 8 - 9 9 - * 9 - 1 9 - 2 10 - 3 10 - 4 11 - 5 10 - 6 11 - 7 11 - 8 11 - 9 11 - * 11 - 1 10 - 2 11 - 3 10 -c -c -c Data for iquad= 67 and iprec= 2 -c -c nfour: -c - 1 3 - 2 4 - 3 5 - 4 6 - 5 7 - 6 7 - 7 8 - 8 9 - 9 9 - * 9 - 1 9 - 2 10 - 3 11 - 4 11 - 5 11 - 6 10 - 7 11 - 8 11 - 9 11 - * 14 - 1 13 - 2 11 - 3 11 -c -c -c Data for iquad= 78 and iprec= 2 -c -c nfour: -c - 1 3 - 2 5 - 3 6 - 4 7 - 5 8 - 6 8 - 7 9 - 8 9 - 9 10 - * 10 - 1 10 - 2 10 - 3 10 - 4 10 - 5 10 - 6 11 - 7 11 - 8 11 - 9 10 - * 11 - 1 11 - 2 9 - 3 10 - 4 6 - 5 8 - 6 10 -c -c -c Data for iquad= 89 and iprec= 2 -c -c nfour: -c - 1 3 - 2 5 - 3 6 - 4 7 - 5 8 - 6 9 - 7 10 - 8 11 - 9 11 - * 12 - 1 12 - 2 13 - 3 13 - 4 13 - 5 13 - 6 13 - 7 13 - 8 13 - 9 13 - * 13 - 1 12 - 2 12 - 3 12 - 4 11 - 5 11 - 6 10 - 7 10 - 8 1 - 9 11 - * 1 -c -c -c Data for iquad= 12 and iprec= 2 -c -c nfour: -c - 1 2 - 2 3 - 3 4 - 4 5 - 5 6 - 6 7 - 7 7 - 8 8 - 9 9 - * 9 - 1 9 - 2 10 - 3 10 - 4 10 - 5 10 - 6 11 - 7 10 - 8 10 - 9 9 - * 8 - 1 10 - 2 1 -c -c -c Data for iquad= 34 and iprec= 2 -c -c nfour: -c - 1 2 - 2 2 - 3 3 - 4 4 - 5 5 - 6 6 - 7 7 - 8 8 - 9 8 - * 9 - 1 9 - 2 9 - 3 10 - 4 10 - 5 10 - 6 11 - 7 10 - 8 10 - 9 10 - * 9 - 1 10 - 2 1 - 3 1 -c -c -c Data for iquad= 45 and iprec= 2 -c -c nfour: -c - 1 2 - 2 3 - 3 4 - 4 5 - 5 6 - 6 6 - 7 7 - 8 8 - 9 8 - * 9 - 1 9 - 2 10 - 3 9 - 4 12 - 5 11 - 6 11 - 7 11 - 8 11 - 9 11 - * 10 - 1 10 - 2 1 - 3 1 -c -c -c Data for iquad= 1 and iprec= 2 -c -c nfour: -c - 1 2 - 2 3 - 3 4 - 4 5 - 5 6 - 6 7 - 7 7 - 8 8 - 9 9 - * 9 - 1 9 - 2 10 - 3 10 - 4 10 - 5 11 - 6 10 - 7 9 - 8 10 - 9 10 - * 10 - 1 2 - 2 1 -c -c -c Data for iquad= 12 and iprec= 1 -c -c nfour: -c - 1 1 - 2 2 - 3 3 - 4 3 - 5 4 - 6 4 - 7 4 - 8 5 - 9 4 - * 5 - 1 5 - 2 4 - 3 1 - 4 1 -c -c -c Data for iquad= 23 and iprec= 1 -c -c nfour: -c - 1 1 - 2 2 - 3 3 - 4 3 - 5 4 - 6 4 - 7 4 - 8 5 - 9 4 - * 5 - 1 4 - 2 5 - 3 1 - 4 1 -c -c -c Data for iquad= 34 and iprec= 1 -c -c nfour: -c - 1 1 - 2 2 - 3 2 - 4 3 - 5 4 - 6 4 - 7 4 - 8 4 - 9 5 - * 5 - 1 4 - 2 3 - 3 7 - 4 8 -c -c -c Data for iquad= 45 and iprec= 1 -c -c nfour: -c - 1 1 - 2 2 - 3 3 - 4 3 - 5 4 - 6 4 - 7 4 - 8 4 - 9 5 - * 4 - 1 5 - 2 5 - 3 1 - 4 1 -c -c -c Data for iquad= 56 and iprec= 1 -c -c nfour: -c - 1 1 - 2 2 - 3 3 - 4 4 - 5 4 - 6 4 - 7 4 - 8 4 - 9 5 - * 5 - 1 4 - 2 4 - 3 4 - 4 9 -c -c -c Data for iquad= 67 and iprec= 1 -c -c nfour: -c - 1 2 - 2 3 - 3 4 - 4 4 - 5 4 - 6 4 - 7 4 - 8 6 - 9 5 - * 5 - 1 5 - 2 4 - 3 1 -c -c -c Data for iquad= 78 and iprec= 1 -c -c nfour: -c - 1 2 - 2 3 - 3 4 - 4 5 - 5 5 - 6 6 - 7 6 - 8 6 - 9 6 - * 6 - 1 6 - 2 6 - 3 4 - 4 5 - 5 4 -c -c -c Data for iquad= 89 and iprec= 1 -c -c nfour: -c - 1 2 - 2 3 - 3 4 - 4 5 - 5 6 - 6 6 - 7 7 - 8 8 - 9 8 - * 9 - 1 9 - 2 9 - 3 9 - 4 8 - 5 8 - 6 7 - 7 6 - 8 1 - 9 1 -c -c -c Data for iquad= 12 and iprec= 3 -c -c nfour: -c - 1 2 - 2 3 - 3 5 - 4 6 - 5 7 - 6 8 - 7 9 - 8 10 - 9 11 - * 12 - 1 12 - 2 13 - 3 13 - 4 14 - 5 15 - 6 15 - 7 15 - 8 15 - 9 15 - * 16 - 1 16 - 2 16 - 3 16 - 4 16 - 5 15 - 6 15 - 7 15 - 8 13 - 9 14 - * 15 - 1 4 -c -c -c Data for iquad= 23 and iprec= 3 -c -c nfour: -c - 1 2 - 2 3 - 3 4 - 4 6 - 5 7 - 6 8 - 7 9 - 8 10 - 9 11 - * 12 - 1 12 - 2 13 - 3 13 - 4 14 - 5 14 - 6 15 - 7 15 - 8 15 - 9 16 - * 16 - 1 16 - 2 16 - 3 16 - 4 16 - 5 16 - 6 15 - 7 15 - 8 14 - 9 15 - * 10 - 1 1 -c -c -c Data for iquad= 34 and iprec= 3 -c -c nfour: -c - 1 3 - 2 4 - 3 5 - 4 6 - 5 7 - 6 8 - 7 9 - 8 10 - 9 11 - * 11 - 1 12 - 2 13 - 3 13 - 4 13 - 5 14 - 6 15 - 7 16 - 8 16 - 9 16 - * 16 - 1 16 - 2 16 - 3 16 - 4 16 - 5 16 - 6 16 - 7 15 - 8 13 - 9 14 - * 15 - 1 10 -c -c -c Data for iquad= 45 and iprec= 3 -c -c nfour: -c - 1 3 - 2 4 - 3 5 - 4 5 - 5 6 - 6 7 - 7 8 - 8 9 - 9 10 - * 11 - 1 12 - 2 12 - 3 13 - 4 13 - 5 14 - 6 14 - 7 15 - 8 15 - 9 15 - * 15 - 1 16 - 2 16 - 3 16 - 4 16 - 5 15 - 6 16 - 7 16 - 8 15 - 9 15 - * 13 - 1 6 - 2 14 -c -c -c Data for iquad= 56 and iprec= 3 -c -c nfour: -c - 1 3 - 2 5 - 3 6 - 4 7 - 5 7 - 6 8 - 7 9 - 8 10 - 9 10 - * 11 - 1 11 - 2 12 - 3 13 - 4 13 - 5 13 - 6 15 - 7 14 - 8 15 - 9 15 - * 17 - 1 17 - 2 17 - 3 17 - 4 17 - 5 17 - 6 16 - 7 15 - 8 15 - 9 14 - * 14 - 1 14 - 2 1 -c -c -c Data for iquad= 67 and iprec= 3 -c -c nfour: -c - 1 4 - 2 5 - 3 6 - 4 7 - 5 8 - 6 9 - 7 9 - 8 10 - 9 10 - * 11 - 1 11 - 2 12 - 3 13 - 4 13 - 5 13 - 6 14 - 7 14 - 8 15 - 9 15 - * 15 - 1 15 - 2 16 - 3 16 - 4 16 - 5 16 - 6 16 - 7 16 - 8 16 - 9 14 - * 15 - 1 15 - 2 14 - 3 1 - 4 3 -c -c -c Data for iquad= 78 and iprec= 3 -c -c nfour: -c - 1 4 - 2 6 - 3 7 - 4 8 - 5 9 - 6 10 - 7 11 - 8 11 - 9 12 - * 12 - 1 12 - 2 13 - 3 13 - 4 13 - 5 14 - 6 15 - 7 14 - 8 15 - 9 15 - * 15 - 1 15 - 2 16 - 3 16 - 4 16 - 5 16 - 6 17 - 7 16 - 8 17 - 9 17 - * 17 - 1 16 - 2 15 - 3 14 - 4 16 - 5 1 - 6 1 - 7 1 -c -c -c Data for iquad= 89 and iprec= 3 -c -c nfour: -c - 1 4 - 2 7 - 3 9 - 4 9 - 5 12 - 6 12 - 7 12 - 8 13 - 9 14 - * 15 - 1 15 - 2 15 - 3 16 - 4 16 - 5 16 - 6 17 - 7 17 - 8 16 - 9 17 - * 17 - 1 18 - 2 17 - 3 18 - 4 17 - 5 18 - 6 18 - 7 18 - 8 18 - 9 18 - * 18 - 1 17 - 2 17 - 3 17 - 4 16 - 5 16 - 6 15 - 7 14 - 8 15 - 9 15 - * 5 - 1 1 - 2 1 - 3 1 - 4 1 -c -c -c Data for iquad= 1 and iprec= 1 -c -c nfour: -c - 1 1 - 2 2 - 3 3 - 4 3 - 5 4 - 6 4 - 7 4 - 8 4 - 9 5 - * 5 - 1 4 - 2 3 - 3 6 - 4 5 -c -c -c Data for iquad= 1 and iprec= 3 -c -c nfour: -c - 1 2 - 2 3 - 3 5 - 4 6 - 5 7 - 6 8 - 7 9 - 8 10 - 9 11 - * 12 - 1 12 - 2 13 - 3 13 - 4 14 - 5 15 - 6 15 - 7 15 - 8 16 - 9 15 - * 16 - 1 16 - 2 16 - 3 16 - 4 16 - 5 15 - 6 15 - 7 14 - 8 15 - 9 15 - * 2 - 1 2 -c diff --git a/src/Helmholtz/nphys.txt b/src/Helmholtz/nphys.txt deleted file mode 100644 index 03f6b602..00000000 --- a/src/Helmholtz/nphys.txt +++ /dev/null @@ -1,812 +0,0 @@ -c -c Data for iquad= 1 and iprec= 2 -c -c nphys: -c - 1 5 - 2 8 - 3 12 - 4 16 - 5 19 - 6 23 - 7 27 - 8 31 - 9 36 - * 41 - 1 46 - 2 49 - 3 53 - 4 57 - 5 61 - 6 65 - 7 69 - 8 73 - 9 75 - * 17 - 1 7 - 2 2 -c -c -c Data for iquad= 12 and iprec= 2 -c -c nphys: -c - 1 5 - 2 8 - 3 11 - 4 15 - 5 19 - 6 23 - 7 27 - 8 31 - 9 35 - * 39 - 1 45 - 2 49 - 3 54 - 4 57 - 5 61 - 6 65 - 7 69 - 8 73 - 9 75 - * 11 - 1 20 - 2 2 -c -c -c Data for iquad= 23 and iprec= 2 -c -c nphys: -c - 1 6 - 2 8 - 3 11 - 4 14 - 5 18 - 6 22 - 7 26 - 8 30 - 9 34 - * 38 - 1 42 - 2 49 - 3 52 - 4 56 - 5 60 - 6 64 - 7 68 - 8 70 - 9 74 - * 20 - 1 29 - 2 13 - 3 7 -c -c -c Data for iquad= 34 and iprec= 2 -c -c nphys: -c - 1 5 - 2 8 - 3 10 - 4 13 - 5 16 - 6 20 - 7 24 - 8 28 - 9 32 - * 38 - 1 41 - 2 46 - 3 50 - 4 54 - 5 58 - 6 62 - 7 66 - 8 70 - 9 74 - * 76 - 1 11 - 2 5 - 3 8 -c -c -c Data for iquad= 45 and iprec= 2 -c -c nphys: -c - 1 7 - 2 9 - 3 13 - 4 15 - 5 18 - 6 22 - 7 25 - 8 30 - 9 33 - * 37 - 1 42 - 2 46 - 3 50 - 4 54 - 5 58 - 6 62 - 7 66 - 8 70 - 9 73 - * 74 - 1 13 - 2 3 - 3 1 -c -c -c Data for iquad= 56 and iprec= 2 -c -c nphys: -c - 1 8 - 2 11 - 3 13 - 4 16 - 5 18 - 6 22 - 7 24 - 8 27 - 9 30 - * 34 - 1 38 - 2 42 - 3 46 - 4 50 - 5 54 - 6 58 - 7 62 - 8 66 - 9 70 - * 74 - 1 32 - 2 33 - 3 24 -c -c -c Data for iquad= 67 and iprec= 2 -c -c nphys: -c - 1 9 - 2 13 - 3 16 - 4 18 - 5 20 - 6 22 - 7 26 - 8 29 - 9 31 - * 34 - 1 38 - 2 42 - 3 46 - 4 50 - 5 54 - 6 58 - 7 62 - 8 66 - 9 70 - * 74 - 1 44 - 2 31 - 3 18 -c -c -c Data for iquad= 78 and iprec= 2 -c -c nphys: -c - 1 10 - 2 14 - 3 18 - 4 22 - 5 25 - 6 28 - 7 30 - 8 32 - 9 33 - * 36 - 1 38 - 2 42 - 3 45 - 4 49 - 5 52 - 6 55 - 7 58 - 8 62 - 9 66 - * 70 - 1 74 - 2 75 - 3 31 - 4 8 - 5 9 - 6 10 -c -c -c Data for iquad= 89 and iprec= 2 -c -c nphys: -c - 1 10 - 2 16 - 3 21 - 4 26 - 5 30 - 6 34 - 7 37 - 8 41 - 9 44 - * 46 - 1 49 - 2 51 - 3 52 - 4 54 - 5 55 - 6 57 - 7 58 - 8 62 - 9 64 - * 67 - 1 69 - 2 73 - 3 75 - 4 78 - 5 82 - 6 84 - 7 31 - 8 22 - 9 22 - * 2 -c -c -c -c Data for iquad= 1 and iprec= 3 -c -c nphys: -c - 1 6 - 2 10 - 3 13 - 4 17 - 5 20 - 6 24 - 7 28 - 8 32 - 9 37 - * 41 - 1 45 - 2 49 - 3 53 - 4 59 - 5 64 - 6 68 - 7 72 - 8 76 - 9 81 - * 86 - 1 89 - 2 93 - 3 97 - 4 101 - 5 105 - 6 109 - 7 111 - 8 114 - 9 30 - * 4 - 1 4 -c -c -c Data for iquad= 12 and iprec= 3 -c -c nphys: -c - 1 7 - 2 10 - 3 13 - 4 16 - 5 20 - 6 24 - 7 28 - 8 32 - 9 36 - * 41 - 1 45 - 2 49 - 3 53 - 4 57 - 5 62 - 6 66 - 7 71 - 8 76 - 9 80 - * 85 - 1 89 - 2 93 - 3 99 - 4 102 - 5 105 - 6 108 - 7 112 - 8 82 - 9 39 - * 18 - 1 8 -c -c -c Data for iquad= 23 and iprec= 3 -c -c nphys: -c - 1 7 - 2 10 - 3 13 - 4 16 - 5 20 - 6 23 - 7 27 - 8 31 - 9 35 - * 39 - 1 43 - 2 50 - 3 53 - 4 58 - 5 62 - 6 66 - 7 70 - 8 76 - 9 79 - * 86 - 1 89 - 2 93 - 3 97 - 4 101 - 5 105 - 6 106 - 7 110 - 8 112 - 9 19 - * 18 - 1 2 -c -c -c Data for iquad= 34 and iprec= 3 -c -c nphys: -c - 1 8 - 2 10 - 3 13 - 4 16 - 5 19 - 6 23 - 7 26 - 8 30 - 9 34 - * 38 - 1 43 - 2 47 - 3 52 - 4 56 - 5 62 - 6 66 - 7 70 - 8 74 - 9 81 - * 83 - 1 87 - 2 91 - 3 95 - 4 99 - 5 103 - 6 107 - 7 111 - 8 113 - 9 20 - * 16 - 1 13 -c -c -c Data for iquad= 45 and iprec= 3 -c -c nphys: -c - 1 8 - 2 11 - 3 13 - 4 15 - 5 18 - 6 21 - 7 24 - 8 28 - 9 31 - * 35 - 1 40 - 2 44 - 3 48 - 4 52 - 5 58 - 6 62 - 7 66 - 8 70 - 9 77 - * 80 - 1 85 - 2 88 - 3 92 - 4 96 - 5 100 - 6 104 - 7 106 - 8 110 - 9 113 - * 19 - 1 9 - 2 15 -c -c -c Data for iquad= 56 and iprec= 3 -c -c nphys: -c - 1 10 - 2 13 - 3 17 - 4 18 - 5 20 - 6 23 - 7 26 - 8 29 - 9 31 - * 34 - 1 38 - 2 42 - 3 48 - 4 51 - 5 56 - 6 60 - 7 65 - 8 69 - 9 74 - * 78 - 1 82 - 2 86 - 3 90 - 4 94 - 5 101 - 6 103 - 7 106 - 8 110 - 9 112 - * 49 - 1 29 - 2 2 -c -c -c Data for iquad= 67 and iprec= 3 -c -c nphys: -c - 1 10 - 2 14 - 3 18 - 4 20 - 5 22 - 6 25 - 7 26 - 8 30 - 9 32 - * 34 - 1 37 - 2 40 - 3 44 - 4 48 - 5 52 - 6 56 - 7 60 - 8 65 - 9 69 - * 74 - 1 78 - 2 82 - 3 86 - 4 90 - 5 94 - 6 98 - 7 102 - 8 106 - 9 110 - * 112 - 1 61 - 2 21 - 3 8 - 4 5 -c -c -c Data for iquad= 78 and iprec= 3 -c -c nphys: -c - 1 12 - 2 17 - 3 21 - 4 25 - 5 28 - 6 30 - 7 33 - 8 34 - 9 37 - * 38 - 1 40 - 2 41 - 3 44 - 4 46 - 5 50 - 6 53 - 7 57 - 8 60 - 9 64 - * 68 - 1 72 - 2 76 - 3 80 - 4 84 - 5 88 - 6 92 - 7 96 - 8 100 - 9 104 - * 107 - 1 110 - 2 111 - 3 70 - 4 43 - 5 7 - 6 7 - 7 5 -c -c -c Data for iquad= 89 and iprec= 3 -c -c nphys: -c - 1 13 - 2 18 - 3 24 - 4 28 - 5 32 - 6 37 - 7 41 - 8 42 - 9 46 - * 50 - 1 53 - 2 54 - 3 56 - 4 57 - 5 60 - 6 60 - 7 61 - 8 62 - 9 64 - * 66 - 1 68 - 2 70 - 3 74 - 4 77 - 5 80 - 6 84 - 7 86 - 8 90 - 9 94 - * 98 - 1 101 - 2 105 - 3 109 - 4 112 - 5 113 - 6 116 - 7 117 - 8 43 - 9 16 - * 8 - 1 1 - 2 1 - 3 1 - 4 1 -c -c -c Data for iquad= 1 and iprec= 1 -c -c nphys: -c - 1 3 - 2 6 - 3 10 - 4 14 - 5 18 - 6 22 - 7 26 - 8 30 - 9 34 - * 38 - 1 20 - 2 23 - 3 8 - 4 6 -c -c -c Data for iquad= 12 and iprec= 1 -c -c nphys: -c - 1 4 - 2 6 - 3 10 - 4 13 - 5 17 - 6 21 - 7 25 - 8 29 - 9 33 - * 34 - 1 19 - 2 4 - 3 1 - 4 3 -c -c -c Data for iquad= 23 and iprec= 1 -c -c nphys: -c - 1 4 - 2 6 - 3 10 - 4 13 - 5 17 - 6 21 - 7 25 - 8 29 - 9 33 - * 34 - 1 25 - 2 10 - 3 1 - 4 1 -c -c -c Data for iquad= 34 and iprec= 1 -c -c nphys: -c - 1 4 - 2 6 - 3 10 - 4 13 - 5 16 - 6 20 - 7 24 - 8 28 - 9 32 - * 36 - 1 24 - 2 19 - 3 21 - 4 11 -c -c -c Data for iquad= 45 and iprec= 1 -c -c nphys: -c - 1 5 - 2 7 - 3 9 - 4 13 - 5 16 - 6 20 - 7 23 - 8 27 - 9 31 - * 33 - 1 37 - 2 7 - 3 1 - 4 3 -c -c -c Data for iquad= 56 and iprec= 1 -c -c nphys: -c - 1 5 - 2 9 - 3 10 - 4 13 - 5 17 - 6 19 - 7 22 - 8 26 - 9 29 - * 33 - 1 36 - 2 13 - 3 9 - 4 11 -c -c -c Data for iquad= 67 and iprec= 1 -c -c nphys: -c - 1 6 - 2 10 - 3 13 - 4 17 - 5 18 - 6 22 - 7 25 - 8 29 - 9 33 - * 35 - 1 37 - 2 16 - 3 4 -c -c -c Data for iquad= 78 and iprec= 1 -c -c nphys: -c - 1 6 - 2 12 - 3 15 - 4 19 - 5 22 - 6 26 - 7 26 - 8 29 - 9 30 - * 34 - 1 38 - 2 40 - 3 44 - 4 37 - 5 7 -c -c -c Data for iquad= 89 and iprec= 1 -c -c nphys: -c - 1 7 - 2 14 - 3 18 - 4 22 - 5 27 - 6 30 - 7 34 - 8 37 - 9 41 - * 44 - 1 44 - 2 47 - 3 48 - 4 49 - 5 50 - 6 51 - 7 53 - 8 21 - 9 2 -c diff --git a/src/Helmholtz/numphysfour.f b/src/Helmholtz/numphysfour.f deleted file mode 100644 index 45d24ae3..00000000 --- a/src/Helmholtz/numphysfour.f +++ /dev/null @@ -1,1332 +0,0 @@ -c -c number of discretization nodes in tranverse -c direction of plane wave quadratures -c - - subroutine numphysfour(iprec,iquad,nl,np,nf) - implicit none - integer iprec,iquad,nl,nf(nl),np(nl) - - - if(iprec.eq.1) then - if(iquad.eq.12) then - np( 1) = 4 - np( 2) = 6 - np( 3) = 10 - np( 4) = 13 - np( 5) = 17 - np( 6) = 21 - np( 7) = 25 - np( 8) = 29 - np( 9) = 33 - np( 10) = 34 - np( 11) = 19 - np( 12) = 4 - np( 13) = 1 - np( 14) = 3 - - - nf( 1) = 1 - nf( 2) = 2 - nf( 3) = 3 - nf( 4) = 3 - nf( 5) = 4 - nf( 6) = 4 - nf( 7) = 4 - nf( 8) = 5 - nf( 9) = 4 - nf( 10) = 5 - nf( 11) = 5 - nf( 12) = 4 - nf( 13) = 1 - nf( 14) = 1 - endif - - - if(iquad.eq.23) then - np( 1) = 4 - np( 2) = 6 - np( 3) = 10 - np( 4) = 13 - np( 5) = 17 - np( 6) = 21 - np( 7) = 25 - np( 8) = 29 - np( 9) = 33 - np( 10) = 34 - np( 11) = 19 - np( 12) = 4 - np( 13) = 1 - np( 14) = 3 - - - nf( 1) = 1 - nf( 2) = 2 - nf( 3) = 3 - nf( 4) = 3 - nf( 5) = 4 - nf( 6) = 4 - nf( 7) = 4 - nf( 8) = 5 - nf( 9) = 4 - nf( 10) = 5 - nf( 11) = 4 - nf( 12) = 5 - nf( 13) = 1 - nf( 14) = 1 - endif - - - if(iquad.eq.34) then - np( 1) = 4 - np( 2) = 6 - np( 3) = 10 - np( 4) = 13 - np( 5) = 17 - np( 6) = 21 - np( 7) = 25 - np( 8) = 29 - np( 9) = 33 - np( 10) = 34 - np( 11) = 19 - np( 12) = 4 - np( 13) = 1 - np( 14) = 3 - - - nf( 1) = 1 - nf( 2) = 2 - nf( 3) = 2 - nf( 4) = 3 - nf( 5) = 4 - nf( 6) = 4 - nf( 7) = 4 - nf( 8) = 4 - nf( 9) = 5 - nf( 10) = 5 - nf( 11) = 4 - nf( 12) = 3 - nf( 13) = 7 - nf( 14) = 8 - endif - - - if(iquad.eq.45) then - np( 1) = 4 - np( 2) = 6 - np( 3) = 10 - np( 4) = 13 - np( 5) = 17 - np( 6) = 21 - np( 7) = 25 - np( 8) = 29 - np( 9) = 33 - np( 10) = 34 - np( 11) = 19 - np( 12) = 4 - np( 13) = 1 - np( 14) = 3 - - - nf( 1) = 1 - nf( 2) = 2 - nf( 3) = 3 - nf( 4) = 3 - nf( 5) = 4 - nf( 6) = 4 - nf( 7) = 4 - nf( 8) = 4 - nf( 9) = 5 - nf( 10) = 4 - nf( 11) = 5 - nf( 12) = 5 - nf( 13) = 1 - nf( 14) = 1 - endif - - - if(iquad.eq.56) then - np( 1) = 4 - np( 2) = 6 - np( 3) = 10 - np( 4) = 13 - np( 5) = 17 - np( 6) = 21 - np( 7) = 25 - np( 8) = 29 - np( 9) = 33 - np( 10) = 34 - np( 11) = 19 - np( 12) = 4 - np( 13) = 1 - np( 14) = 3 - - - nf( 1) = 1 - nf( 2) = 2 - nf( 3) = 3 - nf( 4) = 4 - nf( 5) = 4 - nf( 6) = 4 - nf( 7) = 4 - nf( 8) = 4 - nf( 9) = 5 - nf( 10) = 5 - nf( 11) = 4 - nf( 12) = 4 - nf( 13) = 4 - nf( 14) = 9 - endif - - - if(iquad.eq.67) then - np( 1) = 4 - np( 2) = 6 - np( 3) = 10 - np( 4) = 13 - np( 5) = 17 - np( 6) = 21 - np( 7) = 25 - np( 8) = 29 - np( 9) = 33 - np( 10) = 34 - np( 11) = 19 - np( 12) = 4 - np( 13) = 1 - - - nf( 1) = 2 - nf( 2) = 3 - nf( 3) = 4 - nf( 4) = 4 - nf( 5) = 4 - nf( 6) = 4 - nf( 7) = 4 - nf( 8) = 6 - nf( 9) = 5 - nf( 10) = 5 - nf( 11) = 5 - nf( 12) = 4 - nf( 13) = 1 - endif - - - if(iquad.eq.78) then - np( 1) = 4 - np( 2) = 6 - np( 3) = 10 - np( 4) = 13 - np( 5) = 17 - np( 6) = 21 - np( 7) = 25 - np( 8) = 29 - np( 9) = 33 - np( 10) = 34 - np( 11) = 19 - np( 12) = 4 - np( 13) = 1 - np( 14) = 3 - np( 15) = 0 - - - nf( 1) = 2 - nf( 2) = 3 - nf( 3) = 4 - nf( 4) = 5 - nf( 5) = 5 - nf( 6) = 6 - nf( 7) = 6 - nf( 8) = 6 - nf( 9) = 6 - nf( 10) = 6 - nf( 11) = 6 - nf( 12) = 6 - nf( 13) = 4 - nf( 14) = 5 - nf( 15) = 4 - endif - - - if(iquad.eq.89) then - np( 1) = 4 - np( 2) = 6 - np( 3) = 10 - np( 4) = 13 - np( 5) = 17 - np( 6) = 21 - np( 7) = 25 - np( 8) = 29 - np( 9) = 33 - np( 10) = 34 - np( 11) = 19 - np( 12) = 4 - np( 13) = 1 - np( 14) = 3 - np( 15) = 0 - np( 16) = 0 - np( 17) = 0 - np( 18) = 0 - np( 19) = 0 - - - nf( 1) = 2 - nf( 2) = 3 - nf( 3) = 4 - nf( 4) = 5 - nf( 5) = 6 - nf( 6) = 6 - nf( 7) = 7 - nf( 8) = 8 - nf( 9) = 8 - nf( 10) = 9 - nf( 11) = 9 - nf( 12) = 9 - nf( 13) = 9 - nf( 14) = 8 - nf( 15) = 8 - nf( 16) = 7 - nf( 17) = 6 - nf( 18) = 1 - nf( 19) = 1 - endif - - - endif - - - if(iprec.eq.2) then - if(iquad.eq.12) then - np( 1) = 5 - np( 2) = 8 - np( 3) = 11 - np( 4) = 15 - np( 5) = 19 - np( 6) = 23 - np( 7) = 27 - np( 8) = 31 - np( 9) = 35 - np( 10) = 39 - np( 11) = 45 - np( 12) = 49 - np( 13) = 54 - np( 14) = 57 - np( 15) = 61 - np( 16) = 65 - np( 17) = 69 - np( 18) = 73 - np( 19) = 75 - np( 20) = 11 - np( 21) = 20 - np( 22) = 2 - - - nf( 1) = 2 - nf( 2) = 3 - nf( 3) = 4 - nf( 4) = 5 - nf( 5) = 6 - nf( 6) = 7 - nf( 7) = 7 - nf( 8) = 8 - nf( 9) = 9 - nf( 10) = 9 - nf( 11) = 9 - nf( 12) = 10 - nf( 13) = 10 - nf( 14) = 10 - nf( 15) = 10 - nf( 16) = 11 - nf( 17) = 10 - nf( 18) = 10 - nf( 19) = 9 - nf( 20) = 8 - nf( 21) = 10 - nf( 22) = 1 - endif - - - if(iquad.eq.23) then - np( 1) = 6 - np( 2) = 8 - np( 3) = 11 - np( 4) = 14 - np( 5) = 18 - np( 6) = 22 - np( 7) = 26 - np( 8) = 30 - np( 9) = 34 - np( 10) = 38 - np( 11) = 42 - np( 12) = 49 - np( 13) = 52 - np( 14) = 56 - np( 15) = 60 - np( 16) = 64 - np( 17) = 68 - np( 18) = 70 - np( 19) = 74 - np( 20) = 20 - np( 21) = 29 - np( 22) = 13 - np( 23) = 7 - - - nf( 1) = 1 - nf( 2) = 2 - nf( 3) = 4 - nf( 4) = 5 - nf( 5) = 6 - nf( 6) = 7 - nf( 7) = 8 - nf( 8) = 9 - nf( 9) = 9 - nf( 10) = 9 - nf( 11) = 10 - nf( 12) = 11 - nf( 13) = 11 - nf( 14) = 11 - nf( 15) = 11 - nf( 16) = 11 - nf( 17) = 11 - nf( 18) = 11 - nf( 19) = 11 - nf( 20) = 11 - nf( 21) = 10 - nf( 22) = 10 - nf( 23) = 5 - endif - - - if(iquad.eq.34) then - np( 1) = 5 - np( 2) = 8 - np( 3) = 10 - np( 4) = 13 - np( 5) = 16 - np( 6) = 20 - np( 7) = 24 - np( 8) = 28 - np( 9) = 32 - np( 10) = 38 - np( 11) = 41 - np( 12) = 46 - np( 13) = 50 - np( 14) = 54 - np( 15) = 58 - np( 16) = 62 - np( 17) = 66 - np( 18) = 70 - np( 19) = 74 - np( 20) = 76 - np( 21) = 11 - np( 22) = 5 - np( 23) = 8 - - - nf( 1) = 2 - nf( 2) = 2 - nf( 3) = 3 - nf( 4) = 4 - nf( 5) = 5 - nf( 6) = 6 - nf( 7) = 7 - nf( 8) = 8 - nf( 9) = 8 - nf( 10) = 9 - nf( 11) = 9 - nf( 12) = 9 - nf( 13) = 10 - nf( 14) = 10 - nf( 15) = 10 - nf( 16) = 11 - nf( 17) = 10 - nf( 18) = 10 - nf( 19) = 10 - nf( 20) = 9 - nf( 21) = 10 - nf( 22) = 1 - nf( 23) = 1 - endif - - - if(iquad.eq.45) then - np( 1) = 7 - np( 2) = 9 - np( 3) = 13 - np( 4) = 15 - np( 5) = 18 - np( 6) = 22 - np( 7) = 25 - np( 8) = 30 - np( 9) = 33 - np( 10) = 37 - np( 11) = 42 - np( 12) = 46 - np( 13) = 50 - np( 14) = 54 - np( 15) = 58 - np( 16) = 62 - np( 17) = 66 - np( 18) = 70 - np( 19) = 73 - np( 20) = 74 - np( 21) = 13 - np( 22) = 3 - np( 23) = 1 - - - nf( 1) = 2 - nf( 2) = 3 - nf( 3) = 4 - nf( 4) = 5 - nf( 5) = 6 - nf( 6) = 6 - nf( 7) = 7 - nf( 8) = 8 - nf( 9) = 8 - nf( 10) = 9 - nf( 11) = 9 - nf( 12) = 10 - nf( 13) = 9 - nf( 14) = 12 - nf( 15) = 11 - nf( 16) = 11 - nf( 17) = 11 - nf( 18) = 11 - nf( 19) = 11 - nf( 20) = 10 - nf( 21) = 10 - nf( 22) = 1 - nf( 23) = 1 - endif - - - if(iquad.eq.56) then - np( 1) = 8 - np( 2) = 11 - np( 3) = 13 - np( 4) = 16 - np( 5) = 18 - np( 6) = 22 - np( 7) = 24 - np( 8) = 27 - np( 9) = 30 - np( 10) = 34 - np( 11) = 38 - np( 12) = 42 - np( 13) = 46 - np( 14) = 50 - np( 15) = 54 - np( 16) = 58 - np( 17) = 62 - np( 18) = 66 - np( 19) = 70 - np( 20) = 74 - np( 21) = 32 - np( 22) = 33 - np( 23) = 24 - - - nf( 1) = 2 - nf( 2) = 4 - nf( 3) = 5 - nf( 4) = 5 - nf( 5) = 6 - nf( 6) = 7 - nf( 7) = 7 - nf( 8) = 8 - nf( 9) = 9 - nf( 10) = 9 - nf( 11) = 9 - nf( 12) = 10 - nf( 13) = 10 - nf( 14) = 11 - nf( 15) = 10 - nf( 16) = 11 - nf( 17) = 11 - nf( 18) = 11 - nf( 19) = 11 - nf( 20) = 11 - nf( 21) = 10 - nf( 22) = 11 - nf( 23) = 10 - endif - - - if(iquad.eq.67) then - np( 1) = 9 - np( 2) = 13 - np( 3) = 16 - np( 4) = 18 - np( 5) = 20 - np( 6) = 22 - np( 7) = 26 - np( 8) = 29 - np( 9) = 31 - np( 10) = 34 - np( 11) = 38 - np( 12) = 42 - np( 13) = 46 - np( 14) = 50 - np( 15) = 54 - np( 16) = 58 - np( 17) = 62 - np( 18) = 66 - np( 19) = 70 - np( 20) = 74 - np( 21) = 44 - np( 22) = 31 - np( 23) = 18 - - - nf( 1) = 3 - nf( 2) = 4 - nf( 3) = 5 - nf( 4) = 6 - nf( 5) = 7 - nf( 6) = 7 - nf( 7) = 8 - nf( 8) = 9 - nf( 9) = 9 - nf( 10) = 9 - nf( 11) = 9 - nf( 12) = 10 - nf( 13) = 11 - nf( 14) = 11 - nf( 15) = 11 - nf( 16) = 10 - nf( 17) = 11 - nf( 18) = 11 - nf( 19) = 11 - nf( 20) = 14 - nf( 21) = 13 - nf( 22) = 11 - nf( 23) = 11 - endif - - - if(iquad.eq.78) then - np( 1) = 10 - np( 2) = 14 - np( 3) = 18 - np( 4) = 22 - np( 5) = 25 - np( 6) = 28 - np( 7) = 30 - np( 8) = 32 - np( 9) = 33 - np( 10) = 36 - np( 11) = 38 - np( 12) = 42 - np( 13) = 45 - np( 14) = 49 - np( 15) = 52 - np( 16) = 55 - np( 17) = 58 - np( 18) = 62 - np( 19) = 66 - np( 20) = 70 - np( 21) = 74 - np( 22) = 75 - np( 23) = 31 - np( 24) = 8 - np( 25) = 9 - np( 26) = 10 - - - nf( 1) = 3 - nf( 2) = 5 - nf( 3) = 6 - nf( 4) = 7 - nf( 5) = 8 - nf( 6) = 8 - nf( 7) = 9 - nf( 8) = 9 - nf( 9) = 10 - nf( 10) = 10 - nf( 11) = 10 - nf( 12) = 10 - nf( 13) = 10 - nf( 14) = 10 - nf( 15) = 10 - nf( 16) = 11 - nf( 17) = 11 - nf( 18) = 11 - nf( 19) = 10 - nf( 20) = 11 - nf( 21) = 11 - nf( 22) = 9 - nf( 23) = 10 - nf( 24) = 6 - nf( 25) = 8 - nf( 26) = 10 - endif - - - if(iquad.eq.89) then - np( 1) = 10 - np( 2) = 16 - np( 3) = 21 - np( 4) = 26 - np( 5) = 30 - np( 6) = 34 - np( 7) = 37 - np( 8) = 41 - np( 9) = 44 - np( 10) = 46 - np( 11) = 49 - np( 12) = 51 - np( 13) = 52 - np( 14) = 54 - np( 15) = 55 - np( 16) = 57 - np( 17) = 58 - np( 18) = 62 - np( 19) = 64 - np( 20) = 67 - np( 21) = 69 - np( 22) = 73 - np( 23) = 75 - np( 24) = 78 - np( 25) = 82 - np( 26) = 84 - np( 27) = 31 - np( 28) = 22 - np( 29) = 22 - np( 30) = 2 - - - nf( 1) = 3 - nf( 2) = 5 - nf( 3) = 6 - nf( 4) = 7 - nf( 5) = 8 - nf( 6) = 9 - nf( 7) = 10 - nf( 8) = 11 - nf( 9) = 11 - nf( 10) = 12 - nf( 11) = 12 - nf( 12) = 13 - nf( 13) = 13 - nf( 14) = 13 - nf( 15) = 13 - nf( 16) = 13 - nf( 17) = 13 - nf( 18) = 13 - nf( 19) = 13 - nf( 20) = 13 - nf( 21) = 12 - nf( 22) = 12 - nf( 23) = 12 - nf( 24) = 11 - nf( 25) = 11 - nf( 26) = 10 - nf( 27) = 10 - nf( 28) = 1 - nf( 29) = 11 - nf( 30) = 1 - endif - - - endif - - - if(iprec.eq.3) then - if(iquad.eq.12) then - np( 1) = 7 - np( 2) = 10 - np( 3) = 13 - np( 4) = 16 - np( 5) = 20 - np( 6) = 24 - np( 7) = 28 - np( 8) = 32 - np( 9) = 36 - np( 10) = 41 - np( 11) = 45 - np( 12) = 49 - np( 13) = 53 - np( 14) = 57 - np( 15) = 62 - np( 16) = 66 - np( 17) = 71 - np( 18) = 76 - np( 19) = 80 - np( 20) = 85 - np( 21) = 89 - np( 22) = 93 - np( 23) = 99 - np( 24) = 102 - np( 25) = 105 - np( 26) = 108 - np( 27) = 112 - np( 28) = 82 - np( 29) = 39 - np( 30) = 18 - np( 31) = 8 - - - nf( 1) = 2 - nf( 2) = 3 - nf( 3) = 5 - nf( 4) = 6 - nf( 5) = 7 - nf( 6) = 8 - nf( 7) = 9 - nf( 8) = 10 - nf( 9) = 11 - nf( 10) = 12 - nf( 11) = 12 - nf( 12) = 13 - nf( 13) = 13 - nf( 14) = 14 - nf( 15) = 15 - nf( 16) = 15 - nf( 17) = 15 - nf( 18) = 15 - nf( 19) = 15 - nf( 20) = 16 - nf( 21) = 16 - nf( 22) = 16 - nf( 23) = 16 - nf( 24) = 16 - nf( 25) = 15 - nf( 26) = 15 - nf( 27) = 15 - nf( 28) = 13 - nf( 29) = 14 - nf( 30) = 15 - nf( 31) = 4 - endif - - - if(iquad.eq.23) then - np( 1) = 7 - np( 2) = 10 - np( 3) = 13 - np( 4) = 16 - np( 5) = 20 - np( 6) = 23 - np( 7) = 27 - np( 8) = 31 - np( 9) = 35 - np( 10) = 39 - np( 11) = 43 - np( 12) = 50 - np( 13) = 53 - np( 14) = 58 - np( 15) = 62 - np( 16) = 66 - np( 17) = 70 - np( 18) = 76 - np( 19) = 79 - np( 20) = 86 - np( 21) = 89 - np( 22) = 93 - np( 23) = 97 - np( 24) = 101 - np( 25) = 105 - np( 26) = 106 - np( 27) = 110 - np( 28) = 112 - np( 29) = 19 - np( 30) = 18 - np( 31) = 2 - - - nf( 1) = 2 - nf( 2) = 3 - nf( 3) = 4 - nf( 4) = 6 - nf( 5) = 7 - nf( 6) = 8 - nf( 7) = 9 - nf( 8) = 10 - nf( 9) = 11 - nf( 10) = 12 - nf( 11) = 12 - nf( 12) = 13 - nf( 13) = 13 - nf( 14) = 14 - nf( 15) = 14 - nf( 16) = 15 - nf( 17) = 15 - nf( 18) = 15 - nf( 19) = 16 - nf( 20) = 16 - nf( 21) = 16 - nf( 22) = 16 - nf( 23) = 16 - nf( 24) = 16 - nf( 25) = 16 - nf( 26) = 15 - nf( 27) = 15 - nf( 28) = 14 - nf( 29) = 15 - nf( 30) = 10 - nf( 31) = 1 - endif - - - if(iquad.eq.34) then - np( 1) = 8 - np( 2) = 10 - np( 3) = 13 - np( 4) = 16 - np( 5) = 19 - np( 6) = 23 - np( 7) = 26 - np( 8) = 30 - np( 9) = 34 - np( 10) = 38 - np( 11) = 43 - np( 12) = 47 - np( 13) = 52 - np( 14) = 56 - np( 15) = 62 - np( 16) = 66 - np( 17) = 70 - np( 18) = 74 - np( 19) = 81 - np( 20) = 83 - np( 21) = 87 - np( 22) = 91 - np( 23) = 95 - np( 24) = 99 - np( 25) = 103 - np( 26) = 107 - np( 27) = 111 - np( 28) = 113 - np( 29) = 20 - np( 30) = 16 - np( 31) = 13 - - - nf( 1) = 3 - nf( 2) = 4 - nf( 3) = 5 - nf( 4) = 6 - nf( 5) = 7 - nf( 6) = 8 - nf( 7) = 9 - nf( 8) = 10 - nf( 9) = 11 - nf( 10) = 11 - nf( 11) = 12 - nf( 12) = 13 - nf( 13) = 13 - nf( 14) = 13 - nf( 15) = 14 - nf( 16) = 15 - nf( 17) = 16 - nf( 18) = 16 - nf( 19) = 16 - nf( 20) = 16 - nf( 21) = 16 - nf( 22) = 16 - nf( 23) = 16 - nf( 24) = 16 - nf( 25) = 16 - nf( 26) = 16 - nf( 27) = 15 - nf( 28) = 13 - nf( 29) = 14 - nf( 30) = 15 - nf( 31) = 10 - endif - - - if(iquad.eq.45) then - np( 1) = 8 - np( 2) = 11 - np( 3) = 13 - np( 4) = 15 - np( 5) = 18 - np( 6) = 21 - np( 7) = 24 - np( 8) = 28 - np( 9) = 31 - np( 10) = 35 - np( 11) = 40 - np( 12) = 44 - np( 13) = 48 - np( 14) = 52 - np( 15) = 58 - np( 16) = 62 - np( 17) = 66 - np( 18) = 70 - np( 19) = 77 - np( 20) = 80 - np( 21) = 85 - np( 22) = 88 - np( 23) = 92 - np( 24) = 96 - np( 25) = 100 - np( 26) = 104 - np( 27) = 106 - np( 28) = 110 - np( 29) = 113 - np( 30) = 19 - np( 31) = 9 - np( 32) = 15 - - - nf( 1) = 3 - nf( 2) = 4 - nf( 3) = 5 - nf( 4) = 5 - nf( 5) = 6 - nf( 6) = 7 - nf( 7) = 8 - nf( 8) = 9 - nf( 9) = 10 - nf( 10) = 11 - nf( 11) = 12 - nf( 12) = 12 - nf( 13) = 13 - nf( 14) = 13 - nf( 15) = 14 - nf( 16) = 14 - nf( 17) = 15 - nf( 18) = 15 - nf( 19) = 15 - nf( 20) = 15 - nf( 21) = 16 - nf( 22) = 16 - nf( 23) = 16 - nf( 24) = 16 - nf( 25) = 15 - nf( 26) = 16 - nf( 27) = 16 - nf( 28) = 15 - nf( 29) = 15 - nf( 30) = 13 - nf( 31) = 6 - nf( 32) = 14 - endif - - - if(iquad.eq.56) then - np( 1) = 10 - np( 2) = 13 - np( 3) = 17 - np( 4) = 18 - np( 5) = 20 - np( 6) = 23 - np( 7) = 26 - np( 8) = 29 - np( 9) = 31 - np( 10) = 34 - np( 11) = 38 - np( 12) = 42 - np( 13) = 48 - np( 14) = 51 - np( 15) = 56 - np( 16) = 60 - np( 17) = 65 - np( 18) = 69 - np( 19) = 74 - np( 20) = 78 - np( 21) = 82 - np( 22) = 86 - np( 23) = 90 - np( 24) = 94 - np( 25) = 101 - np( 26) = 103 - np( 27) = 106 - np( 28) = 110 - np( 29) = 112 - np( 30) = 49 - np( 31) = 29 - np( 32) = 2 - - - nf( 1) = 3 - nf( 2) = 5 - nf( 3) = 6 - nf( 4) = 7 - nf( 5) = 7 - nf( 6) = 8 - nf( 7) = 9 - nf( 8) = 10 - nf( 9) = 10 - nf( 10) = 11 - nf( 11) = 11 - nf( 12) = 12 - nf( 13) = 13 - nf( 14) = 13 - nf( 15) = 13 - nf( 16) = 15 - nf( 17) = 14 - nf( 18) = 15 - nf( 19) = 15 - nf( 20) = 17 - nf( 21) = 17 - nf( 22) = 17 - nf( 23) = 17 - nf( 24) = 17 - nf( 25) = 17 - nf( 26) = 16 - nf( 27) = 15 - nf( 28) = 15 - nf( 29) = 14 - nf( 30) = 14 - nf( 31) = 14 - nf( 32) = 1 - endif - - - if(iquad.eq.67) then - np( 1) = 10 - np( 2) = 14 - np( 3) = 18 - np( 4) = 20 - np( 5) = 22 - np( 6) = 25 - np( 7) = 26 - np( 8) = 30 - np( 9) = 32 - np( 10) = 34 - np( 11) = 37 - np( 12) = 40 - np( 13) = 44 - np( 14) = 48 - np( 15) = 52 - np( 16) = 56 - np( 17) = 60 - np( 18) = 65 - np( 19) = 69 - np( 20) = 74 - np( 21) = 78 - np( 22) = 82 - np( 23) = 86 - np( 24) = 90 - np( 25) = 94 - np( 26) = 98 - np( 27) = 102 - np( 28) = 106 - np( 29) = 110 - np( 30) = 112 - np( 31) = 61 - np( 32) = 21 - np( 33) = 8 - np( 34) = 5 - - - nf( 1) = 4 - nf( 2) = 5 - nf( 3) = 6 - nf( 4) = 7 - nf( 5) = 8 - nf( 6) = 9 - nf( 7) = 9 - nf( 8) = 10 - nf( 9) = 10 - nf( 10) = 11 - nf( 11) = 11 - nf( 12) = 12 - nf( 13) = 13 - nf( 14) = 13 - nf( 15) = 13 - nf( 16) = 14 - nf( 17) = 14 - nf( 18) = 15 - nf( 19) = 15 - nf( 20) = 15 - nf( 21) = 15 - nf( 22) = 16 - nf( 23) = 16 - nf( 24) = 16 - nf( 25) = 16 - nf( 26) = 16 - nf( 27) = 16 - nf( 28) = 16 - nf( 29) = 14 - nf( 30) = 15 - nf( 31) = 15 - nf( 32) = 14 - nf( 33) = 1 - nf( 34) = 3 - endif - - - if(iquad.eq.78) then - np( 1) = 12 - np( 2) = 17 - np( 3) = 21 - np( 4) = 25 - np( 5) = 28 - np( 6) = 30 - np( 7) = 33 - np( 8) = 34 - np( 9) = 37 - np( 10) = 38 - np( 11) = 40 - np( 12) = 41 - np( 13) = 44 - np( 14) = 46 - np( 15) = 50 - np( 16) = 53 - np( 17) = 57 - np( 18) = 60 - np( 19) = 64 - np( 20) = 68 - np( 21) = 72 - np( 22) = 76 - np( 23) = 80 - np( 24) = 84 - np( 25) = 88 - np( 26) = 92 - np( 27) = 96 - np( 28) = 100 - np( 29) = 104 - np( 30) = 107 - np( 31) = 110 - np( 32) = 111 - np( 33) = 70 - np( 34) = 43 - np( 35) = 7 - np( 36) = 7 - np( 37) = 5 - - - nf( 1) = 4 - nf( 2) = 6 - nf( 3) = 7 - nf( 4) = 8 - nf( 5) = 9 - nf( 6) = 10 - nf( 7) = 11 - nf( 8) = 11 - nf( 9) = 12 - nf( 10) = 12 - nf( 11) = 12 - nf( 12) = 13 - nf( 13) = 13 - nf( 14) = 13 - nf( 15) = 14 - nf( 16) = 15 - nf( 17) = 14 - nf( 18) = 15 - nf( 19) = 15 - nf( 20) = 15 - nf( 21) = 15 - nf( 22) = 16 - nf( 23) = 16 - nf( 24) = 16 - nf( 25) = 16 - nf( 26) = 17 - nf( 27) = 16 - nf( 28) = 17 - nf( 29) = 17 - nf( 30) = 17 - nf( 31) = 16 - nf( 32) = 15 - nf( 33) = 14 - nf( 34) = 16 - nf( 35) = 1 - nf( 36) = 1 - nf( 37) = 1 - endif - - - if(iquad.eq.89) then - np( 1) = 13 - np( 2) = 18 - np( 3) = 24 - np( 4) = 28 - np( 5) = 32 - np( 6) = 37 - np( 7) = 41 - np( 8) = 42 - np( 9) = 46 - np( 10) = 50 - np( 11) = 53 - np( 12) = 54 - np( 13) = 56 - np( 14) = 57 - np( 15) = 60 - np( 16) = 60 - np( 17) = 61 - np( 18) = 62 - np( 19) = 64 - np( 20) = 66 - np( 21) = 68 - np( 22) = 70 - np( 23) = 74 - np( 24) = 77 - np( 25) = 80 - np( 26) = 84 - np( 27) = 86 - np( 28) = 90 - np( 29) = 94 - np( 30) = 98 - np( 31) = 101 - np( 32) = 105 - np( 33) = 109 - np( 34) = 112 - np( 35) = 113 - np( 36) = 116 - np( 37) = 117 - np( 38) = 43 - np( 39) = 16 - np( 40) = 8 - np( 41) = 1 - np( 42) = 1 - np( 43) = 1 - np( 44) = 1 - - - nf( 1) = 4 - nf( 2) = 7 - nf( 3) = 9 - nf( 4) = 9 - nf( 5) = 12 - nf( 6) = 12 - nf( 7) = 12 - nf( 8) = 13 - nf( 9) = 14 - nf( 10) = 15 - nf( 11) = 15 - nf( 12) = 15 - nf( 13) = 16 - nf( 14) = 16 - nf( 15) = 16 - nf( 16) = 17 - nf( 17) = 17 - nf( 18) = 16 - nf( 19) = 17 - nf( 20) = 17 - nf( 21) = 18 - nf( 22) = 17 - nf( 23) = 18 - nf( 24) = 17 - nf( 25) = 18 - nf( 26) = 18 - nf( 27) = 18 - nf( 28) = 18 - nf( 29) = 18 - nf( 30) = 18 - nf( 31) = 17 - nf( 32) = 17 - nf( 33) = 17 - nf( 34) = 16 - nf( 35) = 16 - nf( 36) = 15 - nf( 37) = 14 - nf( 38) = 15 - nf( 39) = 15 - nf( 40) = 5 - nf( 41) = 1 - nf( 42) = 1 - nf( 43) = 1 - nf( 44) = 1 - endif - - - endif - - - return - end diff --git a/src/Helmholtz/quadread.f b/src/Helmholtz/quadread.f deleted file mode 100644 index b5ded3e9..00000000 --- a/src/Helmholtz/quadread.f +++ /dev/null @@ -1,132 +0,0 @@ -c -c read plane wave quadratures from file -c - - subroutine lreadall(eps,zk,nquad,cxs,cws,nfour,nphys,lw,ier) -c -cc this subroutine computes lambda quadrature nodes and weights -c for given helmholtz parameter and the number of terms -c per lambda required in fourier and physical domains -c -c input: -c eps: precision requested -c min precision possible is 0.5d-12 -c -c -c zk - Helmholtz parameter -c currently code works for zk in -c [0.02,pi/2]+[0,0.02]i -c -c lw - length of various arrays sent to the routine -c -c OUTPUT -c nquad - number of discretization nodes for lambda -c quadrature -c -c cxs(nquad) - complex *16, lambda quadrature nodes, -c cxs actually stores \sqrt(\lambda^2 - k^2) -c -c cws(nquad) - complex *16, lambda quadrature weights -c -c nfour(nquad) - integer, number of fourier modes required -c per lambda -c -c nphys(nquad) - integer, number of physical modes required -c per lambda -c -c ier - error code -c ier = 0, no error, successful return of all parameters -c ier = 16 if lw